|
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_03c8f4
└─⟦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 02a0 | | .CONST 0x02a0 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0087 | | .CONST 0x0087 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0027 | ' | .CONST 0x0027 ; Number of locals
000b INIT_0008:
000b 4832 |H2 | Short_Literal 0x32
000c e002 | | Load 0x0,0x2
000d 1c07 | | Execute_Immediate Run_Utility,0x7
000e 0129 | ) | Execute Any,Make_Visible
000f 00d8 | | Load_Top At_Offset_0
0010 00e3 | | Load_Encached Natural_Cache
0011 029f 028b | | Declare_Subprogram INIT_0288,For_Call
0013 4802 |H | Short_Literal 0x2
0014 032e | . | Declare_Type Record,Defined,Visible
0015 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated
0017 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
0019 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated
001b 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated
001d 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated
001f 029c 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible
0021 029c 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible
0023 0093 0000 | | push_full_address 0x0
0025 6072 |`r | Indirect_Literal Discrete,0x98,{0x80000000, 0x00010000}
0026 0273 | s | Execute Discrete,Plus
0027 e003 | | Load 0x0,0x3
0028 0273 | s | Execute Discrete,Plus
0029 e004 | | Load 0x0,0x4
002a 0273 | s | Execute Discrete,Plus
002b e20e | | Load 0x1,0xe
002c e20d | | Load 0x1,0xd
002d 4801 |H | Short_Literal 0x1
002e 4832 |H2 | Short_Literal 0x32
002f 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0030 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0031 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0032 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0033 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0034 e005 | | Load 0x0,0x5
0035 0386 | | Declare_Variable Package,Visible
0036 00d8 | | Load_Top At_Offset_0
0037 020f | | Execute Module,Activate
0038 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
003a 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated
003c 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated
003e 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
0040 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated
0042 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated
0044 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated
0046 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated
0048 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated
004a 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated
004c 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated
004e 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated
0050 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated
0052 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated
0054 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated
0056 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated
0058 00bf | | Action Accept_Activation
0059 e006 | | Load 0x0,0x6
005a e216 | | Load 0x1,0x16
005b 0098 | | Execute Package,Field_Read_Dynamic
005c 0322 | " | Declare_Variable Record
005d 1d0f | | Execute_Immediate Reference_Lex_1,0xf
005e 00c7 | | Action Elaborate_Subprogram
005f 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0060 00c7 | | Action Elaborate_Subprogram
0061 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0062 00c7 | | Action Elaborate_Subprogram
0063 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0064 00c7 | | Action Elaborate_Subprogram
0065 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0066 00c7 | | Action Elaborate_Subprogram
0067 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0068 00c7 | | Action Elaborate_Subprogram
0069 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
006a 00c7 | | Action Elaborate_Subprogram
006b 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
006c 00c7 | | Action Elaborate_Subprogram
006d 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
006e 00c7 | | Action Elaborate_Subprogram
006f 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0070 00c7 | | Action Elaborate_Subprogram
0071 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0072 00c7 | | Action Elaborate_Subprogram
0073 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0074 00c7 | | Action Elaborate_Subprogram
0075 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
0076 00c7 | | Action Elaborate_Subprogram
0077 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0078 00c7 | | Action Elaborate_Subprogram
0079 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
007a 00c7 | | Action Elaborate_Subprogram
007b 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
007c 00c7 | | Action Elaborate_Subprogram
007d 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
007e 00c7 | | Action Elaborate_Subprogram
007f 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
0080 00c7 | | Action Elaborate_Subprogram
0081 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0082 00c7 | | Action Elaborate_Subprogram
0083 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0084 00c7 | | Action Elaborate_Subprogram
0085 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0086 00c7 | | Action Elaborate_Subprogram
0087 BODY_0008:
0087 00d8 | | Load_Top At_Offset_0
0088 e007 | | Load 0x0,0x7
0089 e216 | | Load 0x1,0x16
008a 0096 | | Execute Package,Entry
008b 00d1 | | Pop_Control Pop_Count_1
008c 00bc | | Action Signal_Activated
008d 00bb | | Action Signal_Completion
008e 0000 0000 | | .XXX[0x2]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093 | | .CONST 0x0093 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0001 | | .CONST 0x0001 ; Number of locals
0093 BODY_0090:
0093 INIT_0090:
0093 00da | | Load_Top At_Offset_2
0094 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0095 02fd | | Declare_Variable Variant_Record,Duplicate
0096 00cd | | Action Spare6_Action
0097 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0098 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
009c 0000 0000 | | .BLANK 0000[0x4]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a4 | | .CONST 0x00a4 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0002 | | .CONST 0x0002 ; Number of locals
00a3 INIT_00a0:
00a3 00e2 | | Load_Encached Integer_Cache
00a4 BODY_00a0:
00a4 00db | | Load_Top At_Offset_3
00a5 8008 | | Call 0x0,0x8
00a6 8009 | | Call 0x0,0x9
00a7 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
00a8 00d8 | | Load_Top At_Offset_0
00a9 0d00 | | Execute_Immediate Less,0x0
00aa 6804 |h | Jump_Zero 0xaf
00ab 00d8 | | Load_Top At_Offset_0
00ac 4fff |O | Short_Literal -0x1
00ad 0271 | q | Execute Discrete,Times
00ae 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
00af 00d8 | | Load_Top At_Offset_0
00b0 6007 |` | Indirect_Literal Discrete,0xb8,{0x00000000, 0x7fffffff}
00b1 026e | n | Execute Discrete,Modulo
00b2 00d8 | | Load_Top At_Offset_0
00b3 00e3 | | Load_Encached Natural_Cache
00b4 0260 | ` | Execute Discrete,In_Type
00b5 7001 |p | Jump_Nonzero 0xb7
00b6 0801 | | Execute_Immediate Raise,0x1
00b7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00b8 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
00bc 0000 0000 | | .BLANK 0000[0x4]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3 | | .CONST 0x00c3 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0001 | | .CONST 0x0001 ; Number of locals
00c3 BODY_00c0:
00c3 INIT_00c0:
00c3 00db | | Load_Top At_Offset_3
00c4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00c5 00db | | Load_Top At_Offset_3
00c6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00c7 800a | | Call 0x0,0xa
00c8 00d1 | | Pop_Control Pop_Count_1
00c9 00da | | Load_Top At_Offset_2
00ca 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00cb e5fe | | Load 0x2,-0x2
00cc 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00cd 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00ce 0000 0000 | | .XXX[0x2]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 00da | | Load_Top At_Offset_2
00d4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00d5 e5fe | | Load 0x2,-0x2
00d6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00d7 027f | | Execute Discrete,Equal
00d8 6806 |h | Jump_Zero 0xdf
00d9 00db | | Load_Top At_Offset_3
00da 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00db 00db | | Load_Top At_Offset_3
00dc 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00dd 8213 | | Call 0x1,0x13
00de 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00df 4800 |H | Short_Literal 0x0
00e0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00e1 0000 0000 | | .BLANK 0000[0x7]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb 4801 |H | Short_Literal 0x1
00ec e5fe | | Load 0x2,-0x2
00ed 8008 | | Call 0x0,0x8
00ee e5ff | | Load 0x2,-0x1
00ef 8008 | | Call 0x0,0x8
00f0 800b | | Call 0x0,0xb
00f1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00f2 0000 0000 | | .BLANK 0000[0x6]
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 e20d | | Load 0x1,0xd
00fd 0161 | a | Execute Variant_Record,Check_In_Formal_Type
00fe 8210 | | Call 0x1,0x10
00ff 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
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 e20d | | Load 0x1,0xd
0105 0161 | a | Execute Variant_Record,Check_In_Formal_Type
0106 00db | | Load_Top At_Offset_3
0107 e20d | | Load 0x1,0xd
0108 0161 | a | Execute Variant_Record,Check_In_Formal_Type
0109 8213 | | Call 0x1,0x13
010a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
010b 0000 0000 | | .BLANK 0000[0x5]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0117 | | .CONST 0x0117 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0002 | | .CONST 0x0002 ; Number of locals
0113 INIT_0110:
0113 e20e | | Load 0x1,0xe
0114 0322 | " | Declare_Variable Record
0115 00d8 | | Load_Top At_Offset_0
0116 1c00 | | Execute_Immediate Run_Utility,0x0
0117 BODY_0110:
0117 00d8 | | Load_Top At_Offset_0
0118 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0119 e5ff | | Load 0x2,-0x1
011a 800c | | Call 0x0,0xc
011b 00d1 | | Pop_Control Pop_Count_1
011c e5fe | | Load 0x2,-0x2
011d 00d9 | | Load_Top At_Offset_1
011e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
011f 00d8 | | Load_Top At_Offset_0
0120 e227 | ' | Load 0x1,0x27
0121 e00d | | Load 0x0,0xd
0122 e216 | | Load 0x1,0x16
0123 0096 | | Execute Package,Entry
0124 7006 |p | Jump_Nonzero 0x12b
0125 e227 | ' | Load 0x1,0x27
0126 00d9 | | Load_Top At_Offset_1
0127 e00e | | Load 0x0,0xe
0128 e216 | | Load 0x1,0x16
0129 0096 | | Execute Package,Entry
012a 00d1 | | Pop_Control Pop_Count_1
012b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
012c 0000 0000 | | .BLANK 0000[0x4]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0137 | 7 | .CONST 0x0137 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0002 | | .CONST 0x0002 ; Number of locals
0133 INIT_0130:
0133 e20e | | Load 0x1,0xe
0134 0322 | " | Declare_Variable Record
0135 00d8 | | Load_Top At_Offset_0
0136 1c00 | | Execute_Immediate Run_Utility,0x0
0137 BODY_0130:
0137 00d8 | | Load_Top At_Offset_0
0138 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0139 e5ff | | Load 0x2,-0x1
013a 800c | | Call 0x0,0xc
013b 00d1 | | Pop_Control Pop_Count_1
013c e5fe | | Load 0x2,-0x2
013d 00d9 | | Load_Top At_Offset_1
013e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
013f e227 | ' | Load 0x1,0x27
0140 00d9 | | Load_Top At_Offset_1
0141 e00f | | Load 0x0,0xf
0142 e216 | | Load 0x1,0x16
0143 0096 | | Execute Package,Entry
0144 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0145 0000 0000 | | .XXX[0x3]
0147 0000 | |
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014f | O | .CONST 0x014f ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0002 | | .CONST 0x0002 ; Number of locals
014b INIT_0148:
014b e20d | | Load 0x1,0xd
014c 02ff | | Declare_Variable Variant_Record
014d 00d8 | | Load_Top At_Offset_0
014e 1c00 | | Execute_Immediate Run_Utility,0x0
014f BODY_0148:
014f 00d8 | | Load_Top At_Offset_0
0150 e5ff | | Load 0x2,-0x1
0151 800c | | Call 0x0,0xc
0152 00d1 | | Pop_Control Pop_Count_1
0153 e227 | ' | Load 0x1,0x27
0154 00d9 | | Load_Top At_Offset_1
0155 e010 | | Load 0x0,0x10
0156 e216 | | Load 0x1,0x16
0157 0096 | | Execute Package,Entry
0158 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0159 0000 0000 | | .BLANK 0000[0x7]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 016b | k | .CONST 0x016b ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0003 | | .CONST 0x0003 ; Number of locals
0163 INIT_0160:
0163 e20d | | Load 0x1,0xd
0164 02ff | | Declare_Variable Variant_Record
0165 00d8 | | Load_Top At_Offset_0
0166 1c00 | | Execute_Immediate Run_Utility,0x0
0167 e20e | | Load 0x1,0xe
0168 0322 | " | Declare_Variable Record
0169 00d8 | | Load_Top At_Offset_0
016a 1c00 | | Execute_Immediate Run_Utility,0x0
016b BODY_0160:
016b 00d9 | | Load_Top At_Offset_1
016c e5ff | | Load 0x2,-0x1
016d 800c | | Call 0x0,0xc
016e 00d1 | | Pop_Control Pop_Count_1
016f 00d9 | | Load_Top At_Offset_1
0170 e227 | ' | Load 0x1,0x27
0171 e011 | | Load 0x0,0x11
0172 e216 | | Load 0x1,0x16
0173 0096 | | Execute Package,Entry
0174 00d9 | | Load_Top At_Offset_1
0175 017d | } | Execute Record,Structure_Write
0176 00d8 | | Load_Top At_Offset_0
0177 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0178 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0179 0000 0000 | | .BLANK 0000[0x7]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0187 | | .CONST 0x0187 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0002 | | .CONST 0x0002 ; Number of locals
0183 INIT_0180:
0183 e20e | | Load 0x1,0xe
0184 0322 | " | Declare_Variable Record
0185 00d8 | | Load_Top At_Offset_0
0186 1c00 | | Execute_Immediate Run_Utility,0x0
0187 BODY_0180:
0187 00d8 | | Load_Top At_Offset_0
0188 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0189 e5ff | | Load 0x2,-0x1
018a 800c | | Call 0x0,0xc
018b 00d1 | | Pop_Control Pop_Count_1
018c e5fe | | Load 0x2,-0x2
018d 00d9 | | Load_Top At_Offset_1
018e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
018f e227 | ' | Load 0x1,0x27
0190 00d9 | | Load_Top At_Offset_1
0191 e012 | | Load 0x0,0x12
0192 e216 | | Load 0x1,0x16
0193 0096 | | Execute Package,Entry
0194 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0195 0000 0000 | | .XXX[0x3]
0197 0000 | |
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019f | | .CONST 0x019f ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0002 | | .CONST 0x0002 ; Number of locals
019b INIT_0198:
019b e20d | | Load 0x1,0xd
019c 02ff | | Declare_Variable Variant_Record
019d 00d8 | | Load_Top At_Offset_0
019e 1c00 | | Execute_Immediate Run_Utility,0x0
019f BODY_0198:
019f 00d8 | | Load_Top At_Offset_0
01a0 e5ff | | Load 0x2,-0x1
01a1 800c | | Call 0x0,0xc
01a2 00d1 | | Pop_Control Pop_Count_1
01a3 00d8 | | Load_Top At_Offset_0
01a4 e227 | ' | Load 0x1,0x27
01a5 e013 | | Load 0x0,0x13
01a6 e216 | | Load 0x1,0x16
01a7 0096 | | Execute Package,Entry
01a8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a9 0000 0000 | | .BLANK 0000[0x7]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b7 | | .CONST 0x01b7 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0002 | | .CONST 0x0002 ; Number of locals
01b3 INIT_01b0:
01b3 e20e | | Load 0x1,0xe
01b4 0322 | " | Declare_Variable Record
01b5 00d8 | | Load_Top At_Offset_0
01b6 1c00 | | Execute_Immediate Run_Utility,0x0
01b7 BODY_01b0:
01b7 00d8 | | Load_Top At_Offset_0
01b8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01b9 e5ff | | Load 0x2,-0x1
01ba 800c | | Call 0x0,0xc
01bb 00d1 | | Pop_Control Pop_Count_1
01bc e5fe | | Load 0x2,-0x2
01bd 00d9 | | Load_Top At_Offset_1
01be 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01bf 00d8 | | Load_Top At_Offset_0
01c0 e227 | ' | Load 0x1,0x27
01c1 e00d | | Load 0x0,0xd
01c2 e216 | | Load 0x1,0x16
01c3 0096 | | Execute Package,Entry
01c4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01c5 0000 0000 | | .XXX[0x3]
01c7 0000 | |
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb | | .CONST 0x01cb ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0001 | | .CONST 0x0001 ; Number of locals
01cb BODY_01c8:
01cb INIT_01c8:
01cb e227 | ' | Load 0x1,0x27
01cc e014 | | Load 0x0,0x14
01cd e216 | | Load 0x1,0x16
01ce 0096 | | Execute Package,Entry
01cf 00ca | | Action Exit_Nullary_Function
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3 | | .CONST 0x01d3 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0001 | | .CONST 0x0001 ; Number of locals
01d3 BODY_01d0:
01d3 INIT_01d0:
01d3 00da | | Load_Top At_Offset_2
01d4 e227 | ' | Load 0x1,0x27
01d5 e015 | | Load 0x0,0x15
01d6 e216 | | Load 0x1,0x16
01d7 0096 | | Execute Package,Entry
01d8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01d9 0000 0000 | | .BLANK 0000[0x7]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3 | | .CONST 0x01e3 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0001 | | .CONST 0x0001 ; Number of locals
01e3 BODY_01e0:
01e3 INIT_01e0:
01e3 00da | | Load_Top At_Offset_2
01e4 e227 | ' | Load 0x1,0x27
01e5 e016 | | Load 0x0,0x16
01e6 e216 | | Load 0x1,0x16
01e7 0096 | | Execute Package,Entry
01e8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01e9 0000 0000 | | .BLANK 0000[0x7]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f7 | | .CONST 0x01f7 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0002 | | .CONST 0x0002 ; Number of locals
01f3 INIT_01f0:
01f3 e20e | | Load 0x1,0xe
01f4 0322 | " | Declare_Variable Record
01f5 00d8 | | Load_Top At_Offset_0
01f6 1c00 | | Execute_Immediate Run_Utility,0x0
01f7 BODY_01f0:
01f7 00db | | Load_Top At_Offset_3
01f8 e227 | ' | Load 0x1,0x27
01f9 e017 | | Load 0x0,0x17
01fa e216 | | Load 0x1,0x16
01fb 0096 | | Execute Package,Entry
01fc 00d9 | | Load_Top At_Offset_1
01fd 017d | } | Execute Record,Structure_Write
01fe 00d8 | | Load_Top At_Offset_0
01ff 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0200 8008 | | Call 0x0,0x8
0201 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0202 0000 0000 | | .BLANK 0000[0x6]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020f | | .CONST 0x020f ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0002 | | .CONST 0x0002 ; Number of locals
020b INIT_0208:
020b e20e | | Load 0x1,0xe
020c 0322 | " | Declare_Variable Record
020d 00d8 | | Load_Top At_Offset_0
020e 1c00 | | Execute_Immediate Run_Utility,0x0
020f BODY_0208:
020f 00db | | Load_Top At_Offset_3
0210 e227 | ' | Load 0x1,0x27
0211 e017 | | Load 0x0,0x17
0212 e216 | | Load 0x1,0x16
0213 0096 | | Execute Package,Entry
0214 00d9 | | Load_Top At_Offset_1
0215 017d | } | Execute Record,Structure_Write
0216 00d8 | | Load_Top At_Offset_0
0217 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0218 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0219 0000 0000 | | .BLANK 0000[0x7]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0227 | ' | .CONST 0x0227 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0002 | | .CONST 0x0002 ; Number of locals
0223 INIT_0220:
0223 e20d | | Load 0x1,0xd
0224 02ff | | Declare_Variable Variant_Record
0225 00d8 | | Load_Top At_Offset_0
0226 1c00 | | Execute_Immediate Run_Utility,0x0
0227 BODY_0220:
0227 00d8 | | Load_Top At_Offset_0
0228 e5ff | | Load 0x2,-0x1
0229 800c | | Call 0x0,0xc
022a 00d1 | | Pop_Control Pop_Count_1
022b 00d8 | | Load_Top At_Offset_0
022c e227 | ' | Load 0x1,0x27
022d e018 | | Load 0x0,0x18
022e e216 | | Load 0x1,0x16
022f 0096 | | Execute Package,Entry
0230 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0231 0000 0000 | | .BLANK 0000[0x7]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023f | ? | .CONST 0x023f ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0002 | | .CONST 0x0002 ; Number of locals
023b INIT_0238:
023b e20d | | Load 0x1,0xd
023c 02ff | | Declare_Variable Variant_Record
023d 00d8 | | Load_Top At_Offset_0
023e 1c00 | | Execute_Immediate Run_Utility,0x0
023f BODY_0238:
023f 00d8 | | Load_Top At_Offset_0
0240 e5fe | | Load 0x2,-0x2
0241 800c | | Call 0x0,0xc
0242 00d1 | | Pop_Control Pop_Count_1
0243 00db | | Load_Top At_Offset_3
0244 00d9 | | Load_Top At_Offset_1
0245 e227 | ' | Load 0x1,0x27
0246 e019 | | Load 0x0,0x19
0247 e216 | | Load 0x1,0x16
0248 0096 | | Execute Package,Entry
0249 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
024a 0000 0000 | | .BLANK 0000[0x6]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0257 | W | .CONST 0x0257 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0002 | | .CONST 0x0002 ; Number of locals
0253 INIT_0250:
0253 e20d | | Load 0x1,0xd
0254 02ff | | Declare_Variable Variant_Record
0255 00d8 | | Load_Top At_Offset_0
0256 1c00 | | Execute_Immediate Run_Utility,0x0
0257 BODY_0250:
0257 00d8 | | Load_Top At_Offset_0
0258 e5fe | | Load 0x2,-0x2
0259 800c | | Call 0x0,0xc
025a 00d1 | | Pop_Control Pop_Count_1
025b 00db | | Load_Top At_Offset_3
025c 00d9 | | Load_Top At_Offset_1
025d e227 | ' | Load 0x1,0x27
025e e01a | | Load 0x0,0x1a
025f e216 | | Load 0x1,0x16
0260 0096 | | Execute Package,Entry
0261 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0262 0000 0000 | | .BLANK 0000[0x6]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 0273 | s | .CONST 0x0273 ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0003 | | .CONST 0x0003 ; Number of locals
026b INIT_0268:
026b e20d | | Load 0x1,0xd
026c 02ff | | Declare_Variable Variant_Record
026d 00d8 | | Load_Top At_Offset_0
026e 1c00 | | Execute_Immediate Run_Utility,0x0
026f e20e | | Load 0x1,0xe
0270 0322 | " | Declare_Variable Record
0271 00d8 | | Load_Top At_Offset_0
0272 1c00 | | Execute_Immediate Run_Utility,0x0
0273 BODY_0268:
0273 00d9 | | Load_Top At_Offset_1
0274 e5fe | | Load 0x2,-0x2
0275 800c | | Call 0x0,0xc
0276 00d1 | | Pop_Control Pop_Count_1
0277 e5ff | | Load 0x2,-0x1
0278 00da | | Load_Top At_Offset_2
0279 e227 | ' | Load 0x1,0x27
027a e01b | | Load 0x0,0x1b
027b e216 | | Load 0x1,0x16
027c 0096 | | Execute Package,Entry
027d 00d9 | | Load_Top At_Offset_1
027e 017d | } | Execute Record,Structure_Write
027f 00d8 | | Load_Top At_Offset_0
0280 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0281 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0282 0000 0000 | | .BLANK 0000[0x6]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b | | .CONST 0x028b ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0001 | | .CONST 0x0001 ; Number of locals
028b BODY_0288:
028b INIT_0288:
028b 4601 |F | Jump_Case 0x2
028c 7801 |x | Jump 0x28e ; case 0x0
028d 7807 |x | Jump 0x295 ; case 0x1
028e 00da | | Load_Top At_Offset_2
028f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0290 0125 | % | Execute Any,Set_Constraint
0291 00da | | Load_Top At_Offset_2
0292 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0293 1c00 | | Execute_Immediate Run_Utility,0x0
0294 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0295 00da | | Load_Top At_Offset_2
0296 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0297 0125 | % | Execute Any,Set_Constraint
0298 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0299 0000 0000 | | .BLANK 0000[0x7]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; Debug Table
02a0 ; --------------------------------------------------------------------------------------
02a0 0004 0002 | | .DEBUG4 0x0004,0x0002,0xd1cd,0x0000,0x0001,0x0000
02a6 00c7 1d15 | | .XXX[0x24]
02a8 00c7 1d14 | |
02aa 00c7 a008 | |
02ac a009 4802 | H |
02ae e216 020e | |
02b0 e216 020f | |
02b2 a00a 4801 | H |
02b4 e217 020e | |
02b6 e217 020f | |
02b8 029d 0533 | 3|
02ba 1d0d 00c7 | |
02bc 1d0e 00c7 | |
02be 1d18 00c7 | |
02c0 1d19 00c7 | |
02c2 e002 1b23 | #|
02c4 4903 e00b |I |
02c6 180d c21b | |
02c8 00bc 00bb | |
02ca 0000 0000 | | .BLANK 0000[0x6]
02d0 00e2 0134 | 4| .XXX[0x73]
02d2 0003 e00c | |
02d4 1b0d 1b0d | |
02d6 02c7 4801 | H |
02d8 e00c 1b0e | |
02da 1813 e5ff | |
02dc e00c 1b0e | |
02de 1829 a402 | ) |
02e0 e00d 0007 | |
02e2 e00e 182f | /|
02e4 800f 00d9 | |
02e6 e00c 1b0d | |
02e8 1834 680e | 4h |
02ea e010 180e | |
02ec 4805 0092 |H |
02ee 0784 e011 | |
02f0 1813 e010 | |
02f2 180e 00da | |
02f4 e00c 1b0d | |
02f6 1840 4503 | @E |
02f8 00d9 8233 | 3|
02fa 0051 00d8 | Q |
02fc 4611 7811 |F x |
02fe 781f 7823 |x x#|
0300 780e 780d |x x |
0302 782a 7824 |x*x$|
0304 780a 7809 |x x |
0306 7808 7807 |x x |
0308 7806 7805 |x x |
030a 7804 7803 |x x |
030c 7802 7801 |x x |
030e 7800 4800 |x H |
0310 0092 0785 | |
0312 00da e00d | |
0314 011c 1c01 | |
0316 01cc 0092 | |
0318 0786 01cc | |
031a e5ff 01cc | |
031c 8012 7813 | x |
031e e5fe e5ff | |
0320 00db 8226 | &|
0322 780e e5fe |x |
0324 e5ff 00db | |
0326 8223 7809 | #x |
0328 e5fe e5ff | |
032a 00db 822b | +|
032c 7804 e5fe |x |
032e e5ff 00db | |
0330 8230 e011 | 0 |
0332 181d 4503 | E |
0334 e21a 010f | |
0336 7003 e013 |p |
0338 010f 6803 | h |
033a e011 181d | |
033c 4503 0100 |E |
033e 0000 0000 | |
0340 8000 0000 | |
0342 0001 | |
0343 0000 0000 | | .BLANK 0000[0x5]
0348 0160 01ab | ` | .XXX[0xb8]
034a 0004 e00c | |
034c 1b0d 1b23 | #|
034e 02c7 4801 | H |
0350 e00c 1b0e | |
0352 1813 e5ff | |
0354 e00c 1b0e | |
0356 182a a402 | * |
0358 e00c 1b0d | |
035a 1b0d 02c7 | |
035c 00d8 1c00 | |
035e e00d 0007 | |
0360 e00e 182f | /|
0362 800f 00da | |
0364 e00c 1b0d | |
0366 1825 703a | %p:|
0368 00da e00c | |
036a 1b0d 1826 | &|
036c c403 00d9 | |
036e 8233 0051 | 3 Q|
0370 00d8 4611 | F |
0372 7811 7810 |x x |
0374 7821 780e |x!x |
0376 780d 7824 |x x$|
0378 780b 780a |x x |
037a 7809 7808 |x x |
037c 7807 7806 |x x |
037e 7805 7804 |x x |
0380 7803 7802 |x x |
0382 7801 7800 |x x |
0384 4800 0092 |H |
0386 0785 00da | |
0388 e00d 011c | |
038a 1c01 01cc | |
038c 0092 0786 | |
038e 01cc 00db | |
0390 e00c 1b0e | |
0392 1820 01cc | |
0394 8012 7812 | x |
0396 e5fd e5fe | |
0398 e5ff e402 | |
039a 8222 780c | "x |
039c e5fd e5fe | |
039e e5ff e402 | |
03a0 822d 7806 | -x |
03a2 4800 0092 |H |
03a4 0787 e5ff | |
03a6 01cc 8012 | |
03a8 e011 181d | |
03aa 4504 e21a |E |
03ac 010f 7003 | p |
03ae e013 010f | |
03b0 6803 e011 |h |
03b2 181d 4504 | E |
03b4 0100 0000 | |
03b6 0000 0000 | |
03b8 01c8 01e1 | |
03ba 0006 e014 | |
03bc 0007 e015 | |
03be 0007 e002 | |
03c0 1b23 e004 | # |
03c2 1b0f 02c7 | |
03c4 00d8 1c00 | |
03c6 029f 0583 | |
03c8 e00e 182f | /|
03ca 800f e5ff | |
03cc 01db 7008 | p |
03ce e010 180e | |
03d0 4805 0092 |H |
03d2 0788 e011 | |
03d4 1813 4503 | E |
03d6 e002 1b23 | #|
03d8 490a e00b |I |
03da 180d 0033 | 3|
03dc 00da 8016 | |
03de a402 8406 | |
03e0 4503 e013 |E |
03e2 010f 6803 | h |
03e4 e011 181d | |
03e6 4503 0100 |E |
03e8 01eb 0004 | |
03ea 0001 00da | |
03ec 8017 4502 | E |
03ee 0000 0000 | |
03f0 01f3 0004 | |
03f2 0001 00da | |
03f4 8018 4502 | E |
03f6 0000 0000 | |
03f8 01fb 0004 | |
03fa 0001 8019 | |
03fc 4501 0000 |E |
03fe 0000 0000 | |