|
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_03b8fe
└─⟦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 09b0 | | .CONST 0x09b0 ; 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 e001 | | Load 0x0,0x1 0022 e002 | | Load 0x0,0x2 0023 48ef |H | Short_Literal 0xef 0024 e003 | | Load 0x0,0x3 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 e004 | | Load 0x0,0x4 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 e003 | | Load 0x0,0x3 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 01fb | | Declare_Subprogram INIT_01f8,For_Call 0049 029f 021b | | Declare_Subprogram INIT_0218,For_Call 004b 029f 0283 | | Declare_Subprogram INIT_0280,For_Call 004d 029f 0293 | | Declare_Subprogram INIT_0290,For_Call 004f 029f 02c3 | | Declare_Subprogram INIT_02c0,For_Call 0051 029f 05ab | | Declare_Subprogram INIT_05a8,For_Call 0053 029f 06bb | | Declare_Subprogram INIT_06b8,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 e005 | | Load 0x0,0x5 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 e006 | | Load 0x0,0x6 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 e007 | | Load 0x0,0x7 006c 1b15 | | Execute Package,Field_Read,Field_Number 0x15 006d 0260 | ` | Execute Discrete,In_Type 006e 7001 |p | Jump_Nonzero 0x70 006f 08e0 | | Execute_Immediate Raise,0xe0 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 e008 | | Load 0x0,0x8 0079 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 007a 0260 | ` | Execute Discrete,In_Type 007b 7001 |p | Jump_Nonzero 0x7d 007c 08e0 | | Execute_Immediate Raise,0xe0 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 0843 | C| Action Push_String_Extended,0x843 ; "Max_Tasks reached; not all tasks will be displayed" 00a2 e009 | | Load 0x0,0x9 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 0844 | D| Action Push_String_Extended,0x844 ; "Operator Capability is required to use this command." 00b3 e009 | | Load 0x0,0x9 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 e007 | | Load 0x0,0x7 00e6 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00e7 0260 | ` | Execute Discrete,In_Type 00e8 7001 |p | Jump_Nonzero 0xea 00e9 08e0 | | Execute_Immediate Raise,0xe0 00ea e003 | | Load 0x0,0x3 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 e007 | | Load 0x0,0x7 00ef 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00f0 e5ff | | Load 0x2,-0x1 00f1 00d8 | | Load_Top At_Offset_0 00f2 e007 | | Load 0x0,0x7 00f3 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00f4 0260 | ` | Execute Discrete,In_Type 00f5 7001 |p | Jump_Nonzero 0xf7 00f6 08e0 | | Execute_Immediate Raise,0xe0 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 e003 | | Load 0x0,0x3 0104 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 0105 0322 | " | Declare_Variable Record 0106 e003 | | Load 0x0,0x3 0107 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 0108 02c7 | | Declare_Variable Any 0109 e7ff | | Load 0x3,-0x1 010a e00a | | Load 0x0,0xa 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 0845 | E| Action Push_String_Extended,0x845 ; "scanning stack of " 0110 e7ff | | Load 0x3,-0x1 0111 e00a | | Load 0x0,0xa 0112 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0113 01cc | | Execute Vector,Catenate 0114 e009 | | Load 0x0,0x9 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 e003 | | Load 0x0,0x3 011b 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b 011c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 011d e00a | | Load 0x0,0xa 011e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 011f a604 | | Store_Unchecked 0x3,0x4 0120 0092 0846 | F| Action Push_String_Extended,0x846 ; " 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 e009 | | Load 0x0,0x9 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 e003 | | Load 0x0,0x3 0130 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 0131 0260 | ` | Execute Discrete,In_Type 0132 7001 |p | Jump_Nonzero 0x134 0133 08e0 | | Execute_Immediate Raise,0xe0 0134 e603 | | Load 0x3,0x3 0135 e003 | | Load 0x0,0x3 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 e003 | | Load 0x0,0x3 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 e00a | | Load 0x0,0xa 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 e00a | | Load 0x0,0xa 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 0847 | G| Action Push_String_Extended,0x847 ; " Exception in scan: " 0157 e00b | | Load 0x0,0xb 0158 180d | | Execute Package,Field_Execute,Field_Number 0xd 0159 01cc | | Execute Vector,Catenate 015a e009 | | Load 0x0,0x9 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 e008 | | Load 0x0,0x8 0165 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0166 0322 | " | Declare_Variable Record 0167 00e5 | | Load_Encached Long_Integer_Cache 0168 e00c | | Load 0x0,0xc 0169 1b0f | | Execute Package,Field_Read,Field_Number 0xf 016a 00e3 | | Load_Encached Natural_Cache 016b 029f 0733 | 3| Declare_Subprogram INIT_0730,For_Call 016d BODY_0160: 016d 8607 | | Call 0x3,0x7 016e 00cf | | Action Mark_Auxiliary 016f e00d | | Load 0x0,0xd 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 e00d | | Load 0x0,0xd 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 e00d | | Load 0x0,0xd 018c 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 018d 702a |p* | Jump_Nonzero 0x1b8 018e e603 | | Load 0x3,0x3 018f e00e | | Load 0x0,0xe 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 e008 | | Load 0x0,0x8 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 e007 | | Load 0x0,0x7 01a2 1b15 | | Execute Package,Field_Read,Field_Number 0x15 01a3 0260 | ` | Execute Discrete,In_Type 01a4 7001 |p | Jump_Nonzero 0x1a6 01a5 08e0 | | Execute_Immediate Raise,0xe0 01a6 e003 | | Load 0x0,0x3 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 e007 | | Load 0x0,0x7 01ad 1b15 | | Execute Package,Field_Read,Field_Number 0x15 01ae 0260 | ` | Execute Discrete,In_Type 01af 7001 |p | Jump_Nonzero 0x1b1 01b0 08e0 | | Execute_Immediate Raise,0xe0 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 01d7 | | .CONST 0x01d7 ; 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 0334 | 4 | Declare_Variable Array,With_Constraint 01c7 4801 |H | Short_Literal 0x1 01c8 e7ff | | Load 0x3,-0x1 01c9 00e9 | | Load_Encached String_Cache 01ca 0334 | 4 | Declare_Variable Array,With_Constraint 01cb 00d8 | | Load_Top At_Offset_0 01cc 01dc | | Execute Vector,Last 01cd 4801 |H | Short_Literal 0x1 01ce 0263 | c | Execute Discrete,Above_Bound 01cf 7005 |p | Jump_Nonzero 0x1d5 01d0 4820 |H | Short_Literal 0x20 01d1 e605 | | Load 0x3,0x5 01d2 e603 | | Load 0x3,0x3 01d3 01d6 | | Execute Vector,Field_Write 01d4 3ffb |? | Loop_Increasing 0x1d0 01d5 e602 | | Load 0x3,0x2 01d6 01d4 | | Execute Vector,Structure_Write 01d7 BODY_01c0: 01d7 e7fe | | Load 0x3,-0x2 01d8 01db | | Execute Vector,Length 01d9 e7ff | | Load 0x3,-0x1 01da 027d | } | Execute Discrete,Greater 01db 680f |h | Jump_Zero 0x1eb 01dc e7fd | | Load 0x3,-0x3 01dd 680b |h | Jump_Zero 0x1e9 01de e7fe | | Load 0x3,-0x2 01df 01dd | | Execute Vector,First 01e0 e7fe | | Load 0x3,-0x2 01e1 01dd | | Execute Vector,First 01e2 e7ff | | Load 0x3,-0x1 01e3 0273 | s | Execute Discrete,Plus 01e4 0aff | | Execute_Immediate Plus,-0x1 01e5 0248 | H | Execute Discrete,Check_In_Integer 01e6 e7fe | | Load 0x3,-0x2 01e7 01cf | | Execute Vector,Slice_Read 01e8 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01e9 e7fe | | Load 0x3,-0x2 01ea 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01eb 4801 |H | Short_Literal 0x1 01ec e7ff | | Load 0x3,-0x1 01ed e7fe | | Load 0x3,-0x2 01ee 01db | | Execute Vector,Length 01ef 0272 | r | Execute Discrete,Minus 01f0 0248 | H | Execute Discrete,Check_In_Integer 01f1 e602 | | Load 0x3,0x2 01f2 01cf | | Execute Vector,Slice_Read 01f3 e7fe | | Load 0x3,-0x2 01f4 01cc | | Execute Vector,Catenate 01f5 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01f6 0000 0000 | | .XXX[0x2] 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 01fb | | .CONST 0x01fb ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0001 | | .CONST 0x0001 ; Number of locals 01fb BODY_01f8: 01fb INIT_01f8: 01fb e7ff | | Load 0x3,-0x1 01fc 0c01 | | Execute_Immediate Greater_Equal,0x1 01fd 680a |h | Jump_Zero 0x208 01fe 4820 |H | Short_Literal 0x20 01ff 4800 |H | Short_Literal 0x0 0200 480a |H | Short_Literal 0xa 0201 e7ff | | Load 0x3,-0x1 0202 e00f | | Load 0x0,0xf 0203 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0204 0092 0848 | H| Action Push_String_Extended,0x848 ; "s" 0206 01cc | | Execute Vector,Catenate 0207 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0208 e7ff | | Load 0x3,-0x1 0209 0d00 | | Execute_Immediate Less,0x0 020a 680b |h | Jump_Zero 0x216 020b 4820 |H | Short_Literal 0x20 020c 4800 |H | Short_Literal 0x0 020d 480a |H | Short_Literal 0xa 020e e7ff | | Load 0x3,-0x1 020f 0275 | u | Execute Discrete,Unary_Minus 0210 e00f | | Load 0x0,0xf 0211 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0212 0092 0849 | I| Action Push_String_Extended,0x849 ; "d" 0214 01cc | | Execute Vector,Catenate 0215 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0216 00ea | | Load_Encached Null_String_Cache 0217 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 0226 | & | .CONST 0x0226 ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 0009 | | .CONST 0x0009 ; Number of locals 021b INIT_0218: 021b 00e1 | | Load_Encached Boolean_Cache 021c 03e9 | | Declare_Variable Discrete,Duplicate 021d 03e9 | | Declare_Variable Discrete,Duplicate 021e e402 | | Load 0x2,0x2 021f 0007 | | Action Break_Optional 0220 e010 | | Load 0x0,0x10 0221 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0222 0322 | " | Declare_Variable Record 0223 00e2 | | Load_Encached Integer_Cache 0224 03e9 | | Declare_Variable Discrete,Duplicate 0225 03e9 | | Declare_Variable Discrete,Duplicate 0226 BODY_0218: 0226 e606 | | Load 0x3,0x6 0227 00e1 | | Load_Encached Boolean_Cache 0228 00e1 | | Load_Encached Boolean_Cache 0229 e7ff | | Load 0x3,-0x1 022a e010 | | Load 0x0,0x10 022b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 022c c602 | | Store 0x3,0x2 022d c603 | | Store 0x3,0x3 022e 00d1 | | Pop_Control Pop_Count_1 022f e602 | | Load 0x3,0x2 0230 6807 |h | Jump_Zero 0x238 0231 e603 | | Load 0x3,0x3 0232 6805 |h | Jump_Zero 0x238 0233 4801 |H | Short_Literal 0x1 0234 e7ff | | Load 0x3,-0x1 0235 e010 | | Load 0x0,0x10 0236 180d | | Execute Package,Field_Execute,Field_Number 0xd 0237 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0238 00e1 | | Load_Encached Boolean_Cache 0239 00e2 | | Load_Encached Integer_Cache 023a 00e2 | | Load_Encached Integer_Cache 023b 00e2 | | Load_Encached Integer_Cache 023c e7ff | | Load 0x3,-0x1 023d e011 | | Load 0x0,0x11 023e 180e | | Execute Package,Field_Execute,Field_Number 0xe 023f c607 | | Store 0x3,0x7 0240 c608 | | Store 0x3,0x8 0241 c609 | | Store 0x3,0x9 0242 c602 | | Store 0x3,0x2 0243 00e1 | | Load_Encached Boolean_Cache 0244 e605 | | Load 0x3,0x5 0245 e7ff | | Load 0x3,-0x1 0246 e003 | | Load 0x0,0x3 0247 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0248 e405 | | Load 0x2,0x5 0249 e404 | | Load 0x2,0x4 024a 1816 | | Execute Package,Field_Execute,Field_Number 0x16 024b c605 | | Store 0x3,0x5 024c c604 | | Store 0x3,0x4 024d e604 | | Load 0x3,0x4 024e 6816 |h | Jump_Zero 0x265 024f e605 | | Load 0x3,0x5 0250 0227 | ' | Execute Access,All_Reference 0251 0092 084a | J| Action Push_String_Extended,0x84a ; " (" 0253 01cc | | Execute Vector,Catenate 0254 4820 |H | Short_Literal 0x20 0255 4800 |H | Short_Literal 0x0 0256 480a |H | Short_Literal 0xa 0257 e608 | | Load 0x3,0x8 0258 e00f | | Load 0x0,0xf 0259 1816 | | Execute Package,Field_Execute,Field_Number 0x16 025a 01cc | | Execute Vector,Catenate 025b 0092 084b | K| Action Push_String_Extended,0x84b ; "." 025d 01cc | | Execute Vector,Catenate 025e e609 | | Load 0x3,0x9 025f 8410 | | Call 0x2,0x10 0260 01cc | | Execute Vector,Catenate 0261 0092 084c | L| Action Push_String_Extended,0x84c ; ")" 0263 01cc | | Execute Vector,Catenate 0264 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0265 e602 | | Load 0x3,0x2 0266 6811 |h | Jump_Zero 0x278 0267 0092 084d | M| Action Push_String_Extended,0x84d ; " [" 0269 e607 | | Load 0x3,0x7 026a 00e0 | | Load_Encached Standard_Cache 026b 1818 | | Execute Package,Field_Execute,Field_Number 0x18 026c 01cc | | Execute Vector,Catenate 026d e608 | | Load 0x3,0x8 026e 00e0 | | Load_Encached Standard_Cache 026f 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0270 01cc | | Execute Vector,Catenate 0271 0092 084e | N| Action Push_String_Extended,0x84e ; "]." 0273 01cc | | Execute Vector,Catenate 0274 e609 | | Load 0x3,0x9 0275 8410 | | Call 0x2,0x10 0276 01cc | | Execute Vector,Catenate 0277 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0278 0092 084f | O| Action Push_String_Extended,0x84f ; "unknown - no table" 027a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 027b 0000 0000 | | .BLANK 0000[0x5] 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 0283 | | .CONST 0x0283 ; Address of begin 0281 0004 | | .CONST 0x0004 ; Address of exception handler 0282 0001 | | .CONST 0x0001 ; Number of locals 0283 BODY_0280: 0283 INIT_0280: 0283 4801 |H | Short_Literal 0x1 0284 e7ff | | Load 0x3,-0x1 0285 e003 | | Load 0x0,0x3 0286 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 0287 025e | ^ | Execute Discrete,Convert 0288 1c01 | | Execute_Immediate Run_Utility,0x1 0289 480a |H | Short_Literal 0xa 028a 840f | | Call 0x2,0xf 028b 0092 0850 | P| Action Push_String_Extended,0x850 ; " " 028d 01cc | | Execute Vector,Catenate 028e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 028f 0000 | | .XXX[0x1] 0290 ; -------------------------------------------------------------------------------------- 0290 ; SUBPROGRAM 0290 ; -------------------------------------------------------------------------------------- 0290 029d | | .CONST 0x029d ; Address of begin 0291 0004 | | .CONST 0x0004 ; Address of exception handler 0292 0002 | | .CONST 0x0002 ; Number of locals 0293 INIT_0290: 0293 4801 |H | Short_Literal 0x1 0294 4810 |H | Short_Literal 0x10 0295 00e9 | | Load_Encached String_Cache 0296 0334 | 4 | Declare_Variable Array,With_Constraint 0297 4830 |H0 | Short_Literal 0x30 0298 4810 |H | Short_Literal 0x10 0299 e7ff | | Load 0x3,-0x1 029a 8012 | | Call 0x0,0x12 029b e602 | | Load 0x3,0x2 029c 01d4 | | Execute Vector,Structure_Write 029d BODY_0290: 029d 4801 |H | Short_Literal 0x1 029e 4804 |H | Short_Literal 0x4 029f e602 | | Load 0x3,0x2 02a0 01cf | | Execute Vector,Slice_Read 02a1 0092 0850 | P| Action Push_String_Extended,0x850 ; " " 02a3 01cc | | Execute Vector,Catenate 02a4 4805 |H | Short_Literal 0x5 02a5 4808 |H | Short_Literal 0x8 02a6 e602 | | Load 0x3,0x2 02a7 01cf | | Execute Vector,Slice_Read 02a8 01cc | | Execute Vector,Catenate 02a9 0092 0850 | P| Action Push_String_Extended,0x850 ; " " 02ab 01cc | | Execute Vector,Catenate 02ac 4809 |H | Short_Literal 0x9 02ad 480c |H | Short_Literal 0xc 02ae e602 | | Load 0x3,0x2 02af 01cf | | Execute Vector,Slice_Read 02b0 01cc | | Execute Vector,Catenate 02b1 0092 0850 | P| Action Push_String_Extended,0x850 ; " " 02b3 01cc | | Execute Vector,Catenate 02b4 480d |H | Short_Literal 0xd 02b5 4810 |H | Short_Literal 0x10 02b6 e602 | | Load 0x3,0x2 02b7 01cf | | Execute Vector,Slice_Read 02b8 01cc | | Execute Vector,Catenate 02b9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02ba 0000 0000 | | .BLANK 0000[0x6] 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; SUBPROGRAM 02c0 ; -------------------------------------------------------------------------------------- 02c0 02d3 | | .CONST 0x02d3 ; Address of begin 02c1 0004 | | .CONST 0x0004 ; Address of exception handler 02c2 0005 | | .CONST 0x0005 ; Number of locals 02c3 INIT_02c0: 02c3 e7ff | | Load 0x3,-0x1 02c4 e003 | | Load 0x0,0x3 02c5 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c 02c6 e003 | | Load 0x0,0x3 02c7 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 02c8 03f1 | | Declare_Variable Discrete,With_Value 02c9 e7ff | | Load 0x3,-0x1 02ca 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02cb 00e5 | | Load_Encached Long_Integer_Cache 02cc 03f1 | | Declare_Variable Discrete,With_Value 02cd e7ff | | Load 0x3,-0x1 02ce 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02cf 00e5 | | Load_Encached Long_Integer_Cache 02d0 03f1 | | Declare_Variable Discrete,With_Value 02d1 029f 0743 | C| Declare_Subprogram INIT_0740,For_Call 02d3 BODY_02c0: 02d3 e602 | | Load 0x3,0x2 02d4 467f |F | Jump_Case 0x80 02d5 788b |x | Jump 0x361 ; case 0x0 02d6 7894 |x | Jump 0x36b ; case 0x1 02d7 789f |x | Jump 0x377 ; case 0x2 02d8 78a1 |x | Jump 0x37a ; case 0x3 02d9 78ac |x | Jump 0x386 ; case 0x4 02da 78b7 |x | Jump 0x392 ; case 0x5 02db 78c2 |x | Jump 0x39e ; case 0x6 02dc 78c4 |x | Jump 0x3a1 ; case 0x7 02dd 78cf |x | Jump 0x3ad ; case 0x8 02de 7ab0 |z | Jump 0x58f ; case 0x9 02df 78d9 |x | Jump 0x3b9 ; case 0xa 02e0 7aae |z | Jump 0x58f ; case 0xb 02e1 78e3 |x | Jump 0x3c5 ; case 0xc 02e2 7aac |z | Jump 0x58f ; case 0xd 02e3 78ed |x | Jump 0x3d1 ; case 0xe 02e4 7aaa |z | Jump 0x58f ; case 0xf 02e5 78f7 |x | Jump 0x3dd ; case 0x10 02e6 7902 |y | Jump 0x3e9 ; case 0x11 02e7 790d |y | Jump 0x3f5 ; case 0x12 02e8 7aa6 |z | Jump 0x58f ; case 0x13 02e9 790e |y | Jump 0x3f8 ; case 0x14 02ea 7919 |y | Jump 0x404 ; case 0x15 02eb 7924 |y$ | Jump 0x410 ; case 0x16 02ec 7aa2 |z | Jump 0x58f ; case 0x17 02ed 7925 |y% | Jump 0x413 ; case 0x18 02ee 7932 |y2 | Jump 0x421 ; case 0x19 02ef 7a9f |z | Jump 0x58f ; case 0x1a 02f0 7a9e |z | Jump 0x58f ; case 0x1b 02f1 793b |y; | Jump 0x42d ; case 0x1c 02f2 7a9c |z | Jump 0x58f ; case 0x1d 02f3 7945 |yE | Jump 0x439 ; case 0x1e 02f4 7950 |yP | Jump 0x445 ; case 0x1f 02f5 7a99 |z | Jump 0x58f ; case 0x20 02f6 795a |yZ | Jump 0x451 ; case 0x21 02f7 7965 |ye | Jump 0x45d ; case 0x22 02f8 7a96 |z | Jump 0x58f ; case 0x23 02f9 7966 |yf | Jump 0x460 ; case 0x24 02fa 7a94 |z | Jump 0x58f ; case 0x25 02fb 7970 |yp | Jump 0x46c ; case 0x26 02fc 7a92 |z | Jump 0x58f ; case 0x27 02fd 7a91 |z | Jump 0x58f ; case 0x28 02fe 7979 |yy | Jump 0x478 ; case 0x29 02ff 7a8f |z | Jump 0x58f ; case 0x2a 0300 7a8e |z | Jump 0x58f ; case 0x2b 0301 7982 |y | Jump 0x484 ; case 0x2c 0302 7a8c |z | Jump 0x58f ; case 0x2d 0303 798c |y | Jump 0x490 ; case 0x2e 0304 7a8a |z | Jump 0x58f ; case 0x2f 0305 7a89 |z | Jump 0x58f ; case 0x30 0306 7a88 |z | Jump 0x58f ; case 0x31 0307 7994 |y | Jump 0x49c ; case 0x32 0308 7a86 |z | Jump 0x58f ; case 0x33 0309 7a85 |z | Jump 0x58f ; case 0x34 030a 7a84 |z | Jump 0x58f ; case 0x35 030b 7993 |y | Jump 0x49f ; case 0x36 030c 7a82 |z | Jump 0x58f ; case 0x37 030d 7994 |y | Jump 0x4a2 ; case 0x38 030e 7a80 |z | Jump 0x58f ; case 0x39 030f 7a7f |z | Jump 0x58f ; case 0x3a 0310 7a7e |z~ | Jump 0x58f ; case 0x3b 0311 799c |y | Jump 0x4ae ; case 0x3c 0312 7a7c |z| | Jump 0x58f ; case 0x3d 0313 79a6 |y | Jump 0x4ba ; case 0x3e 0314 79b1 |y | Jump 0x4c6 ; case 0x3f 0315 7a79 |zy | Jump 0x58f ; case 0x40 0316 79bb |y | Jump 0x4d2 ; case 0x41 0317 79c6 |y | Jump 0x4de ; case 0x42 0318 7a76 |zv | Jump 0x58f ; case 0x43 0319 79d0 |y | Jump 0x4ea ; case 0x44 031a 7a74 |zt | Jump 0x58f ; case 0x45 031b 79da |y | Jump 0x4f6 ; case 0x46 031c 7a72 |zr | Jump 0x58f ; case 0x47 031d 7a71 |zq | Jump 0x58f ; case 0x48 031e 79da |y | Jump 0x4f9 ; case 0x49 031f 7a6f |zo | Jump 0x58f ; case 0x4a 0320 7a6e |zn | Jump 0x58f ; case 0x4b 0321 79e3 |y | Jump 0x505 ; case 0x4c 0322 7a6c |zl | Jump 0x58f ; case 0x4d 0323 79ed |y | Jump 0x511 ; case 0x4e 0324 7a6a |zj | Jump 0x58f ; case 0x4f 0325 7a69 |zi | Jump 0x58f ; case 0x50 0326 7a68 |zh | Jump 0x58f ; case 0x51 0327 79f5 |y | Jump 0x51d ; case 0x52 0328 7a66 |zf | Jump 0x58f ; case 0x53 0329 7a65 |ze | Jump 0x58f ; case 0x54 032a 7a64 |zd | Jump 0x58f ; case 0x55 032b 79fd |y | Jump 0x529 ; case 0x56 032c 7a62 |zb | Jump 0x58f ; case 0x57 032d 7a07 |z | Jump 0x535 ; case 0x58 032e 7a60 |z` | Jump 0x58f ; case 0x59 032f 7a5f |z_ | Jump 0x58f ; case 0x5a 0330 7a5e |z^ | Jump 0x58f ; case 0x5b 0331 7a5d |z] | Jump 0x58f ; case 0x5c 0332 7a5c |z\ | Jump 0x58f ; case 0x5d 0333 7a5b |z[ | Jump 0x58f ; case 0x5e 0334 7a0e |z | Jump 0x543 ; case 0x5f 0335 7a59 |zY | Jump 0x58f ; case 0x60 0336 7a58 |zX | Jump 0x58f ; case 0x61 0337 7a57 |zW | Jump 0x58f ; case 0x62 0338 7a56 |zV | Jump 0x58f ; case 0x63 0339 7a55 |zU | Jump 0x58f ; case 0x64 033a 7a54 |zT | Jump 0x58f ; case 0x65 033b 7a53 |zS | Jump 0x58f ; case 0x66 033c 7a52 |zR | Jump 0x58f ; case 0x67 033d 7a51 |zQ | Jump 0x58f ; case 0x68 033e 7a50 |zP | Jump 0x58f ; case 0x69 033f 7a4f |zO | Jump 0x58f ; case 0x6a 0340 7a4e |zN | Jump 0x58f ; case 0x6b 0341 7a0f |z | Jump 0x551 ; case 0x6c 0342 7a4c |zL | Jump 0x58f ; case 0x6d 0343 7a19 |z | Jump 0x55d ; case 0x6e 0344 7a4a |zJ | Jump 0x58f ; case 0x6f 0345 7a49 |zI | Jump 0x58f ; case 0x70 0346 7a48 |zH | Jump 0x58f ; case 0x71 0347 7a47 |zG | Jump 0x58f ; case 0x72 0348 7a46 |zF | Jump 0x58f ; case 0x73 0349 7a1f |z | Jump 0x569 ; case 0x74 034a 7a44 |zD | Jump 0x58f ; case 0x75 034b 7a29 |z) | Jump 0x575 ; case 0x76 034c 7a42 |zB | Jump 0x58f ; case 0x77 034d 7a41 |zA | Jump 0x58f ; case 0x78 034e 7a40 |z@ | Jump 0x58f ; case 0x79 034f 7a3f |z? | Jump 0x58f ; case 0x7a 0350 7a3e |z> | Jump 0x58f ; case 0x7b 0351 7a2f |z/ | Jump 0x581 ; case 0x7c 0352 7a3c |z< | Jump 0x58f ; case 0x7d 0353 7a39 |z9 | Jump 0x58d ; case 0x7e 0354 7800 |x | Jump 0x355 ; case 0x7f 0355 e602 | | Load 0x3,0x2 0356 8412 | | Call 0x2,0x12 0357 e603 | | Load 0x3,0x3 0358 8413 | | Call 0x2,0x13 0359 01cc | | Execute Vector,Catenate 035a 0092 0851 | Q| Action Push_String_Extended,0x851 ; " " 035c 01cc | | Execute Vector,Catenate 035d e604 | | Load 0x3,0x4 035e 8413 | | Call 0x2,0x13 035f 01cc | | Execute Vector,Catenate 0360 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0361 0092 0852 | R| Action Push_String_Extended,0x852 ; "Discrete " 0363 4820 |H | Short_Literal 0x20 0364 4800 |H | Short_Literal 0x0 0365 480a |H | Short_Literal 0xa 0366 e604 | | Load 0x3,0x4 0367 e00f | | Load 0x0,0xf 0368 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0369 01cc | | Execute Vector,Catenate 036a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 036b e602 | | Load 0x3,0x2 036c 8412 | | Call 0x2,0x12 036d e603 | | Load 0x3,0x3 036e 8413 | | Call 0x2,0x13 036f 01cc | | Execute Vector,Catenate 0370 0092 0851 | Q| Action Push_String_Extended,0x851 ; " " 0372 01cc | | Execute Vector,Catenate 0373 e604 | | Load 0x3,0x4 0374 8413 | | Call 0x2,0x13 0375 01cc | | Execute Vector,Catenate 0376 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0377 0092 0853 | S| Action Push_String_Extended,0x853 ; "Subprogram - Ref" 0379 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 037a e602 | | Load 0x3,0x2 037b 8412 | | Call 0x2,0x12 037c e603 | | Load 0x3,0x3 037d 8413 | | Call 0x2,0x13 037e 01cc | | Execute Vector,Catenate 037f 0092 0851 | Q| Action Push_String_Extended,0x851 ; " " 0381 01cc | | Execute Vector,Catenate 0382 e604 | | Load 0x3,0x4 0383 8413 | | Call 0x2,0x13 0384 01cc | | Execute Vector,Catenate 0385 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0386 e602 | | Load 0x3,0x2 0387 8412 | | Call 0x2,0x12 0388 e603 | | Load 0x3,0x3 0389 8413 | | Call 0x2,0x13 038a 01cc | | Execute Vector,Catenate 038b 0092 0851 | Q| Action Push_String_Extended,0x851 ; " " 038d 01cc | | Execute Vector,Catenate 038e e604 | | Load 0x3,0x4 038f 8413 | | Call 0x2,0x13 0390 01cc | | Execute Vector,Catenate 0391 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0392 e602 | | Load 0x3,0x2 0393 8412 | | Call 0x2,0x12 0394 e603 | | Load 0x3,0x3 0395 8413 | | Call 0x2,0x13 0396 01cc | | Execute Vector,Catenate 0397 0092 0851 | Q| Action Push_String_Extended,0x851 ; " " 0399 01cc | | Execute Vector,Catenate 039a e604 | | Load 0x3,0x4 039b 8413 | | Call 0x2,0x13 039c 01cc | | Execute Vector,Catenate 039d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 039e 0092 0854 | T| Action Push_String_Extended,0x854 ; "Subprogram" 03a0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03a1 e602 | | Load 0x3,0x2 03a2 8412 | | Call 0x2,0x12 03a3 e603 | | Load 0x3,0x3 03a4 8413 | | Call 0x2,0x13 03a5 01cc | | Execute Vector,Catenate 03a6 0092 0851 | Q| Action Push_String_Extended,0x851 ; " " 03a8 01cc | | Execute Vector,Catenate 03a9 e604 | | Load 0x3,0x4 03aa 8413 | | Call 0x2,0x13 03ab 01cc | | Execute Vector,Catenate 03ac 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03ad e602 | | Load 0x3,0x2 03ae 8412 | | Call 0x2,0x12 03af e603 | | Load 0x3,0x3 03b0 8413 | | Call 0x2,0x13 03b1 01cc | | Execute Vector,Catenate 03b2 0092 0851 | Q| Action Push_String_Extended,0x851 ; " " 03b4 01cc | | Execute Vector,Catenate 03b5 e604 | | Load 0x3,0x4 03b6 8413 | | Call 0x2,0x13 03b7 01cc | | Execute Vector,Catenate 03b8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03b9 e602 | | Load 0x3,0x2 03ba 8412 | | Call 0x2,0x12 03bb e603 | | Load 0x3,0x3 03bc 8413 | | Call 0x2,0x13 03bd 01cc | | Execute Vector,Catenate 03be 0092 0851 | Q| Action Push_String_Extended,0x851 ; " " 03c0 01cc | | Execute Vector,Catenate 03c1 e604 | | Load 0x3,0x4 03c2 8413 | | Call 0x2,0x13 03c3 01cc | | Execute Vector,Catenate 03c4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03c5 e602 | | Load 0x3,0x2 03c6 8412 | | Call 0x2,0x12 03c7 e603 | | Load 0x3,0x3 03c8 8413 | | Call 0x2,0x13 03c9 01cc | | Execute Vector,Catenate 03ca 0092 0851 | Q| Action Push_String_Extended,0x851 ; " " 03cc 01cc | | Execute Vector,Catenate 03cd e604 | | Load 0x3,0x4 03ce 8413 | | Call 0x2,0x13 03cf 01cc | | Execute Vector,Catenate 03d0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03d1 e602 | | Load 0x3,0x2 03d2 8412 | | Call 0x2,0x12 03d3 e603 | | Load 0x3,0x3 03d4 8413 | | Call 0x2,0x13 03d5 01cc | | Execute Vector,Catenate 03d6 0092 0851 | Q| Action Push_String_Extended,0x851 ; " " 03d8 01cc | | Execute Vector,Catenate 03d9 e604 | | Load 0x3,0x4 03da 8413 | | Call 0x2,0x13 03db 01cc | | Execute Vector,Catenate 03dc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03dd e602 | | Load 0x3,0x2 03de 8412 | | Call 0x2,0x12 03df e603 | | Load 0x3,0x3 03e0 8413 | | Call 0x2,0x13 03e1 01cc | | Execute Vector,Catenate 03e2 0092 0851 | Q| Action Push_String_Extended,0x851 ; " " 03e4 01cc | | Execute Vector,Catenate 03e5 e604 | | Load 0x3,0x4 03e6 8413 | | Call 0x2,0x13 03e7 01cc | | Execute Vector,Catenate 03e8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03e9 e602 | | Load 0x3,0x2 03ea 8412 | | Call 0x2,0x12 03eb e603 | | Load 0x3,0x3 03ec 8413 | | Call 0x2,0x13 03ed 01cc | | Execute Vector,Catenate 03ee 0092 0851 | Q| Action Push_String_Extended,0x851 ; " " 03f0 01cc | | Execute Vector,Catenate 03f1 e604 | | Load 0x3,0x4 03f2 8413 | | Call 0x2,0x13 03f3 01cc | | Execute Vector,Catenate 03f4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03f5 0092 0855 | U| Action Push_String_Extended,0x855 ; "Subprogram - Elab, Ref" 03f7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03f8 e602 | | Load 0x3,0x2 03f9 8412 | | Call 0x2,0x12 03fa e603 | | Load 0x3,0x3 03fb 8413 | | Call 0x2,0x13 03fc 01cc | | Execute Vector,Catenate 03fd 0092 0851 | Q| Action Push_String_Extended,0x851 ; " " 03ff 01cc | | Execute Vector,Catenate 0400 e604 | | Load 0x3,0x4 0401 8413 | | Call 0x2,0x13 0402 01cc | | Execute Vector,Catenate 0403 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0404 e602 | | Load 0x3,0x2 0405 8412 | | Call 0x2,0x12 0406 e603 | | Load 0x3,0x3 0407 8413 | | Call 0x2,0x13 0408 01cc | | Execute Vector,Catenate 0409 0092 0851 | Q| Action Push_String_Extended,0x851 ; " " 040b 01cc | | Execute Vector,Catenate 040c e604 | | Load 0x3,0x4 040d 8413 | | Call 0x2,0x13 040e 01cc | | Execute Vector,Catenate 040f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0410 0092 0856 | V| Action Push_String_Extended,0x856 ; "Subprogram - Elab" 0412 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0413 0092 0857 | W| Action Push_String_Extended,0x857 ; "Task " 0415 4820 |H | Short_Literal 0x20 0416 4800 |H | Short_Literal 0x0 0417 4810 |H | Short_Literal 0x10 0418 4820 |H | Short_Literal 0x20 0419 4800 |H | Short_Literal 0x0 041a e604 | | Load 0x3,0x4 041b e00a | | Load 0x0,0xa 041c 1814 | | Execute Package,Field_Execute,Field_Number 0x14 041d e00f | | Load 0x0,0xf 041e 1817 | | Execute Package,Field_Execute,Field_Number 0x17 041f 01cc | | Execute Vector,Catenate 0420 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0421 e602 | | Load 0x3,0x2 0422 8412 | | Call 0x2,0x12 0423 e603 | | Load 0x3,0x3 0424 8413 | | Call 0x2,0x13 0425 01cc | | Execute Vector,Catenate 0426 0092 0851 | Q| Action Push_String_Extended,0x851 ; " " 0428 01cc | | Execute Vector,Catenate 0429 e604 | | Load 0x3,0x4 042a 8413 | | Call 0x2,0x13 042b 01cc | | Execute Vector,Catenate 042c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 042d e602 | | Load 0x3,0x2 042e 8412 | | Call 0x2,0x12 042f e603 | | Load 0x3,0x3 0430 8413 | | Call 0x2,0x13 0431 01cc | | Execute Vector,Catenate 0432 0092 0851 | Q| Action Push_String_Extended,0x851 ; " " 0434 01cc | | Execute Vector,Catenate 0435 e604 | | Load 0x3,0x4 0436 8413 | | Call 0x2,0x13 0437 01cc | | Execute Vector,Catenate 0438 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0439 e602 | | Load 0x3,0x2 043a 8412 | | Call 0x2,0x12 043b e603 | | Load 0x3,0x3 043c 8413 | | Call 0x2,0x13 043d 01cc | | Execute Vector,Catenate 043e 0092 0851 | Q| Action Push_String_Extended,0x851 ; " " 0440 01cc | | Execute Vector,Catenate 0441 e604 | | Load 0x3,0x4 0442 8413 | | Call 0x2,0x13 0443 01cc | | Execute Vector,Catenate 0444 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0445 e602 | | Load 0x3,0x2 0446 8412 | | Call 0x2,0x12 0447 e603 | | Load 0x3,0x3 0448 8413 | | Call 0x2,0x13 0449 01cc | | Execute Vector,Catenate 044a 0092 0851 | Q| Action Push_String_Extended,0x851 ; " " 044c 01cc | | Execute Vector,Catenate 044d e604 | | Load 0x3,0x4 044e 8413 | | Call 0x2,0x13 044f 01cc | | Execute Vector,Catenate 0450 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0451 e602 | | Load 0x3,0x2 0452 8412 | | Call 0x2,0x12 0453 e603 | | Load 0x3,0x3 0454 8413 | | Call 0x2,0x13 0455 01cc | | Execute Vector,Catenate 0456 0092 0851 | Q| Action Push_String_Extended,0x851 ; " " 0458 01cc | | Execute Vector,Catenate 0459 e604 | | Load 0x3,0x4 045a 8413 | | Call 0x2,0x13 045b 01cc | | Execute Vector,Catenate 045c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 045d 0092 0858 | X| Action Push_String_Extended,0x858 ; "Subprogram - Vis, Ref" 045f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0460 e602 | | Load 0x3,0x2 0461 8412 | | Call 0x2,0x12 0462 e603 | | Load 0x3,0x3 0463 8413 | | Call 0x2,0x13 0464 01cc | | Execute Vector,Catenate 0465 0092 0851 | Q| Action Push_String_Extended,0x851 ; " " 0467 01cc | | Execute Vector,Catenate 0468 e604 | | Load 0x3,0x4 0469 8413 | | Call 0x2,0x13 046a 01cc | | Execute Vector,Catenate 046b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 046c e602 | | Load 0x3,0x2 046d 8412 | | Call 0x2,0x12 046e e603 | | Load 0x3,0x3 046f 8413 | | Call 0x2,0x13 0470 01cc | | Execute Vector,Catenate 0471 0092 0851 | Q| Action Push_String_Extended,0x851 ; " " 0473 01cc | | Execute Vector,Catenate 0474 e604 | | Load 0x3,0x4 0475 8413 | | Call 0x2,0x13 0476 01cc | | Execute Vector,Catenate 0477 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0478 e602 | | Load 0x3,0x2 0479 8412 | | Call 0x2,0x12 047a e603 | | Load 0x3,0x3 047b 8413 | | Call 0x2,0x13 047c 01cc | | Execute Vector,Catenate 047d 0092 0851 | Q| Action Push_String_Extended,0x851 ; " " 047f 01cc | | Execute Vector,Catenate 0480 e604 | | Load 0x3,0x4 0481 8413 | | Call 0x2,0x13 0482 01cc | | Execute Vector,Catenate 0483 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0484 e602 | | Load 0x3,0x2 0485 8412 | | Call 0x2,0x12 0486 e603 | | Load 0x3,0x3 0487 8413 | | Call 0x2,0x13 0488 01cc | | Execute Vector,Catenate 0489 0092 0851 | Q| Action Push_String_Extended,0x851 ; " " 048b 01cc | | Execute Vector,Catenate 048c e604 | | Load 0x3,0x4 048d 8413 | | Call 0x2,0x13 048e 01cc | | Execute Vector,Catenate 048f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0490 e602 | | Load 0x3,0x2 0491 8412 | | Call 0x2,0x12 0492 e603 | | Load 0x3,0x3 0493 8413 | | Call 0x2,0x13 0494 01cc | | Execute Vector,Catenate 0495 0092 0851 | Q| Action Push_String_Extended,0x851 ; " " 0497 01cc | | Execute Vector,Catenate 0498 e604 | | Load 0x3,0x4 0499 8413 | | Call 0x2,0x13 049a 01cc | | Execute Vector,Catenate 049b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 049c 0092 0859 | Y| Action Push_String_Extended,0x859 ; "Subprogram - Vis, Elab, Ref" 049e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 049f 0092 085a | Z| Action Push_String_Extended,0x85a ; "Subprogram - Vis, Elaborated" 04a1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04a2 e602 | | Load 0x3,0x2 04a3 8412 | | Call 0x2,0x12 04a4 e603 | | Load 0x3,0x3 04a5 8413 | | Call 0x2,0x13 04a6 01cc | | Execute Vector,Catenate 04a7 0092 0851 | Q| Action Push_String_Extended,0x851 ; " " 04a9 01cc | | Execute Vector,Catenate 04aa e604 | | Load 0x3,0x4 04ab 8413 | | Call 0x2,0x13 04ac 01cc | | Execute Vector,Catenate 04ad 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04ae e602 | | Load 0x3,0x2 04af 8412 | | Call 0x2,0x12 04b0 e603 | | Load 0x3,0x3 04b1 8413 | | Call 0x2,0x13 04b2 01cc | | Execute Vector,Catenate 04b3 0092 0851 | Q| Action Push_String_Extended,0x851 ; " " 04b5 01cc | | Execute Vector,Catenate 04b6 e604 | | Load 0x3,0x4 04b7 8413 | | Call 0x2,0x13 04b8 01cc | | Execute Vector,Catenate 04b9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04ba e602 | | Load 0x3,0x2 04bb 8412 | | Call 0x2,0x12 04bc e603 | | Load 0x3,0x3 04bd 8413 | | Call 0x2,0x13 04be 01cc | | Execute Vector,Catenate 04bf 0092 0851 | Q| Action Push_String_Extended,0x851 ; " " 04c1 01cc | | Execute Vector,Catenate 04c2 e604 | | Load 0x3,0x4 04c3 8413 | | Call 0x2,0x13 04c4 01cc | | Execute Vector,Catenate 04c5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04c6 e602 | | Load 0x3,0x2 04c7 8412 | | Call 0x2,0x12 04c8 e603 | | Load 0x3,0x3 04c9 8413 | | Call 0x2,0x13 04ca 01cc | | Execute Vector,Catenate 04cb 0092 0851 | Q| Action Push_String_Extended,0x851 ; " " 04cd 01cc | | Execute Vector,Catenate 04ce e604 | | Load 0x3,0x4 04cf 8413 | | Call 0x2,0x13 04d0 01cc | | Execute Vector,Catenate 04d1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04d2 e602 | | Load 0x3,0x2 04d3 8412 | | Call 0x2,0x12 04d4 e603 | | Load 0x3,0x3 04d5 8413 | | Call 0x2,0x13 04d6 01cc | | Execute Vector,Catenate 04d7 0092 0851 | Q| Action Push_String_Extended,0x851 ; " " 04d9 01cc | | Execute Vector,Catenate 04da e604 | | Load 0x3,0x4 04db 8413 | | Call 0x2,0x13 04dc 01cc | | Execute Vector,Catenate 04dd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04de e602 | | Load 0x3,0x2 04df 8412 | | Call 0x2,0x12 04e0 e603 | | Load 0x3,0x3 04e1 8413 | | Call 0x2,0x13 04e2 01cc | | Execute Vector,Catenate 04e3 0092 0851 | Q| Action Push_String_Extended,0x851 ; " " 04e5 01cc | | Execute Vector,Catenate 04e6 e604 | | Load 0x3,0x4 04e7 8413 | | Call 0x2,0x13 04e8 01cc | | Execute Vector,Catenate 04e9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04ea e602 | | Load 0x3,0x2 04eb 8412 | | Call 0x2,0x12 04ec e603 | | Load 0x3,0x3 04ed 8413 | | Call 0x2,0x13 04ee 01cc | | Execute Vector,Catenate 04ef 0092 0851 | Q| Action Push_String_Extended,0x851 ; " " 04f1 01cc | | Execute Vector,Catenate 04f2 e604 | | Load 0x3,0x4 04f3 8413 | | Call 0x2,0x13 04f4 01cc | | Execute Vector,Catenate 04f5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04f6 0092 085b | [| Action Push_String_Extended,0x85b ; "Subprogram - accept block" 04f8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04f9 e602 | | Load 0x3,0x2 04fa 8412 | | Call 0x2,0x12 04fb e603 | | Load 0x3,0x3 04fc 8413 | | Call 0x2,0x13 04fd 01cc | | Execute Vector,Catenate 04fe 0092 0851 | Q| Action Push_String_Extended,0x851 ; " " 0500 01cc | | Execute Vector,Catenate 0501 e604 | | Load 0x3,0x4 0502 8413 | | Call 0x2,0x13 0503 01cc | | Execute Vector,Catenate 0504 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0505 e602 | | Load 0x3,0x2 0506 8412 | | Call 0x2,0x12 0507 e603 | | Load 0x3,0x3 0508 8413 | | Call 0x2,0x13 0509 01cc | | Execute Vector,Catenate 050a 0092 0851 | Q| Action Push_String_Extended,0x851 ; " " 050c 01cc | | Execute Vector,Catenate 050d e604 | | Load 0x3,0x4 050e 8413 | | Call 0x2,0x13 050f 01cc | | Execute Vector,Catenate 0510 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0511 e602 | | Load 0x3,0x2 0512 8412 | | Call 0x2,0x12 0513 e603 | | Load 0x3,0x3 0514 8413 | | Call 0x2,0x13 0515 01cc | | Execute Vector,Catenate 0516 0092 0851 | Q| Action Push_String_Extended,0x851 ; " " 0518 01cc | | Execute Vector,Catenate 0519 e604 | | Load 0x3,0x4 051a 8413 | | Call 0x2,0x13 051b 01cc | | Execute Vector,Catenate 051c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 051d e602 | | Load 0x3,0x2 051e 8412 | | Call 0x2,0x12 051f e603 | | Load 0x3,0x3 0520 8413 | | Call 0x2,0x13 0521 01cc | | Execute Vector,Catenate 0522 0092 0851 | Q| Action Push_String_Extended,0x851 ; " " 0524 01cc | | Execute Vector,Catenate 0525 e604 | | Load 0x3,0x4 0526 8413 | | Call 0x2,0x13 0527 01cc | | Execute Vector,Catenate 0528 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0529 e602 | | Load 0x3,0x2 052a 8412 | | Call 0x2,0x12 052b e603 | | Load 0x3,0x3 052c 8413 | | Call 0x2,0x13 052d 01cc | | Execute Vector,Catenate 052e 0092 0851 | Q| Action Push_String_Extended,0x851 ; " " 0530 01cc | | Execute Vector,Catenate 0531 e604 | | Load 0x3,0x4 0532 8413 | | Call 0x2,0x13 0533 01cc | | Execute Vector,Catenate 0534 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0535 0092 085c | \| Action Push_String_Extended,0x85c ; "Package " 0537 4820 |H | Short_Literal 0x20 0538 4800 |H | Short_Literal 0x0 0539 4810 |H | Short_Literal 0x10 053a 4820 |H | Short_Literal 0x20 053b 4800 |H | Short_Literal 0x0 053c e604 | | Load 0x3,0x4 053d e00a | | Load 0x0,0xa 053e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 053f e00f | | Load 0x0,0xf 0540 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0541 01cc | | Execute Vector,Catenate 0542 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0543 0092 085d | ]| Action Push_String_Extended,0x85d ; "Accepted Rendezvous with " 0545 4820 |H | Short_Literal 0x20 0546 4800 |H | Short_Literal 0x0 0547 4810 |H | Short_Literal 0x10 0548 4820 |H | Short_Literal 0x20 0549 4800 |H | Short_Literal 0x0 054a e604 | | Load 0x3,0x4 054b e00a | | Load 0x0,0xa 054c 1814 | | Execute Package,Field_Execute,Field_Number 0x14 054d e00f | | Load 0x0,0xf 054e 1817 | | Execute Package,Field_Execute,Field_Number 0x17 054f 01cc | | Execute Vector,Catenate 0550 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0551 e602 | | Load 0x3,0x2 0552 8412 | | Call 0x2,0x12 0553 e603 | | Load 0x3,0x3 0554 8413 | | Call 0x2,0x13 0555 01cc | | Execute Vector,Catenate 0556 0092 0851 | Q| Action Push_String_Extended,0x851 ; " " 0558 01cc | | Execute Vector,Catenate 0559 e604 | | Load 0x3,0x4 055a 8413 | | Call 0x2,0x13 055b 01cc | | Execute Vector,Catenate 055c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 055d e602 | | Load 0x3,0x2 055e 8412 | | Call 0x2,0x12 055f e603 | | Load 0x3,0x3 0560 8413 | | Call 0x2,0x13 0561 01cc | | Execute Vector,Catenate 0562 0092 0851 | Q| Action Push_String_Extended,0x851 ; " " 0564 01cc | | Execute Vector,Catenate 0565 e604 | | Load 0x3,0x4 0566 8413 | | Call 0x2,0x13 0567 01cc | | Execute Vector,Catenate 0568 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0569 e602 | | Load 0x3,0x2 056a 8412 | | Call 0x2,0x12 056b e603 | | Load 0x3,0x3 056c 8413 | | Call 0x2,0x13 056d 01cc | | Execute Vector,Catenate 056e 0092 0851 | Q| Action Push_String_Extended,0x851 ; " " 0570 01cc | | Execute Vector,Catenate 0571 e604 | | Load 0x3,0x4 0572 8413 | | Call 0x2,0x13 0573 01cc | | Execute Vector,Catenate 0574 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0575 e602 | | Load 0x3,0x2 0576 8412 | | Call 0x2,0x12 0577 e603 | | Load 0x3,0x3 0578 8413 | | Call 0x2,0x13 0579 01cc | | Execute Vector,Catenate 057a 0092 0851 | Q| Action Push_String_Extended,0x851 ; " " 057c 01cc | | Execute Vector,Catenate 057d e604 | | Load 0x3,0x4 057e 8413 | | Call 0x2,0x13 057f 01cc | | Execute Vector,Catenate 0580 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0581 e602 | | Load 0x3,0x2 0582 8412 | | Call 0x2,0x12 0583 e603 | | Load 0x3,0x3 0584 8413 | | Call 0x2,0x13 0585 01cc | | Execute Vector,Catenate 0586 0092 0851 | Q| Action Push_String_Extended,0x851 ; " " 0588 01cc | | Execute Vector,Catenate 0589 e604 | | Load 0x3,0x4 058a 8413 | | Call 0x2,0x13 058b 01cc | | Execute Vector,Catenate 058c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 058d 8605 | | Call 0x3,0x5 058e 7812 |x | Jump 0x5a1 058f e602 | | Load 0x3,0x2 0590 e003 | | Load 0x0,0x3 0591 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 0592 025e | ^ | Execute Discrete,Convert 0593 1c01 | | Execute_Immediate Run_Utility,0x1 0594 0092 0850 | P| Action Push_String_Extended,0x850 ; " " 0596 01cc | | Execute Vector,Catenate 0597 e603 | | Load 0x3,0x3 0598 8413 | | Call 0x2,0x13 0599 01cc | | Execute Vector,Catenate 059a 0092 0851 | Q| Action Push_String_Extended,0x851 ; " " 059c 01cc | | Execute Vector,Catenate 059d e604 | | Load 0x3,0x4 059e 8413 | | Call 0x2,0x13 059f 01cc | | Execute Vector,Catenate 05a0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05a1 0831 | 1 | Execute_Immediate Raise,0x31 05a2 0000 0000 | | .BLANK 0000[0x6] 05a8 ; -------------------------------------------------------------------------------------- 05a8 ; SUBPROGRAM 05a8 ; -------------------------------------------------------------------------------------- 05a8 05cd | | .CONST 0x05cd ; Address of begin 05a9 06a9 | | .CONST 0x06a9 ; Address of exception handler 05aa 000d | | .CONST 0x000d ; Number of locals 05ab INIT_05a8: 05ab 00e3 | | Load_Encached Natural_Cache 05ac 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 05ad e003 | | Load 0x0,0x3 05ae 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 05af 02c7 | | Declare_Variable Any 05b0 e7ff | | Load 0x3,-0x1 05b1 e00a | | Load 0x0,0xa 05b2 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 05b3 a603 | | Store_Unchecked 0x3,0x3 05b4 e003 | | Load 0x0,0x3 05b5 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 05b6 02c7 | | Declare_Variable Any 05b7 e00a | | Load 0x0,0xa 05b8 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 05b9 a604 | | Store_Unchecked 0x3,0x4 05ba e003 | | Load 0x0,0x3 05bb 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 05bc e003 | | Load 0x0,0x3 05bd 1b0e | | Execute Package,Field_Read,Field_Number 0xe 05be e003 | | Load 0x0,0x3 05bf 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 05c0 00e3 | | Load_Encached Natural_Cache 05c1 e003 | | Load 0x0,0x3 05c2 1b51 | Q | Execute Package,Field_Read,Field_Number 0x51 05c3 00e2 | | Load_Encached Integer_Cache 05c4 e003 | | Load 0x0,0x3 05c5 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 05c6 0322 | " | Declare_Variable Record 05c7 e7ff | | Load 0x3,-0x1 05c8 e003 | | Load 0x0,0x3 05c9 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 05ca 8411 | | Call 0x2,0x11 05cb 029f 0783 | | Declare_Subprogram INIT_0780,For_Call 05cd BODY_05a8: 05cd e5fa | | Load 0x2,-0x6 05ce 01db | | Execute Vector,Length 05cf 6807 |h | Jump_Zero 0x5d7 05d0 4801 |H | Short_Literal 0x1 05d1 e60c | | Load 0x3,0xc 05d2 e5fa | | Load 0x2,-0x6 05d3 e00f | | Load 0x0,0xf 05d4 181d | | Execute Package,Field_Execute,Field_Number 0x1d 05d5 7001 |p | Jump_Nonzero 0x5d7 05d6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05d7 e5fb | | Load 0x2,-0x5 05d8 700a |p | Jump_Nonzero 0x5e3 05d9 e7ff | | Load 0x3,-0x1 05da e003 | | Load 0x0,0x3 05db 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 05dc 6806 |h | Jump_Zero 0x5e3 05dd e7ff | | Load 0x3,-0x1 05de e003 | | Load 0x0,0x3 05df 1842 | B | Execute Package,Field_Execute,Field_Number 0x42 05e0 0f07 | | Execute_Immediate Equal,0x7 05e1 6801 |h | Jump_Zero 0x5e3 05e2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05e3 4802 |H | Short_Literal 0x2 05e4 e603 | | Load 0x3,0x3 05e5 e003 | | Load 0x0,0x3 05e6 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b 05e7 e60b | | Load 0x3,0xb 05e8 017d | } | Execute Record,Structure_Write 05e9 4804 |H | Short_Literal 0x4 05ea 481c |H | Short_Literal 0x1c 05eb e60b | | Load 0x3,0xb 05ec 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05ed e00a | | Load 0x0,0xa 05ee 1814 | | Execute Package,Field_Execute,Field_Number 0x14 05ef 00d8 | | Load_Top At_Offset_0 05f0 00e2 | | Load_Encached Integer_Cache 05f1 0260 | ` | Execute Discrete,In_Type 05f2 7001 |p | Jump_Nonzero 0x5f4 05f3 08e0 | | Execute_Immediate Raise,0xe0 05f4 a60a | | Store_Unchecked 0x3,0xa 05f5 4802 |H | Short_Literal 0x2 05f6 e009 | | Load 0x0,0x9 05f7 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 05f8 e7ff | | Load 0x3,-0x1 05f9 e003 | | Load 0x0,0x3 05fa 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 05fb 6805 |h | Jump_Zero 0x601 05fc 0092 085e | ^| Action Push_String_Extended,0x85e ; "Package " 05fe e009 | | Load 0x0,0x9 05ff 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0600 7804 |x | Jump 0x605 0601 0092 085f | _| Action Push_String_Extended,0x85f ; "Task " 0603 e009 | | Load 0x0,0x9 0604 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0605 e7ff | | Load 0x3,-0x1 0606 e00a | | Load 0x0,0xa 0607 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0608 0092 0860 | `| Action Push_String_Extended,0x860 ; " " 060a 01cc | | Execute Vector,Catenate 060b e60c | | Load 0x3,0xc 060c 01cc | | Execute Vector,Catenate 060d 0092 0861 | a| Action Push_String_Extended,0x861 ; " Pri=" 060f 01cc | | Execute Vector,Catenate 0610 e60a | | Load 0x3,0xa 0611 00e0 | | Load_Encached Standard_Cache 0612 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0613 01cc | | Execute Vector,Catenate 0614 e009 | | Load 0x0,0x9 0615 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0616 0092 0860 | `| Action Push_String_Extended,0x860 ; " " 0618 e7ff | | Load 0x3,-0x1 0619 e003 | | Load 0x0,0x3 061a 1842 | B | Execute Package,Field_Execute,Field_Number 0x42 061b e003 | | Load 0x0,0x3 061c 1b41 | A | Execute Package,Field_Read,Field_Number 0x41 061d 025e | ^ | Execute Discrete,Convert 061e 1c01 | | Execute_Immediate Run_Utility,0x1 061f 01cc | | Execute Vector,Catenate 0620 0092 0862 | b| Action Push_String_Extended,0x862 ; " Parent=" 0622 01cc | | Execute Vector,Catenate 0623 e604 | | Load 0x3,0x4 0624 e7ff | | Load 0x3,-0x1 0625 e003 | | Load 0x0,0x3 0626 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0627 e00a | | Load 0x0,0xa 0628 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0629 01cc | | Execute Vector,Catenate 062a 0092 0863 | c| Action Push_String_Extended,0x863 ; " SA=" 062c 01cc | | Execute Vector,Catenate 062d e7ff | | Load 0x3,-0x1 062e e003 | | Load 0x0,0x3 062f 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0630 e00a | | Load 0x0,0xa 0631 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0632 01cc | | Execute Vector,Catenate 0633 e009 | | Load 0x0,0x9 0634 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0635 e5fe | | Load 0x2,-0x2 0636 6871 |hq | Jump_Zero 0x6a8 0637 0092 0864 | d| Action Push_String_Extended,0x864 ; "Fr Off Pc Outer Lx" 0639 e009 | | Load 0x0,0x9 063a 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 063b 0092 0865 | e| Action Push_String_Extended,0x865 ; "-- --- -------------- -------- --" 063d e009 | | Load 0x0,0x9 063e 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 063f 00cf | | Action Mark_Auxiliary 0640 e003 | | Load 0x0,0x3 0641 1b51 | Q | Execute Package,Field_Read,Field_Number 0x51 0642 00e3 | | Load_Encached Natural_Cache 0643 e003 | | Load 0x0,0x3 0644 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 0645 e003 | | Load 0x0,0x3 0646 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0647 e003 | | Load 0x0,0x3 0648 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 0649 e602 | | Load 0x3,0x2 064a e604 | | Load 0x3,0x4 064b e603 | | Load 0x3,0x3 064c e003 | | Load 0x0,0x3 064d 1853 | S | Execute Package,Field_Execute,Field_Number 0x53 064e c605 | | Store 0x3,0x5 064f c606 | | Store 0x3,0x6 0650 c607 | | Store 0x3,0x7 0651 c608 | | Store 0x3,0x8 0652 c609 | | Store 0x3,0x9 0653 e609 | | Load 0x3,0x9 0654 4603 |F | Jump_Case 0x4 0655 784c |xL | Jump 0x6a2 ; case 0x0 0656 784b |xK | Jump 0x6a2 ; case 0x1 0657 7810 |x | Jump 0x668 ; case 0x2 0658 7800 |x | Jump 0x659 ; case 0x3 0659 0092 0866 | f| Action Push_String_Extended,0x866 ; "_" 065b 4820 |H | Short_Literal 0x20 065c 4800 |H | Short_Literal 0x0 065d 480a |H | Short_Literal 0xa 065e e602 | | Load 0x3,0x2 065f e00f | | Load 0x0,0xf 0660 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0661 01cc | | Execute Vector,Catenate 0662 0092 0867 | g| Action Push_String_Extended,0x867 ; ": temporarily not accessible" 0664 01cc | | Execute Vector,Catenate 0665 e009 | | Load 0x0,0x9 0666 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0667 7835 |x5 | Jump 0x69d 0668 4800 |H | Short_Literal 0x0 0669 4820 |H | Short_Literal 0x20 066a 4800 |H | Short_Literal 0x0 066b 480a |H | Short_Literal 0xa 066c e602 | | Load 0x3,0x2 066d e00f | | Load 0x0,0xf 066e 1816 | | Execute Package,Field_Execute,Field_Number 0x16 066f 4802 |H | Short_Literal 0x2 0670 840f | | Call 0x2,0xf 0671 4800 |H | Short_Literal 0x0 0672 4820 |H | Short_Literal 0x20 0673 4800 |H | Short_Literal 0x0 0674 4810 |H | Short_Literal 0x10 0675 e605 | | Load 0x3,0x5 0676 e003 | | Load 0x0,0x3 0677 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0678 e00f | | Load 0x0,0xf 0679 1816 | | Execute Package,Field_Execute,Field_Number 0x16 067a 4804 |H | Short_Literal 0x4 067b 840f | | Call 0x2,0xf 067c 01cc | | Execute Vector,Catenate 067d 4800 |H | Short_Literal 0x0 067e e606 | | Load 0x3,0x6 067f e00a | | Load 0x0,0xa 0680 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0681 480f |H | Short_Literal 0xf 0682 840f | | Call 0x2,0xf 0683 01cc | | Execute Vector,Catenate 0684 4800 |H | Short_Literal 0x0 0685 e607 | | Load 0x3,0x7 0686 e003 | | Load 0x0,0x3 0687 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 0688 e00a | | Load 0x0,0xa 0689 1813 | | Execute Package,Field_Execute,Field_Number 0x13 068a 4809 |H | Short_Literal 0x9 068b 840f | | Call 0x2,0xf 068c 01cc | | Execute Vector,Catenate 068d 4800 |H | Short_Literal 0x0 068e e608 | | Load 0x3,0x8 068f 00e0 | | Load_Encached Standard_Cache 0690 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0691 4803 |H | Short_Literal 0x3 0692 840f | | Call 0x2,0xf 0693 01cc | | Execute Vector,Catenate 0694 0092 0850 | P| Action Push_String_Extended,0x850 ; " " 0696 01cc | | Execute Vector,Catenate 0697 e606 | | Load 0x3,0x6 0698 8411 | | Call 0x2,0x11 0699 01cc | | Execute Vector,Catenate 069a e009 | | Load 0x0,0x9 069b 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 069c 7800 |x | Jump 0x69d 069d e602 | | Load 0x3,0x2 069e 0a01 | | Execute_Immediate Plus,0x1 069f c602 | | Store 0x3,0x2 06a0 00c9 | | Action Pop_Auxiliary_Loop 06a1 7f9e | | Jump 0x640 06a2 00ce | | Action Pop_Auxiliary 06a3 e5fd | | Load 0x2,-0x3 06a4 7002 |p | Jump_Nonzero 0x6a7 06a5 e5fc | | Load 0x2,-0x4 06a6 6801 |h | Jump_Zero 0x6a8 06a7 860d | | Call 0x3,0xd 06a8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 06a9 TRAP_05a8: 06a9 0007 | | Action Break_Optional 06aa 0092 0868 | h| Action Push_String_Extended,0x868 ; "Exception: " 06ac e00b | | Load 0x0,0xb 06ad 180d | | Execute Package,Field_Execute,Field_Number 0xd 06ae 01cc | | Execute Vector,Catenate 06af e009 | | Load 0x0,0x9 06b0 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 06b1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 06b2 0000 0000 | | .BLANK 0000[0x6] 06b8 ; -------------------------------------------------------------------------------------- 06b8 ; SUBPROGRAM 06b8 ; -------------------------------------------------------------------------------------- 06b8 06d0 | | .CONST 0x06d0 ; Address of begin 06b9 0721 | ! | .CONST 0x0721 ; Address of exception handler 06ba 000c | | .CONST 0x000c ; Number of locals 06bb INIT_06b8: 06bb 00e3 | | Load_Encached Natural_Cache 06bc 03e9 | | Declare_Variable Discrete,Duplicate 06bd 03e9 | | Declare_Variable Discrete,Duplicate 06be 03e9 | | Declare_Variable Discrete,Duplicate 06bf 03e9 | | Declare_Variable Discrete,Duplicate 06c0 e009 | | Load 0x0,0x9 06c1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06c2 02c7 | | Declare_Variable Any 06c3 00d8 | | Load_Top At_Offset_0 06c4 1c00 | | Execute_Immediate Run_Utility,0x0 06c5 00e2 | | Load_Encached Integer_Cache 06c6 00e1 | | Load_Encached Boolean_Cache 06c7 e013 | | Load 0x0,0x13 06c8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06c9 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 06ca 02c7 | | Declare_Variable Any 06cb 00d8 | | Load_Top At_Offset_0 06cc 1c00 | | Execute_Immediate Run_Utility,0x0 06cd 00e3 | | Load_Encached Natural_Cache 06ce 029f 07db | | Declare_Subprogram INIT_07d8,For_Call 06d0 BODY_06b8: 06d0 4801 |H | Short_Literal 0x1 06d1 e013 | | Load 0x0,0x13 06d2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 06d3 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06d4 e5f8 | | Load 0x2,-0x8 06d5 e013 | | Load 0x0,0x13 06d6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 06d7 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 06d8 c60a | | Store 0x3,0xa 06d9 00cf | | Action Mark_Auxiliary 06da 783c |x< | Jump 0x717 06db 0092 0869 | i| Action Push_String_Extended,0x869 ; "Processing file: " 06dd e60a | | Load 0x3,0xa 06de e013 | | Load 0x0,0x13 06df 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06e0 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 06e1 e013 | | Load 0x0,0x13 06e2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 06e3 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 06e4 01cc | | Execute Vector,Catenate 06e5 0092 086a | j| Action Push_String_Extended,0x86a ; " ..." 06e7 01cc | | Execute Vector,Catenate 06e8 e009 | | Load 0x0,0x9 06e9 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 06ea 4800 |H | Short_Literal 0x0 06eb a60b | | Store_Unchecked 0x3,0xb 06ec e607 | | Load 0x3,0x7 06ed 00ea | | Load_Encached Null_String_Cache 06ee e60a | | Load 0x3,0xa 06ef e013 | | Load 0x0,0x13 06f0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06f1 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 06f2 e013 | | Load 0x0,0x13 06f3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 06f4 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 06f5 4800 |H | Short_Literal 0x0 06f6 e009 | | Load 0x0,0x9 06f7 1815 | | Execute Package,Field_Execute,Field_Number 0x15 06f8 c607 | | Store 0x3,0x7 06f9 00cf | | Action Mark_Auxiliary 06fa e607 | | Load 0x3,0x7 06fb e009 | | Load 0x0,0x9 06fc 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 06fd 7003 |p | Jump_Nonzero 0x701 06fe 860c | | Call 0x3,0xc 06ff 00c9 | | Action Pop_Auxiliary_Loop 0700 7ff9 | | Jump 0x6fa 0701 00ce | | Action Pop_Auxiliary 0702 e607 | | Load 0x3,0x7 0703 e009 | | Load 0x0,0x9 0704 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0705 c607 | | Store 0x3,0x7 0706 0092 0851 | Q| Action Push_String_Extended,0x851 ; " " 0708 e60b | | Load 0x3,0xb 0709 00e0 | | Load_Encached Standard_Cache 070a 1818 | | Execute Package,Field_Execute,Field_Number 0x18 070b 01cc | | Execute Vector,Catenate 070c 0092 086b | k| Action Push_String_Extended,0x86b ; " defined." 070e 01cc | | Execute Vector,Catenate 070f e009 | | Load 0x0,0x9 0710 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0711 e60a | | Load 0x3,0xa 0712 e013 | | Load 0x0,0x13 0713 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0714 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0715 c60a | | Store 0x3,0xa 0716 00c9 | | Action Pop_Auxiliary_Loop 0717 e60a | | Load 0x3,0xa 0718 e013 | | Load 0x0,0x13 0719 1b0d | | Execute Package,Field_Read,Field_Number 0xd 071a 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 071b 6fbf |o | Jump_Zero 0x6db 071c 00ce | | Action Pop_Auxiliary 071d 4801 |H | Short_Literal 0x1 071e e009 | | Load 0x0,0x9 071f 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0720 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0721 TRAP_06b8: 0721 0007 | | Action Break_Optional 0722 0092 086c | l| Action Push_String_Extended,0x86c ; "Exception reading file: " 0724 e00b | | Load 0x0,0xb 0725 180d | | Execute Package,Field_Execute,Field_Number 0xd 0726 01cc | | Execute Vector,Catenate 0727 e009 | | Load 0x0,0x9 0728 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0729 4501 |E | Exit_Suprogram New_Top_Offset 0x1 072a 0000 0000 | | .BLANK 0000[0x6] 0730 ; -------------------------------------------------------------------------------------- 0730 ; SUBPROGRAM 0730 ; -------------------------------------------------------------------------------------- 0730 0733 | 3 | .CONST 0x0733 ; Address of begin 0731 073c | < | .CONST 0x073c ; Address of exception handler 0732 0001 | | .CONST 0x0001 ; Number of locals 0733 BODY_0730: 0733 INIT_0730: 0733 e7ff | | Load 0x3,-0x1 0734 e014 | | Load 0x0,0x14 0735 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0736 a605 | | Store_Unchecked 0x3,0x5 0737 e605 | | Load 0x3,0x5 0738 6802 |h | Jump_Zero 0x73b 0739 e605 | | Load 0x3,0x5 073a 840b | | Call 0x2,0xb 073b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 073c TRAP_0730: 073c 0007 | | Action Break_Optional 073d 0008 | | Action Idle 073e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 073f 0000 | | .XXX[0x1] 0740 ; -------------------------------------------------------------------------------------- 0740 ; SUBPROGRAM 0740 ; -------------------------------------------------------------------------------------- 0740 0758 | X | .CONST 0x0758 ; Address of begin 0741 0004 | | .CONST 0x0004 ; Address of exception handler 0742 0004 | | .CONST 0x0004 ; Number of locals 0743 INIT_0740: 0743 4830 |H0 | Short_Literal 0x30 0744 4800 |H | Short_Literal 0x0 0745 e604 | | Load 0x3,0x4 0746 e00a | | Load 0x0,0xa 0747 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0748 00e5 | | Load_Encached Long_Integer_Cache 0749 03f1 | | Declare_Variable Discrete,With_Value 074a 4818 |H | Short_Literal 0x18 074b 4820 |H | Short_Literal 0x20 074c e603 | | Load 0x3,0x3 074d e00a | | Load 0x0,0xa 074e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 074f 00e5 | | Load_Encached Long_Integer_Cache 0750 03f1 | | Declare_Variable Discrete,With_Value 0751 480f |H | Short_Literal 0xf 0752 4831 |H1 | Short_Literal 0x31 0753 e604 | | Load 0x3,0x4 0754 e00a | | Load 0x0,0xa 0755 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0756 00e5 | | Load_Encached Long_Integer_Cache 0757 03f1 | | Declare_Variable Discrete,With_Value 0758 BODY_0740: 0758 e602 | | Load 0x3,0x2 0759 8412 | | Call 0x2,0x12 075a 0092 086d | m| Action Push_String_Extended,0x86d ; "name=" 075c 01cc | | Execute Vector,Catenate 075d 4801 |H | Short_Literal 0x1 075e e802 | | Load 0x4,0x2 075f e015 | | Load 0x0,0x15 0760 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0761 01cc | | Execute Vector,Catenate 0762 0092 086e | n| Action Push_String_Extended,0x86e ; " pc=" 0764 01cc | | Execute Vector,Catenate 0765 e804 | | Load 0x4,0x4 0766 00d8 | | Load_Top At_Offset_0 0767 e003 | | Load 0x0,0x3 0768 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0769 0260 | ` | Execute Discrete,In_Type 076a 7001 |p | Jump_Nonzero 0x76c 076b 08e0 | | Execute_Immediate Raise,0xe0 076c e803 | | Load 0x4,0x3 076d 00d8 | | Load_Top At_Offset_0 076e e007 | | Load 0x0,0x7 076f 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0770 0260 | ` | Execute Discrete,In_Type 0771 7001 |p | Jump_Nonzero 0x773 0772 08e0 | | Execute_Immediate Raise,0xe0 0773 e003 | | Load 0x0,0x3 0774 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0775 e00a | | Load 0x0,0xa 0776 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0777 01cc | | Execute Vector,Catenate 0778 00cb | | Action Pop_Block_With_Result 0779 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 077a 0000 0000 | | .BLANK 0000[0x6] 0780 ; -------------------------------------------------------------------------------------- 0780 ; SUBPROGRAM 0780 ; -------------------------------------------------------------------------------------- 0780 078e | | .CONST 0x078e ; Address of begin 0781 0004 | | .CONST 0x0004 ; Address of exception handler 0782 0004 | | .CONST 0x0004 ; Number of locals 0783 INIT_0780: 0783 e003 | | Load 0x0,0x3 0784 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 0785 0322 | " | Declare_Variable Record 0786 e003 | | Load 0x0,0x3 0787 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 0788 02c7 | | Declare_Variable Any 0789 e7ff | | Load 0x3,-0x1 078a e00a | | Load 0x0,0xa 078b 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 078c a803 | | Store_Unchecked 0x4,0x3 078d 00e5 | | Load_Encached Long_Integer_Cache 078e BODY_0780: 078e 4814 |H | Short_Literal 0x14 078f 4825 |H% | Short_Literal 0x25 0790 4802 |H | Short_Literal 0x2 0791 e803 | | Load 0x4,0x3 0792 e003 | | Load 0x0,0x3 0793 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b 0794 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0795 e00a | | Load 0x0,0xa 0796 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0797 a804 | | Store_Unchecked 0x4,0x4 0798 00cf | | Action Mark_Auxiliary 0799 4801 |H | Short_Literal 0x1 079a e804 | | Load 0x4,0x4 079b 0264 | d | Execute Discrete,Below_Bound 079c 7037 |p7 | Jump_Nonzero 0x7d4 079d 00d8 | | Load_Top At_Offset_0 079e 00d8 | | Load_Top At_Offset_0 079f e003 | | Load 0x0,0x3 07a0 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 07a1 0260 | ` | Execute Discrete,In_Type 07a2 7001 |p | Jump_Nonzero 0x7a4 07a3 08e0 | | Execute_Immediate Raise,0xe0 07a4 e803 | | Load 0x4,0x3 07a5 e003 | | Load 0x0,0x3 07a6 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b 07a7 e802 | | Load 0x4,0x2 07a8 017d | } | Execute Record,Structure_Write 07a9 e5fd | | Load 0x2,-0x3 07aa 680b |h | Jump_Zero 0x7b6 07ab 4800 |H | Short_Literal 0x0 07ac e5f4 | | Load 0x2,-0xc 07ad 4800 |H | Short_Literal 0x0 07ae e5f5 | | Load 0x2,-0xb 07af e5f6 | | Load 0x2,-0xa 07b0 e807 | | Load 0x4,0x7 07b1 e802 | | Load 0x4,0x2 07b2 e016 | | Load 0x0,0x16 07b3 1811 | | Execute Package,Field_Execute,Field_Number 0x11 07b4 e009 | | Load 0x0,0x9 07b5 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 07b6 e5fc | | Load 0x2,-0x4 07b7 681a |h | Jump_Zero 0x7d2 07b8 4820 |H | Short_Literal 0x20 07b9 4803 |H | Short_Literal 0x3 07ba 4810 |H | Short_Literal 0x10 07bb e807 | | Load 0x4,0x7 07bc e00f | | Load 0x0,0xf 07bd 1817 | | Execute Package,Field_Execute,Field_Number 0x17 07be 0092 086f | o| Action Push_String_Extended,0x86f ; ": " 07c0 01cc | | Execute Vector,Catenate 07c1 4820 |H | Short_Literal 0x20 07c2 4800 |H | Short_Literal 0x0 07c3 e802 | | Load 0x4,0x2 07c4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 07c5 8012 | | Call 0x0,0x12 07c6 01cc | | Execute Vector,Catenate 07c7 0092 0850 | P| Action Push_String_Extended,0x850 ; " " 07c9 01cc | | Execute Vector,Catenate 07ca 4820 |H | Short_Literal 0x20 07cb 4800 |H | Short_Literal 0x0 07cc e802 | | Load 0x4,0x2 07cd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 07ce 8012 | | Call 0x0,0x12 07cf 01cc | | Execute Vector,Catenate 07d0 e009 | | Load 0x0,0x9 07d1 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 07d2 00c8 | | Action Pop_Auxiliary_Range 07d3 37c9 |7 | Loop_Decreasing 0x79d 07d4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 07d5 0000 0000 | | .XXX[0x3] 07d7 0000 | | 07d8 ; -------------------------------------------------------------------------------------- 07d8 ; SUBPROGRAM 07d8 ; -------------------------------------------------------------------------------------- 07d8 07de | | .CONST 0x07de ; Address of begin 07d9 0004 | | .CONST 0x0004 ; Address of exception handler 07da 0002 | | .CONST 0x0002 ; Number of locals 07db INIT_07d8: 07db e607 | | Load 0x3,0x7 07dc e009 | | Load 0x0,0x9 07dd 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 07de BODY_07d8: 07de 4800 |H | Short_Literal 0x0 07df e802 | | Load 0x4,0x2 07e0 0092 0870 | p| Action Push_String_Extended,0x870 ; "LOAD" 07e2 e00f | | Load 0x0,0xf 07e3 181d | | Execute Package,Field_Execute,Field_Number 0x1d 07e4 a602 | | Store_Unchecked 0x3,0x2 07e5 4800 |H | Short_Literal 0x0 07e6 e802 | | Load 0x4,0x2 07e7 0092 0871 | q| Action Push_String_Extended,0x871 ; ".SEG" 07e9 e00f | | Load 0x0,0xf 07ea 181d | | Execute Package,Field_Execute,Field_Number 0x1d 07eb a603 | | Store_Unchecked 0x3,0x3 07ec 4800 |H | Short_Literal 0x0 07ed e802 | | Load 0x4,0x2 07ee 0092 0872 | r| Action Push_String_Extended,0x872 ; "CODE " 07f0 e00f | | Load 0x0,0xf 07f1 181d | | Execute Package,Field_Execute,Field_Number 0x1d 07f2 a604 | | Store_Unchecked 0x3,0x4 07f3 4800 |H | Short_Literal 0x0 07f4 e802 | | Load 0x4,0x2 07f5 0092 0873 | s| Action Push_String_Extended,0x873 ; "--" 07f7 e00f | | Load 0x0,0xf 07f8 181d | | Execute Package,Field_Execute,Field_Number 0x1d 07f9 a605 | | Store_Unchecked 0x3,0x5 07fa e602 | | Load 0x3,0x2 07fb e802 | | Load 0x4,0x2 07fc 01dd | | Execute Vector,First 07fd 027f | | Execute Discrete,Equal 07fe 6843 |hC | Jump_Zero 0x842 07ff e603 | | Load 0x3,0x3 0800 e602 | | Load 0x3,0x2 0801 027d | } | Execute Discrete,Greater 0802 683f |h? | Jump_Zero 0x842 0803 e604 | | Load 0x3,0x4 0804 e603 | | Load 0x3,0x3 0805 027d | } | Execute Discrete,Greater 0806 683b |h; | Jump_Zero 0x842 0807 e605 | | Load 0x3,0x5 0808 e604 | | Load 0x3,0x4 0809 027d | } | Execute Discrete,Greater 080a 6837 |h7 | Jump_Zero 0x842 080b e604 | | Load 0x3,0x4 080c 0a05 | | Execute_Immediate Plus,0x5 080d c606 | | Store 0x3,0x6 080e 00cf | | Action Mark_Auxiliary 080f 7804 |x | Jump 0x814 0810 e606 | | Load 0x3,0x6 0811 0a01 | | Execute_Immediate Plus,0x1 0812 c606 | | Store 0x3,0x6 0813 00c9 | | Action Pop_Auxiliary_Loop 0814 e606 | | Load 0x3,0x6 0815 e802 | | Load 0x4,0x2 0816 01d7 | | Execute Vector,Field_Read 0817 0e20 | | Execute_Immediate Not_Equal,0x20 0818 77f7 |w | Jump_Nonzero 0x810 0819 00ce | | Action Pop_Auxiliary 081a 00e1 | | Load_Encached Boolean_Cache 081b 00e2 | | Load_Encached Integer_Cache 081c 4810 |H | Short_Literal 0x10 081d e604 | | Load 0x3,0x4 081e 0a05 | | Execute_Immediate Plus,0x5 081f 0248 | H | Execute Discrete,Check_In_Integer 0820 e606 | | Load 0x3,0x6 0821 0aff | | Execute_Immediate Plus,-0x1 0822 e802 | | Load 0x4,0x2 0823 01cf | | Execute Vector,Slice_Read 0824 e00f | | Load 0x0,0xf 0825 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0826 c608 | | Store 0x3,0x8 0827 c609 | | Store 0x3,0x9 0828 e609 | | Load 0x3,0x9 0829 6818 |h | Jump_Zero 0x842 082a e405 | | Load 0x2,0x5 082b 4800 |H | Short_Literal 0x0 082c e605 | | Load 0x3,0x5 082d 0a03 | | Execute_Immediate Plus,0x3 082e 0248 | H | Execute Discrete,Check_In_Integer 082f e802 | | Load 0x4,0x2 0830 01dc | | Execute Vector,Last 0831 e802 | | Load 0x4,0x2 0832 01cf | | Execute Vector,Slice_Read 0833 e402 | | Load 0x2,0x2 0834 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0835 e608 | | Load 0x3,0x8 0836 00d8 | | Load_Top At_Offset_0 0837 e007 | | Load 0x0,0x7 0838 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0839 0260 | ` | Execute Discrete,In_Type 083a 7001 |p | Jump_Nonzero 0x83c 083b 08e0 | | Execute_Immediate Raise,0xe0 083c e404 | | Load 0x2,0x4 083d 1818 | | Execute Package,Field_Execute,Field_Number 0x18 083e c405 | | Store 0x2,0x5 083f e60b | | Load 0x3,0xb 0840 0a01 | | Execute_Immediate Plus,0x1 0841 c60b | | Store 0x3,0xb 0842 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0843 ; -------------------------------------------------------------------------------------- 0843 ; STRING TABLE 0843 ; -------------------------------------------------------------------------------------- 0843 0064 | d | .STRTAB 0x0064->0x0875 ; "Max_Tasks reached; not all tasks will be displayed" 0844 0095 | | .STRTAB 0x0095->0x088e ; "Operator Capability is required to use this command." 0845 00c7 | | .STRTAB 0x00c7->0x08a8 ; "scanning stack of " 0846 00d7 | | .STRTAB 0x00d7->0x08b1 ; " tos = " 0847 00dd | | .STRTAB 0x00dd->0x08b5 ; " Exception in scan: " 0848 00ef | | .STRTAB 0x00ef->0x08bf ; "s" 0849 00ee | | .STRTAB 0x00ee->0x08c0 ; "d" 084a 00ed | | .STRTAB 0x00ed->0x08c0 ; " (" 084b 00ed | | .STRTAB 0x00ed->0x08c1 ; "." 084c 00ec | | .STRTAB 0x00ec->0x08c2 ; ")" 084d 00eb | | .STRTAB 0x00eb->0x08c2 ; " [" 084e 00eb | | .STRTAB 0x00eb->0x08c3 ; "]." 084f 00eb | | .STRTAB 0x00eb->0x08c4 ; "unknown - no table" 0850 00fb | | .STRTAB 0x00fb->0x08cd ; " " 0851 00fa | | .STRTAB 0x00fa->0x08ce ; " " 0852 00fa | | .STRTAB 0x00fa->0x08cf ; "Discrete " 0853 0102 | | .STRTAB 0x0102->0x08d4 ; "Subprogram - Ref" 0854 0110 | | .STRTAB 0x0110->0x08dc ; "Subprogram" 0855 0118 | | .STRTAB 0x0118->0x08e1 ; "Subprogram - Elab, Ref" 0856 012c | , | .STRTAB 0x012c->0x08ec ; "Subprogram - Elab" 0857 013b | ; | .STRTAB 0x013b->0x08f4 ; "Task " 0858 0145 | E | .STRTAB 0x0145->0x08fa ; "Subprogram - Vis, Ref" 0859 0158 | X | .STRTAB 0x0158->0x0905 ; "Subprogram - Vis, Elab, Ref" 085a 0171 | q | .STRTAB 0x0171->0x0912 ; "Subprogram - Vis, Elaborated" 085b 018b | | .STRTAB 0x018b->0x0920 ; "Subprogram - accept block" 085c 01a2 | | .STRTAB 0x01a2->0x092d ; "Package " 085d 01ac | | .STRTAB 0x01ac->0x0933 ; "Accepted Rendezvous with " 085e 01c3 | | .STRTAB 0x01c3->0x093f ; "Package " 085f 01c9 | | .STRTAB 0x01c9->0x0943 ; "Task " 0860 01cf | | .STRTAB 0x01cf->0x0947 ; " " 0861 01d1 | | .STRTAB 0x01d1->0x0949 ; " Pri=" 0862 01d4 | | .STRTAB 0x01d4->0x094c ; " Parent=" 0863 01da | | .STRTAB 0x01da->0x0950 ; " SA=" 0864 01dc | | .STRTAB 0x01dc->0x0952 ; "Fr Off Pc Outer Lx" 0865 01fb | | .STRTAB 0x01fb->0x0962 ; "-- --- -------------- -------- --" 0866 021a | | .STRTAB 0x021a->0x0973 ; "_" 0867 0219 | | .STRTAB 0x0219->0x0973 ; ": temporarily not accessible" 0868 0233 | 3 | .STRTAB 0x0233->0x0981 ; "Exception: " 0869 023c | < | .STRTAB 0x023c->0x0987 ; "Processing file: " 086a 024b | K | .STRTAB 0x024b->0x098f ; " ..." 086b 024d | M | .STRTAB 0x024d->0x0991 ; " defined." 086c 0254 | T | .STRTAB 0x0254->0x0996 ; "Exception reading file: " 086d 026a | j | .STRTAB 0x026a->0x09a2 ; "name=" 086e 026d | m | .STRTAB 0x026d->0x09a4 ; " pc=" 086f 026f | o | .STRTAB 0x026f->0x09a6 ; ": " 0870 026f | o | .STRTAB 0x026f->0x09a7 ; "LOAD" 0871 0271 | q | .STRTAB 0x0271->0x09a9 ; ".SEG" 0872 0273 | s | .STRTAB 0x0273->0x09ab ; "CODE " 0873 0276 | v | .STRTAB 0x0276->0x09ae ; "--" 0874 0276 | v | .STREND 0x0276->0x09af 0875 4d61 785f |Max_| .STRTAB_STRINGS 09af 0000 | | .XXX[0x1] 09b0 ; -------------------------------------------------------------------------------------- 09b0 ; Debug Table 09b0 ; -------------------------------------------------------------------------------------- 09b0 0004 000b | | .DEBUG4 0x0004,0x000b,0xbb6e,0x0000,0x0001,0x0000 09b6 0000 0000 | | .BLANK 0000[0x4a]