|
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_2f30f2
└─⟦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 01f0 | | .CONST 0x01f0 ; 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 0070 | p | .CONST 0x0070 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001a | | .CONST 0x001a ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 480a |H | Short_Literal 0xa
000d 00e3 | | Load_Encached Natural_Cache
000e 03f9 | | Declare_Type Discrete,Constrained,Visible
000f 0007 | | Action Break_Optional
0010 00c4 | | Action Make_Default
0011 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
0013 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated
0015 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated
0017 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated
0019 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated
001b 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated
001d 0007 | | Action Break_Optional
001e 4800 |H | Short_Literal 0x0
001f 6090 |` | Indirect_Literal Discrete,0xb0,{0x00000000, 0x0000ffff}
0020 00e5 | | Load_Encached Long_Integer_Cache
0021 03f9 | | Declare_Type Discrete,Constrained,Visible
0022 e20d | | Load 0x1,0xd
0023 0266 | f | Execute Discrete,Bounds
0024 00da | | Load_Top At_Offset_2
0025 02a0 | | Declare_Subprogram Null_Subprogram
0026 4801 |H | Short_Literal 0x1
0027 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0028 e20d | | Load 0x1,0xd
0029 4801 |H | Short_Literal 0x1
002a 480a |H | Short_Literal 0xa
002b 00db | | Load_Top At_Offset_3
002c 034f | O | Declare_Type Array,Constrained,Visible,Bounds_With_Object
002d 029f 01b3 | | Declare_Subprogram INIT_01b0,For_Call
002f 4800 |H | Short_Literal 0x0
0030 4801 |H | Short_Literal 0x1
0031 4800 |H | Short_Literal 0x0
0032 4800 |H | Short_Literal 0x0
0033 4801 |H | Short_Literal 0x1
0034 4801 |H | Short_Literal 0x1
0035 031e | | Declare_Type Variant_Record,Defined,Visible
0036 4800 |H | Short_Literal 0x0
0037 00d9 | | Load_Top At_Offset_1
0038 1c08 | | Execute_Immediate Run_Utility,0x8
0039 00d8 | | Load_Top At_Offset_0
003a 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
003b 0335 | 5 | Declare_Variable Array,Duplicate
003c 00cd | | Action Spare6_Action
003d 00d9 | | Load_Top At_Offset_1
003e 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
003f 01d9 | | Execute Vector,Reverse_Bounds
0040 0263 | c | Execute Discrete,Above_Bound
0041 7005 |p | Jump_Nonzero 0x47
0042 4801 |H | Short_Literal 0x1
0043 00d9 | | Load_Top At_Offset_1
0044 e219 | | Load 0x1,0x19
0045 01d6 | | Execute Vector,Field_Write
0046 3ffb |? | Loop_Increasing 0x42
0047 00d9 | | Load_Top At_Offset_1
0048 00d8 | | Load_Top At_Offset_0
0049 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
004a 00da | | Load_Top At_Offset_2
004b 01da | | Execute Vector,Bounds
004c 00da | | Load_Top At_Offset_2
004d 01da | | Execute Vector,Bounds
004e 00da | | Load_Top At_Offset_2
004f 027f | | Execute Discrete,Equal
0050 7001 |p | Jump_Nonzero 0x52
0051 08e0 | | Execute_Immediate Raise,0xe0
0052 00cd | | Action Spare6_Action
0053 027f | | Execute Discrete,Equal
0054 7001 |p | Jump_Nonzero 0x56
0055 08e0 | | Execute_Immediate Raise,0xe0
0056 00d2 | | Pop_Control Pop_Count_2
0057 00d9 | | Load_Top At_Offset_1
0058 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
0059 0129 | ) | Execute Any,Make_Visible
005a c20e | | Store 0x1,0xe
005b 00bf | | Action Accept_Activation
005c e20d | | Load 0x1,0xd
005d 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
005e 00d9 | | Load_Top At_Offset_1
005f 02ff | | Declare_Variable Variant_Record
0060 00d8 | | Load_Top At_Offset_0
0061 1c00 | | Execute_Immediate Run_Utility,0x0
0062 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0063 00c7 | | Action Elaborate_Subprogram
0064 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0065 00c7 | | Action Elaborate_Subprogram
0066 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0067 00c7 | | Action Elaborate_Subprogram
0068 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0069 00c7 | | Action Elaborate_Subprogram
006a 029d 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call
006c 1d13 | | Execute_Immediate Reference_Lex_1,0x13
006d 00c7 | | Action Elaborate_Subprogram
006e 1d14 | | Execute_Immediate Reference_Lex_1,0x14
006f 00c7 | | Action Elaborate_Subprogram
0070 BODY_0008:
0070 8211 | | Call 0x1,0x11
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 00da | | Load_Top At_Offset_2
007c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
007d e5fe | | Load 0x2,-0x2
007e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
007f 027c | | | Execute Discrete,Less
0080 6802 |h | Jump_Zero 0x83
0081 4801 |H | Short_Literal 0x1
0082 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0083 00da | | Load_Top At_Offset_2
0084 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0085 e5fe | | Load 0x2,-0x2
0086 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0087 027d | } | Execute Discrete,Greater
0088 6802 |h | Jump_Zero 0x8b
0089 4800 |H | Short_Literal 0x0
008a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
008b 00cf | | Action Mark_Auxiliary
008c 4801 |H | Short_Literal 0x1
008d e5ff | | Load 0x2,-0x1
008e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
008f 0264 | d | Execute Discrete,Below_Bound
0090 701b |p | Jump_Nonzero 0xac
0091 00d8 | | Load_Top At_Offset_0
0092 e5ff | | Load 0x2,-0x1
0093 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0094 01d7 | | Execute Vector,Field_Read
0095 00d9 | | Load_Top At_Offset_1
0096 e5fe | | Load 0x2,-0x2
0097 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0098 01d7 | | Execute Vector,Field_Read
0099 027c | | | Execute Discrete,Less
009a 6802 |h | Jump_Zero 0x9d
009b 4801 |H | Short_Literal 0x1
009c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
009d 00d8 | | Load_Top At_Offset_0
009e e5ff | | Load 0x2,-0x1
009f 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
00a0 01d7 | | Execute Vector,Field_Read
00a1 00d9 | | Load_Top At_Offset_1
00a2 e5fe | | Load 0x2,-0x2
00a3 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
00a4 01d7 | | Execute Vector,Field_Read
00a5 027d | } | Execute Discrete,Greater
00a6 6802 |h | Jump_Zero 0xa9
00a7 4800 |H | Short_Literal 0x0
00a8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00a9 0008 | | Action Idle
00aa 00c8 | | Action Pop_Auxiliary_Range
00ab 37e5 |7 | Loop_Decreasing 0x91
00ac 00ce | | Action Pop_Auxiliary
00ad 4800 |H | Short_Literal 0x0
00ae 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00af 0000 | | .XXX[0x1]
00b0 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
00b4 0000 0000 | | .BLANK 0000[0x4]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb | | .CONST 0x00bb ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0001 | | .CONST 0x0001 ; Number of locals
00bb BODY_00b8:
00bb INIT_00b8:
00bb 00da | | Load_Top At_Offset_2
00bc 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00bd e5fe | | Load 0x2,-0x2
00be 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00bf 027d | } | Execute Discrete,Greater
00c0 6802 |h | Jump_Zero 0xc3
00c1 4801 |H | Short_Literal 0x1
00c2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00c3 00da | | Load_Top At_Offset_2
00c4 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00c5 e5fe | | Load 0x2,-0x2
00c6 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00c7 027c | | | Execute Discrete,Less
00c8 6802 |h | Jump_Zero 0xcb
00c9 4800 |H | Short_Literal 0x0
00ca 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00cb 00cf | | Action Mark_Auxiliary
00cc 4801 |H | Short_Literal 0x1
00cd e5ff | | Load 0x2,-0x1
00ce 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00cf 0264 | d | Execute Discrete,Below_Bound
00d0 701b |p | Jump_Nonzero 0xec
00d1 00d8 | | Load_Top At_Offset_0
00d2 e5ff | | Load 0x2,-0x1
00d3 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
00d4 01d7 | | Execute Vector,Field_Read
00d5 00d9 | | Load_Top At_Offset_1
00d6 e5fe | | Load 0x2,-0x2
00d7 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
00d8 01d7 | | Execute Vector,Field_Read
00d9 027d | } | Execute Discrete,Greater
00da 6802 |h | Jump_Zero 0xdd
00db 4801 |H | Short_Literal 0x1
00dc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00dd 00d8 | | Load_Top At_Offset_0
00de e5ff | | Load 0x2,-0x1
00df 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
00e0 01d7 | | Execute Vector,Field_Read
00e1 00d9 | | Load_Top At_Offset_1
00e2 e5fe | | Load 0x2,-0x2
00e3 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
00e4 01d7 | | Execute Vector,Field_Read
00e5 027c | | | Execute Discrete,Less
00e6 6802 |h | Jump_Zero 0xe9
00e7 4800 |H | Short_Literal 0x0
00e8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00e9 0008 | | Action Idle
00ea 00c8 | | Action Pop_Auxiliary_Range
00eb 37e5 |7 | Loop_Decreasing 0xd1
00ec 00ce | | Action Pop_Auxiliary
00ed 4800 |H | Short_Literal 0x0
00ee 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00ef 0000 | | .XXX[0x1]
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 4801 |H | Short_Literal 0x1
00f4 a218 | | Store_Unchecked 0x1,0x18
00f5 e218 | | Load 0x1,0x18
00f6 e217 | | Load 0x1,0x17
00f7 1c08 | | Execute_Immediate Run_Utility,0x8
00f8 00d8 | | Load_Top At_Offset_0
00f9 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
00fa 0335 | 5 | Declare_Variable Array,Duplicate
00fb 00cd | | Action Spare6_Action
00fc 00d9 | | Load_Top At_Offset_1
00fd 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
00fe 01d9 | | Execute Vector,Reverse_Bounds
00ff 0263 | c | Execute Discrete,Above_Bound
0100 7005 |p | Jump_Nonzero 0x106
0101 4801 |H | Short_Literal 0x1
0102 00d9 | | Load_Top At_Offset_1
0103 e403 | | Load 0x2,0x3
0104 01d6 | | Execute Vector,Field_Write
0105 3ffb |? | Loop_Increasing 0x101
0106 00d9 | | Load_Top At_Offset_1
0107 00d8 | | Load_Top At_Offset_0
0108 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0109 00da | | Load_Top At_Offset_2
010a 01da | | Execute Vector,Bounds
010b 00da | | Load_Top At_Offset_2
010c 01da | | Execute Vector,Bounds
010d 00da | | Load_Top At_Offset_2
010e 027f | | Execute Discrete,Equal
010f 7001 |p | Jump_Nonzero 0x111
0110 08e0 | | Execute_Immediate Raise,0xe0
0111 00cd | | Action Spare6_Action
0112 027f | | Execute Discrete,Equal
0113 7001 |p | Jump_Nonzero 0x115
0114 08e0 | | Execute_Immediate Raise,0xe0
0115 00d2 | | Pop_Control Pop_Count_2
0116 00d9 | | Load_Top At_Offset_1
0117 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
0118 e219 | | Load 0x1,0x19
0119 016d | m | Execute Variant_Record,Structure_Write
011a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
011b 0000 0000 | | .BLANK 0000[0x5]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 e219 | | Load 0x1,0x19
0124 00db | | Load_Top At_Offset_3
0125 016d | m | Execute Variant_Record,Structure_Write
0126 4501 |E | Exit_Suprogram New_Top_Offset 0x1
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 4801 |H | Short_Literal 0x1
012c 821a | | Call 0x1,0x1a
012d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
012e 0000 0000 | | .XXX[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 00cf | | Action Mark_Auxiliary
0134 00db | | Load_Top At_Offset_3
0135 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0136 0aff | | Execute_Immediate Plus,-0x1
0137 4801 |H | Short_Literal 0x1
0138 0263 | c | Execute Discrete,Above_Bound
0139 700e |p | Jump_Nonzero 0x148
013a e5fe | | Load 0x2,-0x2
013b 00d9 | | Load_Top At_Offset_1
013c e5ff | | Load 0x2,-0x1
013d 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
013e 01d7 | | Execute Vector,Field_Read
013f 00e0 | | Load_Encached Standard_Cache
0140 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0141 8002 | | Call 0x0,0x2
0142 e5fe | | Load 0x2,-0x2
0143 0092 01ec | | Action Push_String_Extended,0x1ec ; ", "
0145 8002 | | Call 0x0,0x2
0146 00c8 | | Action Pop_Auxiliary_Range
0147 3ff2 |? | Loop_Increasing 0x13a
0148 00ce | | Action Pop_Auxiliary
0149 00db | | Load_Top At_Offset_3
014a 00db | | Load_Top At_Offset_3
014b 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
014c e5ff | | Load 0x2,-0x1
014d 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
014e 01d7 | | Execute Vector,Field_Read
014f 00e0 | | Load_Encached Standard_Cache
0150 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0151 8002 | | Call 0x0,0x2
0152 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0153 0000 0000 | | .BLANK 0000[0x5]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b 00da | | Load_Top At_Offset_2
015c e219 | | Load 0x1,0x19
015d 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
015e 01d7 | | Execute Vector,Field_Read
015f 6048 |`H | Indirect_Literal Discrete,0x1a8,{0x00000000, 0x0000ffff}
0160 027c | | | Execute Discrete,Less
0161 680a |h | Jump_Zero 0x16c
0162 00da | | Load_Top At_Offset_2
0163 e219 | | Load 0x1,0x19
0164 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0165 01d7 | | Execute Vector,Field_Read
0166 0a01 | | Execute_Immediate Plus,0x1
0167 00db | | Load_Top At_Offset_3
0168 e219 | | Load 0x1,0x19
0169 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
016a 01d6 | | Execute Vector,Field_Write
016b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
016c 00da | | Load_Top At_Offset_2
016d e218 | | Load 0x1,0x18
016e 027f | | Execute Discrete,Equal
016f 6829 |h) | Jump_Zero 0x199
0170 e218 | | Load 0x1,0x18
0171 0a01 | | Execute_Immediate Plus,0x1
0172 c218 | | Store 0x1,0x18
0173 e218 | | Load 0x1,0x18
0174 e217 | | Load 0x1,0x17
0175 1c08 | | Execute_Immediate Run_Utility,0x8
0176 00d8 | | Load_Top At_Offset_0
0177 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0178 0335 | 5 | Declare_Variable Array,Duplicate
0179 00cd | | Action Spare6_Action
017a 00d9 | | Load_Top At_Offset_1
017b 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
017c 01d9 | | Execute Vector,Reverse_Bounds
017d 0263 | c | Execute Discrete,Above_Bound
017e 7005 |p | Jump_Nonzero 0x184
017f 4801 |H | Short_Literal 0x1
0180 00d9 | | Load_Top At_Offset_1
0181 e403 | | Load 0x2,0x3
0182 01d6 | | Execute Vector,Field_Write
0183 3ffb |? | Loop_Increasing 0x17f
0184 00d9 | | Load_Top At_Offset_1
0185 00d8 | | Load_Top At_Offset_0
0186 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0187 00da | | Load_Top At_Offset_2
0188 01da | | Execute Vector,Bounds
0189 00da | | Load_Top At_Offset_2
018a 01da | | Execute Vector,Bounds
018b 00da | | Load_Top At_Offset_2
018c 027f | | Execute Discrete,Equal
018d 7001 |p | Jump_Nonzero 0x18f
018e 08e0 | | Execute_Immediate Raise,0xe0
018f 00cd | | Action Spare6_Action
0190 027f | | Execute Discrete,Equal
0191 7001 |p | Jump_Nonzero 0x193
0192 08e0 | | Execute_Immediate Raise,0xe0
0193 00d2 | | Pop_Control Pop_Count_2
0194 00d9 | | Load_Top At_Offset_1
0195 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
0196 e219 | | Load 0x1,0x19
0197 016d | m | Execute Variant_Record,Structure_Write
0198 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0199 4801 |H | Short_Literal 0x1
019a 00db | | Load_Top At_Offset_3
019b e219 | | Load 0x1,0x19
019c 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
019d 01d6 | | Execute Vector,Field_Write
019e 00da | | Load_Top At_Offset_2
019f 0a01 | | Execute_Immediate Plus,0x1
01a0 00d8 | | Load_Top At_Offset_0
01a1 e20d | | Load 0x1,0xd
01a2 0260 | ` | Execute Discrete,In_Type
01a3 7001 |p | Jump_Nonzero 0x1a5
01a4 0801 | | Execute_Immediate Raise,0x1
01a5 821a | | Call 0x1,0x1a
01a6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01a7 0000 | | .XXX[0x1]
01a8 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
01ac 0000 0000 | | .BLANK 0000[0x4]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3 | | .CONST 0x01b3 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0001 | | .CONST 0x0001 ; Number of locals
01b3 BODY_01b0:
01b3 INIT_01b0:
01b3 4609 |F | Jump_Case 0xa
01b4 7809 |x | Jump 0x1be ; case 0x0
01b5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
01b6 7813 |x | Jump 0x1ca ; case 0x2
01b7 7816 |x | Jump 0x1ce ; case 0x3
01b8 7832 |x2 | Jump 0x1eb ; case 0x4
01b9 7831 |x1 | Jump 0x1eb ; case 0x5
01ba 7830 |x0 | Jump 0x1eb ; case 0x6
01bb 7818 |x | Jump 0x1d4 ; case 0x7
01bc 7820 |x | Jump 0x1dd ; case 0x8
01bd 7829 |x) | Jump 0x1e7 ; case 0x9
01be 00da | | Load_Top At_Offset_2
01bf 016c | l | Execute Variant_Record,Is_Constrained
01c0 7008 |p | Jump_Nonzero 0x1c9
01c1 00cf | | Action Mark_Auxiliary
01c2 4800 |H | Short_Literal 0x0
01c3 e5ff | | Load 0x2,-0x1
01c4 1c08 | | Execute_Immediate Run_Utility,0x8
01c5 00d8 | | Load_Top At_Offset_0
01c6 1c00 | | Execute_Immediate Run_Utility,0x0
01c7 c5ff | | Store 0x2,-0x1
01c8 00ce | | Action Pop_Auxiliary
01c9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01ca 4801 |H | Short_Literal 0x1
01cb 4802 |H | Short_Literal 0x2
01cc 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
01cd 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01ce e5fd | | Load 0x2,-0x3
01cf 00db | | Load_Top At_Offset_3
01d0 1c07 | | Execute_Immediate Run_Utility,0x7
01d1 e5fe | | Load 0x2,-0x2
01d2 0306 | | Complete_Type Variant_Record,By_Renaming
01d3 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
01d4 00db | | Load_Top At_Offset_3
01d5 4801 |H | Short_Literal 0x1
01d6 e5fe | | Load 0x2,-0x2
01d7 e216 | | Load 0x1,0x16
01d8 035b | [ | Declare_Type Array,Constrained
01d9 4801 |H | Short_Literal 0x1
01da e5ff | | Load 0x2,-0x1
01db 031b | | Declare_Type Variant_Record,Constrained
01dc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01dd 00db | | Load_Top At_Offset_3
01de 00db | | Load_Top At_Offset_3
01df 02fc | | Declare_Variable Variant_Record,With_Constraint
01e0 4801 |H | Short_Literal 0x1
01e1 e5fe | | Load 0x2,-0x2
01e2 e216 | | Load 0x1,0x16
01e3 0334 | 4 | Declare_Variable Array,With_Constraint
01e4 2d02 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x2
01e5 016a | j | QQ_execute Variant_Record,XXX
01e6 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01e7 4800 |H | Short_Literal 0x0
01e8 00db | | Load_Top At_Offset_3
01e9 1c07 | | Execute_Immediate Run_Utility,0x7
01ea 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01eb 0869 | i | Execute_Immediate Raise,0x69
01ec ; --------------------------------------------------------------------------------------
01ec ; STRING TABLE
01ec ; --------------------------------------------------------------------------------------
01ec 0004 | | .STRTAB 0x0004->0x01ee ; ", "
01ed 0004 | | .STREND 0x0004->0x01ef
01ee 2c20 |, | .STRTAB_STRINGS
01ef 0000 | | .XXX[0x1]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; Debug Table
01f0 ; --------------------------------------------------------------------------------------
01f0 0004 0008 | | .DEBUG4 0x0004,0x0008,0xfb2b,0x0000,0x0001,0x000a
01f6 000b 021e | | .DBG4T 0x000b,0x021e,0x8000,0x0000
01fa 005c 022e | \ .| .DBG4T 0x005c,0x022e,0x8000,0x0000
01fe 007b 023a | { :| .DBG4T 0x007b,0x023a,0x0002,0x0000
0202 00bb 0247 | G| .DBG4T 0x00bb,0x0247,0x0002,0x0000
0206 00f3 0254 | T| .DBG4T 0x00f3,0x0254,0x0001,0x0000
020a 0123 0258 | # X| .DBG4T 0x0123,0x0258,0x0001,0x0000
020e 012b 025b | + [| .DBG4T 0x012b,0x025b,0x0001,0x0000
0212 0133 025e | 3 ^| .DBG4T 0x0133,0x025e,0x0001,0x0000
0216 015b 0264 | [ d| .DBG4T 0x015b,0x0264,0x0001,0x0000
021a 01b3 0000 | | .DBG4T 0x01b3,0x0000,0x0005,0x0000
021e ; --------------------------------------------------------------------------------------
021e ; Debug chain
021e ; --------------------------------------------------------------------------------------
021e 000e 0000 | | .DBGLEN 0x000e,0x0000
0220 000b 000f | | .DBGLNO 0x000b,0x000f,0x0010,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001e,0x0022,0x0028,0x0036
022e ; --------------------------------------------------------------------------------------
022e ; Debug chain
022e ; --------------------------------------------------------------------------------------
022e 0009 0001 | | .DBGLEN 0x0009,0x0001
0230 005c 005e | \ ^| .DBGLNO 0x005c,0x005e,0x0062,0x0064,0x0066,0x0068,0x006a,0x006c,0x006e,0x0070
023a ; --------------------------------------------------------------------------------------
023a ; Debug chain
023a ; --------------------------------------------------------------------------------------
023a 0000 000b | | .DBGLEN 0x0000,0x000b
023c 007b 0081 | { | .DBGLNO 0x007b,0x0081,0x0083,0x0089,0x008c,0x0091,0x009b,0x009d,0x00a7,0x00a9,0x00ad
0247 ; --------------------------------------------------------------------------------------
0247 ; Debug chain
0247 ; --------------------------------------------------------------------------------------
0247 0000 000b | | .DBGLEN 0x0000,0x000b
0249 00bb 00c1 | | .DBGLNO 0x00bb,0x00c1,0x00c3,0x00c9,0x00cc,0x00d1,0x00db,0x00dd,0x00e7,0x00e9,0x00ed
0254 ; --------------------------------------------------------------------------------------
0254 ; Debug chain
0254 ; --------------------------------------------------------------------------------------
0254 0000 0002 | | .DBGLEN 0x0000,0x0002
0256 00f3 00f5 | | .DBGLNO 0x00f3,0x00f5
0258 ; --------------------------------------------------------------------------------------
0258 ; Debug chain
0258 ; --------------------------------------------------------------------------------------
0258 0000 0001 | | .DBGLEN 0x0000,0x0001
025a 0123 | # | .DBGLNO 0x0123
025b ; --------------------------------------------------------------------------------------
025b ; Debug chain
025b ; --------------------------------------------------------------------------------------
025b 0000 0001 | | .DBGLEN 0x0000,0x0001
025d 012b | + | .DBGLNO 0x012b
025e ; --------------------------------------------------------------------------------------
025e ; Debug chain
025e ; --------------------------------------------------------------------------------------
025e 0000 0004 | | .DBGLEN 0x0000,0x0004
0260 0134 013a | 4 :| .DBGLNO 0x0134,0x013a,0x0142,0x0149
0264 ; --------------------------------------------------------------------------------------
0264 ; Debug chain
0264 ; --------------------------------------------------------------------------------------
0264 0000 0007 | | .DBGLEN 0x0000,0x0007
0266 015b 0162 | [ b| .DBGLNO 0x015b,0x0162,0x016c,0x0170,0x0173,0x0199,0x019e
026d 0000 0000 | | .BLANK 0000[0x193]