|
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_28a4f3
└─⟦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 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0110 | | .CONST 0x0110 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 002c | , | .CONST 0x002c ; Number of locals
000b INIT_0008:
000b 00c4 | | Action Make_Default
000c 00c4 | | Action Make_Default
000d 00c4 | | Action Make_Default
000e 00c4 | | Action Make_Default
000f 00c4 | | Action Make_Default
0010 00c4 | | Action Make_Default
0011 00c4 | | Action Make_Default
0012 00c4 | | Action Make_Default
0013 00c4 | | Action Make_Default
0014 00c4 | | Action Make_Default
0015 00c4 | | Action Make_Default
0016 00c4 | | Action Make_Default
0017 00c4 | | Action Make_Default
0018 00c4 | | Action Make_Default
0019 00c4 | | Action Make_Default
001a 00c4 | | Action Make_Default
001b 00c4 | | Action Make_Default
001c 00c4 | | Action Make_Default
001d 00c4 | | Action Make_Default
001e 00c4 | | Action Make_Default
001f 00c4 | | Action Make_Default
0020 00c4 | | Action Make_Default
0021 00c4 | | Action Make_Default
0022 00c4 | | Action Make_Default
0023 00c4 | | Action Make_Default
0024 00c4 | | Action Make_Default
0025 00c4 | | Action Make_Default
0026 00c4 | | Action Make_Default
0027 00c4 | | Action Make_Default
0028 00c4 | | Action Make_Default
0029 00c4 | | Action Make_Default
002a 00c4 | | Action Make_Default
002b 4801 |H | Short_Literal 0x1
002c 480a |H | Short_Literal 0xa
002d 00e5 | | Load_Encached Long_Integer_Cache
002e 03f9 | | Declare_Type Discrete,Constrained,Visible
002f c212 | | Store 0x1,0x12
0030 00e8 | | Load_Encached Character_Cache
0031 0462 | b | Execute_Immediate Set_Value_Visible_Unchecked,0x62
0032 c213 | | Store 0x1,0x13
0033 e212 | | Load 0x1,0x12
0034 0129 | ) | Execute Any,Make_Visible
0035 c214 | | Store 0x1,0x14
0036 58ed |X | Indirect_Literal Float,0x124,1.0
0037 58e8 |X | Indirect_Literal Float,0x120,4.5
0038 00e6 | | Load_Encached Float_Cache
0039 03e4 | | Declare_Type Float,Constrained,Visible
003a 029f 011b | | Declare_Subprogram INIT_0118,For_Call
003c 00d9 | | Load_Top At_Offset_1
003d 012a | * | Execute Any,Change_Utility
003e c215 | | Store 0x1,0x15
003f 58e4 |X | Indirect_Literal Float,0x124,1.0
0040 58df |X | Indirect_Literal Float,0x120,4.5
0041 00e6 | | Load_Encached Float_Cache
0042 03e4 | | Declare_Type Float,Constrained,Visible
0043 029f 012b | +| Declare_Subprogram INIT_0128,For_Call
0045 00d9 | | Load_Top At_Offset_1
0046 012a | * | Execute Any,Change_Utility
0047 c216 | | Store 0x1,0x16
0048 4800 |H | Short_Literal 0x0
0049 4802 |H | Short_Literal 0x2
004a 029f 0133 | 3| Declare_Subprogram INIT_0130,For_Call
004c 03fe | | Declare_Type Discrete,Defined,Visible
004d c217 | | Store 0x1,0x17
004e 4800 |H | Short_Literal 0x0
004f 4802 |H | Short_Literal 0x2
0050 029f 015b | [| Declare_Subprogram INIT_0158,For_Call
0052 03fe | | Declare_Type Discrete,Defined,Visible
0053 c218 | | Store 0x1,0x18
0054 e212 | | Load 0x1,0x12
0055 0266 | f | Execute Discrete,Bounds
0056 e215 | | Load 0x1,0x15
0057 02a0 | | Declare_Subprogram Null_Subprogram
0058 4801 |H | Short_Literal 0x1
0059 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
005a c219 | | Store 0x1,0x19
005b 4801 |H | Short_Literal 0x1
005c 480a |H | Short_Literal 0xa
005d 00e1 | | Load_Encached Boolean_Cache
005e 02a0 | | Declare_Subprogram Null_Subprogram
005f 4801 |H | Short_Literal 0x1
0060 035e | ^ | Declare_Type Array,Defined,Visible
0061 c21a | | Store 0x1,0x1a
0062 00e8 | | Load_Encached Character_Cache
0063 4801 |H | Short_Literal 0x1
0064 4802 |H | Short_Literal 0x2
0065 00e9 | | Load_Encached String_Cache
0066 035c | \ | Declare_Type Array,Constrained,Visible
0067 e215 | | Load 0x1,0x15
0068 e216 | | Load 0x1,0x16
0069 02a0 | | Declare_Subprogram Null_Subprogram
006a 4804 |H | Short_Literal 0x4
006b 032e | . | Declare_Type Record,Defined,Visible
006c c21b | | Store 0x1,0x1b
006d e212 | | Load 0x1,0x12
006e 0266 | f | Execute Discrete,Bounds
006f e21b | | Load 0x1,0x1b
0070 02a0 | | Declare_Subprogram Null_Subprogram
0071 4801 |H | Short_Literal 0x1
0072 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0073 c21c | | Store 0x1,0x1c
0074 e217 | | Load 0x1,0x17
0075 e212 | | Load 0x1,0x12
0076 4801 |H | Short_Literal 0x1
0077 4805 |H | Short_Literal 0x5
0078 e21c | | Load 0x1,0x1c
0079 035c | \ | Declare_Type Array,Constrained,Visible
007a 02a0 | | Declare_Subprogram Null_Subprogram
007b 4803 |H | Short_Literal 0x3
007c 032e | . | Declare_Type Record,Defined,Visible
007d c21d | | Store 0x1,0x1d
007e e21b | | Load 0x1,0x1b
007f 02a0 | | Declare_Subprogram Null_Subprogram
0080 4818 |H | Short_Literal 0x18
0081 03d6 | | Declare_Type Access,Defined,Visible
0082 c21e | | Store 0x1,0x1e
0083 4801 |H | Short_Literal 0x1
0084 4804 |H | Short_Literal 0x4
0085 e21e | | Load 0x1,0x1e
0086 02a0 | | Declare_Subprogram Null_Subprogram
0087 4801 |H | Short_Literal 0x1
0088 035e | ^ | Declare_Type Array,Defined,Visible
0089 c21f | | Store 0x1,0x1f
008a e21e | | Load 0x1,0x1e
008b 0129 | ) | Execute Any,Make_Visible
008c c220 | | Store 0x1,0x20
008d e220 | | Load 0x1,0x20
008e 0129 | ) | Execute Any,Make_Visible
008f c221 | ! | Store 0x1,0x21
0090 4800 |H | Short_Literal 0x0
0091 0093 0283 | | push_full_address INIT_0280
0093 00f5 | | Load_Encached Unused21
0094 037b | { | Declare_Type Task,Defined,Visible,Not_Elaborated
0095 c222 | " | Store 0x1,0x22
0096 00e1 | | Load_Encached Boolean_Cache
0097 0129 | ) | Execute Any,Make_Visible
0098 c223 | # | Store 0x1,0x23
0099 00e1 | | Load_Encached Boolean_Cache
009a 0129 | ) | Execute Any,Make_Visible
009b c224 | $ | Store 0x1,0x24
009c 4880 |H | Short_Literal 0x80
009d 4a40 |J@ | Short_Literal 0x240
009e 00e5 | | Load_Encached Long_Integer_Cache
009f 03f9 | | Declare_Type Discrete,Constrained,Visible
00a0 029f 0183 | | Declare_Subprogram INIT_0180,For_Call
00a2 00d9 | | Load_Top At_Offset_1
00a3 012a | * | Execute Any,Change_Utility
00a4 c225 | % | Store 0x1,0x25
00a5 00e6 | | Load_Encached Float_Cache
00a6 0241 | A | Execute Float,First
00a7 00e6 | | Load_Encached Float_Cache
00a8 0240 | @ | Execute Float,Last
00a9 00e6 | | Load_Encached Float_Cache
00aa 03e4 | | Declare_Type Float,Constrained,Visible
00ab 029f 019b | | Declare_Subprogram INIT_0198,For_Call
00ad 00d9 | | Load_Top At_Offset_1
00ae 012a | * | Execute Any,Change_Utility
00af c226 | & | Store 0x1,0x26
00b0 4803 |H | Short_Literal 0x3
00b1 0093 025b | [| push_full_address INIT_0258
00b3 02a0 | | Declare_Subprogram Null_Subprogram
00b4 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated
00b5 c227 | ' | Store 0x1,0x27
00b6 e001 | | Load 0x0,0x1
00b7 e002 | | Load 0x0,0x2
00b8 e225 | % | Load 0x1,0x25
00b9 e227 | ' | Load 0x1,0x27
00ba 0386 | | Declare_Variable Package,Visible
00bb 00d8 | | Load_Top At_Offset_0
00bc 020f | | Execute Module,Activate
00bd c228 | ( | Store 0x1,0x28
00be e218 | | Load 0x1,0x18
00bf 00e2 | | Load_Encached Integer_Cache
00c0 4801 |H | Short_Literal 0x1
00c1 4801 |H | Short_Literal 0x1
00c2 4814 |H | Short_Literal 0x14
00c3 00e9 | | Load_Encached String_Cache
00c4 035c | \ | Declare_Type Array,Constrained,Visible
00c5 4801 |H | Short_Literal 0x1
00c6 00e1 | | Load_Encached Boolean_Cache
00c7 4801 |H | Short_Literal 0x1
00c8 00e8 | | Load_Encached Character_Cache
00c9 029f 01d3 | | Declare_Subprogram INIT_01d0,For_Call
00cb 4803 |H | Short_Literal 0x3
00cc 4801 |H | Short_Literal 0x1
00cd 4803 |H | Short_Literal 0x3
00ce 4800 |H | Short_Literal 0x0
00cf 4801 |H | Short_Literal 0x1
00d0 031e | | Declare_Type Variant_Record,Defined,Visible
00d1 c229 | ) | Store 0x1,0x29
00d2 e217 | | Load 0x1,0x17
00d3 e21e | | Load 0x1,0x1e
00d4 e21f | | Load 0x1,0x1f
00d5 e220 | | Load 0x1,0x20
00d6 e225 | % | Load 0x1,0x25
00d7 e226 | & | Load 0x1,0x26
00d8 4800 |H | Short_Literal 0x0
00d9 e229 | ) | Load 0x1,0x29
00da 1c07 | | Execute_Immediate Run_Utility,0x7
00db 0129 | ) | Execute Any,Make_Visible
00dc e223 | # | Load 0x1,0x23
00dd e224 | $ | Load 0x1,0x24
00de e222 | " | Load 0x1,0x22
00df e221 | ! | Load 0x1,0x21
00e0 e220 | | Load 0x1,0x20
00e1 e228 | ( | Load 0x1,0x28
00e2 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00e3 4801 |H | Short_Literal 0x1
00e4 00e2 | | Load_Encached Integer_Cache
00e5 4801 |H | Short_Literal 0x1
00e6 00e8 | | Load_Encached Character_Cache
00e7 4803 |H | Short_Literal 0x3
00e8 4801 |H | Short_Literal 0x1
00e9 e214 | | Load 0x1,0x14
00ea e21c | | Load 0x1,0x1c
00eb 035c | \ | Declare_Type Array,Constrained,Visible
00ec 4801 |H | Short_Literal 0x1
00ed e229 | ) | Load 0x1,0x29
00ee 1c07 | | Execute_Immediate Run_Utility,0x7
00ef 0129 | ) | Execute Any,Make_Visible
00f0 4802 |H | Short_Literal 0x2
00f1 e229 | ) | Load 0x1,0x29
00f2 1c07 | | Execute_Immediate Run_Utility,0x7
00f3 0129 | ) | Execute Any,Make_Visible
00f4 029f 0203 | | Declare_Subprogram INIT_0200,For_Call
00f6 4805 |H | Short_Literal 0x5
00f7 480c |H | Short_Literal 0xc
00f8 4803 |H | Short_Literal 0x3
00f9 4800 |H | Short_Literal 0x0
00fa 4801 |H | Short_Literal 0x1
00fb 031e | | Declare_Type Variant_Record,Defined,Visible
00fc c22a | * | Store 0x1,0x2a
00fd 4800 |H | Short_Literal 0x0
00fe 00db | | Load_Top At_Offset_3
00ff 1c07 | | Execute_Immediate Run_Utility,0x7
0100 0129 | ) | Execute Any,Make_Visible
0101 c22b | + | Store 0x1,0x2b
0102 4801 |H | Short_Literal 0x1
0103 480a |H | Short_Literal 0xa
0104 00db | | Load_Top At_Offset_3
0105 029f 01a3 | | Declare_Subprogram INIT_01a0,For_Call
0107 4801 |H | Short_Literal 0x1
0108 035e | ^ | Declare_Type Array,Defined,Visible
0109 c22c | , | Store 0x1,0x2c
010a 00bf | | Action Accept_Activation
010b e222 | " | Load 0x1,0x22
010c 020d | | Execute Module,Elaborate
010d 0007 | | Action Break_Optional
010e e227 | ' | Load 0x1,0x27
010f 020d | | Execute Module,Elaborate
0110 BODY_0008:
0110 00bc | | Action Signal_Activated
0111 00bb | | Action Signal_Completion
0112 0000 0000 | | .BLANK 0000[0x6]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b 4601 |F | Jump_Case 0x2
011c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
011d 7800 |x | Jump 0x11e ; case 0x1
011e 4807 |H | Short_Literal 0x7
011f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0120 4012 0000 |@ | .DBL 4.5
0122 0000 0000 | |
0124 3ff0 0000 |? | .DBL 1.0
0126 0000 0000 | |
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b | + | .CONST 0x012b ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0001 | | .CONST 0x0001 ; Number of locals
012b BODY_0128:
012b INIT_0128:
012b 4601 |F | Jump_Case 0x2
012c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
012d 7800 |x | Jump 0x12e ; case 0x1
012e 4805 |H | Short_Literal 0x5
012f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133 | 3 | .CONST 0x0133 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0001 | | .CONST 0x0001 ; Number of locals
0133 BODY_0130:
0133 INIT_0130:
0133 4607 |F | Jump_Case 0x8
0134 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0135 7806 |x | Jump 0x13c ; case 0x1
0136 7809 |x | Jump 0x140 ; case 0x2
0137 780d |x | Jump 0x145 ; case 0x3
0138 7810 |x | Jump 0x149 ; case 0x4
0139 7811 |x | Jump 0x14b ; case 0x5
013a 7812 |x | Jump 0x14d ; case 0x6
013b 7815 |x | Jump 0x151 ; case 0x7
013c 00da | | Load_Top At_Offset_2
013d 0091 0286 | | Action Push_String_Extended_Indexed,0x286 ; "E_ONE"
013f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0140 00db | | Load_Top At_Offset_3
0141 00db | | Load_Top At_Offset_3
0142 00e0 | | Load_Encached Standard_Cache
0143 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0144 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0145 00da | | Load_Top At_Offset_2
0146 00e0 | | Load_Encached Standard_Cache
0147 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0148 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0149 00db | | Load_Top At_Offset_3
014a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
014b 00db | | Load_Top At_Offset_3
014c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
014d e217 | | Load 0x1,0x17
014e 00dc | | Load_Top At_Offset_4
014f 0267 | g | Execute Discrete,Predecessor
0150 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0151 e217 | | Load 0x1,0x17
0152 00dc | | Load_Top At_Offset_4
0153 0268 | h | Execute Discrete,Successor
0154 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0155 0000 0000 | | .XXX[0x3]
0157 0000 | |
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b 4607 |F | Jump_Case 0x8
015c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
015d 7806 |x | Jump 0x164 ; case 0x1
015e 7809 |x | Jump 0x168 ; case 0x2
015f 780d |x | Jump 0x16d ; case 0x3
0160 7810 |x | Jump 0x171 ; case 0x4
0161 7811 |x | Jump 0x173 ; case 0x5
0162 7812 |x | Jump 0x175 ; case 0x6
0163 7815 |x | Jump 0x179 ; case 0x7
0164 00da | | Load_Top At_Offset_2
0165 0091 0289 | | Action Push_String_Extended_Indexed,0x289 ; "RED"
0167 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0168 00db | | Load_Top At_Offset_3
0169 00db | | Load_Top At_Offset_3
016a 00e0 | | Load_Encached Standard_Cache
016b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
016c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
016d 00da | | Load_Top At_Offset_2
016e 00e0 | | Load_Encached Standard_Cache
016f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0170 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0171 00db | | Load_Top At_Offset_3
0172 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0173 00db | | Load_Top At_Offset_3
0174 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0175 e218 | | Load 0x1,0x18
0176 00dc | | Load_Top At_Offset_4
0177 0267 | g | Execute Discrete,Predecessor
0178 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0179 e218 | | Load 0x1,0x18
017a 00dc | | Load_Top At_Offset_4
017b 0268 | h | Execute Discrete,Successor
017c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
017d 0000 0000 | | .XXX[0x3]
017f 0000 | |
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 4603 |F | Jump_Case 0x4
0184 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0185 7802 |x | Jump 0x188 ; case 0x1
0186 7803 |x | Jump 0x18a ; case 0x2
0187 7802 |x | Jump 0x18a ; case 0x3
0188 5807 |X | Indirect_Literal Float,0x190,0.009999999999999998
0189 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
018a 5801 |X | Indirect_Literal Float,0x18c,0.0078125
018b 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
018c 3f80 0000 |? | .DBL 0.0078125
018e 0000 0000 | |
0190 3f84 7ae1 |? z | .DBL 0.009999999999999998
0192 47ae 147a |G z|
0194 0000 0000 | | .BLANK 0000[0x4]
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 4601 |F | Jump_Case 0x2
019c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
019d 7800 |x | Jump 0x19e ; case 0x1
019e 4806 |H | Short_Literal 0x6
019f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
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 4605 |F | Jump_Case 0x6
01a4 7804 |x | Jump 0x1a9 ; case 0x0
01a5 7814 |x | Jump 0x1ba ; case 0x1
01a6 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
01a7 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
01a8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
01a9 00da | | Load_Top At_Offset_2 ; case 0x5
01aa 01dc | | Execute Vector,Last
01ab 00db | | Load_Top At_Offset_3
01ac 01dd | | Execute Vector,First
01ad 0263 | c | Execute Discrete,Above_Bound
01ae 700a |p | Jump_Nonzero 0x1b9
01af 00d8 | | Load_Top At_Offset_0
01b0 e5ff | | Load 0x2,-0x1
01b1 01d5 | | Execute Vector,Field_Reference
01b2 0125 | % | Execute Any,Set_Constraint
01b3 00d8 | | Load_Top At_Offset_0
01b4 e5ff | | Load 0x2,-0x1
01b5 01d5 | | Execute Vector,Field_Reference
01b6 1c00 | | Execute_Immediate Run_Utility,0x0
01b7 0a01 | | Execute_Immediate Plus,0x1
01b8 7ff4 | | Jump 0x1ad
01b9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01ba 00da | | Load_Top At_Offset_2
01bb 01dc | | Execute Vector,Last
01bc 00db | | Load_Top At_Offset_3
01bd 01dd | | Execute Vector,First
01be 0263 | c | Execute Discrete,Above_Bound
01bf 700a |p | Jump_Nonzero 0x1ca
01c0 00d8 | | Load_Top At_Offset_0
01c1 e5ff | | Load 0x2,-0x1
01c2 01d5 | | Execute Vector,Field_Reference
01c3 0125 | % | Execute Any,Set_Constraint
01c4 00d8 | | Load_Top At_Offset_0
01c5 e5ff | | Load 0x2,-0x1
01c6 01d7 | | Execute Vector,Field_Read
01c7 1c01 | | Execute_Immediate Run_Utility,0x1
01c8 0a01 | | Execute_Immediate Plus,0x1
01c9 7ff4 | | Jump 0x1be
01ca 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01cb 0000 0000 | | .BLANK 0000[0x5]
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 4608 |F | Jump_Case 0x9
01d4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
01d5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
01d6 7826 |x& | Jump 0x1fd ; case 0x2
01d7 7825 |x% | Jump 0x1fd ; case 0x3
01d8 7824 |x$ | Jump 0x1fd ; case 0x4
01d9 7823 |x# | Jump 0x1fd ; case 0x5
01da 7802 |x | Jump 0x1dd ; case 0x6
01db 780c |x | Jump 0x1e8 ; case 0x7
01dc 7819 |x | Jump 0x1f6 ; case 0x8
01dd 00db | | Load_Top At_Offset_3
01de 4602 |F | Jump_Case 0x3
01df 7804 |x | Jump 0x1e4 ; case 0x0
01e0 7805 |x | Jump 0x1e6 ; case 0x1
01e1 7800 |x | Jump 0x1e2 ; case 0x2
01e2 4803 |H | Short_Literal 0x3
01e3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01e4 4801 |H | Short_Literal 0x1
01e5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01e6 4802 |H | Short_Literal 0x2
01e7 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01e8 00db | | Load_Top At_Offset_3
01e9 e5fe | | Load 0x2,-0x2
01ea 4602 |F | Jump_Case 0x3
01eb 7804 |x | Jump 0x1f0 ; case 0x0
01ec 7805 |x | Jump 0x1f2 ; case 0x1
01ed 7800 |x | Jump 0x1ee ; case 0x2
01ee 4803 |H | Short_Literal 0x3
01ef 7803 |x | Jump 0x1f3
01f0 4801 |H | Short_Literal 0x1
01f1 7801 |x | Jump 0x1f3
01f2 4802 |H | Short_Literal 0x2
01f3 e5ff | | Load 0x2,-0x1
01f4 031b | | Declare_Type Variant_Record,Constrained
01f5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01f6 00db | | Load_Top At_Offset_3
01f7 e5fe | | Load 0x2,-0x2
01f8 e5ff | | Load 0x2,-0x1
01f9 1c06 | | Execute_Immediate Run_Utility,0x6
01fa e5ff | | Load 0x2,-0x1
01fb 02fc | | Declare_Variable Variant_Record,With_Constraint
01fc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01fd 0869 | i | Execute_Immediate Raise,0x69
01fe 0000 0000 | | .XXX[0x2]
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 4608 |F | Jump_Case 0x9
0204 7808 |x | Jump 0x20d ; case 0x0
0205 7820 |x | Jump 0x226 ; case 0x1
0206 784b |xK | Jump 0x252 ; case 0x2
0207 784a |xJ | Jump 0x252 ; case 0x3
0208 7849 |xI | Jump 0x252 ; case 0x4
0209 7848 |xH | Jump 0x252 ; case 0x5
020a 7827 |x' | Jump 0x232 ; case 0x6
020b 7831 |x1 | Jump 0x23d ; case 0x7
020c 783e |x> | Jump 0x24b ; case 0x8
020d 00da | | Load_Top At_Offset_2
020e 2207 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x7
020f 00da | | Load_Top At_Offset_2
0210 2407 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x7
0211 1c00 | | Execute_Immediate Run_Utility,0x0
0212 00da | | Load_Top At_Offset_2
0213 240a |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0xa
0214 036b | k | Declare_Variable Task,As_Component
0215 00da | | Load_Top At_Offset_2
0216 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0217 4602 |F | Jump_Case 0x3
0218 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0219 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
021a 7800 |x | Jump 0x21b ; case 0x2
021b 00da | | Load_Top At_Offset_2
021c 2211 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x11
021d 00da | | Load_Top At_Offset_2
021e 2611 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x11
021f 1c00 | | Execute_Immediate Run_Utility,0x0
0220 00da | | Load_Top At_Offset_2
0221 2212 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x12
0222 00da | | Load_Top At_Offset_2
0223 2612 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x12
0224 1c00 | | Execute_Immediate Run_Utility,0x0
0225 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0226 00da | | Load_Top At_Offset_2
0227 2207 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x7
0228 00da | | Load_Top At_Offset_2
0229 016b | k | Execute Variant_Record,Read_Variant
022a 00d8 | | Load_Top At_Offset_0
022b 0f03 | | Execute_Immediate Equal,0x3
022c 6804 |h | Jump_Zero 0x231
022d 00db | | Load_Top At_Offset_3
022e 2211 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x11
022f 00db | | Load_Top At_Offset_3
0230 2212 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x12
0231 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0232 00db | | Load_Top At_Offset_3
0233 4602 |F | Jump_Case 0x3
0234 7804 |x | Jump 0x239 ; case 0x0
0235 7805 |x | Jump 0x23b ; case 0x1
0236 7800 |x | Jump 0x237 ; case 0x2
0237 4803 |H | Short_Literal 0x3
0238 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0239 4801 |H | Short_Literal 0x1
023a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
023b 4802 |H | Short_Literal 0x2
023c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
023d 00db | | Load_Top At_Offset_3
023e e5fe | | Load 0x2,-0x2
023f 4602 |F | Jump_Case 0x3
0240 7804 |x | Jump 0x245 ; case 0x0
0241 7805 |x | Jump 0x247 ; case 0x1
0242 7800 |x | Jump 0x243 ; case 0x2
0243 4803 |H | Short_Literal 0x3
0244 7803 |x | Jump 0x248
0245 4801 |H | Short_Literal 0x1
0246 7801 |x | Jump 0x248
0247 4802 |H | Short_Literal 0x2
0248 e5ff | | Load 0x2,-0x1
0249 031b | | Declare_Type Variant_Record,Constrained
024a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
024b 00db | | Load_Top At_Offset_3
024c e5fe | | Load 0x2,-0x2
024d e5ff | | Load 0x2,-0x1
024e 1c06 | | Execute_Immediate Run_Utility,0x6
024f e5ff | | Load 0x2,-0x1
0250 02fc | | Declare_Variable Variant_Record,With_Constraint
0251 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0252 0869 | i | Execute_Immediate Raise,0x69
0253 0000 0000 | | .BLANK 0000[0x5]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 0261 | a | .CONST 0x0261 ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0010 | | .CONST 0x0010 ; Number of locals
025b INIT_0258:
025b 00d8 | | Load_Top At_Offset_0
025c 029f 026b | k| Declare_Subprogram INIT_0268,For_Call
025e 4801 |H | Short_Literal 0x1
025f 032e | . | Declare_Type Record,Defined,Visible
0260 00bf | | Action Accept_Activation
0261 BODY_0258:
0261 00bc | | Action Signal_Activated
0262 00bb | | Action Signal_Completion
0263 0000 0000 | | .BLANK 0000[0x5]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b | k | .CONST 0x026b ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0001 | | .CONST 0x0001 ; Number of locals
026b BODY_0268:
026b INIT_0268:
026b 4608 |F | Jump_Case 0x9
026c 7808 |x | Jump 0x275 ; case 0x0
026d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
026e 780d |x | Jump 0x27c ; case 0x2
026f 780c |x | Jump 0x27c ; case 0x3
0270 780b |x | Jump 0x27c ; case 0x4
0271 780a |x | Jump 0x27c ; case 0x5
0272 7809 |x | Jump 0x27c ; case 0x6
0273 7808 |x | Jump 0x27c ; case 0x7
0274 7807 |x | Jump 0x27c ; case 0x8
0275 00da | | Load_Top At_Offset_2
0276 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0277 0125 | % | Execute Any,Set_Constraint
0278 00da | | Load_Top At_Offset_2
0279 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
027a 1c00 | | Execute_Immediate Run_Utility,0x0
027b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
027c 0869 | i | Execute_Immediate Raise,0x69
027d 0000 0000 | | .XXX[0x3]
027f 0000 | |
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0285 | | .CONST 0x0285 ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 000c | | .CONST 0x000c ; Number of locals
0283 INIT_0280:
0283 00bf | | Action Accept_Activation
0284 00bc | | Action Signal_Activated
0285 BODY_0280:
0285 00bb | | Action Signal_Completion
0286 ; --------------------------------------------------------------------------------------
0286 ; STRING TABLE
0286 ; --------------------------------------------------------------------------------------
0286 000e | | .STRTAB 0x000e->0x028d ; "E_ONE"
0287 0011 | | .STRTAB 0x0011->0x028f ; "E_TWO"
0288 0014 | | .STRTAB 0x0014->0x0292 ; "E_THREE"
0289 0019 | | .STRTAB 0x0019->0x0295 ; "RED"
028a 001a | | .STRTAB 0x001a->0x0297 ; "BLUE"
028b 001c | | .STRTAB 0x001c->0x0299 ; "GREEN"
028c 001f | | .STREND 0x001f->0x029b
028d 455f 4f4e |E_ON| .STRTAB_STRINGS
029c 0000 0000 | | .BLANK 0000[0x4]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; Debug Table
02a0 ; --------------------------------------------------------------------------------------
02a0 0004 0001 | | .DEBUG4 0x0004,0x0001,0x6f22,0x0000,0x0001,0x0010
02a6 000b 02e6 | | .DBG4T 0x000b,0x02e6,0x8000,0x8000
02aa 010b 0320 | | .DBG4T 0x010b,0x0320,0x8000,0x0000
02ae 011b 0000 | | .DBG4T 0x011b,0x0000,0x0005,0x0000
02b2 012b 0000 | + | .DBG4T 0x012b,0x0000,0x0005,0x0000
02b6 0133 0000 | 3 | .DBG4T 0x0133,0x0000,0x0005,0x0000
02ba 015b 0000 | [ | .DBG4T 0x015b,0x0000,0x0005,0x0000
02be 0183 0000 | | .DBG4T 0x0183,0x0000,0x0005,0x0000
02c2 019b 0000 | | .DBG4T 0x019b,0x0000,0x0005,0x0000
02c6 01a3 0000 | | .DBG4T 0x01a3,0x0000,0x0005,0x0000
02ca 01d3 0000 | | .DBG4T 0x01d3,0x0000,0x0005,0x0000
02ce 0203 0000 | | .DBG4T 0x0203,0x0000,0x0005,0x0000
02d2 025b 0324 | [ $| .DBG4T 0x025b,0x0324,0x4000,0x0000
02d6 0261 0000 | a | .DBG4T 0x0261,0x0000,0x4000,0x0000
02da 026b 0000 | k | .DBG4T 0x026b,0x0000,0x1005,0x0000
02de 0283 0000 | | .DBG4T 0x0283,0x0000,0x0000,0x0000
02e2 0284 0327 | '| .DBG4T 0x0284,0x0327,0x0000,0x0000
02e6 ; --------------------------------------------------------------------------------------
02e6 ; Debug chain
02e6 ; --------------------------------------------------------------------------------------
02e6 001c 0000 | | .DBGLEN 0x001c,0x0000
02e8 002b 0030 | + 0| .DBGLNO 0x002b,0x0030,0x0033,0x0036,0x003f,0x0048,0x004e,0x0054,0x005b,0x0062,0x006d,0x0074,0x007e,0x0083,0x008a,0x008d,0x0090,0x0096,0x0099,0x009c,0x00a5,0x00b0,0x00b6,0x00be,0x00d2,0x00fd,0x0102,0x010a
0304 0001 0002 | | .XXX[0x1c]
0306 0003 0004 | |
0308 0005 0006 | |
030a 0007 0008 | |
030c 0009 000a | |
030e 000b 000c | |
0310 000d 000e | |
0312 000f 0010 | |
0314 0011 0012 | |
0316 0013 0015 | |
0318 0016 0017 | |
031a 0018 0019 | |
031c 001a 001b | |
031e 001c 001e | |
0320 ; --------------------------------------------------------------------------------------
0320 ; Debug chain
0320 ; --------------------------------------------------------------------------------------
0320 0002 0000 | | .DBGLEN 0x0002,0x0000
0322 010b 010e | | .DBGLNO 0x010b,0x010e
0324 ; --------------------------------------------------------------------------------------
0324 ; Debug chain
0324 ; --------------------------------------------------------------------------------------
0324 0001 0000 | | .DBGLEN 0x0001,0x0000
0326 025b | [ | .DBGLNO 0x025b
0327 ; --------------------------------------------------------------------------------------
0327 ; Debug chain
0327 ; --------------------------------------------------------------------------------------
0327 0000 0001 | | .DBGLEN 0x0000,0x0001
0329 0285 | | .DBGLNO 0x0285
032a 0000 0000 | | .BLANK 0000[0xd6]