|
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_0ea8df
└─⟦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 0768 | h | .CONST 0x0768 ; 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 004d | M | .CONST 0x004d ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 000d | | .CONST 0x000d ; Number of locals
001b INIT_0018:
001b 0092 05e7 | | Action Push_String_Extended,0x5e7 ; "!Machine.Initialization.Rational.Design_Facilities"
001d 4800 |H | Short_Literal 0x0
001e 0093 0233 | 3| PushFullAddress InMicrocode,INIT_0230
0020 02a0 | | Declare_Subprogram Null_Subprogram
0021 038e | | Declare_Type Package,Defined
0022 0387 | | Declare_Variable Package
0023 e002 | | Load 0x0,0x2
0024 e003 | | Load 0x0,0x3
0025 e004 | | Load 0x0,0x4
0026 e005 | | Load 0x0,0x5
0027 e006 | | Load 0x0,0x6
0028 e007 | | Load 0x0,0x7
0029 e008 | | Load 0x0,0x8
002a e009 | | Load 0x0,0x9
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 005b | [| Declare_Subprogram For_Call,INIT_0058
0032 00d9 | | Load_Top At_Offset_1
0033 1912 | | Execute Package,Field_Reference,Field_Number 0x12
0034 00c6 | | Action Check_Subprogram_Elaborated
0035 e006 | | Load 0x0,0x6
0036 1964 | d | Execute Package,Field_Reference,Field_Number 0x64
0037 0093 0000 | | PushFullAddress InMicrocode
0039 601a |` | Indirect_Literal Discrete,0x54,{0x80000000, 0x00010000}
003a 0273 | s | Execute Discrete,Plus
003b e00a | | Load 0x0,0xa
003c 0273 | s | Execute Discrete,Plus
003d e00b | | Load 0x0,0xb
003e 0273 | s | Execute Discrete,Plus
003f 4807 |H | Short_Literal 0x7
0040 0007 | | Action Break_Optional
0041 029f 006b | k| Declare_Subprogram For_Call,INIT_0068
0043 029f 00db | | Declare_Subprogram For_Call,INIT_00d8
0045 029f 00fb | | Declare_Subprogram For_Call,INIT_00f8
0047 029f 0103 | | Declare_Subprogram For_Call,INIT_0100
0049 029f 010b | | Declare_Subprogram For_Call,INIT_0108
004b 029f 0143 | C| Declare_Subprogram For_Call,INIT_0140
004d BODY_0018:
004d e5fd | | Load 0x2,-0x3
004e 840d | | Call 0x2,0xd
004f e5fe | | Load 0x2,-0x2
0050 840d | | Call 0x2,0xd
0051 4504 |E | Exit_Subprogram 0x4
0052 0000 0000 | | .XXX[0x2]
0054 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b | [ | .CONST 0x005b ; Address of begin
0059 0060 | ` | .CONST 0x0060 ; Address of exception handler
005a 0001 | | .CONST 0x0001 ; Number of locals
005b BODY_0058:
005b INIT_0058:
005b 00da | | Load_Top At_Offset_2
005c e006 | | Load 0x0,0x6
005d 181b | | Execute Package,Field_Execute,Field_Number 0x1b
005e c7ff | | Store 0x3,-0x1
005f 4501 |E | Exit_Subprogram 0x1
0060 TRAP_0058:
0060 0007 | | Action Break_Optional
0061 4501 |E | Exit_Subprogram 0x1
0062 0000 0000 | | .BLANK 0000[0x6]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 0081 | | .CONST 0x0081 ; Address of begin
0069 00b4 | | .CONST 0x00b4 ; Address of exception handler
006a 000a | | .CONST 0x000a ; Number of locals
006b INIT_0068:
006b 00da | | Load_Top At_Offset_2
006c e403 | | Load 0x2,0x3
006d 180e | | Execute Package,Field_Execute,Field_Number 0xe
006e 0092 05e8 | | Action Push_String_Extended,0x5e8 ; "Input | Output | Error => !MACHINE.DEVICES.NIL"
0070 e00c | | Load 0x0,0xc
0071 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0072 e00c | | Load 0x0,0xc
0073 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0074 02c7 | | Declare_Variable Any
0075 00d8 | | Load_Top At_Offset_0
0076 1c00 | | Execute_Immediate Run_Utility,0x0
0077 029f 017b | {| Declare_Subprogram For_Call,INIT_0178
0079 029f 01bb | | Declare_Subprogram For_Call,INIT_01b8
007b 029f 01cb | | Declare_Subprogram For_Call,INIT_01c8
007d 029f 01db | | Declare_Subprogram For_Call,INIT_01d8
007f 029f 01eb | | Declare_Subprogram For_Call,INIT_01e8
0081 BODY_0068:
0081 e602 | | Load 0x3,0x2
0082 4805 |H | Short_Literal 0x5
0083 4802 |H | Short_Literal 0x2
0084 0099 | | Action Reference_Dynamic
0085 4806 |H | Short_Literal 0x6
0086 4802 |H | Short_Literal 0x2
0087 0099 | | Action Reference_Dynamic
0088 e403 | | Load 0x2,0x3
0089 1812 | | Execute Package,Field_Execute,Field_Number 0x12
008a 0092 05e9 | | Action Push_String_Extended,0x5e9 ; "<PROFILE>"
008c e602 | | Load 0x3,0x2
008d 4802 |H | Short_Literal 0x2
008e e403 | | Load 0x2,0x3
008f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0090 e00d | | Load 0x0,0xd
0091 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0092 e605 | | Load 0x3,0x5
0093 e00c | | Load 0x0,0xc
0094 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0095 0092 05e9 | | Action Push_String_Extended,0x5e9 ; "<PROFILE>"
0097 e603 | | Load 0x3,0x3
0098 4800 |H | Short_Literal 0x0
0099 e602 | | Load 0x3,0x2
009a 4805 |H | Short_Literal 0x5
009b e403 | | Load 0x2,0x3
009c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
009d 4800 |H | Short_Literal 0x0
009e 8608 | | Call 0x3,0x8
009f 860a | | Call 0x3,0xa
00a0 c604 | | Store 0x3,0x4
00a1 c605 | | Store 0x3,0x5
00a2 e605 | | Load 0x3,0x5
00a3 e00c | | Load 0x0,0xc
00a4 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00a5 700d |p | Jump_Nonzero 0xb3
00a6 e605 | | Load 0x3,0x5
00a7 e00e | | Load 0x0,0xe
00a8 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00a9 4802 |H | Short_Literal 0x2
00aa 0092 05ea | | Action Push_String_Extended,0x5ea ; "Unable_To_Register_Standard_Pdl "
00ac 8607 | | Call 0x3,0x7
00ad 01cc | | Execute Vector,Catenate
00ae e00f | | Load 0x0,0xf
00af 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00b0 8609 | | Call 0x3,0x9
00b1 e00f | | Load 0x0,0xf
00b2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00b3 4503 |E | Exit_Subprogram 0x3
00b4 TRAP_0068:
00b4 00d8 | | Load_Top At_Offset_0
00b5 0107 | | Execute Exception,Get_Name
00b6 4920 |I | Short_Literal 0x120
00b7 492f |I/ | Short_Literal 0x12f
00b8 0262 | b | Execute Discrete,In_Range
00b9 680e |h | Jump_Zero 0xc8
00ba 8607 | | Call 0x3,0x7
00bb 0092 05eb | | Action Push_String_Extended,0x5eb ; " cannot be found."
00bd 01cc | | Execute Vector,Catenate
00be 4802 |H | Short_Literal 0x2
00bf 0092 05ec | | Action Push_String_Extended,0x5ec ; "Invalid_Pdl_Name"
00c1 e00f | | Load 0x0,0xf
00c2 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00c3 0092 05ed | | Action Push_String_Extended,0x5ed ; "!Machine.Initialization.Rational.Design_Facilities.Start_Pdl"
00c5 e00f | | Load 0x0,0xf
00c6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00c7 4503 |E | Exit_Subprogram 0x3
00c8 4801 |H | Short_Literal 0x1
00c9 4801 |H | Short_Literal 0x1
00ca e010 | | Load 0x0,0x10
00cb 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00cc 4802 |H | Short_Literal 0x2
00cd 0092 05ee | | Action Push_String_Extended,0x5ee ; "Unhandled_Exception"
00cf e00f | | Load 0x0,0xf
00d0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00d1 8609 | | Call 0x3,0x9
00d2 e00f | | Load 0x0,0xf
00d3 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00d4 4503 |E | Exit_Subprogram 0x3
00d5 0000 0000 | | .XXX[0x3]
00d7 0000 | |
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00dd | | .CONST 0x00dd ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0002 | | .CONST 0x0002 ; Number of locals
00db INIT_00d8:
00db 00e2 | | Load_Encached Integer_Cache
00dc 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00dd BODY_00d8:
00dd 00cf | | Action Mark_Auxiliary
00de e7ff | | Load 0x3,-0x1
00df 01d9 | | Execute Vector,Reverse_Bounds
00e0 0263 | c | Execute Discrete,Above_Bound
00e1 7013 |p | Jump_Nonzero 0xf5
00e2 00d8 | | Load_Top At_Offset_0
00e3 e7ff | | Load 0x3,-0x1
00e4 01d7 | | Execute Vector,Field_Read
00e5 0f28 | ( | Execute_Immediate Equal,0x28
00e6 6804 |h | Jump_Zero 0xeb
00e7 00db | | Load_Top At_Offset_3
00e8 0a01 | | Execute_Immediate Plus,0x1
00e9 c602 | | Store 0x3,0x2
00ea 7808 |x | Jump 0xf3
00eb 00d8 | | Load_Top At_Offset_0
00ec e7ff | | Load 0x3,-0x1
00ed 01d7 | | Execute Vector,Field_Read
00ee 0f29 | ) | Execute_Immediate Equal,0x29
00ef 6803 |h | Jump_Zero 0xf3
00f0 00db | | Load_Top At_Offset_3
00f1 0aff | | Execute_Immediate Plus,-0x1
00f2 c602 | | Store 0x3,0x2
00f3 00c8 | | Action Pop_Auxiliary_Range
00f4 3fed |? | Loop_Increasing 0xe2
00f5 00ce | | Action Pop_Auxiliary
00f6 00d8 | | Load_Top At_Offset_0
00f7 4401 |D | Exit_Subprogram With_Result,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 8409 | | Call 0x2,0x9
00fd 0c01 | | Execute_Immediate Greater_Equal,0x1
00fe 4401 |D | Exit_Subprogram With_Result,0x1
00ff 0000 | | .XXX[0x1]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 00da | | Load_Top At_Offset_2
0104 8409 | | Call 0x2,0x9
0105 0d00 | | Execute_Immediate Less,0x0
0106 4401 |D | Exit_Subprogram With_Result,0x1
0107 0000 | | .XXX[0x1]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 0111 | | .CONST 0x0111 ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0002 | | .CONST 0x0002 ; Number of locals
010b INIT_0108:
010b 4820 |H | Short_Literal 0x20
010c 00db | | Load_Top At_Offset_3
010d e006 | | Load 0x0,0x6
010e 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
010f e011 | | Load 0x0,0x11
0110 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0111 BODY_0108:
0111 e7fe | | Load 0x3,-0x2
0112 01db | | Execute Vector,Length
0113 7012 |p | Jump_Nonzero 0x126
0114 00d8 | | Load_Top At_Offset_0
0115 840a | | Call 0x2,0xa
0116 6807 |h | Jump_Zero 0x11e
0117 4828 |H( | Short_Literal 0x28
0118 00d9 | | Load_Top At_Offset_1
0119 e011 | | Load 0x0,0x11
011a 181a | | Execute Package,Field_Execute,Field_Number 0x1a
011b e7ff | | Load 0x3,-0x1
011c 840c | | Call 0x2,0xc
011d 4402 |D | Exit_Subprogram With_Result,0x2
011e 4828 |H( | Short_Literal 0x28
011f 4829 |H) | Short_Literal 0x29
0120 00da | | Load_Top At_Offset_2
0121 e011 | | Load 0x0,0x11
0122 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0123 e011 | | Load 0x0,0x11
0124 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0125 4402 |D | Exit_Subprogram With_Result,0x2
0126 00d8 | | Load_Top At_Offset_0
0127 840b | | Call 0x2,0xb
0128 680a |h | Jump_Zero 0x133
0129 e7fe | | Load 0x3,-0x2
012a 4829 |H) | Short_Literal 0x29
012b 482c |H, | Short_Literal 0x2c
012c 00db | | Load_Top At_Offset_3
012d e011 | | Load 0x0,0x11
012e 181b | | Execute Package,Field_Execute,Field_Number 0x1b
012f e011 | | Load 0x0,0x11
0130 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0131 01cc | | Execute Vector,Catenate
0132 4402 |D | Exit_Subprogram With_Result,0x2
0133 e7fe | | Load 0x3,-0x2
0134 00d9 | | Load_Top At_Offset_1
0135 01cc | | Execute Vector,Catenate
0136 e7ff | | Load 0x3,-0x1
0137 840c | | Call 0x2,0xc
0138 4402 |D | Exit_Subprogram With_Result,0x2
0139 0000 0000 | | .BLANK 0000[0x7]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 014a | J | .CONST 0x014a ; Address of begin
0141 015a | Z | .CONST 0x015a ; Address of exception handler
0142 0003 | | .CONST 0x0003 ; Number of locals
0143 INIT_0140:
0143 e006 | | Load 0x0,0x6
0144 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0145 02c7 | | Declare_Variable Any
0146 00d8 | | Load_Top At_Offset_0
0147 1c00 | | Execute_Immediate Run_Utility,0x0
0148 029f 0223 | #| Declare_Subprogram For_Call,INIT_0220
014a BODY_0140:
014a 00d9 | | Load_Top At_Offset_1
014b 00ea | | Load_Encached Null_String_Cache
014c e7ff | | Load 0x3,-0x1
014d 4800 |H | Short_Literal 0x0
014e e006 | | Load 0x0,0x6
014f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0150 c602 | | Store 0x3,0x2
0151 00cf | | Action Mark_Auxiliary
0152 7802 |x | Jump 0x155
0153 8603 | | Call 0x3,0x3
0154 00c9 | | Action Pop_Auxiliary_Loop
0155 00da | | Load_Top At_Offset_2
0156 e006 | | Load 0x0,0x6
0157 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0158 6ffa |o | Jump_Zero 0x153
0159 4502 |E | Exit_Subprogram 0x2
015a TRAP_0140:
015a 00d8 | | Load_Top At_Offset_0
015b 0107 | | Execute Exception,Get_Name
015c 4920 |I | Short_Literal 0x120
015d 492f |I/ | Short_Literal 0x12f
015e 0262 | b | Execute Discrete,In_Range
015f 6801 |h | Jump_Zero 0x161
0160 4502 |E | Exit_Subprogram 0x2
0161 00da | | Load_Top At_Offset_2
0162 8404 | | Call 0x2,0x4
0163 c602 | | Store 0x3,0x2
0164 4801 |H | Short_Literal 0x1
0165 4801 |H | Short_Literal 0x1
0166 e010 | | Load 0x0,0x10
0167 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0168 4802 |H | Short_Literal 0x2
0169 0092 05ee | | Action Push_String_Extended,0x5ee ; "Unhandled_Exception"
016b e00f | | Load 0x0,0xf
016c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
016d e402 | | Load 0x2,0x2
016e e00f | | Load 0x0,0xf
016f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0170 4502 |E | Exit_Subprogram 0x2
0171 0000 0000 | | .BLANK 0000[0x7]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b | { | .CONST 0x017b ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0001 | | .CONST 0x0001 ; Number of locals
017b BODY_0178:
017b INIT_0178:
017b e602 | | Load 0x3,0x2
017c 4803 |H | Short_Literal 0x3
017d e403 | | Load 0x2,0x3
017e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
017f 6823 |h# | Jump_Zero 0x1a3
0180 e602 | | Load 0x3,0x2
0181 4804 |H | Short_Literal 0x4
0182 e403 | | Load 0x2,0x3
0183 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0184 6813 |h | Jump_Zero 0x198
0185 0092 05ef | | Action Push_String_Extended,0x5ef ; "(Pdl_Name => \x22"
0187 e602 | | Load 0x3,0x2
0188 4803 |H | Short_Literal 0x3
0189 e403 | | Load 0x2,0x3
018a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
018b 01cc | | Execute Vector,Catenate
018c 0092 05f0 | | Action Push_String_Extended,0x5f0 ; "\x22, Pdl_Id => Pdl."
018e 01cc | | Execute Vector,Catenate
018f e602 | | Load 0x3,0x2
0190 4804 |H | Short_Literal 0x4
0191 e403 | | Load 0x2,0x3
0192 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0193 01cc | | Execute Vector,Catenate
0194 0092 05f1 | | Action Push_String_Extended,0x5f1 ; ")"
0196 01cc | | Execute Vector,Catenate
0197 00ca | | Action Exit_Nullary_Function
0198 0092 05ef | | Action Push_String_Extended,0x5ef ; "(Pdl_Name => \x22"
019a e602 | | Load 0x3,0x2
019b 4803 |H | Short_Literal 0x3
019c e403 | | Load 0x2,0x3
019d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
019e 01cc | | Execute Vector,Catenate
019f 0092 05f2 | | Action Push_String_Extended,0x5f2 ; "\x22)"
01a1 01cc | | Execute Vector,Catenate
01a2 00ca | | Action Exit_Nullary_Function
01a3 e602 | | Load 0x3,0x2
01a4 4804 |H | Short_Literal 0x4
01a5 e403 | | Load 0x2,0x3
01a6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01a7 680b |h | Jump_Zero 0x1b3
01a8 0092 05f3 | | Action Push_String_Extended,0x5f3 ; "(Pdl_Id => Pdl."
01aa e602 | | Load 0x3,0x2
01ab 4804 |H | Short_Literal 0x4
01ac e403 | | Load 0x2,0x3
01ad 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01ae 01cc | | Execute Vector,Catenate
01af 0092 05f1 | | Action Push_String_Extended,0x5f1 ; ")"
01b1 01cc | | Execute Vector,Catenate
01b2 00ca | | Action Exit_Nullary_Function
01b3 00ea | | Load_Encached Null_String_Cache
01b4 00ca | | Action Exit_Nullary_Function
01b5 0000 0000 | | .XXX[0x3]
01b7 0000 | |
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb e602 | | Load 0x3,0x2
01bc 4801 |H | Short_Literal 0x1
01bd e403 | | Load 0x2,0x3
01be 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01bf 0092 05f4 | | Action Push_String_Extended,0x5f4 ; "."
01c1 01cc | | Execute Vector,Catenate
01c2 e602 | | Load 0x3,0x2
01c3 4806 |H | Short_Literal 0x6
01c4 e403 | | Load 0x2,0x3
01c5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01c6 01cc | | Execute Vector,Catenate
01c7 00ca | | Action Exit_Nullary_Function
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb | | .CONST 0x01cb ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0001 | | .CONST 0x0001 ; Number of locals
01cb BODY_01c8:
01cb INIT_01c8:
01cb e602 | | Load 0x3,0x2
01cc 4802 |H | Short_Literal 0x2
01cd e403 | | Load 0x2,0x3
01ce 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01cf 8606 | | Call 0x3,0x6
01d0 e602 | | Load 0x3,0x2
01d1 4807 |H | Short_Literal 0x7
01d2 e403 | | Load 0x2,0x3
01d3 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01d4 8607 | | Call 0x3,0x7
01d5 e00c | | Load 0x0,0xc
01d6 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01d7 00ca | | Action Exit_Nullary_Function
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db | | .CONST 0x01db ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0001 | | .CONST 0x0001 ; Number of locals
01db BODY_01d8:
01db INIT_01d8:
01db 4829 |H) | Short_Literal 0x29
01dc 0092 05f5 | | Action Push_String_Extended,0x5f5 ; "!Machine.Initialization.Rational.Design_Facilities ("
01de e602 | | Load 0x3,0x2
01df 4806 |H | Short_Literal 0x6
01e0 e403 | | Load 0x2,0x3
01e1 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01e2 01cc | | Execute Vector,Catenate
01e3 01cb | | Execute Vector,Append
01e4 00ca | | Action Exit_Nullary_Function
01e5 0000 0000 | | .XXX[0x3]
01e7 0000 | |
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb | | .CONST 0x01eb ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0001 | | .CONST 0x0001 ; Number of locals
01eb BODY_01e8:
01eb INIT_01e8:
01eb e005 | | Load 0x0,0x5
01ec 180e | | Execute Package,Field_Execute,Field_Number 0xe
01ed 4801 |H | Short_Literal 0x1
01ee e005 | | Load 0x0,0x5
01ef 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
01f0 681d |h | Jump_Zero 0x20e
01f1 0092 05f6 | | Action Push_String_Extended,0x5f6 ; "S => "
01f3 00db | | Load_Top At_Offset_3
01f4 01cc | | Execute Vector,Catenate
01f5 e006 | | Load 0x0,0x6
01f6 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01f7 0092 05f7 | | Action Push_String_Extended,0x5f7 ; "Context => "
01f9 e9fd | | Load 0x4,-0x3
01fa 01cc | | Execute Vector,Catenate
01fb e006 | | Load 0x0,0x6
01fc 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01fd 4801 |H | Short_Literal 0x1
01fe e006 | | Load 0x0,0x6
01ff 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0200 e9f8 | | Load 0x4,-0x8
0201 e00c | | Load 0x0,0xc
0202 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0203 e9fa | | Load 0x4,-0x6
0204 00ea | | Load_Encached Null_String_Cache
0205 e9fc | | Load 0x4,-0x4
0206 e9fd | | Load 0x4,-0x3
0207 e9fe | | Load 0x4,-0x2
0208 e9ff | | Load 0x4,-0x1
0209 e00c | | Load 0x0,0xc
020a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
020b c9f9 | | Store 0x4,-0x7
020c c9f8 | | Store 0x4,-0x8
020d 4507 |E | Exit_Subprogram 0x7
020e e9f8 | | Load 0x4,-0x8
020f e00c | | Load 0x0,0xc
0210 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0211 e9fa | | Load 0x4,-0x6
0212 e9fb | | Load 0x4,-0x5
0213 e9fc | | Load 0x4,-0x4
0214 e9fd | | Load 0x4,-0x3
0215 e9fe | | Load 0x4,-0x2
0216 e9ff | | Load 0x4,-0x1
0217 e00c | | Load 0x0,0xc
0218 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0219 c9f9 | | Store 0x4,-0x7
021a c9f8 | | Store 0x4,-0x8
021b 4507 |E | Exit_Subprogram 0x7
021c 0000 0000 | | .BLANK 0000[0x4]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0226 | & | .CONST 0x0226 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0002 | | .CONST 0x0002 ; Number of locals
0223 INIT_0220:
0223 00ea | | Load_Encached Null_String_Cache
0224 e602 | | Load 0x3,0x2
0225 840c | | Call 0x2,0xc
0226 BODY_0220:
0226 00d8 | | Load_Top At_Offset_0
0227 01db | | Execute Vector,Length
0228 0c01 | | Execute_Immediate Greater_Equal,0x1
0229 6803 |h | Jump_Zero 0x22d
022a e7ff | | Load 0x3,-0x1
022b 00d9 | | Load_Top At_Offset_1
022c 8408 | | Call 0x2,0x8
022d 4501 |E | Exit_Subprogram 0x1
022e 0000 0000 | | .XXX[0x2]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 02a7 | | .CONST 0x02a7 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 001a | | .CONST 0x001a ; Number of locals
0233 INIT_0230:
0233 4800 |H | Short_Literal 0x0
0234 4807 |H | Short_Literal 0x7
0235 029f 02b3 | | Declare_Subprogram For_Call,INIT_02b0
0237 03fe | | Declare_Type Discrete,Defined,Visible
0238 029a 02db | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02d8
023a 029a 0313 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0310
023c 029a 031b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0318
023e 029a 03a3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_03a0
0240 029a 03d3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_03d0
0242 4818 |H | Short_Literal 0x18
0243 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected
0244 00bf | | Action Accept_Activation
0245 e001 | | Load 0x0,0x1
0246 e002 | | Load 0x0,0x2
0247 4814 |H | Short_Literal 0x14
0248 e003 | | Load 0x0,0x3
0249 0387 | | Declare_Variable Package
024a 00d8 | | Load_Top At_Offset_0
024b 020f | | Execute Module,Activate
024c 0092 05f8 | | Action Push_String_Extended,0x5f8 ; "!Tools.Design.Release."
024e e20d | | Load 0x1,0xd
024f 0266 | f | Execute Discrete,Bounds
0250 00db | | Load_Top At_Offset_3
0251 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0252 02a0 | | Declare_Subprogram Null_Subprogram
0253 4801 |H | Short_Literal 0x1
0254 035d | ] | Declare_Type Array,Defined
0255 00d8 | | Load_Top At_Offset_0
0256 0337 | 7 | Declare_Variable Array
0257 0092 05f9 | | Action Push_String_Extended,0x5f9 ; "Pdl_Definition"
0259 e214 | | Load 0x1,0x14
025a 1817 | | Execute Package,Field_Execute,Field_Number 0x17
025b 4806 |H | Short_Literal 0x6
025c 00da | | Load_Top At_Offset_2
025d 01d6 | | Execute Vector,Field_Write
025e 0092 05fa | | Action Push_String_Extended,0x5fa ; "Register_Pdl"
0260 e214 | | Load 0x1,0x14
0261 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0262 4807 |H | Short_Literal 0x7
0263 00da | | Load_Top At_Offset_2
0264 01d6 | | Execute Vector,Field_Write
0265 0092 05fb | | Action Push_String_Extended,0x5fb ; "!Machine.Release.Current.Activity"
0267 e214 | | Load 0x1,0x14
0268 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0269 4802 |H | Short_Literal 0x2
026a 00da | | Load_Top At_Offset_2
026b 01d6 | | Execute Vector,Field_Write
026c 4801 |H | Short_Literal 0x1
026d 4800 |H | Short_Literal 0x0
026e 00ea | | Load_Encached Null_String_Cache
026f e214 | | Load 0x1,0x14
0270 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0271 00d9 | | Load_Top At_Offset_1
0272 e217 | | Load 0x1,0x17
0273 01d6 | | Execute Vector,Field_Write
0274 3ff9 |? | Loop_Increasing 0x26e
0275 4805 |H | Short_Literal 0x5
0276 4803 |H | Short_Literal 0x3
0277 00ea | | Load_Encached Null_String_Cache
0278 e214 | | Load 0x1,0x14
0279 1817 | | Execute Package,Field_Execute,Field_Number 0x17
027a 00d9 | | Load_Top At_Offset_1
027b e217 | | Load 0x1,0x17
027c 01d6 | | Execute Vector,Field_Write
027d 3ff9 |? | Loop_Increasing 0x277
027e 00d9 | | Load_Top At_Offset_1
027f 01c3 | | Execute Vector,Check_In_Type
0280 0007 | | Action Break_Optional
0281 4800 |H | Short_Literal 0x0
0282 480c |H | Short_Literal 0xc
0283 029f 042b | +| Declare_Subprogram For_Call,INIT_0428
0285 03fd | | Declare_Type Discrete,Defined
0286 4800 |H | Short_Literal 0x0
0287 0093 0503 | | PushFullAddress InMicrocode,INIT_0500
0289 02a0 | | Declare_Subprogram Null_Subprogram
028a 038e | | Declare_Type Package,Defined
028b 0387 | | Declare_Variable Package
028c 00d8 | | Load_Top At_Offset_0
028d 1b14 | | Execute Package,Field_Read,Field_Number 0x14
028e 00d9 | | Load_Top At_Offset_1
028f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0290 00e1 | | Load_Encached Boolean_Cache
0291 e214 | | Load 0x1,0x14
0292 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0293 029f 0453 | S| Declare_Subprogram For_Call,INIT_0450
0295 4804 |H | Short_Literal 0x4
0296 032d | - | Declare_Type Record,Defined
0297 00d8 | | Load_Top At_Offset_0
0298 02a0 | | Declare_Subprogram Null_Subprogram
0299 e213 | | Load 0x1,0x13
029a 03c7 | | Complete_Type Access,By_Defining
029b 1d0e | | Execute_Immediate Reference_Lex_1,0xe
029c 00c7 | | Action Elaborate_Subprogram
029d 1d0f | | Execute_Immediate Reference_Lex_1,0xf
029e 00c7 | | Action Elaborate_Subprogram
029f 1d10 | | Execute_Immediate Reference_Lex_1,0x10
02a0 00c7 | | Action Elaborate_Subprogram
02a1 1d11 | | Execute_Immediate Reference_Lex_1,0x11
02a2 00c7 | | Action Elaborate_Subprogram
02a3 1d12 | | Execute_Immediate Reference_Lex_1,0x12
02a4 00c7 | | Action Elaborate_Subprogram
02a5 00d9 | | Load_Top At_Offset_1
02a6 020f | | Execute Module,Activate
02a7 BODY_0230:
02a7 00bc | | Action Signal_Activated
02a8 00bb | | Action Signal_Completion
02a9 0000 0000 | | .BLANK 0000[0x7]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3 | | .CONST 0x02b3 ; Address of begin
02b1 0004 | | .CONST 0x0004 ; Address of exception handler
02b2 0001 | | .CONST 0x0001 ; Number of locals
02b3 BODY_02b0:
02b3 INIT_02b0:
02b3 4607 |F | Jump_Case 0x7
02b4 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
02b5 7807 |x | Jump 0x2bd ; case 0x1
02b6 780a |x | Jump 0x2c1 ; case 0x2
02b7 780e |x | Jump 0x2c6 ; case 0x3
02b8 7811 |x | Jump 0x2ca ; case 0x4
02b9 7812 |x | Jump 0x2cc ; case 0x5
02ba 7813 |x | Jump 0x2ce ; case 0x6
02bb 7816 |x | Jump 0x2d2 ; case 0x7
02bc 4302 |C | .XXX[0x1]
02bd 00da | | Load_Top At_Offset_2
02be 0091 05d2 | | Action Push_String_Extended_Indexed,0x5d2 ; "NIL"
02c0 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
02c1 00db | | Load_Top At_Offset_3
02c2 00db | | Load_Top At_Offset_3
02c3 00e0 | | Load_Encached Standard_Cache
02c4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02c5 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
02c6 00da | | Load_Top At_Offset_2
02c7 00e0 | | Load_Encached Standard_Cache
02c8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
02c9 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
02ca 00db | | Load_Top At_Offset_3
02cb 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
02cc 00db | | Load_Top At_Offset_3
02cd 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
02ce e20d | | Load 0x1,0xd
02cf 00dc | | Load_Top At_Offset_4
02d0 0267 | g | Execute Discrete,Predecessor
02d1 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
02d2 e20d | | Load 0x1,0xd
02d3 00dc | | Load_Top At_Offset_4
02d4 0268 | h | Execute Discrete,Successor
02d5 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
02d6 0000 0000 | | .XXX[0x2]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02e0 | | .CONST 0x02e0 ; Address of begin
02d9 0004 | | .CONST 0x0004 ; Address of exception handler
02da 0002 | | .CONST 0x0002 ; Number of locals
02db INIT_02d8:
02db e213 | | Load 0x1,0x13
02dc 03bc | | Declare_Variable Access,By_Allocation
02dd 00d8 | | Load_Top At_Offset_0
02de 0227 | ' | Execute Access,All_Reference
02df 1c00 | | Execute_Immediate Run_Utility,0x0
02e0 BODY_02d8:
02e0 00db | | Load_Top At_Offset_3
02e1 e214 | | Load 0x1,0x14
02e2 1817 | | Execute Package,Field_Execute,Field_Number 0x17
02e3 00d9 | | Load_Top At_Offset_1
02e4 0227 | ' | Execute Access,All_Reference
02e5 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
02e6 00db | | Load_Top At_Offset_3
02e7 e219 | | Load 0x1,0x19
02e8 180f | | Execute Package,Field_Execute,Field_Number 0xf
02e9 00d9 | | Load_Top At_Offset_1
02ea 0227 | ' | Execute Access,All_Reference
02eb 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02ec 00d8 | | Load_Top At_Offset_0
02ed 0227 | ' | Execute Access,All_Reference
02ee 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02ef e219 | | Load 0x1,0x19
02f0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02f1 00d9 | | Load_Top At_Offset_1
02f2 0227 | ' | Execute Access,All_Reference
02f3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02f4 00d8 | | Load_Top At_Offset_0
02f5 0227 | ' | Execute Access,All_Reference
02f6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02f7 0f01 | | Execute_Immediate Equal,0x1
02f8 00d9 | | Load_Top At_Offset_1
02f9 0227 | ' | Execute Access,All_Reference
02fa 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02fb 0f02 | | Execute_Immediate Equal,0x2
02fc 0278 | x | Execute Discrete,Or
02fd 00d9 | | Load_Top At_Offset_1
02fe 0227 | ' | Execute Access,All_Reference
02ff 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0300 0f04 | | Execute_Immediate Equal,0x4
0301 0278 | x | Execute Discrete,Or
0302 00d9 | | Load_Top At_Offset_1
0303 0227 | ' | Execute Access,All_Reference
0304 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0305 0f05 | | Execute_Immediate Equal,0x5
0306 0278 | x | Execute Discrete,Or
0307 00d9 | | Load_Top At_Offset_1
0308 0227 | ' | Execute Access,All_Reference
0309 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
030a 00d8 | | Load_Top At_Offset_0
030b 4401 |D | Exit_Subprogram With_Result,0x1
030c 0000 0000 | | .BLANK 0000[0x4]
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0313 | | .CONST 0x0313 ; Address of begin
0311 0004 | | .CONST 0x0004 ; Address of exception handler
0312 0001 | | .CONST 0x0001 ; Number of locals
0313 BODY_0310:
0313 INIT_0310:
0313 00da | | Load_Top At_Offset_2
0314 0227 | ' | Execute Access,All_Reference
0315 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0316 4401 |D | Exit_Subprogram With_Result,0x1
0317 0000 | | .XXX[0x1]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031d | | .CONST 0x031d ; Address of begin
0319 0004 | | .CONST 0x0004 ; Address of exception handler
031a 0002 | | .CONST 0x0002 ; Number of locals
031b INIT_0318:
031b 029f 0463 | c| Declare_Subprogram For_Call,INIT_0460
031d BODY_0318:
031d 00db | | Load_Top At_Offset_3
031e 4607 |F | Jump_Case 0x7
031f 7807 |x | Jump 0x327 ; case 0x0
0320 780c |x | Jump 0x32d ; case 0x1
0321 780d |x | Jump 0x32f ; case 0x2
0322 7823 |x# | Jump 0x346 ; case 0x3
0323 7839 |x9 | Jump 0x35d ; case 0x4
0324 784f |xO | Jump 0x374 ; case 0x5
0325 7801 |x | Jump 0x327 ; case 0x6
0326 7800 |x | Jump 0x327 ; case 0x7
0327 00db | | Load_Top At_Offset_3
0328 e217 | | Load 0x1,0x17
0329 01d7 | | Execute Vector,Field_Read
032a e214 | | Load 0x1,0x14
032b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
032c 4402 |D | Exit_Subprogram With_Result,0x2
032d 8402 | | Call 0x2,0x2
032e 786b |xk | Jump 0x39a
032f e5fe | | Load 0x2,-0x2
0330 0227 | ' | Execute Access,All_Reference
0331 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0332 0c02 | | Execute_Immediate Greater_Equal,0x2
0333 680c |h | Jump_Zero 0x340
0334 e5fe | | Load 0x2,-0x2
0335 0227 | ' | Execute Access,All_Reference
0336 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0337 e5fe | | Load 0x2,-0x2
0338 0227 | ' | Execute Access,All_Reference
0339 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
033a e214 | | Load 0x1,0x14
033b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
033c 4802 |H | Short_Literal 0x2
033d e219 | | Load 0x1,0x19
033e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
033f 4402 |D | Exit_Subprogram With_Result,0x2
0340 00db | | Load_Top At_Offset_3
0341 e217 | | Load 0x1,0x17
0342 01d7 | | Execute Vector,Field_Read
0343 e214 | | Load 0x1,0x14
0344 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0345 4402 |D | Exit_Subprogram With_Result,0x2
0346 e5fe | | Load 0x2,-0x2
0347 0227 | ' | Execute Access,All_Reference
0348 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0349 0c03 | | Execute_Immediate Greater_Equal,0x3
034a 680c |h | Jump_Zero 0x357
034b e5fe | | Load 0x2,-0x2
034c 0227 | ' | Execute Access,All_Reference
034d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
034e e5fe | | Load 0x2,-0x2
034f 0227 | ' | Execute Access,All_Reference
0350 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0351 e214 | | Load 0x1,0x14
0352 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0353 4803 |H | Short_Literal 0x3
0354 e219 | | Load 0x1,0x19
0355 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0356 4402 |D | Exit_Subprogram With_Result,0x2
0357 00db | | Load_Top At_Offset_3
0358 e217 | | Load 0x1,0x17
0359 01d7 | | Execute Vector,Field_Read
035a e214 | | Load 0x1,0x14
035b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
035c 4402 |D | Exit_Subprogram With_Result,0x2
035d e5fe | | Load 0x2,-0x2
035e 0227 | ' | Execute Access,All_Reference
035f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0360 0c04 | | Execute_Immediate Greater_Equal,0x4
0361 680c |h | Jump_Zero 0x36e
0362 e5fe | | Load 0x2,-0x2
0363 0227 | ' | Execute Access,All_Reference
0364 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0365 e5fe | | Load 0x2,-0x2
0366 0227 | ' | Execute Access,All_Reference
0367 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0368 e214 | | Load 0x1,0x14
0369 1816 | | Execute Package,Field_Execute,Field_Number 0x16
036a 4804 |H | Short_Literal 0x4
036b e219 | | Load 0x1,0x19
036c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
036d 4402 |D | Exit_Subprogram With_Result,0x2
036e 00db | | Load_Top At_Offset_3
036f e217 | | Load 0x1,0x17
0370 01d7 | | Execute Vector,Field_Read
0371 e214 | | Load 0x1,0x14
0372 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0373 4402 |D | Exit_Subprogram With_Result,0x2
0374 e5fe | | Load 0x2,-0x2
0375 0227 | ' | Execute Access,All_Reference
0376 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0377 0c05 | | Execute_Immediate Greater_Equal,0x5
0378 680c |h | Jump_Zero 0x385
0379 e5fe | | Load 0x2,-0x2
037a 0227 | ' | Execute Access,All_Reference
037b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
037c e5fe | | Load 0x2,-0x2
037d 0227 | ' | Execute Access,All_Reference
037e 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
037f e214 | | Load 0x1,0x14
0380 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0381 4805 |H | Short_Literal 0x5
0382 e219 | | Load 0x1,0x19
0383 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0384 4402 |D | Exit_Subprogram With_Result,0x2
0385 e5fe | | Load 0x2,-0x2
0386 4801 |H | Short_Literal 0x1
0387 8210 | | Call 0x1,0x10
0388 0092 05f4 | | Action Push_String_Extended,0x5f4 ; "."
038a 01cc | | Execute Vector,Catenate
038b e5fe | | Load 0x2,-0x2
038c 4806 |H | Short_Literal 0x6
038d 8210 | | Call 0x1,0x10
038e 01cc | | Execute Vector,Catenate
038f 0092 05fc | | Action Push_String_Extended,0x5fc ; "'Spec_View("
0391 01cc | | Execute Vector,Catenate
0392 e5fe | | Load 0x2,-0x2
0393 4802 |H | Short_Literal 0x2
0394 8210 | | Call 0x1,0x10
0395 01cc | | Execute Vector,Catenate
0396 0092 05fd | | Action Push_String_Extended,0x5fd ; ").Units"
0398 01cc | | Execute Vector,Catenate
0399 4402 |D | Exit_Subprogram With_Result,0x2
039a 0831 | 1 | Execute_Immediate Raise,0x31
039b 0000 0000 | | .BLANK 0000[0x5]
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03a3 | | .CONST 0x03a3 ; Address of begin
03a1 0004 | | .CONST 0x0004 ; Address of exception handler
03a2 0001 | | .CONST 0x0001 ; Number of locals
03a3 BODY_03a0:
03a3 INIT_03a0:
03a3 00db | | Load_Top At_Offset_3
03a4 820f | | Call 0x1,0xf
03a5 6822 |h" | Jump_Zero 0x3c8
03a6 00da | | Load_Top At_Offset_2
03a7 4607 |F | Jump_Case 0x7
03a8 7807 |x | Jump 0x3b0 ; case 0x0
03a9 7808 |x | Jump 0x3b2 ; case 0x1
03aa 7809 |x | Jump 0x3b4 ; case 0x2
03ab 780d |x | Jump 0x3b9 ; case 0x3
03ac 7811 |x | Jump 0x3be ; case 0x4
03ad 7815 |x | Jump 0x3c3 ; case 0x5
03ae 7801 |x | Jump 0x3b0 ; case 0x6
03af 7800 |x | Jump 0x3b0 ; case 0x7
03b0 4800 |H | Short_Literal 0x0
03b1 4402 |D | Exit_Subprogram With_Result,0x2
03b2 4801 |H | Short_Literal 0x1
03b3 4402 |D | Exit_Subprogram With_Result,0x2
03b4 00db | | Load_Top At_Offset_3
03b5 0227 | ' | Execute Access,All_Reference
03b6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03b7 0c02 | | Execute_Immediate Greater_Equal,0x2
03b8 4402 |D | Exit_Subprogram With_Result,0x2
03b9 00db | | Load_Top At_Offset_3
03ba 0227 | ' | Execute Access,All_Reference
03bb 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03bc 0c03 | | Execute_Immediate Greater_Equal,0x3
03bd 4402 |D | Exit_Subprogram With_Result,0x2
03be 00db | | Load_Top At_Offset_3
03bf 0227 | ' | Execute Access,All_Reference
03c0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03c1 0c04 | | Execute_Immediate Greater_Equal,0x4
03c2 4402 |D | Exit_Subprogram With_Result,0x2
03c3 00db | | Load_Top At_Offset_3
03c4 0227 | ' | Execute Access,All_Reference
03c5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03c6 0c05 | | Execute_Immediate Greater_Equal,0x5
03c7 4402 |D | Exit_Subprogram With_Result,0x2
03c8 4800 |H | Short_Literal 0x0
03c9 4402 |D | Exit_Subprogram With_Result,0x2
03ca 0000 0000 | | .BLANK 0000[0x6]
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03d7 | | .CONST 0x03d7 ; Address of begin
03d1 0004 | | .CONST 0x0004 ; Address of exception handler
03d2 0003 | | .CONST 0x0003 ; Number of locals
03d3 INIT_03d0:
03d3 029f 0483 | | Declare_Subprogram For_Call,INIT_0480
03d5 029f 04c3 | | Declare_Subprogram For_Call,INIT_04c0
03d7 BODY_03d0:
03d7 e004 | | Load 0x0,0x4
03d8 180e | | Execute Package,Field_Execute,Field_Number 0xe
03d9 4801 |H | Short_Literal 0x1
03da e004 | | Load 0x0,0x4
03db 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
03dc 680d |h | Jump_Zero 0x3ea
03dd 4801 |H | Short_Literal 0x1
03de e005 | | Load 0x0,0x5
03df 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
03e0 0092 05fe | | Action Push_String_Extended,0x5fe ; "Input Line => "
03e2 e5fd | | Load 0x2,-0x3
03e3 0227 | ' | Execute Access,All_Reference
03e4 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
03e5 e214 | | Load 0x1,0x14
03e6 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03e7 01cc | | Execute Vector,Catenate
03e8 e005 | | Load 0x0,0x5
03e9 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
03ea e5fd | | Load 0x2,-0x3
03eb 820f | | Call 0x1,0xf
03ec 700c |p | Jump_Nonzero 0x3f9
03ed 4822 |H" | Short_Literal 0x22
03ee 0092 05ff | | Action Push_String_Extended,0x5ff ; "Errors encountered parsing field:\x22"
03f0 e5fd | | Load 0x2,-0x3
03f1 0227 | ' | Execute Access,All_Reference
03f2 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
03f3 e214 | | Load 0x1,0x14
03f4 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03f5 01cc | | Execute Vector,Catenate
03f6 01cb | | Execute Vector,Append
03f7 85fe | | Call 0x2,-0x2
03f8 4504 |E | Exit_Subprogram 0x4
03f9 00cf | | Action Mark_Auxiliary
03fa 4807 |H | Short_Literal 0x7
03fb 4801 |H | Short_Literal 0x1
03fc 0007 | | Action Break_Optional
03fd e004 | | Load 0x0,0x4
03fe 180e | | Execute Package,Field_Execute,Field_Number 0xe
03ff 4801 |H | Short_Literal 0x1
0400 e004 | | Load 0x0,0x4
0401 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0402 680d |h | Jump_Zero 0x410
0403 00d8 | | Load_Top At_Offset_0
0404 e20d | | Load 0x1,0xd
0405 011c | | Execute Any,Convert_Unchecked
0406 1c01 | | Execute_Immediate Run_Utility,0x1
0407 0092 0600 | | Action Push_String_Extended,0x600 ; " => "
0409 01cc | | Execute Vector,Catenate
040a e5fd | | Load 0x2,-0x3
040b 00da | | Load_Top At_Offset_2
040c 8210 | | Call 0x1,0x10
040d 01cc | | Execute Vector,Catenate
040e e005 | | Load 0x0,0x5
040f 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0410 00d8 | | Load_Top At_Offset_0
0411 0aff | | Execute_Immediate Plus,-0x1
0412 4606 |F | Jump_Case 0x6
0413 7807 |x | Jump 0x41b ; case 0x0
0414 7806 |x | Jump 0x41b ; case 0x1
0415 7808 |x | Jump 0x41e ; case 0x2
0416 7807 |x | Jump 0x41e ; case 0x3
0417 7803 |x | Jump 0x41b ; case 0x4
0418 7804 |x | Jump 0x41d ; case 0x5
0419 7804 |x | Jump 0x41e ; case 0x6
041a 7803 |x | .XXX[0x1]
041b 8402 | | Call 0x2,0x2
041c 7801 |x | Jump 0x41e
041d 8403 | | Call 0x2,0x3
041e 00c8 | | Action Pop_Auxiliary_Range
041f 3fdd |? | Loop_Increasing 0x3fd
0420 00ce | | Action Pop_Auxiliary
0421 4504 |E | Exit_Subprogram 0x4
0422 0000 0000 | | .BLANK 0000[0x6]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 042b | + | .CONST 0x042b ; Address of begin
0429 0004 | | .CONST 0x0004 ; Address of exception handler
042a 0001 | | .CONST 0x0001 ; Number of locals
042b BODY_0428:
042b INIT_0428:
042b 4607 |F | Jump_Case 0x7
042c 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
042d 7807 |x | Jump 0x435 ; case 0x1
042e 780a |x | Jump 0x439 ; case 0x2
042f 780e |x | Jump 0x43e ; case 0x3
0430 7811 |x | Jump 0x442 ; case 0x4
0431 7812 |x | Jump 0x444 ; case 0x5
0432 7813 |x | Jump 0x446 ; case 0x6
0433 7816 |x | Jump 0x44a ; case 0x7
0434 4302 |C | .XXX[0x1]
0435 00da | | Load_Top At_Offset_2
0436 0091 05da | | Action Push_String_Extended_Indexed,0x5da ; "NIL"
0438 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0439 00db | | Load_Top At_Offset_3
043a 00db | | Load_Top At_Offset_3
043b 00e0 | | Load_Encached Standard_Cache
043c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
043d 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
043e 00da | | Load_Top At_Offset_2
043f 00e0 | | Load_Encached Standard_Cache
0440 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0441 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0442 00db | | Load_Top At_Offset_3
0443 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0444 00db | | Load_Top At_Offset_3
0445 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0446 e218 | | Load 0x1,0x18
0447 00dc | | Load_Top At_Offset_4
0448 0267 | g | Execute Discrete,Predecessor
0449 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
044a e218 | | Load 0x1,0x18
044b 00dc | | Load_Top At_Offset_4
044c 0268 | h | Execute Discrete,Successor
044d 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
044e 0000 0000 | | .XXX[0x2]
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0453 | S | .CONST 0x0453 ; Address of begin
0451 0004 | | .CONST 0x0004 ; Address of exception handler
0452 0001 | | .CONST 0x0001 ; Number of locals
0453 BODY_0450:
0453 INIT_0450:
0453 4601 |F | Jump_Case 0x1
0454 7801 |x | Jump 0x456 ; case 0x0
0455 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x1
0456 00da | | Load_Top At_Offset_2
0457 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0458 1c00 | | Execute_Immediate Run_Utility,0x0
0459 4302 |C | Exit_Subprogram From_Utility,0x2
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 e214 | | Load 0x1,0x14
046a 1816 | | Execute Package,Field_Execute,Field_Number 0x16
046b 4801 |H | Short_Literal 0x1
046c e219 | | Load 0x1,0x19
046d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
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 e215 | | Load 0x1,0x15
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 8210 | | Call 0x1,0x10
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 e20d | | Load 0x1,0xd
04a9 011c | | Execute Any,Convert_Unchecked
04aa 1c01 | | Execute_Immediate Run_Utility,0x1
04ab 0092 0601 | | Action Push_String_Extended,0x601 ; " object "
04ad 01cc | | Execute Vector,Catenate
04ae e5fd | | Load 0x2,-0x3
04af e406 | | Load 0x2,0x6
04b0 8210 | | Call 0x1,0x10
04b1 01cc | | Execute Vector,Catenate
04b2 0092 0602 | | Action Push_String_Extended,0x602 ; " 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 8210 | | Call 0x1,0x10
04e0 0092 05f4 | | Action Push_String_Extended,0x5f4 ; "."
04e2 01cc | | Execute Vector,Catenate
04e3 e5fd | | Load 0x2,-0x3
04e4 e406 | | Load 0x2,0x6
04e5 8210 | | Call 0x1,0x10
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 e20d | | Load 0x1,0xd
04f0 011c | | Execute Any,Convert_Unchecked
04f1 1c01 | | Execute_Immediate Run_Utility,0x1
04f2 0092 0601 | | Action Push_String_Extended,0x601 ; " object "
04f4 01cc | | Execute Vector,Catenate
04f5 e5fd | | Load 0x2,-0x3
04f6 e406 | | Load 0x2,0x6
04f7 8210 | | Call 0x1,0x10
04f8 01cc | | Execute Vector,Catenate
04f9 0092 0602 | | Action Push_String_Extended,0x602 ; " 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 0529 | ) | .CONST 0x0529 ; 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 029a 0533 | 3| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0530
050d 029a 0553 | S| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0550
050f 029a 055b | [| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0558
0511 00e4 | | Load_Encached Positive_Cache
0512 00e4 | | Load_Encached Positive_Cache
0513 02a0 | | Declare_Subprogram Null_Subprogram
0514 4802 |H | Short_Literal 0x2
0515 032e | . | Declare_Type Record,Defined,Visible
0516 4801 |H | Short_Literal 0x1
0517 4805 |H | Short_Literal 0x5
0518 00da | | Load_Top At_Offset_2
0519 02a0 | | Declare_Subprogram Null_Subprogram
051a 4801 |H | Short_Literal 0x1
051b 035e | ^ | Declare_Type Array,Defined,Visible
051c e20d | | Load 0x1,0xd
051d 00d9 | | Load_Top At_Offset_1
051e 029f 05cb | | Declare_Subprogram For_Call,INIT_05c8
0520 4802 |H | Short_Literal 0x2
0521 032e | . | Declare_Type Record,Defined,Visible
0522 00bf | | Action Accept_Activation
0523 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0524 00c7 | | Action Elaborate_Subprogram
0525 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0526 00c7 | | Action Elaborate_Subprogram
0527 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0528 00c7 | | Action Elaborate_Subprogram
0529 BODY_0500:
0529 00bc | | Action Signal_Activated
052a 00bb | | Action Signal_Completion
052b 0000 0000 | | .BLANK 0000[0x5]
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 e214 | | Load 0x1,0x14
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 4601 |F | Jump_Case 0x1
05cc 7801 |x | Jump 0x5ce ; case 0x0
05cd 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x1
05ce 4800 |H | Short_Literal 0x0
05cf 00db | | Load_Top At_Offset_3
05d0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
05d1 4302 |C | Exit_Subprogram From_Utility,0x2
05d2 ; --------------------------------------------------------------------------------------
05d2 ; STRING TABLE
05d2 ; --------------------------------------------------------------------------------------
05d2 0064 | d | .STRTAB 0x0064->0x0604 ; "NIL"
05d3 0065 | e | .STRTAB 0x0065->0x0605 ; "RDF_CONTEXT"
05d4 006e | n | .STRTAB 0x006e->0x060b ; "ACTIVITY"
05d5 0074 | t | .STRTAB 0x0074->0x060f ; "PDL_NAME"
05d6 007a | z | .STRTAB 0x007a->0x0613 ; "PDL_ID"
05d7 007e | ~ | .STRTAB 0x007e->0x0616 ; "DESCRIPTION_FILE_CONTEXT"
05d8 0094 | | .STRTAB 0x0094->0x0622 ; "SUBSYSTEM_NAME"
05d9 00a0 | | .STRTAB 0x00a0->0x0629 ; "PROGRAM_NAME"
05da 00aa | | .STRTAB 0x00aa->0x062f ; "NIL"
05db 00ab | | .STRTAB 0x00ab->0x0630 ; "PDL_01"
05dc 00af | | .STRTAB 0x00af->0x0633 ; "PDL_02"
05dd 00b3 | | .STRTAB 0x00b3->0x0636 ; "PDL_03"
05de 00b7 | | .STRTAB 0x00b7->0x0639 ; "PDL_04"
05df 00bb | | .STRTAB 0x00bb->0x063c ; "PDL_05"
05e0 00bf | | .STRTAB 0x00bf->0x063f ; "PDL_06"
05e1 00c3 | | .STRTAB 0x00c3->0x0642 ; "PDL_07"
05e2 00c7 | | .STRTAB 0x00c7->0x0645 ; "PDL_08"
05e3 00cb | | .STRTAB 0x00cb->0x0648 ; "PDL_09"
05e4 00cf | | .STRTAB 0x00cf->0x064b ; "PDL_10"
05e5 00d3 | | .STRTAB 0x00d3->0x064e ; "PDL_11"
05e6 00d7 | | .STRTAB 0x00d7->0x0651 ; "PDL_12"
05e7 00db | | .STRTAB 0x00db->0x0654 ; "!Machine.Initialization.Rational.Design_Facilities"
05e8 010b | | .STRTAB 0x010b->0x066d ; "Input | Output | Error => !MACHINE.DEVICES.NIL"
05e9 0137 | 7 | .STRTAB 0x0137->0x0684 ; "<PROFILE>"
; "<PROFILE>"
05ea 013e | > | .STRTAB 0x013e->0x0689 ; "Unable_To_Register_Standard_Pdl "
05eb 015c | \ | .STRTAB 0x015c->0x0699 ; " cannot be found."
05ec 016b | k | .STRTAB 0x016b->0x06a1 ; "Invalid_Pdl_Name"
05ed 0179 | y | .STRTAB 0x0179->0x06a9 ; "!Machine.Initialization.Rational.Design_Facilities.Start_Pdl"
05ee 01b3 | | .STRTAB 0x01b3->0x06c7 ; "Unhandled_Exception"
; "Unhandled_Exception"
05ef 01c4 | | .STRTAB 0x01c4->0x06d1 ; "(Pdl_Name => \x22"
; "(Pdl_Name => \x22"
05f0 01d0 | | .STRTAB 0x01d0->0x06d8 ; "\x22, Pdl_Id => Pdl."
05f1 01df | | .STRTAB 0x01df->0x06e0 ; ")"
; ")"
05f2 01de | | .STRTAB 0x01de->0x06e1 ; "\x22)"
05f3 01de | | .STRTAB 0x01de->0x06e2 ; "(Pdl_Id => Pdl."
05f4 01eb | | .STRTAB 0x01eb->0x06e9 ; "."
; "."
; "."
05f5 01ea | | .STRTAB 0x01ea->0x06ea ; "!Machine.Initialization.Rational.Design_Facilities ("
05f6 021c | | .STRTAB 0x021c->0x0704 ; "S => "
05f7 021f | | .STRTAB 0x021f->0x0706 ; "Context => "
05f8 0228 | ( | .STRTAB 0x0228->0x070c ; "!Tools.Design.Release."
05f9 023c | < | .STRTAB 0x023c->0x0717 ; "Pdl_Definition"
05fa 0248 | H | .STRTAB 0x0248->0x071e ; "Register_Pdl"
05fb 0252 | R | .STRTAB 0x0252->0x0724 ; "!Machine.Release.Current.Activity"
05fc 0271 | q | .STRTAB 0x0271->0x0734 ; "'Spec_View("
05fd 027a | z | .STRTAB 0x027a->0x073a ; ").Units"
05fe 027f | | .STRTAB 0x027f->0x073d ; "Input Line => "
05ff 028b | | .STRTAB 0x028b->0x0744 ; "Errors encountered parsing field:\x22"
0600 02ab | | .STRTAB 0x02ab->0x0755 ; " => "
0601 02ad | | .STRTAB 0x02ad->0x0757 ; " object "
; " object "
0602 02b3 | | .STRTAB 0x02b3->0x075b ; " does not exist"
; " does not exist"
0603 02c0 | | .STREND 0x02c0->0x0763
0604 4e49 4c52 |NILR| .STRTAB_STRINGS
0763 0000 0000 | | .BLANK 0000[0x5]
0768 ; --------------------------------------------------------------------------------------
0768 ; Debug Table
0768 ; --------------------------------------------------------------------------------------
0768 0004 0002 | | .DEBUG4 0x0004,0x0002,0x06d1,0x0000,0x0001,0x0000
076e 0000 0000 | | .BLANK 0000[0x92]