|
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_779ce4
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0278 | x | .CONST 0x0278 ; 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 0093 | | .CONST 0x0093 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0032 | 2 | .CONST 0x0032 ; Number of locals
000b INIT_0008:
000b 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
000d 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
000f 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated
0011 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated
0013 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
0015 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated
0017 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated
0019 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated
001b 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated
001d 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
001f 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated
0021 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated
0023 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated
0025 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated
0027 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated
0029 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated
002b 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated
002d 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated
002f 0093 0000 | | push_full_address 0x0
0031 609e |` | Indirect_Literal Discrete,0xd0,{0x80000000, 0x00010000}
0032 0273 | s | Execute Discrete,Plus
0033 e20d | | Load 0x1,0xd
0034 6097 |` | Indirect_Literal Discrete,0xcc,{0x00000000, 0x0000ffff}
0035 0279 | y | Execute Discrete,And
0036 0273 | s | Execute Discrete,Plus
0037 e002 | | Load 0x0,0x2
0038 0273 | s | Execute Discrete,Plus
0039 e20e | | Load 0x1,0xe
003a 1d12 | | Execute_Immediate Reference_Lex_1,0x12
003b 1d13 | | Execute_Immediate Reference_Lex_1,0x13
003c 1d15 | | Execute_Immediate Reference_Lex_1,0x15
003d 1d14 | | Execute_Immediate Reference_Lex_1,0x14
003e e003 | | Load 0x0,0x3
003f 0386 | | Declare_Variable Package,Visible
0040 00d8 | | Load_Top At_Offset_0
0041 020f | | Execute Module,Activate
0042 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible
0043 00d8 | | Load_Top At_Offset_0
0044 02a0 | | Declare_Subprogram Null_Subprogram
0045 4818 |H | Short_Literal 0x18
0046 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected
0047 e004 | | Load 0x0,0x4
0048 00db | | Load_Top At_Offset_3
0049 0098 | | Execute Package,Field_Read_Dynamic
004a 0129 | ) | Execute Any,Make_Visible
004b e20f | | Load 0x1,0xf
004c 00e1 | | Load_Encached Boolean_Cache
004d e005 | | Load 0x0,0x5
004e e22c | , | Load 0x1,0x2c
004f 0098 | | Execute Package,Field_Read_Dynamic
0050 029f 024b | K| Declare_Subprogram INIT_0248,For_Call
0052 4803 |H | Short_Literal 0x3
0053 032e | . | Declare_Type Record,Defined,Visible
0054 00bf | | Action Accept_Activation
0055 4800 |H | Short_Literal 0x0
0056 4801 |H | Short_Literal 0x1
0057 029f 0213 | | Declare_Subprogram INIT_0210,For_Call
0059 03fd | | Declare_Type Discrete,Defined
005a e006 | | Load 0x0,0x6
005b e007 | | Load 0x0,0x7
005c 00da | | Load_Top At_Offset_2
005d 4800 |H | Short_Literal 0x0
005e 4801 |H | Short_Literal 0x1
005f 4801 |H | Short_Literal 0x1
0060 0092 025a | Z| Action Push_String_Extended,0x25a ; "others => Unspecified"
0062 00ea | | Load_Encached Null_String_Cache
0063 00ea | | Load_Encached Null_String_Cache
0064 4801 |H | Short_Literal 0x1
0065 4801 |H | Short_Literal 0x1
0066 e008 | | Load 0x0,0x8
0067 0387 | | Declare_Variable Package
0068 00d8 | | Load_Top At_Offset_0
0069 020f | | Execute Module,Activate
006a e005 | | Load 0x0,0x5
006b e22c | , | Load 0x1,0x2c
006c 0098 | | Execute Package,Field_Read_Dynamic
006d e22d | - | Load 0x1,0x2d
006e 03a2 | | Complete_Type Heap_Access,By_Renaming
006f 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0070 00c7 | | Action Elaborate_Subprogram
0071 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0072 00c7 | | Action Elaborate_Subprogram
0073 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0074 00c7 | | Action Elaborate_Subprogram
0075 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0076 00c7 | | Action Elaborate_Subprogram
0077 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0078 00c7 | | Action Elaborate_Subprogram
0079 1d20 | | Execute_Immediate Reference_Lex_1,0x20
007a 00c7 | | Action Elaborate_Subprogram
007b 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
007c 00c7 | | Action Elaborate_Subprogram
007d 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
007e 00c7 | | Action Elaborate_Subprogram
007f 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0080 00c7 | | Action Elaborate_Subprogram
0081 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0082 00c7 | | Action Elaborate_Subprogram
0083 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0084 00c7 | | Action Elaborate_Subprogram
0085 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0086 00c7 | | Action Elaborate_Subprogram
0087 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
0088 00c7 | | Action Elaborate_Subprogram
0089 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
008a 00c7 | | Action Elaborate_Subprogram
008b 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
008c 00c7 | | Action Elaborate_Subprogram
008d 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
008e 00c7 | | Action Elaborate_Subprogram
008f 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
0090 00c7 | | Action Elaborate_Subprogram
0091 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
0092 00c7 | | Action Elaborate_Subprogram
0093 BODY_0008:
0093 00bc | | Action Signal_Activated
0094 00bb | | Action Signal_Completion
0095 0000 0000 | | .XXX[0x3]
0097 0000 | |
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00a6 | | .CONST 0x00a6 ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0004 | | .CONST 0x0004 ; Number of locals
009b INIT_0098:
009b 00da | | Load_Top At_Offset_2
009c e232 | 2 | Load 0x1,0x32
009d 1820 | | Execute Package,Field_Execute,Field_Number 0x20
009e e004 | | Load 0x0,0x4
009f e22c | , | Load 0x1,0x2c
00a0 0098 | | Execute Package,Field_Read_Dynamic
00a1 0007 | | Action Break_Optional
00a2 e20e | | Load 0x1,0xe
00a3 02c7 | | Declare_Variable Any
00a4 00d8 | | Load_Top At_Offset_0
00a5 1c00 | | Execute_Immediate Run_Utility,0x0
00a6 BODY_0098:
00a6 e5fe | | Load 0x2,-0x2
00a7 e009 | | Load 0x0,0x9
00a8 e22c | , | Load 0x1,0x2c
00a9 0096 | | Execute Package,Entry
00aa 0032 | 2 | Store_Top Heap_Access,At_Offset_2
00ab 00cf | | Action Mark_Auxiliary
00ac 7815 |x | Jump 0xc2
00ad e5fe | | Load 0x2,-0x2
00ae 00ea | | Load_Encached Null_String_Cache
00af 4800 |H | Short_Literal 0x0
00b0 e402 | | Load 0x2,0x2
00b1 e232 | 2 | Load 0x1,0x32
00b2 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
00b3 8211 | | Call 0x1,0x11
00b4 c404 | | Store 0x2,0x4
00b5 00da | | Load_Top At_Offset_2
00b6 00da | | Load_Top At_Offset_2
00b7 e20e | | Load 0x1,0xe
00b8 0119 | | Execute Any,Check_In_Formal_Type
00b9 e00a | | Load 0x0,0xa
00ba e22c | , | Load 0x1,0x2c
00bb 0096 | | Execute Package,Entry
00bc 0033 | 3 | Store_Top Heap_Access,At_Offset_3
00bd 00db | | Load_Top At_Offset_3
00be e232 | 2 | Load 0x1,0x32
00bf 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
00c0 c402 | | Store 0x2,0x2
00c1 00c9 | | Action Pop_Auxiliary_Loop
00c2 00db | | Load_Top At_Offset_3
00c3 e232 | 2 | Load 0x1,0x32
00c4 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
00c5 6fe7 |o | Jump_Zero 0xad
00c6 00ce | | Action Pop_Auxiliary
00c7 00d9 | | Load_Top At_Offset_1
00c8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00c9 0000 0000 | | .XXX[0x3]
00cb 0000 | |
00cc 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
00d0 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00d4 0000 0000 | | .BLANK 0000[0x4]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db 00da | | Load_Top At_Offset_2
00dc e009 | | Load 0x0,0x9
00dd e22c | , | Load 0x1,0x2c
00de 0096 | | Execute Package,Entry
00df 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00e4 0000 0000 | | .BLANK 0000[0x4]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00f5 | | .CONST 0x00f5 ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0004 | | .CONST 0x0004 ; Number of locals
00eb INIT_00e8:
00eb e230 | 0 | Load 0x1,0x30
00ec 0322 | " | Declare_Variable Record
00ed 00d8 | | Load_Top At_Offset_0
00ee 1c00 | | Execute_Immediate Run_Utility,0x0
00ef 00d8 | | Load_Top At_Offset_0
00f0 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
00f1 0007 | | Action Break_Optional
00f2 00d9 | | Load_Top At_Offset_1
00f3 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00f4 0007 | | Action Break_Optional
00f5 BODY_00e8:
00f5 e005 | | Load 0x0,0x5
00f6 e22c | , | Load 0x1,0x2c
00f7 0098 | | Execute Package,Field_Read_Dynamic
00f8 e5ff | | Load 0x2,-0x1
00f9 e00b | | Load 0x0,0xb
00fa e22c | , | Load 0x1,0x2c
00fb 0096 | | Execute Package,Entry
00fc c403 | | Store 0x2,0x3
00fd 00d9 | | Load_Top At_Offset_1
00fe e00c | | Load 0x0,0xc
00ff e22c | , | Load 0x1,0x2c
0100 0096 | | Execute Package,Entry
0101 7006 |p | Jump_Nonzero 0x108
0102 00d9 | | Load_Top At_Offset_1
0103 e00d | | Load 0x0,0xd
0104 e22c | , | Load 0x1,0x2c
0105 0096 | | Execute Package,Entry
0106 8216 | | Call 0x1,0x16
0107 c404 | | Store 0x2,0x4
0108 00da | | Load_Top At_Offset_2
0109 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
010a 0000 0000 | | .BLANK 0000[0x6]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 00da | | Load_Top At_Offset_2
0114 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0115 e00c | | Load 0x0,0xc
0116 e22c | , | Load 0x1,0x2c
0117 0096 | | Execute Package,Entry
0118 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0119 0000 0000 | | .BLANK 0000[0x7]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 012a | * | .CONST 0x012a ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0004 | | .CONST 0x0004 ; Number of locals
0123 INIT_0120:
0123 0092 025b | [| Action Push_String_Extended,0x25b ; "S=>"
0125 00db | | Load_Top At_Offset_3
0126 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0127 0007 | | Action Break_Optional
0128 029f 023b | ;| Declare_Subprogram INIT_0238,For_Call
012a BODY_0120:
012a e5ff | | Load 0x2,-0x1
012b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
012c 680f |h | Jump_Zero 0x13c
012d e210 | | Load 0x1,0x10
012e 6808 |h | Jump_Zero 0x137
012f 0092 025c | \| Action Push_String_Extended,0x25c ; "S=>("
0131 00da | | Load_Top At_Offset_2
0132 e20f | | Load 0x1,0xf
0133 0119 | | Execute Any,Check_In_Formal_Type
0134 8404 | | Call 0x2,0x4
0135 01cc | | Execute Vector,Catenate
0136 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0137 00da | | Load_Top At_Offset_2
0138 00da | | Load_Top At_Offset_2
0139 8218 | | Call 0x1,0x18
013a 01cc | | Execute Vector,Catenate
013b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
013c 00d9 | | Load_Top At_Offset_1
013d e20f | | Load 0x1,0xf
013e 0119 | | Execute Any,Check_In_Formal_Type
013f 8404 | | Call 0x2,0x4
0140 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0141 0000 0000 | | .BLANK 0000[0x7]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 0151 | Q | .CONST 0x0151 ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0003 | | .CONST 0x0003 ; Number of locals
014b INIT_0148:
014b 00da | | Load_Top At_Offset_2
014c 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
014d 0007 | | Action Break_Optional
014e 00db | | Load_Top At_Offset_3
014f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0150 0007 | | Action Break_Optional
0151 BODY_0148:
0151 e210 | | Load 0x1,0x10
0152 6810 |h | Jump_Zero 0x163
0153 00d8 | | Load_Top At_Offset_0
0154 8217 | | Call 0x1,0x17
0155 700d |p | Jump_Nonzero 0x163
0156 00d8 | | Load_Top At_Offset_0
0157 00d8 | | Load_Top At_Offset_0
0158 0120 | | Execute Any,Is_Value
0159 6803 |h | Jump_Zero 0x15d
015a e20f | | Load 0x1,0xf
015b 0122 | " | Execute Any,Make_Root_Type
015c 011e | | Execute Any,Convert
015d 8219 | | Call 0x1,0x19
015e c403 | | Store 0x2,0x3
015f 4800 |H | Short_Literal 0x0
0160 e5ff | | Load 0x2,-0x1
0161 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0162 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0163 00d9 | | Load_Top At_Offset_1
0164 e00e | | Load 0x0,0xe
0165 e22c | , | Load 0x1,0x2c
0166 0096 | | Execute Package,Entry
0167 c402 | | Store 0x2,0x2
0168 00d9 | | Load_Top At_Offset_1
0169 e00c | | Load 0x0,0xc
016a e22c | , | Load 0x1,0x2c
016b 0096 | | Execute Package,Entry
016c 7009 |p | Jump_Nonzero 0x176
016d 00d9 | | Load_Top At_Offset_1
016e e00d | | Load 0x0,0xd
016f e22c | , | Load 0x1,0x2c
0170 0096 | | Execute Package,Entry
0171 8216 | | Call 0x1,0x16
0172 c403 | | Store 0x2,0x3
0173 4801 |H | Short_Literal 0x1
0174 e5ff | | Load 0x2,-0x1
0175 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0176 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0177 0000 | | .XXX[0x1]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b | { | .CONST 0x017b ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0001 | | .CONST 0x0001 ; Number of locals
017b BODY_0178:
017b INIT_0178:
017b 00da | | Load_Top At_Offset_2
017c e5fe | | Load 0x2,-0x2
017d 021f | | Execute Heap_Access,Equal
017e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
017f 0000 | | .XXX[0x1]
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 e5fd | | Load 0x2,-0x3
0184 e004 | | Load 0x0,0x4
0185 e22c | , | Load 0x1,0x2c
0186 0098 | | Execute Package,Field_Read_Dynamic
0187 0216 | | Execute Heap_Access,Convert
0188 e5fe | | Load 0x2,-0x2
0189 e5ff | | Load 0x2,-0x1
018a e00f | | Load 0x0,0xf
018b e22c | , | Load 0x1,0x2c
018c 0096 | | Execute Package,Entry
018d c5fd | | Store 0x2,-0x3
018e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
018f 0000 | | .XXX[0x1]
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 e010 | | Load 0x0,0x10
0195 e22c | , | Load 0x1,0x2c
0196 0096 | | Execute Package,Entry
0197 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b 0833 | 3 | Execute_Immediate Raise,0x33
019c 0000 0000 | | .BLANK 0000[0x4]
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 00db | | Load_Top At_Offset_3
01a4 e20e | | Load 0x1,0xe
01a5 0119 | | Execute Any,Check_In_Formal_Type
01a6 00db | | Load_Top At_Offset_3
01a7 e011 | | Load 0x0,0x11
01a8 e22c | , | Load 0x1,0x2c
01a9 0096 | | Execute Package,Entry
01aa 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01ab 0000 0000 | | .BLANK 0000[0x5]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3 | | .CONST 0x01b3 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0001 | | .CONST 0x0001 ; Number of locals
01b3 BODY_01b0:
01b3 INIT_01b0:
01b3 00db | | Load_Top At_Offset_3
01b4 e004 | | Load 0x0,0x4
01b5 e22c | , | Load 0x1,0x2c
01b6 0098 | | Execute Package,Field_Read_Dynamic
01b7 0216 | | Execute Heap_Access,Convert
01b8 00db | | Load_Top At_Offset_3
01b9 e20e | | Load 0x1,0xe
01ba 0119 | | Execute Any,Check_In_Formal_Type
01bb e00a | | Load 0x0,0xa
01bc e22c | , | Load 0x1,0x2c
01bd 0096 | | Execute Package,Entry
01be c5fe | | Store 0x2,-0x2
01bf 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3 | | .CONST 0x01c3 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0001 | | .CONST 0x0001 ; Number of locals
01c3 BODY_01c0:
01c3 INIT_01c0:
01c3 0833 | 3 | Execute_Immediate Raise,0x33
01c4 0000 0000 | | .BLANK 0000[0x4]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cd | | .CONST 0x01cd ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0002 | | .CONST 0x0002 ; Number of locals
01cb INIT_01c8:
01cb e22e | . | Load 0x1,0x2e
01cc 03bc | | Declare_Variable Access,By_Allocation
01cd BODY_01c8:
01cd 00d8 | | Load_Top At_Offset_0
01ce e005 | | Load 0x0,0x5
01cf e22c | , | Load 0x1,0x2c
01d0 0098 | | Execute Package,Field_Read_Dynamic
01d1 e5ff | | Load 0x2,-0x1
01d2 e00b | | Load 0x0,0xb
01d3 e22c | , | Load 0x1,0x2c
01d4 0096 | | Execute Package,Entry
01d5 00d9 | | Load_Top At_Offset_1
01d6 0228 | ( | Execute Access,All_Write
01d7 00d1 | | Pop_Control Pop_Count_1
01d8 00d8 | | Load_Top At_Offset_0
01d9 a5fe | | Store_Unchecked 0x2,-0x2
01da 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01db 0000 0000 | | .BLANK 0000[0x5]
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 00d8 | | Load_Top At_Offset_0
01e5 0229 | ) | Execute Access,All_Read
01e6 e005 | | Load 0x0,0x5
01e7 e22c | , | Load 0x1,0x2c
01e8 0098 | | Execute Package,Field_Read_Dynamic
01e9 0216 | | Execute Heap_Access,Convert
01ea e00e | | Load 0x0,0xe
01eb e22c | , | Load 0x1,0x2c
01ec 0096 | | Execute Package,Entry
01ed 00d9 | | Load_Top At_Offset_1
01ee 0228 | ( | Execute Access,All_Write
01ef 4501 |E | Exit_Suprogram New_Top_Offset 0x1
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 00da | | Load_Top At_Offset_2
01f4 0229 | ) | Execute Access,All_Read
01f5 e00d | | Load 0x0,0xd
01f6 e22c | , | Load 0x1,0x2c
01f7 0096 | | Execute Package,Entry
01f8 e20e | | Load 0x1,0xe
01f9 0119 | | Execute Any,Check_In_Formal_Type
01fa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01fb 0000 0000 | | .BLANK 0000[0x5]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203 | | .CONST 0x0203 ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0001 | | .CONST 0x0001 ; Number of locals
0203 BODY_0200:
0203 INIT_0200:
0203 00da | | Load_Top At_Offset_2
0204 0229 | ) | Execute Access,All_Read
0205 e00c | | Load 0x0,0xc
0206 e22c | , | Load 0x1,0x2c
0207 0096 | | Execute Package,Entry
0208 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0209 0000 0000 | | .BLANK 0000[0x7]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213 | | .CONST 0x0213 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0001 | | .CONST 0x0001 ; Number of locals
0213 BODY_0210:
0213 INIT_0210:
0213 4607 |F | Jump_Case 0x8
0214 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0215 7807 |x | Jump 0x21d ; case 0x1
0216 780a |x | Jump 0x221 ; case 0x2
0217 780e |x | Jump 0x226 ; case 0x3
0218 7811 |x | Jump 0x22a ; case 0x4
0219 7812 |x | Jump 0x22c ; case 0x5
021a 7813 |x | Jump 0x22e ; case 0x6
021b 7816 |x | Jump 0x232 ; case 0x7
021c 4302 |C | .XXX[0x1]
021d 00da | | Load_Top At_Offset_2
021e 0091 0258 | X| Action Push_String_Extended_Indexed,0x258 ; "NONE"
0220 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0221 00db | | Load_Top At_Offset_3
0222 00db | | Load_Top At_Offset_3
0223 00e0 | | Load_Encached Standard_Cache
0224 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0225 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0226 00da | | Load_Top At_Offset_2
0227 00e0 | | Load_Encached Standard_Cache
0228 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0229 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
022a 00db | | Load_Top At_Offset_3
022b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
022c 00db | | Load_Top At_Offset_3
022d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
022e e231 | 1 | Load 0x1,0x31
022f 00dc | | Load_Top At_Offset_4
0230 0267 | g | Execute Discrete,Predecessor
0231 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0232 e231 | 1 | Load 0x1,0x31
0233 00dc | | Load_Top At_Offset_4
0234 0268 | h | Execute Discrete,Successor
0235 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0236 0000 0000 | | .XXX[0x2]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b | ; | .CONST 0x023b ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0001 | | .CONST 0x0001 ; Number of locals
023b BODY_0238:
023b INIT_0238:
023b 00da | | Load_Top At_Offset_2
023c 8217 | | Call 0x1,0x17
023d 7003 |p | Jump_Nonzero 0x241
023e 00da | | Load_Top At_Offset_2
023f 8218 | | Call 0x1,0x18
0240 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0241 0092 025d | ]| Action Push_String_Extended,0x25d ; ")"
0243 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0244 0000 0000 | | .BLANK 0000[0x4]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b | K | .CONST 0x024b ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0001 | | .CONST 0x0001 ; Number of locals
024b BODY_0248:
024b INIT_0248:
024b 4601 |F | Jump_Case 0x2
024c 7801 |x | Jump 0x24e ; case 0x0
024d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
024e 00da | | Load_Top At_Offset_2
024f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0250 0125 | % | Execute Any,Set_Constraint
0251 00da | | Load_Top At_Offset_2
0252 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0253 1c00 | | Execute_Immediate Run_Utility,0x0
0254 4801 |H | Short_Literal 0x1
0255 00db | | Load_Top At_Offset_3
0256 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0257 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0258 ; --------------------------------------------------------------------------------------
0258 ; STRING TABLE
0258 ; --------------------------------------------------------------------------------------
0258 000e | | .STRTAB 0x000e->0x025f ; "NONE"
0259 0010 | | .STRTAB 0x0010->0x0261 ; "NO_ELEMENTS"
025a 0019 | | .STRTAB 0x0019->0x0266 ; "others => Unspecified"
025b 002c | , | .STRTAB 0x002c->0x0271 ; "S=>"
025c 002d | - | .STRTAB 0x002d->0x0272 ; "S=>("
025d 002f | / | .STRTAB 0x002f->0x0274 ; ")"
025e 002e | . | .STREND 0x002e->0x0275
025f 4e4f 4e45 |NONE| .STRTAB_STRINGS
0275 0000 0000 | | .XXX[0x3]
0277 0000 | |
0278 ; --------------------------------------------------------------------------------------
0278 ; Debug Table
0278 ; --------------------------------------------------------------------------------------
0278 0004 000a | | .DEBUG4 0x0004,0x000a,0x4469,0x0000,0x0001,0x0000
027e 0000 0000 | | .BLANK 0000[0x182]