|
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]