|
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 - metrics - download
Length: 4096 (0x1000)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0500e0
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0770 | p | .CONST 0x0770 ; 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 8004 | | .CONST 0x8004 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0010 | | .CONST 0x0010 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0001 | | .CONST 0x0001 ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0018
000d 00bf | | Action Accept_Activation
000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
000f 00c7 | | Action Elaborate_Subprogram
0010 BODY_0008:
0010 00bc | | Action Signal_Activated
0011 00bb | | Action Signal_Completion
0012 0000 0000 | | .BLANK 0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 0047 | G | .CONST 0x0047 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 000e | | .CONST 0x000e ; Number of locals
001b INIT_0018:
001b 0092 05ef | | Action Push_String_Extended,0x5ef ; "!Machine.Initialization.Rational.Design_Facilities"
001d 4800 |H | Short_Literal 0x0
001e 0093 022b | +| PushFullAddress InMicrocode,INIT_0228
0020 02a0 | | Declare_Subprogram Null_Subprogram
0021 038e | | Declare_Type Package,Defined
0022 0387 | | Declare_Variable Package
0023 e001 | | Load 0x0,0x1
0024 e002 | | Load 0x0,0x2
0025 e003 | | Load 0x0,0x3
0026 e004 | | Load 0x0,0x4
0027 e005 | | Load 0x0,0x5
0028 e006 | | Load 0x0,0x6
0029 e007 | | Load 0x0,0x7
002a e008 | | Load 0x0,0x8
002b 4808 |H | Short_Literal 0x8
002c e403 | | Load 0x2,0x3
002d 020e | | Execute Module,Augment_Imports
002e 00d8 | | Load_Top At_Offset_0
002f 020f | | Execute Module,Activate
0030 029f 0053 | S| Declare_Subprogram For_Call,INIT_0050
0032 00d9 | | Load_Top At_Offset_1
0033 1913 | | Execute Package,Field_Reference,Field_Number 0x13
0034 00c6 | | Action Check_Subprogram_Elaborated
0035 e005 | | Load 0x0,0x5
0036 1964 | d | Execute Package,Field_Reference,Field_Number 0x64
0037 e009 | | Load 0x0,0x9
0038 e00a | | Load 0x0,0xa
0039 4808 |H | Short_Literal 0x8
003a 0007 | | Action Break_Optional
003b 029f 0063 | c| Declare_Subprogram For_Call,INIT_0060
003d 029f 00d3 | | Declare_Subprogram For_Call,INIT_00d0
003f 029f 00f3 | | Declare_Subprogram For_Call,INIT_00f0
0041 029f 00fb | | Declare_Subprogram For_Call,INIT_00f8
0043 029f 0103 | | Declare_Subprogram For_Call,INIT_0100
0045 029f 013b | ;| Declare_Subprogram For_Call,INIT_0138
0047 BODY_0018:
0047 e5fd | | Load 0x2,-0x3
0048 840e | | Call 0x2,0xe
0049 e5fe | | Load 0x2,-0x2
004a 840e | | Call 0x2,0xe
004b 4504 |E | Exit_Subprogram 0x4
004c 0000 0000 | | .BLANK 0000[0x4]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0053 | S | .CONST 0x0053 ; Address of begin
0051 0058 | X | .CONST 0x0058 ; Address of exception handler
0052 0001 | | .CONST 0x0001 ; Number of locals
0053 BODY_0050:
0053 INIT_0050:
0053 00da | | Load_Top At_Offset_2
0054 e005 | | Load 0x0,0x5
0055 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0056 c7ff | | Store 0x3,-0x1
0057 4501 |E | Exit_Subprogram 0x1
0058 TRAP_0050:
0058 0007 | | Action Break_Optional
0059 4501 |E | Exit_Subprogram 0x1
005a 0000 0000 | | .BLANK 0000[0x6]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0079 | y | .CONST 0x0079 ; Address of begin
0061 00ac | | .CONST 0x00ac ; Address of exception handler
0062 000a | | .CONST 0x000a ; Number of locals
0063 INIT_0060:
0063 00da | | Load_Top At_Offset_2
0064 e403 | | Load 0x2,0x3
0065 180f | | Execute Package,Field_Execute,Field_Number 0xf
0066 0092 05f0 | | Action Push_String_Extended,0x5f0 ; "Input | Output | Error => !MACHINE.DEVICES.NIL"
0068 e00b | | Load 0x0,0xb
0069 1b0d | | Execute Package,Field_Read,Field_Number 0xd
006a e00b | | Load 0x0,0xb
006b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
006c 02c7 | | Declare_Variable Any
006d 00d8 | | Load_Top At_Offset_0
006e 1c00 | | Execute_Immediate Run_Utility,0x0
006f 029f 0173 | s| Declare_Subprogram For_Call,INIT_0170
0071 029f 01b3 | | Declare_Subprogram For_Call,INIT_01b0
0073 029f 01c3 | | Declare_Subprogram For_Call,INIT_01c0
0075 029f 01d3 | | Declare_Subprogram For_Call,INIT_01d0
0077 029f 01e3 | | Declare_Subprogram For_Call,INIT_01e0
0079 BODY_0060:
0079 e602 | | Load 0x3,0x2
007a 4805 |H | Short_Literal 0x5
007b 4802 |H | Short_Literal 0x2
007c 0099 | | Action Reference_Dynamic
007d 4806 |H | Short_Literal 0x6
007e 4802 |H | Short_Literal 0x2
007f 0099 | | Action Reference_Dynamic
0080 e403 | | Load 0x2,0x3
0081 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0082 0092 05f1 | | Action Push_String_Extended,0x5f1 ; "<PROFILE>"
0084 e602 | | Load 0x3,0x2
0085 4802 |H | Short_Literal 0x2
0086 e403 | | Load 0x2,0x3
0087 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0088 e00c | | Load 0x0,0xc
0089 1817 | | Execute Package,Field_Execute,Field_Number 0x17
008a e605 | | Load 0x3,0x5
008b e00b | | Load 0x0,0xb
008c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
008d 0092 05f1 | | Action Push_String_Extended,0x5f1 ; "<PROFILE>"
008f e603 | | Load 0x3,0x3
0090 4800 |H | Short_Literal 0x0
0091 e602 | | Load 0x3,0x2
0092 4805 |H | Short_Literal 0x5
0093 e403 | | Load 0x2,0x3
0094 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0095 4800 |H | Short_Literal 0x0
0096 8608 | | Call 0x3,0x8
0097 860a | | Call 0x3,0xa
0098 c604 | | Store 0x3,0x4
0099 c605 | | Store 0x3,0x5
009a e605 | | Load 0x3,0x5
009b e00b | | Load 0x0,0xb
009c 1812 | | Execute Package,Field_Execute,Field_Number 0x12
009d 700d |p | Jump_Nonzero 0xab
009e e605 | | Load 0x3,0x5
009f e00d | | Load 0x0,0xd
00a0 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00a1 4802 |H | Short_Literal 0x2
00a2 0092 05f2 | | Action Push_String_Extended,0x5f2 ; "Unable_To_Register_Standard_Pdl "
00a4 8607 | | Call 0x3,0x7
00a5 01cc | | Execute Vector,Catenate
00a6 e00e | | Load 0x0,0xe
00a7 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00a8 8609 | | Call 0x3,0x9
00a9 e00e | | Load 0x0,0xe
00aa 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00ab 4503 |E | Exit_Subprogram 0x3
00ac TRAP_0060:
00ac 00d8 | | Load_Top At_Offset_0
00ad 0107 | | Execute Exception,Get_Name
00ae 4920 |I | Short_Literal 0x120
00af 492f |I/ | Short_Literal 0x12f
00b0 0262 | b | Execute Discrete,In_Range
00b1 680e |h | Jump_Zero 0xc0
00b2 8607 | | Call 0x3,0x7
00b3 0092 05f3 | | Action Push_String_Extended,0x5f3 ; " cannot be found."
00b5 01cc | | Execute Vector,Catenate
00b6 4802 |H | Short_Literal 0x2
00b7 0092 05f4 | | Action Push_String_Extended,0x5f4 ; "Invalid_Pdl_Name"
00b9 e00e | | Load 0x0,0xe
00ba 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00bb 0092 05f5 | | Action Push_String_Extended,0x5f5 ; "!Machine.Initialization.Rational.Design_Facilities.Start_Pdl"
00bd e00e | | Load 0x0,0xe
00be 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00bf 4503 |E | Exit_Subprogram 0x3
00c0 4801 |H | Short_Literal 0x1
00c1 4801 |H | Short_Literal 0x1
00c2 e00f | | Load 0x0,0xf
00c3 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00c4 4802 |H | Short_Literal 0x2
00c5 0092 05f6 | | Action Push_String_Extended,0x5f6 ; "Unhandled_Exception"
00c7 e00e | | Load 0x0,0xe
00c8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00c9 8609 | | Call 0x3,0x9
00ca e00e | | Load 0x0,0xe
00cb 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00cc 4503 |E | Exit_Subprogram 0x3
00cd 0000 0000 | | .XXX[0x3]
00cf 0000 | |
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d5 | | .CONST 0x00d5 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0002 | | .CONST 0x0002 ; Number of locals
00d3 INIT_00d0:
00d3 00e2 | | Load_Encached Integer_Cache
00d4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00d5 BODY_00d0:
00d5 00cf | | Action Mark_Auxiliary
00d6 e7ff | | Load 0x3,-0x1
00d7 01d9 | | Execute Vector,Reverse_Bounds
00d8 0263 | c | Execute Discrete,Above_Bound
00d9 7013 |p | Jump_Nonzero 0xed
00da 00d8 | | Load_Top At_Offset_0
00db e7ff | | Load 0x3,-0x1
00dc 01d7 | | Execute Vector,Field_Read
00dd 0f28 | ( | Execute_Immediate Equal,0x28
00de 6804 |h | Jump_Zero 0xe3
00df 00db | | Load_Top At_Offset_3
00e0 0a01 | | Execute_Immediate Plus,0x1
00e1 c602 | | Store 0x3,0x2
00e2 7808 |x | Jump 0xeb
00e3 00d8 | | Load_Top At_Offset_0
00e4 e7ff | | Load 0x3,-0x1
00e5 01d7 | | Execute Vector,Field_Read
00e6 0f29 | ) | Execute_Immediate Equal,0x29
00e7 6803 |h | Jump_Zero 0xeb
00e8 00db | | Load_Top At_Offset_3
00e9 0aff | | Execute_Immediate Plus,-0x1
00ea c602 | | Store 0x3,0x2
00eb 00c8 | | Action Pop_Auxiliary_Range
00ec 3fed |? | Loop_Increasing 0xda
00ed 00ce | | Action Pop_Auxiliary
00ee 00d8 | | Load_Top At_Offset_0
00ef 4401 |D | Exit_Subprogram With_Result,0x1
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 00da | | Load_Top At_Offset_2
00f4 840a | | Call 0x2,0xa
00f5 0c01 | | Execute_Immediate Greater_Equal,0x1
00f6 4401 |D | Exit_Subprogram With_Result,0x1
00f7 0000 | | .XXX[0x1]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb 00da | | Load_Top At_Offset_2
00fc 840a | | Call 0x2,0xa
00fd 0d00 | | Execute_Immediate Less,0x0
00fe 4401 |D | Exit_Subprogram With_Result,0x1
00ff 0000 | | .XXX[0x1]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0109 | | .CONST 0x0109 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0002 | | .CONST 0x0002 ; Number of locals
0103 INIT_0100:
0103 4820 |H | Short_Literal 0x20
0104 00db | | Load_Top At_Offset_3
0105 e005 | | Load 0x0,0x5
0106 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0107 e010 | | Load 0x0,0x10
0108 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0109 BODY_0100:
0109 e7fe | | Load 0x3,-0x2
010a 01db | | Execute Vector,Length
010b 7012 |p | Jump_Nonzero 0x11e
010c 00d8 | | Load_Top At_Offset_0
010d 840b | | Call 0x2,0xb
010e 6807 |h | Jump_Zero 0x116
010f 4828 |H( | Short_Literal 0x28
0110 00d9 | | Load_Top At_Offset_1
0111 e010 | | Load 0x0,0x10
0112 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0113 e7ff | | Load 0x3,-0x1
0114 840d | | Call 0x2,0xd
0115 4402 |D | Exit_Subprogram With_Result,0x2
0116 4828 |H( | Short_Literal 0x28
0117 4829 |H) | Short_Literal 0x29
0118 00da | | Load_Top At_Offset_2
0119 e010 | | Load 0x0,0x10
011a 181b | | Execute Package,Field_Execute,Field_Number 0x1b
011b e010 | | Load 0x0,0x10
011c 181a | | Execute Package,Field_Execute,Field_Number 0x1a
011d 4402 |D | Exit_Subprogram With_Result,0x2
011e 00d8 | | Load_Top At_Offset_0
011f 840c | | Call 0x2,0xc
0120 680a |h | Jump_Zero 0x12b
0121 e7fe | | Load 0x3,-0x2
0122 4829 |H) | Short_Literal 0x29
0123 482c |H, | Short_Literal 0x2c
0124 00db | | Load_Top At_Offset_3
0125 e010 | | Load 0x0,0x10
0126 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0127 e010 | | Load 0x0,0x10
0128 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0129 01cc | | Execute Vector,Catenate
012a 4402 |D | Exit_Subprogram With_Result,0x2
012b e7fe | | Load 0x3,-0x2
012c 00d9 | | Load_Top At_Offset_1
012d 01cc | | Execute Vector,Catenate
012e e7ff | | Load 0x3,-0x1
012f 840d | | Call 0x2,0xd
0130 4402 |D | Exit_Subprogram With_Result,0x2
0131 0000 0000 | | .BLANK 0000[0x7]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 0142 | B | .CONST 0x0142 ; Address of begin
0139 0152 | R | .CONST 0x0152 ; Address of exception handler
013a 0003 | | .CONST 0x0003 ; Number of locals
013b INIT_0138:
013b e005 | | Load 0x0,0x5
013c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
013d 02c7 | | Declare_Variable Any
013e 00d8 | | Load_Top At_Offset_0
013f 1c00 | | Execute_Immediate Run_Utility,0x0
0140 029f 021b | | Declare_Subprogram For_Call,INIT_0218
0142 BODY_0138:
0142 00d9 | | Load_Top At_Offset_1
0143 00ea | | Load_Encached Null_String_Cache
0144 e7ff | | Load 0x3,-0x1
0145 4800 |H | Short_Literal 0x0
0146 e005 | | Load 0x0,0x5
0147 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0148 c602 | | Store 0x3,0x2
0149 00cf | | Action Mark_Auxiliary
014a 7802 |x | Jump 0x14d
014b 8603 | | Call 0x3,0x3
014c 00c9 | | Action Pop_Auxiliary_Loop
014d 00da | | Load_Top At_Offset_2
014e e005 | | Load 0x0,0x5
014f 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0150 6ffa |o | Jump_Zero 0x14b
0151 4502 |E | Exit_Subprogram 0x2
0152 TRAP_0138:
0152 00d8 | | Load_Top At_Offset_0
0153 0107 | | Execute Exception,Get_Name
0154 4920 |I | Short_Literal 0x120
0155 492f |I/ | Short_Literal 0x12f
0156 0262 | b | Execute Discrete,In_Range
0157 6801 |h | Jump_Zero 0x159
0158 4502 |E | Exit_Subprogram 0x2
0159 00da | | Load_Top At_Offset_2
015a 8404 | | Call 0x2,0x4
015b c602 | | Store 0x3,0x2
015c 4801 |H | Short_Literal 0x1
015d 4801 |H | Short_Literal 0x1
015e e00f | | Load 0x0,0xf
015f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0160 4802 |H | Short_Literal 0x2
0161 0092 05f6 | | Action Push_String_Extended,0x5f6 ; "Unhandled_Exception"
0163 e00e | | Load 0x0,0xe
0164 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0165 e402 | | Load 0x2,0x2
0166 e00e | | Load 0x0,0xe
0167 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0168 4502 |E | Exit_Subprogram 0x2
0169 0000 0000 | | .BLANK 0000[0x7]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 e602 | | Load 0x3,0x2
0174 4803 |H | Short_Literal 0x3
0175 e403 | | Load 0x2,0x3
0176 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0177 6823 |h# | Jump_Zero 0x19b
0178 e602 | | Load 0x3,0x2
0179 4804 |H | Short_Literal 0x4
017a e403 | | Load 0x2,0x3
017b 1812 | | Execute Package,Field_Execute,Field_Number 0x12
017c 6813 |h | Jump_Zero 0x190
017d 0092 05f7 | | Action Push_String_Extended,0x5f7 ; "(Pdl_Name => \x22"
017f e602 | | Load 0x3,0x2
0180 4803 |H | Short_Literal 0x3
0181 e403 | | Load 0x2,0x3
0182 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0183 01cc | | Execute Vector,Catenate
0184 0092 05f8 | | Action Push_String_Extended,0x5f8 ; "\x22, Pdl_Id => Pdl."
0186 01cc | | Execute Vector,Catenate
0187 e602 | | Load 0x3,0x2
0188 4804 |H | Short_Literal 0x4
0189 e403 | | Load 0x2,0x3
018a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
018b 01cc | | Execute Vector,Catenate
018c 0092 05f9 | | Action Push_String_Extended,0x5f9 ; ")"
018e 01cc | | Execute Vector,Catenate
018f 00ca | | Action Exit_Nullary_Function
0190 0092 05f7 | | Action Push_String_Extended,0x5f7 ; "(Pdl_Name => \x22"
0192 e602 | | Load 0x3,0x2
0193 4803 |H | Short_Literal 0x3
0194 e403 | | Load 0x2,0x3
0195 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0196 01cc | | Execute Vector,Catenate
0197 0092 05fa | | Action Push_String_Extended,0x5fa ; "\x22)"
0199 01cc | | Execute Vector,Catenate
019a 00ca | | Action Exit_Nullary_Function
019b e602 | | Load 0x3,0x2
019c 4804 |H | Short_Literal 0x4
019d e403 | | Load 0x2,0x3
019e 1812 | | Execute Package,Field_Execute,Field_Number 0x12
019f 680b |h | Jump_Zero 0x1ab
01a0 0092 05fb | | Action Push_String_Extended,0x5fb ; "(Pdl_Id => Pdl."
01a2 e602 | | Load 0x3,0x2
01a3 4804 |H | Short_Literal 0x4
01a4 e403 | | Load 0x2,0x3
01a5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01a6 01cc | | Execute Vector,Catenate
01a7 0092 05f9 | | Action Push_String_Extended,0x5f9 ; ")"
01a9 01cc | | Execute Vector,Catenate
01aa 00ca | | Action Exit_Nullary_Function
01ab 00ea | | Load_Encached Null_String_Cache
01ac 00ca | | Action Exit_Nullary_Function
01ad 0000 0000 | | .XXX[0x3]
01af 0000 | |
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3 | | .CONST 0x01b3 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0001 | | .CONST 0x0001 ; Number of locals
01b3 BODY_01b0:
01b3 INIT_01b0:
01b3 e602 | | Load 0x3,0x2
01b4 4801 |H | Short_Literal 0x1
01b5 e403 | | Load 0x2,0x3
01b6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01b7 0092 05fc | | Action Push_String_Extended,0x5fc ; "."
01b9 01cc | | Execute Vector,Catenate
01ba e602 | | Load 0x3,0x2
01bb 4806 |H | Short_Literal 0x6
01bc e403 | | Load 0x2,0x3
01bd 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01be 01cc | | Execute Vector,Catenate
01bf 00ca | | Action Exit_Nullary_Function
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3 | | .CONST 0x01c3 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0001 | | .CONST 0x0001 ; Number of locals
01c3 BODY_01c0:
01c3 INIT_01c0:
01c3 e602 | | Load 0x3,0x2
01c4 4802 |H | Short_Literal 0x2
01c5 e403 | | Load 0x2,0x3
01c6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01c7 8606 | | Call 0x3,0x6
01c8 e602 | | Load 0x3,0x2
01c9 4807 |H | Short_Literal 0x7
01ca e403 | | Load 0x2,0x3
01cb 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01cc 8607 | | Call 0x3,0x7
01cd e00b | | Load 0x0,0xb
01ce 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01cf 00ca | | Action Exit_Nullary_Function
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 4829 |H) | Short_Literal 0x29
01d4 0092 05fd | | Action Push_String_Extended,0x5fd ; "!Machine.Initialization.Rational.Design_Facilities ("
01d6 e602 | | Load 0x3,0x2
01d7 4806 |H | Short_Literal 0x6
01d8 e403 | | Load 0x2,0x3
01d9 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01da 01cc | | Execute Vector,Catenate
01db 01cb | | Execute Vector,Append
01dc 00ca | | Action Exit_Nullary_Function
01dd 0000 0000 | | .XXX[0x3]
01df 0000 | |
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3 | | .CONST 0x01e3 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0001 | | .CONST 0x0001 ; Number of locals
01e3 BODY_01e0:
01e3 INIT_01e0:
01e3 e004 | | Load 0x0,0x4
01e4 180e | | Execute Package,Field_Execute,Field_Number 0xe
01e5 4801 |H | Short_Literal 0x1
01e6 e004 | | Load 0x0,0x4
01e7 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
01e8 681d |h | Jump_Zero 0x206
01e9 0092 05fe | | Action Push_String_Extended,0x5fe ; "S => "
01eb 00db | | Load_Top At_Offset_3
01ec 01cc | | Execute Vector,Catenate
01ed e005 | | Load 0x0,0x5
01ee 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01ef 0092 05ff | | Action Push_String_Extended,0x5ff ; "Context => "
01f1 e9fd | | Load 0x4,-0x3
01f2 01cc | | Execute Vector,Catenate
01f3 e005 | | Load 0x0,0x5
01f4 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01f5 4801 |H | Short_Literal 0x1
01f6 e005 | | Load 0x0,0x5
01f7 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
01f8 e9f8 | | Load 0x4,-0x8
01f9 e00b | | Load 0x0,0xb
01fa 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01fb e9fa | | Load 0x4,-0x6
01fc 00ea | | Load_Encached Null_String_Cache
01fd e9fc | | Load 0x4,-0x4
01fe e9fd | | Load 0x4,-0x3
01ff e9fe | | Load 0x4,-0x2
0200 e9ff | | Load 0x4,-0x1
0201 e00b | | Load 0x0,0xb
0202 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0203 c9f9 | | Store 0x4,-0x7
0204 c9f8 | | Store 0x4,-0x8
0205 4507 |E | Exit_Subprogram 0x7
0206 e9f8 | | Load 0x4,-0x8
0207 e00b | | Load 0x0,0xb
0208 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0209 e9fa | | Load 0x4,-0x6
020a e9fb | | Load 0x4,-0x5
020b e9fc | | Load 0x4,-0x4
020c e9fd | | Load 0x4,-0x3
020d e9fe | | Load 0x4,-0x2
020e e9ff | | Load 0x4,-0x1
020f e00b | | Load 0x0,0xb
0210 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0211 c9f9 | | Store 0x4,-0x7
0212 c9f8 | | Store 0x4,-0x8
0213 4507 |E | Exit_Subprogram 0x7
0214 0000 0000 | | .BLANK 0000[0x4]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021e | | .CONST 0x021e ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0002 | | .CONST 0x0002 ; Number of locals
021b INIT_0218:
021b 00ea | | Load_Encached Null_String_Cache
021c e602 | | Load 0x3,0x2
021d 840d | | Call 0x2,0xd
021e BODY_0218:
021e 00d8 | | Load_Top At_Offset_0
021f 01db | | Execute Vector,Length
0220 0c01 | | Execute_Immediate Greater_Equal,0x1
0221 6803 |h | Jump_Zero 0x225
0222 e7ff | | Load 0x3,-0x1
0223 00d9 | | Load_Top At_Offset_1
0224 8409 | | Call 0x2,0x9
0225 4501 |E | Exit_Subprogram 0x1
0226 0000 0000 | | .XXX[0x2]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 02a1 | | .CONST 0x02a1 ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 001a | | .CONST 0x001a ; Number of locals
022b INIT_0228:
022b 4818 |H | Short_Literal 0x18
022c 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected
022d 4800 |H | Short_Literal 0x0
022e 4807 |H | Short_Literal 0x7
022f 029f 02ab | | Declare_Subprogram For_Call,INIT_02a8
0231 03fe | | Declare_Type Discrete,Defined,Visible
0232 029a 02d3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02d0
0234 029a 030b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0308
0236 029a 0313 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0310
0238 029a 039b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0398
023a 029a 03cb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_03c8
023c 4804 |H | Short_Literal 0x4
023d 032a | * | Declare_Type Record,Incomplete
023e 00d8 | | Load_Top At_Offset_0
023f 02a0 | | Declare_Subprogram Null_Subprogram
0240 e20d | | Load 0x1,0xd
0241 03c7 | | Complete_Type Access,By_Defining
0242 00bf | | Action Accept_Activation
0243 e001 | | Load 0x0,0x1
0244 e002 | | Load 0x0,0x2
0245 4814 |H | Short_Literal 0x14
0246 e003 | | Load 0x0,0x3
0247 0387 | | Declare_Variable Package
0248 00d8 | | Load_Top At_Offset_0
0249 020f | | Execute Module,Activate
024a 0092 0600 | | Action Push_String_Extended,0x600 ; "!Tools.Design.Release."
024c e20e | | Load 0x1,0xe
024d 0266 | f | Execute Discrete,Bounds
024e 00db | | Load_Top At_Offset_3
024f 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0250 02a0 | | Declare_Subprogram Null_Subprogram
0251 4801 |H | Short_Literal 0x1
0252 035d | ] | Declare_Type Array,Defined
0253 00d8 | | Load_Top At_Offset_0
0254 0337 | 7 | Declare_Variable Array
0255 0092 0601 | | Action Push_String_Extended,0x601 ; "Pdl_Definition"
0257 e215 | | Load 0x1,0x15
0258 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0259 4806 |H | Short_Literal 0x6
025a 00da | | Load_Top At_Offset_2
025b 01d6 | | Execute Vector,Field_Write
025c 0092 0602 | | Action Push_String_Extended,0x602 ; "Register_Pdl"
025e e215 | | Load 0x1,0x15
025f 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0260 4807 |H | Short_Literal 0x7
0261 00da | | Load_Top At_Offset_2
0262 01d6 | | Execute Vector,Field_Write
0263 0092 0603 | | Action Push_String_Extended,0x603 ; "!Machine.Release.Current.Activity"
0265 e215 | | Load 0x1,0x15
0266 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0267 4802 |H | Short_Literal 0x2
0268 00da | | Load_Top At_Offset_2
0269 01d6 | | Execute Vector,Field_Write
026a 4801 |H | Short_Literal 0x1
026b 4800 |H | Short_Literal 0x0
026c 00ea | | Load_Encached Null_String_Cache
026d e215 | | Load 0x1,0x15
026e 1817 | | Execute Package,Field_Execute,Field_Number 0x17
026f 00d9 | | Load_Top At_Offset_1
0270 e218 | | Load 0x1,0x18
0271 01d6 | | Execute Vector,Field_Write
0272 3ff9 |? | Loop_Increasing 0x26c
0273 4805 |H | Short_Literal 0x5
0274 4803 |H | Short_Literal 0x3
0275 00ea | | Load_Encached Null_String_Cache
0276 e215 | | Load 0x1,0x15
0277 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0278 00d9 | | Load_Top At_Offset_1
0279 e218 | | Load 0x1,0x18
027a 01d6 | | Execute Vector,Field_Write
027b 3ff9 |? | Loop_Increasing 0x275
027c 00d9 | | Load_Top At_Offset_1
027d 01c3 | | Execute Vector,Check_In_Type
027e 0007 | | Action Break_Optional
027f 4800 |H | Short_Literal 0x0
0280 480c |H | Short_Literal 0xc
0281 029f 0423 | #| Declare_Subprogram For_Call,INIT_0420
0283 03fd | | Declare_Type Discrete,Defined
0284 4800 |H | Short_Literal 0x0
0285 0093 0503 | | PushFullAddress InMicrocode,INIT_0500
0287 02a0 | | Declare_Subprogram Null_Subprogram
0288 038e | | Declare_Type Package,Defined
0289 0387 | | Declare_Variable Package
028a 00d8 | | Load_Top At_Offset_0
028b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
028c 00d9 | | Load_Top At_Offset_1
028d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
028e 00e1 | | Load_Encached Boolean_Cache
028f e215 | | Load 0x1,0x15
0290 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0291 029f 044b | K| Declare_Subprogram For_Call,INIT_0448
0293 e214 | | Load 0x1,0x14
0294 0326 | & | Complete_Type Record,By_Defining
0295 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0296 00c7 | | Action Elaborate_Subprogram
0297 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0298 00c7 | | Action Elaborate_Subprogram
0299 1d11 | | Execute_Immediate Reference_Lex_1,0x11
029a 00c7 | | Action Elaborate_Subprogram
029b 1d12 | | Execute_Immediate Reference_Lex_1,0x12
029c 00c7 | | Action Elaborate_Subprogram
029d 1d13 | | Execute_Immediate Reference_Lex_1,0x13
029e 00c7 | | Action Elaborate_Subprogram
029f 00d8 | | Load_Top At_Offset_0
02a0 020f | | Execute Module,Activate
02a1 BODY_0228:
02a1 00bc | | Action Signal_Activated
02a2 00bb | | Action Signal_Completion
02a3 0000 0000 | | .BLANK 0000[0x5]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02ab | | .CONST 0x02ab ; Address of begin
02a9 0004 | | .CONST 0x0004 ; Address of exception handler
02aa 0001 | | .CONST 0x0001 ; Number of locals
02ab BODY_02a8:
02ab INIT_02a8:
02ab 4607 |F | Jump_Case 0x7
02ac 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
02ad 7806 |x | Jump 0x2b4 ; case 0x1
02ae 7809 |x | Jump 0x2b8 ; case 0x2
02af 780d |x | Jump 0x2bd ; case 0x3
02b0 7810 |x | Jump 0x2c1 ; case 0x4
02b1 7811 |x | Jump 0x2c3 ; case 0x5
02b2 7812 |x | Jump 0x2c5 ; case 0x6
02b3 7815 |x | Jump 0x2c9 ; case 0x7
02b4 00da | | Load_Top At_Offset_2
02b5 0091 05da | | Action Push_String_Extended_Indexed,0x5da ; "NIL"
02b7 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
02b8 00db | | Load_Top At_Offset_3
02b9 00db | | Load_Top At_Offset_3
02ba 00e0 | | Load_Encached Standard_Cache
02bb 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02bc 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
02bd 00da | | Load_Top At_Offset_2
02be 00e0 | | Load_Encached Standard_Cache
02bf 181c | | Execute Package,Field_Execute,Field_Number 0x1c
02c0 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
02c1 00db | | Load_Top At_Offset_3
02c2 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
02c3 00db | | Load_Top At_Offset_3
02c4 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
02c5 e20e | | Load 0x1,0xe
02c6 00dc | | Load_Top At_Offset_4
02c7 0267 | g | Execute Discrete,Predecessor
02c8 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
02c9 e20e | | Load 0x1,0xe
02ca 00dc | | Load_Top At_Offset_4
02cb 0268 | h | Execute Discrete,Successor
02cc 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
02cd 0000 0000 | | .XXX[0x3]
02cf 0000 | |
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d8 | | .CONST 0x02d8 ; Address of begin
02d1 0004 | | .CONST 0x0004 ; Address of exception handler
02d2 0002 | | .CONST 0x0002 ; Number of locals
02d3 INIT_02d0:
02d3 e20d | | Load 0x1,0xd
02d4 03bc | | Declare_Variable Access,By_Allocation
02d5 00d8 | | Load_Top At_Offset_0
02d6 0227 | ' | Execute Access,All_Reference
02d7 1c00 | | Execute_Immediate Run_Utility,0x0
02d8 BODY_02d0:
02d8 00db | | Load_Top At_Offset_3
02d9 e215 | | Load 0x1,0x15
02da 1817 | | Execute Package,Field_Execute,Field_Number 0x17
02db 00d9 | | Load_Top At_Offset_1
02dc 0227 | ' | Execute Access,All_Reference
02dd 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
02de 00db | | Load_Top At_Offset_3
02df e21a | | Load 0x1,0x1a
02e0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02e1 00d9 | | Load_Top At_Offset_1
02e2 0227 | ' | Execute Access,All_Reference
02e3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02e4 00d8 | | Load_Top At_Offset_0
02e5 0227 | ' | Execute Access,All_Reference
02e6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02e7 e21a | | Load 0x1,0x1a
02e8 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02e9 00d9 | | Load_Top At_Offset_1
02ea 0227 | ' | Execute Access,All_Reference
02eb 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02ec 00d8 | | Load_Top At_Offset_0
02ed 0227 | ' | Execute Access,All_Reference
02ee 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02ef 0f01 | | Execute_Immediate Equal,0x1
02f0 00d9 | | Load_Top At_Offset_1
02f1 0227 | ' | Execute Access,All_Reference
02f2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02f3 0f02 | | Execute_Immediate Equal,0x2
02f4 0278 | x | Execute Discrete,Or
02f5 00d9 | | Load_Top At_Offset_1
02f6 0227 | ' | Execute Access,All_Reference
02f7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02f8 0f04 | | Execute_Immediate Equal,0x4
02f9 0278 | x | Execute Discrete,Or
02fa 00d9 | | Load_Top At_Offset_1
02fb 0227 | ' | Execute Access,All_Reference
02fc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02fd 0f05 | | Execute_Immediate Equal,0x5
02fe 0278 | x | Execute Discrete,Or
02ff 00d9 | | Load_Top At_Offset_1
0300 0227 | ' | Execute Access,All_Reference
0301 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0302 00d8 | | Load_Top At_Offset_0
0303 4401 |D | Exit_Subprogram With_Result,0x1
0304 0000 0000 | | .BLANK 0000[0x4]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030b | | .CONST 0x030b ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 0001 | | .CONST 0x0001 ; Number of locals
030b BODY_0308:
030b INIT_0308:
030b 00da | | Load_Top At_Offset_2
030c 0227 | ' | Execute Access,All_Reference
030d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
030e 4401 |D | Exit_Subprogram With_Result,0x1
030f 0000 | | .XXX[0x1]
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0315 | | .CONST 0x0315 ; Address of begin
0311 0004 | | .CONST 0x0004 ; Address of exception handler
0312 0002 | | .CONST 0x0002 ; Number of locals
0313 INIT_0310:
0313 029f 0463 | c| Declare_Subprogram For_Call,INIT_0460
0315 BODY_0310:
0315 00db | | Load_Top At_Offset_3
0316 4607 |F | Jump_Case 0x7
0317 7807 |x | Jump 0x31f ; case 0x0
0318 780c |x | Jump 0x325 ; case 0x1
0319 780d |x | Jump 0x327 ; case 0x2
031a 7823 |x# | Jump 0x33e ; case 0x3
031b 7839 |x9 | Jump 0x355 ; case 0x4
031c 784f |xO | Jump 0x36c ; case 0x5
031d 7801 |x | Jump 0x31f ; case 0x6
031e 7800 |x | Jump 0x31f ; case 0x7
031f 00db | | Load_Top At_Offset_3
0320 e218 | | Load 0x1,0x18
0321 01d7 | | Execute Vector,Field_Read
0322 e215 | | Load 0x1,0x15
0323 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0324 4402 |D | Exit_Subprogram With_Result,0x2
0325 8402 | | Call 0x2,0x2
0326 786b |xk | Jump 0x392
0327 e5fe | | Load 0x2,-0x2
0328 0227 | ' | Execute Access,All_Reference
0329 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
032a 0c02 | | Execute_Immediate Greater_Equal,0x2
032b 680c |h | Jump_Zero 0x338
032c e5fe | | Load 0x2,-0x2
032d 0227 | ' | Execute Access,All_Reference
032e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
032f e5fe | | Load 0x2,-0x2
0330 0227 | ' | Execute Access,All_Reference
0331 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0332 e215 | | Load 0x1,0x15
0333 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0334 4802 |H | Short_Literal 0x2
0335 e21a | | Load 0x1,0x1a
0336 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0337 4402 |D | Exit_Subprogram With_Result,0x2
0338 00db | | Load_Top At_Offset_3
0339 e218 | | Load 0x1,0x18
033a 01d7 | | Execute Vector,Field_Read
033b e215 | | Load 0x1,0x15
033c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
033d 4402 |D | Exit_Subprogram With_Result,0x2
033e e5fe | | Load 0x2,-0x2
033f 0227 | ' | Execute Access,All_Reference
0340 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0341 0c03 | | Execute_Immediate Greater_Equal,0x3
0342 680c |h | Jump_Zero 0x34f
0343 e5fe | | Load 0x2,-0x2
0344 0227 | ' | Execute Access,All_Reference
0345 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0346 e5fe | | Load 0x2,-0x2
0347 0227 | ' | Execute Access,All_Reference
0348 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0349 e215 | | Load 0x1,0x15
034a 1816 | | Execute Package,Field_Execute,Field_Number 0x16
034b 4803 |H | Short_Literal 0x3
034c e21a | | Load 0x1,0x1a
034d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
034e 4402 |D | Exit_Subprogram With_Result,0x2
034f 00db | | Load_Top At_Offset_3
0350 e218 | | Load 0x1,0x18
0351 01d7 | | Execute Vector,Field_Read
0352 e215 | | Load 0x1,0x15
0353 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0354 4402 |D | Exit_Subprogram With_Result,0x2
0355 e5fe | | Load 0x2,-0x2
0356 0227 | ' | Execute Access,All_Reference
0357 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0358 0c04 | | Execute_Immediate Greater_Equal,0x4
0359 680c |h | Jump_Zero 0x366
035a e5fe | | Load 0x2,-0x2
035b 0227 | ' | Execute Access,All_Reference
035c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
035d e5fe | | Load 0x2,-0x2
035e 0227 | ' | Execute Access,All_Reference
035f 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0360 e215 | | Load 0x1,0x15
0361 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0362 4804 |H | Short_Literal 0x4
0363 e21a | | Load 0x1,0x1a
0364 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0365 4402 |D | Exit_Subprogram With_Result,0x2
0366 00db | | Load_Top At_Offset_3
0367 e218 | | Load 0x1,0x18
0368 01d7 | | Execute Vector,Field_Read
0369 e215 | | Load 0x1,0x15
036a 1816 | | Execute Package,Field_Execute,Field_Number 0x16
036b 4402 |D | Exit_Subprogram With_Result,0x2
036c e5fe | | Load 0x2,-0x2
036d 0227 | ' | Execute Access,All_Reference
036e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
036f 0c05 | | Execute_Immediate Greater_Equal,0x5
0370 680c |h | Jump_Zero 0x37d
0371 e5fe | | Load 0x2,-0x2
0372 0227 | ' | Execute Access,All_Reference
0373 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0374 e5fe | | Load 0x2,-0x2
0375 0227 | ' | Execute Access,All_Reference
0376 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0377 e215 | | Load 0x1,0x15
0378 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0379 4805 |H | Short_Literal 0x5
037a e21a | | Load 0x1,0x1a
037b 1812 | | Execute Package,Field_Execute,Field_Number 0x12
037c 4402 |D | Exit_Subprogram With_Result,0x2
037d e5fe | | Load 0x2,-0x2
037e 4801 |H | Short_Literal 0x1
037f 8211 | | Call 0x1,0x11
0380 0092 05fc | | Action Push_String_Extended,0x5fc ; "."
0382 01cc | | Execute Vector,Catenate
0383 e5fe | | Load 0x2,-0x2
0384 4806 |H | Short_Literal 0x6
0385 8211 | | Call 0x1,0x11
0386 01cc | | Execute Vector,Catenate
0387 0092 0604 | | Action Push_String_Extended,0x604 ; "'Spec_View("
0389 01cc | | Execute Vector,Catenate
038a e5fe | | Load 0x2,-0x2
038b 4802 |H | Short_Literal 0x2
038c 8211 | | Call 0x1,0x11
038d 01cc | | Execute Vector,Catenate
038e 0092 0605 | | Action Push_String_Extended,0x605 ; ").Units"
0390 01cc | | Execute Vector,Catenate
0391 4402 |D | Exit_Subprogram With_Result,0x2
0392 0831 | 1 | Execute_Immediate Raise,0x31
0393 0000 0000 | | .BLANK 0000[0x5]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 039b | | .CONST 0x039b ; Address of begin
0399 0004 | | .CONST 0x0004 ; Address of exception handler
039a 0001 | | .CONST 0x0001 ; Number of locals
039b BODY_0398:
039b INIT_0398:
039b 00db | | Load_Top At_Offset_3
039c 8210 | | Call 0x1,0x10
039d 6822 |h" | Jump_Zero 0x3c0
039e 00da | | Load_Top At_Offset_2
039f 4607 |F | Jump_Case 0x7
03a0 7807 |x | Jump 0x3a8 ; case 0x0
03a1 7808 |x | Jump 0x3aa ; case 0x1
03a2 7809 |x | Jump 0x3ac ; case 0x2
03a3 780d |x | Jump 0x3b1 ; case 0x3
03a4 7811 |x | Jump 0x3b6 ; case 0x4
03a5 7815 |x | Jump 0x3bb ; case 0x5
03a6 7801 |x | Jump 0x3a8 ; case 0x6
03a7 7800 |x | Jump 0x3a8 ; case 0x7
03a8 4800 |H | Short_Literal 0x0
03a9 4402 |D | Exit_Subprogram With_Result,0x2
03aa 4801 |H | Short_Literal 0x1
03ab 4402 |D | Exit_Subprogram With_Result,0x2
03ac 00db | | Load_Top At_Offset_3
03ad 0227 | ' | Execute Access,All_Reference
03ae 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03af 0c02 | | Execute_Immediate Greater_Equal,0x2
03b0 4402 |D | Exit_Subprogram With_Result,0x2
03b1 00db | | Load_Top At_Offset_3
03b2 0227 | ' | Execute Access,All_Reference
03b3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03b4 0c03 | | Execute_Immediate Greater_Equal,0x3
03b5 4402 |D | Exit_Subprogram With_Result,0x2
03b6 00db | | Load_Top At_Offset_3
03b7 0227 | ' | Execute Access,All_Reference
03b8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03b9 0c04 | | Execute_Immediate Greater_Equal,0x4
03ba 4402 |D | Exit_Subprogram With_Result,0x2
03bb 00db | | Load_Top At_Offset_3
03bc 0227 | ' | Execute Access,All_Reference
03bd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03be 0c05 | | Execute_Immediate Greater_Equal,0x5
03bf 4402 |D | Exit_Subprogram With_Result,0x2
03c0 4800 |H | Short_Literal 0x0
03c1 4402 |D | Exit_Subprogram With_Result,0x2
03c2 0000 0000 | | .BLANK 0000[0x6]
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03cf | | .CONST 0x03cf ; Address of begin
03c9 0004 | | .CONST 0x0004 ; Address of exception handler
03ca 0003 | | .CONST 0x0003 ; Number of locals
03cb INIT_03c8:
03cb 029f 0483 | | Declare_Subprogram For_Call,INIT_0480
03cd 029f 04c3 | | Declare_Subprogram For_Call,INIT_04c0
03cf BODY_03c8:
03cf e004 | | Load 0x0,0x4
03d0 180e | | Execute Package,Field_Execute,Field_Number 0xe
03d1 4801 |H | Short_Literal 0x1
03d2 e004 | | Load 0x0,0x4
03d3 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
03d4 680d |h | Jump_Zero 0x3e2
03d5 4801 |H | Short_Literal 0x1
03d6 e005 | | Load 0x0,0x5
03d7 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
03d8 0092 0606 | | Action Push_String_Extended,0x606 ; "Input Line => "
03da e5fd | | Load 0x2,-0x3
03db 0227 | ' | Execute Access,All_Reference
03dc 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
03dd e215 | | Load 0x1,0x15
03de 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03df 01cc | | Execute Vector,Catenate
03e0 e005 | | Load 0x0,0x5
03e1 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
03e2 e5fd | | Load 0x2,-0x3
03e3 8210 | | Call 0x1,0x10
03e4 700c |p | Jump_Nonzero 0x3f1
03e5 4822 |H" | Short_Literal 0x22
03e6 0092 0607 | | Action Push_String_Extended,0x607 ; "Errors encountered parsing field:\x22"
03e8 e5fd | | Load 0x2,-0x3
03e9 0227 | ' | Execute Access,All_Reference
03ea 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
03eb e215 | | Load 0x1,0x15
03ec 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03ed 01cc | | Execute Vector,Catenate
03ee 01cb | | Execute Vector,Append
03ef 85fe | | Call 0x2,-0x2
03f0 4504 |E | Exit_Subprogram 0x4
03f1 00cf | | Action Mark_Auxiliary
03f2 4807 |H | Short_Literal 0x7
03f3 4801 |H | Short_Literal 0x1
03f4 0007 | | Action Break_Optional
03f5 e004 | | Load 0x0,0x4
03f6 180e | | Execute Package,Field_Execute,Field_Number 0xe
03f7 4801 |H | Short_Literal 0x1
03f8 e004 | | Load 0x0,0x4
03f9 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
03fa 680d |h | Jump_Zero 0x408
03fb 00d8 | | Load_Top At_Offset_0
03fc e20e | | Load 0x1,0xe
03fd 011c | | Execute Any,Convert_Unchecked
03fe 1c01 | | Execute_Immediate Run_Utility,0x1
03ff 0092 0608 | | Action Push_String_Extended,0x608 ; " => "
0401 01cc | | Execute Vector,Catenate
0402 e5fd | | Load 0x2,-0x3
0403 00da | | Load_Top At_Offset_2
0404 8211 | | Call 0x1,0x11
0405 01cc | | Execute Vector,Catenate
0406 e005 | | Load 0x0,0x5
0407 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0408 00d8 | | Load_Top At_Offset_0
0409 0aff | | Execute_Immediate Plus,-0x1
040a 4606 |F | Jump_Case 0x6
040b 7806 |x | Jump 0x412 ; case 0x0
040c 7805 |x | Jump 0x412 ; case 0x1
040d 7807 |x | Jump 0x415 ; case 0x2
040e 7806 |x | Jump 0x415 ; case 0x3
040f 7802 |x | Jump 0x412 ; case 0x4
0410 7803 |x | Jump 0x414 ; case 0x5
0411 7803 |x | Jump 0x415 ; case 0x6
0412 8402 | | Call 0x2,0x2
0413 7801 |x | Jump 0x415
0414 8403 | | Call 0x2,0x3
0415 00c8 | | Action Pop_Auxiliary_Range
0416 3fde |? | Loop_Increasing 0x3f5
0417 00ce | | Action Pop_Auxiliary
0418 4504 |E | Exit_Subprogram 0x4
0419 0000 0000 | | .BLANK 0000[0x7]
0420 ; --------------------------------------------------------------------------------------
0420 ; SUBPROGRAM
0420 ; --------------------------------------------------------------------------------------
0420 0423 | # | .CONST 0x0423 ; Address of begin
0421 0004 | | .CONST 0x0004 ; Address of exception handler
0422 0001 | | .CONST 0x0001 ; Number of locals
0423 BODY_0420:
0423 INIT_0420:
0423 4607 |F | Jump_Case 0x7
0424 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
0425 7806 |x | Jump 0x42c ; case 0x1
0426 7809 |x | Jump 0x430 ; case 0x2
0427 780d |x | Jump 0x435 ; case 0x3
0428 7810 |x | Jump 0x439 ; case 0x4
0429 7811 |x | Jump 0x43b ; case 0x5
042a 7812 |x | Jump 0x43d ; case 0x6
042b 7815 |x | Jump 0x441 ; case 0x7
042c 00da | | Load_Top At_Offset_2
042d 0091 05e2 | | Action Push_String_Extended_Indexed,0x5e2 ; "NIL"
042f 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0430 00db | | Load_Top At_Offset_3
0431 00db | | Load_Top At_Offset_3
0432 00e0 | | Load_Encached Standard_Cache
0433 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0434 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0435 00da | | Load_Top At_Offset_2
0436 00e0 | | Load_Encached Standard_Cache
0437 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0438 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0439 00db | | Load_Top At_Offset_3
043a 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
043b 00db | | Load_Top At_Offset_3
043c 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
043d e219 | | Load 0x1,0x19
043e 00dc | | Load_Top At_Offset_4
043f 0267 | g | Execute Discrete,Predecessor
0440 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0441 e219 | | Load 0x1,0x19
0442 00dc | | Load_Top At_Offset_4
0443 0268 | h | Execute Discrete,Successor
0444 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0445 0000 0000 | | .XXX[0x3]
0447 0000 | |
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 044b | K | .CONST 0x044b ; Address of begin
0449 0004 | | .CONST 0x0004 ; Address of exception handler
044a 0001 | | .CONST 0x0001 ; Number of locals
044b BODY_0448:
044b INIT_0448:
044b 4608 |F | Jump_Case 0x8
044c 7808 |x | Jump 0x455 ; case 0x0
044d 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x1
044e 780a |x | Jump 0x459 ; case 0x2
044f 7809 |x | Jump 0x459 ; case 0x3
0450 7808 |x | Jump 0x459 ; case 0x4
0451 7807 |x | Jump 0x459 ; case 0x5
0452 7806 |x | Jump 0x459 ; case 0x6
0453 7805 |x | Jump 0x459 ; case 0x7
0454 7804 |x | Jump 0x459 ; case 0x8
0455 00da | | Load_Top At_Offset_2
0456 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0457 1c00 | | Execute_Immediate Run_Utility,0x0
0458 4302 |C | Exit_Subprogram From_Utility,0x2
0459 0869 | i | Execute_Immediate Raise,0x69
045a 0000 0000 | | .BLANK 0000[0x6]
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 046e | n | .CONST 0x046e ; Address of begin
0461 0004 | | .CONST 0x0004 ; Address of exception handler
0462 0002 | | .CONST 0x0002 ; Number of locals
0463 INIT_0460:
0463 e5fe | | Load 0x2,-0x2
0464 0227 | ' | Execute Access,All_Reference
0465 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0466 e5fe | | Load 0x2,-0x2
0467 0227 | ' | Execute Access,All_Reference
0468 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0469 e215 | | Load 0x1,0x15
046a 1816 | | Execute Package,Field_Execute,Field_Number 0x16
046b 4801 |H | Short_Literal 0x1
046c e21a | | Load 0x1,0x1a
046d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
046e BODY_0460:
046e 00d8 | | Load_Top At_Offset_0
046f 01dd | | Execute Vector,First
0470 00d9 | | Load_Top At_Offset_1
0471 01d7 | | Execute Vector,Field_Read
0472 0f21 | ! | Execute_Immediate Equal,0x21
0473 6803 |h | Jump_Zero 0x477
0474 00d8 | | Load_Top At_Offset_0
0475 00cb | | Action Pop_Block_With_Result
0476 4402 |D | Exit_Subprogram With_Result,0x2
0477 e216 | | Load 0x1,0x16
0478 00d9 | | Load_Top At_Offset_1
0479 01cc | | Execute Vector,Catenate
047a 00cb | | Action Pop_Block_With_Result
047b 4402 |D | Exit_Subprogram With_Result,0x2
047c 0000 0000 | | .BLANK 0000[0x4]
0480 ; --------------------------------------------------------------------------------------
0480 ; SUBPROGRAM
0480 ; --------------------------------------------------------------------------------------
0480 048b | | .CONST 0x048b ; Address of begin
0481 0004 | | .CONST 0x0004 ; Address of exception handler
0482 0003 | | .CONST 0x0003 ; Number of locals
0483 INIT_0480:
0483 e006 | | Load 0x0,0x6
0484 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0485 02c7 | | Declare_Variable Any
0486 00d8 | | Load_Top At_Offset_0
0487 1c00 | | Execute_Immediate Run_Utility,0x0
0488 e006 | | Load 0x0,0x6
0489 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
048a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
048b BODY_0480:
048b e006 | | Load 0x0,0x6
048c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
048d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
048e 00da | | Load_Top At_Offset_2
048f 0120 | | Execute Any,Is_Value
0490 6803 |h | Jump_Zero 0x494
0491 e006 | | Load 0x0,0x6
0492 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0493 7801 |x | Jump 0x495
0494 00da | | Load_Top At_Offset_2
0495 6022 |`" | Indirect_Literal Discrete,0x4b8,{0x00000000, 0x00004000}
0496 e007 | | Load 0x0,0x7
0497 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0498 e008 | | Load 0x0,0x8
0499 1811 | | Execute Package,Field_Execute,Field_Number 0x11
049a e006 | | Load 0x0,0x6
049b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
049c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
049d e5fd | | Load 0x2,-0x3
049e e406 | | Load 0x2,0x6
049f 8211 | | Call 0x1,0x11
04a0 e006 | | Load 0x0,0x6
04a1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04a2 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
04a3 c602 | | Store 0x3,0x2
04a4 0059 | Y | Store_Top Discrete,At_Offset_1
04a5 00d8 | | Load_Top At_Offset_0
04a6 680f |h | Jump_Zero 0x4b6
04a7 e406 | | Load 0x2,0x6
04a8 e20e | | Load 0x1,0xe
04a9 011c | | Execute Any,Convert_Unchecked
04aa 1c01 | | Execute_Immediate Run_Utility,0x1
04ab 0092 0609 | | Action Push_String_Extended,0x609 ; " object "
04ad 01cc | | Execute Vector,Catenate
04ae e5fd | | Load 0x2,-0x3
04af e406 | | Load 0x2,0x6
04b0 8211 | | Call 0x1,0x11
04b1 01cc | | Execute Vector,Catenate
04b2 0092 060a | | Action Push_String_Extended,0x60a ; " does not exist"
04b4 01cc | | Execute Vector,Catenate
04b5 85fe | | Call 0x2,-0x2
04b6 4501 |E | Exit_Subprogram 0x1
04b7 0000 | | .XXX[0x1]
04b8 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
04bc 0000 0000 | | .BLANK 0000[0x4]
04c0 ; --------------------------------------------------------------------------------------
04c0 ; SUBPROGRAM
04c0 ; --------------------------------------------------------------------------------------
04c0 04cb | | .CONST 0x04cb ; Address of begin
04c1 0004 | | .CONST 0x0004 ; Address of exception handler
04c2 0003 | | .CONST 0x0003 ; Number of locals
04c3 INIT_04c0:
04c3 e006 | | Load 0x0,0x6
04c4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04c5 02c7 | | Declare_Variable Any
04c6 00d8 | | Load_Top At_Offset_0
04c7 1c00 | | Execute_Immediate Run_Utility,0x0
04c8 e006 | | Load 0x0,0x6
04c9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04ca 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04cb BODY_04c0:
04cb e006 | | Load 0x0,0x6
04cc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04cd 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04ce 00da | | Load_Top At_Offset_2
04cf 0120 | | Execute Any,Is_Value
04d0 6803 |h | Jump_Zero 0x4d4
04d1 e006 | | Load 0x0,0x6
04d2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04d3 7801 |x | Jump 0x4d5
04d4 00da | | Load_Top At_Offset_2
04d5 67e2 |g | Indirect_Literal Discrete,0x4b8,{0x00000000, 0x00004000}
04d6 e007 | | Load 0x0,0x7
04d7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04d8 e008 | | Load 0x0,0x8
04d9 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04da e006 | | Load 0x0,0x6
04db 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04dc 1816 | | Execute Package,Field_Execute,Field_Number 0x16
04dd e5fd | | Load 0x2,-0x3
04de 4801 |H | Short_Literal 0x1
04df 8211 | | Call 0x1,0x11
04e0 0092 05fc | | Action Push_String_Extended,0x5fc ; "."
04e2 01cc | | Execute Vector,Catenate
04e3 e5fd | | Load 0x2,-0x3
04e4 e406 | | Load 0x2,0x6
04e5 8211 | | Call 0x1,0x11
04e6 01cc | | Execute Vector,Catenate
04e7 e006 | | Load 0x0,0x6
04e8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04e9 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
04ea c602 | | Store 0x3,0x2
04eb 0059 | Y | Store_Top Discrete,At_Offset_1
04ec 00d8 | | Load_Top At_Offset_0
04ed 680f |h | Jump_Zero 0x4fd
04ee e406 | | Load 0x2,0x6
04ef e20e | | Load 0x1,0xe
04f0 011c | | Execute Any,Convert_Unchecked
04f1 1c01 | | Execute_Immediate Run_Utility,0x1
04f2 0092 0609 | | Action Push_String_Extended,0x609 ; " object "
04f4 01cc | | Execute Vector,Catenate
04f5 e5fd | | Load 0x2,-0x3
04f6 e406 | | Load 0x2,0x6
04f7 8211 | | Call 0x1,0x11
04f8 01cc | | Execute Vector,Catenate
04f9 0092 060a | | Action Push_String_Extended,0x60a ; " does not exist"
04fb 01cc | | Execute Vector,Catenate
04fc 85fe | | Call 0x2,-0x2
04fd 4501 |E | Exit_Subprogram 0x1
04fe 0000 0000 | | .XXX[0x2]
0500 ; --------------------------------------------------------------------------------------
0500 ; SUBPROGRAM
0500 ; --------------------------------------------------------------------------------------
0500 052b | + | .CONST 0x052b ; Address of begin
0501 0004 | | .CONST 0x0004 ; Address of exception handler
0502 0014 | | .CONST 0x0014 ; Number of locals
0503 INIT_0500:
0503 4800 |H | Short_Literal 0x0
0504 4805 |H | Short_Literal 0x5
0505 00e3 | | Load_Encached Natural_Cache
0506 03f9 | | Declare_Type Discrete,Constrained,Visible
0507 4801 |H | Short_Literal 0x1
0508 4805 |H | Short_Literal 0x5
0509 00da | | Load_Top At_Offset_2
050a 03f9 | | Declare_Type Discrete,Constrained,Visible
050b 4802 |H | Short_Literal 0x2
050c 032b | + | Declare_Type Record,Incomplete,Visible
050d 029a 0533 | 3| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0530
050f 029a 0553 | S| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0550
0511 029a 055b | [| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0558
0513 00e4 | | Load_Encached Positive_Cache
0514 00e4 | | Load_Encached Positive_Cache
0515 02a0 | | Declare_Subprogram Null_Subprogram
0516 4802 |H | Short_Literal 0x2
0517 032d | - | Declare_Type Record,Defined
0518 4801 |H | Short_Literal 0x1
0519 4805 |H | Short_Literal 0x5
051a 00da | | Load_Top At_Offset_2
051b 02a0 | | Declare_Subprogram Null_Subprogram
051c 4801 |H | Short_Literal 0x1
051d 035d | ] | Declare_Type Array,Defined
051e e20d | | Load 0x1,0xd
051f 00d9 | | Load_Top At_Offset_1
0520 029f 05cb | | Declare_Subprogram For_Call,INIT_05c8
0522 e20f | | Load 0x1,0xf
0523 0326 | & | Complete_Type Record,By_Defining
0524 00bf | | Action Accept_Activation
0525 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0526 00c7 | | Action Elaborate_Subprogram
0527 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0528 00c7 | | Action Elaborate_Subprogram
0529 1d11 | | Execute_Immediate Reference_Lex_1,0x11
052a 00c7 | | Action Elaborate_Subprogram
052b BODY_0500:
052b 00bc | | Action Signal_Activated
052c 00bb | | Action Signal_Completion
052d 0000 0000 | | .XXX[0x3]
052f 0000 | |
0530 ; --------------------------------------------------------------------------------------
0530 ; SUBPROGRAM
0530 ; --------------------------------------------------------------------------------------
0530 053b | ; | .CONST 0x053b ; Address of begin
0531 0004 | | .CONST 0x0004 ; Address of exception handler
0532 0004 | | .CONST 0x0004 ; Number of locals
0533 INIT_0530:
0533 e20f | | Load 0x1,0xf
0534 0322 | " | Declare_Variable Record
0535 00d8 | | Load_Top At_Offset_0
0536 1c00 | | Execute_Immediate Run_Utility,0x0
0537 e20d | | Load 0x1,0xd
0538 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0539 029f 058b | | Declare_Subprogram For_Call,INIT_0588
053b BODY_0530:
053b 00cf | | Action Mark_Auxiliary
053c e5ff | | Load 0x2,-0x1
053d 01d9 | | Execute Vector,Reverse_Bounds
053e 0263 | c | Execute Discrete,Above_Bound
053f 7003 |p | Jump_Nonzero 0x543
0540 8404 | | Call 0x2,0x4
0541 00c8 | | Action Pop_Auxiliary_Range
0542 3ffd |? | Loop_Increasing 0x540
0543 00ce | | Action Pop_Auxiliary
0544 00d9 | | Load_Top At_Offset_1
0545 00db | | Load_Top At_Offset_3
0546 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0547 00da | | Load_Top At_Offset_2
0548 4401 |D | Exit_Subprogram With_Result,0x1
0549 0000 0000 | | .BLANK 0000[0x7]
0550 ; --------------------------------------------------------------------------------------
0550 ; SUBPROGRAM
0550 ; --------------------------------------------------------------------------------------
0550 0553 | S | .CONST 0x0553 ; Address of begin
0551 0004 | | .CONST 0x0004 ; Address of exception handler
0552 0001 | | .CONST 0x0001 ; Number of locals
0553 BODY_0550:
0553 INIT_0550:
0553 00da | | Load_Top At_Offset_2
0554 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0555 4401 |D | Exit_Subprogram With_Result,0x1
0556 0000 0000 | | .XXX[0x2]
0558 ; --------------------------------------------------------------------------------------
0558 ; SUBPROGRAM
0558 ; --------------------------------------------------------------------------------------
0558 055b | [ | .CONST 0x055b ; Address of begin
0559 0004 | | .CONST 0x0004 ; Address of exception handler
055a 0001 | | .CONST 0x0001 ; Number of locals
055b BODY_0558:
055b INIT_0558:
055b 00da | | Load_Top At_Offset_2
055c e5fd | | Load 0x2,-0x3
055d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
055e 027d | } | Execute Discrete,Greater
055f 6802 |h | Jump_Zero 0x562
0560 00ea | | Load_Encached Null_String_Cache
0561 4403 |D | Exit_Subprogram With_Result,0x3
0562 00da | | Load_Top At_Offset_2
0563 e5fd | | Load 0x2,-0x3
0564 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0565 01d5 | | Execute Vector,Field_Reference
0566 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0567 e5fe | | Load 0x2,-0x2
0568 01dd | | Execute Vector,First
0569 0273 | s | Execute Discrete,Plus
056a 0aff | | Execute_Immediate Plus,-0x1
056b 00d8 | | Load_Top At_Offset_0
056c 00e2 | | Load_Encached Integer_Cache
056d 0260 | ` | Execute Discrete,In_Type
056e 7001 |p | Jump_Nonzero 0x570
056f 0801 | | Execute_Immediate Raise,0x1
0570 00db | | Load_Top At_Offset_3
0571 e5fd | | Load 0x2,-0x3
0572 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0573 01d5 | | Execute Vector,Field_Reference
0574 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0575 e5fe | | Load 0x2,-0x2
0576 01dd | | Execute Vector,First
0577 0273 | s | Execute Discrete,Plus
0578 0aff | | Execute_Immediate Plus,-0x1
0579 00d8 | | Load_Top At_Offset_0
057a 00e2 | | Load_Encached Integer_Cache
057b 0260 | ` | Execute Discrete,In_Type
057c 7001 |p | Jump_Nonzero 0x57e
057d 0801 | | Execute_Immediate Raise,0x1
057e e5fe | | Load 0x2,-0x2
057f 01cf | | Execute Vector,Slice_Read
0580 0335 | 5 | Declare_Variable Array,Duplicate
0581 00cd | | Action Spare6_Action
0582 4403 |D | Exit_Subprogram With_Result,0x3
0583 0000 0000 | | .BLANK 0000[0x5]
0588 ; --------------------------------------------------------------------------------------
0588 ; SUBPROGRAM
0588 ; --------------------------------------------------------------------------------------
0588 0591 | | .CONST 0x0591 ; Address of begin
0589 0004 | | .CONST 0x0004 ; Address of exception handler
058a 0002 | | .CONST 0x0002 ; Number of locals
058b INIT_0588:
058b e407 | | Load 0x2,0x7
058c e5ff | | Load 0x2,-0x1
058d 01d7 | | Execute Vector,Field_Read
058e 0f20 | | Execute_Immediate Equal,0x20
058f 00e1 | | Load_Encached Boolean_Cache
0590 03f1 | | Declare_Variable Discrete,With_Value
0591 BODY_0588:
0591 00d8 | | Load_Top At_Offset_0
0592 702e |p. | Jump_Nonzero 0x5c1
0593 e407 | | Load 0x2,0x7
0594 e5ff | | Load 0x2,-0x1
0595 01dd | | Execute Vector,First
0596 027f | | Execute Discrete,Equal
0597 7006 |p | Jump_Nonzero 0x59e
0598 e407 | | Load 0x2,0x7
0599 0aff | | Execute_Immediate Plus,-0x1
059a e5ff | | Load 0x2,-0x1
059b 01d7 | | Execute Vector,Field_Read
059c 0f20 | | Execute_Immediate Equal,0x20
059d 680e |h | Jump_Zero 0x5ac
059e 00e2 | | Load_Encached Integer_Cache
059f e403 | | Load 0x2,0x3
05a0 0268 | h | Execute Discrete,Successor
05a1 c403 | | Store 0x2,0x3
05a2 e407 | | Load 0x2,0x7
05a3 e5ff | | Load 0x2,-0x1
05a4 01dd | | Execute Vector,First
05a5 0272 | r | Execute Discrete,Minus
05a6 0a01 | | Execute_Immediate Plus,0x1
05a7 e403 | | Load 0x2,0x3
05a8 e402 | | Load 0x2,0x2
05a9 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
05aa 01d5 | | Execute Vector,Field_Reference
05ab 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
05ac e407 | | Load 0x2,0x7
05ad e5ff | | Load 0x2,-0x1
05ae 01dc | | Execute Vector,Last
05af 027f | | Execute Discrete,Equal
05b0 7006 |p | Jump_Nonzero 0x5b7
05b1 e407 | | Load 0x2,0x7
05b2 0a01 | | Execute_Immediate Plus,0x1
05b3 e5ff | | Load 0x2,-0x1
05b4 01d7 | | Execute Vector,Field_Read
05b5 0f20 | | Execute_Immediate Equal,0x20
05b6 680a |h | Jump_Zero 0x5c1
05b7 e407 | | Load 0x2,0x7
05b8 e5ff | | Load 0x2,-0x1
05b9 01dd | | Execute Vector,First
05ba 0272 | r | Execute Discrete,Minus
05bb 0a01 | | Execute_Immediate Plus,0x1
05bc e403 | | Load 0x2,0x3
05bd e402 | | Load 0x2,0x2
05be 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
05bf 01d5 | | Execute Vector,Field_Reference
05c0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
05c1 4501 |E | Exit_Subprogram 0x1
05c2 0000 0000 | | .BLANK 0000[0x6]
05c8 ; --------------------------------------------------------------------------------------
05c8 ; SUBPROGRAM
05c8 ; --------------------------------------------------------------------------------------
05c8 05cb | | .CONST 0x05cb ; Address of begin
05c9 0004 | | .CONST 0x0004 ; Address of exception handler
05ca 0001 | | .CONST 0x0001 ; Number of locals
05cb BODY_05c8:
05cb INIT_05c8:
05cb 4608 |F | Jump_Case 0x8
05cc 7808 |x | Jump 0x5d5 ; case 0x0
05cd 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x1
05ce 780a |x | Jump 0x5d9 ; case 0x2
05cf 7809 |x | Jump 0x5d9 ; case 0x3
05d0 7808 |x | Jump 0x5d9 ; case 0x4
05d1 7807 |x | Jump 0x5d9 ; case 0x5
05d2 7806 |x | Jump 0x5d9 ; case 0x6
05d3 7805 |x | Jump 0x5d9 ; case 0x7
05d4 7804 |x | Jump 0x5d9 ; case 0x8
05d5 4800 |H | Short_Literal 0x0
05d6 00db | | Load_Top At_Offset_3
05d7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
05d8 4302 |C | Exit_Subprogram From_Utility,0x2
05d9 0869 | i | Execute_Immediate Raise,0x69
05da ; --------------------------------------------------------------------------------------
05da ; STRING TABLE
05da ; --------------------------------------------------------------------------------------
05da 0064 | d | .STRTAB 0x0064->0x060c ; "NIL"
05db 0065 | e | .STRTAB 0x0065->0x060d ; "RDF_CONTEXT"
05dc 006e | n | .STRTAB 0x006e->0x0613 ; "ACTIVITY"
05dd 0074 | t | .STRTAB 0x0074->0x0617 ; "PDL_NAME"
05de 007a | z | .STRTAB 0x007a->0x061b ; "PDL_ID"
05df 007e | ~ | .STRTAB 0x007e->0x061e ; "DESCRIPTION_FILE_CONTEXT"
05e0 0094 | | .STRTAB 0x0094->0x062a ; "SUBSYSTEM_NAME"
05e1 00a0 | | .STRTAB 0x00a0->0x0631 ; "PROGRAM_NAME"
05e2 00aa | | .STRTAB 0x00aa->0x0637 ; "NIL"
05e3 00ab | | .STRTAB 0x00ab->0x0638 ; "PDL_01"
05e4 00af | | .STRTAB 0x00af->0x063b ; "PDL_02"
05e5 00b3 | | .STRTAB 0x00b3->0x063e ; "PDL_03"
05e6 00b7 | | .STRTAB 0x00b7->0x0641 ; "PDL_04"
05e7 00bb | | .STRTAB 0x00bb->0x0644 ; "PDL_05"
05e8 00bf | | .STRTAB 0x00bf->0x0647 ; "PDL_06"
05e9 00c3 | | .STRTAB 0x00c3->0x064a ; "PDL_07"
05ea 00c7 | | .STRTAB 0x00c7->0x064d ; "PDL_08"
05eb 00cb | | .STRTAB 0x00cb->0x0650 ; "PDL_09"
05ec 00cf | | .STRTAB 0x00cf->0x0653 ; "PDL_10"
05ed 00d3 | | .STRTAB 0x00d3->0x0656 ; "PDL_11"
05ee 00d7 | | .STRTAB 0x00d7->0x0659 ; "PDL_12"
05ef 00db | | .STRTAB 0x00db->0x065c ; "!Machine.Initialization.Rational.Design_Facilities"
05f0 010b | | .STRTAB 0x010b->0x0675 ; "Input | Output | Error => !MACHINE.DEVICES.NIL"
05f1 0137 | 7 | .STRTAB 0x0137->0x068c ; "<PROFILE>"
; "<PROFILE>"
05f2 013e | > | .STRTAB 0x013e->0x0691 ; "Unable_To_Register_Standard_Pdl "
05f3 015c | \ | .STRTAB 0x015c->0x06a1 ; " cannot be found."
05f4 016b | k | .STRTAB 0x016b->0x06a9 ; "Invalid_Pdl_Name"
05f5 0179 | y | .STRTAB 0x0179->0x06b1 ; "!Machine.Initialization.Rational.Design_Facilities.Start_Pdl"
05f6 01b3 | | .STRTAB 0x01b3->0x06cf ; "Unhandled_Exception"
; "Unhandled_Exception"
05f7 01c4 | | .STRTAB 0x01c4->0x06d9 ; "(Pdl_Name => \x22"
; "(Pdl_Name => \x22"
05f8 01d0 | | .STRTAB 0x01d0->0x06e0 ; "\x22, Pdl_Id => Pdl."
05f9 01df | | .STRTAB 0x01df->0x06e8 ; ")"
; ")"
05fa 01de | | .STRTAB 0x01de->0x06e9 ; "\x22)"
05fb 01de | | .STRTAB 0x01de->0x06ea ; "(Pdl_Id => Pdl."
05fc 01eb | | .STRTAB 0x01eb->0x06f1 ; "."
; "."
; "."
05fd 01ea | | .STRTAB 0x01ea->0x06f2 ; "!Machine.Initialization.Rational.Design_Facilities ("
05fe 021c | | .STRTAB 0x021c->0x070c ; "S => "
05ff 021f | | .STRTAB 0x021f->0x070e ; "Context => "
0600 0228 | ( | .STRTAB 0x0228->0x0714 ; "!Tools.Design.Release."
0601 023c | < | .STRTAB 0x023c->0x071f ; "Pdl_Definition"
0602 0248 | H | .STRTAB 0x0248->0x0726 ; "Register_Pdl"
0603 0252 | R | .STRTAB 0x0252->0x072c ; "!Machine.Release.Current.Activity"
0604 0271 | q | .STRTAB 0x0271->0x073c ; "'Spec_View("
0605 027a | z | .STRTAB 0x027a->0x0742 ; ").Units"
0606 027f | | .STRTAB 0x027f->0x0745 ; "Input Line => "
0607 028b | | .STRTAB 0x028b->0x074c ; "Errors encountered parsing field:\x22"
0608 02ab | | .STRTAB 0x02ab->0x075d ; " => "
0609 02ad | | .STRTAB 0x02ad->0x075f ; " object "
; " object "
060a 02b3 | | .STRTAB 0x02b3->0x0763 ; " does not exist"
; " does not exist"
060b 02c0 | | .STREND 0x02c0->0x076b
060c 4e49 4c52 |NILR| .STRTAB_STRINGS
076b 0000 0000 | | .BLANK 0000[0x5]
0770 ; --------------------------------------------------------------------------------------
0770 ; Debug Table
0770 ; --------------------------------------------------------------------------------------
0770 0004 0000 | | .DEBUG4 0x0004,0x0000,0x76ae,0x0000,0x0001,0x0000
0776 dc0e 9802 | | .XXX[0x8a]
0778 e00e ac02 | |
077a e40e c002 | |
077c e80e d402 | |
077e ec0e e802 | |
0780 f00e fc02 | |
0782 f40f 1002 | |
0784 f80f 2402 | $ |
0786 fc0f 3803 | 8 |
0788 000f 4c03 | L |
078a 040f 6003 | ` |
078c 080f 7403 | t |
078e 0c0f 8803 | |
0790 100f 9c03 | |
0792 140f b003 | |
0794 180f c403 | |
0796 1c0f d803 | |
0798 200f ec03 | |
079a 2410 0003 |$ |
079c 2810 1403 |( |
079e 2c10 2803 |, ( |
07a0 3010 3c03 |0 < |
07a2 3410 5003 |4 P |
07a4 3810 6403 |8 d |
07a6 3c10 7803 |< x |
07a8 4010 8c03 |@ |
07aa 4410 a003 |D |
07ac 4810 b403 |H |
07ae 4c10 c803 |L |
07b0 5010 d803 |P |
07b2 5410 ec03 |T |
07b4 5811 0003 |X |
07b6 5c11 1403 |\ |
07b8 6011 2803 |` ( |
07ba 6411 3803 |d 8 |
07bc 6811 4c03 |h L |
07be 6c11 6003 |l ` |
07c0 7011 7403 |p t |
07c2 7411 8803 |t |
07c4 7811 9c03 |x |
07c6 7c11 ac03 || |
07c8 8011 c003 | |
07ca 8411 d403 | |
07cc 8811 e803 | |
07ce 8c11 fc03 | |
07d0 9012 1003 | |
07d2 9412 2403 | $ |
07d4 9812 3803 | 8 |
07d6 9c12 4c03 | L |
07d8 a012 6003 | ` |
07da a412 7403 | t |
07dc a812 8803 | |
07de ac12 9c03 | |
07e0 b012 b003 | |
07e2 b412 c403 | |
07e4 b812 d803 | |
07e6 bc12 ec03 | |
07e8 c013 0003 | |
07ea c413 1403 | |
07ec c813 2803 | ( |
07ee cc13 3c03 | < |
07f0 d013 5003 | P |
07f2 d413 6403 | d |
07f4 d813 7803 | x |
07f6 dc13 8c03 | |
07f8 e013 a003 | |
07fa e413 b403 | |
07fc e813 c803 | |
07fe ec13 dc03 | |