|
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: 4096 (0x1000)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6060f0
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦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 0620 | | .CONST 0x0620 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 8004 | | .CONST 0x8004 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 009a | | .CONST 0x009a ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0032 | 2 | .CONST 0x0032 ; Number of locals
000b INIT_0008:
000b 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
000d 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated
000f 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated
0011 e001 | | Load 0x0,0x1
0012 0129 | ) | Execute Any,Make_Visible
0013 4803 |H | Short_Literal 0x3
0014 032b | + | Declare_Type Record,Incomplete,Visible
0015 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated
0017 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated
0019 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
001b 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
001d 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated
001f 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated
0021 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated
0023 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated
0025 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated
0027 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated
0029 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated
002b 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated
002d 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated
002f e002 | | Load 0x0,0x2
0030 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0031 6092 |` | Indirect_Literal Discrete,0xc4,{0x00000000, 0x00000400}
0032 e003 | | Load 0x0,0x3
0033 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0034 1c07 | | Execute_Immediate Run_Utility,0x7
0035 00e1 | | Load_Encached Boolean_Cache
0036 029f 05bb | | Declare_Subprogram INIT_05b8,For_Call
0038 e211 | | Load 0x1,0x11
0039 0326 | & | Complete_Type Record,By_Defining
003a 00bf | | Action Accept_Activation
003b 0092 0604 | | Action Push_String_Extended,0x604 ; "!machine.transport_name_map"
003d 4800 |H | Short_Literal 0x0
003e 0093 05eb | | push_full_address INIT_05e8
0040 02a0 | | Declare_Subprogram Null_Subprogram
0041 038e | | Declare_Type Package,Defined
0042 0387 | | Declare_Variable Package
0043 e004 | | Load 0x0,0x4
0044 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0045 02a0 | | Declare_Subprogram Null_Subprogram
0046 4818 |H | Short_Literal 0x18
0047 03d3 | | Declare_Type Access,Defined,Accesses_Protected
0048 e004 | | Load 0x0,0x4
0049 1b11 | | Execute Package,Field_Read,Field_Number 0x11
004a 02a0 | | Declare_Subprogram Null_Subprogram
004b 4818 |H | Short_Literal 0x18
004c 03d3 | | Declare_Type Access,Defined,Accesses_Protected
004d 00e9 | | Load_Encached String_Cache
004e 02a0 | | Declare_Subprogram Null_Subprogram
004f 4818 |H | Short_Literal 0x18
0050 03d3 | | Declare_Type Access,Defined,Accesses_Protected
0051 4830 |H0 | Short_Literal 0x30
0052 4839 |H9 | Short_Literal 0x39
0053 00e8 | | Load_Encached Character_Cache
0054 03f8 | | Declare_Type Discrete,Constrained
0055 4800 |H | Short_Literal 0x0
0056 0093 05db | | push_full_address INIT_05d8
0058 00f5 | | Load_Encached Unused21
0059 037d | } | Declare_Type Task,Defined
005a 036f | o | Declare_Variable Task
005b e005 | | Load 0x0,0x5
005c 1910 | | Execute Package,Field_Reference,Field_Number 0x10
005d 0007 | | Action Break_Optional
005e 029d 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call
0060 029d 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call
0062 029d 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call
0064 e220 | | Load 0x1,0x20
0065 020f | | Execute Module,Activate
0066 029d 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call
0068 029d 0393 | | Declare_Subprogram INIT_0390,For_Outer_Call
006a e006 | | Load 0x0,0x6
006b 1910 | | Execute Package,Field_Reference,Field_Number 0x10
006c 0007 | | Action Break_Optional
006d e006 | | Load 0x0,0x6
006e 1910 | | Execute Package,Field_Reference,Field_Number 0x10
006f 0007 | | Action Break_Optional
0070 029d 039b | | Declare_Subprogram INIT_0398,For_Outer_Call
0072 029d 0423 | #| Declare_Subprogram INIT_0420,For_Outer_Call
0074 029d 0433 | 3| Declare_Subprogram INIT_0430,For_Outer_Call
0076 029d 0483 | | Declare_Subprogram INIT_0480,For_Outer_Call
0078 029d 04ab | | Declare_Subprogram INIT_04a8,For_Outer_Call
007a 1d0d | | Execute_Immediate Reference_Lex_1,0xd
007b 00c7 | | Action Elaborate_Subprogram
007c 1d0e | | Execute_Immediate Reference_Lex_1,0xe
007d 00c7 | | Action Elaborate_Subprogram
007e 1d16 | | Execute_Immediate Reference_Lex_1,0x16
007f 00c7 | | Action Elaborate_Subprogram
0080 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0081 00c7 | | Action Elaborate_Subprogram
0082 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0083 00c7 | | Action Elaborate_Subprogram
0084 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0085 00c7 | | Action Elaborate_Subprogram
0086 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0087 00c7 | | Action Elaborate_Subprogram
0088 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0089 00c7 | | Action Elaborate_Subprogram
008a 1d14 | | Execute_Immediate Reference_Lex_1,0x14
008b 00c7 | | Action Elaborate_Subprogram
008c 1d15 | | Execute_Immediate Reference_Lex_1,0x15
008d 00c7 | | Action Elaborate_Subprogram
008e 1d18 | | Execute_Immediate Reference_Lex_1,0x18
008f 00c7 | | Action Elaborate_Subprogram
0090 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0091 00c7 | | Action Elaborate_Subprogram
0092 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0093 00c7 | | Action Elaborate_Subprogram
0094 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0095 00c7 | | Action Elaborate_Subprogram
0096 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0097 00c7 | | Action Elaborate_Subprogram
0098 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0099 00c7 | | Action Elaborate_Subprogram
009a BODY_0008:
009a 00be | | Action Activate_Tasks
009b 00bc | | Action Signal_Activated
009c 00bb | | Action Signal_Completion
009d 0000 0000 | | .XXX[0x3]
009f 0000 | |
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a5 | | .CONST 0x00a5 ; Address of begin
00a1 00bf | | .CONST 0x00bf ; Address of exception handler
00a2 0002 | | .CONST 0x0002 ; Number of locals
00a3 INIT_00a0:
00a3 029f 04bb | | Declare_Subprogram INIT_04b8,For_Call
00a5 BODY_00a0:
00a5 00db | | Load_Top At_Offset_3
00a6 8232 | 2 | Call 0x1,0x32
00a7 6808 |h | Jump_Zero 0xb0
00a8 4801 |H | Short_Literal 0x1
00a9 4806 |H | Short_Literal 0x6
00aa 00e9 | | Load_Encached String_Cache
00ab 0334 | 4 | Declare_Variable Array,With_Constraint
00ac 501b |P | Indirect_Literal Any,0xc8,{0x5443502f, 0x49502020}
00ad e004 | | Load 0x0,0x4
00ae 180f | | Execute Package,Field_Execute,Field_Number 0xf
00af 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00b0 00db | | Load_Top At_Offset_3
00b1 822f | / | Call 0x1,0x2f
00b2 6808 |h | Jump_Zero 0xbb
00b3 4801 |H | Short_Literal 0x1
00b4 4808 |H | Short_Literal 0x8
00b5 00e9 | | Load_Encached String_Cache
00b6 0334 | 4 | Declare_Variable Array,With_Constraint
00b7 5014 |P | Indirect_Literal Any,0xcc,{0x45746865, 0x726e6574}
00b8 e004 | | Load 0x0,0x4
00b9 180f | | Execute Package,Field_Execute,Field_Number 0xf
00ba 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00bb 00db | | Load_Top At_Offset_3
00bc e220 | | Load 0x1,0x20
00bd 180d | | Execute Package,Field_Execute,Field_Number 0xd
00be 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00bf TRAP_00a0:
00bf 0007 | | Action Break_Optional
00c0 8402 | | Call 0x2,0x2
00c1 0831 | 1 | Execute_Immediate Raise,0x31
00c2 0000 0000 | | .XXX[0x2]
00c4 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
00c8 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020}
00cc 4574 6865 |Ethe| .LITERAL {0x45746865, 0x726e6574}
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d9 | | .CONST 0x00d9 ; Address of begin
00d1 00df | | .CONST 0x00df ; Address of exception handler
00d2 0004 | | .CONST 0x0004 ; Number of locals
00d3 INIT_00d0:
00d3 029f 04db | | Declare_Subprogram INIT_04d8,For_Call
00d5 029f 04eb | | Declare_Subprogram INIT_04e8,For_Call
00d7 029f 04fb | | Declare_Subprogram INIT_04f8,For_Call
00d9 BODY_00d0:
00d9 8402 | | Call 0x2,0x2
00da 8403 | | Call 0x2,0x3
00db e5ff | | Load 0x2,-0x1
00dc e220 | | Load 0x1,0x20
00dd 180e | | Execute Package,Field_Execute,Field_Number 0xe
00de 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00df TRAP_00d0:
00df 0007 | | Action Break_Optional
00e0 8404 | | Call 0x2,0x4
00e1 0831 | 1 | Execute_Immediate Raise,0x31
00e2 0000 0000 | | .BLANK 0000[0x6]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00ed | | .CONST 0x00ed ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0002 | | .CONST 0x0002 ; Number of locals
00eb INIT_00e8:
00eb e223 | # | Load 0x1,0x23
00ec 0007 | | Action Break_Optional
00ed BODY_00e8:
00ed e223 | # | Load 0x1,0x23
00ee e5ff | | Load 0x2,-0x1
00ef 4802 |H | Short_Literal 0x2
00f0 e225 | % | Load 0x1,0x25
00f1 170e | | Execute Task,Entry_Call,Field_Number 0xe
00f2 0039 | 9 | Store_Top Access,At_Offset_1
00f3 00d8 | | Load_Top At_Offset_0
00f4 6805 |h | Jump_Zero 0xfa
00f5 00d8 | | Load_Top At_Offset_0
00f6 0227 | ' | Execute Access,All_Reference
00f7 0335 | 5 | Declare_Variable Array,Duplicate
00f8 00cd | | Action Spare6_Action
00f9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00fa e210 | | Load 0x1,0x10
00fb 0257 | W | Execute Discrete,Raise
00fc 0000 0000 | | .BLANK 0000[0x4]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0105 | | .CONST 0x0105 ; Address of begin
0101 0126 | & | .CONST 0x0126 ; Address of exception handler
0102 0002 | | .CONST 0x0002 ; Number of locals
0103 INIT_0100:
0103 029f 051b | | Declare_Subprogram INIT_0518,For_Call
0105 BODY_0100:
0105 00db | | Load_Top At_Offset_3
0106 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0107 e21f | | Load 0x1,0x1f
0108 8227 | ' | Call 0x1,0x27
0109 e5ff | | Load 0x2,-0x1
010a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
010b 00db | | Load_Top At_Offset_3
010c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
010d e006 | | Load 0x0,0x6
010e 180e | | Execute Package,Field_Execute,Field_Number 0xe
010f 6811 |h | Jump_Zero 0x121
0110 4801 |H | Short_Literal 0x1
0111 e5ff | | Load 0x2,-0x1
0112 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0113 00db | | Load_Top At_Offset_3
0114 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0115 4820 |H | Short_Literal 0x20
0116 4800 |H | Short_Literal 0x0
0117 e003 | | Load 0x0,0x3
0118 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0119 00d1 | | Pop_Control Pop_Count_1
011a 00db | | Load_Top At_Offset_3
011b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
011c e006 | | Load 0x0,0x6
011d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
011e e5ff | | Load 0x2,-0x1
011f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0120 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0121 4800 |H | Short_Literal 0x0
0122 e5ff | | Load 0x2,-0x1
0123 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0124 8402 | | Call 0x2,0x2
0125 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0126 TRAP_0100:
0126 0007 | | Action Break_Optional
0127 4801 |H | Short_Literal 0x1
0128 e5ff | | Load 0x2,-0x1
0129 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
012a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
012b 0000 0000 | | .BLANK 0000[0x5]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0135 | 5 | .CONST 0x0135 ; Address of begin
0131 0154 | T | .CONST 0x0154 ; Address of exception handler
0132 0002 | | .CONST 0x0002 ; Number of locals
0133 INIT_0130:
0133 029f 0533 | 3| Declare_Subprogram INIT_0530,For_Call
0135 BODY_0130:
0135 00db | | Load_Top At_Offset_3
0136 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0137 e006 | | Load 0x0,0x6
0138 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0139 00db | | Load_Top At_Offset_3
013a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
013b e006 | | Load 0x0,0x6
013c 180e | | Execute Package,Field_Execute,Field_Number 0xe
013d 6811 |h | Jump_Zero 0x14f
013e 4801 |H | Short_Literal 0x1
013f e5ff | | Load 0x2,-0x1
0140 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0141 00db | | Load_Top At_Offset_3
0142 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0143 4820 |H | Short_Literal 0x20
0144 4800 |H | Short_Literal 0x0
0145 e003 | | Load 0x0,0x3
0146 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0147 00d1 | | Pop_Control Pop_Count_1
0148 00db | | Load_Top At_Offset_3
0149 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
014a e006 | | Load 0x0,0x6
014b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
014c e5ff | | Load 0x2,-0x1
014d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
014e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
014f 4800 |H | Short_Literal 0x0
0150 e5ff | | Load 0x2,-0x1
0151 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0152 8402 | | Call 0x2,0x2
0153 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0154 TRAP_0130:
0154 0007 | | Action Break_Optional
0155 4801 |H | Short_Literal 0x1
0156 e5ff | | Load 0x2,-0x1
0157 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0158 e5ff | | Load 0x2,-0x1
0159 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
015a e006 | | Load 0x0,0x6
015b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
015c e5ff | | Load 0x2,-0x1
015d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
015e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
015f 0000 | | .XXX[0x1]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163 | c | .CONST 0x0163 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0001 | | .CONST 0x0001 ; Number of locals
0163 BODY_0160:
0163 INIT_0160:
0163 00da | | Load_Top At_Offset_2
0164 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0165 e003 | | Load 0x0,0x3
0166 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0167 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b | k | .CONST 0x016b ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0001 | | .CONST 0x0001 ; Number of locals
016b BODY_0168:
016b INIT_0168:
016b 00da | | Load_Top At_Offset_2
016c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
016d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
016e 0000 0000 | | .XXX[0x2]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0179 | y | .CONST 0x0179 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0004 | | .CONST 0x0004 ; Number of locals
0173 INIT_0170:
0173 e221 | ! | Load 0x1,0x21
0174 0007 | | Action Break_Optional
0175 e222 | " | Load 0x1,0x22
0176 0007 | | Action Break_Optional
0177 e223 | # | Load 0x1,0x23
0178 0007 | | Action Break_Optional
0179 BODY_0170:
0179 e5ff | | Load 0x2,-0x1
017a 8232 | 2 | Call 0x1,0x32
017b 7003 |p | Jump_Nonzero 0x17f
017c e5ff | | Load 0x2,-0x1
017d 822f | / | Call 0x1,0x2f
017e 6802 |h | Jump_Zero 0x181
017f 00ea | | Load_Encached Null_String_Cache
0180 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0181 e223 | # | Load 0x1,0x23
0182 e222 | " | Load 0x1,0x22
0183 e221 | ! | Load 0x1,0x21
0184 e5ff | | Load 0x2,-0x1
0185 4804 |H | Short_Literal 0x4
0186 e225 | % | Load 0x1,0x25
0187 170d | | Execute Task,Entry_Call,Field_Number 0xd
0188 c402 | | Store 0x2,0x2
0189 003b | ; | Store_Top Access,At_Offset_3
018a 0039 | 9 | Store_Top Access,At_Offset_1
018b 00d8 | | Load_Top At_Offset_0
018c 7002 |p | Jump_Nonzero 0x18f
018d e210 | | Load 0x1,0x10
018e 0257 | W | Execute Discrete,Raise
018f 00d8 | | Load_Top At_Offset_0
0190 0227 | ' | Execute Access,All_Reference
0191 0335 | 5 | Declare_Variable Array,Duplicate
0192 00cd | | Action Spare6_Action
0193 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0194 0000 0000 | | .BLANK 0000[0x4]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b 00da | | Load_Top At_Offset_2
019c e007 | | Load 0x0,0x7
019d 180f | | Execute Package,Field_Execute,Field_Number 0xf
019e 00db | | Load_Top At_Offset_3
019f 821b | | Call 0x1,0x1b
01a0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a1 0000 0000 | | .BLANK 0000[0x7]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01b4 | | .CONST 0x01b4 ; Address of begin
01a9 01cc | | .CONST 0x01cc ; Address of exception handler
01aa 0004 | | .CONST 0x0004 ; Number of locals
01ab INIT_01a8:
01ab e006 | | Load 0x0,0x6
01ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01ad 02c7 | | Declare_Variable Any
01ae 00d8 | | Load_Top At_Offset_0
01af 1c00 | | Execute_Immediate Run_Utility,0x0
01b0 00db | | Load_Top At_Offset_3
01b1 822b | + | Call 0x1,0x2b
01b2 029f 054b | K| Declare_Subprogram INIT_0548,For_Call
01b4 BODY_01a8:
01b4 00da | | Load_Top At_Offset_2
01b5 e5fe | | Load 0x2,-0x2
01b6 e008 | | Load 0x0,0x8
01b7 1852 | R | Execute Package,Field_Execute,Field_Number 0x52
01b8 8228 | ( | Call 0x1,0x28
01b9 c402 | | Store 0x2,0x2
01ba 00cf | | Action Mark_Auxiliary
01bb 7805 |x | Jump 0x1c1
01bc 8404 | | Call 0x2,0x4
01bd 00db | | Load_Top At_Offset_3
01be e006 | | Load 0x0,0x6
01bf 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01c0 00c9 | | Action Pop_Auxiliary_Loop
01c1 00db | | Load_Top At_Offset_3
01c2 e006 | | Load 0x0,0x6
01c3 180e | | Execute Package,Field_Execute,Field_Number 0xe
01c4 6ff7 |o | Jump_Zero 0x1bc
01c5 00ce | | Action Pop_Auxiliary
01c6 00da | | Load_Top At_Offset_2
01c7 e006 | | Load 0x0,0x6
01c8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01c9 c402 | | Store 0x2,0x2
01ca e210 | | Load 0x1,0x10
01cb 0257 | W | Execute Discrete,Raise
01cc TRAP_01a8:
01cc e210 | | Load 0x1,0x10
01cd 010f | | Execute Exception,Equal
01ce 6802 |h | Jump_Zero 0x1d1
01cf 00ea | | Load_Encached Null_String_Cache
01d0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01d1 0100 | | Execute Exception,Raise
01d2 0000 0000 | | .BLANK 0000[0x6]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01e4 | | .CONST 0x01e4 ; Address of begin
01d9 01fc | | .CONST 0x01fc ; Address of exception handler
01da 0004 | | .CONST 0x0004 ; Number of locals
01db INIT_01d8:
01db e006 | | Load 0x0,0x6
01dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01dd 02c7 | | Declare_Variable Any
01de 00d8 | | Load_Top At_Offset_0
01df 1c00 | | Execute_Immediate Run_Utility,0x0
01e0 00db | | Load_Top At_Offset_3
01e1 822b | + | Call 0x1,0x2b
01e2 029f 056b | k| Declare_Subprogram INIT_0568,For_Call
01e4 BODY_01d8:
01e4 00da | | Load_Top At_Offset_2
01e5 e5fe | | Load 0x2,-0x2
01e6 e008 | | Load 0x0,0x8
01e7 1852 | R | Execute Package,Field_Execute,Field_Number 0x52
01e8 8228 | ( | Call 0x1,0x28
01e9 c402 | | Store 0x2,0x2
01ea 00cf | | Action Mark_Auxiliary
01eb 7805 |x | Jump 0x1f1
01ec 8404 | | Call 0x2,0x4
01ed 00db | | Load_Top At_Offset_3
01ee e006 | | Load 0x0,0x6
01ef 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01f0 00c9 | | Action Pop_Auxiliary_Loop
01f1 00db | | Load_Top At_Offset_3
01f2 e006 | | Load 0x0,0x6
01f3 180e | | Execute Package,Field_Execute,Field_Number 0xe
01f4 6ff7 |o | Jump_Zero 0x1ec
01f5 00ce | | Action Pop_Auxiliary
01f6 00da | | Load_Top At_Offset_2
01f7 e006 | | Load 0x0,0x6
01f8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01f9 c402 | | Store 0x2,0x2
01fa e210 | | Load 0x1,0x10
01fb 0257 | W | Execute Discrete,Raise
01fc TRAP_01d8:
01fc e210 | | Load 0x1,0x10
01fd 010f | | Execute Exception,Equal
01fe 6802 |h | Jump_Zero 0x201
01ff 00ea | | Load_Encached Null_String_Cache
0200 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0201 0100 | | Execute Exception,Raise
0202 0000 0000 | | .BLANK 0000[0x6]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 0214 | | .CONST 0x0214 ; Address of begin
0209 022c | , | .CONST 0x022c ; Address of exception handler
020a 0004 | | .CONST 0x0004 ; Number of locals
020b INIT_0208:
020b e006 | | Load 0x0,0x6
020c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
020d 02c7 | | Declare_Variable Any
020e 00d8 | | Load_Top At_Offset_0
020f 1c00 | | Execute_Immediate Run_Utility,0x0
0210 00db | | Load_Top At_Offset_3
0211 822b | + | Call 0x1,0x2b
0212 029f 058b | | Declare_Subprogram INIT_0588,For_Call
0214 BODY_0208:
0214 00da | | Load_Top At_Offset_2
0215 e5fe | | Load 0x2,-0x2
0216 e008 | | Load 0x0,0x8
0217 1857 | W | Execute Package,Field_Execute,Field_Number 0x57
0218 8228 | ( | Call 0x1,0x28
0219 c402 | | Store 0x2,0x2
021a 00cf | | Action Mark_Auxiliary
021b 7805 |x | Jump 0x221
021c 8404 | | Call 0x2,0x4
021d 00db | | Load_Top At_Offset_3
021e e006 | | Load 0x0,0x6
021f 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0220 00c9 | | Action Pop_Auxiliary_Loop
0221 00db | | Load_Top At_Offset_3
0222 e006 | | Load 0x0,0x6
0223 180e | | Execute Package,Field_Execute,Field_Number 0xe
0224 6ff7 |o | Jump_Zero 0x21c
0225 00ce | | Action Pop_Auxiliary
0226 00da | | Load_Top At_Offset_2
0227 e006 | | Load 0x0,0x6
0228 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0229 c402 | | Store 0x2,0x2
022a e210 | | Load 0x1,0x10
022b 0257 | W | Execute Discrete,Raise
022c TRAP_0208:
022c e210 | | Load 0x1,0x10
022d 010f | | Execute Exception,Equal
022e 6802 |h | Jump_Zero 0x231
022f 00ea | | Load_Encached Null_String_Cache
0230 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0231 0100 | | Execute Exception,Raise
0232 0000 0000 | | .BLANK 0000[0x6]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023d | = | .CONST 0x023d ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0002 | | .CONST 0x0002 ; Number of locals
023b INIT_0238:
023b e223 | # | Load 0x1,0x23
023c 0007 | | Action Break_Optional
023d BODY_0238:
023d e223 | # | Load 0x1,0x23
023e e5fe | | Load 0x2,-0x2
023f e5ff | | Load 0x2,-0x1
0240 4803 |H | Short_Literal 0x3
0241 e225 | % | Load 0x1,0x25
0242 170f | | Execute Task,Entry_Call,Field_Number 0xf
0243 0039 | 9 | Store_Top Access,At_Offset_1
0244 00d8 | | Load_Top At_Offset_0
0245 6805 |h | Jump_Zero 0x24b
0246 00d8 | | Load_Top At_Offset_0
0247 0227 | ' | Execute Access,All_Reference
0248 0335 | 5 | Declare_Variable Array,Duplicate
0249 00cd | | Action Spare6_Action
024a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
024b 00db | | Load_Top At_Offset_3
024c e004 | | Load 0x0,0x4
024d 180f | | Execute Package,Field_Execute,Field_Number 0xf
024e 4801 |H | Short_Literal 0x1
024f 4806 |H | Short_Literal 0x6
0250 00e9 | | Load_Encached String_Cache
0251 0334 | 4 | Declare_Variable Array,With_Constraint
0252 5019 |P | Indirect_Literal Any,0x26c,{0x5443502f, 0x49502020}
0253 e004 | | Load 0x0,0x4
0254 180f | | Execute Package,Field_Execute,Field_Number 0xf
0255 01df | | Execute Vector,Equal
0256 700c |p | Jump_Nonzero 0x263
0257 00db | | Load_Top At_Offset_3
0258 e004 | | Load 0x0,0x4
0259 180f | | Execute Package,Field_Execute,Field_Number 0xf
025a 4801 |H | Short_Literal 0x1
025b 4806 |H | Short_Literal 0x6
025c 00e9 | | Load_Encached String_Cache
025d 0334 | 4 | Declare_Variable Array,With_Constraint
025e 5011 |P | Indirect_Literal Any,0x270,{0x5544502f, 0x49502020}
025f e004 | | Load 0x0,0x4
0260 180f | | Execute Package,Field_Execute,Field_Number 0xf
0261 01df | | Execute Vector,Equal
0262 6805 |h | Jump_Zero 0x268
0263 e5fe | | Load 0x2,-0x2
0264 e009 | | Load 0x0,0x9
0265 180f | | Execute Package,Field_Execute,Field_Number 0xf
0266 8229 | ) | Call 0x1,0x29
0267 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0268 e210 | | Load 0x1,0x10
0269 0257 | W | Execute Discrete,Raise
026a 0000 0000 | | .XXX[0x2]
026c 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020}
0270 5544 502f |UDP/| .LITERAL {0x5544502f, 0x49502020}
0274 0000 0000 | | .BLANK 0000[0x4]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b | { | .CONST 0x027b ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0001 | | .CONST 0x0001 ; Number of locals
027b BODY_0278:
027b INIT_0278:
027b 00da | | Load_Top At_Offset_2
027c 01db | | Execute Vector,Length
027d 0c03 | | Execute_Immediate Greater_Equal,0x3
027e 6810 |h | Jump_Zero 0x28f
027f 00da | | Load_Top At_Offset_2
0280 01dd | | Execute Vector,First
0281 00db | | Load_Top At_Offset_3
0282 01dd | | Execute Vector,First
0283 0a01 | | Execute_Immediate Plus,0x1
0284 00d8 | | Load_Top At_Offset_0
0285 00e2 | | Load_Encached Integer_Cache
0286 0260 | ` | Execute Discrete,In_Type
0287 7001 |p | Jump_Nonzero 0x289
0288 0801 | | Execute_Immediate Raise,0x1
0289 e5ff | | Load 0x2,-0x1
028a 01cf | | Execute Vector,Slice_Read
028b 0092 0605 | | Action Push_String_Extended,0x605 ; "!!"
028d 01df | | Execute Vector,Equal
028e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
028f 4800 |H | Short_Literal 0x0
0290 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0291 0000 0000 | | .BLANK 0000[0x7]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 02a3 | | .CONST 0x02a3 ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0003 | | .CONST 0x0003 ; Number of locals
029b INIT_0298:
029b 00da | | Load_Top At_Offset_2
029c 01dd | | Execute Vector,First
029d 0a02 | | Execute_Immediate Plus,0x2
029e 00e4 | | Load_Encached Positive_Cache
029f 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
02a0 00d8 | | Load_Top At_Offset_0
02a1 00e4 | | Load_Encached Positive_Cache
02a2 03f1 | | Declare_Variable Discrete,With_Value
02a3 BODY_0298:
02a3 e5ff | | Load 0x2,-0x1
02a4 821c | | Call 0x1,0x1c
02a5 7001 |p | Jump_Nonzero 0x2a7
02a6 08e0 | | Execute_Immediate Raise,0xe0
02a7 00cf | | Action Mark_Auxiliary
02a8 780e |x | Jump 0x2b7
02a9 00d9 | | Load_Top At_Offset_1
02aa e5ff | | Load 0x2,-0x1
02ab 01d7 | | Execute Vector,Field_Read
02ac 0b21 | ! | Execute_Immediate Case_Compare,0x21
02ad 7006 |p | Jump_Nonzero 0x2b4
02ae 0f2e | . | Execute_Immediate Equal,0x2e
02af 700c |p | Jump_Nonzero 0x2bc
02b0 00d9 | | Load_Top At_Offset_1
02b1 0a01 | | Execute_Immediate Plus,0x1
02b2 005a | Z | Store_Top Discrete,At_Offset_2
02b3 7802 |x | Jump 0x2b6
02b4 00d1 | | Pop_Control Pop_Count_1
02b5 7806 |x | Jump 0x2bc
02b6 00c9 | | Action Pop_Auxiliary_Loop
02b7 00d9 | | Load_Top At_Offset_1
02b8 e5ff | | Load 0x2,-0x1
02b9 01dc | | Execute Vector,Last
02ba 027a | z | Execute Discrete,Less_Equal
02bb 77ed |w | Jump_Nonzero 0x2a9
02bc 00ce | | Action Pop_Auxiliary
02bd 00d9 | | Load_Top At_Offset_1
02be 00d9 | | Load_Top At_Offset_1
02bf 0aff | | Execute_Immediate Plus,-0x1
02c0 e5ff | | Load 0x2,-0x1
02c1 01cf | | Execute Vector,Slice_Read
02c2 0335 | 5 | Declare_Variable Array,Duplicate
02c3 00cd | | Action Spare6_Action
02c4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02c5 0000 0000 | | .XXX[0x3]
02c7 0000 | |
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02d4 | | .CONST 0x02d4 ; Address of begin
02c9 0004 | | .CONST 0x0004 ; Address of exception handler
02ca 0002 | | .CONST 0x0002 ; Number of locals
02cb INIT_02c8:
02cb 00da | | Load_Top At_Offset_2
02cc 01dd | | Execute Vector,First
02cd 0a02 | | Execute_Immediate Plus,0x2
02ce 00db | | Load_Top At_Offset_3
02cf 821d | | Call 0x1,0x1d
02d0 01db | | Execute Vector,Length
02d1 0273 | s | Execute Discrete,Plus
02d2 00e4 | | Load_Encached Positive_Cache
02d3 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
02d4 BODY_02c8:
02d4 00d8 | | Load_Top At_Offset_0
02d5 e5ff | | Load 0x2,-0x1
02d6 01d7 | | Execute Vector,Field_Read
02d7 0b21 | ! | Execute_Immediate Case_Compare,0x21
02d8 7003 |p | Jump_Nonzero 0x2dc
02d9 0f2e | . | Execute_Immediate Equal,0x2e
02da 700a |p | Jump_Nonzero 0x2e5
02db 08e0 | | Execute_Immediate Raise,0xe0
02dc 00d1 | | Pop_Control Pop_Count_1
02dd 00d8 | | Load_Top At_Offset_0
02de e5ff | | Load 0x2,-0x1
02df 01dc | | Execute Vector,Last
02e0 e5ff | | Load 0x2,-0x1
02e1 01cf | | Execute Vector,Slice_Read
02e2 0335 | 5 | Declare_Variable Array,Duplicate
02e3 00cd | | Action Spare6_Action
02e4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02e5 4821 |H! | Short_Literal 0x21
02e6 00d9 | | Load_Top At_Offset_1
02e7 0a01 | | Execute_Immediate Plus,0x1
02e8 00d8 | | Load_Top At_Offset_0
02e9 00e2 | | Load_Encached Integer_Cache
02ea 0260 | ` | Execute Discrete,In_Type
02eb 7001 |p | Jump_Nonzero 0x2ed
02ec 0801 | | Execute_Immediate Raise,0x1
02ed e5ff | | Load 0x2,-0x1
02ee 01dc | | Execute Vector,Last
02ef e5ff | | Load 0x2,-0x1
02f0 01cf | | Execute Vector,Slice_Read
02f1 01ca | | Execute Vector,Prepend
02f2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02f3 0000 0000 | | .BLANK 0000[0x5]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02fb | | .CONST 0x02fb ; Address of begin
02f9 0303 | | .CONST 0x0303 ; Address of exception handler
02fa 0001 | | .CONST 0x0001 ; Number of locals
02fb BODY_02f8:
02fb INIT_02f8:
02fb 00db | | Load_Top At_Offset_3
02fc 00ea | | Load_Encached Null_String_Cache
02fd e5ff | | Load 0x2,-0x1
02fe 4800 |H | Short_Literal 0x0
02ff e002 | | Load 0x0,0x2
0300 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0301 c5fe | | Store 0x2,-0x2
0302 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0303 TRAP_02f8:
0303 00d8 | | Load_Top At_Offset_0
0304 0107 | | Execute Exception,Get_Name
0305 4920 |I | Short_Literal 0x120
0306 492f |I/ | Short_Literal 0x12f
0307 0262 | b | Execute Discrete,In_Range
0308 6802 |h | Jump_Zero 0x30b
0309 e210 | | Load 0x1,0x10
030a 0257 | W | Execute Discrete,Raise
030b 0100 | | Execute Exception,Raise
030c 0000 0000 | | .BLANK 0000[0x4]
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0313 | | .CONST 0x0313 ; Address of begin
0311 0324 | $ | .CONST 0x0324 ; Address of exception handler
0312 0001 | | .CONST 0x0001 ; Number of locals
0313 BODY_0310:
0313 INIT_0310:
0313 00da | | Load_Top At_Offset_2
0314 e00a | | Load 0x0,0xa
0315 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0316 6802 |h | Jump_Zero 0x319
0317 e210 | | Load 0x1,0x10
0318 0257 | W | Execute Discrete,Raise
0319 00db | | Load_Top At_Offset_3
031a 00ea | | Load_Encached Null_String_Cache
031b e5ff | | Load 0x2,-0x1
031c e00a | | Load 0x0,0xa
031d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
031e 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
031f 4800 |H | Short_Literal 0x0
0320 e002 | | Load 0x0,0x2
0321 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0322 c5fe | | Store 0x2,-0x2
0323 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0324 TRAP_0310:
0324 0007 | | Action Break_Optional
0325 e210 | | Load 0x1,0x10
0326 0257 | W | Execute Discrete,Raise
0327 0000 | | .XXX[0x1]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 0333 | 3 | .CONST 0x0333 ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 0003 | | .CONST 0x0003 ; Number of locals
032b INIT_0328:
032b 00da | | Load_Top At_Offset_2
032c 01dd | | Execute Vector,First
032d 00e4 | | Load_Encached Positive_Cache
032e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
032f 00db | | Load_Top At_Offset_3
0330 01dc | | Execute Vector,Last
0331 00e3 | | Load_Encached Natural_Cache
0332 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0333 BODY_0328:
0333 00cf | | Action Mark_Auxiliary
0334 7804 |x | Jump 0x339
0335 00da | | Load_Top At_Offset_2
0336 0a01 | | Execute_Immediate Plus,0x1
0337 005b | [ | Store_Top Discrete,At_Offset_3
0338 00c9 | | Action Pop_Auxiliary_Loop
0339 00da | | Load_Top At_Offset_2
033a 00da | | Load_Top At_Offset_2
033b 027a | z | Execute Discrete,Less_Equal
033c 6806 |h | Jump_Zero 0x343
033d 00da | | Load_Top At_Offset_2
033e e5ff | | Load 0x2,-0x1
033f 01d7 | | Execute Vector,Field_Read
0340 e006 | | Load 0x0,0x6
0341 180f | | Execute Package,Field_Execute,Field_Number 0xf
0342 77f2 |w | Jump_Nonzero 0x335
0343 00c9 | | Action Pop_Auxiliary_Loop
0344 7804 |x | Jump 0x349
0345 00d9 | | Load_Top At_Offset_1
0346 0aff | | Execute_Immediate Plus,-0x1
0347 005a | Z | Store_Top Discrete,At_Offset_2
0348 00c9 | | Action Pop_Auxiliary_Loop
0349 00da | | Load_Top At_Offset_2
034a 00da | | Load_Top At_Offset_2
034b 027a | z | Execute Discrete,Less_Equal
034c 6806 |h | Jump_Zero 0x353
034d 00d9 | | Load_Top At_Offset_1
034e e5ff | | Load 0x2,-0x1
034f 01d7 | | Execute Vector,Field_Read
0350 e006 | | Load 0x0,0x6
0351 180f | | Execute Package,Field_Execute,Field_Number 0xf
0352 77f2 |w | Jump_Nonzero 0x345
0353 00ce | | Action Pop_Auxiliary
0354 00d9 | | Load_Top At_Offset_1
0355 00d9 | | Load_Top At_Offset_1
0356 e5ff | | Load 0x2,-0x1
0357 01cf | | Execute Vector,Slice_Read
0358 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0359 0000 0000 | | .BLANK 0000[0x7]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0368 | h | .CONST 0x0368 ; Address of begin
0361 0004 | | .CONST 0x0004 ; Address of exception handler
0362 0002 | | .CONST 0x0002 ; Number of locals
0363 INIT_0360:
0363 00da | | Load_Top At_Offset_2
0364 01da | | Execute Vector,Bounds
0365 00e9 | | Load_Encached String_Cache
0366 035b | [ | Declare_Type Array,Constrained
0367 0337 | 7 | Declare_Variable Array
0368 BODY_0360:
0368 00cf | | Action Mark_Auxiliary
0369 e5ff | | Load 0x2,-0x1
036a 01d9 | | Execute Vector,Reverse_Bounds
036b 0263 | c | Execute Discrete,Above_Bound
036c 701c |p | Jump_Nonzero 0x389
036d 00d8 | | Load_Top At_Offset_0
036e e5ff | | Load 0x2,-0x1
036f 01d7 | | Execute Vector,Field_Read
0370 4861 |Ha | Short_Literal 0x61
0371 487a |Hz | Short_Literal 0x7a
0372 0262 | b | Execute Discrete,In_Range
0373 680d |h | Jump_Zero 0x381
0374 00d8 | | Load_Top At_Offset_0
0375 e5ff | | Load 0x2,-0x1
0376 01d7 | | Execute Vector,Field_Read
0377 0ae0 | | Execute_Immediate Plus,-0x20
0378 00d8 | | Load_Top At_Offset_0
0379 00e8 | | Load_Encached Character_Cache
037a 0260 | ` | Execute Discrete,In_Type
037b 7001 |p | Jump_Nonzero 0x37d
037c 0801 | | Execute_Immediate Raise,0x1
037d 00d9 | | Load_Top At_Offset_1
037e e402 | | Load 0x2,0x2
037f 01d6 | | Execute Vector,Field_Write
0380 7806 |x | Jump 0x387
0381 00d8 | | Load_Top At_Offset_0
0382 e5ff | | Load 0x2,-0x1
0383 01d7 | | Execute Vector,Field_Read
0384 00d9 | | Load_Top At_Offset_1
0385 e402 | | Load 0x2,0x2
0386 01d6 | | Execute Vector,Field_Write
0387 00c8 | | Action Pop_Auxiliary_Range
0388 3fe4 |? | Loop_Increasing 0x36d
0389 00ce | | Action Pop_Auxiliary
038a 00d8 | | Load_Top At_Offset_0
038b 00e9 | | Load_Encached String_Cache
038c 01c6 | | Execute Vector,Convert_To_Formal
038d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
038e 0000 0000 | | .XXX[0x2]
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 0393 | | .CONST 0x0393 ; Address of begin
0391 0004 | | .CONST 0x0004 ; Address of exception handler
0392 0001 | | .CONST 0x0001 ; Number of locals
0393 BODY_0390:
0393 INIT_0390:
0393 00da | | Load_Top At_Offset_2
0394 8229 | ) | Call 0x1,0x29
0395 822a | * | Call 0x1,0x2a
0396 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0397 0000 | | .XXX[0x1]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 03af | | .CONST 0x03af ; Address of begin
0399 0004 | | .CONST 0x0004 ; Address of exception handler
039a 0003 | | .CONST 0x0003 ; Number of locals
039b INIT_0398:
039b 4801 |H | Short_Literal 0x1
039c 4806 |H | Short_Literal 0x6
039d e004 | | Load 0x0,0x4
039e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
039f 035b | [ | Declare_Type Array,Constrained
03a0 0337 | 7 | Declare_Variable Array
03a1 00d8 | | Load_Top At_Offset_0
03a2 0335 | 5 | Declare_Variable Array,Duplicate
03a3 00cd | | Action Spare6_Action
03a4 4806 |H | Short_Literal 0x6
03a5 4801 |H | Short_Literal 0x1
03a6 4800 |H | Short_Literal 0x0
03a7 00d9 | | Load_Top At_Offset_1
03a8 e403 | | Load 0x2,0x3
03a9 01d6 | | Execute Vector,Field_Write
03aa 3ffb |? | Loop_Increasing 0x3a6
03ab 00d9 | | Load_Top At_Offset_1
03ac 01d4 | | Execute Vector,Structure_Write
03ad 00e3 | | Load_Encached Natural_Cache
03ae 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
03af BODY_0398:
03af 00cf | | Action Mark_Auxiliary
03b0 e5ff | | Load 0x2,-0x1
03b1 01d9 | | Execute Vector,Reverse_Bounds
03b2 0263 | c | Execute Discrete,Above_Bound
03b3 705b |p[ | Jump_Nonzero 0x40f
03b4 00d8 | | Load_Top At_Offset_0
03b5 e5ff | | Load 0x2,-0x1
03b6 01d7 | | Execute Vector,Field_Read
03b7 00d8 | | Load_Top At_Offset_0
03b8 0d3a | : | Execute_Immediate Less,0x3a
03b9 700d |p | Jump_Nonzero 0x3c7
03ba 00d8 | | Load_Top At_Offset_0
03bb 0c41 | A | Execute_Immediate Greater_Equal,0x41
03bc 7002 |p | Jump_Nonzero 0x3bf
03bd 00d1 | | Pop_Control Pop_Count_1
03be 08e0 | | Execute_Immediate Raise,0xe0
03bf 00d8 | | Load_Top At_Offset_0
03c0 0c47 | G | Execute_Immediate Greater_Equal,0x47
03c1 6832 |h2 | Jump_Zero 0x3f4
03c2 4861 |Ha | Short_Literal 0x61
03c3 4866 |Hf | Short_Literal 0x66
03c4 0262 | b | Execute Discrete,In_Range
03c5 701a |p | Jump_Nonzero 0x3e0
03c6 7ff7 | | Jump 0x3be
03c7 0b2d | - | Execute_Immediate Case_Compare,0x2d
03c8 7040 |p@ | Jump_Nonzero 0x409
03c9 e224 | $ | Load 0x1,0x24
03ca 0260 | ` | Execute Discrete,In_Type
03cb 7001 |p | Jump_Nonzero 0x3cd
03cc 7ff1 | | Jump 0x3be
03cd 00db | | Load_Top At_Offset_3
03ce e402 | | Load 0x2,0x2
03cf 01d7 | | Execute Vector,Field_Read
03d0 0904 | | Execute_Immediate Binary_Scale,0x4
03d1 00d9 | | Load_Top At_Offset_1
03d2 e5ff | | Load 0x2,-0x1
03d3 01d7 | | Execute Vector,Field_Read
03d4 0ad0 | | Execute_Immediate Plus,-0x30
03d5 00d8 | | Load_Top At_Offset_0
03d6 e00b | | Load 0x0,0xb
03d7 1b11 | | Execute Package,Field_Read,Field_Number 0x11
03d8 0260 | ` | Execute Discrete,In_Type
03d9 7001 |p | Jump_Nonzero 0x3db
03da 0801 | | Execute_Immediate Raise,0x1
03db 0273 | s | Execute Discrete,Plus
03dc e403 | | Load 0x2,0x3
03dd e402 | | Load 0x2,0x2
03de 01d6 | | Execute Vector,Field_Write
03df 782d |x- | Jump 0x40d
03e0 00db | | Load_Top At_Offset_3
03e1 e402 | | Load 0x2,0x2
03e2 01d7 | | Execute Vector,Field_Read
03e3 0904 | | Execute_Immediate Binary_Scale,0x4
03e4 00d9 | | Load_Top At_Offset_1
03e5 e5ff | | Load 0x2,-0x1
03e6 01d7 | | Execute Vector,Field_Read
03e7 0a9f | | Execute_Immediate Plus,-0x61
03e8 00d8 | | Load_Top At_Offset_0
03e9 e00b | | Load 0x0,0xb
03ea 1b11 | | Execute Package,Field_Read,Field_Number 0x11
03eb 0260 | ` | Execute Discrete,In_Type
03ec 7001 |p | Jump_Nonzero 0x3ee
03ed 0801 | | Execute_Immediate Raise,0x1
03ee 0273 | s | Execute Discrete,Plus
03ef 0a0a | | Execute_Immediate Plus,0xa
03f0 e403 | | Load 0x2,0x3
03f1 e402 | | Load 0x2,0x2
03f2 01d6 | | Execute Vector,Field_Write
03f3 7819 |x | Jump 0x40d
03f4 00d1 | | Pop_Control Pop_Count_1
03f5 00db | | Load_Top At_Offset_3
03f6 e402 | | Load 0x2,0x2
03f7 01d7 | | Execute Vector,Field_Read
03f8 0904 | | Execute_Immediate Binary_Scale,0x4
03f9 00d9 | | Load_Top At_Offset_1
03fa e5ff | | Load 0x2,-0x1
03fb 01d7 | | Execute Vector,Field_Read
03fc 0abf | | Execute_Immediate Plus,-0x41
03fd 00d8 | | Load_Top At_Offset_0
03fe e00b | | Load 0x0,0xb
03ff 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0400 0260 | ` | Execute Discrete,In_Type
0401 7001 |p | Jump_Nonzero 0x403
0402 0801 | | Execute_Immediate Raise,0x1
0403 0273 | s | Execute Discrete,Plus
0404 0a0a | | Execute_Immediate Plus,0xa
0405 e403 | | Load 0x2,0x3
0406 e402 | | Load 0x2,0x2
0407 01d6 | | Execute Vector,Field_Write
0408 7804 |x | Jump 0x40d
0409 00d1 | | Pop_Control Pop_Count_1
040a 00db | | Load_Top At_Offset_3
040b 0a01 | | Execute_Immediate Plus,0x1
040c c403 | | Store 0x2,0x3
040d 00c8 | | Action Pop_Auxiliary_Range
040e 3fa5 |? | Loop_Increasing 0x3b4
040f 00ce | | Action Pop_Auxiliary
0410 00d8 | | Load_Top At_Offset_0
0411 0e06 | | Execute_Immediate Not_Equal,0x6
0412 6801 |h | Jump_Zero 0x414
0413 08e0 | | Execute_Immediate Raise,0xe0
0414 00d9 | | Load_Top At_Offset_1
0415 e004 | | Load 0x0,0x4
0416 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0417 01c6 | | Execute Vector,Convert_To_Formal
0418 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0419 0000 0000 | | .BLANK 0000[0x7]
0420 ; --------------------------------------------------------------------------------------
0420 ; SUBPROGRAM
0420 ; --------------------------------------------------------------------------------------
0420 0425 | % | .CONST 0x0425 ; Address of begin
0421 0427 | ' | .CONST 0x0427 ; Address of exception handler
0422 0002 | | .CONST 0x0002 ; Number of locals
0423 INIT_0420:
0423 029f 05ab | | Declare_Subprogram INIT_05a8,For_Call
0425 BODY_0420:
0425 8402 | | Call 0x2,0x2
0426 0831 | 1 | Execute_Immediate Raise,0x31
0427 TRAP_0420:
0427 010e | | Execute Exception,Is_Constraint_Error
0428 6802 |h | Jump_Zero 0x42b
0429 4800 |H | Short_Literal 0x0
042a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
042b 0100 | | Execute Exception,Raise
042c 0000 0000 | | .BLANK 0000[0x4]
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 0447 | G | .CONST 0x0447 ; Address of begin
0431 0004 | | .CONST 0x0004 ; Address of exception handler
0432 0003 | | .CONST 0x0003 ; Number of locals
0433 INIT_0430:
0433 4801 |H | Short_Literal 0x1
0434 4804 |H | Short_Literal 0x4
0435 e004 | | Load 0x0,0x4
0436 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0437 035b | [ | Declare_Type Array,Constrained
0438 0337 | 7 | Declare_Variable Array
0439 00d8 | | Load_Top At_Offset_0
043a 0335 | 5 | Declare_Variable Array,Duplicate
043b 00cd | | Action Spare6_Action
043c 4804 |H | Short_Literal 0x4
043d 4801 |H | Short_Literal 0x1
043e 4800 |H | Short_Literal 0x0
043f 00d9 | | Load_Top At_Offset_1
0440 e403 | | Load 0x2,0x3
0441 01d6 | | Execute Vector,Field_Write
0442 3ffb |? | Loop_Increasing 0x43e
0443 00d9 | | Load_Top At_Offset_1
0444 01d4 | | Execute Vector,Structure_Write
0445 00e3 | | Load_Encached Natural_Cache
0446 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0447 BODY_0430:
0447 00cf | | Action Mark_Auxiliary
0448 e5ff | | Load 0x2,-0x1
0449 01d9 | | Execute Vector,Reverse_Bounds
044a 0263 | c | Execute Discrete,Above_Bound
044b 7024 |p$ | Jump_Nonzero 0x470
044c 00d8 | | Load_Top At_Offset_0
044d e5ff | | Load 0x2,-0x1
044e 01d7 | | Execute Vector,Field_Read
044f 00d8 | | Load_Top At_Offset_0
0450 e224 | $ | Load 0x1,0x24
0451 0260 | ` | Execute Discrete,In_Type
0452 7003 |p | Jump_Nonzero 0x456
0453 0f2e | . | Execute_Immediate Equal,0x2e
0454 7016 |p | Jump_Nonzero 0x46b
0455 08e0 | | Execute_Immediate Raise,0xe0
0456 00d1 | | Pop_Control Pop_Count_1
0457 00db | | Load_Top At_Offset_3
0458 e402 | | Load 0x2,0x2
0459 01d7 | | Execute Vector,Field_Read
045a 480a |H | Short_Literal 0xa
045b 0271 | q | Execute Discrete,Times
045c 00d9 | | Load_Top At_Offset_1
045d e5ff | | Load 0x2,-0x1
045e 01d7 | | Execute Vector,Field_Read
045f 0ad0 | | Execute_Immediate Plus,-0x30
0460 00d8 | | Load_Top At_Offset_0
0461 e00b | | Load 0x0,0xb
0462 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0463 0260 | ` | Execute Discrete,In_Type
0464 7001 |p | Jump_Nonzero 0x466
0465 0801 | | Execute_Immediate Raise,0x1
0466 0273 | s | Execute Discrete,Plus
0467 e403 | | Load 0x2,0x3
0468 e402 | | Load 0x2,0x2
0469 01d6 | | Execute Vector,Field_Write
046a 7803 |x | Jump 0x46e
046b 00db | | Load_Top At_Offset_3
046c 0a01 | | Execute_Immediate Plus,0x1
046d c403 | | Store 0x2,0x3
046e 00c8 | | Action Pop_Auxiliary_Range
046f 3fdc |? | Loop_Increasing 0x44c
0470 00ce | | Action Pop_Auxiliary
0471 00d8 | | Load_Top At_Offset_0
0472 0e04 | | Execute_Immediate Not_Equal,0x4
0473 6801 |h | Jump_Zero 0x475
0474 08e0 | | Execute_Immediate Raise,0xe0
0475 00d9 | | Load_Top At_Offset_1
0476 e004 | | Load 0x0,0x4
0477 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0478 01c6 | | Execute Vector,Convert_To_Formal
0479 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
047a 0000 0000 | | .BLANK 0000[0x6]
0480 ; --------------------------------------------------------------------------------------
0480 ; SUBPROGRAM
0480 ; --------------------------------------------------------------------------------------
0480 0483 | | .CONST 0x0483 ; Address of begin
0481 0004 | | .CONST 0x0004 ; Address of exception handler
0482 0001 | | .CONST 0x0001 ; Number of locals
0483 BODY_0480:
0483 INIT_0480:
0483 00da | | Load_Top At_Offset_2
0484 01dd | | Execute Vector,First
0485 00db | | Load_Top At_Offset_3
0486 01d7 | | Execute Vector,Field_Read
0487 0f5b | [ | Execute_Immediate Equal,0x5b
0488 681a |h | Jump_Zero 0x4a3
0489 00da | | Load_Top At_Offset_2
048a 01dc | | Execute Vector,Last
048b 00db | | Load_Top At_Offset_3
048c 01d7 | | Execute Vector,Field_Read
048d 0f5d | ] | Execute_Immediate Equal,0x5d
048e 6814 |h | Jump_Zero 0x4a3
048f 00da | | Load_Top At_Offset_2
0490 01dd | | Execute Vector,First
0491 0a01 | | Execute_Immediate Plus,0x1
0492 00d8 | | Load_Top At_Offset_0
0493 00e2 | | Load_Encached Integer_Cache
0494 0260 | ` | Execute Discrete,In_Type
0495 7001 |p | Jump_Nonzero 0x497
0496 0801 | | Execute_Immediate Raise,0x1
0497 00db | | Load_Top At_Offset_3
0498 01dc | | Execute Vector,Last
0499 0aff | | Execute_Immediate Plus,-0x1
049a 00d8 | | Load_Top At_Offset_0
049b 00e2 | | Load_Encached Integer_Cache
049c 0260 | ` | Execute Discrete,In_Type
049d 7001 |p | Jump_Nonzero 0x49f
049e 0801 | | Execute_Immediate Raise,0x1
049f e5ff | | Load 0x2,-0x1
04a0 01cf | | Execute Vector,Slice_Read
04a1 8230 | 0 | Call 0x1,0x30
04a2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04a3 00da | | Load_Top At_Offset_2
04a4 8230 | 0 | Call 0x1,0x30
04a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04a6 0000 0000 | | .XXX[0x2]
04a8 ; --------------------------------------------------------------------------------------
04a8 ; SUBPROGRAM
04a8 ; --------------------------------------------------------------------------------------
04a8 04ad | | .CONST 0x04ad ; Address of begin
04a9 04af | | .CONST 0x04af ; Address of exception handler
04aa 0002 | | .CONST 0x0002 ; Number of locals
04ab INIT_04a8:
04ab 029f 05b3 | | Declare_Subprogram INIT_05b0,For_Call
04ad BODY_04a8:
04ad 8402 | | Call 0x2,0x2
04ae 0831 | 1 | Execute_Immediate Raise,0x31
04af TRAP_04a8:
04af 010e | | Execute Exception,Is_Constraint_Error
04b0 6802 |h | Jump_Zero 0x4b3
04b1 4800 |H | Short_Literal 0x0
04b2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04b3 0100 | | Execute Exception,Raise
04b4 0000 0000 | | .BLANK 0000[0x4]
04b8 ; --------------------------------------------------------------------------------------
04b8 ; SUBPROGRAM
04b8 ; --------------------------------------------------------------------------------------
04b8 04c1 | | .CONST 0x04c1 ; Address of begin
04b9 0004 | | .CONST 0x0004 ; Address of exception handler
04ba 0004 | | .CONST 0x0004 ; Number of locals
04bb INIT_04b8:
04bb e221 | ! | Load 0x1,0x21
04bc 0007 | | Action Break_Optional
04bd e222 | " | Load 0x1,0x22
04be 0007 | | Action Break_Optional
04bf e223 | # | Load 0x1,0x23
04c0 0007 | | Action Break_Optional
04c1 BODY_04b8:
04c1 e223 | # | Load 0x1,0x23
04c2 e222 | " | Load 0x1,0x22
04c3 e221 | ! | Load 0x1,0x21
04c4 e5ff | | Load 0x2,-0x1
04c5 4804 |H | Short_Literal 0x4
04c6 e225 | % | Load 0x1,0x25
04c7 170d | | Execute Task,Entry_Call,Field_Number 0xd
04c8 c602 | | Store 0x3,0x2
04c9 003b | ; | Store_Top Access,At_Offset_3
04ca 0039 | 9 | Store_Top Access,At_Offset_1
04cb 00da | | Load_Top At_Offset_2
04cc 7002 |p | Jump_Nonzero 0x4cf
04cd e210 | | Load 0x1,0x10
04ce 0257 | W | Execute Discrete,Raise
04cf 00da | | Load_Top At_Offset_2
04d0 0227 | ' | Execute Access,All_Reference
04d1 0335 | 5 | Declare_Variable Array,Duplicate
04d2 00cd | | Action Spare6_Action
04d3 00cb | | Action Pop_Block_With_Result
04d4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04d5 0000 0000 | | .XXX[0x3]
04d7 0000 | |
04d8 ; --------------------------------------------------------------------------------------
04d8 ; SUBPROGRAM
04d8 ; --------------------------------------------------------------------------------------
04d8 04db | | .CONST 0x04db ; Address of begin
04d9 04df | | .CONST 0x04df ; Address of exception handler
04da 0001 | | .CONST 0x0001 ; Number of locals
04db BODY_04d8:
04db INIT_04d8:
04db e5ff | | Load 0x2,-0x1
04dc 8231 | 1 | Call 0x1,0x31
04dd 00cb | | Action Pop_Block_With_Result
04de 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04df TRAP_04d8:
04df 010e | | Execute Exception,Is_Constraint_Error
04e0 6801 |h | Jump_Zero 0x4e2
04e1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04e2 0100 | | Execute Exception,Raise
04e3 0000 0000 | | .BLANK 0000[0x5]
04e8 ; --------------------------------------------------------------------------------------
04e8 ; SUBPROGRAM
04e8 ; --------------------------------------------------------------------------------------
04e8 04eb | | .CONST 0x04eb ; Address of begin
04e9 04ef | | .CONST 0x04ef ; Address of exception handler
04ea 0001 | | .CONST 0x0001 ; Number of locals
04eb BODY_04e8:
04eb INIT_04e8:
04eb e5ff | | Load 0x2,-0x1
04ec 822e | . | Call 0x1,0x2e
04ed 00cb | | Action Pop_Block_With_Result
04ee 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04ef TRAP_04e8:
04ef 010e | | Execute Exception,Is_Constraint_Error
04f0 6801 |h | Jump_Zero 0x4f2
04f1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04f2 0100 | | Execute Exception,Raise
04f3 0000 0000 | | .BLANK 0000[0x5]
04f8 ; --------------------------------------------------------------------------------------
04f8 ; SUBPROGRAM
04f8 ; --------------------------------------------------------------------------------------
04f8 0501 | | .CONST 0x0501 ; Address of begin
04f9 0004 | | .CONST 0x0004 ; Address of exception handler
04fa 0004 | | .CONST 0x0004 ; Number of locals
04fb INIT_04f8:
04fb e221 | ! | Load 0x1,0x21
04fc 0007 | | Action Break_Optional
04fd e222 | " | Load 0x1,0x22
04fe 0007 | | Action Break_Optional
04ff e223 | # | Load 0x1,0x23
0500 0007 | | Action Break_Optional
0501 BODY_04f8:
0501 e223 | # | Load 0x1,0x23
0502 e222 | " | Load 0x1,0x22
0503 e221 | ! | Load 0x1,0x21
0504 e5ff | | Load 0x2,-0x1
0505 4804 |H | Short_Literal 0x4
0506 e225 | % | Load 0x1,0x25
0507 170d | | Execute Task,Entry_Call,Field_Number 0xd
0508 c602 | | Store 0x3,0x2
0509 003b | ; | Store_Top Access,At_Offset_3
050a 0039 | 9 | Store_Top Access,At_Offset_1
050b 00d9 | | Load_Top At_Offset_1
050c 7002 |p | Jump_Nonzero 0x50f
050d e210 | | Load 0x1,0x10
050e 0257 | W | Execute Discrete,Raise
050f 00d9 | | Load_Top At_Offset_1
0510 0227 | ' | Execute Access,All_Reference
0511 0335 | 5 | Declare_Variable Array,Duplicate
0512 00cd | | Action Spare6_Action
0513 00cb | | Action Pop_Block_With_Result
0514 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0515 0000 0000 | | .XXX[0x3]
0517 0000 | |
0518 ; --------------------------------------------------------------------------------------
0518 ; SUBPROGRAM
0518 ; --------------------------------------------------------------------------------------
0518 0525 | % | .CONST 0x0525 ; Address of begin
0519 0004 | | .CONST 0x0004 ; Address of exception handler
051a 0004 | | .CONST 0x0004 ; Number of locals
051b INIT_0518:
051b e5ff | | Load 0x2,-0x1
051c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
051d e006 | | Load 0x0,0x6
051e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
051f e5ff | | Load 0x2,-0x1
0520 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0521 8226 | & | Call 0x1,0x26
0522 e5ff | | Load 0x2,-0x1
0523 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0524 822c | , | Call 0x1,0x2c
0525 BODY_0518:
0525 e5ff | | Load 0x2,-0x1
0526 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0527 00d9 | | Load_Top At_Offset_1
0528 e003 | | Load 0x0,0x3
0529 1810 | | Execute Package,Field_Execute,Field_Number 0x10
052a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
052b 0000 0000 | | .BLANK 0000[0x5]
0530 ; --------------------------------------------------------------------------------------
0530 ; SUBPROGRAM
0530 ; --------------------------------------------------------------------------------------
0530 053d | = | .CONST 0x053d ; Address of begin
0531 0004 | | .CONST 0x0004 ; Address of exception handler
0532 0004 | | .CONST 0x0004 ; Number of locals
0533 INIT_0530:
0533 e5ff | | Load 0x2,-0x1
0534 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0535 e006 | | Load 0x0,0x6
0536 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0537 e5ff | | Load 0x2,-0x1
0538 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0539 8226 | & | Call 0x1,0x26
053a e5ff | | Load 0x2,-0x1
053b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
053c 822c | , | Call 0x1,0x2c
053d BODY_0530:
053d e5ff | | Load 0x2,-0x1
053e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
053f 00d9 | | Load_Top At_Offset_1
0540 e003 | | Load 0x0,0x3
0541 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0542 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0543 0000 0000 | | .BLANK 0000[0x5]
0548 ; --------------------------------------------------------------------------------------
0548 ; SUBPROGRAM
0548 ; --------------------------------------------------------------------------------------
0548 0554 | T | .CONST 0x0554 ; Address of begin
0549 0004 | | .CONST 0x0004 ; Address of exception handler
054a 0004 | | .CONST 0x0004 ; Number of locals
054b INIT_0548:
054b e402 | | Load 0x2,0x2
054c 822c | , | Call 0x1,0x2c
054d 822b | + | Call 0x1,0x2b
054e e402 | | Load 0x2,0x2
054f e006 | | Load 0x0,0x6
0550 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0551 e402 | | Load 0x2,0x2
0552 e006 | | Load 0x0,0x6
0553 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0554 BODY_0548:
0554 00da | | Load_Top At_Offset_2
0555 e403 | | Load 0x2,0x3
0556 01df | | Execute Vector,Equal
0557 7005 |p | Jump_Nonzero 0x55d
0558 00da | | Load_Top At_Offset_2
0559 0092 0606 | | Action Push_String_Extended,0x606 ; "OTHERS"
055b 01df | | Execute Vector,Equal
055c 6807 |h | Jump_Zero 0x564
055d e402 | | Load 0x2,0x2
055e e006 | | Load 0x0,0x6
055f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0560 c402 | | Store 0x2,0x2
0561 00d9 | | Load_Top At_Offset_1
0562 00cb | | Action Pop_Block_With_Result
0563 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0564 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0565 0000 0000 | | .XXX[0x3]
0567 0000 | |
0568 ; --------------------------------------------------------------------------------------
0568 ; SUBPROGRAM
0568 ; --------------------------------------------------------------------------------------
0568 0574 | t | .CONST 0x0574 ; Address of begin
0569 0004 | | .CONST 0x0004 ; Address of exception handler
056a 0004 | | .CONST 0x0004 ; Number of locals
056b INIT_0568:
056b e402 | | Load 0x2,0x2
056c 822c | , | Call 0x1,0x2c
056d 822b | + | Call 0x1,0x2b
056e e402 | | Load 0x2,0x2
056f e006 | | Load 0x0,0x6
0570 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0571 e402 | | Load 0x2,0x2
0572 e006 | | Load 0x0,0x6
0573 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0574 BODY_0568:
0574 00da | | Load_Top At_Offset_2
0575 e403 | | Load 0x2,0x3
0576 01df | | Execute Vector,Equal
0577 7005 |p | Jump_Nonzero 0x57d
0578 00da | | Load_Top At_Offset_2
0579 0092 0606 | | Action Push_String_Extended,0x606 ; "OTHERS"
057b 01df | | Execute Vector,Equal
057c 6807 |h | Jump_Zero 0x584
057d e402 | | Load 0x2,0x2
057e e006 | | Load 0x0,0x6
057f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0580 c402 | | Store 0x2,0x2
0581 00d8 | | Load_Top At_Offset_0
0582 00cb | | Action Pop_Block_With_Result
0583 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0584 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0585 0000 0000 | | .XXX[0x3]
0587 0000 | |
0588 ; --------------------------------------------------------------------------------------
0588 ; SUBPROGRAM
0588 ; --------------------------------------------------------------------------------------
0588 0591 | | .CONST 0x0591 ; Address of begin
0589 0004 | | .CONST 0x0004 ; Address of exception handler
058a 0003 | | .CONST 0x0003 ; Number of locals
058b INIT_0588:
058b e402 | | Load 0x2,0x2
058c 822c | , | Call 0x1,0x2c
058d 822b | + | Call 0x1,0x2b
058e e402 | | Load 0x2,0x2
058f e006 | | Load 0x0,0x6
0590 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0591 BODY_0588:
0591 00d9 | | Load_Top At_Offset_1
0592 e403 | | Load 0x2,0x3
0593 01df | | Execute Vector,Equal
0594 7005 |p | Jump_Nonzero 0x59a
0595 00d9 | | Load_Top At_Offset_1
0596 0092 0606 | | Action Push_String_Extended,0x606 ; "OTHERS"
0598 01df | | Execute Vector,Equal
0599 6807 |h | Jump_Zero 0x5a1
059a e402 | | Load 0x2,0x2
059b e006 | | Load 0x0,0x6
059c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
059d c402 | | Store 0x2,0x2
059e 00d8 | | Load_Top At_Offset_0
059f 00cb | | Action Pop_Block_With_Result
05a0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05a1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
05a2 0000 0000 | | .BLANK 0000[0x6]
05a8 ; --------------------------------------------------------------------------------------
05a8 ; SUBPROGRAM
05a8 ; --------------------------------------------------------------------------------------
05a8 05ad | | .CONST 0x05ad ; Address of begin
05a9 0004 | | .CONST 0x0004 ; Address of exception handler
05aa 0002 | | .CONST 0x0002 ; Number of locals
05ab INIT_05a8:
05ab e5ff | | Load 0x2,-0x1
05ac 822e | . | Call 0x1,0x2e
05ad BODY_05a8:
05ad 4801 |H | Short_Literal 0x1
05ae 00cb | | Action Pop_Block_With_Result
05af 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05b0 ; --------------------------------------------------------------------------------------
05b0 ; SUBPROGRAM
05b0 ; --------------------------------------------------------------------------------------
05b0 05b5 | | .CONST 0x05b5 ; Address of begin
05b1 0004 | | .CONST 0x0004 ; Address of exception handler
05b2 0002 | | .CONST 0x0002 ; Number of locals
05b3 INIT_05b0:
05b3 e5ff | | Load 0x2,-0x1
05b4 8231 | 1 | Call 0x1,0x31
05b5 BODY_05b0:
05b5 4801 |H | Short_Literal 0x1
05b6 00cb | | Action Pop_Block_With_Result
05b7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05b8 ; --------------------------------------------------------------------------------------
05b8 ; SUBPROGRAM
05b8 ; --------------------------------------------------------------------------------------
05b8 05bb | | .CONST 0x05bb ; Address of begin
05b9 0004 | | .CONST 0x0004 ; Address of exception handler
05ba 0001 | | .CONST 0x0001 ; Number of locals
05bb BODY_05b8:
05bb INIT_05b8:
05bb 4608 |F | Jump_Case 0x9
05bc 7808 |x | Jump 0x5c5 ; case 0x0
05bd 7814 |x | Jump 0x5d2 ; case 0x1
05be 7817 |x | Jump 0x5d6 ; case 0x2
05bf 7816 |x | Jump 0x5d6 ; case 0x3
05c0 7815 |x | Jump 0x5d6 ; case 0x4
05c1 7814 |x | Jump 0x5d6 ; case 0x5
05c2 7813 |x | Jump 0x5d6 ; case 0x6
05c3 7812 |x | Jump 0x5d6 ; case 0x7
05c4 7811 |x | Jump 0x5d6 ; case 0x8
05c5 00da | | Load_Top At_Offset_2
05c6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
05c7 0125 | % | Execute Any,Set_Constraint
05c8 00da | | Load_Top At_Offset_2
05c9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
05ca 1c00 | | Execute_Immediate Run_Utility,0x0
05cb 00da | | Load_Top At_Offset_2
05cc 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
05cd 0125 | % | Execute Any,Set_Constraint
05ce 00da | | Load_Top At_Offset_2
05cf 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
05d0 1c00 | | Execute_Immediate Run_Utility,0x0
05d1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
05d2 00da | | Load_Top At_Offset_2
05d3 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
05d4 0125 | % | Execute Any,Set_Constraint
05d5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
05d6 0869 | i | Execute_Immediate Raise,0x69
05d7 0000 | | .XXX[0x1]
05d8 ; --------------------------------------------------------------------------------------
05d8 ; SUBPROGRAM
05d8 ; --------------------------------------------------------------------------------------
05d8 05e3 | | .CONST 0x05e3 ; Address of begin
05d9 0004 | | .CONST 0x0004 ; Address of exception handler
05da 000f | | .CONST 0x000f ; Number of locals
05db INIT_05d8:
05db 4804 |H | Short_Literal 0x4
05dc 02cb | | Declare_Variable Entry
05dd 4802 |H | Short_Literal 0x2
05de 02cb | | Declare_Variable Entry
05df 4803 |H | Short_Literal 0x3
05e0 02cb | | Declare_Variable Entry
05e1 00bf | | Action Accept_Activation
05e2 00bc | | Action Signal_Activated
05e3 BODY_05d8:
05e3 00bb | | Action Signal_Completion
05e4 0000 0000 | | .BLANK 0000[0x4]
05e8 ; --------------------------------------------------------------------------------------
05e8 ; SUBPROGRAM
05e8 ; --------------------------------------------------------------------------------------
05e8 05f4 | | .CONST 0x05f4 ; Address of begin
05e9 0004 | | .CONST 0x0004 ; Address of exception handler
05ea 000e | | .CONST 0x000e ; Number of locals
05eb INIT_05e8:
05eb 029a 05fb | | Declare_Subprogram INIT_05f8,For_Outer_Call,Visible,Unelaborated
05ed 029a 0603 | | Declare_Subprogram INIT_0600,For_Outer_Call,Visible,Unelaborated
05ef 00bf | | Action Accept_Activation
05f0 1d0d | | Execute_Immediate Reference_Lex_1,0xd
05f1 00c7 | | Action Elaborate_Subprogram
05f2 1d0e | | Execute_Immediate Reference_Lex_1,0xe
05f3 00c7 | | Action Elaborate_Subprogram
05f4 BODY_05e8:
05f4 00bc | | Action Signal_Activated
05f5 00bb | | Action Signal_Completion
05f6 0000 0000 | | .XXX[0x2]
05f8 ; --------------------------------------------------------------------------------------
05f8 ; SUBPROGRAM
05f8 ; --------------------------------------------------------------------------------------
05f8 05fb | | .CONST 0x05fb ; Address of begin
05f9 0004 | | .CONST 0x0004 ; Address of exception handler
05fa 0001 | | .CONST 0x0001 ; Number of locals
05fb BODY_05f8:
05fb INIT_05f8:
05fb 0833 | 3 | Execute_Immediate Raise,0x33
05fc 0000 0000 | | .BLANK 0000[0x4]
0600 ; --------------------------------------------------------------------------------------
0600 ; SUBPROGRAM
0600 ; --------------------------------------------------------------------------------------
0600 0603 | | .CONST 0x0603 ; Address of begin
0601 0004 | | .CONST 0x0004 ; Address of exception handler
0602 0001 | | .CONST 0x0001 ; Number of locals
0603 BODY_0600:
0603 INIT_0600:
0603 0833 | 3 | Execute_Immediate Raise,0x33
0604 ; --------------------------------------------------------------------------------------
0604 ; STRING TABLE
0604 ; --------------------------------------------------------------------------------------
0604 0008 | | .STRTAB 0x0008->0x0608 ; "!machine.transport_name_map"
0605 0021 | ! | .STRTAB 0x0021->0x0615 ; "!!"
0606 0021 | ! | .STRTAB 0x0021->0x0616 ; "OTHERS"
0607 0025 | % | .STREND 0x0025->0x0619
0608 216d 6163 |!mac| .STRTAB_STRINGS
061a 0000 0000 | | .BLANK 0000[0x6]
0620 ; --------------------------------------------------------------------------------------
0620 ; Debug Table
0620 ; --------------------------------------------------------------------------------------
0620 0004 000e | | .DEBUG4 0x0004,0x000e,0xf487,0x0000,0x0001,0x0000
0626 0000 0050 | P| .XXX[0x7]
0628 138e 891e | |
062a efa0 0000 | |
062c 2000 | |
062d 0000 0000 | | .BLANK 0000[0x4]
0631 7e52 8080 |~R | .XXX[0x9]
0633 0000 4000 | @ |
0635 8050 8080 | P |
0637 0000 4000 | @ |
0639 2600 |& |
063a 0000 0000 | | .BLANK 0000[0x5]
063f 2014 2020 | | .XXX[0x12]
0641 0000 1008 | |
0643 09c7 448f | D |
0645 77d0 0000 |w |
0647 1000 0000 | |
0649 9000 0337 | 7|
064b 8000 0000 | |
064d 2000 0000 | |
064f a009 8000 | |
0651 0000 0000 | | .BLANK 0000[0x8]
0659 0202 320f | 2 | .XXX[0x25]
065b bc79 d800 | y |
065d 0004 0000 | |
065f 0024 0000 | $ |
0661 cde0 0000 | |
0663 0008 0000 | |
0665 0020 0000 | |
0667 0018 0001 | |
0669 5360 03ac |S` |
066b 0f70 03ac | p |
066d 0a68 03ac | h |
066f 83ec 01d6 | |
0671 1d04 0000 | |
0673 7961 1fa5 |ya |
0675 e8c1 2000 | |
0677 0000 0050 | P|
0679 316f 3f48 |1o?H|
067b b580 0000 | |
067d 8000 | |
067e 0000 0000 | | .BLANK 0000[0x4]
0682 7742 8080 |wB | .XXX[0x21]
0684 0000 4000 | @ |
0686 7746 8080 |wF |
0688 0000 4000 | @ |
068a 0203 0824 | $|
068c 6008 8000 |` |
068e 0000 0000 | |
0690 1dd1 a020 | |
0692 0000 1007 | |
0694 e97a 3048 | z0H|
0696 0000 0000 | |
0698 1000 0000 | |
069a 9000 03fb | |
069c c000 0000 | |
069e 2000 0000 | |
06a0 4000 80c2 |@ |
06a2 0918 | |
06a3 0000 0000 | | .BLANK 0000[0x7]
06aa 01fa 5e8c | ^ | .XXX[0x13]
06ac 1200 0000 | |
06ae 0004 0000 | |
06b0 0024 0000 | $ |
06b2 fef0 0000 | |
06b4 0008 0000 | |
06b6 0010 0000 | |
06b8 0018 0001 | |
06ba b1f8 03ac | |
06bc 37f0 |7 |
06bd 0000 0000 | | .BLANK 0000[0x4]
06c1 01d6 3144 | 1D| .XXX[0xe]
06c3 0000 82a8 | |
06c5 1ffe 1286 | |
06c7 2000 0000 | |
06c9 0110 316f | 1o|
06cb 4e9e b8c0 |N |
06cd 0000 8000 | |
06cf 0000 0000 | | .BLANK 0000[0x4]
06d3 25b2 8500 |% | .XXX[0xa]
06d5 0000 4000 | @ |
06d7 25b4 8500 |% |
06d9 0000 4002 | @ |
06db 4600 8800 |F |
06dd 0000 0000 | | .BLANK 0000[0x4]
06e1 096d 2140 | m!@| .XXX[0x9]
06e3 0000 1007 | |
06e5 ff84 a188 | |
06e7 0000 0000 | |
06e9 4000 |@ |
06ea 0000 0000 | | .BLANK 0000[0x5]
06ef 2000 0000 | | .XXX[0x4]
06f1 0009 8000 | |
06f3 0000 0000 | | .BLANK 0000[0x8]
06fb 01ff e128 | (| .XXX[0x5]
06fd 6200 0000 |b |
06ff 0010 | |
0700 0000 0000 | | .BLANK 0000[0x5]
0705 0008 0000 | | .XXX[0x1b]
0707 0000 0000 | |
0709 0018 0002 | |
070b 1090 03ac | |
070d 6070 03ac |`p |
070f 5b68 03ac |[h |
0711 ac68 01d6 | h |
0713 4584 0000 |E |
0715 83f3 a045 | E|
0717 dcbe 0000 | |
0719 0000 0150 | P|
071b 22ee 5f00 |" _ |
071d 0000 0000 | |
071f a000 | |
0720 0000 0000 | | .BLANK 0000[0x4]
0724 5e90 8580 |^ | .XXX[0x9]
0726 0000 4000 | @ |
0728 5e94 8580 |^ |
072a 0000 4000 | @ |
072c 2600 |& |
072d 0000 0000 | | .BLANK 0000[0x5]
0732 17a5 2160 | !`| .XXX[0x12]
0734 0000 1008 | |
0736 1177 2f80 | w/ |
0738 0000 0000 | |
073a 5000 0000 |P |
073c 9000 059c | |
073e c000 0000 | |
0740 2000 0000 | |
0742 c009 8000 | |
0744 0000 0000 | | .BLANK 0000[0x8]
074c 0206 5df8 | ] | .XXX[0x25]
074e 3e28 7400 |>(t |
0750 0014 0000 | |
0752 0024 0001 | $ |
0754 6730 0000 |g0 |
0756 0008 0000 | |
0758 0030 0000 | 0 |
075a 0018 0002 | |
075c 6f28 03ac |o( |
075e 88f0 0000 | |
0760 0000 03ac | |
0762 d4ec 01d6 | |
0764 59c4 0000 |Y |
0766 b00d 2065 | e|
0768 e179 43d2 | yC |
076a 8000 0150 | P|
076c 32f0 d225 |2 %|
076e 5320 0000 |S |
0770 a000 | |
0771 0000 0000 | | .BLANK 0000[0x4]
0775 80be 8580 | | .XXX[0x21]
0777 0000 4000 | @ |
0779 80c2 8580 | |
077b 0000 4000 | @ |
077d 0203 0802 | |
077f 2091 8000 | |
0781 0000 0000 | |
0783 2030 a160 | 0 `|
0785 0000 1008 | |
0787 1978 5e53 | x^S|
0789 9cd0 0000 | |
078b 5000 0000 |P |
078d 9000 05fc | |
078f c000 0000 | |
0791 2000 0000 | |
0793 4001 80c6 |@ |
0795 0088 | |
0796 0000 0000 | | .BLANK 0000[0x7]
079d 0206 5e17 | ^ | .XXX[0x13]
079f 94e7 3400 | 4 |
07a1 0014 0000 | |
07a3 0024 0001 | $ |
07a5 7f30 0000 | 0 |
07a7 0008 0000 | |
07a9 0010 0000 | |
07ab 0018 0002 | |
07ad 8eb0 03ac | |
07af b170 | p |
07b0 0000 0000 | | .BLANK 0000[0x4]
07b4 01d6 6e04 | n | .XXX[0xe]
07b6 0000 80ac | |
07b8 1ffe 128c | |
07ba 2000 0000 | |
07bc 0110 316f | 1o|
07be 4ea3 4560 |N E`|
07c0 0000 8000 | |
07c2 0000 0000 | | .BLANK 0000[0x4]
07c6 04ce 8580 | | .XXX[0xa]
07c8 0000 4000 | @ |
07ca 04d0 8580 | |
07cc 0000 4002 | @ |
07ce 4600 8800 |F |
07d0 0000 0000 | | .BLANK 0000[0x4]
07d4 0134 2160 | 4!`| .XXX[0x9]
07d6 0000 1007 | |
07d8 ff84 a308 | |
07da 0000 0000 | |
07dc 4000 |@ |
07dd 0000 0000 | | .BLANK 0000[0x5]
07e2 2000 0000 | | .XXX[0x4]
07e4 0009 8000 | |
07e6 0000 0000 | | .BLANK 0000[0x8]
07ee 01ff e128 | (| .XXX[0x5]
07f0 c200 0000 | |
07f2 0010 | |
07f3 0000 0000 | | .BLANK 0000[0x5]
07f8 0008 0000 | | .XXX[0x8]
07fa 0000 0000 | |
07fc 0018 0002 | |
07fe 1098 03ac | |