|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0524d2
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0240 | @ | .CONST 0x0240 ; 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 0057 | W | .CONST 0x0057 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0022 | " | .CONST 0x0022 ; Number of locals
000b INIT_0008:
000b 00d9 | | Load_Top At_Offset_1
000c 0265 | e | Execute Discrete,Reverse_Bounds
000d 00db | | Load_Top At_Offset_3
000e 1c04 | | Execute_Immediate Run_Utility,0x4
000f 00d0 | | Action Swap_Control
0010 00db | | Load_Top At_Offset_3
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 00da | | Load_Top At_Offset_2
0017 0265 | e | Execute Discrete,Reverse_Bounds
0018 e20f | | Load 0x1,0xf
0019 1c04 | | Execute_Immediate Run_Utility,0x4
001a 00d0 | | Action Swap_Control
001b e20f | | Load 0x1,0xf
001c 1c04 | | Execute_Immediate Run_Utility,0x4
001d e002 | | Load 0x0,0x2
001e 029f 0063 | c| Declare_Subprogram INIT_0060,For_Call
0020 4801 |H | Short_Literal 0x1
0021 035e | ^ | Declare_Type Array,Defined,Visible
0022 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
0024 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
0026 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated
0028 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated
002a 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated
002c 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
002e 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated
0030 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated
0032 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated
0034 00bf | | Action Accept_Activation
0035 e20e | | Load 0x1,0xe
0036 8003 | | Call 0x0,0x3
0037 00e2 | | Load_Encached Integer_Cache
0038 03f1 | | Declare_Variable Discrete,With_Value
0039 029d 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call
003b 029d 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call
003d 029d 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call
003f 029d 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call
0041 029d 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call
0043 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0044 00c7 | | Action Elaborate_Subprogram
0045 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0046 00c7 | | Action Elaborate_Subprogram
0047 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0048 00c7 | | Action Elaborate_Subprogram
0049 1d15 | | Execute_Immediate Reference_Lex_1,0x15
004a 00c7 | | Action Elaborate_Subprogram
004b 1d17 | | Execute_Immediate Reference_Lex_1,0x17
004c 00c7 | | Action Elaborate_Subprogram
004d 1d18 | | Execute_Immediate Reference_Lex_1,0x18
004e 00c7 | | Action Elaborate_Subprogram
004f 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0050 00c7 | | Action Elaborate_Subprogram
0051 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0052 00c7 | | Action Elaborate_Subprogram
0053 029d 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call
0055 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0056 00c7 | | Action Elaborate_Subprogram
0057 BODY_0008:
0057 00bc | | Action Signal_Activated
0058 00bb | | Action Signal_Completion
0059 0000 0000 | | .BLANK 0000[0x7]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0063 | c | .CONST 0x0063 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0001 | | .CONST 0x0001 ; Number of locals
0063 BODY_0060:
0063 INIT_0060:
0063 00d1 | | Pop_Control Pop_Count_1
0064 00da | | Load_Top At_Offset_2
0065 01d8 | | Execute Vector,Element_Type
0066 02ff | | Declare_Variable Variant_Record
0067 00d8 | | Load_Top At_Offset_0
0068 1c00 | | Execute_Immediate Run_Utility,0x0
0069 00db | | Load_Top At_Offset_3
006a 01dc | | Execute Vector,Last
006b e5ff | | Load 0x2,-0x1
006c 01dd | | Execute Vector,First
006d 0263 | c | Execute Discrete,Above_Bound
006e 7006 |p | Jump_Nonzero 0x75
006f 00da | | Load_Top At_Offset_2
0070 00d9 | | Load_Top At_Offset_1
0071 e5ff | | Load 0x2,-0x1
0072 01d6 | | Execute Vector,Field_Write
0073 0a01 | | Execute_Immediate Plus,0x1
0074 7ff8 | | Jump 0x6d
0075 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0076 0000 0000 | | .XXX[0x2]
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 821f | | Call 0x1,0x1f
007c e004 | | Load 0x0,0x4
007d 1c08 | | Execute_Immediate Run_Utility,0x8
007e 4800 |H | Short_Literal 0x0
007f 00d9 | | Load_Top At_Offset_1
0080 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0081 00db | | Load_Top At_Offset_3
0082 8220 | | Call 0x1,0x20
0083 00d9 | | Load_Top At_Offset_1
0084 00d8 | | Load_Top At_Offset_0
0085 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0086 00da | | Load_Top At_Offset_2
0087 01da | | Execute Vector,Bounds
0088 00da | | Load_Top At_Offset_2
0089 01da | | Execute Vector,Bounds
008a 00da | | Load_Top At_Offset_2
008b 027f | | Execute Discrete,Equal
008c 7001 |p | Jump_Nonzero 0x8e
008d 08e0 | | Execute_Immediate Raise,0xe0
008e 00cd | | Action Spare6_Action
008f 027f | | Execute Discrete,Equal
0090 7001 |p | Jump_Nonzero 0x92
0091 08e0 | | Execute_Immediate Raise,0xe0
0092 00d2 | | Pop_Control Pop_Count_2
0093 00d9 | | Load_Top At_Offset_1
0094 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
0095 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0096 0000 0000 | | .XXX[0x2]
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 821f | | Call 0x1,0x1f
009c e004 | | Load 0x0,0x4
009d 1c08 | | Execute_Immediate Run_Utility,0x8
009e 4801 |H | Short_Literal 0x1
009f 00d9 | | Load_Top At_Offset_1
00a0 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00a1 00db | | Load_Top At_Offset_3
00a2 8220 | | Call 0x1,0x20
00a3 00d9 | | Load_Top At_Offset_1
00a4 00d8 | | Load_Top At_Offset_0
00a5 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
00a6 00da | | Load_Top At_Offset_2
00a7 01da | | Execute Vector,Bounds
00a8 00da | | Load_Top At_Offset_2
00a9 01da | | Execute Vector,Bounds
00aa 00da | | Load_Top At_Offset_2
00ab 027f | | Execute Discrete,Equal
00ac 7001 |p | Jump_Nonzero 0xae
00ad 08e0 | | Execute_Immediate Raise,0xe0
00ae 00cd | | Action Spare6_Action
00af 027f | | Execute Discrete,Equal
00b0 7001 |p | Jump_Nonzero 0xb2
00b1 08e0 | | Execute_Immediate Raise,0xe0
00b2 00d2 | | Pop_Control Pop_Count_2
00b3 00d9 | | Load_Top At_Offset_1
00b4 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
00b5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00b6 0000 0000 | | .XXX[0x2]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bd | | .CONST 0x00bd ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0002 | | .CONST 0x0002 ; Number of locals
00bb INIT_00b8:
00bb e211 | | Load 0x1,0x11
00bc 0337 | 7 | Declare_Variable Array
00bd BODY_00b8:
00bd 00cf | | Action Mark_Auxiliary
00be e20f | | Load 0x1,0xf
00bf 0265 | e | Execute Discrete,Reverse_Bounds
00c0 0263 | c | Execute Discrete,Above_Bound
00c1 7018 |p | Jump_Nonzero 0xda
00c2 00d8 | | Load_Top At_Offset_0
00c3 00d8 | | Load_Top At_Offset_0
00c4 e20f | | Load 0x1,0xf
00c5 0260 | ` | Execute Discrete,In_Type
00c6 7001 |p | Jump_Nonzero 0xc8
00c7 0801 | | Execute_Immediate Raise,0x1
00c8 821e | | Call 0x1,0x1e
00c9 e5ff | | Load 0x2,-0x1
00ca 8005 | | Call 0x0,0x5
00cb 00d9 | | Load_Top At_Offset_1
00cc e20f | | Load 0x1,0xf
00cd 1c04 | | Execute_Immediate Run_Utility,0x4
00ce e402 | | Load 0x2,0x2
00cf 01d6 | | Execute Vector,Field_Write
00d0 00c8 | | Action Pop_Auxiliary_Range
00d1 00d9 | | Load_Top At_Offset_1
00d2 00d9 | | Load_Top At_Offset_1
00d3 027f | | Execute Discrete,Equal
00d4 7004 |p | Jump_Nonzero 0xd9
00d5 e20f | | Load 0x1,0xf
00d6 0122 | " | Execute Any,Make_Root_Type
00d7 1c07 | | Execute_Immediate Run_Utility,0x7
00d8 7fe9 | | Jump 0xc2
00d9 00d2 | | Pop_Control Pop_Count_2
00da 00ce | | Action Pop_Auxiliary
00db 00d8 | | Load_Top At_Offset_0
00dc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00dd 0000 0000 | | .XXX[0x3]
00df 0000 | |
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 00db | | Load_Top At_Offset_3
00e4 00d8 | | Load_Top At_Offset_0
00e5 e20f | | Load 0x1,0xf
00e6 0260 | ` | Execute Discrete,In_Type
00e7 7001 |p | Jump_Nonzero 0xe9
00e8 0801 | | Execute_Immediate Raise,0x1
00e9 821e | | Call 0x1,0x1e
00ea 00db | | Load_Top At_Offset_3
00eb 8005 | | Call 0x0,0x5
00ec 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
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 00da | | Load_Top At_Offset_2
00f4 8221 | ! | Call 0x1,0x21
00f5 8006 | | Call 0x0,0x6
00f6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00f7 0000 | | .XXX[0x1]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb 00da | | Load_Top At_Offset_2
00fc 8007 | | Call 0x0,0x7
00fd 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00fe 0000 0000 | | .XXX[0x2]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 00db | | Load_Top At_Offset_3
0104 8221 | ! | Call 0x1,0x21
0105 00db | | Load_Top At_Offset_3
0106 8008 | | Call 0x0,0x8
0107 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b | | .CONST 0x010b ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0001 | | .CONST 0x0001 ; Number of locals
010b BODY_0108:
010b INIT_0108:
010b e5fd | | Load 0x2,-0x3
010c e5fe | | Load 0x2,-0x2
010d 00d8 | | Load_Top At_Offset_0
010e e20f | | Load 0x1,0xf
010f 0260 | ` | Execute Discrete,In_Type
0110 7001 |p | Jump_Nonzero 0x112
0111 0801 | | Execute_Immediate Raise,0x1
0112 821e | | Call 0x1,0x1e
0113 e5ff | | Load 0x2,-0x1
0114 8009 | | Call 0x0,0x9
0115 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0116 0000 0000 | | .XXX[0x2]
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 0092 0230 | 0| Action Push_String_Extended,0x230 ; "Class => "
011d e20e | | Load 0x1,0xe
011e 01cc | | Execute Vector,Catenate
011f 00db | | Load_Top At_Offset_3
0120 8222 | " | Call 0x1,0x22
0121 01cc | | Execute Vector,Catenate
0122 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0123 0000 0000 | | .BLANK 0000[0x5]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 0137 | 7 | .CONST 0x0137 ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0003 | | .CONST 0x0003 ; Number of locals
012b INIT_0128:
012b e20f | | Load 0x1,0xf
012c 026a | j | Execute Discrete,First
012d e20f | | Load 0x1,0xf
012e 1c04 | | Execute_Immediate Run_Utility,0x4
012f 00e3 | | Load_Encached Natural_Cache
0130 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0131 e20f | | Load 0x1,0xf
0132 0269 | i | Execute Discrete,Last
0133 e20f | | Load 0x1,0xf
0134 1c04 | | Execute_Immediate Run_Utility,0x4
0135 00e3 | | Load_Encached Natural_Cache
0136 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0137 BODY_0128:
0137 00d8 | | Load_Top At_Offset_0
0138 00da | | Load_Top At_Offset_2
0139 0272 | r | Execute Discrete,Minus
013a 0a01 | | Execute_Immediate Plus,0x1
013b 00d8 | | Load_Top At_Offset_0
013c 00e3 | | Load_Encached Natural_Cache
013d 0260 | ` | Execute Discrete,In_Type
013e 7001 |p | Jump_Nonzero 0x140
013f 0801 | | Execute_Immediate Raise,0x1
0140 00ca | | Action Exit_Nullary_Function
0141 0000 0000 | | .BLANK 0000[0x7]
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 e20f | | Load 0x1,0xf
014d 1c04 | | Execute_Immediate Run_Utility,0x4
014e e20f | | Load 0x1,0xf
014f 026a | j | Execute Discrete,First
0150 e20f | | Load 0x1,0xf
0151 1c04 | | Execute_Immediate Run_Utility,0x4
0152 0272 | r | Execute Discrete,Minus
0153 0a02 | | Execute_Immediate Plus,0x2
0154 00d8 | | Load_Top At_Offset_0
0155 e00a | | Load 0x0,0xa
0156 0260 | ` | Execute Discrete,In_Type
0157 7001 |p | Jump_Nonzero 0x159
0158 0801 | | Execute_Immediate Raise,0x1
0159 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
015a 0000 0000 | | .BLANK 0000[0x6]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163 | c | .CONST 0x0163 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0001 | | .CONST 0x0001 ; Number of locals
0163 BODY_0160:
0163 INIT_0160:
0163 821d | | Call 0x1,0x1d
0164 0a01 | | Execute_Immediate Plus,0x1
0165 00d8 | | Load_Top At_Offset_0
0166 00e3 | | Load_Encached Natural_Cache
0167 0260 | ` | Execute Discrete,In_Type
0168 7001 |p | Jump_Nonzero 0x16a
0169 0801 | | Execute_Immediate Raise,0x1
016a 00ca | | Action Exit_Nullary_Function
016b 0000 0000 | | .BLANK 0000[0x5]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0180 | | .CONST 0x0180 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0002 | | .CONST 0x0002 ; Number of locals
0173 INIT_0170:
0173 4801 |H | Short_Literal 0x1
0174 821d | | Call 0x1,0x1d
0175 0a01 | | Execute_Immediate Plus,0x1
0176 00d8 | | Load_Top At_Offset_0
0177 00e2 | | Load_Encached Integer_Cache
0178 0260 | ` | Execute Discrete,In_Type
0179 7001 |p | Jump_Nonzero 0x17b
017a 0801 | | Execute_Immediate Raise,0x1
017b e00b | | Load 0x0,0xb
017c 035b | [ | Declare_Type Array,Constrained
017d 0337 | 7 | Declare_Variable Array
017e 00d8 | | Load_Top At_Offset_0
017f 1c00 | | Execute_Immediate Run_Utility,0x0
0180 BODY_0170:
0180 e21c | | Load 0x1,0x1c
0181 800c | | Call 0x0,0xc
0182 4801 |H | Short_Literal 0x1
0183 00da | | Load_Top At_Offset_2
0184 01d6 | | Execute Vector,Field_Write
0185 00cf | | Action Mark_Auxiliary
0186 e5ff | | Load 0x2,-0x1
0187 01da | | Execute Vector,Bounds
0188 e20f | | Load 0x1,0xf
0189 1c05 | | Execute_Immediate Run_Utility,0x5
018a 00d0 | | Action Swap_Control
018b e20f | | Load 0x1,0xf
018c 1c05 | | Execute_Immediate Run_Utility,0x5
018d 0263 | c | Execute Discrete,Above_Bound
018e 7018 |p | Jump_Nonzero 0x1a7
018f 00d8 | | Load_Top At_Offset_0
0190 e20f | | Load 0x1,0xf
0191 1c04 | | Execute_Immediate Run_Utility,0x4
0192 e5ff | | Load 0x2,-0x1
0193 01d5 | | Execute Vector,Field_Reference
0194 00d9 | | Load_Top At_Offset_1
0195 00d8 | | Load_Top At_Offset_0
0196 e20f | | Load 0x1,0xf
0197 0260 | ` | Execute Discrete,In_Type
0198 7001 |p | Jump_Nonzero 0x19a
0199 0801 | | Execute_Immediate Raise,0x1
019a 821e | | Call 0x1,0x1e
019b e402 | | Load 0x2,0x2
019c 01d6 | | Execute Vector,Field_Write
019d 00c8 | | Action Pop_Auxiliary_Range
019e 00d9 | | Load_Top At_Offset_1
019f 00d9 | | Load_Top At_Offset_1
01a0 027f | | Execute Discrete,Equal
01a1 7004 |p | Jump_Nonzero 0x1a6
01a2 e20f | | Load 0x1,0xf
01a3 0122 | " | Execute Any,Make_Root_Type
01a4 1c07 | | Execute_Immediate Run_Utility,0x7
01a5 7fe9 | | Jump 0x18f
01a6 00d2 | | Pop_Control Pop_Count_2
01a7 00ce | | Action Pop_Auxiliary
01a8 00d8 | | Load_Top At_Offset_0
01a9 e00b | | Load 0x0,0xb
01aa 01c6 | | Execute Vector,Convert_To_Formal
01ab 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ac 0000 0000 | | .BLANK 0000[0x4]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01be | | .CONST 0x01be ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0002 | | .CONST 0x0002 ; Number of locals
01b3 INIT_01b0:
01b3 4801 |H | Short_Literal 0x1
01b4 821d | | Call 0x1,0x1d
01b5 0a01 | | Execute_Immediate Plus,0x1
01b6 00d8 | | Load_Top At_Offset_0
01b7 00e2 | | Load_Encached Integer_Cache
01b8 0260 | ` | Execute Discrete,In_Type
01b9 7001 |p | Jump_Nonzero 0x1bb
01ba 0801 | | Execute_Immediate Raise,0x1
01bb e00d | | Load 0x0,0xd
01bc 035b | [ | Declare_Type Array,Constrained
01bd 0337 | 7 | Declare_Variable Array
01be BODY_01b0:
01be e21c | | Load 0x1,0x1c
01bf 4801 |H | Short_Literal 0x1
01c0 00da | | Load_Top At_Offset_2
01c1 01d6 | | Execute Vector,Field_Write
01c2 00cf | | Action Mark_Auxiliary
01c3 e5ff | | Load 0x2,-0x1
01c4 01da | | Execute Vector,Bounds
01c5 e20f | | Load 0x1,0xf
01c6 1c05 | | Execute_Immediate Run_Utility,0x5
01c7 00d0 | | Action Swap_Control
01c8 e20f | | Load 0x1,0xf
01c9 1c05 | | Execute_Immediate Run_Utility,0x5
01ca 0263 | c | Execute Discrete,Above_Bound
01cb 7018 |p | Jump_Nonzero 0x1e4
01cc 00d8 | | Load_Top At_Offset_0
01cd e20f | | Load 0x1,0xf
01ce 1c04 | | Execute_Immediate Run_Utility,0x4
01cf e5ff | | Load 0x2,-0x1
01d0 01d7 | | Execute Vector,Field_Read
01d1 00d9 | | Load_Top At_Offset_1
01d2 00d8 | | Load_Top At_Offset_0
01d3 e20f | | Load 0x1,0xf
01d4 0260 | ` | Execute Discrete,In_Type
01d5 7001 |p | Jump_Nonzero 0x1d7
01d6 0801 | | Execute_Immediate Raise,0x1
01d7 821e | | Call 0x1,0x1e
01d8 e402 | | Load 0x2,0x2
01d9 01d6 | | Execute Vector,Field_Write
01da 00c8 | | Action Pop_Auxiliary_Range
01db 00d9 | | Load_Top At_Offset_1
01dc 00d9 | | Load_Top At_Offset_1
01dd 027f | | Execute Discrete,Equal
01de 7004 |p | Jump_Nonzero 0x1e3
01df e20f | | Load 0x1,0xf
01e0 0122 | " | Execute Any,Make_Root_Type
01e1 1c07 | | Execute_Immediate Run_Utility,0x7
01e2 7fe9 | | Jump 0x1cc
01e3 00d2 | | Pop_Control Pop_Count_2
01e4 00ce | | Action Pop_Auxiliary
01e5 00d8 | | Load_Top At_Offset_0
01e6 e00d | | Load 0x0,0xd
01e7 01c6 | | Execute Vector,Convert_To_Formal
01e8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01e9 0000 0000 | | .BLANK 0000[0x7]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f5 | | .CONST 0x01f5 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0002 | | .CONST 0x0002 ; Number of locals
01f3 INIT_01f0:
01f3 029f 0203 | | Declare_Subprogram INIT_0200,For_Call
01f5 BODY_01f0:
01f5 e20f | | Load 0x1,0xf
01f6 026a | j | Execute Discrete,First
01f7 00d8 | | Load_Top At_Offset_0
01f8 e20f | | Load 0x1,0xf
01f9 0260 | ` | Execute Discrete,In_Type
01fa 7001 |p | Jump_Nonzero 0x1fc
01fb 0801 | | Execute_Immediate Raise,0x1
01fc 8402 | | Call 0x2,0x2
01fd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01fe 0000 0000 | | .XXX[0x2]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 021c | | .CONST 0x021c ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0003 | | .CONST 0x0003 ; Number of locals
0203 INIT_0200:
0203 00da | | Load_Top At_Offset_2
0204 00d8 | | Load_Top At_Offset_0
0205 e20f | | Load 0x1,0xf
0206 0260 | ` | Execute Discrete,In_Type
0207 7001 |p | Jump_Nonzero 0x209
0208 0801 | | Execute_Immediate Raise,0x1
0209 e5ff | | Load 0x2,-0x1
020a 8216 | | Call 0x1,0x16
020b 0092 0231 | 1| Action Push_String_Extended,0x231 ; ", "
020d e7ff | | Load 0x3,-0x1
020e e20f | | Load 0x1,0xf
020f 1c04 | | Execute_Immediate Run_Utility,0x4
0210 e20f | | Load 0x1,0xf
0211 0122 | " | Execute Any,Make_Root_Type
0212 011c | | Execute Any,Convert_Unchecked
0213 1c01 | | Execute_Immediate Run_Utility,0x1
0214 01cc | | Execute Vector,Catenate
0215 0092 0232 | 2| Action Push_String_Extended,0x232 ; " => "
0217 01cc | | Execute Vector,Catenate
0218 00d9 | | Load_Top At_Offset_1
0219 8210 | | Call 0x1,0x10
021a 01cc | | Execute Vector,Catenate
021b 0007 | | Action Break_Optional
021c BODY_0200:
021c e7ff | | Load 0x3,-0x1
021d e20f | | Load 0x1,0xf
021e 0269 | i | Execute Discrete,Last
021f 027e | ~ | Execute Discrete,Not_Equal
0220 680d |h | Jump_Zero 0x22e
0221 00d8 | | Load_Top At_Offset_0
0222 e7ff | | Load 0x3,-0x1
0223 e20f | | Load 0x1,0xf
0224 0122 | " | Execute Any,Make_Root_Type
0225 1c07 | | Execute_Immediate Run_Utility,0x7
0226 00d8 | | Load_Top At_Offset_0
0227 e20f | | Load 0x1,0xf
0228 0260 | ` | Execute Discrete,In_Type
0229 7001 |p | Jump_Nonzero 0x22b
022a 0801 | | Execute_Immediate Raise,0x1
022b 8402 | | Call 0x2,0x2
022c 01cc | | Execute Vector,Catenate
022d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
022e 00d8 | | Load_Top At_Offset_0
022f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0230 ; --------------------------------------------------------------------------------------
0230 ; STRING TABLE
0230 ; --------------------------------------------------------------------------------------
0230 0008 | | .STRTAB 0x0008->0x0234 ; "Class => "
0231 000f | | .STRTAB 0x000f->0x0238 ; ", "
0232 000f | | .STRTAB 0x000f->0x0239 ; " => "
0233 0011 | | .STREND 0x0011->0x023b
0234 436c 6173 |Clas| .STRTAB_STRINGS
023c 0000 0000 | | .BLANK 0000[0x4]
0240 ; --------------------------------------------------------------------------------------
0240 ; Debug Table
0240 ; --------------------------------------------------------------------------------------
0240 0004 0004 | | .DEBUG4 0x0004,0x0004,0x5600,0x0000,0x0001,0x0013
0246 000b 0292 | | .DBG4T 0x000b,0x0292,0xc000,0x0000
024a 0035 029f | 5 | .DBG4T 0x0035,0x029f,0xc000,0x0000
024e 0063 0000 | c | .DBG4T 0x0063,0x0000,0x1005,0x0000
0252 007b 02b1 | { | .DBG4T 0x007b,0x02b1,0x1002,0x0000
0256 009b 02b4 | | .DBG4T 0x009b,0x02b4,0x1002,0x0000
025a 00bb 02b7 | | .DBG4T 0x00bb,0x02b7,0x1002,0x0000
025e 00e3 02bd | | .DBG4T 0x00e3,0x02bd,0x1002,0x0000
0262 00f3 02c0 | | .DBG4T 0x00f3,0x02c0,0x1001,0x0000
0266 00fb 02c3 | | .DBG4T 0x00fb,0x02c3,0x1001,0x0000
026a 0103 02c6 | | .DBG4T 0x0103,0x02c6,0x1001,0x0000
026e 010b 02c9 | | .DBG4T 0x010b,0x02c9,0x1001,0x0000
0272 011b 02cc | | .DBG4T 0x011b,0x02cc,0x1002,0x0000
0276 012b 02cf | + | .DBG4T 0x012b,0x02cf,0x1002,0x0000
027a 014b 02d4 | K | .DBG4T 0x014b,0x02d4,0x1002,0x0000
027e 0163 02d7 | c | .DBG4T 0x0163,0x02d7,0x1002,0x0000
0282 0173 02da | s | .DBG4T 0x0173,0x02da,0x1002,0x0000
0286 01b3 02e1 | | .DBG4T 0x01b3,0x02e1,0x1002,0x0000
028a 01f3 02e8 | | .DBG4T 0x01f3,0x02e8,0x1002,0x0000
028e 0203 02ec | | .DBG4T 0x0203,0x02ec,0x1002,0x0000
0292 ; --------------------------------------------------------------------------------------
0292 ; Debug chain
0292 ; --------------------------------------------------------------------------------------
0292 000b 0000 | | .DBGLEN 0x000b,0x0000
0294 000b 0016 | | .DBGLNO 0x000b,0x0016,0x0022,0x0024,0x0026,0x0028,0x002a,0x002c,0x002e,0x0030,0x0032
029f ; --------------------------------------------------------------------------------------
029f ; Debug chain
029f ; --------------------------------------------------------------------------------------
029f 0010 0000 | | .DBGLEN 0x0010,0x0000
02a1 0035 0039 | 5 9| .DBGLNO 0x0035,0x0039,0x003b,0x003d,0x003f,0x0041,0x0043,0x0045,0x0047,0x0049,0x004b,0x004d,0x004f,0x0051,0x0053,0x0055
02b1 ; --------------------------------------------------------------------------------------
02b1 ; Debug chain
02b1 ; --------------------------------------------------------------------------------------
02b1 0000 0001 | | .DBGLEN 0x0000,0x0001
02b3 007b | { | .DBGLNO 0x007b
02b4 ; --------------------------------------------------------------------------------------
02b4 ; Debug chain
02b4 ; --------------------------------------------------------------------------------------
02b4 0000 0001 | | .DBGLEN 0x0000,0x0001
02b6 009b | | .DBGLNO 0x009b
02b7 ; --------------------------------------------------------------------------------------
02b7 ; Debug chain
02b7 ; --------------------------------------------------------------------------------------
02b7 0001 0003 | | .DBGLEN 0x0001,0x0003
02b9 00bb 00be | | .DBGLNO 0x00bb,0x00be,0x00c2,0x00db
02bd ; --------------------------------------------------------------------------------------
02bd ; Debug chain
02bd ; --------------------------------------------------------------------------------------
02bd 0000 0001 | | .DBGLEN 0x0000,0x0001
02bf 00e3 | | .DBGLNO 0x00e3
02c0 ; --------------------------------------------------------------------------------------
02c0 ; Debug chain
02c0 ; --------------------------------------------------------------------------------------
02c0 0000 0001 | | .DBGLEN 0x0000,0x0001
02c2 00f3 | | .DBGLNO 0x00f3
02c3 ; --------------------------------------------------------------------------------------
02c3 ; Debug chain
02c3 ; --------------------------------------------------------------------------------------
02c3 0000 0001 | | .DBGLEN 0x0000,0x0001
02c5 00fb | | .DBGLNO 0x00fb
02c6 ; --------------------------------------------------------------------------------------
02c6 ; Debug chain
02c6 ; --------------------------------------------------------------------------------------
02c6 0000 0001 | | .DBGLEN 0x0000,0x0001
02c8 0103 | | .DBGLNO 0x0103
02c9 ; --------------------------------------------------------------------------------------
02c9 ; Debug chain
02c9 ; --------------------------------------------------------------------------------------
02c9 0000 0001 | | .DBGLEN 0x0000,0x0001
02cb 010b | | .DBGLNO 0x010b
02cc ; --------------------------------------------------------------------------------------
02cc ; Debug chain
02cc ; --------------------------------------------------------------------------------------
02cc 0000 0001 | | .DBGLEN 0x0000,0x0001
02ce 011b | | .DBGLNO 0x011b
02cf ; --------------------------------------------------------------------------------------
02cf ; Debug chain
02cf ; --------------------------------------------------------------------------------------
02cf 0002 0001 | | .DBGLEN 0x0002,0x0001
02d1 012b 0131 | + 1| .DBGLNO 0x012b,0x0131,0x0137
02d4 ; --------------------------------------------------------------------------------------
02d4 ; Debug chain
02d4 ; --------------------------------------------------------------------------------------
02d4 0000 0001 | | .DBGLEN 0x0000,0x0001
02d6 014b | K | .DBGLNO 0x014b
02d7 ; --------------------------------------------------------------------------------------
02d7 ; Debug chain
02d7 ; --------------------------------------------------------------------------------------
02d7 0000 0001 | | .DBGLEN 0x0000,0x0001
02d9 0163 | c | .DBGLNO 0x0163
02da ; --------------------------------------------------------------------------------------
02da ; Debug chain
02da ; --------------------------------------------------------------------------------------
02da 0001 0004 | | .DBGLEN 0x0001,0x0004
02dc 0173 0180 | s | .DBGLNO 0x0173,0x0180,0x0186,0x018f,0x01a8
02e1 ; --------------------------------------------------------------------------------------
02e1 ; Debug chain
02e1 ; --------------------------------------------------------------------------------------
02e1 0001 0004 | | .DBGLEN 0x0001,0x0004
02e3 01b3 01be | | .DBGLNO 0x01b3,0x01be,0x01c3,0x01cc,0x01e5
02e8 ; --------------------------------------------------------------------------------------
02e8 ; Debug chain
02e8 ; --------------------------------------------------------------------------------------
02e8 0001 0001 | | .DBGLEN 0x0001,0x0001
02ea 01f3 01f5 | | .DBGLNO 0x01f3,0x01f5
02ec ; --------------------------------------------------------------------------------------
02ec ; Debug chain
02ec ; --------------------------------------------------------------------------------------
02ec 0002 0003 | | .DBGLEN 0x0002,0x0003
02ee 0203 020b | | .DBGLNO 0x0203,0x020b,0x021c,0x0221,0x022e
02f3 0000 0000 | | .BLANK 0000[0x10d]