|
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_5850da
└─⟦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 02c0 | | .CONST 0x02c0 ; 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 025a | Z | .CONST 0x025a ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 000f | | .CONST 0x000f ; Number of locals
000b INIT_0008:
000b 4801 |H | Short_Literal 0x1
000c 4801 |H | Short_Literal 0x1
000d e010 | | Load 0x0,0x10
000e 1b14 | | Execute Package,Field_Read,Field_Number 0x14
000f 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0010 035b | [ | Declare_Type Array,Constrained
0011 0337 | 7 | Declare_Variable Array
0012 e20e | | Load 0x1,0xe
0013 00d8 | | Load_Top At_Offset_0
0014 e20e | | Load 0x1,0xe
0015 e010 | | Load 0x0,0x10
0016 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0017 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0018 0092 025c | \| Action Push_String_Extended,0x25c ; "String"
001a e010 | | Load 0x0,0x10
001b 1b12 | | Execute Package,Field_Read,Field_Number 0x12
001c 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
001d 0092 025d | ]| Action Push_String_Extended,0x25d ; "String_Literal"
001f e010 | | Load 0x0,0x10
0020 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0021 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0022 e010 | | Load 0x0,0x10
0023 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0024 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0025 0119 | | Execute Any,Check_In_Formal_Type
0026 4801 |H | Short_Literal 0x1
0027 00da | | Load_Top At_Offset_2
0028 01d6 | | Execute Vector,Field_Write
0029 e20e | | Load 0x1,0xe
002a 4801 |H | Short_Literal 0x1
002b 00da | | Load_Top At_Offset_2
002c e010 | | Load 0x0,0x10
002d 1b14 | | Execute Package,Field_Read,Field_Number 0x14
002e 1b12 | | Execute Package,Field_Read,Field_Number 0x12
002f 0337 | 7 | Declare_Variable Array
0030 4804 |H | Short_Literal 0x4
0031 4800 |H | Short_Literal 0x0
0032 4801 |H | Short_Literal 0x1
0033 00d9 | | Load_Top At_Offset_1
0034 e406 | | Load 0x2,0x6
0035 01d6 | | Execute Vector,Field_Write
0036 3ffb |? | Loop_Increasing 0x32
0037 e010 | | Load 0x0,0x10
0038 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0039 1b12 | | Execute Package,Field_Read,Field_Number 0x12
003a 01c3 | | Execute Vector,Check_In_Type
003b 0092 025e | ^| Action Push_String_Extended,0x25e ; "Comment"
003d e010 | | Load 0x0,0x10
003e 1b14 | | Execute Package,Field_Read,Field_Number 0x14
003f 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0040 e010 | | Load 0x0,0x10
0041 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0042 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
0043 011e | | Execute Any,Convert
0044 e010 | | Load 0x0,0x10
0045 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0046 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0047 02c7 | | Declare_Variable Any
0048 e20e | | Load 0x1,0xe
0049 e010 | | Load 0x0,0x10
004a 1b12 | | Execute Package,Field_Read,Field_Number 0x12
004b 1b19 | | Execute Package,Field_Read,Field_Number 0x19
004c e010 | | Load 0x0,0x10
004d 1b12 | | Execute Package,Field_Read,Field_Number 0x12
004e 1b19 | | Execute Package,Field_Read,Field_Number 0x19
004f e010 | | Load 0x0,0x10
0050 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0051 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0052 e010 | | Load 0x0,0x10
0053 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0054 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0055 0337 | 7 | Declare_Variable Array
0056 4801 |H | Short_Literal 0x1
0057 4802 |H | Short_Literal 0x2
0058 00da | | Load_Top At_Offset_2
0059 01d6 | | Execute Vector,Field_Write
005a 4800 |H | Short_Literal 0x0
005b 4800 |H | Short_Literal 0x0
005c 00da | | Load_Top At_Offset_2
005d 01d6 | | Execute Vector,Field_Write
005e 4800 |H | Short_Literal 0x0
005f 4801 |H | Short_Literal 0x1
0060 00da | | Load_Top At_Offset_2
0061 01d6 | | Execute Vector,Field_Write
0062 480e |H | Short_Literal 0xe
0063 4803 |H | Short_Literal 0x3
0064 4800 |H | Short_Literal 0x0
0065 00d9 | | Load_Top At_Offset_1
0066 e409 | | Load 0x2,0x9
0067 01d6 | | Execute Vector,Field_Write
0068 3ffb |? | Loop_Increasing 0x64
0069 e010 | | Load 0x0,0x10
006a 1b12 | | Execute Package,Field_Read,Field_Number 0x12
006b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
006c 01c3 | | Execute Vector,Check_In_Type
006d e010 | | Load 0x0,0x10
006e 1b12 | | Execute Package,Field_Read,Field_Number 0x12
006f 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0070 e010 | | Load 0x0,0x10
0071 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0072 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0073 a404 | | Store_Unchecked 0x2,0x4
0074 e20e | | Load 0x1,0xe
0075 e010 | | Load 0x0,0x10
0076 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0077 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
0078 00da | | Load_Top At_Offset_2
0079 e010 | | Load 0x0,0x10
007a 1b12 | | Execute Package,Field_Read,Field_Number 0x12
007b 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
007c e010 | | Load 0x0,0x10
007d 1b12 | | Execute Package,Field_Read,Field_Number 0x12
007e 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
007f 0092 025f | _| Action Push_String_Extended,0x25f ; "Enumeration_Type"
0081 e010 | | Load 0x0,0x10
0082 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0083 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0084 e010 | | Load 0x0,0x10
0085 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0086 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0087 011e | | Execute Any,Convert
0088 e20e | | Load 0x1,0xe
0089 4801 |H | Short_Literal 0x1
008a 4802 |H | Short_Literal 0x2
008b e010 | | Load 0x0,0x10
008c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
008d 1b10 | | Execute Package,Field_Read,Field_Number 0x10
008e 035b | [ | Declare_Type Array,Constrained
008f 0337 | 7 | Declare_Variable Array
0090 e20e | | Load 0x1,0xe
0091 0092 0260 | `| Action Push_String_Extended,0x260 ; "Immediate"
0093 e010 | | Load 0x0,0x10
0094 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0095 180e | | Execute Package,Field_Execute,Field_Number 0xe
0096 e010 | | Load 0x0,0x10
0097 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0098 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0099 0119 | | Execute Any,Check_In_Formal_Type
009a 4801 |H | Short_Literal 0x1
009b 00da | | Load_Top At_Offset_2
009c 01d6 | | Execute Vector,Field_Write
009d e20e | | Load 0x1,0xe
009e 0092 0261 | a| Action Push_String_Extended,0x261 ; "Deferred"
00a0 e010 | | Load 0x0,0x10
00a1 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00a2 180e | | Execute Package,Field_Execute,Field_Number 0xe
00a3 e010 | | Load 0x0,0x10
00a4 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00a5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a6 0119 | | Execute Any,Check_In_Formal_Type
00a7 4802 |H | Short_Literal 0x2
00a8 00da | | Load_Top At_Offset_2
00a9 01d6 | | Execute Vector,Field_Write
00aa e010 | | Load 0x0,0x10
00ab 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00ac 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00ad e010 | | Load 0x0,0x10
00ae 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00af 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
00b0 e010 | | Load 0x0,0x10
00b1 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00b2 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
00b3 0092 025f | _| Action Push_String_Extended,0x25f ; "Enumeration_Type"
00b5 e010 | | Load 0x0,0x10
00b6 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00b7 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00b8 e010 | | Load 0x0,0x10
00b9 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00ba 1b15 | | Execute Package,Field_Read,Field_Number 0x15
00bb 011e | | Execute Any,Convert
00bc 4801 |H | Short_Literal 0x1
00bd 4802 |H | Short_Literal 0x2
00be e010 | | Load 0x0,0x10
00bf 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00c0 1b20 | | Execute Package,Field_Read,Field_Number 0x20
00c1 035b | [ | Declare_Type Array,Constrained
00c2 0337 | 7 | Declare_Variable Array
00c3 00da | | Load_Top At_Offset_2
00c4 e010 | | Load 0x0,0x10
00c5 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00c6 1b15 | | Execute Package,Field_Read,Field_Number 0x15
00c7 0119 | | Execute Any,Check_In_Formal_Type
00c8 4801 |H | Short_Literal 0x1
00c9 00da | | Load_Top At_Offset_2
00ca 01d6 | | Execute Vector,Field_Write
00cb 00d9 | | Load_Top At_Offset_1
00cc e010 | | Load 0x0,0x10
00cd 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00ce 1b15 | | Execute Package,Field_Read,Field_Number 0x15
00cf 0119 | | Execute Any,Check_In_Formal_Type
00d0 4802 |H | Short_Literal 0x2
00d1 00da | | Load_Top At_Offset_2
00d2 01d6 | | Execute Vector,Field_Write
00d3 e20e | | Load 0x1,0xe
00d4 4802 |H | Short_Literal 0x2
00d5 00da | | Load_Top At_Offset_2
00d6 e010 | | Load 0x0,0x10
00d7 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00d8 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00d9 0337 | 7 | Declare_Variable Array
00da 4801 |H | Short_Literal 0x1
00db 4803 |H | Short_Literal 0x3
00dc 00da | | Load_Top At_Offset_2
00dd 01d6 | | Execute Vector,Field_Write
00de 4801 |H | Short_Literal 0x1
00df 4804 |H | Short_Literal 0x4
00e0 00da | | Load_Top At_Offset_2
00e1 01d6 | | Execute Vector,Field_Write
00e2 4802 |H | Short_Literal 0x2
00e3 4800 |H | Short_Literal 0x0
00e4 4800 |H | Short_Literal 0x0
00e5 00d9 | | Load_Top At_Offset_1
00e6 e40b | | Load 0x2,0xb
00e7 01d6 | | Execute Vector,Field_Write
00e8 3ffb |? | Loop_Increasing 0xe4
00e9 e010 | | Load 0x0,0x10
00ea 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00eb 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00ec 01c3 | | Execute Vector,Check_In_Type
00ed 0092 0262 | b| Action Push_String_Extended,0x262 ; "Images"
00ef e010 | | Load 0x0,0x10
00f0 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00f1 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
00f2 e010 | | Load 0x0,0x10
00f3 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00f4 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
00f5 011e | | Execute Any,Convert
00f6 4801 |H | Short_Literal 0x1
00f7 4802 |H | Short_Literal 0x2
00f8 e010 | | Load 0x0,0x10
00f9 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00fa 1b20 | | Execute Package,Field_Read,Field_Number 0x20
00fb 035b | [ | Declare_Type Array,Constrained
00fc 0337 | 7 | Declare_Variable Array
00fd e20e | | Load 0x1,0xe
00fe e010 | | Load 0x0,0x10
00ff 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0100 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
0101 e010 | | Load 0x0,0x10
0102 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0103 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0104 e20e | | Load 0x1,0xe
0105 e010 | | Load 0x0,0x10
0106 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0107 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0108 e010 | | Load 0x0,0x10
0109 1b12 | | Execute Package,Field_Read,Field_Number 0x12
010a 1b19 | | Execute Package,Field_Read,Field_Number 0x19
010b 4800 |H | Short_Literal 0x0
010c e010 | | Load 0x0,0x10
010d 1b12 | | Execute Package,Field_Read,Field_Number 0x12
010e 1b41 | A | Execute Package,Field_Read,Field_Number 0x41
010f 0337 | 7 | Declare_Variable Array
0110 4801 |H | Short_Literal 0x1
0111 4800 |H | Short_Literal 0x0
0112 00da | | Load_Top At_Offset_2
0113 01d6 | | Execute Vector,Field_Write
0114 4801 |H | Short_Literal 0x1
0115 4802 |H | Short_Literal 0x2
0116 00da | | Load_Top At_Offset_2
0117 01d6 | | Execute Vector,Field_Write
0118 4800 |H | Short_Literal 0x0
0119 4801 |H | Short_Literal 0x1
011a 00da | | Load_Top At_Offset_2
011b 01d6 | | Execute Vector,Field_Write
011c 480e |H | Short_Literal 0xe
011d 4803 |H | Short_Literal 0x3
011e 4800 |H | Short_Literal 0x0
011f 00d9 | | Load_Top At_Offset_1
0120 e411 | | Load 0x2,0x11
0121 01d6 | | Execute Vector,Field_Write
0122 3ffb |? | Loop_Increasing 0x11e
0123 e010 | | Load 0x0,0x10
0124 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0125 1b41 | A | Execute Package,Field_Read,Field_Number 0x41
0126 01c3 | | Execute Vector,Check_In_Type
0127 e010 | | Load 0x0,0x10
0128 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0129 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
012a e010 | | Load 0x0,0x10
012b 1b12 | | Execute Package,Field_Read,Field_Number 0x12
012c 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
012d 0092 0263 | c| Action Push_String_Extended,0x263 ; "Interfaced_Subprogram_Name"
012f e010 | | Load 0x0,0x10
0130 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0131 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0132 e010 | | Load 0x0,0x10
0133 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0134 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0135 0119 | | Execute Any,Check_In_Formal_Type
0136 4801 |H | Short_Literal 0x1
0137 00da | | Load_Top At_Offset_2
0138 01d6 | | Execute Vector,Field_Write
0139 e20e | | Load 0x1,0xe
013a 00d8 | | Load_Top At_Offset_0
013b e20e | | Load 0x1,0xe
013c e010 | | Load 0x0,0x10
013d 1b12 | | Execute Package,Field_Read,Field_Number 0x12
013e 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
013f 0092 025c | \| Action Push_String_Extended,0x25c ; "String"
0141 e010 | | Load 0x0,0x10
0142 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0143 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0144 0092 0264 | d| Action Push_String_Extended,0x264 ; "Link_Name"
0146 e010 | | Load 0x0,0x10
0147 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0148 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0149 e010 | | Load 0x0,0x10
014a 1b14 | | Execute Package,Field_Read,Field_Number 0x14
014b 1b15 | | Execute Package,Field_Read,Field_Number 0x15
014c 0119 | | Execute Any,Check_In_Formal_Type
014d 4802 |H | Short_Literal 0x2
014e 00da | | Load_Top At_Offset_2
014f 01d6 | | Execute Vector,Field_Write
0150 e20e | | Load 0x1,0xe
0151 4802 |H | Short_Literal 0x2
0152 00da | | Load_Top At_Offset_2
0153 e010 | | Load 0x0,0x10
0154 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0155 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0156 0337 | 7 | Declare_Variable Array
0157 4801 |H | Short_Literal 0x1
0158 4803 |H | Short_Literal 0x3
0159 00da | | Load_Top At_Offset_2
015a 01d6 | | Execute Vector,Field_Write
015b 4801 |H | Short_Literal 0x1
015c 4802 |H | Short_Literal 0x2
015d 00da | | Load_Top At_Offset_2
015e 01d6 | | Execute Vector,Field_Write
015f 4801 |H | Short_Literal 0x1
0160 4804 |H | Short_Literal 0x4
0161 00da | | Load_Top At_Offset_2
0162 01d6 | | Execute Vector,Field_Write
0163 4800 |H | Short_Literal 0x0
0164 4800 |H | Short_Literal 0x0
0165 00da | | Load_Top At_Offset_2
0166 01d6 | | Execute Vector,Field_Write
0167 4800 |H | Short_Literal 0x0
0168 4801 |H | Short_Literal 0x1
0169 00da | | Load_Top At_Offset_2
016a 01d6 | | Execute Vector,Field_Write
016b e010 | | Load 0x0,0x10
016c 1b14 | | Execute Package,Field_Read,Field_Number 0x14
016d 1b12 | | Execute Package,Field_Read,Field_Number 0x12
016e 01c3 | | Execute Vector,Check_In_Type
016f 0092 0265 | e| Action Push_String_Extended,0x265 ; "Linkname"
0171 e010 | | Load 0x0,0x10
0172 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0173 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0174 e010 | | Load 0x0,0x10
0175 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0176 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
0177 011e | | Execute Any,Convert
0178 4801 |H | Short_Literal 0x1
0179 4801 |H | Short_Literal 0x1
017a e010 | | Load 0x0,0x10
017b 1b14 | | Execute Package,Field_Read,Field_Number 0x14
017c 1b20 | | Execute Package,Field_Read,Field_Number 0x20
017d 035b | [ | Declare_Type Array,Constrained
017e 0337 | 7 | Declare_Variable Array
017f e20e | | Load 0x1,0xe
0180 00d8 | | Load_Top At_Offset_0
0181 e20e | | Load 0x1,0xe
0182 e010 | | Load 0x0,0x10
0183 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0184 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0185 0092 0266 | f| Action Push_String_Extended,0x266 ; "System.Priority"
0187 e010 | | Load 0x0,0x10
0188 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0189 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
018a 0092 0267 | g| Action Push_String_Extended,0x267 ; "Priority"
018c e010 | | Load 0x0,0x10
018d 1b14 | | Execute Package,Field_Read,Field_Number 0x14
018e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
018f e010 | | Load 0x0,0x10
0190 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0191 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0192 0119 | | Execute Any,Check_In_Formal_Type
0193 4801 |H | Short_Literal 0x1
0194 00da | | Load_Top At_Offset_2
0195 01d6 | | Execute Vector,Field_Write
0196 e20e | | Load 0x1,0xe
0197 4801 |H | Short_Literal 0x1
0198 00da | | Load_Top At_Offset_2
0199 e010 | | Load 0x0,0x10
019a 1b14 | | Execute Package,Field_Read,Field_Number 0x14
019b 1b12 | | Execute Package,Field_Read,Field_Number 0x12
019c 0337 | 7 | Declare_Variable Array
019d 4801 |H | Short_Literal 0x1
019e 4803 |H | Short_Literal 0x3
019f 00da | | Load_Top At_Offset_2
01a0 01d6 | | Execute Vector,Field_Write
01a1 4801 |H | Short_Literal 0x1
01a2 4804 |H | Short_Literal 0x4
01a3 00da | | Load_Top At_Offset_2
01a4 01d6 | | Execute Vector,Field_Write
01a5 4802 |H | Short_Literal 0x2
01a6 4800 |H | Short_Literal 0x0
01a7 4800 |H | Short_Literal 0x0
01a8 00d9 | | Load_Top At_Offset_1
01a9 e40f | | Load 0x2,0xf
01aa 01d6 | | Execute Vector,Field_Write
01ab 3ffb |? | Loop_Increasing 0x1a7
01ac e010 | | Load 0x0,0x10
01ad 1b14 | | Execute Package,Field_Read,Field_Number 0x14
01ae 1b12 | | Execute Package,Field_Read,Field_Number 0x12
01af 01c3 | | Execute Vector,Check_In_Type
01b0 0092 0268 | h| Action Push_String_Extended,0x268 ; "Os_Task"
01b2 e010 | | Load 0x0,0x10
01b3 1b14 | | Execute Package,Field_Read,Field_Number 0x14
01b4 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
01b5 e010 | | Load 0x0,0x10
01b6 1b14 | | Execute Package,Field_Read,Field_Number 0x14
01b7 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
01b8 011e | | Execute Any,Convert
01b9 4801 |H | Short_Literal 0x1
01ba 4804 |H | Short_Literal 0x4
01bb e010 | | Load 0x0,0x10
01bc 1b14 | | Execute Package,Field_Read,Field_Number 0x14
01bd 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
01be 035b | [ | Declare_Type Array,Constrained
01bf 0337 | 7 | Declare_Variable Array
01c0 e403 | | Load 0x2,0x3
01c1 e010 | | Load 0x0,0x10
01c2 1b14 | | Execute Package,Field_Read,Field_Number 0x14
01c3 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
01c4 0119 | | Execute Any,Check_In_Formal_Type
01c5 4801 |H | Short_Literal 0x1
01c6 00da | | Load_Top At_Offset_2
01c7 01d6 | | Execute Vector,Field_Write
01c8 e408 | | Load 0x2,0x8
01c9 e010 | | Load 0x0,0x10
01ca 1b14 | | Execute Package,Field_Read,Field_Number 0x14
01cb 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
01cc 0119 | | Execute Any,Check_In_Formal_Type
01cd 4802 |H | Short_Literal 0x2
01ce 00da | | Load_Top At_Offset_2
01cf 01d6 | | Execute Vector,Field_Write
01d0 00db | | Load_Top At_Offset_3
01d1 e010 | | Load 0x0,0x10
01d2 1b14 | | Execute Package,Field_Read,Field_Number 0x14
01d3 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
01d4 0119 | | Execute Any,Check_In_Formal_Type
01d5 4803 |H | Short_Literal 0x3
01d6 00da | | Load_Top At_Offset_2
01d7 01d6 | | Execute Vector,Field_Write
01d8 00d9 | | Load_Top At_Offset_1
01d9 e010 | | Load 0x0,0x10
01da 1b14 | | Execute Package,Field_Read,Field_Number 0x14
01db 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
01dc 0119 | | Execute Any,Check_In_Formal_Type
01dd 4804 |H | Short_Literal 0x4
01de 00da | | Load_Top At_Offset_2
01df 01d6 | | Execute Vector,Field_Write
01e0 e010 | | Load 0x0,0x10
01e1 1b14 | | Execute Package,Field_Read,Field_Number 0x14
01e2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01e3 0337 | 7 | Declare_Variable Array
01e4 00d8 | | Load_Top At_Offset_0
01e5 0335 | 5 | Declare_Variable Array,Duplicate
01e6 00cd | | Action Spare6_Action
01e7 4800 |H | Short_Literal 0x0
01e8 4800 |H | Short_Literal 0x0
01e9 00da | | Load_Top At_Offset_2
01ea 01d6 | | Execute Vector,Field_Write
01eb 4801 |H | Short_Literal 0x1
01ec 4801 |H | Short_Literal 0x1
01ed 00da | | Load_Top At_Offset_2
01ee 01d6 | | Execute Vector,Field_Write
01ef 4801 |H | Short_Literal 0x1
01f0 4802 |H | Short_Literal 0x2
01f1 00da | | Load_Top At_Offset_2
01f2 01d6 | | Execute Vector,Field_Write
01f3 4801 |H | Short_Literal 0x1
01f4 4803 |H | Short_Literal 0x3
01f5 00da | | Load_Top At_Offset_2
01f6 01d6 | | Execute Vector,Field_Write
01f7 4801 |H | Short_Literal 0x1
01f8 4804 |H | Short_Literal 0x4
01f9 00da | | Load_Top At_Offset_2
01fa 01d6 | | Execute Vector,Field_Write
01fb 4800 |H | Short_Literal 0x0
01fc 4805 |H | Short_Literal 0x5
01fd 00da | | Load_Top At_Offset_2
01fe 01d6 | | Execute Vector,Field_Write
01ff 4800 |H | Short_Literal 0x0
0200 4806 |H | Short_Literal 0x6
0201 00da | | Load_Top At_Offset_2
0202 01d6 | | Execute Vector,Field_Write
0203 4801 |H | Short_Literal 0x1
0204 4807 |H | Short_Literal 0x7
0205 00da | | Load_Top At_Offset_2
0206 01d6 | | Execute Vector,Field_Write
0207 4801 |H | Short_Literal 0x1
0208 4808 |H | Short_Literal 0x8
0209 00da | | Load_Top At_Offset_2
020a 01d6 | | Execute Vector,Field_Write
020b 4801 |H | Short_Literal 0x1
020c 4809 |H | Short_Literal 0x9
020d 00da | | Load_Top At_Offset_2
020e 01d6 | | Execute Vector,Field_Write
020f 4800 |H | Short_Literal 0x0
0210 480a |H | Short_Literal 0xa
0211 00da | | Load_Top At_Offset_2
0212 01d6 | | Execute Vector,Field_Write
0213 4800 |H | Short_Literal 0x0
0214 480b |H | Short_Literal 0xb
0215 00da | | Load_Top At_Offset_2
0216 01d6 | | Execute Vector,Field_Write
0217 4801 |H | Short_Literal 0x1
0218 480c |H | Short_Literal 0xc
0219 00da | | Load_Top At_Offset_2
021a 01d6 | | Execute Vector,Field_Write
021b 4800 |H | Short_Literal 0x0
021c 480d |H | Short_Literal 0xd
021d 00da | | Load_Top At_Offset_2
021e 01d6 | | Execute Vector,Field_Write
021f 00d9 | | Load_Top At_Offset_1
0220 01d4 | | Execute Vector,Structure_Write
0221 e010 | | Load 0x0,0x10
0222 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0223 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
0224 02c7 | | Declare_Variable Any
0225 e20e | | Load 0x1,0xe
0226 4801 |H | Short_Literal 0x1
0227 4803 |H | Short_Literal 0x3
0228 e010 | | Load 0x0,0x10
0229 1b11 | | Execute Package,Field_Read,Field_Number 0x11
022a 1b10 | | Execute Package,Field_Read,Field_Number 0x10
022b 035b | [ | Declare_Type Array,Constrained
022c 0337 | 7 | Declare_Variable Array
022d e20e | | Load 0x1,0xe
022e 0092 0269 | i| Action Push_String_Extended,0x269 ; "Assembly"
0230 e010 | | Load 0x0,0x10
0231 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0232 180e | | Execute Package,Field_Execute,Field_Number 0xe
0233 e010 | | Load 0x0,0x10
0234 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0235 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0236 0119 | | Execute Any,Check_In_Formal_Type
0237 4801 |H | Short_Literal 0x1
0238 00da | | Load_Top At_Offset_2
0239 01d6 | | Execute Vector,Field_Write
023a e20e | | Load 0x1,0xe
023b 0092 026a | j| Action Push_String_Extended,0x26a ; "C"
023d e010 | | Load 0x0,0x10
023e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
023f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0240 e010 | | Load 0x0,0x10
0241 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0242 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0243 0119 | | Execute Any,Check_In_Formal_Type
0244 4802 |H | Short_Literal 0x2
0245 00da | | Load_Top At_Offset_2
0246 01d6 | | Execute Vector,Field_Write
0247 e20e | | Load 0x1,0xe
0248 0092 026b | k| Action Push_String_Extended,0x26b ; "Fortran"
024a e010 | | Load 0x0,0x10
024b 1b11 | | Execute Package,Field_Read,Field_Number 0x11
024c 180e | | Execute Package,Field_Execute,Field_Number 0xe
024d e010 | | Load 0x0,0x10
024e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
024f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0250 0119 | | Execute Any,Check_In_Formal_Type
0251 4803 |H | Short_Literal 0x3
0252 00da | | Load_Top At_Offset_2
0253 01d6 | | Execute Vector,Field_Write
0254 e40d | | Load 0x2,0xd
0255 e40e | | Load 0x2,0xe
0256 e010 | | Load 0x0,0x10
0257 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0258 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0259 a40f | | Store_Unchecked 0x2,0xf
025a BODY_0008:
025a 00d8 | | Load_Top At_Offset_0
025b 00ca | | Action Exit_Nullary_Function
025c ; --------------------------------------------------------------------------------------
025c ; STRING TABLE
025c ; --------------------------------------------------------------------------------------
025c 0022 | " | .STRTAB 0x0022->0x026d ; "String"
025d 0026 | & | .STRTAB 0x0026->0x0270 ; "String_Literal"
025e 0032 | 2 | .STRTAB 0x0032->0x0277 ; "Comment"
025f 0037 | 7 | .STRTAB 0x0037->0x027a ; "Enumeration_Type"
0260 0045 | E | .STRTAB 0x0045->0x0282 ; "Immediate"
0261 004c | L | .STRTAB 0x004c->0x0287 ; "Deferred"
0262 0052 | R | .STRTAB 0x0052->0x028b ; "Images"
0263 0056 | V | .STRTAB 0x0056->0x028e ; "Interfaced_Subprogram_Name"
0264 006e | n | .STRTAB 0x006e->0x029b ; "Link_Name"
0265 0075 | u | .STRTAB 0x0075->0x029f ; "Linkname"
0266 007b | { | .STRTAB 0x007b->0x02a3 ; "System.Priority"
0267 0088 | | .STRTAB 0x0088->0x02ab ; "Priority"
0268 008e | | .STRTAB 0x008e->0x02af ; "Os_Task"
0269 0093 | | .STRTAB 0x0093->0x02b2 ; "Assembly"
026a 0099 | | .STRTAB 0x0099->0x02b6 ; "C"
026b 0098 | | .STRTAB 0x0098->0x02b7 ; "Fortran"
026c 009d | | .STREND 0x009d->0x02ba
026d 5374 7269 |Stri| .STRTAB_STRINGS
02bb 0000 0000 | | .BLANK 0000[0x5]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; Debug Table
02c0 ; --------------------------------------------------------------------------------------
02c0 0004 0002 | | .DEBUG4 0x0004,0x0002,0x182f,0x0000,0x0001,0x0001
02c6 000b 02ca | | .DBG4T 0x000b,0x02ca,0x0002,0x0000
02ca ; --------------------------------------------------------------------------------------
02ca ; Debug chain
02ca ; --------------------------------------------------------------------------------------
02ca 000e 0001 | | .DBGLEN 0x000e,0x0001
02cc 000b 0029 | )| .DBGLNO 0x000b,0x0029,0x0044,0x0074,0x0088,0x00bc,0x00d3,0x00f6,0x0150,0x0178,0x0196,0x01b9,0x01e0,0x0221,0x025a
02db 0000 0000 | | .BLANK 0000[0x125]