|
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_664cf7
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0200 | | .CONST 0x0200 ; 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 01bb | | Declare_Subprogram INIT_01b8,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 0163 | c| Declare_Subprogram INIT_0160,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 00db | | Load_Top At_Offset_3
0134 0092 01f4 | | Action Push_String_Extended,0x1f4 ; "[ "
0136 8002 | | Call 0x0,0x2
0137 00cf | | Action Mark_Auxiliary
0138 00db | | Load_Top At_Offset_3
0139 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
013a 0aff | | Execute_Immediate Plus,-0x1
013b 4801 |H | Short_Literal 0x1
013c 0263 | c | Execute Discrete,Above_Bound
013d 700e |p | Jump_Nonzero 0x14c
013e e5fe | | Load 0x2,-0x2
013f 00d9 | | Load_Top At_Offset_1
0140 e5ff | | Load 0x2,-0x1
0141 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0142 01d7 | | Execute Vector,Field_Read
0143 00e0 | | Load_Encached Standard_Cache
0144 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0145 8002 | | Call 0x0,0x2
0146 e5fe | | Load 0x2,-0x2
0147 0092 01f5 | | Action Push_String_Extended,0x1f5 ; ", "
0149 8002 | | Call 0x0,0x2
014a 00c8 | | Action Pop_Auxiliary_Range
014b 3ff2 |? | Loop_Increasing 0x13e
014c 00ce | | Action Pop_Auxiliary
014d 00db | | Load_Top At_Offset_3
014e 00db | | Load_Top At_Offset_3
014f 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0150 e5ff | | Load 0x2,-0x1
0151 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0152 01d7 | | Execute Vector,Field_Read
0153 00e0 | | Load_Encached Standard_Cache
0154 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0155 8002 | | Call 0x0,0x2
0156 00db | | Load_Top At_Offset_3
0157 0092 01f6 | | Action Push_String_Extended,0x1f6 ; " ]"
0159 8002 | | Call 0x0,0x2
015a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
015b 0000 0000 | | .BLANK 0000[0x5]
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 00da | | Load_Top At_Offset_2
0164 e219 | | Load 0x1,0x19
0165 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0166 01d7 | | Execute Vector,Field_Read
0167 6048 |`H | Indirect_Literal Discrete,0x1b0,{0x00000000, 0x0000ffff}
0168 027c | | | Execute Discrete,Less
0169 680a |h | Jump_Zero 0x174
016a 00da | | Load_Top At_Offset_2
016b e219 | | Load 0x1,0x19
016c 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
016d 01d7 | | Execute Vector,Field_Read
016e 0a01 | | Execute_Immediate Plus,0x1
016f 00db | | Load_Top At_Offset_3
0170 e219 | | Load 0x1,0x19
0171 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0172 01d6 | | Execute Vector,Field_Write
0173 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0174 00da | | Load_Top At_Offset_2
0175 e218 | | Load 0x1,0x18
0176 027f | | Execute Discrete,Equal
0177 6829 |h) | Jump_Zero 0x1a1
0178 e218 | | Load 0x1,0x18
0179 0a01 | | Execute_Immediate Plus,0x1
017a c218 | | Store 0x1,0x18
017b e218 | | Load 0x1,0x18
017c e217 | | Load 0x1,0x17
017d 1c08 | | Execute_Immediate Run_Utility,0x8
017e 00d8 | | Load_Top At_Offset_0
017f 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0180 0335 | 5 | Declare_Variable Array,Duplicate
0181 00cd | | Action Spare6_Action
0182 00d9 | | Load_Top At_Offset_1
0183 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0184 01d9 | | Execute Vector,Reverse_Bounds
0185 0263 | c | Execute Discrete,Above_Bound
0186 7005 |p | Jump_Nonzero 0x18c
0187 4801 |H | Short_Literal 0x1
0188 00d9 | | Load_Top At_Offset_1
0189 e403 | | Load 0x2,0x3
018a 01d6 | | Execute Vector,Field_Write
018b 3ffb |? | Loop_Increasing 0x187
018c 00d9 | | Load_Top At_Offset_1
018d 00d8 | | Load_Top At_Offset_0
018e 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
018f 00da | | Load_Top At_Offset_2
0190 01da | | Execute Vector,Bounds
0191 00da | | Load_Top At_Offset_2
0192 01da | | Execute Vector,Bounds
0193 00da | | Load_Top At_Offset_2
0194 027f | | Execute Discrete,Equal
0195 7001 |p | Jump_Nonzero 0x197
0196 08e0 | | Execute_Immediate Raise,0xe0
0197 00cd | | Action Spare6_Action
0198 027f | | Execute Discrete,Equal
0199 7001 |p | Jump_Nonzero 0x19b
019a 08e0 | | Execute_Immediate Raise,0xe0
019b 00d2 | | Pop_Control Pop_Count_2
019c 00d9 | | Load_Top At_Offset_1
019d 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
019e e219 | | Load 0x1,0x19
019f 016d | m | Execute Variant_Record,Structure_Write
01a0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01a1 4801 |H | Short_Literal 0x1
01a2 00db | | Load_Top At_Offset_3
01a3 e219 | | Load 0x1,0x19
01a4 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
01a5 01d6 | | Execute Vector,Field_Write
01a6 00da | | Load_Top At_Offset_2
01a7 0a01 | | Execute_Immediate Plus,0x1
01a8 00d8 | | Load_Top At_Offset_0
01a9 e20d | | Load 0x1,0xd
01aa 0260 | ` | Execute Discrete,In_Type
01ab 7001 |p | Jump_Nonzero 0x1ad
01ac 0801 | | Execute_Immediate Raise,0x1
01ad 821a | | Call 0x1,0x1a
01ae 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01af 0000 | | .XXX[0x1]
01b0 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
01b4 0000 0000 | | .BLANK 0000[0x4]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb 4609 |F | Jump_Case 0xa
01bc 7809 |x | Jump 0x1c6 ; case 0x0
01bd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
01be 7813 |x | Jump 0x1d2 ; case 0x2
01bf 7816 |x | Jump 0x1d6 ; case 0x3
01c0 7832 |x2 | Jump 0x1f3 ; case 0x4
01c1 7831 |x1 | Jump 0x1f3 ; case 0x5
01c2 7830 |x0 | Jump 0x1f3 ; case 0x6
01c3 7818 |x | Jump 0x1dc ; case 0x7
01c4 7820 |x | Jump 0x1e5 ; case 0x8
01c5 7829 |x) | Jump 0x1ef ; case 0x9
01c6 00da | | Load_Top At_Offset_2
01c7 016c | l | Execute Variant_Record,Is_Constrained
01c8 7008 |p | Jump_Nonzero 0x1d1
01c9 00cf | | Action Mark_Auxiliary
01ca 4800 |H | Short_Literal 0x0
01cb e5ff | | Load 0x2,-0x1
01cc 1c08 | | Execute_Immediate Run_Utility,0x8
01cd 00d8 | | Load_Top At_Offset_0
01ce 1c00 | | Execute_Immediate Run_Utility,0x0
01cf c5ff | | Store 0x2,-0x1
01d0 00ce | | Action Pop_Auxiliary
01d1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01d2 4801 |H | Short_Literal 0x1
01d3 4802 |H | Short_Literal 0x2
01d4 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
01d5 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01d6 e5fd | | Load 0x2,-0x3
01d7 00db | | Load_Top At_Offset_3
01d8 1c07 | | Execute_Immediate Run_Utility,0x7
01d9 e5fe | | Load 0x2,-0x2
01da 0306 | | Complete_Type Variant_Record,By_Renaming
01db 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
01dc 00db | | Load_Top At_Offset_3
01dd 4801 |H | Short_Literal 0x1
01de e5fe | | Load 0x2,-0x2
01df e216 | | Load 0x1,0x16
01e0 035b | [ | Declare_Type Array,Constrained
01e1 4801 |H | Short_Literal 0x1
01e2 e5ff | | Load 0x2,-0x1
01e3 031b | | Declare_Type Variant_Record,Constrained
01e4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01e5 00db | | Load_Top At_Offset_3
01e6 00db | | Load_Top At_Offset_3
01e7 02fc | | Declare_Variable Variant_Record,With_Constraint
01e8 4801 |H | Short_Literal 0x1
01e9 e5fe | | Load 0x2,-0x2
01ea e216 | | Load 0x1,0x16
01eb 0334 | 4 | Declare_Variable Array,With_Constraint
01ec 2d02 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x2
01ed 016a | j | QQ_execute Variant_Record,XXX
01ee 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01ef 4800 |H | Short_Literal 0x0
01f0 00db | | Load_Top At_Offset_3
01f1 1c07 | | Execute_Immediate Run_Utility,0x7
01f2 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01f3 0869 | i | Execute_Immediate Raise,0x69
01f4 ; --------------------------------------------------------------------------------------
01f4 ; STRING TABLE
01f4 ; --------------------------------------------------------------------------------------
01f4 0008 | | .STRTAB 0x0008->0x01f8 ; "[ "
01f5 0008 | | .STRTAB 0x0008->0x01f9 ; ", "
01f6 0008 | | .STRTAB 0x0008->0x01fa ; " ]"
01f7 0008 | | .STREND 0x0008->0x01fb
01f8 5b20 2c20 |[ , | .STRTAB_STRINGS
01fb 0000 0000 | | .BLANK 0000[0x5]
0200 ; --------------------------------------------------------------------------------------
0200 ; Debug Table
0200 ; --------------------------------------------------------------------------------------
0200 0004 0006 | | .DEBUG4 0x0004,0x0006,0xad97,0x0000,0x0001,0x000a
0206 000b 022e | .| .DBG4T 0x000b,0x022e,0x8000,0x0000
020a 005c 023e | \ >| .DBG4T 0x005c,0x023e,0x8000,0x0000
020e 007b 024a | { J| .DBG4T 0x007b,0x024a,0x0002,0x0000
0212 00bb 0257 | W| .DBG4T 0x00bb,0x0257,0x0002,0x0000
0216 00f3 0264 | d| .DBG4T 0x00f3,0x0264,0x0001,0x0000
021a 0123 0268 | # h| .DBG4T 0x0123,0x0268,0x0001,0x0000
021e 012b 026b | + k| .DBG4T 0x012b,0x026b,0x0001,0x0000
0222 0133 026e | 3 n| .DBG4T 0x0133,0x026e,0x0001,0x0000
0226 0163 0276 | c v| .DBG4T 0x0163,0x0276,0x0001,0x0000
022a 01bb 0000 | | .DBG4T 0x01bb,0x0000,0x0005,0x0000
022e ; --------------------------------------------------------------------------------------
022e ; Debug chain
022e ; --------------------------------------------------------------------------------------
022e 000e 0000 | | .DBGLEN 0x000e,0x0000
0230 000b 000f | | .DBGLNO 0x000b,0x000f,0x0010,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001e,0x0022,0x0028,0x0036
023e ; --------------------------------------------------------------------------------------
023e ; Debug chain
023e ; --------------------------------------------------------------------------------------
023e 0009 0001 | | .DBGLEN 0x0009,0x0001
0240 005c 005e | \ ^| .DBGLNO 0x005c,0x005e,0x0062,0x0064,0x0066,0x0068,0x006a,0x006c,0x006e,0x0070
024a ; --------------------------------------------------------------------------------------
024a ; Debug chain
024a ; --------------------------------------------------------------------------------------
024a 0000 000b | | .DBGLEN 0x0000,0x000b
024c 007b 0081 | { | .DBGLNO 0x007b,0x0081,0x0083,0x0089,0x008c,0x0091,0x009b,0x009d,0x00a7,0x00a9,0x00ad
0257 ; --------------------------------------------------------------------------------------
0257 ; Debug chain
0257 ; --------------------------------------------------------------------------------------
0257 0000 000b | | .DBGLEN 0x0000,0x000b
0259 00bb 00c1 | | .DBGLNO 0x00bb,0x00c1,0x00c3,0x00c9,0x00cc,0x00d1,0x00db,0x00dd,0x00e7,0x00e9,0x00ed
0264 ; --------------------------------------------------------------------------------------
0264 ; Debug chain
0264 ; --------------------------------------------------------------------------------------
0264 0000 0002 | | .DBGLEN 0x0000,0x0002
0266 00f3 00f5 | | .DBGLNO 0x00f3,0x00f5
0268 ; --------------------------------------------------------------------------------------
0268 ; Debug chain
0268 ; --------------------------------------------------------------------------------------
0268 0000 0001 | | .DBGLEN 0x0000,0x0001
026a 0123 | # | .DBGLNO 0x0123
026b ; --------------------------------------------------------------------------------------
026b ; Debug chain
026b ; --------------------------------------------------------------------------------------
026b 0000 0001 | | .DBGLEN 0x0000,0x0001
026d 012b | + | .DBGLNO 0x012b
026e ; --------------------------------------------------------------------------------------
026e ; Debug chain
026e ; --------------------------------------------------------------------------------------
026e 0000 0006 | | .DBGLEN 0x0000,0x0006
0270 0133 0138 | 3 8| .DBGLNO 0x0133,0x0138,0x013e,0x0146,0x014d,0x0156
0276 ; --------------------------------------------------------------------------------------
0276 ; Debug chain
0276 ; --------------------------------------------------------------------------------------
0276 0000 0007 | | .DBGLEN 0x0000,0x0007
0278 0163 016a | c j| .DBGLNO 0x0163,0x016a,0x0174,0x0178,0x017b,0x01a1,0x01a6
027f 0000 0000 | | .BLANK 0000[0x181]