|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 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 For_Outer_Call,Visible,Unelaborated,INIT_0018
000d 00bf | | Action Accept_Activation
000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
000f 00c7 | | Action Elaborate_Subprogram
0010 BODY_0008:
0010 00bc | | Action Signal_Activated
0011 00bb | | Action Signal_Completion
0012 0000 0000 | | .BLANK 0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 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 For_Call,Unelaborated,INIT_00b8
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 For_Call,INIT_00c0
003f 029f 00e3 | | Declare_Subprogram For_Call,INIT_00e0
0041 029f 0103 | | Declare_Subprogram For_Call,INIT_0100
0043 029f 0163 | c| Declare_Subprogram For_Call,INIT_0160
0045 029f 01c3 | | Declare_Subprogram For_Call,INIT_01c0
0047 029f 01fb | | Declare_Subprogram For_Call,INIT_01f8
0049 029f 021b | | Declare_Subprogram For_Call,INIT_0218
004b 029f 0283 | | Declare_Subprogram For_Call,INIT_0280
004d 029f 0293 | | Declare_Subprogram For_Call,INIT_0290
004f 029f 02c3 | | Declare_Subprogram For_Call,INIT_02c0
0051 029f 05ab | | Declare_Subprogram For_Call,INIT_05a8
0053 029f 06bb | | Declare_Subprogram For_Call,INIT_06b8
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_Subprogram 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_Subprogram 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_Result,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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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 For_Call,INIT_0730
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_Subprogram 0x2
01b8 00c8 | | Action Pop_Auxiliary_Range
01b9 3fbb |? | Loop_Increasing 0x175
01ba 4502 |E | Exit_Subprogram 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_Result,0x3
01e9 e7fe | | Load 0x3,-0x2
01ea 4403 |D | Exit_Subprogram With_Result,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_Result,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_Result,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_Result,0x1
0216 00ea | | Load_Encached Null_String_Cache
0217 4401 |D | Exit_Subprogram With_Result,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_Result,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_Result,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_Result,0x1
0278 0092 084f | O| Action Push_String_Extended,0x84f ; "unknown - no table"
027a 4401 |D | Exit_Subprogram With_Result,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_Result,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_Result,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 For_Call,INIT_0740
02d3 BODY_02c0:
02d3 e602 | | Load 0x3,0x2
02d4 467f |F | Jump_Case 0x7f
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_Result,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_Result,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_Result,0x1
0377 0092 0853 | S| Action Push_String_Extended,0x853 ; "Subprogram - Ref"
0379 4401 |D | Exit_Subprogram With_Result,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_Result,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_Result,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_Result,0x1
039e 0092 0854 | T| Action Push_String_Extended,0x854 ; "Subprogram"
03a0 4401 |D | Exit_Subprogram With_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,0x1
03f5 0092 0855 | U| Action Push_String_Extended,0x855 ; "Subprogram - Elab, Ref"
03f7 4401 |D | Exit_Subprogram With_Result,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_Result,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_Result,0x1
0410 0092 0856 | V| Action Push_String_Extended,0x856 ; "Subprogram - Elab"
0412 4401 |D | Exit_Subprogram With_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,0x1
045d 0092 0858 | X| Action Push_String_Extended,0x858 ; "Subprogram - Vis, Ref"
045f 4401 |D | Exit_Subprogram With_Result,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_Result,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_Result,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_Result,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_Result,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_Result,0x1
049c 0092 0859 | Y| Action Push_String_Extended,0x859 ; "Subprogram - Vis, Elab, Ref"
049e 4401 |D | Exit_Subprogram With_Result,0x1
049f 0092 085a | Z| Action Push_String_Extended,0x85a ; "Subprogram - Vis, Elaborated"
04a1 4401 |D | Exit_Subprogram With_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,0x1
04f6 0092 085b | [| Action Push_String_Extended,0x85b ; "Subprogram - accept block"
04f8 4401 |D | Exit_Subprogram With_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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 For_Call,INIT_0780
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_Subprogram 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_Subprogram 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 0x3
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_Subprogram 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_Subprogram 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 For_Call,INIT_07d8
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_Subprogram 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_Subprogram 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_Subprogram 0x1
073c TRAP_0730:
073c 0007 | | Action Break_Optional
073d 0008 | | Action Idle
073e 4501 |E | Exit_Subprogram 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_Result,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_Subprogram 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_Subprogram 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]