|
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: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0a7cf5
└─⟦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 0558 | X | .CONST 0x0558 ; 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 8003 | | .CONST 0x8003 ; 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 000f | | .CONST 0x000f ; Number of locals
000b INIT_0008:
000b 482e |H. | Short_Literal 0x2e
000c 4801 |H | Short_Literal 0x1
000d e022 | " | Load 0x0,0x22
000e 1843 | C | Execute Package,Field_Execute,Field_Number 0x43
000f e022 | " | Load 0x0,0x22
0010 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0011 01cb | | Execute Vector,Append
0012 0007 | | Action Break_Optional
0013 e020 | | Load 0x0,0x20
0014 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0015 02c7 | | Declare_Variable Any
0016 00d8 | | Load_Top At_Offset_0
0017 1c00 | | Execute_Immediate Run_Utility,0x0
0018 e020 | | Load 0x0,0x20
0019 1b0d | | Execute Package,Field_Read,Field_Number 0xd
001a 02c7 | | Declare_Variable Any
001b 00d8 | | Load_Top At_Offset_0
001c 1c00 | | Execute_Immediate Run_Utility,0x0
001d e020 | | Load 0x0,0x20
001e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
001f 02c7 | | Declare_Variable Any
0020 00d8 | | Load_Top At_Offset_0
0021 1c00 | | Execute_Immediate Run_Utility,0x0
0022 00e1 | | Load_Encached Boolean_Cache
0023 e5ff | | Load 0x2,-0x1
0024 0f02 | | Execute_Immediate Equal,0x2
0025 0007 | | Action Break_Optional
0026 00e1 | | Load_Encached Boolean_Cache
0027 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0028 029f 0073 | s| Declare_Subprogram INIT_0070,For_Call
002a 029f 0093 | | Declare_Subprogram INIT_0090,For_Call
002c 029f 011b | | Declare_Subprogram INIT_0118,For_Call
002e 029e 013b | ;| Declare_Subprogram INIT_0138,For_Call,Unelaborated
0030 029f 014b | K| Declare_Subprogram INIT_0148,For_Call
0032 480c |H | Short_Literal 0xc
0033 4802 |H | Short_Literal 0x2
0034 0099 | | Action Reference_Dynamic
0035 00c7 | | Action Elaborate_Subprogram
0036 029f 0183 | | Declare_Subprogram INIT_0180,For_Call
0038 029f 01f3 | | Declare_Subprogram INIT_01f0,For_Call
003a BODY_0008:
003a e5fe | | Load 0x2,-0x2
003b e022 | " | Load 0x0,0x22
003c 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
003d 700b |p | Jump_Nonzero 0x49
003e e023 | # | Load 0x0,0x23
003f 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0040 e023 | # | Load 0x0,0x23
0041 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0042 e5fb | | Load 0x2,-0x5
0043 e022 | " | Load 0x0,0x22
0044 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0045 e023 | # | Load 0x0,0x23
0046 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
0047 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0048 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0049 00cf | | Action Mark_Auxiliary
004a e5fe | | Load 0x2,-0x2
004b e022 | " | Load 0x0,0x22
004c 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
004d e5fe | | Load 0x2,-0x2
004e e022 | " | Load 0x0,0x22
004f 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0050 0263 | c | Execute Discrete,Above_Bound
0051 7007 |p | Jump_Nonzero 0x59
0052 00d8 | | Load_Top At_Offset_0
0053 e5fe | | Load 0x2,-0x2
0054 e022 | " | Load 0x0,0x22
0055 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0056 840f | | Call 0x2,0xf
0057 00c8 | | Action Pop_Auxiliary_Range
0058 3ff9 |? | Loop_Increasing 0x52
0059 00ce | | Action Pop_Auxiliary
005a e408 | | Load 0x2,0x8
005b 680b |h | Jump_Zero 0x67
005c e023 | # | Load 0x0,0x23
005d 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
005e e023 | # | Load 0x0,0x23
005f 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0060 e5fb | | Load 0x2,-0x5
0061 e022 | " | Load 0x0,0x22
0062 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0063 e023 | # | Load 0x0,0x23
0064 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
0065 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0066 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0067 e023 | # | Load 0x0,0x23
0068 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0069 e023 | # | Load 0x0,0x23
006a 1b16 | | Execute Package,Field_Read,Field_Number 0x16
006b 8210 | | Call 0x1,0x10
006c 4506 |E | Exit_Suprogram New_Top_Offset 0x6
006d 0000 0000 | | .XXX[0x3]
006f 0000 | |
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073 | s | .CONST 0x0073 ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0001 | | .CONST 0x0001 ; Number of locals
0073 BODY_0070:
0073 INIT_0070:
0073 00da | | Load_Top At_Offset_2
0074 e024 | $ | Load 0x0,0x24
0075 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0076 0f10 | | Execute_Immediate Equal,0x10
0077 700e |p | Jump_Nonzero 0x86
0078 0092 0494 | | Action Push_String_Extended,0x494 ; "<XRS_PARA ("
007a 00db | | Load_Top At_Offset_3
007b e024 | $ | Load 0x0,0x24
007c 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
007d e027 | ' | Load 0x0,0x27
007e 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
007f 011c | | Execute Any,Convert_Unchecked
0080 1c01 | | Execute_Immediate Run_Utility,0x1
0081 01cc | | Execute Vector,Catenate
0082 0092 0495 | | Action Push_String_Extended,0x495 ; ")>"
0084 01cc | | Execute Vector,Catenate
0085 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0086 482e |H. | Short_Literal 0x2e
0087 4807 |H | Short_Literal 0x7
0088 e7ff | | Load 0x3,-0x1
0089 e022 | " | Load 0x0,0x22
008a 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
008b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
008c 01cb | | Execute Vector,Append
008d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
008e 0000 0000 | | .XXX[0x2]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 00b1 | | .CONST 0x00b1 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0009 | | .CONST 0x0009 ; Number of locals
0093 INIT_0090:
0093 e024 | $ | Load 0x0,0x24
0094 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0095 02c7 | | Declare_Variable Any
0096 e024 | $ | Load 0x0,0x24
0097 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0098 a602 | | Store_Unchecked 0x3,0x2
0099 e027 | ' | Load 0x0,0x27
009a 1b20 | | Execute Package,Field_Read,Field_Number 0x20
009b 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
009c 1b16 | | Execute Package,Field_Read,Field_Number 0x16
009d 02c7 | | Declare_Variable Any
009e 00d8 | | Load_Top At_Offset_0
009f 1c00 | | Execute_Immediate Run_Utility,0x0
00a0 e024 | $ | Load 0x0,0x24
00a1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a2 02c7 | | Declare_Variable Any
00a3 00d8 | | Load_Top At_Offset_0
00a4 1c00 | | Execute_Immediate Run_Utility,0x0
00a5 00e3 | | Load_Encached Natural_Cache
00a6 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00a7 00e1 | | Load_Encached Boolean_Cache
00a8 e027 | ' | Load 0x0,0x27
00a9 1b20 | | Execute Package,Field_Read,Field_Number 0x20
00aa 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
00ab e027 | ' | Load 0x0,0x27
00ac 1b20 | | Execute Package,Field_Read,Field_Number 0x20
00ad 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
00ae 0322 | " | Declare_Variable Record
00af 029f 024b | K| Declare_Subprogram INIT_0248,For_Call
00b1 BODY_0090:
00b1 00e1 | | Load_Encached Boolean_Cache
00b2 00da | | Load_Top At_Offset_2
00b3 4803 |H | Short_Literal 0x3
00b4 e7ff | | Load 0x3,-0x1
00b5 e027 | ' | Load 0x0,0x27
00b6 1b20 | | Execute Package,Field_Read,Field_Number 0x20
00b7 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
00b8 00d1 | | Pop_Control Pop_Count_1
00b9 c606 | | Store 0x3,0x6
00ba 00da | | Load_Top At_Offset_2
00bb 00da | | Load_Top At_Offset_2
00bc 4825 |H% | Short_Literal 0x25
00bd e028 | ( | Load 0x0,0x28
00be 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00bf 0033 | 3 | Store_Top Heap_Access,At_Offset_3
00c0 00da | | Load_Top At_Offset_2
00c1 e027 | ' | Load 0x0,0x27
00c2 1b20 | | Execute Package,Field_Read,Field_Number 0x20
00c3 181f | | Execute Package,Field_Execute,Field_Number 0x1f
00c4 704f |pO | Jump_Nonzero 0x114
00c5 00da | | Load_Top At_Offset_2
00c6 e027 | ' | Load 0x0,0x27
00c7 1b20 | | Execute Package,Field_Read,Field_Number 0x20
00c8 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
00c9 e028 | ( | Load 0x0,0x28
00ca 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00cb c603 | | Store 0x3,0x3
00cc 00cf | | Action Mark_Auxiliary
00cd 783f |x? | Jump 0x10d
00ce 480d |H | Short_Literal 0xd
00cf e022 | " | Load 0x0,0x22
00d0 1b8b | | Execute Package,Field_Read,Field_Number 0x8b
00d1 e402 | | Load 0x2,0x2
00d2 e603 | | Load 0x3,0x3
00d3 e027 | ' | Load 0x0,0x27
00d4 1b20 | | Execute Package,Field_Read,Field_Number 0x20
00d5 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
00d6 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
00d7 01cc | | Execute Vector,Catenate
00d8 e024 | $ | Load 0x0,0x24
00d9 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
00da e024 | $ | Load 0x0,0x24
00db 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
00dc c604 | | Store 0x3,0x4
00dd e604 | | Load 0x3,0x4
00de e024 | $ | Load 0x0,0x24
00df 180f | | Execute Package,Field_Execute,Field_Number 0xf
00e0 681c |h | Jump_Zero 0xfd
00e1 4800 |H | Short_Literal 0x0
00e2 4800 |H | Short_Literal 0x0
00e3 4807 |H | Short_Literal 0x7
00e4 0092 0496 | | Action Push_String_Extended,0x496 ; "Reference to CAPABILITY requirement \x22"
00e6 e603 | | Load 0x3,0x3
00e7 e027 | ' | Load 0x0,0x27
00e8 1b20 | | Execute Package,Field_Read,Field_Number 0x20
00e9 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
00ea 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
00eb 01cc | | Execute Vector,Catenate
00ec 0092 0497 | | Action Push_String_Extended,0x497 ; "\x22 is UNDEFINED in the"
00ee 01cc | | Execute Vector,Catenate
00ef 0092 0498 | | Action Push_String_Extended,0x498 ; " @APPLICABLE_CAPABILITY annotation"
00f1 01cc | | Execute Vector,Catenate
00f2 0092 0499 | | Action Push_String_Extended,0x499 ; " of EXTERNAL_INTERFACE_DATA element "
00f4 01cc | | Execute Vector,Catenate
00f5 e7ff | | Load 0x3,-0x1
00f6 822f | / | Call 0x1,0x2f
00f7 01cc | | Execute Vector,Catenate
00f8 e022 | " | Load 0x0,0x22
00f9 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00fa e022 | " | Load 0x0,0x22
00fb 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
00fc 7809 |x | Jump 0x106
00fd e602 | | Load 0x3,0x2
00fe e604 | | Load 0x3,0x4
00ff e020 | | Load 0x0,0x20
0100 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0101 c602 | | Store 0x3,0x2
0102 00e2 | | Load_Encached Integer_Cache
0103 e605 | | Load 0x3,0x5
0104 0268 | h | Execute Discrete,Successor
0105 c605 | | Store 0x3,0x5
0106 e603 | | Load 0x3,0x3
0107 e027 | ' | Load 0x0,0x27
0108 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0109 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
010a 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
010b c603 | | Store 0x3,0x3
010c 00c9 | | Action Pop_Auxiliary_Loop
010d e603 | | Load 0x3,0x3
010e e027 | ' | Load 0x0,0x27
010f 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0110 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0111 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0112 6fbb |o | Jump_Zero 0xce
0113 00ce | | Action Pop_Auxiliary
0114 8609 | | Call 0x3,0x9
0115 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0116 0000 0000 | | .XXX[0x2]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011d | | .CONST 0x011d ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0002 | | .CONST 0x0002 ; Number of locals
011b INIT_0118:
011b 029f 02bb | | Declare_Subprogram INIT_02b8,For_Call
011d BODY_0118:
011d 4801 |H | Short_Literal 0x1
011e 480d |H | Short_Literal 0xd
011f e022 | " | Load 0x0,0x22
0120 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
0121 e023 | # | Load 0x0,0x23
0122 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0123 00ea | | Load_Encached Null_String_Cache
0124 820f | | Call 0x1,0xf
0125 4801 |H | Short_Literal 0x1
0126 480d |H | Short_Literal 0xd
0127 e022 | " | Load 0x0,0x22
0128 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
0129 e023 | # | Load 0x0,0x23
012a 1b16 | | Execute Package,Field_Read,Field_Number 0x16
012b 00ea | | Load_Encached Null_String_Cache
012c 820f | | Call 0x1,0xf
012d 8602 | | Call 0x3,0x2
012e e407 | | Load 0x2,0x7
012f 6803 |h | Jump_Zero 0x133
0130 4801 |H | Short_Literal 0x1
0131 e7ff | | Load 0x3,-0x1
0132 840a | | Call 0x2,0xa
0133 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0134 0000 0000 | | .BLANK 0000[0x4]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 0143 | C | .CONST 0x0143 ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0003 | | .CONST 0x0003 ; Number of locals
013b INIT_0138:
013b 00da | | Load_Top At_Offset_2
013c e031 | 1 | Load 0x0,0x31
013d 1819 | | Execute Package,Field_Execute,Field_Number 0x19
013e e031 | 1 | Load 0x0,0x31
013f 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0140 03f1 | | Declare_Variable Discrete,With_Value
0141 029f 0303 | | Declare_Subprogram INIT_0300,For_Call
0143 BODY_0138:
0143 00d9 | | Load_Top At_Offset_1
0144 0f06 | | Execute_Immediate Equal,0x6
0145 6801 |h | Jump_Zero 0x147
0146 8603 | | Call 0x3,0x3
0147 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 016a | j | .CONST 0x016a ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0007 | | .CONST 0x0007 ; Number of locals
014b INIT_0148:
014b e020 | | Load 0x0,0x20
014c 1b19 | | Execute Package,Field_Read,Field_Number 0x19
014d 02c7 | | Declare_Variable Any
014e 00d8 | | Load_Top At_Offset_0
014f 1c00 | | Execute_Immediate Run_Utility,0x0
0150 e020 | | Load 0x0,0x20
0151 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0152 02c7 | | Declare_Variable Any
0153 e7ff | | Load 0x3,-0x1
0154 a603 | | Store_Unchecked 0x3,0x3
0155 e020 | | Load 0x0,0x20
0156 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0157 02c7 | | Declare_Variable Any
0158 00d9 | | Load_Top At_Offset_1
0159 e031 | 1 | Load 0x0,0x31
015a 1854 | T | Execute Package,Field_Execute,Field_Number 0x54
015b a604 | | Store_Unchecked 0x3,0x4
015c e020 | | Load 0x0,0x20
015d 1b13 | | Execute Package,Field_Read,Field_Number 0x13
015e 02c7 | | Declare_Variable Any
015f 00da | | Load_Top At_Offset_2
0160 e031 | 1 | Load 0x0,0x31
0161 1855 | U | Execute Package,Field_Execute,Field_Number 0x55
0162 a605 | | Store_Unchecked 0x3,0x5
0163 e020 | | Load 0x0,0x20
0164 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0165 02c7 | | Declare_Variable Any
0166 00d8 | | Load_Top At_Offset_0
0167 1c00 | | Execute_Immediate Run_Utility,0x0
0168 029f 036b | k| Declare_Subprogram INIT_0368,For_Call
016a BODY_0148:
016a e7fe | | Load 0x3,-0x2
016b e604 | | Load 0x3,0x4
016c 840b | | Call 0x2,0xb
016d 00cf | | Action Mark_Auxiliary
016e 780a |x | Jump 0x179
016f 00db | | Load_Top At_Offset_3
0170 e020 | | Load 0x0,0x20
0171 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0172 c606 | | Store 0x3,0x6
0173 8607 | | Call 0x3,0x7
0174 00db | | Load_Top At_Offset_3
0175 e020 | | Load 0x0,0x20
0176 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0177 c605 | | Store 0x3,0x5
0178 00c9 | | Action Pop_Auxiliary_Loop
0179 00db | | Load_Top At_Offset_3
017a e020 | | Load 0x0,0x20
017b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
017c 6ff2 |o | Jump_Zero 0x16f
017d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
017e 0000 0000 | | .XXX[0x2]
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 480a |H | Short_Literal 0xa
0184 e022 | " | Load 0x0,0x22
0185 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
0186 e023 | # | Load 0x0,0x23
0187 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0188 4800 |H | Short_Literal 0x0
0189 e5fc | | Load 0x2,-0x4
018a e5fd | | Load 0x2,-0x3
018b 820d | | Call 0x1,0xd
018c e407 | | Load 0x2,0x7
018d 6829 |h) | Jump_Zero 0x1b7
018e 480b |H | Short_Literal 0xb
018f e022 | " | Load 0x0,0x22
0190 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
0191 e023 | # | Load 0x0,0x23
0192 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0193 5854 |XT | Indirect_Literal Float,0x1e8,27.0
0194 4802 |H | Short_Literal 0x2
0195 0092 049a | | Action Push_String_Extended,0x49a ; "Interface Name (ID)"
0197 820e | | Call 0x1,0xe
0198 480b |H | Short_Literal 0xb
0199 e022 | " | Load 0x0,0x22
019a 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
019b e023 | # | Load 0x0,0x23
019c 1b16 | | Execute Package,Field_Read,Field_Number 0x16
019d 5846 |XF | Indirect_Literal Float,0x1e4,16.0
019e 4802 |H | Short_Literal 0x2
019f 0092 049b | | Action Push_String_Extended,0x49b ; "IRS\x0aParagraph"
01a1 820e | | Call 0x1,0xe
01a2 480b |H | Short_Literal 0xb
01a3 e022 | " | Load 0x0,0x22
01a4 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
01a5 e023 | # | Load 0x0,0x23
01a6 1b16 | | Execute Package,Field_Read,Field_Number 0x16
01a7 5840 |X@ | Indirect_Literal Float,0x1e8,27.0
01a8 4800 |H | Short_Literal 0x0
01a9 0092 049c | | Action Push_String_Extended,0x49c ; "Name (ID)"
01ab 820e | | Call 0x1,0xe
01ac 480b |H | Short_Literal 0xb
01ad e022 | " | Load 0x0,0x22
01ae 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
01af e023 | # | Load 0x0,0x23
01b0 1b16 | | Execute Package,Field_Read,Field_Number 0x16
01b1 582e |X. | Indirect_Literal Float,0x1e0,30.0
01b2 4802 |H | Short_Literal 0x2
01b3 0092 049d | | Action Push_String_Extended,0x49d ; "Applicable\x0aCapability"
01b5 820e | | Call 0x1,0xe
01b6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01b7 480b |H | Short_Literal 0xb
01b8 e022 | " | Load 0x0,0x22
01b9 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
01ba e023 | # | Load 0x0,0x23
01bb 1b16 | | Execute Package,Field_Read,Field_Number 0x16
01bc 581f |X | Indirect_Literal Float,0x1dc,40.0
01bd 4802 |H | Short_Literal 0x2
01be 0092 049a | | Action Push_String_Extended,0x49a ; "Interface Name (ID)"
01c0 820e | | Call 0x1,0xe
01c1 480b |H | Short_Literal 0xb
01c2 e022 | " | Load 0x0,0x22
01c3 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
01c4 e023 | # | Load 0x0,0x23
01c5 1b16 | | Execute Package,Field_Read,Field_Number 0x16
01c6 5811 |X | Indirect_Literal Float,0x1d8,20.0
01c7 4802 |H | Short_Literal 0x2
01c8 0092 049e | | Action Push_String_Extended,0x49e ; "IDD\x0aParagraph"
01ca 820e | | Call 0x1,0xe
01cb 480b |H | Short_Literal 0xb
01cc e022 | " | Load 0x0,0x22
01cd 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
01ce e023 | # | Load 0x0,0x23
01cf 1b16 | | Execute Package,Field_Read,Field_Number 0x16
01d0 580b |X | Indirect_Literal Float,0x1dc,40.0
01d1 4800 |H | Short_Literal 0x0
01d2 0092 049c | | Action Push_String_Extended,0x49c ; "Name (ID)"
01d4 820e | | Call 0x1,0xe
01d5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01d6 0000 0000 | | .XXX[0x2]
01d8 4034 0000 |@4 | .DBL 20.0
01da 0000 0000 | |
01dc 4044 0000 |@D | .DBL 40.0
01de 0000 0000 | |
01e0 403e 0000 |@> | .DBL 30.0
01e2 0000 0000 | |
01e4 4030 0000 |@0 | .DBL 16.0
01e6 0000 0000 | |
01e8 403b 0000 |@; | .DBL 27.0
01ea 0000 0000 | |
01ec 0000 0000 | | .BLANK 0000[0x4]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 0218 | | .CONST 0x0218 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 000c | | .CONST 0x000c ; Number of locals
01f3 INIT_01f0:
01f3 00e1 | | Load_Encached Boolean_Cache
01f4 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
01f5 00db | | Load_Top At_Offset_3
01f6 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
01f7 e024 | $ | Load 0x0,0x24
01f8 1b15 | | Execute Package,Field_Read,Field_Number 0x15
01f9 011e | | Execute Any,Convert
01fa 482d |H- | Short_Literal 0x2d
01fb e022 | " | Load 0x0,0x22
01fc 1b8d | | Execute Package,Field_Read,Field_Number 0x8d
01fd 00da | | Load_Top At_Offset_2
01fe e02d | - | Load 0x0,0x2d
01ff 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0200 00d9 | | Load_Top At_Offset_1
0201 8409 | | Call 0x2,0x9
0202 00e1 | | Load_Encached Boolean_Cache
0203 e020 | | Load 0x0,0x20
0204 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0205 02c7 | | Declare_Variable Any
0206 00d8 | | Load_Top At_Offset_0
0207 1c00 | | Execute_Immediate Run_Utility,0x0
0208 e020 | | Load 0x0,0x20
0209 1b0d | | Execute Package,Field_Read,Field_Number 0xd
020a 02c7 | | Declare_Variable Any
020b 00d8 | | Load_Top At_Offset_0
020c 1c00 | | Execute_Immediate Run_Utility,0x0
020d e020 | | Load 0x0,0x20
020e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
020f 02c7 | | Declare_Variable Any
0210 00d8 | | Load_Top At_Offset_0
0211 1c00 | | Execute_Immediate Run_Utility,0x0
0212 029f 03b3 | | Declare_Subprogram INIT_03b0,For_Call
0214 029f 0403 | | Declare_Subprogram INIT_0400,For_Call
0216 029f 042b | +| Declare_Subprogram INIT_0428,For_Call
0218 BODY_01f0:
0218 e604 | | Load 0x3,0x4
0219 01db | | Execute Vector,Length
021a 6828 |h( | Jump_Zero 0x243
021b 00cf | | Action Mark_Auxiliary
021c e604 | | Load 0x3,0x4
021d 01d9 | | Execute Vector,Reverse_Bounds
021e 0263 | c | Execute Discrete,Above_Bound
021f 7021 |p! | Jump_Nonzero 0x241
0220 860a | | Call 0x3,0xa
0221 4801 |H | Short_Literal 0x1
0222 480d |H | Short_Literal 0xd
0223 e022 | " | Load 0x0,0x22
0224 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
0225 00ea | | Load_Encached Null_String_Cache
0226 4800 |H | Short_Literal 0x0
0227 e60f | | Load 0x3,0xf
0228 e604 | | Load 0x3,0x4
0229 01d7 | | Execute Vector,Field_Read
022a e022 | " | Load 0x0,0x22
022b 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
022c 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
022d 4807 |H | Short_Literal 0x7
022e e60f | | Load 0x3,0xf
022f e604 | | Load 0x3,0x4
0230 01d7 | | Execute Vector,Field_Read
0231 e022 | " | Load 0x0,0x22
0232 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
0233 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0234 820f | | Call 0x1,0xf
0235 e407 | | Load 0x2,0x7
0236 6807 |h | Jump_Zero 0x23e
0237 4800 |H | Short_Literal 0x0
0238 00d9 | | Load_Top At_Offset_1
0239 e604 | | Load 0x3,0x4
023a 01d7 | | Execute Vector,Field_Read
023b e02d | - | Load 0x0,0x2d
023c 181e | | Execute Package,Field_Execute,Field_Number 0x1e
023d 840a | | Call 0x2,0xa
023e 860b | | Call 0x3,0xb
023f 00c8 | | Action Pop_Auxiliary_Range
0240 3fdf |? | Loop_Increasing 0x220
0241 00ce | | Action Pop_Auxiliary
0242 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0243 860c | | Call 0x3,0xc
0244 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0245 0000 0000 | | .XXX[0x3]
0247 0000 | |
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 0254 | T | .CONST 0x0254 ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0003 | | .CONST 0x0003 ; Number of locals
024b INIT_0248:
024b e022 | " | Load 0x0,0x22
024c 1b93 | | Execute Package,Field_Read,Field_Number 0x93
024d 02ff | | Declare_Variable Variant_Record
024e 00d8 | | Load_Top At_Offset_0
024f 1c00 | | Execute_Immediate Run_Utility,0x0
0250 4801 |H | Short_Literal 0x1
0251 e605 | | Load 0x3,0x5
0252 00e3 | | Load_Encached Natural_Cache
0253 03f8 | | Declare_Type Discrete,Constrained
0254 BODY_0248:
0254 e605 | | Load 0x3,0x5
0255 00da | | Load_Top At_Offset_2
0256 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0257 4801 |H | Short_Literal 0x1
0258 00d9 | | Load_Top At_Offset_1
0259 0269 | i | Execute Discrete,Last
025a e022 | " | Load 0x0,0x22
025b 1b4d | M | Execute Package,Field_Read,Field_Number 0x4d
025c 03ba | | Declare_Variable Access,By_Allocation,With_Constraint
025d 00d8 | | Load_Top At_Offset_0
025e 0227 | ' | Execute Access,All_Reference
025f 1c00 | | Execute_Immediate Run_Utility,0x0
0260 00da | | Load_Top At_Offset_2
0261 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0262 e602 | | Load 0x3,0x2
0263 e020 | | Load 0x0,0x20
0264 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0265 c602 | | Store 0x3,0x2
0266 00cf | | Action Mark_Auxiliary
0267 00d9 | | Load_Top At_Offset_1
0268 0269 | i | Execute Discrete,Last
0269 4801 |H | Short_Literal 0x1
026a 0263 | c | Execute Discrete,Above_Bound
026b 7012 |p | Jump_Nonzero 0x27e
026c e022 | " | Load 0x0,0x22
026d 1b8b | | Execute Package,Field_Read,Field_Number 0x8b
026e e602 | | Load 0x3,0x2
026f e020 | | Load 0x0,0x20
0270 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0271 e024 | $ | Load 0x0,0x24
0272 1872 | r | Execute Package,Field_Execute,Field_Number 0x72
0273 00d9 | | Load_Top At_Offset_1
0274 e802 | | Load 0x4,0x2
0275 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0276 0227 | ' | Execute Access,All_Reference
0277 01d6 | | Execute Vector,Field_Write
0278 e602 | | Load 0x3,0x2
0279 e020 | | Load 0x0,0x20
027a 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
027b c602 | | Store 0x3,0x2
027c 00c8 | | Action Pop_Auxiliary_Range
027d 3fee |? | Loop_Increasing 0x26c
027e 00ce | | Action Pop_Auxiliary
027f e605 | | Load 0x3,0x5
0280 7025 |p% | Jump_Nonzero 0x2a6
0281 e7fe | | Load 0x3,-0x2
0282 6809 |h | Jump_Zero 0x28c
0283 4801 |H | Short_Literal 0x1
0284 480d |H | Short_Literal 0xd
0285 e022 | " | Load 0x0,0x22
0286 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
0287 e023 | # | Load 0x0,0x23
0288 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0289 00ea | | Load_Encached Null_String_Cache
028a 820f | | Call 0x1,0xf
028b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
028c 4801 |H | Short_Literal 0x1
028d 480d |H | Short_Literal 0xd
028e e022 | " | Load 0x0,0x22
028f 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
0290 0092 049f | | Action Push_String_Extended,0x49f ; "No capabilities could be resolved in argument \x22"
0292 4800 |H | Short_Literal 0x0
0293 e7ff | | Load 0x3,-0x1
0294 e022 | " | Load 0x0,0x22
0295 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
0296 180e | | Execute Package,Field_Execute,Field_Number 0xe
0297 01cc | | Execute Vector,Catenate
0298 0092 04a0 | | Action Push_String_Extended,0x4a0 ; "\x22. Use Definition to visit the data item"
029a 01cc | | Execute Vector,Catenate
029b 0092 04a1 | | Action Push_String_Extended,0x4a1 ; " and correct the problem."
029d 01cc | | Execute Vector,Catenate
029e 4800 |H | Short_Literal 0x0
029f e7ff | | Load 0x3,-0x1
02a0 e022 | " | Load 0x0,0x22
02a1 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
02a2 181c | | Execute Package,Field_Execute,Field_Number 0x1c
02a3 00ea | | Load_Encached Null_String_Cache
02a4 820f | | Call 0x1,0xf
02a5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02a6 4800 |H | Short_Literal 0x0
02a7 480d |H | Short_Literal 0xd
02a8 e022 | " | Load 0x0,0x22
02a9 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
02aa 00ea | | Load_Encached Null_String_Cache
02ab e802 | | Load 0x4,0x2
02ac e022 | " | Load 0x0,0x22
02ad 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
02ae 4801 |H | Short_Literal 0x1
02af e235 | 5 | Load 0x1,0x35
02b0 e802 | | Load 0x4,0x2
02b1 e022 | " | Load 0x0,0x22
02b2 187a | z | Execute Package,Field_Execute,Field_Number 0x7a
02b3 820f | | Call 0x1,0xf
02b4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02b5 0000 0000 | | .XXX[0x3]
02b7 0000 | |
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02c0 | | .CONST 0x02c0 ; Address of begin
02b9 0004 | | .CONST 0x0004 ; Address of exception handler
02ba 0002 | | .CONST 0x0002 ; Number of locals
02bb INIT_02b8:
02bb 4804 |H | Short_Literal 0x4
02bc e7ff | | Load 0x3,-0x1
02bd e022 | " | Load 0x0,0x22
02be 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
02bf 180e | | Execute Package,Field_Execute,Field_Number 0xe
02c0 BODY_02b8:
02c0 00d8 | | Load_Top At_Offset_0
02c1 0092 04a2 | | Action Push_String_Extended,0x4a2 ; "<UNDEFINED_ID>"
02c3 01df | | Execute Vector,Equal
02c4 6816 |h | Jump_Zero 0x2db
02c5 4801 |H | Short_Literal 0x1
02c6 480d |H | Short_Literal 0xd
02c7 e022 | " | Load 0x0,0x22
02c8 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
02c9 00ea | | Load_Encached Null_String_Cache
02ca 4800 |H | Short_Literal 0x0
02cb e7ff | | Load 0x3,-0x1
02cc e022 | " | Load 0x0,0x22
02cd 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
02ce 181c | | Execute Package,Field_Execute,Field_Number 0x1c
02cf 4801 |H | Short_Literal 0x1
02d0 e7fe | | Load 0x3,-0x2
02d1 e22d | - | Load 0x1,0x2d
02d2 01cf | | Execute Vector,Slice_Read
02d3 4801 |H | Short_Literal 0x1
02d4 e7ff | | Load 0x3,-0x1
02d5 e022 | " | Load 0x0,0x22
02d6 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
02d7 180e | | Execute Package,Field_Execute,Field_Number 0xe
02d8 01cc | | Execute Vector,Catenate
02d9 820f | | Call 0x1,0xf
02da 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02db 4801 |H | Short_Literal 0x1
02dc 480d |H | Short_Literal 0xd
02dd e022 | " | Load 0x0,0x22
02de 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
02df 00ea | | Load_Encached Null_String_Cache
02e0 4800 |H | Short_Literal 0x0
02e1 e7ff | | Load 0x3,-0x1
02e2 e022 | " | Load 0x0,0x22
02e3 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
02e4 181c | | Execute Package,Field_Execute,Field_Number 0x1c
02e5 4801 |H | Short_Literal 0x1
02e6 e7fe | | Load 0x3,-0x2
02e7 e22d | - | Load 0x1,0x2d
02e8 01cf | | Execute Vector,Slice_Read
02e9 4801 |H | Short_Literal 0x1
02ea e7ff | | Load 0x3,-0x1
02eb e022 | " | Load 0x0,0x22
02ec 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
02ed 180e | | Execute Package,Field_Execute,Field_Number 0xe
02ee 01cc | | Execute Vector,Catenate
02ef 0092 04a3 | | Action Push_String_Extended,0x4a3 ; " ("
02f1 01cc | | Execute Vector,Catenate
02f2 e802 | | Load 0x4,0x2
02f3 01cc | | Execute Vector,Catenate
02f4 0092 04a4 | | Action Push_String_Extended,0x4a4 ; ")"
02f6 01cc | | Execute Vector,Catenate
02f7 820f | | Call 0x1,0xf
02f8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02f9 0000 0000 | | .BLANK 0000[0x7]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0319 | | .CONST 0x0319 ; Address of begin
0301 0004 | | .CONST 0x0004 ; Address of exception handler
0302 0005 | | .CONST 0x0005 ; Number of locals
0303 INIT_0300:
0303 e020 | | Load 0x0,0x20
0304 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0305 02c7 | | Declare_Variable Any
0306 e7ff | | Load 0x3,-0x1
0307 e031 | 1 | Load 0x0,0x31
0308 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
0309 a802 | | Store_Unchecked 0x4,0x2
030a e023 | # | Load 0x0,0x23
030b 1b15 | | Execute Package,Field_Read,Field_Number 0x15
030c 02ff | | Declare_Variable Variant_Record
030d 00d8 | | Load_Top At_Offset_0
030e 1c00 | | Execute_Immediate Run_Utility,0x0
030f e020 | | Load 0x0,0x20
0310 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0311 02c7 | | Declare_Variable Any
0312 00d8 | | Load_Top At_Offset_0
0313 1c00 | | Execute_Immediate Run_Utility,0x0
0314 e020 | | Load 0x0,0x20
0315 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0316 02c7 | | Declare_Variable Any
0317 00d8 | | Load_Top At_Offset_0
0318 1c00 | | Execute_Immediate Run_Utility,0x0
0319 BODY_0300:
0319 00cf | | Action Mark_Auxiliary
031a 7841 |xA | Jump 0x35c
031b e802 | | Load 0x4,0x2
031c e020 | | Load 0x0,0x20
031d 1817 | | Execute Package,Field_Execute,Field_Number 0x17
031e c805 | | Store 0x4,0x5
031f 00d9 | | Load_Top At_Offset_1
0320 e031 | 1 | Load 0x0,0x31
0321 1853 | S | Execute Package,Field_Execute,Field_Number 0x53
0322 4603 |F | Jump_Case 0x4
0323 780d |x | Jump 0x331 ; case 0x0
0324 7802 |x | Jump 0x327 ; case 0x1
0325 7806 |x | Jump 0x32c ; case 0x2
0326 780a |x | Jump 0x331 ; case 0x3
0327 00d9 | | Load_Top At_Offset_1
0328 e026 | & | Load 0x0,0x26
0329 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
032a c804 | | Store 0x4,0x4
032b 7805 |x | Jump 0x331
032c e7fe | | Load 0x3,-0x2
032d 00da | | Load_Top At_Offset_2
032e 840d | | Call 0x2,0xd
032f 00cc | | Action Pop_Block
0330 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0331 00cf | | Action Mark_Auxiliary
0332 780a |x | Jump 0x33d
0333 e7fe | | Load 0x3,-0x2
0334 e804 | | Load 0x4,0x4
0335 e020 | | Load 0x0,0x20
0336 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0337 840b | | Call 0x2,0xb
0338 00db | | Load_Top At_Offset_3
0339 e020 | | Load 0x0,0x20
033a 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
033b c804 | | Store 0x4,0x4
033c 00c9 | | Action Pop_Auxiliary_Loop
033d 00db | | Load_Top At_Offset_3
033e e020 | | Load 0x0,0x20
033f 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0340 6ff2 |o | Jump_Zero 0x333
0341 00ce | | Action Pop_Auxiliary
0342 e403 | | Load 0x2,0x3
0343 e404 | | Load 0x2,0x4
0344 e405 | | Load 0x2,0x5
0345 00e1 | | Load_Encached Boolean_Cache
0346 e802 | | Load 0x4,0x2
0347 e020 | | Load 0x0,0x20
0348 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0349 822e | . | Call 0x1,0x2e
034a c406 | | Store 0x2,0x6
034b c405 | | Store 0x2,0x5
034c c404 | | Store 0x2,0x4
034d c403 | | Store 0x2,0x3
034e e7fe | | Load 0x3,-0x2
034f 0a01 | | Execute_Immediate Plus,0x1
0350 00d8 | | Load_Top At_Offset_0
0351 00e3 | | Load_Encached Natural_Cache
0352 0260 | ` | Execute Discrete,In_Type
0353 7001 |p | Jump_Nonzero 0x355
0354 0801 | | Execute_Immediate Raise,0x1
0355 e404 | | Load 0x2,0x4
0356 840c | | Call 0x2,0xc
0357 e802 | | Load 0x4,0x2
0358 e020 | | Load 0x0,0x20
0359 1815 | | Execute Package,Field_Execute,Field_Number 0x15
035a c802 | | Store 0x4,0x2
035b 00c9 | | Action Pop_Auxiliary_Loop
035c e802 | | Load 0x4,0x2
035d e020 | | Load 0x0,0x20
035e 1816 | | Execute Package,Field_Execute,Field_Number 0x16
035f 6fbb |o | Jump_Zero 0x31b
0360 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0361 0000 0000 | | .BLANK 0000[0x7]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 0372 | r | .CONST 0x0372 ; Address of begin
0369 0004 | | .CONST 0x0004 ; Address of exception handler
036a 0002 | | .CONST 0x0002 ; Number of locals
036b INIT_0368:
036b e020 | | Load 0x0,0x20
036c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
036d 02c7 | | Declare_Variable Any
036e e606 | | Load 0x3,0x6
036f e031 | 1 | Load 0x0,0x31
0370 1857 | W | Execute Package,Field_Execute,Field_Number 0x57
0371 a802 | | Store_Unchecked 0x4,0x2
0372 BODY_0368:
0372 00cf | | Action Mark_Auxiliary
0373 7831 |x1 | Jump 0x3a5
0374 00d9 | | Load_Top At_Offset_1
0375 e020 | | Load 0x0,0x20
0376 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0377 c603 | | Store 0x3,0x3
0378 e603 | | Load 0x3,0x3
0379 e026 | & | Load 0x0,0x26
037a 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
037b c602 | | Store 0x3,0x2
037c 00cf | | Action Mark_Auxiliary
037d 780a |x | Jump 0x388
037e e7fe | | Load 0x3,-0x2
037f e602 | | Load 0x3,0x2
0380 e020 | | Load 0x0,0x20
0381 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0382 840b | | Call 0x2,0xb
0383 e602 | | Load 0x3,0x2
0384 e020 | | Load 0x0,0x20
0385 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0386 c602 | | Store 0x3,0x2
0387 00c9 | | Action Pop_Auxiliary_Loop
0388 e602 | | Load 0x3,0x2
0389 e020 | | Load 0x0,0x20
038a 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
038b 6ff2 |o | Jump_Zero 0x37e
038c 00ce | | Action Pop_Auxiliary
038d e403 | | Load 0x2,0x3
038e e404 | | Load 0x2,0x4
038f e405 | | Load 0x2,0x5
0390 00e1 | | Load_Encached Boolean_Cache
0391 e603 | | Load 0x3,0x3
0392 822e | . | Call 0x1,0x2e
0393 c406 | | Store 0x2,0x6
0394 c405 | | Store 0x2,0x5
0395 c404 | | Store 0x2,0x4
0396 c403 | | Store 0x2,0x3
0397 e7fe | | Load 0x3,-0x2
0398 0a01 | | Execute_Immediate Plus,0x1
0399 00d8 | | Load_Top At_Offset_0
039a 00e3 | | Load_Encached Natural_Cache
039b 0260 | ` | Execute Discrete,In_Type
039c 7001 |p | Jump_Nonzero 0x39e
039d 0801 | | Execute_Immediate Raise,0x1
039e e404 | | Load 0x2,0x4
039f 840c | | Call 0x2,0xc
03a0 00d9 | | Load_Top At_Offset_1
03a1 e020 | | Load 0x0,0x20
03a2 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03a3 c802 | | Store 0x4,0x2
03a4 00c9 | | Action Pop_Auxiliary_Loop
03a5 00d9 | | Load_Top At_Offset_1
03a6 e020 | | Load 0x0,0x20
03a7 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03a8 6fcb |o | Jump_Zero 0x374
03a9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03aa 0000 0000 | | .BLANK 0000[0x6]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b3 | | .CONST 0x03b3 ; Address of begin
03b1 0004 | | .CONST 0x0004 ; Address of exception handler
03b2 0001 | | .CONST 0x0001 ; Number of locals
03b3 BODY_03b0:
03b3 INIT_03b0:
03b3 e408 | | Load 0x2,0x8
03b4 6803 |h | Jump_Zero 0x3b8
03b5 840e | | Call 0x2,0xe
03b6 4800 |H | Short_Literal 0x0
03b7 a408 | | Store_Unchecked 0x2,0x8
03b8 e602 | | Load 0x3,0x2
03b9 6830 |h0 | Jump_Zero 0x3ea
03ba 4801 |H | Short_Literal 0x1
03bb 480c |H | Short_Literal 0xc
03bc e022 | " | Load 0x0,0x22
03bd 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
03be 00ea | | Load_Encached Null_String_Cache
03bf 4800 |H | Short_Literal 0x0
03c0 e603 | | Load 0x3,0x3
03c1 e022 | " | Load 0x0,0x22
03c2 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
03c3 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
03c4 4807 |H | Short_Literal 0x7
03c5 e603 | | Load 0x3,0x3
03c6 e022 | " | Load 0x0,0x22
03c7 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
03c8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03c9 820f | | Call 0x1,0xf
03ca e603 | | Load 0x3,0x3
03cb e024 | $ | Load 0x0,0x24
03cc 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
03cd 6811 |h | Jump_Zero 0x3df
03ce 4801 |H | Short_Literal 0x1
03cf 480d |H | Short_Literal 0xd
03d0 e022 | " | Load 0x0,0x22
03d1 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
03d2 00ea | | Load_Encached Null_String_Cache
03d3 e605 | | Load 0x3,0x5
03d4 e7ff | | Load 0x3,-0x1
03d5 4806 |H | Short_Literal 0x6
03d6 e022 | " | Load 0x0,0x22
03d7 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
03d8 e605 | | Load 0x3,0x5
03d9 e7ff | | Load 0x3,-0x1
03da 4806 |H | Short_Literal 0x6
03db e022 | " | Load 0x0,0x22
03dc 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
03dd 820f | | Call 0x1,0xf
03de 7808 |x | Jump 0x3e7
03df 4801 |H | Short_Literal 0x1
03e0 480d |H | Short_Literal 0xd
03e1 e022 | " | Load 0x0,0x22
03e2 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
03e3 e023 | # | Load 0x0,0x23
03e4 1b16 | | Execute Package,Field_Read,Field_Number 0x16
03e5 00ea | | Load_Encached Null_String_Cache
03e6 820f | | Call 0x1,0xf
03e7 4800 |H | Short_Literal 0x0
03e8 a602 | | Store_Unchecked 0x3,0x2
03e9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03ea 4801 |H | Short_Literal 0x1
03eb 480d |H | Short_Literal 0xd
03ec e022 | " | Load 0x0,0x22
03ed 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
03ee e023 | # | Load 0x0,0x23
03ef 1b16 | | Execute Package,Field_Read,Field_Number 0x16
03f0 00ea | | Load_Encached Null_String_Cache
03f1 820f | | Call 0x1,0xf
03f2 4801 |H | Short_Literal 0x1
03f3 480d |H | Short_Literal 0xd
03f4 e022 | " | Load 0x0,0x22
03f5 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
03f6 e023 | # | Load 0x0,0x23
03f7 1b16 | | Execute Package,Field_Read,Field_Number 0x16
03f8 00ea | | Load_Encached Null_String_Cache
03f9 820f | | Call 0x1,0xf
03fa 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03fb 0000 0000 | | .BLANK 0000[0x5]
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0413 | | .CONST 0x0413 ; Address of begin
0401 0004 | | .CONST 0x0004 ; Address of exception handler
0402 0003 | | .CONST 0x0003 ; Number of locals
0403 INIT_0400:
0403 e02d | - | Load 0x0,0x2d
0404 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0405 02c7 | | Declare_Variable Any
0406 e60f | | Load 0x3,0xf
0407 e604 | | Load 0x3,0x4
0408 01d7 | | Execute Vector,Field_Read
0409 e02d | - | Load 0x0,0x2d
040a 181e | | Execute Package,Field_Execute,Field_Number 0x1e
040b a802 | | Store_Unchecked 0x4,0x2
040c e020 | | Load 0x0,0x20
040d 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
040e 02c7 | | Declare_Variable Any
040f 00d9 | | Load_Top At_Offset_1
0410 e026 | & | Load 0x0,0x26
0411 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0412 a803 | | Store_Unchecked 0x4,0x3
0413 BODY_0400:
0413 00d8 | | Load_Top At_Offset_0
0414 823a | : | Call 0x1,0x3a
0415 c803 | | Store 0x4,0x3
0416 e609 | | Load 0x3,0x9
0417 e608 | | Load 0x3,0x8
0418 e607 | | Load 0x3,0x7
0419 00e1 | | Load_Encached Boolean_Cache
041a e803 | | Load 0x4,0x3
041b 822e | . | Call 0x1,0x2e
041c c606 | | Store 0x3,0x6
041d c607 | | Store 0x3,0x7
041e c608 | | Store 0x3,0x8
041f c609 | | Store 0x3,0x9
0420 4801 |H | Short_Literal 0x1
0421 e608 | | Load 0x3,0x8
0422 840c | | Call 0x2,0xc
0423 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0424 0000 0000 | | .BLANK 0000[0x4]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 043c | < | .CONST 0x043c ; Address of begin
0429 0004 | | .CONST 0x0004 ; Address of exception handler
042a 0004 | | .CONST 0x0004 ; Number of locals
042b INIT_0428:
042b e020 | | Load 0x0,0x20
042c 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
042d 02c7 | | Declare_Variable Any
042e e603 | | Load 0x3,0x3
042f e024 | $ | Load 0x0,0x24
0430 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0431 e026 | & | Load 0x0,0x26
0432 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0433 a802 | | Store_Unchecked 0x4,0x2
0434 00d8 | | Load_Top At_Offset_0
0435 e026 | & | Load 0x0,0x26
0436 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0437 e026 | & | Load 0x0,0x26
0438 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0439 03f1 | | Declare_Variable Discrete,With_Value
043a 029f 0473 | s| Declare_Subprogram INIT_0470,For_Call
043c BODY_0428:
043c 00d9 | | Load_Top At_Offset_1
043d 0f05 | | Execute_Immediate Equal,0x5
043e 7006 |p | Jump_Nonzero 0x445
043f 00d9 | | Load_Top At_Offset_1
0440 0f07 | | Execute_Immediate Equal,0x7
0441 7003 |p | Jump_Nonzero 0x445
0442 00d9 | | Load_Top At_Offset_1
0443 0f06 | | Execute_Immediate Equal,0x6
0444 6802 |h | Jump_Zero 0x447
0445 8804 | | Call 0x4,0x4
0446 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0447 00d9 | | Load_Top At_Offset_1
0448 7023 |p# | Jump_Nonzero 0x46c
0449 860a | | Call 0x3,0xa
044a 4801 |H | Short_Literal 0x1
044b 480d |H | Short_Literal 0xd
044c e022 | " | Load 0x0,0x22
044d 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
044e 00ea | | Load_Encached Null_String_Cache
044f 4800 |H | Short_Literal 0x0
0450 e802 | | Load 0x4,0x2
0451 e022 | " | Load 0x0,0x22
0452 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
0453 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0454 4807 |H | Short_Literal 0x7
0455 e603 | | Load 0x3,0x3
0456 e022 | " | Load 0x0,0x22
0457 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
0458 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0459 820f | | Call 0x1,0xf
045a e407 | | Load 0x2,0x7
045b 6803 |h | Jump_Zero 0x45f
045c 4800 |H | Short_Literal 0x0
045d 00db | | Load_Top At_Offset_3
045e 840a | | Call 0x2,0xa
045f e609 | | Load 0x3,0x9
0460 e608 | | Load 0x3,0x8
0461 e607 | | Load 0x3,0x7
0462 00e1 | | Load_Encached Boolean_Cache
0463 e802 | | Load 0x4,0x2
0464 822e | . | Call 0x1,0x2e
0465 c606 | | Store 0x3,0x6
0466 c607 | | Store 0x3,0x7
0467 c608 | | Store 0x3,0x8
0468 c609 | | Store 0x3,0x9
0469 4801 |H | Short_Literal 0x1
046a e608 | | Load 0x3,0x8
046b 840c | | Call 0x2,0xc
046c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
046d 0000 0000 | | .XXX[0x3]
046f 0000 | |
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 047a | z | .CONST 0x047a ; Address of begin
0471 0004 | | .CONST 0x0004 ; Address of exception handler
0472 0002 | | .CONST 0x0002 ; Number of locals
0473 INIT_0470:
0473 e026 | & | Load 0x0,0x26
0474 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0475 02c7 | | Declare_Variable Any
0476 e802 | | Load 0x4,0x2
0477 e026 | & | Load 0x0,0x26
0478 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0479 aa02 | | Store_Unchecked 0x5,0x2
047a BODY_0470:
047a 860a | | Call 0x3,0xa
047b 4801 |H | Short_Literal 0x1
047c 480d |H | Short_Literal 0xd
047d e022 | " | Load 0x0,0x22
047e 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
047f 00ea | | Load_Encached Null_String_Cache
0480 4800 |H | Short_Literal 0x0
0481 e802 | | Load 0x4,0x2
0482 e022 | " | Load 0x0,0x22
0483 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
0484 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0485 4807 |H | Short_Literal 0x7
0486 e603 | | Load 0x3,0x3
0487 e022 | " | Load 0x0,0x22
0488 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
0489 1813 | | Execute Package,Field_Execute,Field_Number 0x13
048a 820f | | Call 0x1,0xf
048b e407 | | Load 0x2,0x7
048c 6803 |h | Jump_Zero 0x490
048d 4800 |H | Short_Literal 0x0
048e e802 | | Load 0x4,0x2
048f 840a | | Call 0x2,0xa
0490 4801 |H | Short_Literal 0x1
0491 00d9 | | Load_Top At_Offset_1
0492 840c | | Call 0x2,0xc
0493 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0494 ; --------------------------------------------------------------------------------------
0494 ; STRING TABLE
0494 ; --------------------------------------------------------------------------------------
0494 0024 | $ | .STRTAB 0x0024->0x04a6 ; "<XRS_PARA ("
0495 002d | - | .STRTAB 0x002d->0x04ab ; ")>"
0496 002d | - | .STRTAB 0x002d->0x04ac ; "Reference to CAPABILITY requirement \x22"
0497 0050 | P | .STRTAB 0x0050->0x04bf ; "\x22 is UNDEFINED in the"
0498 0063 | c | .STRTAB 0x0063->0x04c9 ; " @APPLICABLE_CAPABILITY annotation"
0499 0083 | | .STRTAB 0x0083->0x04da ; " of EXTERNAL_INTERFACE_DATA element "
049a 00a5 | | .STRTAB 0x00a5->0x04ec ; "Interface Name (ID)"
049b 00b6 | | .STRTAB 0x00b6->0x04f6 ; "IRS\x0aParagraph"
049c 00c1 | | .STRTAB 0x00c1->0x04fc ; "Name (ID)"
049d 00c8 | | .STRTAB 0x00c8->0x0501 ; "Applicable\x0aCapability"
049e 00db | | .STRTAB 0x00db->0x050b ; "IDD\x0aParagraph"
049f 00e6 | | .STRTAB 0x00e6->0x0512 ; "No capabilities could be resolved in argument \x22"
04a0 0113 | | .STRTAB 0x0113->0x0529 ; "\x22. Use Definition to visit the data item"
04a1 013a | : | .STRTAB 0x013a->0x053e ; " and correct the problem."
04a2 0151 | Q | .STRTAB 0x0151->0x054a ; "<UNDEFINED_ID>"
04a3 015d | ] | .STRTAB 0x015d->0x0551 ; " ("
04a4 015d | ] | .STRTAB 0x015d->0x0552 ; ")"
04a5 015c | \ | .STREND 0x015c->0x0553
04a6 3c58 5253 |<XRS| .STRTAB_STRINGS
0553 0000 0000 | | .BLANK 0000[0x5]
0558 ; --------------------------------------------------------------------------------------
0558 ; Debug Table
0558 ; --------------------------------------------------------------------------------------
0558 0004 0012 | | .DEBUG4 0x0004,0x0012,0xfc8b,0x0000,0x0001,0x0000
055e 0000 0000 | | .BLANK 0000[0x16]
0574 8014 0000 | | .XXX[0xb]
0576 0000 0000 | |
0578 0100 0000 | |
057a 0880 0000 | |
057c 0004 0000 | |
057e 0028 | ( |
057f 0000 0000 | | .BLANK 0000[0x2e]
05ad 1002 8000 | | .XXX[0xb]
05af 0000 0000 | |
05b1 0020 0000 | |
05b3 0110 0000 | |
05b5 0000 8000 | |
05b7 0005 | |
05b8 0000 0000 | | .BLANK 0000[0x48]