|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 5120 (0x1400) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c0fe
└─⟦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 09c8 | | .CONST 0x09c8 ; 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 8005 | | .CONST 0x8005 ; 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 INIT_0018,For_Outer_Call,Visible,Unelaborated 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 0059 | Y | .CONST 0x0059 ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0016 | | .CONST 0x0016 ; Number of locals 001b INIT_0018: 001b 00e9 | | Load_Encached String_Cache 001c 02a0 | | Declare_Subprogram Null_Subprogram 001d 4818 |H | Short_Literal 0x18 001e 03d3 | | Declare_Type Access,Defined,Accesses_Protected 001f 029e 00bb | | Declare_Subprogram INIT_00b8,For_Call,Unelaborated 0021 e002 | | Load 0x0,0x2 0022 e003 | | Load 0x0,0x3 0023 48ef |H | Short_Literal 0xef 0024 e004 | | Load 0x0,0x4 0025 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0026 e402 | | Load 0x2,0x2 0027 4803 |H | Short_Literal 0x3 0028 4802 |H | Short_Literal 0x2 0029 0099 | | Action Reference_Dynamic 002a e005 | | Load 0x0,0x5 002b 0387 | | Declare_Variable Package 002c 00d8 | | Load_Top At_Offset_0 002d 020f | | Execute Module,Activate 002e 00d8 | | Load_Top At_Offset_0 002f 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0030 4801 |H | Short_Literal 0x1 0031 e5f9 | | Load 0x2,-0x7 0032 e004 | | Load 0x0,0x4 0033 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 0034 02a0 | | Declare_Subprogram Null_Subprogram 0035 4801 |H | Short_Literal 0x1 0036 035d | ] | Declare_Type Array,Defined 0037 00d8 | | Load_Top At_Offset_0 0038 0337 | 7 | Declare_Variable Array 0039 00e3 | | Load_Encached Natural_Cache 003a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 003b 00e3 | | Load_Encached Natural_Cache 003c 00e3 | | Load_Encached Natural_Cache 003d 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call 003f 029f 00e3 | | Declare_Subprogram INIT_00e0,For_Call 0041 029f 0103 | | Declare_Subprogram INIT_0100,For_Call 0043 029f 0163 | c| Declare_Subprogram INIT_0160,For_Call 0045 029f 01c3 | | Declare_Subprogram INIT_01c0,For_Call 0047 029f 020b | | Declare_Subprogram INIT_0208,For_Call 0049 029f 022b | +| Declare_Subprogram INIT_0228,For_Call 004b 029f 0293 | | Declare_Subprogram INIT_0290,For_Call 004d 029f 02a3 | | Declare_Subprogram INIT_02a0,For_Call 004f 029f 02d3 | | Declare_Subprogram INIT_02d0,For_Call 0051 029f 05bb | | Declare_Subprogram INIT_05b8,For_Call 0053 029f 06cb | | Declare_Subprogram INIT_06c8,For_Call 0055 4803 |H | Short_Literal 0x3 0056 4802 |H | Short_Literal 0x2 0057 0099 | | Action Reference_Dynamic 0058 00c7 | | Action Elaborate_Subprogram 0059 BODY_0018: 0059 e006 | | Load 0x0,0x6 005a 181f | | Execute Package,Field_Execute,Field_Number 0x1f 005b 6855 |hU | Jump_Zero 0xb1 005c e404 | | Load 0x2,0x4 005d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 005e 48ef |H | Short_Literal 0xef 005f e404 | | Load 0x2,0x4 0060 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0061 c405 | | Store 0x2,0x5 0062 8416 | | Call 0x2,0x16 0063 e007 | | Load 0x0,0x7 0064 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 0065 e5ff | | Load 0x2,-0x1 0066 4900 |I | Short_Literal 0x100 0067 027d | } | Execute Discrete,Greater 0068 680d |h | Jump_Zero 0x76 0069 e5ff | | Load 0x2,-0x1 006a 00d8 | | Load_Top At_Offset_0 006b e008 | | Load 0x0,0x8 006c 1b15 | | Execute Package,Field_Read,Field_Number 0x15 006d 0260 | ` | Execute Discrete,In_Type 006e 7001 |p | Jump_Nonzero 0x70 006f 0801 | | Execute_Immediate Raise,0x1 0070 4801 |H | Short_Literal 0x1 0071 e407 | | Load 0x2,0x7 0072 01d6 | | Execute Vector,Field_Write 0073 4801 |H | Short_Literal 0x1 0074 a408 | | Store_Unchecked 0x2,0x8 0075 7826 |x& | Jump 0x9c 0076 e5ff | | Load 0x2,-0x1 0077 00d8 | | Load_Top At_Offset_0 0078 e009 | | Load 0x0,0x9 0079 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 007a 0260 | ` | Execute Discrete,In_Type 007b 7001 |p | Jump_Nonzero 0x7d 007c 0801 | | Execute_Immediate Raise,0x1 007d 840e | | Call 0x2,0xe 007e 4801 |H | Short_Literal 0x1 007f a409 | | Store_Unchecked 0x2,0x9 0080 00cf | | Action Mark_Auxiliary 0081 e408 | | Load 0x2,0x8 0082 e5f9 | | Load 0x2,-0x7 0083 027f | | Execute Discrete,Equal 0084 7016 |p | Jump_Nonzero 0x9b 0085 e409 | | Load 0x2,0x9 0086 a40a | | Store_Unchecked 0x2,0xa 0087 e408 | | Load 0x2,0x8 0088 a409 | | Store_Unchecked 0x2,0x9 0089 00cf | | Action Mark_Auxiliary 008a e408 | | Load 0x2,0x8 008b e40a | | Load 0x2,0xa 008c 0263 | c | Execute Discrete,Above_Bound 008d 7006 |p | Jump_Nonzero 0x94 008e 00d8 | | Load_Top At_Offset_0 008f e407 | | Load 0x2,0x7 0090 01d7 | | Execute Vector,Field_Read 0091 840d | | Call 0x2,0xd 0092 00c8 | | Action Pop_Auxiliary_Range 0093 3ffa |? | Loop_Increasing 0x8e 0094 00ce | | Action Pop_Auxiliary 0095 e408 | | Load 0x2,0x8 0096 e409 | | Load 0x2,0x9 0097 027f | | Execute Discrete,Equal 0098 7002 |p | Jump_Nonzero 0x9b 0099 00c9 | | Action Pop_Auxiliary_Loop 009a 7fe6 | | Jump 0x81 009b 00ce | | Action Pop_Auxiliary 009c e408 | | Load 0x2,0x8 009d e5f9 | | Load 0x2,-0x7 009e 027f | | Execute Discrete,Equal 009f 6804 |h | Jump_Zero 0xa4 00a0 0092 085b | [| Action Push_String_Extended,0x85b ; "Max_Tasks reached; not all tasks will be displayed" 00a2 e00a | | Load 0x0,0xa 00a3 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 00a4 00cf | | Action Mark_Auxiliary 00a5 e408 | | Load 0x2,0x8 00a6 4801 |H | Short_Literal 0x1 00a7 0263 | c | Execute Discrete,Above_Bound 00a8 7006 |p | Jump_Nonzero 0xaf 00a9 00d8 | | Load_Top At_Offset_0 00aa e407 | | Load 0x2,0x7 00ab 01d7 | | Execute Vector,Field_Read 00ac 8415 | | Call 0x2,0x15 00ad 00c8 | | Action Pop_Auxiliary_Range 00ae 3ffa |? | Loop_Increasing 0xa9 00af 00ce | | Action Pop_Auxiliary 00b0 450d |E | Exit_Suprogram New_Top_Offset 0xd 00b1 0092 085c | \| Action Push_String_Extended,0x85c ; "Operator Capability is required to use this command." 00b3 e00a | | Load 0x0,0xa 00b4 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 00b5 450d |E | Exit_Suprogram New_Top_Offset 0xd 00b6 0000 0000 | | .XXX[0x2] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bb | | .CONST 0x00bb ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0001 | | .CONST 0x0001 ; Number of locals 00bb BODY_00b8: 00bb INIT_00b8: 00bb e7ff | | Load 0x3,-0x1 00bc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00bd 0000 0000 | | .XXX[0x3] 00bf 0000 | | 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c3 | | .CONST 0x00c3 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0001 | | .CONST 0x0001 ; Number of locals 00c3 BODY_00c0: 00c3 INIT_00c0: 00c3 e408 | | Load 0x2,0x8 00c4 e5f9 | | Load 0x2,-0x7 00c5 027b | { | Execute Discrete,Greater_Equal 00c6 6801 |h | Jump_Zero 0xc8 00c7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00c8 00cf | | Action Mark_Auxiliary 00c9 e408 | | Load 0x2,0x8 00ca 4801 |H | Short_Literal 0x1 00cb 0263 | c | Execute Discrete,Above_Bound 00cc 7009 |p | Jump_Nonzero 0xd6 00cd 00d8 | | Load_Top At_Offset_0 00ce e407 | | Load 0x2,0x7 00cf 01d7 | | Execute Vector,Field_Read 00d0 e7ff | | Load 0x3,-0x1 00d1 027f | | Execute Discrete,Equal 00d2 6801 |h | Jump_Zero 0xd4 00d3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00d4 00c8 | | Action Pop_Auxiliary_Range 00d5 3ff7 |? | Loop_Increasing 0xcd 00d6 00ce | | Action Pop_Auxiliary 00d7 e408 | | Load 0x2,0x8 00d8 0a01 | | Execute_Immediate Plus,0x1 00d9 c408 | | Store 0x2,0x8 00da e7ff | | Load 0x3,-0x1 00db e408 | | Load 0x2,0x8 00dc e407 | | Load 0x2,0x7 00dd 01d6 | | Execute Vector,Field_Write 00de 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00df 0000 | | .XXX[0x1] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00ed | | .CONST 0x00ed ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0002 | | .CONST 0x0002 ; Number of locals 00e3 INIT_00e0: 00e3 e7ff | | Load 0x3,-0x1 00e4 00d8 | | Load_Top At_Offset_0 00e5 e008 | | Load 0x0,0x8 00e6 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00e7 0260 | ` | Execute Discrete,In_Type 00e8 7001 |p | Jump_Nonzero 0xea 00e9 0801 | | Execute_Immediate Raise,0x1 00ea e004 | | Load 0x0,0x4 00eb 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 00ec 03f1 | | Declare_Variable Discrete,With_Value 00ed BODY_00e0: 00ed 00d8 | | Load_Top At_Offset_0 00ee e008 | | Load 0x0,0x8 00ef 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00f0 e5ff | | Load 0x2,-0x1 00f1 00d8 | | Load_Top At_Offset_0 00f2 e008 | | Load 0x0,0x8 00f3 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00f4 0260 | ` | Execute Discrete,In_Type 00f5 7001 |p | Jump_Nonzero 0xf7 00f6 0801 | | Execute_Immediate Raise,0x1 00f7 027f | | Execute Discrete,Equal 00f8 6802 |h | Jump_Zero 0xfb 00f9 00d8 | | Load_Top At_Offset_0 00fa 840b | | Call 0x2,0xb 00fb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00fc 0000 0000 | | .BLANK 0000[0x4] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 010e | | .CONST 0x010e ; Address of begin 0101 0154 | T | .CONST 0x0154 ; Address of exception handler 0102 0004 | | .CONST 0x0004 ; Number of locals 0103 INIT_0100: 0103 e004 | | Load 0x0,0x4 0104 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 0105 0322 | " | Declare_Variable Record 0106 e004 | | Load 0x0,0x4 0107 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 0108 02c7 | | Declare_Variable Any 0109 e7ff | | Load 0x3,-0x1 010a e00b | | Load 0x0,0xb 010b 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 010c a603 | | Store_Unchecked 0x3,0x3 010d 00e5 | | Load_Encached Long_Integer_Cache 010e BODY_0100: 010e 0092 085d | ]| Action Push_String_Extended,0x85d ; "scanning stack of " 0110 e7ff | | Load 0x3,-0x1 0111 e00b | | Load 0x0,0xb 0112 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0113 01cc | | Execute Vector,Catenate 0114 e00a | | Load 0x0,0xa 0115 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0116 4814 |H | Short_Literal 0x14 0117 4825 |H% | Short_Literal 0x25 0118 4802 |H | Short_Literal 0x2 0119 e603 | | Load 0x3,0x3 011a e004 | | Load 0x0,0x4 011b 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b 011c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 011d e00b | | Load 0x0,0xb 011e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 011f a604 | | Store_Unchecked 0x3,0x4 0120 0092 085e | ^| Action Push_String_Extended,0x85e ; " tos = " 0122 e604 | | Load 0x3,0x4 0123 00e0 | | Load_Encached Standard_Cache 0124 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0125 01cc | | Execute Vector,Catenate 0126 e00a | | Load 0x0,0xa 0127 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0128 00cf | | Action Mark_Auxiliary 0129 e604 | | Load 0x3,0x4 012a 4801 |H | Short_Literal 0x1 012b 0263 | c | Execute Discrete,Above_Bound 012c 7026 |p& | Jump_Nonzero 0x153 012d 00d8 | | Load_Top At_Offset_0 012e 00d8 | | Load_Top At_Offset_0 012f e004 | | Load 0x0,0x4 0130 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 0131 0260 | ` | Execute Discrete,In_Type 0132 7001 |p | Jump_Nonzero 0x134 0133 0801 | | Execute_Immediate Raise,0x1 0134 e603 | | Load 0x3,0x3 0135 e004 | | Load 0x0,0x4 0136 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b 0137 e602 | | Load 0x3,0x2 0138 017d | } | Execute Record,Structure_Write 0139 e602 | | Load 0x3,0x2 013a e004 | | Load 0x0,0x4 013b 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c 013c 0b58 | X | Execute_Immediate Case_Compare,0x58 013d 700b |p | Jump_Nonzero 0x149 013e 0f18 | | Execute_Immediate Equal,0x18 013f 7001 |p | Jump_Nonzero 0x141 0140 7810 |x | Jump 0x151 0141 4820 |H | Short_Literal 0x20 0142 4800 |H | Short_Literal 0x0 0143 e602 | | Load 0x3,0x2 0144 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0145 e00b | | Load 0x0,0xb 0146 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0147 840c | | Call 0x2,0xc 0148 7808 |x | Jump 0x151 0149 00d1 | | Pop_Control Pop_Count_1 014a 4820 |H | Short_Literal 0x20 014b 4800 |H | Short_Literal 0x0 014c e602 | | Load 0x3,0x2 014d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 014e e00b | | Load 0x0,0xb 014f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0150 840c | | Call 0x2,0xc 0151 00c8 | | Action Pop_Auxiliary_Range 0152 3fda |? | Loop_Increasing 0x12d 0153 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0154 TRAP_0100: 0154 0007 | | Action Break_Optional 0155 0092 085f | _| Action Push_String_Extended,0x85f ; " Exception in scan: " 0157 e00c | | Load 0x0,0xc 0158 180d | | Execute Package,Field_Execute,Field_Number 0xd 0159 01cc | | Execute Vector,Catenate 015a e00a | | Load 0x0,0xa 015b 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 015c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 015d 0000 0000 | | .XXX[0x3] 015f 0000 | | 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 016d | m | .CONST 0x016d ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0007 | | .CONST 0x0007 ; Number of locals 0163 INIT_0160: 0163 00e1 | | Load_Encached Boolean_Cache 0164 e009 | | Load 0x0,0x9 0165 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0166 0322 | " | Declare_Variable Record 0167 00e5 | | Load_Encached Long_Integer_Cache 0168 e00d | | Load 0x0,0xd 0169 1b0f | | Execute Package,Field_Read,Field_Number 0xf 016a 00e3 | | Load_Encached Natural_Cache 016b 029f 0743 | C| Declare_Subprogram INIT_0740,For_Call 016d BODY_0160: 016d 8607 | | Call 0x3,0x7 016e 00cf | | Action Mark_Auxiliary 016f e00e | | Load 0x0,0xe 0170 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0171 0269 | i | Execute Discrete,Last 0172 4800 |H | Short_Literal 0x0 0173 0263 | c | Execute Discrete,Above_Bound 0174 7045 |pE | Jump_Nonzero 0x1ba 0175 e603 | | Load 0x3,0x3 0176 00e1 | | Load_Encached Boolean_Cache 0177 e60a | | Load 0x3,0xa 0178 e00e | | Load 0x0,0xe 0179 181a | | Execute Package,Field_Execute,Field_Number 0x1a 017a c602 | | Store 0x3,0x2 017b 00d1 | | Pop_Control Pop_Count_1 017c e602 | | Load 0x3,0x2 017d 703a |p: | Jump_Nonzero 0x1b8 017e e603 | | Load 0x3,0x3 017f 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0180 0f01 | | Execute_Immediate Equal,0x1 0181 6836 |h6 | Jump_Zero 0x1b8 0182 e603 | | Load 0x3,0x3 0183 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0184 7033 |p3 | Jump_Nonzero 0x1b8 0185 e603 | | Load 0x3,0x3 0186 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0187 e7ff | | Load 0x3,-0x1 0188 027f | | Execute Discrete,Equal 0189 682e |h. | Jump_Zero 0x1b8 018a e603 | | Load 0x3,0x3 018b e00e | | Load 0x0,0xe 018c 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 018d 702a |p* | Jump_Nonzero 0x1b8 018e e603 | | Load 0x3,0x3 018f e00f | | Load 0x0,0xf 0190 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0191 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0192 6825 |h% | Jump_Zero 0x1b8 0193 e603 | | Load 0x3,0x3 0194 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0195 4802 |H | Short_Literal 0x2 0196 e009 | | Load 0x0,0x9 0197 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0198 012c | , | Execute Any,Size 0199 026d | m | Execute Discrete,Exponentiate 019a 0271 | q | Execute Discrete,Times 019b e603 | | Load 0x3,0x3 019c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 019d 0273 | s | Execute Discrete,Plus 019e a604 | | Store_Unchecked 0x3,0x4 019f e604 | | Load 0x3,0x4 01a0 00d8 | | Load_Top At_Offset_0 01a1 e008 | | Load 0x0,0x8 01a2 1b15 | | Execute Package,Field_Read,Field_Number 0x15 01a3 0260 | ` | Execute Discrete,In_Type 01a4 7001 |p | Jump_Nonzero 0x1a6 01a5 0801 | | Execute_Immediate Raise,0x1 01a6 e004 | | Load 0x0,0x4 01a7 1842 | B | Execute Package,Field_Execute,Field_Number 0x42 01a8 0e0d | | Execute_Immediate Not_Equal,0xd 01a9 680e |h | Jump_Zero 0x1b8 01aa e604 | | Load 0x3,0x4 01ab 00d8 | | Load_Top At_Offset_0 01ac e008 | | Load 0x0,0x8 01ad 1b15 | | Execute Package,Field_Read,Field_Number 0x15 01ae 0260 | ` | Execute Discrete,In_Type 01af 7001 |p | Jump_Nonzero 0x1b1 01b0 0801 | | Execute_Immediate Raise,0x1 01b1 840b | | Call 0x2,0xb 01b2 e408 | | Load 0x2,0x8 01b3 e5f9 | | Load 0x2,-0x7 01b4 027b | { | Execute Discrete,Greater_Equal 01b5 6802 |h | Jump_Zero 0x1b8 01b6 00d2 | | Pop_Control Pop_Count_2 01b7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01b8 00c8 | | Action Pop_Auxiliary_Range 01b9 3fbb |? | Loop_Increasing 0x175 01ba 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01bb 0000 0000 | | .BLANK 0000[0x5] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01d9 | | .CONST 0x01d9 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0002 | | .CONST 0x0002 ; Number of locals 01c3 INIT_01c0: 01c3 4801 |H | Short_Literal 0x1 01c4 e7ff | | Load 0x3,-0x1 01c5 00e9 | | Load_Encached String_Cache 01c6 035b | [ | Declare_Type Array,Constrained 01c7 0337 | 7 | Declare_Variable Array 01c8 4801 |H | Short_Literal 0x1 01c9 e7ff | | Load 0x3,-0x1 01ca 00e9 | | Load_Encached String_Cache 01cb 035b | [ | Declare_Type Array,Constrained 01cc 0337 | 7 | Declare_Variable Array 01cd 00d8 | | Load_Top At_Offset_0 01ce 01dc | | Execute Vector,Last 01cf 4801 |H | Short_Literal 0x1 01d0 0263 | c | Execute Discrete,Above_Bound 01d1 7005 |p | Jump_Nonzero 0x1d7 01d2 4820 |H | Short_Literal 0x20 01d3 e605 | | Load 0x3,0x5 01d4 e603 | | Load 0x3,0x3 01d5 01d6 | | Execute Vector,Field_Write 01d6 3ffb |? | Loop_Increasing 0x1d2 01d7 e602 | | Load 0x3,0x2 01d8 01d4 | | Execute Vector,Structure_Write 01d9 BODY_01c0: 01d9 e7fe | | Load 0x3,-0x2 01da 01db | | Execute Vector,Length 01db e7ff | | Load 0x3,-0x1 01dc 027d | } | Execute Discrete,Greater 01dd 6813 |h | Jump_Zero 0x1f1 01de e7fd | | Load 0x3,-0x3 01df 680f |h | Jump_Zero 0x1ef 01e0 e7fe | | Load 0x3,-0x2 01e1 01dd | | Execute Vector,First 01e2 e7fe | | Load 0x3,-0x2 01e3 01dd | | Execute Vector,First 01e4 e7ff | | Load 0x3,-0x1 01e5 0273 | s | Execute Discrete,Plus 01e6 0aff | | Execute_Immediate Plus,-0x1 01e7 00d8 | | Load_Top At_Offset_0 01e8 00e2 | | Load_Encached Integer_Cache 01e9 0260 | ` | Execute Discrete,In_Type 01ea 7001 |p | Jump_Nonzero 0x1ec 01eb 0801 | | Execute_Immediate Raise,0x1 01ec e7fe | | Load 0x3,-0x2 01ed 01cf | | Execute Vector,Slice_Read 01ee 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01ef e7fe | | Load 0x3,-0x2 01f0 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01f1 4801 |H | Short_Literal 0x1 01f2 e7ff | | Load 0x3,-0x1 01f3 e7fe | | Load 0x3,-0x2 01f4 01db | | Execute Vector,Length 01f5 0272 | r | Execute Discrete,Minus 01f6 00d8 | | Load_Top At_Offset_0 01f7 00e2 | | Load_Encached Integer_Cache 01f8 0260 | ` | Execute Discrete,In_Type 01f9 7001 |p | Jump_Nonzero 0x1fb 01fa 0801 | | Execute_Immediate Raise,0x1 01fb e602 | | Load 0x3,0x2 01fc 01cf | | Execute Vector,Slice_Read 01fd e7fe | | Load 0x3,-0x2 01fe 01cc | | Execute Vector,Catenate 01ff 00e9 | | Load_Encached String_Cache 0200 01c6 | | Execute Vector,Convert_To_Formal 0201 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0202 0000 0000 | | .BLANK 0000[0x6] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 020b | | .CONST 0x020b ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0001 | | .CONST 0x0001 ; Number of locals 020b BODY_0208: 020b INIT_0208: 020b e7ff | | Load 0x3,-0x1 020c 0c01 | | Execute_Immediate Greater_Equal,0x1 020d 680a |h | Jump_Zero 0x218 020e 4820 |H | Short_Literal 0x20 020f 4800 |H | Short_Literal 0x0 0210 480a |H | Short_Literal 0xa 0211 e7ff | | Load 0x3,-0x1 0212 e010 | | Load 0x0,0x10 0213 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0214 0092 0860 | `| Action Push_String_Extended,0x860 ; "s" 0216 01cc | | Execute Vector,Catenate 0217 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0218 e7ff | | Load 0x3,-0x1 0219 0d00 | | Execute_Immediate Less,0x0 021a 680b |h | Jump_Zero 0x226 021b 4820 |H | Short_Literal 0x20 021c 4800 |H | Short_Literal 0x0 021d 480a |H | Short_Literal 0xa 021e e7ff | | Load 0x3,-0x1 021f 0275 | u | Execute Discrete,Unary_Minus 0220 e010 | | Load 0x0,0x10 0221 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0222 0092 0861 | a| Action Push_String_Extended,0x861 ; "d" 0224 01cc | | Execute Vector,Catenate 0225 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0226 00ea | | Load_Encached Null_String_Cache 0227 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 0236 | 6 | .CONST 0x0236 ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0009 | | .CONST 0x0009 ; Number of locals 022b INIT_0228: 022b 00e1 | | Load_Encached Boolean_Cache 022c 03e9 | | Declare_Variable Discrete,Duplicate 022d 03e9 | | Declare_Variable Discrete,Duplicate 022e e402 | | Load 0x2,0x2 022f 0007 | | Action Break_Optional 0230 e011 | | Load 0x0,0x11 0231 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0232 0322 | " | Declare_Variable Record 0233 00e2 | | Load_Encached Integer_Cache 0234 03e9 | | Declare_Variable Discrete,Duplicate 0235 03e9 | | Declare_Variable Discrete,Duplicate 0236 BODY_0228: 0236 e606 | | Load 0x3,0x6 0237 00e1 | | Load_Encached Boolean_Cache 0238 00e1 | | Load_Encached Boolean_Cache 0239 e7ff | | Load 0x3,-0x1 023a e011 | | Load 0x0,0x11 023b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 023c c602 | | Store 0x3,0x2 023d c603 | | Store 0x3,0x3 023e 00d1 | | Pop_Control Pop_Count_1 023f e602 | | Load 0x3,0x2 0240 6807 |h | Jump_Zero 0x248 0241 e603 | | Load 0x3,0x3 0242 6805 |h | Jump_Zero 0x248 0243 4801 |H | Short_Literal 0x1 0244 e7ff | | Load 0x3,-0x1 0245 e011 | | Load 0x0,0x11 0246 180d | | Execute Package,Field_Execute,Field_Number 0xd 0247 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0248 00e1 | | Load_Encached Boolean_Cache 0249 00e2 | | Load_Encached Integer_Cache 024a 00e2 | | Load_Encached Integer_Cache 024b 00e2 | | Load_Encached Integer_Cache 024c e7ff | | Load 0x3,-0x1 024d 8012 | | Call 0x0,0x12 024e c607 | | Store 0x3,0x7 024f c608 | | Store 0x3,0x8 0250 c609 | | Store 0x3,0x9 0251 c602 | | Store 0x3,0x2 0252 00e1 | | Load_Encached Boolean_Cache 0253 e605 | | Load 0x3,0x5 0254 e7ff | | Load 0x3,-0x1 0255 e004 | | Load 0x0,0x4 0256 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0257 e405 | | Load 0x2,0x5 0258 e404 | | Load 0x2,0x4 0259 1816 | | Execute Package,Field_Execute,Field_Number 0x16 025a c605 | | Store 0x3,0x5 025b c604 | | Store 0x3,0x4 025c e604 | | Load 0x3,0x4 025d 6816 |h | Jump_Zero 0x274 025e e605 | | Load 0x3,0x5 025f 0227 | ' | Execute Access,All_Reference 0260 0092 0862 | b| Action Push_String_Extended,0x862 ; " (" 0262 01cc | | Execute Vector,Catenate 0263 4820 |H | Short_Literal 0x20 0264 4800 |H | Short_Literal 0x0 0265 480a |H | Short_Literal 0xa 0266 e608 | | Load 0x3,0x8 0267 e010 | | Load 0x0,0x10 0268 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0269 01cc | | Execute Vector,Catenate 026a 0092 0863 | c| Action Push_String_Extended,0x863 ; "." 026c 01cc | | Execute Vector,Catenate 026d e609 | | Load 0x3,0x9 026e 8410 | | Call 0x2,0x10 026f 01cc | | Execute Vector,Catenate 0270 0092 0864 | d| Action Push_String_Extended,0x864 ; ")" 0272 01cc | | Execute Vector,Catenate 0273 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0274 e602 | | Load 0x3,0x2 0275 6811 |h | Jump_Zero 0x287 0276 0092 0865 | e| Action Push_String_Extended,0x865 ; " [" 0278 e607 | | Load 0x3,0x7 0279 00e0 | | Load_Encached Standard_Cache 027a 1818 | | Execute Package,Field_Execute,Field_Number 0x18 027b 01cc | | Execute Vector,Catenate 027c e608 | | Load 0x3,0x8 027d 00e0 | | Load_Encached Standard_Cache 027e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 027f 01cc | | Execute Vector,Catenate 0280 0092 0866 | f| Action Push_String_Extended,0x866 ; "]." 0282 01cc | | Execute Vector,Catenate 0283 e609 | | Load 0x3,0x9 0284 8410 | | Call 0x2,0x10 0285 01cc | | Execute Vector,Catenate 0286 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0287 0092 0867 | g| Action Push_String_Extended,0x867 ; "unknown - no table" 0289 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 028a 0000 0000 | | .BLANK 0000[0x6] 0290 ; -------------------------------------------------------------------------------------- 0290 ; SUBPROGRAM 0290 ; -------------------------------------------------------------------------------------- 0290 0293 | | .CONST 0x0293 ; Address of begin 0291 0004 | | .CONST 0x0004 ; Address of exception handler 0292 0001 | | .CONST 0x0001 ; Number of locals 0293 BODY_0290: 0293 INIT_0290: 0293 4801 |H | Short_Literal 0x1 0294 e7ff | | Load 0x3,-0x1 0295 e004 | | Load 0x0,0x4 0296 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 0297 011c | | Execute Any,Convert_Unchecked 0298 1c01 | | Execute_Immediate Run_Utility,0x1 0299 480a |H | Short_Literal 0xa 029a 840f | | Call 0x2,0xf 029b 0092 0868 | h| Action Push_String_Extended,0x868 ; " " 029d 01cc | | Execute Vector,Catenate 029e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 029f 0000 | | .XXX[0x1] 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; SUBPROGRAM 02a0 ; -------------------------------------------------------------------------------------- 02a0 02ae | | .CONST 0x02ae ; Address of begin 02a1 0004 | | .CONST 0x0004 ; Address of exception handler 02a2 0002 | | .CONST 0x0002 ; Number of locals 02a3 INIT_02a0: 02a3 4801 |H | Short_Literal 0x1 02a4 4810 |H | Short_Literal 0x10 02a5 00e9 | | Load_Encached String_Cache 02a6 035b | [ | Declare_Type Array,Constrained 02a7 0337 | 7 | Declare_Variable Array 02a8 4830 |H0 | Short_Literal 0x30 02a9 4810 |H | Short_Literal 0x10 02aa e7ff | | Load 0x3,-0x1 02ab 8013 | | Call 0x0,0x13 02ac e602 | | Load 0x3,0x2 02ad 01d4 | | Execute Vector,Structure_Write 02ae BODY_02a0: 02ae 4801 |H | Short_Literal 0x1 02af 4804 |H | Short_Literal 0x4 02b0 e602 | | Load 0x3,0x2 02b1 01cf | | Execute Vector,Slice_Read 02b2 0092 0868 | h| Action Push_String_Extended,0x868 ; " " 02b4 01cc | | Execute Vector,Catenate 02b5 4805 |H | Short_Literal 0x5 02b6 4808 |H | Short_Literal 0x8 02b7 e602 | | Load 0x3,0x2 02b8 01cf | | Execute Vector,Slice_Read 02b9 01cc | | Execute Vector,Catenate 02ba 0092 0868 | h| Action Push_String_Extended,0x868 ; " " 02bc 01cc | | Execute Vector,Catenate 02bd 4809 |H | Short_Literal 0x9 02be 480c |H | Short_Literal 0xc 02bf e602 | | Load 0x3,0x2 02c0 01cf | | Execute Vector,Slice_Read 02c1 01cc | | Execute Vector,Catenate 02c2 0092 0868 | h| Action Push_String_Extended,0x868 ; " " 02c4 01cc | | Execute Vector,Catenate 02c5 480d |H | Short_Literal 0xd 02c6 4810 |H | Short_Literal 0x10 02c7 e602 | | Load 0x3,0x2 02c8 01cf | | Execute Vector,Slice_Read 02c9 01cc | | Execute Vector,Catenate 02ca 00e9 | | Load_Encached String_Cache 02cb 01c6 | | Execute Vector,Convert_To_Formal 02cc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02cd 0000 0000 | | .XXX[0x3] 02cf 0000 | | 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; SUBPROGRAM 02d0 ; -------------------------------------------------------------------------------------- 02d0 02e3 | | .CONST 0x02e3 ; Address of begin 02d1 0004 | | .CONST 0x0004 ; Address of exception handler 02d2 0005 | | .CONST 0x0005 ; Number of locals 02d3 INIT_02d0: 02d3 e7ff | | Load 0x3,-0x1 02d4 e004 | | Load 0x0,0x4 02d5 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c 02d6 e004 | | Load 0x0,0x4 02d7 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 02d8 03f1 | | Declare_Variable Discrete,With_Value 02d9 e7ff | | Load 0x3,-0x1 02da 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02db 00e5 | | Load_Encached Long_Integer_Cache 02dc 03f1 | | Declare_Variable Discrete,With_Value 02dd e7ff | | Load 0x3,-0x1 02de 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02df 00e5 | | Load_Encached Long_Integer_Cache 02e0 03f1 | | Declare_Variable Discrete,With_Value 02e1 029f 0753 | S| Declare_Subprogram INIT_0750,For_Call 02e3 BODY_02d0: 02e3 e602 | | Load 0x3,0x2 02e4 467f |F | Jump_Case 0x80 02e5 788b |x | Jump 0x371 ; case 0x0 02e6 7894 |x | Jump 0x37b ; case 0x1 02e7 789f |x | Jump 0x387 ; case 0x2 02e8 78a1 |x | Jump 0x38a ; case 0x3 02e9 78ac |x | Jump 0x396 ; case 0x4 02ea 78b7 |x | Jump 0x3a2 ; case 0x5 02eb 78c2 |x | Jump 0x3ae ; case 0x6 02ec 78c4 |x | Jump 0x3b1 ; case 0x7 02ed 78cf |x | Jump 0x3bd ; case 0x8 02ee 7ab0 |z | Jump 0x59f ; case 0x9 02ef 78d9 |x | Jump 0x3c9 ; case 0xa 02f0 7aae |z | Jump 0x59f ; case 0xb 02f1 78e3 |x | Jump 0x3d5 ; case 0xc 02f2 7aac |z | Jump 0x59f ; case 0xd 02f3 78ed |x | Jump 0x3e1 ; case 0xe 02f4 7aaa |z | Jump 0x59f ; case 0xf 02f5 78f7 |x | Jump 0x3ed ; case 0x10 02f6 7902 |y | Jump 0x3f9 ; case 0x11 02f7 790d |y | Jump 0x405 ; case 0x12 02f8 7aa6 |z | Jump 0x59f ; case 0x13 02f9 790e |y | Jump 0x408 ; case 0x14 02fa 7919 |y | Jump 0x414 ; case 0x15 02fb 7924 |y$ | Jump 0x420 ; case 0x16 02fc 7aa2 |z | Jump 0x59f ; case 0x17 02fd 7925 |y% | Jump 0x423 ; case 0x18 02fe 7932 |y2 | Jump 0x431 ; case 0x19 02ff 7a9f |z | Jump 0x59f ; case 0x1a 0300 7a9e |z | Jump 0x59f ; case 0x1b 0301 793b |y; | Jump 0x43d ; case 0x1c 0302 7a9c |z | Jump 0x59f ; case 0x1d 0303 7945 |yE | Jump 0x449 ; case 0x1e 0304 7950 |yP | Jump 0x455 ; case 0x1f 0305 7a99 |z | Jump 0x59f ; case 0x20 0306 795a |yZ | Jump 0x461 ; case 0x21 0307 7965 |ye | Jump 0x46d ; case 0x22 0308 7a96 |z | Jump 0x59f ; case 0x23 0309 7966 |yf | Jump 0x470 ; case 0x24 030a 7a94 |z | Jump 0x59f ; case 0x25 030b 7970 |yp | Jump 0x47c ; case 0x26 030c 7a92 |z | Jump 0x59f ; case 0x27 030d 7a91 |z | Jump 0x59f ; case 0x28 030e 7979 |yy | Jump 0x488 ; case 0x29 030f 7a8f |z | Jump 0x59f ; case 0x2a 0310 7a8e |z | Jump 0x59f ; case 0x2b 0311 7982 |y | Jump 0x494 ; case 0x2c 0312 7a8c |z | Jump 0x59f ; case 0x2d 0313 798c |y | Jump 0x4a0 ; case 0x2e 0314 7a8a |z | Jump 0x59f ; case 0x2f 0315 7a89 |z | Jump 0x59f ; case 0x30 0316 7a88 |z | Jump 0x59f ; case 0x31 0317 7994 |y | Jump 0x4ac ; case 0x32 0318 7a86 |z | Jump 0x59f ; case 0x33 0319 7a85 |z | Jump 0x59f ; case 0x34 031a 7a84 |z | Jump 0x59f ; case 0x35 031b 7993 |y | Jump 0x4af ; case 0x36 031c 7a82 |z | Jump 0x59f ; case 0x37 031d 7994 |y | Jump 0x4b2 ; case 0x38 031e 7a80 |z | Jump 0x59f ; case 0x39 031f 7a7f |z | Jump 0x59f ; case 0x3a 0320 7a7e |z~ | Jump 0x59f ; case 0x3b 0321 799c |y | Jump 0x4be ; case 0x3c 0322 7a7c |z| | Jump 0x59f ; case 0x3d 0323 79a6 |y | Jump 0x4ca ; case 0x3e 0324 79b1 |y | Jump 0x4d6 ; case 0x3f 0325 7a79 |zy | Jump 0x59f ; case 0x40 0326 79bb |y | Jump 0x4e2 ; case 0x41 0327 79c6 |y | Jump 0x4ee ; case 0x42 0328 7a76 |zv | Jump 0x59f ; case 0x43 0329 79d0 |y | Jump 0x4fa ; case 0x44 032a 7a74 |zt | Jump 0x59f ; case 0x45 032b 79da |y | Jump 0x506 ; case 0x46 032c 7a72 |zr | Jump 0x59f ; case 0x47 032d 7a71 |zq | Jump 0x59f ; case 0x48 032e 79da |y | Jump 0x509 ; case 0x49 032f 7a6f |zo | Jump 0x59f ; case 0x4a 0330 7a6e |zn | Jump 0x59f ; case 0x4b 0331 79e3 |y | Jump 0x515 ; case 0x4c 0332 7a6c |zl | Jump 0x59f ; case 0x4d 0333 79ed |y | Jump 0x521 ; case 0x4e 0334 7a6a |zj | Jump 0x59f ; case 0x4f 0335 7a69 |zi | Jump 0x59f ; case 0x50 0336 7a68 |zh | Jump 0x59f ; case 0x51 0337 79f5 |y | Jump 0x52d ; case 0x52 0338 7a66 |zf | Jump 0x59f ; case 0x53 0339 7a65 |ze | Jump 0x59f ; case 0x54 033a 7a64 |zd | Jump 0x59f ; case 0x55 033b 79fd |y | Jump 0x539 ; case 0x56 033c 7a62 |zb | Jump 0x59f ; case 0x57 033d 7a07 |z | Jump 0x545 ; case 0x58 033e 7a60 |z` | Jump 0x59f ; case 0x59 033f 7a5f |z_ | Jump 0x59f ; case 0x5a 0340 7a5e |z^ | Jump 0x59f ; case 0x5b 0341 7a5d |z] | Jump 0x59f ; case 0x5c 0342 7a5c |z\ | Jump 0x59f ; case 0x5d 0343 7a5b |z[ | Jump 0x59f ; case 0x5e 0344 7a0e |z | Jump 0x553 ; case 0x5f 0345 7a59 |zY | Jump 0x59f ; case 0x60 0346 7a58 |zX | Jump 0x59f ; case 0x61 0347 7a57 |zW | Jump 0x59f ; case 0x62 0348 7a56 |zV | Jump 0x59f ; case 0x63 0349 7a55 |zU | Jump 0x59f ; case 0x64 034a 7a54 |zT | Jump 0x59f ; case 0x65 034b 7a53 |zS | Jump 0x59f ; case 0x66 034c 7a52 |zR | Jump 0x59f ; case 0x67 034d 7a51 |zQ | Jump 0x59f ; case 0x68 034e 7a50 |zP | Jump 0x59f ; case 0x69 034f 7a4f |zO | Jump 0x59f ; case 0x6a 0350 7a4e |zN | Jump 0x59f ; case 0x6b 0351 7a0f |z | Jump 0x561 ; case 0x6c 0352 7a4c |zL | Jump 0x59f ; case 0x6d 0353 7a19 |z | Jump 0x56d ; case 0x6e 0354 7a4a |zJ | Jump 0x59f ; case 0x6f 0355 7a49 |zI | Jump 0x59f ; case 0x70 0356 7a48 |zH | Jump 0x59f ; case 0x71 0357 7a47 |zG | Jump 0x59f ; case 0x72 0358 7a46 |zF | Jump 0x59f ; case 0x73 0359 7a1f |z | Jump 0x579 ; case 0x74 035a 7a44 |zD | Jump 0x59f ; case 0x75 035b 7a29 |z) | Jump 0x585 ; case 0x76 035c 7a42 |zB | Jump 0x59f ; case 0x77 035d 7a41 |zA | Jump 0x59f ; case 0x78 035e 7a40 |z@ | Jump 0x59f ; case 0x79 035f 7a3f |z? | Jump 0x59f ; case 0x7a 0360 7a3e |z> | Jump 0x59f ; case 0x7b 0361 7a2f |z/ | Jump 0x591 ; case 0x7c 0362 7a3c |z< | Jump 0x59f ; case 0x7d 0363 7a39 |z9 | Jump 0x59d ; case 0x7e 0364 7800 |x | Jump 0x365 ; case 0x7f 0365 e602 | | Load 0x3,0x2 0366 8412 | | Call 0x2,0x12 0367 e603 | | Load 0x3,0x3 0368 8413 | | Call 0x2,0x13 0369 01cc | | Execute Vector,Catenate 036a 0092 0869 | i| Action Push_String_Extended,0x869 ; " " 036c 01cc | | Execute Vector,Catenate 036d e604 | | Load 0x3,0x4 036e 8413 | | Call 0x2,0x13 036f 01cc | | Execute Vector,Catenate 0370 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0371 0092 086a | j| Action Push_String_Extended,0x86a ; "Discrete " 0373 4820 |H | Short_Literal 0x20 0374 4800 |H | Short_Literal 0x0 0375 480a |H | Short_Literal 0xa 0376 e604 | | Load 0x3,0x4 0377 e010 | | Load 0x0,0x10 0378 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0379 01cc | | Execute Vector,Catenate 037a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 037b e602 | | Load 0x3,0x2 037c 8412 | | Call 0x2,0x12 037d e603 | | Load 0x3,0x3 037e 8413 | | Call 0x2,0x13 037f 01cc | | Execute Vector,Catenate 0380 0092 0869 | i| Action Push_String_Extended,0x869 ; " " 0382 01cc | | Execute Vector,Catenate 0383 e604 | | Load 0x3,0x4 0384 8413 | | Call 0x2,0x13 0385 01cc | | Execute Vector,Catenate 0386 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0387 0092 086b | k| Action Push_String_Extended,0x86b ; "Subprogram - Ref" 0389 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 038a e602 | | Load 0x3,0x2 038b 8412 | | Call 0x2,0x12 038c e603 | | Load 0x3,0x3 038d 8413 | | Call 0x2,0x13 038e 01cc | | Execute Vector,Catenate 038f 0092 0869 | i| Action Push_String_Extended,0x869 ; " " 0391 01cc | | Execute Vector,Catenate 0392 e604 | | Load 0x3,0x4 0393 8413 | | Call 0x2,0x13 0394 01cc | | Execute Vector,Catenate 0395 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0396 e602 | | Load 0x3,0x2 0397 8412 | | Call 0x2,0x12 0398 e603 | | Load 0x3,0x3 0399 8413 | | Call 0x2,0x13 039a 01cc | | Execute Vector,Catenate 039b 0092 0869 | i| Action Push_String_Extended,0x869 ; " " 039d 01cc | | Execute Vector,Catenate 039e e604 | | Load 0x3,0x4 039f 8413 | | Call 0x2,0x13 03a0 01cc | | Execute Vector,Catenate 03a1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03a2 e602 | | Load 0x3,0x2 03a3 8412 | | Call 0x2,0x12 03a4 e603 | | Load 0x3,0x3 03a5 8413 | | Call 0x2,0x13 03a6 01cc | | Execute Vector,Catenate 03a7 0092 0869 | i| Action Push_String_Extended,0x869 ; " " 03a9 01cc | | Execute Vector,Catenate 03aa e604 | | Load 0x3,0x4 03ab 8413 | | Call 0x2,0x13 03ac 01cc | | Execute Vector,Catenate 03ad 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03ae 0092 086c | l| Action Push_String_Extended,0x86c ; "Subprogram" 03b0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03b1 e602 | | Load 0x3,0x2 03b2 8412 | | Call 0x2,0x12 03b3 e603 | | Load 0x3,0x3 03b4 8413 | | Call 0x2,0x13 03b5 01cc | | Execute Vector,Catenate 03b6 0092 0869 | i| Action Push_String_Extended,0x869 ; " " 03b8 01cc | | Execute Vector,Catenate 03b9 e604 | | Load 0x3,0x4 03ba 8413 | | Call 0x2,0x13 03bb 01cc | | Execute Vector,Catenate 03bc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03bd e602 | | Load 0x3,0x2 03be 8412 | | Call 0x2,0x12 03bf e603 | | Load 0x3,0x3 03c0 8413 | | Call 0x2,0x13 03c1 01cc | | Execute Vector,Catenate 03c2 0092 0869 | i| Action Push_String_Extended,0x869 ; " " 03c4 01cc | | Execute Vector,Catenate 03c5 e604 | | Load 0x3,0x4 03c6 8413 | | Call 0x2,0x13 03c7 01cc | | Execute Vector,Catenate 03c8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03c9 e602 | | Load 0x3,0x2 03ca 8412 | | Call 0x2,0x12 03cb e603 | | Load 0x3,0x3 03cc 8413 | | Call 0x2,0x13 03cd 01cc | | Execute Vector,Catenate 03ce 0092 0869 | i| Action Push_String_Extended,0x869 ; " " 03d0 01cc | | Execute Vector,Catenate 03d1 e604 | | Load 0x3,0x4 03d2 8413 | | Call 0x2,0x13 03d3 01cc | | Execute Vector,Catenate 03d4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03d5 e602 | | Load 0x3,0x2 03d6 8412 | | Call 0x2,0x12 03d7 e603 | | Load 0x3,0x3 03d8 8413 | | Call 0x2,0x13 03d9 01cc | | Execute Vector,Catenate 03da 0092 0869 | i| Action Push_String_Extended,0x869 ; " " 03dc 01cc | | Execute Vector,Catenate 03dd e604 | | Load 0x3,0x4 03de 8413 | | Call 0x2,0x13 03df 01cc | | Execute Vector,Catenate 03e0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03e1 e602 | | Load 0x3,0x2 03e2 8412 | | Call 0x2,0x12 03e3 e603 | | Load 0x3,0x3 03e4 8413 | | Call 0x2,0x13 03e5 01cc | | Execute Vector,Catenate 03e6 0092 0869 | i| Action Push_String_Extended,0x869 ; " " 03e8 01cc | | Execute Vector,Catenate 03e9 e604 | | Load 0x3,0x4 03ea 8413 | | Call 0x2,0x13 03eb 01cc | | Execute Vector,Catenate 03ec 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03ed e602 | | Load 0x3,0x2 03ee 8412 | | Call 0x2,0x12 03ef e603 | | Load 0x3,0x3 03f0 8413 | | Call 0x2,0x13 03f1 01cc | | Execute Vector,Catenate 03f2 0092 0869 | i| Action Push_String_Extended,0x869 ; " " 03f4 01cc | | Execute Vector,Catenate 03f5 e604 | | Load 0x3,0x4 03f6 8413 | | Call 0x2,0x13 03f7 01cc | | Execute Vector,Catenate 03f8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03f9 e602 | | Load 0x3,0x2 03fa 8412 | | Call 0x2,0x12 03fb e603 | | Load 0x3,0x3 03fc 8413 | | Call 0x2,0x13 03fd 01cc | | Execute Vector,Catenate 03fe 0092 0869 | i| Action Push_String_Extended,0x869 ; " " 0400 01cc | | Execute Vector,Catenate 0401 e604 | | Load 0x3,0x4 0402 8413 | | Call 0x2,0x13 0403 01cc | | Execute Vector,Catenate 0404 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0405 0092 086d | m| Action Push_String_Extended,0x86d ; "Subprogram - Elab, Ref" 0407 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0408 e602 | | Load 0x3,0x2 0409 8412 | | Call 0x2,0x12 040a e603 | | Load 0x3,0x3 040b 8413 | | Call 0x2,0x13 040c 01cc | | Execute Vector,Catenate 040d 0092 0869 | i| Action Push_String_Extended,0x869 ; " " 040f 01cc | | Execute Vector,Catenate 0410 e604 | | Load 0x3,0x4 0411 8413 | | Call 0x2,0x13 0412 01cc | | Execute Vector,Catenate 0413 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0414 e602 | | Load 0x3,0x2 0415 8412 | | Call 0x2,0x12 0416 e603 | | Load 0x3,0x3 0417 8413 | | Call 0x2,0x13 0418 01cc | | Execute Vector,Catenate 0419 0092 0869 | i| Action Push_String_Extended,0x869 ; " " 041b 01cc | | Execute Vector,Catenate 041c e604 | | Load 0x3,0x4 041d 8413 | | Call 0x2,0x13 041e 01cc | | Execute Vector,Catenate 041f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0420 0092 086e | n| Action Push_String_Extended,0x86e ; "Subprogram - Elab" 0422 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0423 0092 086f | o| Action Push_String_Extended,0x86f ; "Task " 0425 4820 |H | Short_Literal 0x20 0426 4800 |H | Short_Literal 0x0 0427 4810 |H | Short_Literal 0x10 0428 4820 |H | Short_Literal 0x20 0429 4800 |H | Short_Literal 0x0 042a e604 | | Load 0x3,0x4 042b e00b | | Load 0x0,0xb 042c 1814 | | Execute Package,Field_Execute,Field_Number 0x14 042d e010 | | Load 0x0,0x10 042e 1817 | | Execute Package,Field_Execute,Field_Number 0x17 042f 01cc | | Execute Vector,Catenate 0430 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0431 e602 | | Load 0x3,0x2 0432 8412 | | Call 0x2,0x12 0433 e603 | | Load 0x3,0x3 0434 8413 | | Call 0x2,0x13 0435 01cc | | Execute Vector,Catenate 0436 0092 0869 | i| Action Push_String_Extended,0x869 ; " " 0438 01cc | | Execute Vector,Catenate 0439 e604 | | Load 0x3,0x4 043a 8413 | | Call 0x2,0x13 043b 01cc | | Execute Vector,Catenate 043c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 043d e602 | | Load 0x3,0x2 043e 8412 | | Call 0x2,0x12 043f e603 | | Load 0x3,0x3 0440 8413 | | Call 0x2,0x13 0441 01cc | | Execute Vector,Catenate 0442 0092 0869 | i| Action Push_String_Extended,0x869 ; " " 0444 01cc | | Execute Vector,Catenate 0445 e604 | | Load 0x3,0x4 0446 8413 | | Call 0x2,0x13 0447 01cc | | Execute Vector,Catenate 0448 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0449 e602 | | Load 0x3,0x2 044a 8412 | | Call 0x2,0x12 044b e603 | | Load 0x3,0x3 044c 8413 | | Call 0x2,0x13 044d 01cc | | Execute Vector,Catenate 044e 0092 0869 | i| Action Push_String_Extended,0x869 ; " " 0450 01cc | | Execute Vector,Catenate 0451 e604 | | Load 0x3,0x4 0452 8413 | | Call 0x2,0x13 0453 01cc | | Execute Vector,Catenate 0454 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0455 e602 | | Load 0x3,0x2 0456 8412 | | Call 0x2,0x12 0457 e603 | | Load 0x3,0x3 0458 8413 | | Call 0x2,0x13 0459 01cc | | Execute Vector,Catenate 045a 0092 0869 | i| Action Push_String_Extended,0x869 ; " " 045c 01cc | | Execute Vector,Catenate 045d e604 | | Load 0x3,0x4 045e 8413 | | Call 0x2,0x13 045f 01cc | | Execute Vector,Catenate 0460 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0461 e602 | | Load 0x3,0x2 0462 8412 | | Call 0x2,0x12 0463 e603 | | Load 0x3,0x3 0464 8413 | | Call 0x2,0x13 0465 01cc | | Execute Vector,Catenate 0466 0092 0869 | i| Action Push_String_Extended,0x869 ; " " 0468 01cc | | Execute Vector,Catenate 0469 e604 | | Load 0x3,0x4 046a 8413 | | Call 0x2,0x13 046b 01cc | | Execute Vector,Catenate 046c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 046d 0092 0870 | p| Action Push_String_Extended,0x870 ; "Subprogram - Vis, Ref" 046f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0470 e602 | | Load 0x3,0x2 0471 8412 | | Call 0x2,0x12 0472 e603 | | Load 0x3,0x3 0473 8413 | | Call 0x2,0x13 0474 01cc | | Execute Vector,Catenate 0475 0092 0869 | i| Action Push_String_Extended,0x869 ; " " 0477 01cc | | Execute Vector,Catenate 0478 e604 | | Load 0x3,0x4 0479 8413 | | Call 0x2,0x13 047a 01cc | | Execute Vector,Catenate 047b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 047c e602 | | Load 0x3,0x2 047d 8412 | | Call 0x2,0x12 047e e603 | | Load 0x3,0x3 047f 8413 | | Call 0x2,0x13 0480 01cc | | Execute Vector,Catenate 0481 0092 0869 | i| Action Push_String_Extended,0x869 ; " " 0483 01cc | | Execute Vector,Catenate 0484 e604 | | Load 0x3,0x4 0485 8413 | | Call 0x2,0x13 0486 01cc | | Execute Vector,Catenate 0487 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0488 e602 | | Load 0x3,0x2 0489 8412 | | Call 0x2,0x12 048a e603 | | Load 0x3,0x3 048b 8413 | | Call 0x2,0x13 048c 01cc | | Execute Vector,Catenate 048d 0092 0869 | i| Action Push_String_Extended,0x869 ; " " 048f 01cc | | Execute Vector,Catenate 0490 e604 | | Load 0x3,0x4 0491 8413 | | Call 0x2,0x13 0492 01cc | | Execute Vector,Catenate 0493 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0494 e602 | | Load 0x3,0x2 0495 8412 | | Call 0x2,0x12 0496 e603 | | Load 0x3,0x3 0497 8413 | | Call 0x2,0x13 0498 01cc | | Execute Vector,Catenate 0499 0092 0869 | i| Action Push_String_Extended,0x869 ; " " 049b 01cc | | Execute Vector,Catenate 049c e604 | | Load 0x3,0x4 049d 8413 | | Call 0x2,0x13 049e 01cc | | Execute Vector,Catenate 049f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04a0 e602 | | Load 0x3,0x2 04a1 8412 | | Call 0x2,0x12 04a2 e603 | | Load 0x3,0x3 04a3 8413 | | Call 0x2,0x13 04a4 01cc | | Execute Vector,Catenate 04a5 0092 0869 | i| Action Push_String_Extended,0x869 ; " " 04a7 01cc | | Execute Vector,Catenate 04a8 e604 | | Load 0x3,0x4 04a9 8413 | | Call 0x2,0x13 04aa 01cc | | Execute Vector,Catenate 04ab 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04ac 0092 0871 | q| Action Push_String_Extended,0x871 ; "Subprogram - Vis, Elab, Ref" 04ae 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04af 0092 0872 | r| Action Push_String_Extended,0x872 ; "Subprogram - Vis, Elaborated" 04b1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04b2 e602 | | Load 0x3,0x2 04b3 8412 | | Call 0x2,0x12 04b4 e603 | | Load 0x3,0x3 04b5 8413 | | Call 0x2,0x13 04b6 01cc | | Execute Vector,Catenate 04b7 0092 0869 | i| Action Push_String_Extended,0x869 ; " " 04b9 01cc | | Execute Vector,Catenate 04ba e604 | | Load 0x3,0x4 04bb 8413 | | Call 0x2,0x13 04bc 01cc | | Execute Vector,Catenate 04bd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04be e602 | | Load 0x3,0x2 04bf 8412 | | Call 0x2,0x12 04c0 e603 | | Load 0x3,0x3 04c1 8413 | | Call 0x2,0x13 04c2 01cc | | Execute Vector,Catenate 04c3 0092 0869 | i| Action Push_String_Extended,0x869 ; " " 04c5 01cc | | Execute Vector,Catenate 04c6 e604 | | Load 0x3,0x4 04c7 8413 | | Call 0x2,0x13 04c8 01cc | | Execute Vector,Catenate 04c9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04ca e602 | | Load 0x3,0x2 04cb 8412 | | Call 0x2,0x12 04cc e603 | | Load 0x3,0x3 04cd 8413 | | Call 0x2,0x13 04ce 01cc | | Execute Vector,Catenate 04cf 0092 0869 | i| Action Push_String_Extended,0x869 ; " " 04d1 01cc | | Execute Vector,Catenate 04d2 e604 | | Load 0x3,0x4 04d3 8413 | | Call 0x2,0x13 04d4 01cc | | Execute Vector,Catenate 04d5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04d6 e602 | | Load 0x3,0x2 04d7 8412 | | Call 0x2,0x12 04d8 e603 | | Load 0x3,0x3 04d9 8413 | | Call 0x2,0x13 04da 01cc | | Execute Vector,Catenate 04db 0092 0869 | i| Action Push_String_Extended,0x869 ; " " 04dd 01cc | | Execute Vector,Catenate 04de e604 | | Load 0x3,0x4 04df 8413 | | Call 0x2,0x13 04e0 01cc | | Execute Vector,Catenate 04e1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04e2 e602 | | Load 0x3,0x2 04e3 8412 | | Call 0x2,0x12 04e4 e603 | | Load 0x3,0x3 04e5 8413 | | Call 0x2,0x13 04e6 01cc | | Execute Vector,Catenate 04e7 0092 0869 | i| Action Push_String_Extended,0x869 ; " " 04e9 01cc | | Execute Vector,Catenate 04ea e604 | | Load 0x3,0x4 04eb 8413 | | Call 0x2,0x13 04ec 01cc | | Execute Vector,Catenate 04ed 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04ee e602 | | Load 0x3,0x2 04ef 8412 | | Call 0x2,0x12 04f0 e603 | | Load 0x3,0x3 04f1 8413 | | Call 0x2,0x13 04f2 01cc | | Execute Vector,Catenate 04f3 0092 0869 | i| Action Push_String_Extended,0x869 ; " " 04f5 01cc | | Execute Vector,Catenate 04f6 e604 | | Load 0x3,0x4 04f7 8413 | | Call 0x2,0x13 04f8 01cc | | Execute Vector,Catenate 04f9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04fa e602 | | Load 0x3,0x2 04fb 8412 | | Call 0x2,0x12 04fc e603 | | Load 0x3,0x3 04fd 8413 | | Call 0x2,0x13 04fe 01cc | | Execute Vector,Catenate 04ff 0092 0869 | i| Action Push_String_Extended,0x869 ; " " 0501 01cc | | Execute Vector,Catenate 0502 e604 | | Load 0x3,0x4 0503 8413 | | Call 0x2,0x13 0504 01cc | | Execute Vector,Catenate 0505 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0506 0092 0873 | s| Action Push_String_Extended,0x873 ; "Subprogram - accept block" 0508 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0509 e602 | | Load 0x3,0x2 050a 8412 | | Call 0x2,0x12 050b e603 | | Load 0x3,0x3 050c 8413 | | Call 0x2,0x13 050d 01cc | | Execute Vector,Catenate 050e 0092 0869 | i| Action Push_String_Extended,0x869 ; " " 0510 01cc | | Execute Vector,Catenate 0511 e604 | | Load 0x3,0x4 0512 8413 | | Call 0x2,0x13 0513 01cc | | Execute Vector,Catenate 0514 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0515 e602 | | Load 0x3,0x2 0516 8412 | | Call 0x2,0x12 0517 e603 | | Load 0x3,0x3 0518 8413 | | Call 0x2,0x13 0519 01cc | | Execute Vector,Catenate 051a 0092 0869 | i| Action Push_String_Extended,0x869 ; " " 051c 01cc | | Execute Vector,Catenate 051d e604 | | Load 0x3,0x4 051e 8413 | | Call 0x2,0x13 051f 01cc | | Execute Vector,Catenate 0520 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0521 e602 | | Load 0x3,0x2 0522 8412 | | Call 0x2,0x12 0523 e603 | | Load 0x3,0x3 0524 8413 | | Call 0x2,0x13 0525 01cc | | Execute Vector,Catenate 0526 0092 0869 | i| Action Push_String_Extended,0x869 ; " " 0528 01cc | | Execute Vector,Catenate 0529 e604 | | Load 0x3,0x4 052a 8413 | | Call 0x2,0x13 052b 01cc | | Execute Vector,Catenate 052c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 052d e602 | | Load 0x3,0x2 052e 8412 | | Call 0x2,0x12 052f e603 | | Load 0x3,0x3 0530 8413 | | Call 0x2,0x13 0531 01cc | | Execute Vector,Catenate 0532 0092 0869 | i| Action Push_String_Extended,0x869 ; " " 0534 01cc | | Execute Vector,Catenate 0535 e604 | | Load 0x3,0x4 0536 8413 | | Call 0x2,0x13 0537 01cc | | Execute Vector,Catenate 0538 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0539 e602 | | Load 0x3,0x2 053a 8412 | | Call 0x2,0x12 053b e603 | | Load 0x3,0x3 053c 8413 | | Call 0x2,0x13 053d 01cc | | Execute Vector,Catenate 053e 0092 0869 | i| Action Push_String_Extended,0x869 ; " " 0540 01cc | | Execute Vector,Catenate 0541 e604 | | Load 0x3,0x4 0542 8413 | | Call 0x2,0x13 0543 01cc | | Execute Vector,Catenate 0544 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0545 0092 0874 | t| Action Push_String_Extended,0x874 ; "Package " 0547 4820 |H | Short_Literal 0x20 0548 4800 |H | Short_Literal 0x0 0549 4810 |H | Short_Literal 0x10 054a 4820 |H | Short_Literal 0x20 054b 4800 |H | Short_Literal 0x0 054c e604 | | Load 0x3,0x4 054d e00b | | Load 0x0,0xb 054e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 054f e010 | | Load 0x0,0x10 0550 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0551 01cc | | Execute Vector,Catenate 0552 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0553 0092 0875 | u| Action Push_String_Extended,0x875 ; "Accepted Rendezvous with " 0555 4820 |H | Short_Literal 0x20 0556 4800 |H | Short_Literal 0x0 0557 4810 |H | Short_Literal 0x10 0558 4820 |H | Short_Literal 0x20 0559 4800 |H | Short_Literal 0x0 055a e604 | | Load 0x3,0x4 055b e00b | | Load 0x0,0xb 055c 1814 | | Execute Package,Field_Execute,Field_Number 0x14 055d e010 | | Load 0x0,0x10 055e 1817 | | Execute Package,Field_Execute,Field_Number 0x17 055f 01cc | | Execute Vector,Catenate 0560 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0561 e602 | | Load 0x3,0x2 0562 8412 | | Call 0x2,0x12 0563 e603 | | Load 0x3,0x3 0564 8413 | | Call 0x2,0x13 0565 01cc | | Execute Vector,Catenate 0566 0092 0869 | i| Action Push_String_Extended,0x869 ; " " 0568 01cc | | Execute Vector,Catenate 0569 e604 | | Load 0x3,0x4 056a 8413 | | Call 0x2,0x13 056b 01cc | | Execute Vector,Catenate 056c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 056d e602 | | Load 0x3,0x2 056e 8412 | | Call 0x2,0x12 056f e603 | | Load 0x3,0x3 0570 8413 | | Call 0x2,0x13 0571 01cc | | Execute Vector,Catenate 0572 0092 0869 | i| Action Push_String_Extended,0x869 ; " " 0574 01cc | | Execute Vector,Catenate 0575 e604 | | Load 0x3,0x4 0576 8413 | | Call 0x2,0x13 0577 01cc | | Execute Vector,Catenate 0578 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0579 e602 | | Load 0x3,0x2 057a 8412 | | Call 0x2,0x12 057b e603 | | Load 0x3,0x3 057c 8413 | | Call 0x2,0x13 057d 01cc | | Execute Vector,Catenate 057e 0092 0869 | i| Action Push_String_Extended,0x869 ; " " 0580 01cc | | Execute Vector,Catenate 0581 e604 | | Load 0x3,0x4 0582 8413 | | Call 0x2,0x13 0583 01cc | | Execute Vector,Catenate 0584 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0585 e602 | | Load 0x3,0x2 0586 8412 | | Call 0x2,0x12 0587 e603 | | Load 0x3,0x3 0588 8413 | | Call 0x2,0x13 0589 01cc | | Execute Vector,Catenate 058a 0092 0869 | i| Action Push_String_Extended,0x869 ; " " 058c 01cc | | Execute Vector,Catenate 058d e604 | | Load 0x3,0x4 058e 8413 | | Call 0x2,0x13 058f 01cc | | Execute Vector,Catenate 0590 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0591 e602 | | Load 0x3,0x2 0592 8412 | | Call 0x2,0x12 0593 e603 | | Load 0x3,0x3 0594 8413 | | Call 0x2,0x13 0595 01cc | | Execute Vector,Catenate 0596 0092 0869 | i| Action Push_String_Extended,0x869 ; " " 0598 01cc | | Execute Vector,Catenate 0599 e604 | | Load 0x3,0x4 059a 8413 | | Call 0x2,0x13 059b 01cc | | Execute Vector,Catenate 059c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 059d 8605 | | Call 0x3,0x5 059e 7812 |x | Jump 0x5b1 059f e602 | | Load 0x3,0x2 05a0 e004 | | Load 0x0,0x4 05a1 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 05a2 011c | | Execute Any,Convert_Unchecked 05a3 1c01 | | Execute_Immediate Run_Utility,0x1 05a4 0092 0868 | h| Action Push_String_Extended,0x868 ; " " 05a6 01cc | | Execute Vector,Catenate 05a7 e603 | | Load 0x3,0x3 05a8 8413 | | Call 0x2,0x13 05a9 01cc | | Execute Vector,Catenate 05aa 0092 0869 | i| Action Push_String_Extended,0x869 ; " " 05ac 01cc | | Execute Vector,Catenate 05ad e604 | | Load 0x3,0x4 05ae 8413 | | Call 0x2,0x13 05af 01cc | | Execute Vector,Catenate 05b0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05b1 0831 | 1 | Execute_Immediate Raise,0x31 05b2 0000 0000 | | .BLANK 0000[0x6] 05b8 ; -------------------------------------------------------------------------------------- 05b8 ; SUBPROGRAM 05b8 ; -------------------------------------------------------------------------------------- 05b8 05dd | | .CONST 0x05dd ; Address of begin 05b9 06b9 | | .CONST 0x06b9 ; Address of exception handler 05ba 000d | | .CONST 0x000d ; Number of locals 05bb INIT_05b8: 05bb 00e3 | | Load_Encached Natural_Cache 05bc 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 05bd e004 | | Load 0x0,0x4 05be 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 05bf 02c7 | | Declare_Variable Any 05c0 e7ff | | Load 0x3,-0x1 05c1 e00b | | Load 0x0,0xb 05c2 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 05c3 a603 | | Store_Unchecked 0x3,0x3 05c4 e004 | | Load 0x0,0x4 05c5 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 05c6 02c7 | | Declare_Variable Any 05c7 e00b | | Load 0x0,0xb 05c8 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 05c9 a604 | | Store_Unchecked 0x3,0x4 05ca e004 | | Load 0x0,0x4 05cb 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 05cc e004 | | Load 0x0,0x4 05cd 1b0e | | Execute Package,Field_Read,Field_Number 0xe 05ce e004 | | Load 0x0,0x4 05cf 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 05d0 00e3 | | Load_Encached Natural_Cache 05d1 e004 | | Load 0x0,0x4 05d2 1b51 | Q | Execute Package,Field_Read,Field_Number 0x51 05d3 00e2 | | Load_Encached Integer_Cache 05d4 e004 | | Load 0x0,0x4 05d5 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 05d6 0322 | " | Declare_Variable Record 05d7 e7ff | | Load 0x3,-0x1 05d8 e004 | | Load 0x0,0x4 05d9 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 05da 8411 | | Call 0x2,0x11 05db 029f 0793 | | Declare_Subprogram INIT_0790,For_Call 05dd BODY_05b8: 05dd e5fa | | Load 0x2,-0x6 05de 01db | | Execute Vector,Length 05df 6807 |h | Jump_Zero 0x5e7 05e0 4801 |H | Short_Literal 0x1 05e1 e60c | | Load 0x3,0xc 05e2 e5fa | | Load 0x2,-0x6 05e3 e010 | | Load 0x0,0x10 05e4 181d | | Execute Package,Field_Execute,Field_Number 0x1d 05e5 7001 |p | Jump_Nonzero 0x5e7 05e6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05e7 e5fb | | Load 0x2,-0x5 05e8 700a |p | Jump_Nonzero 0x5f3 05e9 e7ff | | Load 0x3,-0x1 05ea e004 | | Load 0x0,0x4 05eb 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 05ec 6806 |h | Jump_Zero 0x5f3 05ed e7ff | | Load 0x3,-0x1 05ee e004 | | Load 0x0,0x4 05ef 1842 | B | Execute Package,Field_Execute,Field_Number 0x42 05f0 0f07 | | Execute_Immediate Equal,0x7 05f1 6801 |h | Jump_Zero 0x5f3 05f2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05f3 4802 |H | Short_Literal 0x2 05f4 e603 | | Load 0x3,0x3 05f5 e004 | | Load 0x0,0x4 05f6 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b 05f7 e60b | | Load 0x3,0xb 05f8 017d | } | Execute Record,Structure_Write 05f9 4804 |H | Short_Literal 0x4 05fa 481c |H | Short_Literal 0x1c 05fb e60b | | Load 0x3,0xb 05fc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05fd e00b | | Load 0x0,0xb 05fe 1814 | | Execute Package,Field_Execute,Field_Number 0x14 05ff 00d8 | | Load_Top At_Offset_0 0600 00e2 | | Load_Encached Integer_Cache 0601 0260 | ` | Execute Discrete,In_Type 0602 7001 |p | Jump_Nonzero 0x604 0603 0801 | | Execute_Immediate Raise,0x1 0604 a60a | | Store_Unchecked 0x3,0xa 0605 4802 |H | Short_Literal 0x2 0606 e00a | | Load 0x0,0xa 0607 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0608 e7ff | | Load 0x3,-0x1 0609 e004 | | Load 0x0,0x4 060a 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 060b 6805 |h | Jump_Zero 0x611 060c 0092 0876 | v| Action Push_String_Extended,0x876 ; "Package " 060e e00a | | Load 0x0,0xa 060f 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0610 7804 |x | Jump 0x615 0611 0092 0877 | w| Action Push_String_Extended,0x877 ; "Task " 0613 e00a | | Load 0x0,0xa 0614 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0615 e7ff | | Load 0x3,-0x1 0616 e00b | | Load 0x0,0xb 0617 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0618 0092 0878 | x| Action Push_String_Extended,0x878 ; " " 061a 01cc | | Execute Vector,Catenate 061b e60c | | Load 0x3,0xc 061c 01cc | | Execute Vector,Catenate 061d 0092 0879 | y| Action Push_String_Extended,0x879 ; " Pri=" 061f 01cc | | Execute Vector,Catenate 0620 e60a | | Load 0x3,0xa 0621 00e0 | | Load_Encached Standard_Cache 0622 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0623 01cc | | Execute Vector,Catenate 0624 e00a | | Load 0x0,0xa 0625 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0626 0092 0878 | x| Action Push_String_Extended,0x878 ; " " 0628 e7ff | | Load 0x3,-0x1 0629 e004 | | Load 0x0,0x4 062a 1842 | B | Execute Package,Field_Execute,Field_Number 0x42 062b e004 | | Load 0x0,0x4 062c 1b41 | A | Execute Package,Field_Read,Field_Number 0x41 062d 011c | | Execute Any,Convert_Unchecked 062e 1c01 | | Execute_Immediate Run_Utility,0x1 062f 01cc | | Execute Vector,Catenate 0630 0092 087a | z| Action Push_String_Extended,0x87a ; " Parent=" 0632 01cc | | Execute Vector,Catenate 0633 e604 | | Load 0x3,0x4 0634 e7ff | | Load 0x3,-0x1 0635 e004 | | Load 0x0,0x4 0636 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0637 e00b | | Load 0x0,0xb 0638 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0639 01cc | | Execute Vector,Catenate 063a 0092 087b | {| Action Push_String_Extended,0x87b ; " SA=" 063c 01cc | | Execute Vector,Catenate 063d e7ff | | Load 0x3,-0x1 063e e004 | | Load 0x0,0x4 063f 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0640 e00b | | Load 0x0,0xb 0641 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0642 01cc | | Execute Vector,Catenate 0643 e00a | | Load 0x0,0xa 0644 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0645 e5fe | | Load 0x2,-0x2 0646 6871 |hq | Jump_Zero 0x6b8 0647 0092 087c | || Action Push_String_Extended,0x87c ; "Fr Off Pc Outer Lx" 0649 e00a | | Load 0x0,0xa 064a 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 064b 0092 087d | }| Action Push_String_Extended,0x87d ; "-- --- -------------- -------- --" 064d e00a | | Load 0x0,0xa 064e 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 064f 00cf | | Action Mark_Auxiliary 0650 e004 | | Load 0x0,0x4 0651 1b51 | Q | Execute Package,Field_Read,Field_Number 0x51 0652 00e3 | | Load_Encached Natural_Cache 0653 e004 | | Load 0x0,0x4 0654 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 0655 e004 | | Load 0x0,0x4 0656 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0657 e004 | | Load 0x0,0x4 0658 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 0659 e602 | | Load 0x3,0x2 065a e604 | | Load 0x3,0x4 065b e603 | | Load 0x3,0x3 065c e004 | | Load 0x0,0x4 065d 1853 | S | Execute Package,Field_Execute,Field_Number 0x53 065e c605 | | Store 0x3,0x5 065f c606 | | Store 0x3,0x6 0660 c607 | | Store 0x3,0x7 0661 c608 | | Store 0x3,0x8 0662 c609 | | Store 0x3,0x9 0663 e609 | | Load 0x3,0x9 0664 4603 |F | Jump_Case 0x4 0665 784c |xL | Jump 0x6b2 ; case 0x0 0666 784b |xK | Jump 0x6b2 ; case 0x1 0667 7810 |x | Jump 0x678 ; case 0x2 0668 7800 |x | Jump 0x669 ; case 0x3 0669 0092 087e | ~| Action Push_String_Extended,0x87e ; "_" 066b 4820 |H | Short_Literal 0x20 066c 4800 |H | Short_Literal 0x0 066d 480a |H | Short_Literal 0xa 066e e602 | | Load 0x3,0x2 066f e010 | | Load 0x0,0x10 0670 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0671 01cc | | Execute Vector,Catenate 0672 0092 087f | | Action Push_String_Extended,0x87f ; ": temporarily not accessible" 0674 01cc | | Execute Vector,Catenate 0675 e00a | | Load 0x0,0xa 0676 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0677 7835 |x5 | Jump 0x6ad 0678 4800 |H | Short_Literal 0x0 0679 4820 |H | Short_Literal 0x20 067a 4800 |H | Short_Literal 0x0 067b 480a |H | Short_Literal 0xa 067c e602 | | Load 0x3,0x2 067d e010 | | Load 0x0,0x10 067e 1816 | | Execute Package,Field_Execute,Field_Number 0x16 067f 4802 |H | Short_Literal 0x2 0680 840f | | Call 0x2,0xf 0681 4800 |H | Short_Literal 0x0 0682 4820 |H | Short_Literal 0x20 0683 4800 |H | Short_Literal 0x0 0684 4810 |H | Short_Literal 0x10 0685 e605 | | Load 0x3,0x5 0686 e004 | | Load 0x0,0x4 0687 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0688 e010 | | Load 0x0,0x10 0689 1816 | | Execute Package,Field_Execute,Field_Number 0x16 068a 4804 |H | Short_Literal 0x4 068b 840f | | Call 0x2,0xf 068c 01cc | | Execute Vector,Catenate 068d 4800 |H | Short_Literal 0x0 068e e606 | | Load 0x3,0x6 068f e00b | | Load 0x0,0xb 0690 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0691 480f |H | Short_Literal 0xf 0692 840f | | Call 0x2,0xf 0693 01cc | | Execute Vector,Catenate 0694 4800 |H | Short_Literal 0x0 0695 e607 | | Load 0x3,0x7 0696 e004 | | Load 0x0,0x4 0697 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 0698 e00b | | Load 0x0,0xb 0699 1813 | | Execute Package,Field_Execute,Field_Number 0x13 069a 4809 |H | Short_Literal 0x9 069b 840f | | Call 0x2,0xf 069c 01cc | | Execute Vector,Catenate 069d 4800 |H | Short_Literal 0x0 069e e608 | | Load 0x3,0x8 069f 00e0 | | Load_Encached Standard_Cache 06a0 1818 | | Execute Package,Field_Execute,Field_Number 0x18 06a1 4803 |H | Short_Literal 0x3 06a2 840f | | Call 0x2,0xf 06a3 01cc | | Execute Vector,Catenate 06a4 0092 0868 | h| Action Push_String_Extended,0x868 ; " " 06a6 01cc | | Execute Vector,Catenate 06a7 e606 | | Load 0x3,0x6 06a8 8411 | | Call 0x2,0x11 06a9 01cc | | Execute Vector,Catenate 06aa e00a | | Load 0x0,0xa 06ab 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 06ac 7800 |x | Jump 0x6ad 06ad e602 | | Load 0x3,0x2 06ae 0a01 | | Execute_Immediate Plus,0x1 06af c602 | | Store 0x3,0x2 06b0 00c9 | | Action Pop_Auxiliary_Loop 06b1 7f9e | | Jump 0x650 06b2 00ce | | Action Pop_Auxiliary 06b3 e5fd | | Load 0x2,-0x3 06b4 7002 |p | Jump_Nonzero 0x6b7 06b5 e5fc | | Load 0x2,-0x4 06b6 6801 |h | Jump_Zero 0x6b8 06b7 860d | | Call 0x3,0xd 06b8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 06b9 TRAP_05b8: 06b9 0007 | | Action Break_Optional 06ba 0092 0880 | | Action Push_String_Extended,0x880 ; "Exception: " 06bc e00c | | Load 0x0,0xc 06bd 180d | | Execute Package,Field_Execute,Field_Number 0xd 06be 01cc | | Execute Vector,Catenate 06bf e00a | | Load 0x0,0xa 06c0 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 06c1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 06c2 0000 0000 | | .BLANK 0000[0x6] 06c8 ; -------------------------------------------------------------------------------------- 06c8 ; SUBPROGRAM 06c8 ; -------------------------------------------------------------------------------------- 06c8 06e0 | | .CONST 0x06e0 ; Address of begin 06c9 0731 | 1 | .CONST 0x0731 ; Address of exception handler 06ca 000c | | .CONST 0x000c ; Number of locals 06cb INIT_06c8: 06cb 00e3 | | Load_Encached Natural_Cache 06cc 03e9 | | Declare_Variable Discrete,Duplicate 06cd 03e9 | | Declare_Variable Discrete,Duplicate 06ce 03e9 | | Declare_Variable Discrete,Duplicate 06cf 03e9 | | Declare_Variable Discrete,Duplicate 06d0 e00a | | Load 0x0,0xa 06d1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06d2 02c7 | | Declare_Variable Any 06d3 00d8 | | Load_Top At_Offset_0 06d4 1c00 | | Execute_Immediate Run_Utility,0x0 06d5 00e2 | | Load_Encached Integer_Cache 06d6 00e1 | | Load_Encached Boolean_Cache 06d7 e014 | | Load 0x0,0x14 06d8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06d9 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 06da 02c7 | | Declare_Variable Any 06db 00d8 | | Load_Top At_Offset_0 06dc 1c00 | | Execute_Immediate Run_Utility,0x0 06dd 00e3 | | Load_Encached Natural_Cache 06de 029f 07eb | | Declare_Subprogram INIT_07e8,For_Call 06e0 BODY_06c8: 06e0 4801 |H | Short_Literal 0x1 06e1 e014 | | Load 0x0,0x14 06e2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 06e3 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06e4 e5f8 | | Load 0x2,-0x8 06e5 e014 | | Load 0x0,0x14 06e6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 06e7 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 06e8 c60a | | Store 0x3,0xa 06e9 00cf | | Action Mark_Auxiliary 06ea 783c |x< | Jump 0x727 06eb 0092 0881 | | Action Push_String_Extended,0x881 ; "Processing file: " 06ed e60a | | Load 0x3,0xa 06ee e014 | | Load 0x0,0x14 06ef 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06f0 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 06f1 e014 | | Load 0x0,0x14 06f2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 06f3 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 06f4 01cc | | Execute Vector,Catenate 06f5 0092 0882 | | Action Push_String_Extended,0x882 ; " ..." 06f7 01cc | | Execute Vector,Catenate 06f8 e00a | | Load 0x0,0xa 06f9 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 06fa 4800 |H | Short_Literal 0x0 06fb a60b | | Store_Unchecked 0x3,0xb 06fc e607 | | Load 0x3,0x7 06fd 00ea | | Load_Encached Null_String_Cache 06fe e60a | | Load 0x3,0xa 06ff e014 | | Load 0x0,0x14 0700 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0701 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0702 e014 | | Load 0x0,0x14 0703 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0704 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0705 4800 |H | Short_Literal 0x0 0706 e00a | | Load 0x0,0xa 0707 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0708 c607 | | Store 0x3,0x7 0709 00cf | | Action Mark_Auxiliary 070a e607 | | Load 0x3,0x7 070b e00a | | Load 0x0,0xa 070c 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 070d 7003 |p | Jump_Nonzero 0x711 070e 860c | | Call 0x3,0xc 070f 00c9 | | Action Pop_Auxiliary_Loop 0710 7ff9 | | Jump 0x70a 0711 00ce | | Action Pop_Auxiliary 0712 e607 | | Load 0x3,0x7 0713 e00a | | Load 0x0,0xa 0714 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0715 c607 | | Store 0x3,0x7 0716 0092 0869 | i| Action Push_String_Extended,0x869 ; " " 0718 e60b | | Load 0x3,0xb 0719 00e0 | | Load_Encached Standard_Cache 071a 1818 | | Execute Package,Field_Execute,Field_Number 0x18 071b 01cc | | Execute Vector,Catenate 071c 0092 0883 | | Action Push_String_Extended,0x883 ; " defined." 071e 01cc | | Execute Vector,Catenate 071f e00a | | Load 0x0,0xa 0720 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0721 e60a | | Load 0x3,0xa 0722 e014 | | Load 0x0,0x14 0723 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0724 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0725 c60a | | Store 0x3,0xa 0726 00c9 | | Action Pop_Auxiliary_Loop 0727 e60a | | Load 0x3,0xa 0728 e014 | | Load 0x0,0x14 0729 1b0d | | Execute Package,Field_Read,Field_Number 0xd 072a 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 072b 6fbf |o | Jump_Zero 0x6eb 072c 00ce | | Action Pop_Auxiliary 072d 4801 |H | Short_Literal 0x1 072e e00a | | Load 0x0,0xa 072f 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0730 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0731 TRAP_06c8: 0731 0007 | | Action Break_Optional 0732 0092 0884 | | Action Push_String_Extended,0x884 ; "Exception reading file: " 0734 e00c | | Load 0x0,0xc 0735 180d | | Execute Package,Field_Execute,Field_Number 0xd 0736 01cc | | Execute Vector,Catenate 0737 e00a | | Load 0x0,0xa 0738 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0739 4501 |E | Exit_Suprogram New_Top_Offset 0x1 073a 0000 0000 | | .BLANK 0000[0x6] 0740 ; -------------------------------------------------------------------------------------- 0740 ; SUBPROGRAM 0740 ; -------------------------------------------------------------------------------------- 0740 0743 | C | .CONST 0x0743 ; Address of begin 0741 074c | L | .CONST 0x074c ; Address of exception handler 0742 0001 | | .CONST 0x0001 ; Number of locals 0743 BODY_0740: 0743 INIT_0740: 0743 e7ff | | Load 0x3,-0x1 0744 e015 | | Load 0x0,0x15 0745 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0746 a605 | | Store_Unchecked 0x3,0x5 0747 e605 | | Load 0x3,0x5 0748 6802 |h | Jump_Zero 0x74b 0749 e605 | | Load 0x3,0x5 074a 840b | | Call 0x2,0xb 074b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 074c TRAP_0740: 074c 0007 | | Action Break_Optional 074d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 074e 0000 0000 | | .XXX[0x2] 0750 ; -------------------------------------------------------------------------------------- 0750 ; SUBPROGRAM 0750 ; -------------------------------------------------------------------------------------- 0750 0768 | h | .CONST 0x0768 ; Address of begin 0751 0004 | | .CONST 0x0004 ; Address of exception handler 0752 0004 | | .CONST 0x0004 ; Number of locals 0753 INIT_0750: 0753 4830 |H0 | Short_Literal 0x30 0754 4800 |H | Short_Literal 0x0 0755 e604 | | Load 0x3,0x4 0756 e00b | | Load 0x0,0xb 0757 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0758 00e5 | | Load_Encached Long_Integer_Cache 0759 03f1 | | Declare_Variable Discrete,With_Value 075a 4818 |H | Short_Literal 0x18 075b 4820 |H | Short_Literal 0x20 075c e603 | | Load 0x3,0x3 075d e00b | | Load 0x0,0xb 075e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 075f 00e5 | | Load_Encached Long_Integer_Cache 0760 03f1 | | Declare_Variable Discrete,With_Value 0761 480f |H | Short_Literal 0xf 0762 4831 |H1 | Short_Literal 0x31 0763 e604 | | Load 0x3,0x4 0764 e00b | | Load 0x0,0xb 0765 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0766 00e5 | | Load_Encached Long_Integer_Cache 0767 03f1 | | Declare_Variable Discrete,With_Value 0768 BODY_0750: 0768 e602 | | Load 0x3,0x2 0769 8412 | | Call 0x2,0x12 076a 0092 0885 | | Action Push_String_Extended,0x885 ; "name=" 076c 01cc | | Execute Vector,Catenate 076d 4801 |H | Short_Literal 0x1 076e e802 | | Load 0x4,0x2 076f e016 | | Load 0x0,0x16 0770 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0771 01cc | | Execute Vector,Catenate 0772 0092 0886 | | Action Push_String_Extended,0x886 ; " pc=" 0774 01cc | | Execute Vector,Catenate 0775 e804 | | Load 0x4,0x4 0776 00d8 | | Load_Top At_Offset_0 0777 e004 | | Load 0x0,0x4 0778 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0779 0260 | ` | Execute Discrete,In_Type 077a 7001 |p | Jump_Nonzero 0x77c 077b 0801 | | Execute_Immediate Raise,0x1 077c e803 | | Load 0x4,0x3 077d 00d8 | | Load_Top At_Offset_0 077e e008 | | Load 0x0,0x8 077f 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0780 0260 | ` | Execute Discrete,In_Type 0781 7001 |p | Jump_Nonzero 0x783 0782 0801 | | Execute_Immediate Raise,0x1 0783 e004 | | Load 0x0,0x4 0784 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0785 e00b | | Load 0x0,0xb 0786 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0787 01cc | | Execute Vector,Catenate 0788 00cb | | Action Pop_Block_With_Result 0789 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 078a 0000 0000 | | .BLANK 0000[0x6] 0790 ; -------------------------------------------------------------------------------------- 0790 ; SUBPROGRAM 0790 ; -------------------------------------------------------------------------------------- 0790 079e | | .CONST 0x079e ; Address of begin 0791 0004 | | .CONST 0x0004 ; Address of exception handler 0792 0004 | | .CONST 0x0004 ; Number of locals 0793 INIT_0790: 0793 e004 | | Load 0x0,0x4 0794 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 0795 0322 | " | Declare_Variable Record 0796 e004 | | Load 0x0,0x4 0797 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 0798 02c7 | | Declare_Variable Any 0799 e7ff | | Load 0x3,-0x1 079a e00b | | Load 0x0,0xb 079b 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 079c a803 | | Store_Unchecked 0x4,0x3 079d 00e5 | | Load_Encached Long_Integer_Cache 079e BODY_0790: 079e 4814 |H | Short_Literal 0x14 079f 4825 |H% | Short_Literal 0x25 07a0 4802 |H | Short_Literal 0x2 07a1 e803 | | Load 0x4,0x3 07a2 e004 | | Load 0x0,0x4 07a3 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b 07a4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 07a5 e00b | | Load 0x0,0xb 07a6 1814 | | Execute Package,Field_Execute,Field_Number 0x14 07a7 a804 | | Store_Unchecked 0x4,0x4 07a8 00cf | | Action Mark_Auxiliary 07a9 4801 |H | Short_Literal 0x1 07aa e804 | | Load 0x4,0x4 07ab 0264 | d | Execute Discrete,Below_Bound 07ac 7036 |p6 | Jump_Nonzero 0x7e3 07ad 00d8 | | Load_Top At_Offset_0 07ae 00d8 | | Load_Top At_Offset_0 07af e004 | | Load 0x0,0x4 07b0 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 07b1 0260 | ` | Execute Discrete,In_Type 07b2 7001 |p | Jump_Nonzero 0x7b4 07b3 0801 | | Execute_Immediate Raise,0x1 07b4 e803 | | Load 0x4,0x3 07b5 e004 | | Load 0x0,0x4 07b6 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b 07b7 e802 | | Load 0x4,0x2 07b8 017d | } | Execute Record,Structure_Write 07b9 e5fd | | Load 0x2,-0x3 07ba 680a |h | Jump_Zero 0x7c5 07bb 4800 |H | Short_Literal 0x0 07bc e5f4 | | Load 0x2,-0xc 07bd 4800 |H | Short_Literal 0x0 07be e5f5 | | Load 0x2,-0xb 07bf e5f6 | | Load 0x2,-0xa 07c0 e807 | | Load 0x4,0x7 07c1 e802 | | Load 0x4,0x2 07c2 8017 | | Call 0x0,0x17 07c3 e00a | | Load 0x0,0xa 07c4 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 07c5 e5fc | | Load 0x2,-0x4 07c6 681a |h | Jump_Zero 0x7e1 07c7 4820 |H | Short_Literal 0x20 07c8 4803 |H | Short_Literal 0x3 07c9 4810 |H | Short_Literal 0x10 07ca e807 | | Load 0x4,0x7 07cb e010 | | Load 0x0,0x10 07cc 1817 | | Execute Package,Field_Execute,Field_Number 0x17 07cd 0092 0887 | | Action Push_String_Extended,0x887 ; ": " 07cf 01cc | | Execute Vector,Catenate 07d0 4820 |H | Short_Literal 0x20 07d1 4800 |H | Short_Literal 0x0 07d2 e802 | | Load 0x4,0x2 07d3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 07d4 8013 | | Call 0x0,0x13 07d5 01cc | | Execute Vector,Catenate 07d6 0092 0868 | h| Action Push_String_Extended,0x868 ; " " 07d8 01cc | | Execute Vector,Catenate 07d9 4820 |H | Short_Literal 0x20 07da 4800 |H | Short_Literal 0x0 07db e802 | | Load 0x4,0x2 07dc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 07dd 8013 | | Call 0x0,0x13 07de 01cc | | Execute Vector,Catenate 07df e00a | | Load 0x0,0xa 07e0 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 07e1 00c8 | | Action Pop_Auxiliary_Range 07e2 37ca |7 | Loop_Decreasing 0x7ad 07e3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 07e4 0000 0000 | | .BLANK 0000[0x4] 07e8 ; -------------------------------------------------------------------------------------- 07e8 ; SUBPROGRAM 07e8 ; -------------------------------------------------------------------------------------- 07e8 07ee | | .CONST 0x07ee ; Address of begin 07e9 0004 | | .CONST 0x0004 ; Address of exception handler 07ea 0002 | | .CONST 0x0002 ; Number of locals 07eb INIT_07e8: 07eb e607 | | Load 0x3,0x7 07ec e00a | | Load 0x0,0xa 07ed 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 07ee BODY_07e8: 07ee 4800 |H | Short_Literal 0x0 07ef e802 | | Load 0x4,0x2 07f0 0092 0888 | | Action Push_String_Extended,0x888 ; "LOAD" 07f2 e010 | | Load 0x0,0x10 07f3 181d | | Execute Package,Field_Execute,Field_Number 0x1d 07f4 a602 | | Store_Unchecked 0x3,0x2 07f5 4800 |H | Short_Literal 0x0 07f6 e802 | | Load 0x4,0x2 07f7 0092 0889 | | Action Push_String_Extended,0x889 ; ".SEG" 07f9 e010 | | Load 0x0,0x10 07fa 181d | | Execute Package,Field_Execute,Field_Number 0x1d 07fb a603 | | Store_Unchecked 0x3,0x3 07fc 4800 |H | Short_Literal 0x0 07fd e802 | | Load 0x4,0x2 07fe 0092 088a | | Action Push_String_Extended,0x88a ; "CODE " 0800 e010 | | Load 0x0,0x10 0801 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0802 a604 | | Store_Unchecked 0x3,0x4 0803 4800 |H | Short_Literal 0x0 0804 e802 | | Load 0x4,0x2 0805 0092 088b | | Action Push_String_Extended,0x88b ; "--" 0807 e010 | | Load 0x0,0x10 0808 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0809 a605 | | Store_Unchecked 0x3,0x5 080a e602 | | Load 0x3,0x2 080b e802 | | Load 0x4,0x2 080c 01dd | | Execute Vector,First 080d 027f | | Execute Discrete,Equal 080e 684b |hK | Jump_Zero 0x85a 080f e603 | | Load 0x3,0x3 0810 e602 | | Load 0x3,0x2 0811 027d | } | Execute Discrete,Greater 0812 6847 |hG | Jump_Zero 0x85a 0813 e604 | | Load 0x3,0x4 0814 e603 | | Load 0x3,0x3 0815 027d | } | Execute Discrete,Greater 0816 6843 |hC | Jump_Zero 0x85a 0817 e605 | | Load 0x3,0x5 0818 e604 | | Load 0x3,0x4 0819 027d | } | Execute Discrete,Greater 081a 683f |h? | Jump_Zero 0x85a 081b e604 | | Load 0x3,0x4 081c 0a05 | | Execute_Immediate Plus,0x5 081d c606 | | Store 0x3,0x6 081e 00cf | | Action Mark_Auxiliary 081f 7804 |x | Jump 0x824 0820 e606 | | Load 0x3,0x6 0821 0a01 | | Execute_Immediate Plus,0x1 0822 c606 | | Store 0x3,0x6 0823 00c9 | | Action Pop_Auxiliary_Loop 0824 e606 | | Load 0x3,0x6 0825 e802 | | Load 0x4,0x2 0826 01d7 | | Execute Vector,Field_Read 0827 0e20 | | Execute_Immediate Not_Equal,0x20 0828 77f7 |w | Jump_Nonzero 0x820 0829 00ce | | Action Pop_Auxiliary 082a 00e1 | | Load_Encached Boolean_Cache 082b 00e2 | | Load_Encached Integer_Cache 082c 4810 |H | Short_Literal 0x10 082d e604 | | Load 0x3,0x4 082e 0a05 | | Execute_Immediate Plus,0x5 082f 00d8 | | Load_Top At_Offset_0 0830 00e2 | | Load_Encached Integer_Cache 0831 0260 | ` | Execute Discrete,In_Type 0832 7001 |p | Jump_Nonzero 0x834 0833 0801 | | Execute_Immediate Raise,0x1 0834 e606 | | Load 0x3,0x6 0835 0aff | | Execute_Immediate Plus,-0x1 0836 e802 | | Load 0x4,0x2 0837 01cf | | Execute Vector,Slice_Read 0838 e010 | | Load 0x0,0x10 0839 1818 | | Execute Package,Field_Execute,Field_Number 0x18 083a c608 | | Store 0x3,0x8 083b c609 | | Store 0x3,0x9 083c e609 | | Load 0x3,0x9 083d 681c |h | Jump_Zero 0x85a 083e e405 | | Load 0x2,0x5 083f 4800 |H | Short_Literal 0x0 0840 e605 | | Load 0x3,0x5 0841 0a03 | | Execute_Immediate Plus,0x3 0842 00d8 | | Load_Top At_Offset_0 0843 00e2 | | Load_Encached Integer_Cache 0844 0260 | ` | Execute Discrete,In_Type 0845 7001 |p | Jump_Nonzero 0x847 0846 0801 | | Execute_Immediate Raise,0x1 0847 e802 | | Load 0x4,0x2 0848 01dc | | Execute Vector,Last 0849 e802 | | Load 0x4,0x2 084a 01cf | | Execute Vector,Slice_Read 084b e402 | | Load 0x2,0x2 084c 03b6 | | Declare_Variable Access,By_Allocation,With_Value 084d e608 | | Load 0x3,0x8 084e 00d8 | | Load_Top At_Offset_0 084f e008 | | Load 0x0,0x8 0850 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0851 0260 | ` | Execute Discrete,In_Type 0852 7001 |p | Jump_Nonzero 0x854 0853 0801 | | Execute_Immediate Raise,0x1 0854 e404 | | Load 0x2,0x4 0855 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0856 c405 | | Store 0x2,0x5 0857 e60b | | Load 0x3,0xb 0858 0a01 | | Execute_Immediate Plus,0x1 0859 c60b | | Store 0x3,0xb 085a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 085b ; -------------------------------------------------------------------------------------- 085b ; STRING TABLE 085b ; -------------------------------------------------------------------------------------- 085b 0064 | d | .STRTAB 0x0064->0x088d ; "Max_Tasks reached; not all tasks will be displayed" 085c 0095 | | .STRTAB 0x0095->0x08a6 ; "Operator Capability is required to use this command." 085d 00c7 | | .STRTAB 0x00c7->0x08c0 ; "scanning stack of " 085e 00d7 | | .STRTAB 0x00d7->0x08c9 ; " tos = " 085f 00dd | | .STRTAB 0x00dd->0x08cd ; " Exception in scan: " 0860 00ef | | .STRTAB 0x00ef->0x08d7 ; "s" 0861 00ee | | .STRTAB 0x00ee->0x08d8 ; "d" 0862 00ed | | .STRTAB 0x00ed->0x08d8 ; " (" 0863 00ed | | .STRTAB 0x00ed->0x08d9 ; "." 0864 00ec | | .STRTAB 0x00ec->0x08da ; ")" 0865 00eb | | .STRTAB 0x00eb->0x08da ; " [" 0866 00eb | | .STRTAB 0x00eb->0x08db ; "]." 0867 00eb | | .STRTAB 0x00eb->0x08dc ; "unknown - no table" 0868 00fb | | .STRTAB 0x00fb->0x08e5 ; " " 0869 00fa | | .STRTAB 0x00fa->0x08e6 ; " " 086a 00fa | | .STRTAB 0x00fa->0x08e7 ; "Discrete " 086b 0102 | | .STRTAB 0x0102->0x08ec ; "Subprogram - Ref" 086c 0110 | | .STRTAB 0x0110->0x08f4 ; "Subprogram" 086d 0118 | | .STRTAB 0x0118->0x08f9 ; "Subprogram - Elab, Ref" 086e 012c | , | .STRTAB 0x012c->0x0904 ; "Subprogram - Elab" 086f 013b | ; | .STRTAB 0x013b->0x090c ; "Task " 0870 0145 | E | .STRTAB 0x0145->0x0912 ; "Subprogram - Vis, Ref" 0871 0158 | X | .STRTAB 0x0158->0x091d ; "Subprogram - Vis, Elab, Ref" 0872 0171 | q | .STRTAB 0x0171->0x092a ; "Subprogram - Vis, Elaborated" 0873 018b | | .STRTAB 0x018b->0x0938 ; "Subprogram - accept block" 0874 01a2 | | .STRTAB 0x01a2->0x0945 ; "Package " 0875 01ac | | .STRTAB 0x01ac->0x094b ; "Accepted Rendezvous with " 0876 01c3 | | .STRTAB 0x01c3->0x0957 ; "Package " 0877 01c9 | | .STRTAB 0x01c9->0x095b ; "Task " 0878 01cf | | .STRTAB 0x01cf->0x095f ; " " 0879 01d1 | | .STRTAB 0x01d1->0x0961 ; " Pri=" 087a 01d4 | | .STRTAB 0x01d4->0x0964 ; " Parent=" 087b 01da | | .STRTAB 0x01da->0x0968 ; " SA=" 087c 01dc | | .STRTAB 0x01dc->0x096a ; "Fr Off Pc Outer Lx" 087d 01fb | | .STRTAB 0x01fb->0x097a ; "-- --- -------------- -------- --" 087e 021a | | .STRTAB 0x021a->0x098b ; "_" 087f 0219 | | .STRTAB 0x0219->0x098b ; ": temporarily not accessible" 0880 0233 | 3 | .STRTAB 0x0233->0x0999 ; "Exception: " 0881 023c | < | .STRTAB 0x023c->0x099f ; "Processing file: " 0882 024b | K | .STRTAB 0x024b->0x09a7 ; " ..." 0883 024d | M | .STRTAB 0x024d->0x09a9 ; " defined." 0884 0254 | T | .STRTAB 0x0254->0x09ae ; "Exception reading file: " 0885 026a | j | .STRTAB 0x026a->0x09ba ; "name=" 0886 026d | m | .STRTAB 0x026d->0x09bc ; " pc=" 0887 026f | o | .STRTAB 0x026f->0x09be ; ": " 0888 026f | o | .STRTAB 0x026f->0x09bf ; "LOAD" 0889 0271 | q | .STRTAB 0x0271->0x09c1 ; ".SEG" 088a 0273 | s | .STRTAB 0x0273->0x09c3 ; "CODE " 088b 0276 | v | .STRTAB 0x0276->0x09c6 ; "--" 088c 0276 | v | .STREND 0x0276->0x09c7 088d 4d61 785f |Max_| .STRTAB_STRINGS 09c7 0000 | | .XXX[0x1] 09c8 ; -------------------------------------------------------------------------------------- 09c8 ; Debug Table 09c8 ; -------------------------------------------------------------------------------------- 09c8 0004 0011 | | .DEBUG4 0x0004,0x0011,0x979e,0x0000,0x0001,0x0000 09ce 0000 0000 | | .BLANK 0000[0x32]