|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_1884fe
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 02d8 | | .CONST 0x02d8 ; 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 003a | : | .CONST 0x003a ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0020 | | .CONST 0x0020 ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1
000c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
000d 0129 | ) | Execute Any,Make_Visible
000e 4818 |H | Short_Literal 0x18
000f 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected
0010 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated
0012 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated
0014 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
0016 e002 | | Load 0x0,0x2
0017 0129 | ) | Execute Any,Make_Visible
0018 4804 |H | Short_Literal 0x4
0019 032a | * | Declare_Type Record,Incomplete
001a 00d8 | | Load_Top At_Offset_0
001b 02a0 | | Declare_Subprogram Null_Subprogram
001c e217 | | Load 0x1,0x17
001d 03c7 | | Complete_Type Access,By_Defining
001e e20f | | Load 0x1,0xf
001f 00e4 | | Load_Encached Positive_Cache
0020 e217 | | Load 0x1,0x17
0021 00d8 | | Load_Top At_Offset_0
0022 029f 02c3 | | Declare_Subprogram INIT_02c0,For_Call
0024 e21c | | Load 0x1,0x1c
0025 0326 | & | Complete_Type Record,By_Defining
0026 00bf | | Action Accept_Activation
0027 e003 | | Load 0x0,0x3
0028 e004 | | Load 0x0,0x4
0029 e20f | | Load 0x1,0xf
002a e005 | | Load 0x0,0x5
002b 0387 | | Declare_Variable Package
002c 00d8 | | Load_Top At_Offset_0
002d 020f | | Execute Module,Activate
002e 1d18 | | Execute_Immediate Reference_Lex_1,0x18
002f 00c7 | | Action Elaborate_Subprogram
0030 029d 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call
0032 029d 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call
0034 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0035 00c7 | | Action Elaborate_Subprogram
0036 029d 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call
0038 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0039 00c7 | | Action Elaborate_Subprogram
003a BODY_0008:
003a 00bc | | Action Signal_Activated
003b 00bb | | Action Signal_Completion
003c 0000 0000 | | .BLANK 0000[0x4]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0043 | C | .CONST 0x0043 ; Address of begin
0041 0004 | | .CONST 0x0004 ; Address of exception handler
0042 0001 | | .CONST 0x0001 ; Number of locals
0043 BODY_0040:
0043 INIT_0040:
0043 e217 | | Load 0x1,0x17
0044 00ca | | Action Exit_Nullary_Function
0045 0000 0000 | | .XXX[0x3]
0047 0000 | |
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004d | M | .CONST 0x004d ; Address of begin
0049 0004 | | .CONST 0x0004 ; Address of exception handler
004a 0002 | | .CONST 0x0002 ; Number of locals
004b INIT_0048:
004b 00db | | Load_Top At_Offset_3
004c 821f | | Call 0x1,0x1f
004d BODY_0048:
004d e5fe | | Load 0x2,-0x2
004e 701d |p | Jump_Nonzero 0x6c
004f e21c | | Load 0x1,0x1c
0050 0322 | " | Declare_Variable Record
0051 e5ff | | Load 0x2,-0x1
0052 e21c | | Load 0x1,0x1c
0053 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
0054 0119 | | Execute Any,Check_In_Formal_Type
0055 00d9 | | Load_Top At_Offset_1
0056 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0057 4801 |H | Short_Literal 0x1
0058 00d9 | | Load_Top At_Offset_1
0059 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
005a e217 | | Load 0x1,0x17
005b 00d9 | | Load_Top At_Offset_1
005c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
005d e217 | | Load 0x1,0x17
005e 00d9 | | Load_Top At_Offset_1
005f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0060 e217 | | Load 0x1,0x17
0061 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0062 a5fe | | Store_Unchecked 0x2,-0x2
0063 e5fe | | Load 0x2,-0x2
0064 00d8 | | Load_Top At_Offset_0
0065 0227 | ' | Execute Access,All_Reference
0066 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0067 e5fe | | Load 0x2,-0x2
0068 00d8 | | Load_Top At_Offset_0
0069 0227 | ' | Execute Access,All_Reference
006a 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
006b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
006c e21c | | Load 0x1,0x1c
006d 0322 | " | Declare_Variable Record
006e e5ff | | Load 0x2,-0x1
006f e21c | | Load 0x1,0x1c
0070 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
0071 0119 | | Execute Any,Check_In_Formal_Type
0072 00d9 | | Load_Top At_Offset_1
0073 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0074 00d9 | | Load_Top At_Offset_1
0075 0227 | ' | Execute Access,All_Reference
0076 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0077 0a01 | | Execute_Immediate Plus,0x1
0078 00d9 | | Load_Top At_Offset_1
0079 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
007a e217 | | Load 0x1,0x17
007b 00d9 | | Load_Top At_Offset_1
007c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
007d 00d9 | | Load_Top At_Offset_1
007e 00d9 | | Load_Top At_Offset_1
007f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0080 e217 | | Load 0x1,0x17
0081 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0082 00d9 | | Load_Top At_Offset_1
0083 0227 | ' | Execute Access,All_Reference
0084 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0085 e5fe | | Load 0x2,-0x2
0086 00d9 | | Load_Top At_Offset_1
0087 0227 | ' | Execute Access,All_Reference
0088 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0089 0227 | ' | Execute Access,All_Reference
008a 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
008b 00d8 | | Load_Top At_Offset_0
008c 0227 | ' | Execute Access,All_Reference
008d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
008e e5fe | | Load 0x2,-0x2
008f 0227 | ' | Execute Access,All_Reference
0090 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0091 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0092 0000 0000 | | .BLANK 0000[0x6]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00b4 | | .CONST 0x00b4 ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0009 | | .CONST 0x0009 ; Number of locals
009b INIT_0098:
009b e5fd | | Load 0x2,-0x3
009c 0007 | | Action Break_Optional
009d e21d | | Load 0x1,0x1d
009e 1b18 | | Execute Package,Field_Read,Field_Number 0x18
009f e21d | | Load 0x1,0x1d
00a0 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00a1 e217 | | Load 0x1,0x17
00a2 0007 | | Action Break_Optional
00a3 e001 | | Load 0x0,0x1
00a4 1b20 | | Execute Package,Field_Read,Field_Number 0x20
00a5 0322 | " | Declare_Variable Record
00a6 e006 | | Load 0x0,0x6
00a7 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
00a8 00d9 | | Load_Top At_Offset_1
00a9 017d | } | Execute Record,Structure_Write
00aa 00e1 | | Load_Encached Boolean_Cache
00ab e001 | | Load 0x0,0x1
00ac 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00ad 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ae 02c7 | | Declare_Variable Any
00af 00d8 | | Load_Top At_Offset_0
00b0 1c00 | | Execute_Immediate Run_Utility,0x0
00b1 e001 | | Load 0x0,0x1
00b2 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00b3 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00b4 BODY_0098:
00b4 e5fd | | Load 0x2,-0x3
00b5 e5fe | | Load 0x2,-0x2
00b6 e5ff | | Load 0x2,-0x1
00b7 8220 | | Call 0x1,0x20
00b8 00d9 | | Load_Top At_Offset_1
00b9 e001 | | Load 0x0,0x1
00ba 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00bb 180e | | Execute Package,Field_Execute,Field_Number 0xe
00bc c408 | | Store 0x2,0x8
00bd e21d | | Load 0x1,0x1d
00be 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00bf e21d | | Load 0x1,0x1d
00c0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00c1 c404 | | Store 0x2,0x4
00c2 00cf | | Action Mark_Auxiliary
00c3 e001 | | Load 0x0,0x1
00c4 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00c5 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00c6 00db | | Load_Top At_Offset_3
00c7 e001 | | Load 0x0,0x1
00c8 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00c9 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00ca 005a | Z | Store_Top Discrete,At_Offset_2
00cb 00d9 | | Load_Top At_Offset_1
00cc e007 | | Load 0x0,0x7
00cd 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00ce 027f | | Execute Discrete,Equal
00cf 680d |h | Jump_Zero 0xdd
00d0 e402 | | Load 0x2,0x2
00d1 0227 | ' | Execute Access,All_Reference
00d2 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00d3 a402 | | Store_Unchecked 0x2,0x2
00d4 4800 |H | Short_Literal 0x0
00d5 4801 |H | Short_Literal 0x1
00d6 e402 | | Load 0x2,0x2
00d7 0227 | ' | Execute Access,All_Reference
00d8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00d9 e5ff | | Load 0x2,-0x1
00da e001 | | Load 0x0,0x1
00db 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
00dc 794d |yM | Jump 0x22a
00dd 00d9 | | Load_Top At_Offset_1
00de e007 | | Load 0x0,0x7
00df 1b15 | | Execute Package,Field_Read,Field_Number 0x15
00e0 027f | | Execute Discrete,Equal
00e1 680d |h | Jump_Zero 0xef
00e2 e402 | | Load 0x2,0x2
00e3 0227 | ' | Execute Access,All_Reference
00e4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00e5 a402 | | Store_Unchecked 0x2,0x2
00e6 4800 |H | Short_Literal 0x0
00e7 4801 |H | Short_Literal 0x1
00e8 e402 | | Load 0x2,0x2
00e9 0227 | ' | Execute Access,All_Reference
00ea 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00eb e5ff | | Load 0x2,-0x1
00ec e001 | | Load 0x0,0x1
00ed 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
00ee 793b |y; | Jump 0x22a
00ef 00d9 | | Load_Top At_Offset_1
00f0 e007 | | Load 0x0,0x7
00f1 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00f2 027f | | Execute Discrete,Equal
00f3 681d |h | Jump_Zero 0x111
00f4 e404 | | Load 0x2,0x4
00f5 e402 | | Load 0x2,0x2
00f6 0227 | ' | Execute Access,All_Reference
00f7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00f8 e20f | | Load 0x1,0xf
00f9 0119 | | Execute Any,Check_In_Formal_Type
00fa e21d | | Load 0x1,0x1d
00fb 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00fc c404 | | Store 0x2,0x4
00fd 4800 |H | Short_Literal 0x0
00fe e406 | | Load 0x2,0x6
00ff e402 | | Load 0x2,0x2
0100 0227 | ' | Execute Access,All_Reference
0101 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0102 e20f | | Load 0x1,0xf
0103 0119 | | Execute Any,Check_In_Formal_Type
0104 8210 | | Call 0x1,0x10
0105 e5ff | | Load 0x2,-0x1
0106 e001 | | Load 0x0,0x1
0107 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0108 4800 |H | Short_Literal 0x0
0109 4801 |H | Short_Literal 0x1
010a e402 | | Load 0x2,0x2
010b 0227 | ' | Execute Access,All_Reference
010c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
010d e5ff | | Load 0x2,-0x1
010e e001 | | Load 0x0,0x1
010f 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0110 7919 |y | Jump 0x22a
0111 00d9 | | Load_Top At_Offset_1
0112 e007 | | Load 0x0,0x7
0113 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0114 027f | | Execute Discrete,Equal
0115 681d |h | Jump_Zero 0x133
0116 e404 | | Load 0x2,0x4
0117 e402 | | Load 0x2,0x2
0118 0227 | ' | Execute Access,All_Reference
0119 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
011a e20f | | Load 0x1,0xf
011b 0119 | | Execute Any,Check_In_Formal_Type
011c e21d | | Load 0x1,0x1d
011d 1817 | | Execute Package,Field_Execute,Field_Number 0x17
011e c404 | | Store 0x2,0x4
011f 4800 |H | Short_Literal 0x0
0120 e5fe | | Load 0x2,-0x2
0121 e402 | | Load 0x2,0x2
0122 0227 | ' | Execute Access,All_Reference
0123 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0124 e20f | | Load 0x1,0xf
0125 0119 | | Execute Any,Check_In_Formal_Type
0126 8210 | | Call 0x1,0x10
0127 e5ff | | Load 0x2,-0x1
0128 e001 | | Load 0x0,0x1
0129 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
012a 4800 |H | Short_Literal 0x0
012b 4801 |H | Short_Literal 0x1
012c e402 | | Load 0x2,0x2
012d 0227 | ' | Execute Access,All_Reference
012e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
012f e5ff | | Load 0x2,-0x1
0130 e001 | | Load 0x0,0x1
0131 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0132 78f7 |x | Jump 0x22a
0133 00d9 | | Load_Top At_Offset_1
0134 482e |H. | Short_Literal 0x2e
0135 e007 | | Load 0x0,0x7
0136 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0137 01d7 | | Execute Vector,Field_Read
0138 027f | | Execute Discrete,Equal
0139 683a |h: | Jump_Zero 0x174
013a e21d | | Load 0x1,0x1d
013b 1b18 | | Execute Package,Field_Read,Field_Number 0x18
013c e404 | | Load 0x2,0x4
013d e21d | | Load 0x1,0x1d
013e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
013f c403 | | Store 0x2,0x3
0140 00cf | | Action Mark_Auxiliary
0141 7820 |x | Jump 0x162
0142 e5fd | | Load 0x2,-0x3
0143 e403 | | Load 0x2,0x3
0144 e21d | | Load 0x1,0x1d
0145 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0146 e20f | | Load 0x1,0xf
0147 0119 | | Execute Any,Check_In_Formal_Type
0148 821e | | Call 0x1,0x1e
0149 a405 | | Store_Unchecked 0x2,0x5
014a 4800 |H | Short_Literal 0x0
014b 4801 |H | Short_Literal 0x1
014c e405 | | Load 0x2,0x5
014d 0227 | ' | Execute Access,All_Reference
014e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
014f e5ff | | Load 0x2,-0x1
0150 e001 | | Load 0x0,0x1
0151 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0152 4800 |H | Short_Literal 0x0
0153 e5fe | | Load 0x2,-0x2
0154 e405 | | Load 0x2,0x5
0155 0227 | ' | Execute Access,All_Reference
0156 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0157 e20f | | Load 0x1,0xf
0158 0119 | | Execute Any,Check_In_Formal_Type
0159 8210 | | Call 0x1,0x10
015a e5ff | | Load 0x2,-0x1
015b e001 | | Load 0x0,0x1
015c 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
015d e403 | | Load 0x2,0x3
015e e21d | | Load 0x1,0x1d
015f 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0160 c403 | | Store 0x2,0x3
0161 00c9 | | Action Pop_Auxiliary_Loop
0162 e403 | | Load 0x2,0x3
0163 e21d | | Load 0x1,0x1d
0164 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0165 6fdc |o | Jump_Zero 0x142
0166 00ce | | Action Pop_Auxiliary
0167 4800 |H | Short_Literal 0x0
0168 4801 |H | Short_Literal 0x1
0169 e402 | | Load 0x2,0x2
016a 0227 | ' | Execute Access,All_Reference
016b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
016c e5ff | | Load 0x2,-0x1
016d e001 | | Load 0x0,0x1
016e 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
016f e404 | | Load 0x2,0x4
0170 e21d | | Load 0x1,0x1d
0171 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0172 c404 | | Store 0x2,0x4
0173 78b6 |x | Jump 0x22a
0174 00d9 | | Load_Top At_Offset_1
0175 8212 | | Call 0x1,0x12
0176 6880 |h | Jump_Zero 0x1f7
0177 00da | | Load_Top At_Offset_2
0178 4800 |H | Short_Literal 0x0
0179 e001 | | Load 0x0,0x1
017a 1b17 | | Execute Package,Field_Read,Field_Number 0x17
017b 180f | | Execute Package,Field_Execute,Field_Number 0xf
017c c408 | | Store 0x2,0x8
017d e404 | | Load 0x2,0x4
017e e21d | | Load 0x1,0x1d
017f 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0180 681d |h | Jump_Zero 0x19e
0181 e402 | | Load 0x2,0x2
0182 0229 | ) | Execute Access,All_Read
0183 00d8 | | Load_Top At_Offset_0
0184 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0185 00d8 | | Load_Top At_Offset_0
0186 0120 | | Execute Any,Is_Value
0187 6803 |h | Jump_Zero 0x18b
0188 e20f | | Load 0x1,0xf
0189 011e | | Execute Any,Convert
018a 7802 |x | Jump 0x18d
018b e20f | | Load 0x1,0xf
018c 0119 | | Execute Any,Check_In_Formal_Type
018d 00db | | Load_Top At_Offset_3
018e 8213 | | Call 0x1,0x13
018f 00d9 | | Load_Top At_Offset_1
0190 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0191 00d1 | | Pop_Control Pop_Count_1
0192 4800 |H | Short_Literal 0x0
0193 e5fe | | Load 0x2,-0x2
0194 e402 | | Load 0x2,0x2
0195 0227 | ' | Execute Access,All_Reference
0196 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0197 e20f | | Load 0x1,0xf
0198 0119 | | Execute Any,Check_In_Formal_Type
0199 8210 | | Call 0x1,0x10
019a e5ff | | Load 0x2,-0x1
019b e001 | | Load 0x0,0x1
019c 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
019d 784b |xK | Jump 0x1e9
019e e21d | | Load 0x1,0x1d
019f 1b18 | | Execute Package,Field_Read,Field_Number 0x18
01a0 e404 | | Load 0x2,0x4
01a1 e21d | | Load 0x1,0x1d
01a2 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01a3 c403 | | Store 0x2,0x3
01a4 e404 | | Load 0x2,0x4
01a5 e21d | | Load 0x1,0x1d
01a6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01a7 c404 | | Store 0x2,0x4
01a8 00cf | | Action Mark_Auxiliary
01a9 783a |x: | Jump 0x1e4
01aa e5fd | | Load 0x2,-0x3
01ab e403 | | Load 0x2,0x3
01ac e21d | | Load 0x1,0x1d
01ad 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01ae e20f | | Load 0x1,0xf
01af 0119 | | Execute Any,Check_In_Formal_Type
01b0 821e | | Call 0x1,0x1e
01b1 a405 | | Store_Unchecked 0x2,0x5
01b2 e405 | | Load 0x2,0x5
01b3 0229 | ) | Execute Access,All_Read
01b4 00d8 | | Load_Top At_Offset_0
01b5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01b6 00d8 | | Load_Top At_Offset_0
01b7 0120 | | Execute Any,Is_Value
01b8 6803 |h | Jump_Zero 0x1bc
01b9 e20f | | Load 0x1,0xf
01ba 011e | | Execute Any,Convert
01bb 7802 |x | Jump 0x1be
01bc e20f | | Load 0x1,0xf
01bd 0119 | | Execute Any,Check_In_Formal_Type
01be e409 | | Load 0x2,0x9
01bf 8213 | | Call 0x1,0x13
01c0 00d9 | | Load_Top At_Offset_1
01c1 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01c2 00d1 | | Pop_Control Pop_Count_1
01c3 e404 | | Load 0x2,0x4
01c4 e405 | | Load 0x2,0x5
01c5 0227 | ' | Execute Access,All_Reference
01c6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01c7 e20f | | Load 0x1,0xf
01c8 0119 | | Execute Any,Check_In_Formal_Type
01c9 e21d | | Load 0x1,0x1d
01ca 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01cb c404 | | Store 0x2,0x4
01cc 4800 |H | Short_Literal 0x0
01cd 4801 |H | Short_Literal 0x1
01ce e405 | | Load 0x2,0x5
01cf 0227 | ' | Execute Access,All_Reference
01d0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01d1 e5ff | | Load 0x2,-0x1
01d2 e001 | | Load 0x0,0x1
01d3 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
01d4 4800 |H | Short_Literal 0x0
01d5 e406 | | Load 0x2,0x6
01d6 e405 | | Load 0x2,0x5
01d7 0227 | ' | Execute Access,All_Reference
01d8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01d9 e20f | | Load 0x1,0xf
01da 0119 | | Execute Any,Check_In_Formal_Type
01db 8210 | | Call 0x1,0x10
01dc e5ff | | Load 0x2,-0x1
01dd e001 | | Load 0x0,0x1
01de 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
01df e403 | | Load 0x2,0x3
01e0 e21d | | Load 0x1,0x1d
01e1 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01e2 c403 | | Store 0x2,0x3
01e3 00c9 | | Action Pop_Auxiliary_Loop
01e4 e403 | | Load 0x2,0x3
01e5 e21d | | Load 0x1,0x1d
01e6 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01e7 6fc2 |o | Jump_Zero 0x1aa
01e8 00ce | | Action Pop_Auxiliary
01e9 4800 |H | Short_Literal 0x0
01ea 4801 |H | Short_Literal 0x1
01eb e402 | | Load 0x2,0x2
01ec 0227 | ' | Execute Access,All_Reference
01ed 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01ee e5ff | | Load 0x2,-0x1
01ef e001 | | Load 0x0,0x1
01f0 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
01f1 00da | | Load_Top At_Offset_2
01f2 e001 | | Load 0x0,0x1
01f3 1b17 | | Execute Package,Field_Read,Field_Number 0x17
01f4 180e | | Execute Package,Field_Execute,Field_Number 0xe
01f5 c408 | | Store 0x2,0x8
01f6 7833 |x3 | Jump 0x22a
01f7 00d9 | | Load_Top At_Offset_1
01f8 8214 | | Call 0x1,0x14
01f9 681c |h | Jump_Zero 0x216
01fa 00da | | Load_Top At_Offset_2
01fb 4800 |H | Short_Literal 0x0
01fc e001 | | Load 0x0,0x1
01fd 1b17 | | Execute Package,Field_Read,Field_Number 0x17
01fe 180f | | Execute Package,Field_Execute,Field_Number 0xf
01ff c408 | | Store 0x2,0x8
0200 00e1 | | Load_Encached Boolean_Cache
0201 00da | | Load_Top At_Offset_2
0202 8215 | | Call 0x1,0x15
0203 c407 | | Store 0x2,0x7
0204 00db | | Load_Top At_Offset_3
0205 6802 |h | Jump_Zero 0x208
0206 e21b | | Load 0x1,0x1b
0207 0257 | W | Execute Discrete,Raise
0208 4800 |H | Short_Literal 0x0
0209 4801 |H | Short_Literal 0x1
020a e402 | | Load 0x2,0x2
020b 0227 | ' | Execute Access,All_Reference
020c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
020d e5ff | | Load 0x2,-0x1
020e e001 | | Load 0x0,0x1
020f 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0210 00da | | Load_Top At_Offset_2
0211 e001 | | Load 0x0,0x1
0212 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0213 180e | | Execute Package,Field_Execute,Field_Number 0xe
0214 c408 | | Store 0x2,0x8
0215 7814 |x | Jump 0x22a
0216 00d9 | | Load_Top At_Offset_1
0217 e007 | | Load 0x0,0x7
0218 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0219 027f | | Execute Discrete,Equal
021a 6801 |h | Jump_Zero 0x21c
021b 780e |x | Jump 0x22a
021c 00d9 | | Load_Top At_Offset_1
021d e211 | | Load 0x1,0x11
021e 027f | | Execute Discrete,Equal
021f 6807 |h | Jump_Zero 0x227
0220 00da | | Load_Top At_Offset_2
0221 4800 |H | Short_Literal 0x0
0222 e001 | | Load 0x0,0x1
0223 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0224 180f | | Execute Package,Field_Execute,Field_Number 0xf
0225 c408 | | Store 0x2,0x8
0226 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0227 e5ff | | Load 0x2,-0x1
0228 e001 | | Load 0x0,0x1
0229 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
022a 00c9 | | Action Pop_Auxiliary_Loop
022b 7e97 |~ | Jump 0xc3
022c 0000 0000 | | .BLANK 0000[0x4]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0235 | 5 | .CONST 0x0235 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0002 | | .CONST 0x0002 ; Number of locals
0233 INIT_0230:
0233 00db | | Load_Top At_Offset_3
0234 0007 | | Action Break_Optional
0235 BODY_0230:
0235 00d8 | | Load_Top At_Offset_0
0236 022d | - | Execute Access,Is_Null
0237 00d9 | | Load_Top At_Offset_1
0238 0227 | ' | Execute Access,All_Reference
0239 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
023a e5ff | | Load 0x2,-0x1
023b 012f | / | Execute Any,Equal
023c 0278 | x | Execute Discrete,Or
023d 6802 |h | Jump_Zero 0x240
023e 00d8 | | Load_Top At_Offset_0
023f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0240 00d8 | | Load_Top At_Offset_0
0241 0227 | ' | Execute Access,All_Reference
0242 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0243 0039 | 9 | Store_Top Access,At_Offset_1
0244 00cf | | Action Mark_Auxiliary
0245 780d |x | Jump 0x253
0246 00d9 | | Load_Top At_Offset_1
0247 0227 | ' | Execute Access,All_Reference
0248 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0249 e5ff | | Load 0x2,-0x1
024a 012f | / | Execute Any,Equal
024b 6802 |h | Jump_Zero 0x24e
024c 00d9 | | Load_Top At_Offset_1
024d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
024e 00d9 | | Load_Top At_Offset_1
024f 0227 | ' | Execute Access,All_Reference
0250 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0251 003a | : | Store_Top Access,At_Offset_2
0252 00c9 | | Action Pop_Auxiliary_Loop
0253 00d9 | | Load_Top At_Offset_1
0254 e5fe | | Load 0x2,-0x2
0255 022e | . | Execute Access,Not_Equal
0256 77ef |w | Jump_Nonzero 0x246
0257 00ce | | Action Pop_Auxiliary
0258 e5fe | | Load 0x2,-0x2
0259 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
025a 0000 0000 | | .BLANK 0000[0x6]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0265 | e | .CONST 0x0265 ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0002 | | .CONST 0x0002 ; Number of locals
0263 INIT_0260:
0263 00da | | Load_Top At_Offset_2
0264 0007 | | Action Break_Optional
0265 BODY_0260:
0265 00d8 | | Load_Top At_Offset_0
0266 7002 |p | Jump_Nonzero 0x269
0267 00d8 | | Load_Top At_Offset_0
0268 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0269 00cf | | Action Mark_Auxiliary
026a 00d9 | | Load_Top At_Offset_1
026b 0227 | ' | Execute Access,All_Reference
026c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
026d e5ff | | Load 0x2,-0x1
026e 022f | / | Execute Access,Equal
026f 6802 |h | Jump_Zero 0x272
0270 00d9 | | Load_Top At_Offset_1
0271 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0272 00d9 | | Load_Top At_Offset_1
0273 0227 | ' | Execute Access,All_Reference
0274 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0275 003a | : | Store_Top Access,At_Offset_2
0276 00c9 | | Action Pop_Auxiliary_Loop
0277 7ff2 | | Jump 0x26a
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027d | } | .CONST 0x027d ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0002 | | .CONST 0x0002 ; Number of locals
027b INIT_0278:
027b e5fd | | Load 0x2,-0x3
027c 0007 | | Action Break_Optional
027d BODY_0278:
027d 00db | | Load_Top At_Offset_3
027e e008 | | Load 0x0,0x8
027f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0280 00db | | Load_Top At_Offset_3
0281 e008 | | Load 0x0,0x8
0282 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0283 00db | | Load_Top At_Offset_3
0284 e008 | | Load 0x0,0x8
0285 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0286 4800 |H | Short_Literal 0x0
0287 e5fe | | Load 0x2,-0x2
0288 00da | | Load_Top At_Offset_2
0289 0227 | ' | Execute Access,All_Reference
028a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
028b e20f | | Load 0x1,0xf
028c 0119 | | Execute Any,Check_In_Formal_Type
028d 8210 | | Call 0x1,0x10
028e e5ff | | Load 0x2,-0x1
028f e001 | | Load 0x0,0x1
0290 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0291 4801 |H | Short_Literal 0x1
0292 e5ff | | Load 0x2,-0x1
0293 e001 | | Load 0x0,0x1
0294 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0295 00d8 | | Load_Top At_Offset_0
0296 0227 | ' | Execute Access,All_Reference
0297 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0298 0039 | 9 | Store_Top Access,At_Offset_1
0299 00cf | | Action Mark_Auxiliary
029a 7814 |x | Jump 0x2af
029b 4800 |H | Short_Literal 0x0
029c e5fe | | Load 0x2,-0x2
029d 00db | | Load_Top At_Offset_3
029e 0227 | ' | Execute Access,All_Reference
029f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02a0 e20f | | Load 0x1,0xf
02a1 0119 | | Execute Any,Check_In_Formal_Type
02a2 8210 | | Call 0x1,0x10
02a3 e5ff | | Load 0x2,-0x1
02a4 e001 | | Load 0x0,0x1
02a5 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
02a6 4801 |H | Short_Literal 0x1
02a7 e5ff | | Load 0x2,-0x1
02a8 e001 | | Load 0x0,0x1
02a9 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
02aa 00d9 | | Load_Top At_Offset_1
02ab 0227 | ' | Execute Access,All_Reference
02ac 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02ad 003a | : | Store_Top Access,At_Offset_2
02ae 00c9 | | Action Pop_Auxiliary_Loop
02af 00d9 | | Load_Top At_Offset_1
02b0 e5fd | | Load 0x2,-0x3
02b1 022e | . | Execute Access,Not_Equal
02b2 77e8 |w | Jump_Nonzero 0x29b
02b3 00ce | | Action Pop_Auxiliary
02b4 4800 |H | Short_Literal 0x0
02b5 4801 |H | Short_Literal 0x1
02b6 4801 |H | Short_Literal 0x1
02b7 e5ff | | Load 0x2,-0x1
02b8 e001 | | Load 0x0,0x1
02b9 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
02ba 4504 |E | Exit_Suprogram New_Top_Offset 0x4
02bb 0000 0000 | | .BLANK 0000[0x5]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3 | | .CONST 0x02c3 ; Address of begin
02c1 0004 | | .CONST 0x0004 ; Address of exception handler
02c2 0001 | | .CONST 0x0001 ; Number of locals
02c3 BODY_02c0:
02c3 INIT_02c0:
02c3 4608 |F | Jump_Case 0x9
02c4 7808 |x | Jump 0x2cd ; case 0x0
02c5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
02c6 780d |x | Jump 0x2d4 ; case 0x2
02c7 780c |x | Jump 0x2d4 ; case 0x3
02c8 780b |x | Jump 0x2d4 ; case 0x4
02c9 780a |x | Jump 0x2d4 ; case 0x5
02ca 7809 |x | Jump 0x2d4 ; case 0x6
02cb 7808 |x | Jump 0x2d4 ; case 0x7
02cc 7807 |x | Jump 0x2d4 ; case 0x8
02cd 00da | | Load_Top At_Offset_2
02ce 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02cf 0125 | % | Execute Any,Set_Constraint
02d0 00da | | Load_Top At_Offset_2
02d1 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02d2 1c00 | | Execute_Immediate Run_Utility,0x0
02d3 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
02d4 0869 | i | Execute_Immediate Raise,0x69
02d5 0000 0000 | | .XXX[0x3]
02d7 0000 | |
02d8 ; --------------------------------------------------------------------------------------
02d8 ; Debug Table
02d8 ; --------------------------------------------------------------------------------------
02d8 0004 0001 | | .DEBUG4 0x0004,0x0001,0x7156,0x0000,0x0001,0x0009
02de 000b 0302 | | .DBG4T 0x000b,0x0302,0xc000,0x0000
02e2 0027 030d | ' | .DBG4T 0x0027,0x030d,0xc000,0x0000
02e6 0043 0316 | C | .DBG4T 0x0043,0x0316,0x1002,0x0000
02ea 004b 0319 | K | .DBG4T 0x004b,0x0319,0x1001,0x0000
02ee 009b 0323 | #| .DBG4T 0x009b,0x0323,0x1001,0xc000
02f2 0233 03a5 | 3 | .DBG4T 0x0233,0x03a5,0x1002,0x4000
02f6 0263 03b8 | c | .DBG4T 0x0263,0x03b8,0x1002,0x4000
02fa 027b 03c5 | { | .DBG4T 0x027b,0x03c5,0x1001,0x4000
02fe 02c3 0000 | | .DBG4T 0x02c3,0x0000,0x1005,0x0000
0302 ; --------------------------------------------------------------------------------------
0302 ; Debug chain
0302 ; --------------------------------------------------------------------------------------
0302 0009 0000 | | .DBGLEN 0x0009,0x0000
0304 000b 000e | | .DBGLNO 0x000b,0x000e,0x0010,0x0012,0x0014,0x0016,0x0018,0x001a,0x001e
030d ; --------------------------------------------------------------------------------------
030d ; Debug chain
030d ; --------------------------------------------------------------------------------------
030d 0007 0000 | | .DBGLEN 0x0007,0x0000
030f 0027 002e | ' .| .DBGLNO 0x0027,0x002e,0x0030,0x0032,0x0034,0x0036,0x0038
0316 ; --------------------------------------------------------------------------------------
0316 ; Debug chain
0316 ; --------------------------------------------------------------------------------------
0316 0000 0001 | | .DBGLEN 0x0000,0x0001
0318 0043 | C | .DBGLNO 0x0043
0319 ; --------------------------------------------------------------------------------------
0319 ; Debug chain
0319 ; --------------------------------------------------------------------------------------
0319 0001 0007 | | .DBGLEN 0x0001,0x0007
031b 004b 004d | K M| .DBGLNO 0x004b,0x004d,0x004f,0x0063,0x0067,0x006c,0x0085,0x008b
0323 ; --------------------------------------------------------------------------------------
0323 ; Debug chain
0323 ; --------------------------------------------------------------------------------------
0323 0008 0038 | 8| .DBGLEN 0x0008,0x0038
0325 009b 009d | | .DBGLNO 0x009b,0x009d,0x009f,0x00a1,0x00a3,0x00aa,0x00ab,0x00b1,0x00b4,0x00b8,0x00bd,0x00c3,0x00cb,0x00d0,0x00d4,0x00dd,0x00e2,0x00e6,0x00ef,0x00f4,0x00fd,0x0108,0x0111,0x0116,0x011f,0x012a,0x0133,0x013a,0x0142,0x014a,0x0152,0x015d,0x0162,0x0167,0x016f,0x0174,0x0177,0x017d,0x0181,0x0192,0x019e,0x01a4,0x01aa,0x01b2,0x01c3,0x01cc,0x01d4,0x01df,0x01e4,0x01e9,0x01f1,0x01f7,0x01fa,0x0200,0x0204,0x0206,0x0208,0x0210,0x0216,0x021b,0x021c,0x0220,0x0226,0x0227
0365 0001 0002 | | .XXX[0x40]
0367 0003 0004 | |
0369 0005 0006 | |
036b 0008 0009 | |
036d 0001 0002 | |
036f 0003 0005 | |
0371 0006 0007 | |
0373 0008 0009 | |
0375 000a 000b | |
0377 000c 000d | |
0379 000e 000f | |
037b 0010 0011 | |
037d 0012 0013 | |
037f 0014 0015 | |
0381 0017 0018 | |
0383 0019 001a | |
0385 0016 001b | |
0387 001c 001d | |
0389 001e 001f | |
038b 0020 0021 | !|
038d 0022 0023 | " #|
038f 0025 0026 | % &|
0391 0027 0028 | ' (|
0393 0029 002a | ) *|
0395 0024 002b | $ +|
0397 002c 002d | , -|
0399 002e 002f | . /|
039b 0030 0031 | 0 1|
039d 0033 0034 | 3 4|
039f 0035 0036 | 5 6|
03a1 0037 0038 | 7 8|
03a3 0039 003a | 9 :|
03a5 ; --------------------------------------------------------------------------------------
03a5 ; Debug chain
03a5 ; --------------------------------------------------------------------------------------
03a5 0001 0008 | | .DBGLEN 0x0001,0x0008
03a7 0233 0235 | 3 5| .DBGLNO 0x0233,0x0235,0x023e,0x0240,0x0246,0x024c,0x024e,0x0253,0x0258
03b0 0001 0002 | | .XXX[0x8]
03b2 0003 0005 | |
03b4 0006 0007 | |
03b6 0004 0008 | |
03b8 ; --------------------------------------------------------------------------------------
03b8 ; Debug chain
03b8 ; --------------------------------------------------------------------------------------
03b8 0001 0005 | | .DBGLEN 0x0001,0x0005
03ba 0263 0265 | c e| .DBGLNO 0x0263,0x0265,0x0267,0x026a,0x0270,0x0272
03c0 0001 0002 | | .XXX[0x5]
03c2 0004 0005 | |
03c4 0006 | |
03c5 ; --------------------------------------------------------------------------------------
03c5 ; Debug chain
03c5 ; --------------------------------------------------------------------------------------
03c5 0001 000b | | .DBGLEN 0x0001,0x000b
03c7 027b 027d | { }| .DBGLNO 0x027b,0x027d,0x0280,0x0283,0x0286,0x0291,0x0295,0x029b,0x02a6,0x02aa,0x02af,0x02b4
03d3 0001 0002 | | .XXX[0xb]
03d5 0003 0004 | |
03d7 0005 0006 | |
03d9 0008 0009 | |
03db 000a 0007 | |
03dd 000b | |
03de 0000 0000 | | .BLANK 0000[0x22]