|
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_0340e4
└─⟦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 0054 | T | .CONST 0x0054 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0018 | | .CONST 0x0018 ; Number of locals
000b INIT_0008:
000b 00e3 | | Load_Encached Natural_Cache
000c 4800 |H | Short_Literal 0x0
000d 4801 |H | Short_Literal 0x1
000e 4801 |H | Short_Literal 0x1
000f 4802 |H | Short_Literal 0x2
0010 0319 | | Declare_Type Variant_Record,Incomplete,Visible
0011 029f 021b | | Declare_Subprogram INIT_0218,For_Call
0013 00d9 | | Load_Top At_Offset_1
0014 012a | * | Execute Any,Change_Utility
0015 0007 | | Action Break_Optional
0016 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated
0018 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
001a e001 | | Load 0x0,0x1
001b 0129 | ) | Execute Any,Make_Visible
001c 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated
001e 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
0020 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated
0022 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated
0024 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
0026 e002 | | Load 0x0,0x2
0027 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0028 e002 | | Load 0x0,0x2
0029 1b4d | M | Execute Package,Field_Read,Field_Number 0x4d
002a 00e5 | | Load_Encached Long_Integer_Cache
002b 00e1 | | Load_Encached Boolean_Cache
002c 00e1 | | Load_Encached Boolean_Cache
002d 029f 01f3 | | Declare_Subprogram INIT_01f0,For_Call
002f 4805 |H | Short_Literal 0x5
0030 032d | - | Declare_Type Record,Defined
0031 00e3 | | Load_Encached Natural_Cache
0032 0266 | f | Execute Discrete,Bounds
0033 00da | | Load_Top At_Offset_2
0034 029f 01a3 | | Declare_Subprogram INIT_01a0,For_Call
0036 4801 |H | Short_Literal 0x1
0037 0350 | P | Declare_Type Array,Defined,Bounds_With_Object
0038 4801 |H | Short_Literal 0x1
0039 6062 |`b | Indirect_Literal Discrete,0x9c,{0x00000000, 0x7fffffff}
003a 00da | | Load_Top At_Offset_2
003b 034e | N | QQ_Declare_Type Array,Constrained,Bounds_With_Object
003c 029f 021b | | Declare_Subprogram INIT_0218,For_Call
003e 4800 |H | Short_Literal 0x0
003f 4801 |H | Short_Literal 0x1
0040 4800 |H | Short_Literal 0x0
0041 e20d | | Load 0x1,0xd
0042 0307 | | Complete_Type Variant_Record,By_Defining
0043 00bf | | Action Accept_Activation
0044 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0045 00c7 | | Action Elaborate_Subprogram
0046 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0047 00c7 | | Action Elaborate_Subprogram
0048 029d 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call
004a 1d11 | | Execute_Immediate Reference_Lex_1,0x11
004b 00c7 | | Action Elaborate_Subprogram
004c 1d12 | | Execute_Immediate Reference_Lex_1,0x12
004d 00c7 | | Action Elaborate_Subprogram
004e 1d13 | | Execute_Immediate Reference_Lex_1,0x13
004f 00c7 | | Action Elaborate_Subprogram
0050 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0051 00c7 | | Action Elaborate_Subprogram
0052 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0053 00c7 | | Action Elaborate_Subprogram
0054 BODY_0008:
0054 00bc | | Action Signal_Activated
0055 00bb | | Action Signal_Completion
0056 0000 0000 | | .XXX[0x2]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 006e | n | .CONST 0x006e ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0005 | | .CONST 0x0005 ; Number of locals
005b INIT_0058:
005b e002 | | Load 0x0,0x2
005c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
005d 02c7 | | Declare_Variable Any
005e 00db | | Load_Top At_Offset_3
005f e003 | | Load 0x0,0x3
0060 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0061 a402 | | Store_Unchecked 0x2,0x2
0062 e002 | | Load 0x0,0x2
0063 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0064 02c7 | | Declare_Variable Any
0065 00d8 | | Load_Top At_Offset_0
0066 1c00 | | Execute_Immediate Run_Utility,0x0
0067 e002 | | Load 0x0,0x2
0068 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0069 02c7 | | Declare_Variable Any
006a 00d8 | | Load_Top At_Offset_0
006b 1c00 | | Execute_Immediate Run_Utility,0x0
006c 00e3 | | Load_Encached Natural_Cache
006d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
006e BODY_0058:
006e 00cf | | Action Mark_Auxiliary
006f 7824 |x$ | Jump 0x94
0070 e402 | | Load 0x2,0x2
0071 e002 | | Load 0x0,0x2
0072 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0073 c403 | | Store 0x2,0x3
0074 00db | | Load_Top At_Offset_3
0075 e003 | | Load 0x0,0x3
0076 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0077 4801 |H | Short_Literal 0x1
0078 4802 |H | Short_Literal 0x2
0079 0262 | b | Execute Discrete,In_Range
007a 7014 |p | Jump_Nonzero 0x8f
007b 7800 |x | Jump 0x7c
007c 00db | | Load_Top At_Offset_3
007d e003 | | Load 0x0,0x3
007e 1817 | | Execute Package,Field_Execute,Field_Number 0x17
007f c404 | | Store 0x2,0x4
0080 00cf | | Action Mark_Auxiliary
0081 7808 |x | Jump 0x8a
0082 00da | | Load_Top At_Offset_2
0083 0a01 | | Execute_Immediate Plus,0x1
0084 005b | [ | Store_Top Discrete,At_Offset_3
0085 00db | | Load_Top At_Offset_3
0086 e002 | | Load 0x0,0x2
0087 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0088 c404 | | Store 0x2,0x4
0089 00c9 | | Action Pop_Auxiliary_Loop
008a 00db | | Load_Top At_Offset_3
008b e002 | | Load 0x0,0x2
008c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
008d 6ff4 |o | Jump_Zero 0x82
008e 00ce | | Action Pop_Auxiliary
008f e402 | | Load 0x2,0x2
0090 e002 | | Load 0x0,0x2
0091 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0092 c402 | | Store 0x2,0x2
0093 00c9 | | Action Pop_Auxiliary_Loop
0094 e402 | | Load 0x2,0x2
0095 e002 | | Load 0x0,0x2
0096 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0097 6fd8 |o | Jump_Zero 0x70
0098 00ce | | Action Pop_Auxiliary
0099 00d8 | | Load_Top At_Offset_0
009a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
009b 0000 | | .XXX[0x1]
009c 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00bf | | .CONST 0x00bf ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0007 | | .CONST 0x0007 ; Number of locals
00a3 INIT_00a0:
00a3 e002 | | Load 0x0,0x2
00a4 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00a5 02c7 | | Declare_Variable Any
00a6 00db | | Load_Top At_Offset_3
00a7 e003 | | Load 0x0,0x3
00a8 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00a9 a402 | | Store_Unchecked 0x2,0x2
00aa e002 | | Load 0x0,0x2
00ab 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ac 02c7 | | Declare_Variable Any
00ad 00d8 | | Load_Top At_Offset_0
00ae 1c00 | | Execute_Immediate Run_Utility,0x0
00af e002 | | Load 0x0,0x2
00b0 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00b1 02c7 | | Declare_Variable Any
00b2 00d8 | | Load_Top At_Offset_0
00b3 1c00 | | Execute_Immediate Run_Utility,0x0
00b4 e002 | | Load 0x0,0x2
00b5 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
00b6 02c7 | | Declare_Variable Any
00b7 00d8 | | Load_Top At_Offset_0
00b8 1c00 | | Execute_Immediate Run_Utility,0x0
00b9 00e4 | | Load_Encached Positive_Cache
00ba 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
00bb e216 | | Load 0x1,0x16
00bc 0322 | " | Declare_Variable Record
00bd 00d8 | | Load_Top At_Offset_0
00be 1c00 | | Execute_Immediate Run_Utility,0x0
00bf BODY_00a0:
00bf 00cf | | Action Mark_Auxiliary
00c0 7840 |x@ | Jump 0x101
00c1 e402 | | Load 0x2,0x2
00c2 e002 | | Load 0x0,0x2
00c3 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00c4 c403 | | Store 0x2,0x3
00c5 e403 | | Load 0x2,0x3
00c6 e003 | | Load 0x0,0x3
00c7 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00c8 4801 |H | Short_Literal 0x1
00c9 4802 |H | Short_Literal 0x2
00ca 0262 | b | Execute Discrete,In_Range
00cb 7030 |p0 | Jump_Nonzero 0xfc
00cc 7800 |x | Jump 0xcd
00cd e403 | | Load 0x2,0x3
00ce e003 | | Load 0x0,0x3
00cf 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00d0 c404 | | Store 0x2,0x4
00d1 00cf | | Action Mark_Auxiliary
00d2 7824 |x$ | Jump 0xf7
00d3 4801 |H | Short_Literal 0x1
00d4 e404 | | Load 0x2,0x4
00d5 e002 | | Load 0x0,0x2
00d6 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00d7 e002 | | Load 0x0,0x2
00d8 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
00d9 e003 | | Load 0x0,0x3
00da 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00db c405 | | Store 0x2,0x5
00dc e405 | | Load 0x2,0x5
00dd 00db | | Load_Top At_Offset_3
00de 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00df e404 | | Load 0x2,0x4
00e0 e002 | | Load 0x0,0x2
00e1 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00e2 00db | | Load_Top At_Offset_3
00e3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00e4 e405 | | Load 0x2,0x5
00e5 e002 | | Load 0x0,0x2
00e6 1b58 | X | Execute Package,Field_Read,Field_Number 0x58
00e7 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00e8 00db | | Load_Top At_Offset_3
00e9 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00ea 00da | | Load_Top At_Offset_2
00eb e406 | | Load 0x2,0x6
00ec e5fe | | Load 0x2,-0x2
00ed 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
00ee 01d6 | | Execute Vector,Field_Write
00ef 00db | | Load_Top At_Offset_3
00f0 0a01 | | Execute_Immediate Plus,0x1
00f1 c406 | | Store 0x2,0x6
00f2 e404 | | Load 0x2,0x4
00f3 e002 | | Load 0x0,0x2
00f4 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00f5 c404 | | Store 0x2,0x4
00f6 00c9 | | Action Pop_Auxiliary_Loop
00f7 e404 | | Load 0x2,0x4
00f8 e002 | | Load 0x0,0x2
00f9 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00fa 6fd8 |o | Jump_Zero 0xd3
00fb 00ce | | Action Pop_Auxiliary
00fc e402 | | Load 0x2,0x2
00fd e002 | | Load 0x0,0x2
00fe 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00ff c402 | | Store 0x2,0x2
0100 00c9 | | Action Pop_Auxiliary_Loop
0101 e402 | | Load 0x2,0x2
0102 e002 | | Load 0x0,0x2
0103 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0104 6fbc |o | Jump_Zero 0xc1
0105 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0106 0000 0000 | | .XXX[0x2]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 0120 | | .CONST 0x0120 ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0005 | | .CONST 0x0005 ; Number of locals
010b INIT_0108:
010b e002 | | Load 0x0,0x2
010c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
010d 02c7 | | Declare_Variable Any
010e 00db | | Load_Top At_Offset_3
010f e002 | | Load 0x0,0x2
0110 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0111 a402 | | Store_Unchecked 0x2,0x2
0112 e002 | | Load 0x0,0x2
0113 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0114 02c7 | | Declare_Variable Any
0115 4801 |H | Short_Literal 0x1
0116 e5ff | | Load 0x2,-0x1
0117 e002 | | Load 0x0,0x2
0118 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
0119 a403 | | Store_Unchecked 0x2,0x3
011a e002 | | Load 0x0,0x2
011b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
011c 02c7 | | Declare_Variable Any
011d 00d8 | | Load_Top At_Offset_0
011e 1c00 | | Execute_Immediate Run_Utility,0x0
011f 00e5 | | Load_Encached Long_Integer_Cache
0120 BODY_0108:
0120 00da | | Load_Top At_Offset_2
0121 e002 | | Load 0x0,0x2
0122 180f | | Execute Package,Field_Execute,Field_Number 0xf
0123 6801 |h | Jump_Zero 0x125
0124 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0125 00da | | Load_Top At_Offset_2
0126 e003 | | Load 0x0,0x3
0127 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0128 c404 | | Store 0x2,0x4
0129 00d9 | | Load_Top At_Offset_1
012a e002 | | Load 0x0,0x2
012b 1b58 | X | Execute Package,Field_Read,Field_Number 0x58
012c 181e | | Execute Package,Field_Execute,Field_Number 0x1e
012d 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
012e 00db | | Load_Top At_Offset_3
012f e002 | | Load 0x0,0x2
0130 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0131 4606 |F | Jump_Case 0x7
0132 7806 |x | Jump 0x139 ; case 0x0
0133 780b |x | Jump 0x13f ; case 0x1
0134 7815 |x | Jump 0x14a ; case 0x2
0135 7803 |x | Jump 0x139 ; case 0x3
0136 7802 |x | Jump 0x139 ; case 0x4
0137 7801 |x | Jump 0x139 ; case 0x5
0138 7800 |x | Jump 0x139 ; case 0x6
0139 e5fe | | Load 0x2,-0x2
013a 4800 |H | Short_Literal 0x0
013b 00da | | Load_Top At_Offset_2
013c 8218 | | Call 0x1,0x18
013d 00d1 | | Pop_Control Pop_Count_1
013e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
013f 00db | | Load_Top At_Offset_3
0140 e003 | | Load 0x0,0x3
0141 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0142 0f01 | | Execute_Immediate Equal,0x1
0143 6805 |h | Jump_Zero 0x149
0144 e5fe | | Load 0x2,-0x2
0145 4801 |H | Short_Literal 0x1
0146 00da | | Load_Top At_Offset_2
0147 8218 | | Call 0x1,0x18
0148 00d1 | | Pop_Control Pop_Count_1
0149 4502 |E | Exit_Suprogram New_Top_Offset 0x2
014a 00db | | Load_Top At_Offset_3
014b e004 | | Load 0x0,0x4
014c 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
014d 6806 |h | Jump_Zero 0x154
014e e5fe | | Load 0x2,-0x2
014f 4801 |H | Short_Literal 0x1
0150 00da | | Load_Top At_Offset_2
0151 8218 | | Call 0x1,0x18
0152 00d1 | | Pop_Control Pop_Count_1
0153 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0154 e5fe | | Load 0x2,-0x2
0155 4800 |H | Short_Literal 0x0
0156 00da | | Load_Top At_Offset_2
0157 8218 | | Call 0x1,0x18
0158 00d1 | | Pop_Control Pop_Count_1
0159 4502 |E | Exit_Suprogram New_Top_Offset 0x2
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 00da | | Load_Top At_Offset_2
0164 e5fe | | Load 0x2,-0x2
0165 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0166 01d5 | | Execute Vector,Field_Reference
0167 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0168 00d8 | | Load_Top At_Offset_0
0169 0120 | | Execute Any,Is_Value
016a 7002 |p | Jump_Nonzero 0x16d
016b 00d8 | | Load_Top At_Offset_0
016c 011e | | Execute Any,Convert
016d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
016e 0000 0000 | | .XXX[0x2]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 00da | | Load_Top At_Offset_2
0174 e5fe | | Load 0x2,-0x2
0175 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0176 01d5 | | Execute Vector,Field_Reference
0177 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0178 00d8 | | Load_Top At_Offset_0
0179 0120 | | Execute Any,Is_Value
017a 7002 |p | Jump_Nonzero 0x17d
017b 00d8 | | Load_Top At_Offset_0
017c 011e | | Execute Any,Convert
017d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
017e 0000 0000 | | .XXX[0x2]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183 | | .CONST 0x0183 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0001 | | .CONST 0x0001 ; Number of locals
0183 BODY_0180:
0183 INIT_0180:
0183 00da | | Load_Top At_Offset_2
0184 e5fe | | Load 0x2,-0x2
0185 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0186 01d5 | | Execute Vector,Field_Reference
0187 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0188 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0189 0000 0000 | | .BLANK 0000[0x7]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193 | | .CONST 0x0193 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0001 | | .CONST 0x0001 ; Number of locals
0193 BODY_0190:
0193 INIT_0190:
0193 00da | | Load_Top At_Offset_2
0194 e5fe | | Load 0x2,-0x2
0195 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0196 01d5 | | Execute Vector,Field_Reference
0197 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0198 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0199 0000 0000 | | .BLANK 0000[0x7]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3 | | .CONST 0x01a3 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0001 | | .CONST 0x0001 ; Number of locals
01a3 BODY_01a0:
01a3 INIT_01a0:
01a3 00d1 | | Pop_Control Pop_Count_1
01a4 00da | | Load_Top At_Offset_2
01a5 01dc | | Execute Vector,Last
01a6 00db | | Load_Top At_Offset_3
01a7 01dd | | Execute Vector,First
01a8 0263 | c | Execute Discrete,Above_Bound
01a9 7006 |p | Jump_Nonzero 0x1b0
01aa 00d8 | | Load_Top At_Offset_0
01ab e5ff | | Load 0x2,-0x1
01ac 01d5 | | Execute Vector,Field_Reference
01ad 1c00 | | Execute_Immediate Run_Utility,0x0
01ae 0a01 | | Execute_Immediate Plus,0x1
01af 7ff8 | | Jump 0x1a8
01b0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01b1 0000 0000 | | .BLANK 0000[0x7]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bd | | .CONST 0x01bd ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0002 | | .CONST 0x0002 ; Number of locals
01bb INIT_01b8:
01bb 00e1 | | Load_Encached Boolean_Cache
01bc 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
01bd BODY_01b8:
01bd 00cf | | Action Mark_Auxiliary
01be e5fd | | Load 0x2,-0x3
01bf 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01c0 4801 |H | Short_Literal 0x1
01c1 0263 | c | Execute Discrete,Above_Bound
01c2 7021 |p! | Jump_Nonzero 0x1e4
01c3 00d8 | | Load_Top At_Offset_0
01c4 e5fd | | Load 0x2,-0x3
01c5 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
01c6 01d5 | | Execute Vector,Field_Reference
01c7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01c8 e5ff | | Load 0x2,-0x1
01c9 027f | | Execute Discrete,Equal
01ca 680f |h | Jump_Zero 0x1da
01cb e5fe | | Load 0x2,-0x2
01cc 6807 |h | Jump_Zero 0x1d4
01cd 4801 |H | Short_Literal 0x1
01ce 00d9 | | Load_Top At_Offset_1
01cf e5fd | | Load 0x2,-0x3
01d0 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
01d1 01d5 | | Execute Vector,Field_Reference
01d2 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
01d3 7806 |x | Jump 0x1da
01d4 4801 |H | Short_Literal 0x1
01d5 00d9 | | Load_Top At_Offset_1
01d6 e5fd | | Load 0x2,-0x3
01d7 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
01d8 01d5 | | Execute Vector,Field_Reference
01d9 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01da 00db | | Load_Top At_Offset_3
01db 00d9 | | Load_Top At_Offset_1
01dc e5fd | | Load 0x2,-0x3
01dd 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
01de 01d5 | | Execute Vector,Field_Reference
01df 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01e0 0279 | y | Execute Discrete,And
01e1 a402 | | Store_Unchecked 0x2,0x2
01e2 00c8 | | Action Pop_Auxiliary_Range
01e3 3fdf |? | Loop_Increasing 0x1c3
01e4 00ce | | Action Pop_Auxiliary
01e5 00d8 | | Load_Top At_Offset_0
01e6 6802 |h | Jump_Zero 0x1e9
01e7 e210 | | Load 0x1,0x10
01e8 0257 | W | Execute Discrete,Raise
01e9 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01ea 0000 0000 | | .BLANK 0000[0x6]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3 | | .CONST 0x01f3 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0001 | | .CONST 0x0001 ; Number of locals
01f3 BODY_01f0:
01f3 INIT_01f0:
01f3 4608 |F | Jump_Case 0x9
01f4 7808 |x | Jump 0x1fd ; case 0x0
01f5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
01f6 7819 |x | Jump 0x210 ; case 0x2
01f7 7818 |x | Jump 0x210 ; case 0x3
01f8 7817 |x | Jump 0x210 ; case 0x4
01f9 7816 |x | Jump 0x210 ; case 0x5
01fa 7815 |x | Jump 0x210 ; case 0x6
01fb 7814 |x | Jump 0x210 ; case 0x7
01fc 7813 |x | Jump 0x210 ; case 0x8
01fd 00da | | Load_Top At_Offset_2
01fe 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01ff 0125 | % | Execute Any,Set_Constraint
0200 00da | | Load_Top At_Offset_2
0201 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0202 1c00 | | Execute_Immediate Run_Utility,0x0
0203 00da | | Load_Top At_Offset_2
0204 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0205 0125 | % | Execute Any,Set_Constraint
0206 00da | | Load_Top At_Offset_2
0207 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0208 1c00 | | Execute_Immediate Run_Utility,0x0
0209 4800 |H | Short_Literal 0x0
020a 00db | | Load_Top At_Offset_3
020b 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
020c 4800 |H | Short_Literal 0x0
020d 00db | | Load_Top At_Offset_3
020e 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
020f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0210 0869 | i | Execute_Immediate Raise,0x69
0211 0000 0000 | | .BLANK 0000[0x7]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b | | .CONST 0x021b ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0001 | | .CONST 0x0001 ; Number of locals
021b BODY_0218:
021b BODY_0218:
021b INIT_0218:
021b INIT_0218:
021b 4608 |F | Jump_Case 0x9
021c 7808 |x | Jump 0x225 ; case 0x0
021d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
021e 781d |x | Jump 0x23c ; case 0x2
021f 781c |x | Jump 0x23c ; case 0x3
0220 781b |x | Jump 0x23c ; case 0x4
0221 781a |x | Jump 0x23c ; case 0x5
0222 7819 |x | Jump 0x23c ; case 0x6
0223 7805 |x | Jump 0x229 ; case 0x7
0224 780d |x | Jump 0x232 ; case 0x8
0225 00da | | Load_Top At_Offset_2
0226 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0227 1c00 | | Execute_Immediate Run_Utility,0x0
0228 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0229 00db | | Load_Top At_Offset_3
022a 4801 |H | Short_Literal 0x1
022b e5fe | | Load 0x2,-0x2
022c e217 | | Load 0x1,0x17
022d 035b | [ | Declare_Type Array,Constrained
022e 4801 |H | Short_Literal 0x1
022f e5ff | | Load 0x2,-0x1
0230 031b | | Declare_Type Variant_Record,Constrained
0231 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0232 00db | | Load_Top At_Offset_3
0233 00db | | Load_Top At_Offset_3
0234 02fc | | Declare_Variable Variant_Record,With_Constraint
0235 4801 |H | Short_Literal 0x1
0236 e5fe | | Load 0x2,-0x2
0237 e217 | | Load 0x1,0x17
0238 0334 | 4 | Declare_Variable Array,With_Constraint
0239 2d02 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x2
023a 016a | j | QQ_execute Variant_Record,XXX
023b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
023c 0869 | i | Execute_Immediate Raise,0x69
023d 0000 0000 | | .XXX[0x3]
023f 0000 | |
0240 ; --------------------------------------------------------------------------------------
0240 ; Debug Table
0240 ; --------------------------------------------------------------------------------------
0240 0004 0004 | | .DEBUG4 0x0004,0x0004,0x2f2b,0x0000,0x0001,0x000d
0246 000b 027a | z| .DBG4T 0x000b,0x027a,0x8000,0x0000
024a 0044 0288 | D | .DBG4T 0x0044,0x0288,0x8000,0x8000
024e 005b 029a | [ | .DBG4T 0x005b,0x029a,0x0002,0x4000
0252 00a3 02b2 | | .DBG4T 0x00a3,0x02b2,0x0001,0x4000
0256 010b 02d4 | | .DBG4T 0x010b,0x02d4,0x0001,0x4000
025a 0163 02f0 | c | .DBG4T 0x0163,0x02f0,0x0002,0x0000
025e 0173 02f3 | s | .DBG4T 0x0173,0x02f3,0x0002,0x0000
0262 0183 02f6 | | .DBG4T 0x0183,0x02f6,0x0002,0x0000
0266 0193 02f9 | | .DBG4T 0x0193,0x02f9,0x0002,0x0000
026a 01a3 0000 | | .DBG4T 0x01a3,0x0000,0x0005,0x0000
026e 01bb 02fc | | .DBG4T 0x01bb,0x02fc,0x0001,0x0000
0272 01f3 0000 | | .DBG4T 0x01f3,0x0000,0x0005,0x0000
0276 021b 0000 | | .DBG4T 0x021b,0x0000,0x0005,0x0000
027a ; --------------------------------------------------------------------------------------
027a ; Debug chain
027a ; --------------------------------------------------------------------------------------
027a 000c 0000 | | .DBGLEN 0x000c,0x0000
027c 000b 0016 | | .DBGLNO 0x000b,0x0016,0x0018,0x001a,0x001c,0x001e,0x0020,0x0022,0x0024,0x0026,0x0031,0x0038
0288 ; --------------------------------------------------------------------------------------
0288 ; Debug chain
0288 ; --------------------------------------------------------------------------------------
0288 0008 0000 | | .DBGLEN 0x0008,0x0000
028a 0044 0046 | D F| .DBGLNO 0x0044,0x0046,0x0048,0x004a,0x004c,0x004e,0x0050,0x0052
0292 0003 0004 | | .XXX[0x8]
0294 0005 0006 | |
0296 0007 0008 | |
0298 0009 000a | |
029a ; --------------------------------------------------------------------------------------
029a ; Debug chain
029a ; --------------------------------------------------------------------------------------
029a 0004 0009 | | .DBGLEN 0x0004,0x0009
029c 005b 0062 | [ b| .DBGLNO 0x005b,0x0062,0x0067,0x006c,0x0070,0x0074,0x007c,0x0082,0x0085,0x008a,0x008f,0x0094,0x0099
02a9 0002 0003 | | .XXX[0x9]
02ab 0004 0006 | |
02ad 0007 0005 | |
02af 0009 0001 | |
02b1 000a | |
02b2 ; --------------------------------------------------------------------------------------
02b2 ; Debug chain
02b2 ; --------------------------------------------------------------------------------------
02b2 0006 000d | | .DBGLEN 0x0006,0x000d
02b4 00a3 00aa | | .DBGLNO 0x00a3,0x00aa,0x00af,0x00b4,0x00b9,0x00bb,0x00c1,0x00c5,0x00cd,0x00d3,0x00dc,0x00df,0x00e4,0x00ea,0x00ef,0x00f2,0x00f7,0x00fc,0x0101
02c7 0002 0003 | | .XXX[0xd]
02c9 0004 0006 | |
02cb 0007 0008 | |
02cd 0009 000a | |
02cf 000b 000c | |
02d1 0005 000e | |
02d3 0001 | |
02d4 ; --------------------------------------------------------------------------------------
02d4 ; Debug chain
02d4 ; --------------------------------------------------------------------------------------
02d4 0004 000b | | .DBGLEN 0x0004,0x000b
02d6 010b 0112 | | .DBGLNO 0x010b,0x0112,0x011a,0x011f,0x0120,0x0124,0x0125,0x0129,0x012e,0x0139,0x013f,0x0144,0x014a,0x014e,0x0154
02e5 0001 0002 | | .XXX[0xb]
02e7 0003 0004 | |
02e9 0005 000b | |
02eb 0006 0007 | |
02ed 0008 0009 | |
02ef 000a | |
02f0 ; --------------------------------------------------------------------------------------
02f0 ; Debug chain
02f0 ; --------------------------------------------------------------------------------------
02f0 0000 0001 | | .DBGLEN 0x0000,0x0001
02f2 0163 | c | .DBGLNO 0x0163
02f3 ; --------------------------------------------------------------------------------------
02f3 ; Debug chain
02f3 ; --------------------------------------------------------------------------------------
02f3 0000 0001 | | .DBGLEN 0x0000,0x0001
02f5 0173 | s | .DBGLNO 0x0173
02f6 ; --------------------------------------------------------------------------------------
02f6 ; Debug chain
02f6 ; --------------------------------------------------------------------------------------
02f6 0000 0001 | | .DBGLEN 0x0000,0x0001
02f8 0183 | | .DBGLNO 0x0183
02f9 ; --------------------------------------------------------------------------------------
02f9 ; Debug chain
02f9 ; --------------------------------------------------------------------------------------
02f9 0000 0001 | | .DBGLEN 0x0000,0x0001
02fb 0193 | | .DBGLNO 0x0193
02fc ; --------------------------------------------------------------------------------------
02fc ; Debug chain
02fc ; --------------------------------------------------------------------------------------
02fc 0001 0008 | | .DBGLEN 0x0001,0x0008
02fe 01bb 01be | | .DBGLNO 0x01bb,0x01be,0x01c3,0x01cb,0x01cd,0x01d4,0x01da,0x01e5,0x01e7
0307 0000 0000 | | .BLANK 0000[0xf9]