|
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: 6144 (0x1800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6a18da
└─⟦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 0bc0 | | .CONST 0x0bc0 ; 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 8007 | | .CONST 0x8007 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 026b | k | .CONST 0x026b ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 00db | | .CONST 0x00db ; Number of locals
000b INIT_0008:
000b 00c4 | | Action Make_Default
000c 00c4 | | Action Make_Default
000d 00c4 | | Action Make_Default
000e 00c4 | | Action Make_Default
000f 00c4 | | Action Make_Default
0010 00c4 | | Action Make_Default
0011 00c4 | | Action Make_Default
0012 00c4 | | Action Make_Default
0013 00c4 | | Action Make_Default
0014 00c4 | | Action Make_Default
0015 00c4 | | Action Make_Default
0016 00c4 | | Action Make_Default
0017 00c4 | | Action Make_Default
0018 00c4 | | Action Make_Default
0019 00c4 | | Action Make_Default
001a 00c4 | | Action Make_Default
001b 00c4 | | Action Make_Default
001c 00c4 | | Action Make_Default
001d 00c4 | | Action Make_Default
001e 00c4 | | Action Make_Default
001f 00c4 | | Action Make_Default
0020 00c4 | | Action Make_Default
0021 00c4 | | Action Make_Default
0022 00c4 | | Action Make_Default
0023 00c4 | | Action Make_Default
0024 00c4 | | Action Make_Default
0025 00c4 | | Action Make_Default
0026 00c4 | | Action Make_Default
0027 00c4 | | Action Make_Default
0028 00c4 | | Action Make_Default
0029 00c4 | | Action Make_Default
002a 00c4 | | Action Make_Default
002b 00c4 | | Action Make_Default
002c 00c4 | | Action Make_Default
002d 00c4 | | Action Make_Default
002e 00c4 | | Action Make_Default
002f 00c4 | | Action Make_Default
0030 00c4 | | Action Make_Default
0031 00c4 | | Action Make_Default
0032 00c4 | | Action Make_Default
0033 00c4 | | Action Make_Default
0034 00c4 | | Action Make_Default
0035 00c4 | | Action Make_Default
0036 00c4 | | Action Make_Default
0037 00c4 | | Action Make_Default
0038 00c4 | | Action Make_Default
0039 00c4 | | Action Make_Default
003a 00c4 | | Action Make_Default
003b 00c4 | | Action Make_Default
003c 00c4 | | Action Make_Default
003d 00c4 | | Action Make_Default
003e 00c4 | | Action Make_Default
003f 00c4 | | Action Make_Default
0040 00c4 | | Action Make_Default
0041 00c4 | | Action Make_Default
0042 00c4 | | Action Make_Default
0043 00c4 | | Action Make_Default
0044 00c4 | | Action Make_Default
0045 00c4 | | Action Make_Default
0046 00c4 | | Action Make_Default
0047 00c4 | | Action Make_Default
0048 00c4 | | Action Make_Default
0049 00c4 | | Action Make_Default
004a 00c4 | | Action Make_Default
004b 00c4 | | Action Make_Default
004c 00c4 | | Action Make_Default
004d 00c4 | | Action Make_Default
004e 00c4 | | Action Make_Default
004f 00c4 | | Action Make_Default
0050 00c4 | | Action Make_Default
0051 00c4 | | Action Make_Default
0052 00c4 | | Action Make_Default
0053 00c4 | | Action Make_Default
0054 00c4 | | Action Make_Default
0055 00c4 | | Action Make_Default
0056 00c4 | | Action Make_Default
0057 00c4 | | Action Make_Default
0058 00c4 | | Action Make_Default
0059 00c4 | | Action Make_Default
005a 00c4 | | Action Make_Default
005b 00c4 | | Action Make_Default
005c 00c4 | | Action Make_Default
005d 00c4 | | Action Make_Default
005e 00c4 | | Action Make_Default
005f 00c4 | | Action Make_Default
0060 00c4 | | Action Make_Default
0061 00c4 | | Action Make_Default
0062 00c4 | | Action Make_Default
0063 00c4 | | Action Make_Default
0064 00c4 | | Action Make_Default
0065 00c4 | | Action Make_Default
0066 00c4 | | Action Make_Default
0067 00c4 | | Action Make_Default
0068 00c4 | | Action Make_Default
0069 00c4 | | Action Make_Default
006a 00c4 | | Action Make_Default
006b 00c4 | | Action Make_Default
006c 00c4 | | Action Make_Default
006d 00c4 | | Action Make_Default
006e 00c4 | | Action Make_Default
006f 00c4 | | Action Make_Default
0070 00c4 | | Action Make_Default
0071 00c4 | | Action Make_Default
0072 00c4 | | Action Make_Default
0073 00c4 | | Action Make_Default
0074 00c4 | | Action Make_Default
0075 00c4 | | Action Make_Default
0076 00c4 | | Action Make_Default
0077 00c4 | | Action Make_Default
0078 00c4 | | Action Make_Default
0079 00c4 | | Action Make_Default
007a 00c4 | | Action Make_Default
007b 00c4 | | Action Make_Default
007c 00c4 | | Action Make_Default
007d 00c4 | | Action Make_Default
007e 00c4 | | Action Make_Default
007f 00c4 | | Action Make_Default
0080 00c4 | | Action Make_Default
0081 00c4 | | Action Make_Default
0082 00c4 | | Action Make_Default
0083 00c4 | | Action Make_Default
0084 00c4 | | Action Make_Default
0085 00c4 | | Action Make_Default
0086 00c4 | | Action Make_Default
0087 00c4 | | Action Make_Default
0088 00c4 | | Action Make_Default
0089 00c4 | | Action Make_Default
008a 00c4 | | Action Make_Default
008b 00c4 | | Action Make_Default
008c 00c4 | | Action Make_Default
008d 00c4 | | Action Make_Default
008e 00c4 | | Action Make_Default
008f 00c4 | | Action Make_Default
0090 00c4 | | Action Make_Default
0091 00c4 | | Action Make_Default
0092 00c4 | | Action Make_Default
0093 00c4 | | Action Make_Default
0094 00c4 | | Action Make_Default
0095 00c4 | | Action Make_Default
0096 00c4 | | Action Make_Default
0097 00c4 | | Action Make_Default
0098 00c4 | | Action Make_Default
0099 00c4 | | Action Make_Default
009a 00c4 | | Action Make_Default
009b 00c4 | | Action Make_Default
009c 00c4 | | Action Make_Default
009d 00c4 | | Action Make_Default
009e 00c4 | | Action Make_Default
009f 00c4 | | Action Make_Default
00a0 00c4 | | Action Make_Default
00a1 00c4 | | Action Make_Default
00a2 00c4 | | Action Make_Default
00a3 00c4 | | Action Make_Default
00a4 00c4 | | Action Make_Default
00a5 00c4 | | Action Make_Default
00a6 00c4 | | Action Make_Default
00a7 00c4 | | Action Make_Default
00a8 00c4 | | Action Make_Default
00a9 00c4 | | Action Make_Default
00aa 00c4 | | Action Make_Default
00ab 00c4 | | Action Make_Default
00ac 00c4 | | Action Make_Default
00ad 00c4 | | Action Make_Default
00ae 00c4 | | Action Make_Default
00af 00c4 | | Action Make_Default
00b0 00c4 | | Action Make_Default
00b1 00c4 | | Action Make_Default
00b2 00c4 | | Action Make_Default
00b3 00c4 | | Action Make_Default
00b4 00c4 | | Action Make_Default
00b5 00c4 | | Action Make_Default
00b6 00c4 | | Action Make_Default
00b7 00c4 | | Action Make_Default
00b8 00c4 | | Action Make_Default
00b9 00c4 | | Action Make_Default
00ba 00c4 | | Action Make_Default
00bb 00c4 | | Action Make_Default
00bc 00c4 | | Action Make_Default
00bd 00c4 | | Action Make_Default
00be 00c4 | | Action Make_Default
00bf 00c4 | | Action Make_Default
00c0 00c4 | | Action Make_Default
00c1 00c4 | | Action Make_Default
00c2 00c4 | | Action Make_Default
00c3 00c4 | | Action Make_Default
00c4 00c4 | | Action Make_Default
00c5 00c4 | | Action Make_Default
00c6 00c4 | | Action Make_Default
00c7 00c4 | | Action Make_Default
00c8 00c4 | | Action Make_Default
00c9 00c4 | | Action Make_Default
00ca 00c4 | | Action Make_Default
00cb 00c4 | | Action Make_Default
00cc 00c4 | | Action Make_Default
00cd 00c4 | | Action Make_Default
00ce 00c4 | | Action Make_Default
00cf 00c4 | | Action Make_Default
00d0 00c4 | | Action Make_Default
00d1 00c4 | | Action Make_Default
00d2 00c4 | | Action Make_Default
00d3 00c4 | | Action Make_Default
00d4 00c4 | | Action Make_Default
00d5 00c4 | | Action Make_Default
00d6 4800 |H | Short_Literal 0x0
00d7 48ff |H | Short_Literal 0xff
00d8 00e5 | | Load_Encached Long_Integer_Cache
00d9 03f9 | | Declare_Type Discrete,Constrained,Visible
00da c2be | | Store 0x1,0xbe
00db 4800 |H | Short_Literal 0x0
00dc 48ff |H | Short_Literal 0xff
00dd 00e5 | | Load_Encached Long_Integer_Cache
00de 03f9 | | Declare_Type Discrete,Constrained,Visible
00df c2bf | | Store 0x1,0xbf
00e0 4800 |H | Short_Literal 0x0
00e1 4803 |H | Short_Literal 0x3
00e2 029f 029b | | Declare_Subprogram INIT_0298,For_Call
00e4 03fe | | Declare_Type Discrete,Defined,Visible
00e5 c2c3 | | Store 0x1,0xc3
00e6 4800 |H | Short_Literal 0x0
00e7 4804 |H | Short_Literal 0x4
00e8 029f 02c3 | | Declare_Subprogram INIT_02c0,For_Call
00ea 03fe | | Declare_Type Discrete,Defined,Visible
00eb c2c4 | | Store 0x1,0xc4
00ec e2c4 | | Load 0x1,0xc4
00ed 0266 | f | Execute Discrete,Bounds
00ee 00e1 | | Load_Encached Boolean_Cache
00ef 02a0 | | Declare_Subprogram Null_Subprogram
00f0 4801 |H | Short_Literal 0x1
00f1 035e | ^ | Declare_Type Array,Defined,Visible
00f2 c2c5 | | Store 0x1,0xc5
00f3 4800 |H | Short_Literal 0x0
00f4 4803 |H | Short_Literal 0x3
00f5 029f 02eb | | Declare_Subprogram INIT_02e8,For_Call
00f7 03fe | | Declare_Type Discrete,Defined,Visible
00f8 c2c6 | | Store 0x1,0xc6
00f9 4800 |H | Short_Literal 0x0
00fa 4801 |H | Short_Literal 0x1
00fb 029f 0313 | | Declare_Subprogram INIT_0310,For_Call
00fd 03fe | | Declare_Type Discrete,Defined,Visible
00fe c2c9 | | Store 0x1,0xc9
00ff 4800 |H | Short_Literal 0x0
0100 4801 |H | Short_Literal 0x1
0101 029f 033b | ;| Declare_Subprogram INIT_0338,For_Call
0103 03fe | | Declare_Type Discrete,Defined,Visible
0104 c2cb | | Store 0x1,0xcb
0105 4802 |H | Short_Literal 0x2
0106 032b | + | Declare_Type Record,Incomplete,Visible
0107 c262 | b | Store 0x1,0x62
0108 e001 | | Load 0x0,0x1
0109 0129 | ) | Execute Any,Make_Visible
010a c2bc | | Store 0x1,0xbc
010b 029a 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call,Visible,Unelaborated
010d c263 | c | Store 0x1,0x63
010e 029a 036b | k| Declare_Subprogram INIT_0368,For_Outer_Call,Visible,Unelaborated
0110 c264 | d | Store 0x1,0x64
0111 029a 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call,Visible,Unelaborated
0113 c265 | e | Store 0x1,0x65
0114 029a 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call,Visible,Unelaborated
0116 c266 | f | Store 0x1,0x66
0117 029a 039b | | Declare_Subprogram INIT_0398,For_Outer_Call,Visible,Unelaborated
0119 c267 | g | Store 0x1,0x67
011a 029a 03bb | | Declare_Subprogram INIT_03b8,For_Outer_Call,Visible,Unelaborated
011c c268 | h | Store 0x1,0x68
011d 029a 03d3 | | Declare_Subprogram INIT_03d0,For_Outer_Call,Visible,Unelaborated
011f c269 | i | Store 0x1,0x69
0120 029a 03eb | | Declare_Subprogram INIT_03e8,For_Outer_Call,Visible,Unelaborated
0122 c26a | j | Store 0x1,0x6a
0123 029a 0403 | | Declare_Subprogram INIT_0400,For_Outer_Call,Visible,Unelaborated
0125 c26d | m | Store 0x1,0x6d
0126 029a 041b | | Declare_Subprogram INIT_0418,For_Outer_Call,Visible,Unelaborated
0128 c26e | n | Store 0x1,0x6e
0129 029a 0433 | 3| Declare_Subprogram INIT_0430,For_Outer_Call,Visible,Unelaborated
012b c2b1 | | Store 0x1,0xb1
012c 029a 044b | K| Declare_Subprogram INIT_0448,For_Outer_Call,Visible,Unelaborated
012e c2b2 | | Store 0x1,0xb2
012f 029a 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call,Visible,Unelaborated
0131 c26f | o | Store 0x1,0x6f
0132 029a 049b | | Declare_Subprogram INIT_0498,For_Outer_Call,Visible,Unelaborated
0134 c270 | p | Store 0x1,0x70
0135 029a 04ab | | Declare_Subprogram INIT_04a8,For_Outer_Call,Visible,Unelaborated
0137 c271 | q | Store 0x1,0x71
0138 029a 04bb | | Declare_Subprogram INIT_04b8,For_Outer_Call,Visible,Unelaborated
013a c272 | r | Store 0x1,0x72
013b 029a 04d3 | | Declare_Subprogram INIT_04d0,For_Outer_Call,Visible,Unelaborated
013d c2d0 | | Store 0x1,0xd0
013e 4800 |H | Short_Literal 0x0
013f 4803 |H | Short_Literal 0x3
0140 029f 04eb | | Declare_Subprogram INIT_04e8,For_Call
0142 03fe | | Declare_Type Discrete,Defined,Visible
0143 c2b3 | | Store 0x1,0xb3
0144 029a 0513 | | Declare_Subprogram INIT_0510,For_Outer_Call,Visible,Unelaborated
0146 c274 | t | Store 0x1,0x74
0147 029a 053b | ;| Declare_Subprogram INIT_0538,For_Outer_Call,Visible,Unelaborated
0149 c275 | u | Store 0x1,0x75
014a 029a 054b | K| Declare_Subprogram INIT_0548,For_Outer_Call,Visible,Unelaborated
014c c276 | v | Store 0x1,0x76
014d 029a 0573 | s| Declare_Subprogram INIT_0570,For_Outer_Call,Visible,Unelaborated
014f c277 | w | Store 0x1,0x77
0150 029a 05f3 | | Declare_Subprogram INIT_05f0,For_Outer_Call,Visible,Unelaborated
0152 c278 | x | Store 0x1,0x78
0153 029a 0603 | | Declare_Subprogram INIT_0600,For_Outer_Call,Visible,Unelaborated
0155 c279 | y | Store 0x1,0x79
0156 029a 062b | +| Declare_Subprogram INIT_0628,For_Outer_Call,Visible,Unelaborated
0158 c27a | z | Store 0x1,0x7a
0159 029a 0663 | c| Declare_Subprogram INIT_0660,For_Outer_Call,Visible,Unelaborated
015b c27b | { | Store 0x1,0x7b
015c 029a 066b | k| Declare_Subprogram INIT_0668,For_Outer_Call,Visible,Unelaborated
015e c27c | | | Store 0x1,0x7c
015f 029a 067b | {| Declare_Subprogram INIT_0678,For_Outer_Call,Visible,Unelaborated
0161 c2a9 | | Store 0x1,0xa9
0162 029a 0683 | | Declare_Subprogram INIT_0680,For_Outer_Call,Visible,Unelaborated
0164 c27d | } | Store 0x1,0x7d
0165 029a 069b | | Declare_Subprogram INIT_0698,For_Outer_Call,Visible,Unelaborated
0167 c2cc | | Store 0x1,0xcc
0168 029a 06ab | | Declare_Subprogram INIT_06a8,For_Outer_Call,Visible,Unelaborated
016a c2cd | | Store 0x1,0xcd
016b 029a 06bb | | Declare_Subprogram INIT_06b8,For_Outer_Call,Visible,Unelaborated
016d c287 | | Store 0x1,0x87
016e 029a 06d3 | | Declare_Subprogram INIT_06d0,For_Outer_Call,Visible,Unelaborated
0170 c2ce | | Store 0x1,0xce
0171 029a 06e3 | | Declare_Subprogram INIT_06e0,For_Outer_Call,Visible,Unelaborated
0173 c2cf | | Store 0x1,0xcf
0174 029a 06f3 | | Declare_Subprogram INIT_06f0,For_Outer_Call,Visible,Unelaborated
0176 c28c | | Store 0x1,0x8c
0177 029a 070b | | Declare_Subprogram INIT_0708,For_Outer_Call,Visible,Unelaborated
0179 c290 | | Store 0x1,0x90
017a 029a 0723 | #| Declare_Subprogram INIT_0720,For_Outer_Call,Visible,Unelaborated
017c c26b | k | Store 0x1,0x6b
017d 029a 073b | ;| Declare_Subprogram INIT_0738,For_Outer_Call,Visible,Unelaborated
017f c2d5 | | Store 0x1,0xd5
0180 029a 0753 | S| Declare_Subprogram INIT_0750,For_Outer_Call,Visible,Unelaborated
0182 c2d1 | | Store 0x1,0xd1
0183 029a 076b | k| Declare_Subprogram INIT_0768,For_Outer_Call,Visible,Unelaborated
0185 c2d2 | | Store 0x1,0xd2
0186 029a 0783 | | Declare_Subprogram INIT_0780,For_Outer_Call,Visible,Unelaborated
0188 c2d3 | | Store 0x1,0xd3
0189 029a 079b | | Declare_Subprogram INIT_0798,For_Outer_Call,Visible,Unelaborated
018b c2b6 | | Store 0x1,0xb6
018c 029a 07c3 | | Declare_Subprogram INIT_07c0,For_Outer_Call,Visible,Unelaborated
018e c2b7 | | Store 0x1,0xb7
018f 029a 07db | | Declare_Subprogram INIT_07d8,For_Outer_Call,Visible,Unelaborated
0191 c2c2 | | Store 0x1,0xc2
0192 029a 0803 | | Declare_Subprogram INIT_0800,For_Outer_Call,Visible,Unelaborated
0194 c2d6 | | Store 0x1,0xd6
0195 029a 081b | | Declare_Subprogram INIT_0818,For_Outer_Call,Visible,Unelaborated
0197 c2d7 | | Store 0x1,0xd7
0198 029a 0833 | 3| Declare_Subprogram INIT_0830,For_Outer_Call,Visible,Unelaborated
019a c2b8 | | Store 0x1,0xb8
019b 029a 0843 | C| Declare_Subprogram INIT_0840,For_Outer_Call,Visible,Unelaborated
019d c2b9 | | Store 0x1,0xb9
019e 029a 0863 | c| Declare_Subprogram INIT_0860,For_Outer_Call,Visible,Unelaborated
01a0 c224 | $ | Store 0x1,0x24
01a1 029a 086b | k| Declare_Subprogram INIT_0868,For_Outer_Call,Visible,Unelaborated
01a3 c225 | % | Store 0x1,0x25
01a4 029a 0873 | s| Declare_Subprogram INIT_0870,For_Outer_Call,Visible,Unelaborated
01a6 c256 | V | Store 0x1,0x56
01a7 029a 088b | | Declare_Subprogram INIT_0888,For_Outer_Call,Visible,Unelaborated
01a9 c257 | W | Store 0x1,0x57
01aa 029a 0893 | | Declare_Subprogram INIT_0890,For_Outer_Call,Visible,Unelaborated
01ac c226 | & | Store 0x1,0x26
01ad 029a 08cb | | Declare_Subprogram INIT_08c8,For_Outer_Call,Visible,Unelaborated
01af c2ca | | Store 0x1,0xca
01b0 029a 08e3 | | Declare_Subprogram INIT_08e0,For_Outer_Call,Visible,Unelaborated
01b2 c2ba | | Store 0x1,0xba
01b3 029a 090b | | Declare_Subprogram INIT_0908,For_Outer_Call,Visible,Unelaborated
01b5 c2bb | | Store 0x1,0xbb
01b6 029a 092b | +| Declare_Subprogram INIT_0928,For_Outer_Call,Visible,Unelaborated
01b8 c29e | | Store 0x1,0x9e
01b9 029a 094b | K| Declare_Subprogram INIT_0948,For_Outer_Call,Visible,Unelaborated
01bb c29f | | Store 0x1,0x9f
01bc 029a 0953 | S| Declare_Subprogram INIT_0950,For_Outer_Call,Visible,Unelaborated
01be c2a0 | | Store 0x1,0xa0
01bf 029a 095b | [| Declare_Subprogram INIT_0958,For_Outer_Call,Visible,Unelaborated
01c1 c2a1 | | Store 0x1,0xa1
01c2 029a 0963 | c| Declare_Subprogram INIT_0960,For_Outer_Call,Visible,Unelaborated
01c4 c2c7 | | Store 0x1,0xc7
01c5 029a 0973 | s| Declare_Subprogram INIT_0970,For_Outer_Call,Visible,Unelaborated
01c7 c2c8 | | Store 0x1,0xc8
01c8 e2be | | Load 0x1,0xbe
01c9 e2bf | | Load 0x1,0xbf
01ca 02a0 | | Declare_Subprogram Null_Subprogram
01cb 4802 |H | Short_Literal 0x2
01cc 032d | - | Declare_Type Record,Defined
01cd c2a2 | | Store 0x1,0xa2
01ce e2a2 | | Load 0x1,0xa2
01cf 0322 | " | Declare_Variable Record
01d0 4800 |H | Short_Literal 0x0
01d1 00d9 | | Load_Top At_Offset_1
01d2 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01d3 4800 |H | Short_Literal 0x0
01d4 00d9 | | Load_Top At_Offset_1
01d5 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01d6 c2af | | Store 0x1,0xaf
01d7 e002 | | Load 0x0,0x2
01d8 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
01d9 e2a2 | | Load 0x1,0xa2
01da 029f 0b1b | | Declare_Subprogram INIT_0b18,For_Call
01dc e262 | b | Load 0x1,0x62
01dd 0326 | & | Complete_Type Record,By_Defining
01de e262 | b | Load 0x1,0x62
01df 0322 | " | Declare_Variable Record
01e0 e003 | | Load 0x0,0x3
01e1 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
01e2 00d9 | | Load_Top At_Offset_1
01e3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01e4 e2af | | Load 0x1,0xaf
01e5 00d9 | | Load_Top At_Offset_1
01e6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01e7 c2a4 | | Store 0x1,0xa4
01e8 00bf | | Action Accept_Activation
01e9 e2bf | | Load 0x1,0xbf
01ea 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
01eb 029d 09fb | | Declare_Subprogram INIT_09f8,For_Outer_Call
01ed 1d64 | d | Execute_Immediate Reference_Lex_1,0x64
01ee 00c7 | | Action Elaborate_Subprogram
01ef 1d65 | e | Execute_Immediate Reference_Lex_1,0x65
01f0 00c7 | | Action Elaborate_Subprogram
01f1 1d63 | c | Execute_Immediate Reference_Lex_1,0x63
01f2 00c7 | | Action Elaborate_Subprogram
01f3 1d66 | f | Execute_Immediate Reference_Lex_1,0x66
01f4 00c7 | | Action Elaborate_Subprogram
01f5 1d67 | g | Execute_Immediate Reference_Lex_1,0x67
01f6 00c7 | | Action Elaborate_Subprogram
01f7 1d68 | h | Execute_Immediate Reference_Lex_1,0x68
01f8 00c7 | | Action Elaborate_Subprogram
01f9 1d69 | i | Execute_Immediate Reference_Lex_1,0x69
01fa 00c7 | | Action Elaborate_Subprogram
01fb 1d6a | j | Execute_Immediate Reference_Lex_1,0x6a
01fc 00c7 | | Action Elaborate_Subprogram
01fd 1dd3 | | Execute_Immediate Reference_Lex_1,0xd3
01fe 00c7 | | Action Elaborate_Subprogram
01ff 1dc2 | | Execute_Immediate Reference_Lex_1,0xc2
0200 00c7 | | Action Elaborate_Subprogram
0201 1d6d | m | Execute_Immediate Reference_Lex_1,0x6d
0202 00c7 | | Action Elaborate_Subprogram
0203 1d6e | n | Execute_Immediate Reference_Lex_1,0x6e
0204 00c7 | | Action Elaborate_Subprogram
0205 1db1 | | Execute_Immediate Reference_Lex_1,0xb1
0206 00c7 | | Action Elaborate_Subprogram
0207 1db2 | | Execute_Immediate Reference_Lex_1,0xb2
0208 00c7 | | Action Elaborate_Subprogram
0209 1d6f | o | Execute_Immediate Reference_Lex_1,0x6f
020a 00c7 | | Action Elaborate_Subprogram
020b 1d70 | p | Execute_Immediate Reference_Lex_1,0x70
020c 00c7 | | Action Elaborate_Subprogram
020d 1d71 | q | Execute_Immediate Reference_Lex_1,0x71
020e 00c7 | | Action Elaborate_Subprogram
020f 1d72 | r | Execute_Immediate Reference_Lex_1,0x72
0210 00c7 | | Action Elaborate_Subprogram
0211 1d74 | t | Execute_Immediate Reference_Lex_1,0x74
0212 00c7 | | Action Elaborate_Subprogram
0213 1d75 | u | Execute_Immediate Reference_Lex_1,0x75
0214 00c7 | | Action Elaborate_Subprogram
0215 1dd0 | | Execute_Immediate Reference_Lex_1,0xd0
0216 00c7 | | Action Elaborate_Subprogram
0217 1d76 | v | Execute_Immediate Reference_Lex_1,0x76
0218 00c7 | | Action Elaborate_Subprogram
0219 029d 0a0b | | Declare_Subprogram INIT_0a08,For_Outer_Call
021b 1d77 | w | Execute_Immediate Reference_Lex_1,0x77
021c 00c7 | | Action Elaborate_Subprogram
021d 1da9 | | Execute_Immediate Reference_Lex_1,0xa9
021e 00c7 | | Action Elaborate_Subprogram
021f 1d78 | x | Execute_Immediate Reference_Lex_1,0x78
0220 00c7 | | Action Elaborate_Subprogram
0221 1d79 | y | Execute_Immediate Reference_Lex_1,0x79
0222 00c7 | | Action Elaborate_Subprogram
0223 1d7a | z | Execute_Immediate Reference_Lex_1,0x7a
0224 00c7 | | Action Elaborate_Subprogram
0225 1d7b | { | Execute_Immediate Reference_Lex_1,0x7b
0226 00c7 | | Action Elaborate_Subprogram
0227 1d7c | | | Execute_Immediate Reference_Lex_1,0x7c
0228 00c7 | | Action Elaborate_Subprogram
0229 1d7d | } | Execute_Immediate Reference_Lex_1,0x7d
022a 00c7 | | Action Elaborate_Subprogram
022b 1dcc | | Execute_Immediate Reference_Lex_1,0xcc
022c 00c7 | | Action Elaborate_Subprogram
022d 1dcd | | Execute_Immediate Reference_Lex_1,0xcd
022e 00c7 | | Action Elaborate_Subprogram
022f 1d87 | | Execute_Immediate Reference_Lex_1,0x87
0230 00c7 | | Action Elaborate_Subprogram
0231 1dce | | Execute_Immediate Reference_Lex_1,0xce
0232 00c7 | | Action Elaborate_Subprogram
0233 1dcf | | Execute_Immediate Reference_Lex_1,0xcf
0234 00c7 | | Action Elaborate_Subprogram
0235 1d8c | | Execute_Immediate Reference_Lex_1,0x8c
0236 00c7 | | Action Elaborate_Subprogram
0237 1d90 | | Execute_Immediate Reference_Lex_1,0x90
0238 00c7 | | Action Elaborate_Subprogram
0239 1d6b | k | Execute_Immediate Reference_Lex_1,0x6b
023a 00c7 | | Action Elaborate_Subprogram
023b 1dd5 | | Execute_Immediate Reference_Lex_1,0xd5
023c 00c7 | | Action Elaborate_Subprogram
023d 1dd1 | | Execute_Immediate Reference_Lex_1,0xd1
023e 00c7 | | Action Elaborate_Subprogram
023f 1dd2 | | Execute_Immediate Reference_Lex_1,0xd2
0240 00c7 | | Action Elaborate_Subprogram
0241 029d 0a43 | C| Declare_Subprogram INIT_0a40,For_Outer_Call
0243 1db6 | | Execute_Immediate Reference_Lex_1,0xb6
0244 00c7 | | Action Elaborate_Subprogram
0245 1db7 | | Execute_Immediate Reference_Lex_1,0xb7
0246 00c7 | | Action Elaborate_Subprogram
0247 1dd6 | | Execute_Immediate Reference_Lex_1,0xd6
0248 00c7 | | Action Elaborate_Subprogram
0249 1dd7 | | Execute_Immediate Reference_Lex_1,0xd7
024a 00c7 | | Action Elaborate_Subprogram
024b 1db8 | | Execute_Immediate Reference_Lex_1,0xb8
024c 00c7 | | Action Elaborate_Subprogram
024d 1db9 | | Execute_Immediate Reference_Lex_1,0xb9
024e 00c7 | | Action Elaborate_Subprogram
024f 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0250 00c7 | | Action Elaborate_Subprogram
0251 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0252 00c7 | | Action Elaborate_Subprogram
0253 1d56 | V | Execute_Immediate Reference_Lex_1,0x56
0254 00c7 | | Action Elaborate_Subprogram
0255 1d57 | W | Execute_Immediate Reference_Lex_1,0x57
0256 00c7 | | Action Elaborate_Subprogram
0257 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
0258 00c7 | | Action Elaborate_Subprogram
0259 1dca | | Execute_Immediate Reference_Lex_1,0xca
025a 00c7 | | Action Elaborate_Subprogram
025b 1dba | | Execute_Immediate Reference_Lex_1,0xba
025c 00c7 | | Action Elaborate_Subprogram
025d 1dbb | | Execute_Immediate Reference_Lex_1,0xbb
025e 00c7 | | Action Elaborate_Subprogram
025f 1d9e | | Execute_Immediate Reference_Lex_1,0x9e
0260 00c7 | | Action Elaborate_Subprogram
0261 1d9f | | Execute_Immediate Reference_Lex_1,0x9f
0262 00c7 | | Action Elaborate_Subprogram
0263 1da0 | | Execute_Immediate Reference_Lex_1,0xa0
0264 00c7 | | Action Elaborate_Subprogram
0265 1da1 | | Execute_Immediate Reference_Lex_1,0xa1
0266 00c7 | | Action Elaborate_Subprogram
0267 1dc7 | | Execute_Immediate Reference_Lex_1,0xc7
0268 00c7 | | Action Elaborate_Subprogram
0269 1dc8 | | Execute_Immediate Reference_Lex_1,0xc8
026a 00c7 | | Action Elaborate_Subprogram
026b BODY_0008:
026b 00ea | | Load_Encached Null_String_Cache
026c 4800 |H | Short_Literal 0x0
026d e004 | | Load 0x0,0x4
026e 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
026f e004 | | Load 0x0,0x4
0270 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0271 00ea | | Load_Encached Null_String_Cache
0272 4800 |H | Short_Literal 0x0
0273 e004 | | Load 0x0,0x4
0274 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0275 e004 | | Load 0x0,0x4
0276 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0277 00ea | | Load_Encached Null_String_Cache
0278 00ea | | Load_Encached Null_String_Cache
0279 e004 | | Load 0x0,0x4
027a 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
027b e004 | | Load 0x0,0x4
027c 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
027d 00ea | | Load_Encached Null_String_Cache
027e 00ea | | Load_Encached Null_String_Cache
027f e004 | | Load 0x0,0x4
0280 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0281 e004 | | Load 0x0,0x4
0282 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0283 00ea | | Load_Encached Null_String_Cache
0284 00ea | | Load_Encached Null_String_Cache
0285 e004 | | Load 0x0,0x4
0286 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0287 e004 | | Load 0x0,0x4
0288 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0289 00ea | | Load_Encached Null_String_Cache
028a 00ea | | Load_Encached Null_String_Cache
028b e004 | | Load 0x0,0x4
028c 1b20 | | Execute Package,Field_Read,Field_Number 0x20
028d e004 | | Load 0x0,0x4
028e 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
028f 00ea | | Load_Encached Null_String_Cache
0290 4800 |H | Short_Literal 0x0
0291 e004 | | Load 0x0,0x4
0292 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0293 e004 | | Load 0x0,0x4
0294 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0295 00bc | | Action Signal_Activated
0296 00bb | | Action Signal_Completion
0297 0000 | | .XXX[0x1]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b | | .CONST 0x029b ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0001 | | .CONST 0x0001 ; Number of locals
029b BODY_0298:
029b INIT_0298:
029b 4607 |F | Jump_Case 0x8
029c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
029d 7806 |x | Jump 0x2a4 ; case 0x1
029e 7809 |x | Jump 0x2a8 ; case 0x2
029f 780d |x | Jump 0x2ad ; case 0x3
02a0 7810 |x | Jump 0x2b1 ; case 0x4
02a1 7811 |x | Jump 0x2b3 ; case 0x5
02a2 7812 |x | Jump 0x2b5 ; case 0x6
02a3 7815 |x | Jump 0x2b9 ; case 0x7
02a4 00da | | Load_Top At_Offset_2
02a5 0091 0b2a | *| Action Push_String_Extended_Indexed,0xb2a ; "UPPER"
02a7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
02a8 00db | | Load_Top At_Offset_3
02a9 00db | | Load_Top At_Offset_3
02aa 00e0 | | Load_Encached Standard_Cache
02ab 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02ac 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02ad 00da | | Load_Top At_Offset_2
02ae 00e0 | | Load_Encached Standard_Cache
02af 181c | | Execute Package,Field_Execute,Field_Number 0x1c
02b0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
02b1 00db | | Load_Top At_Offset_3
02b2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02b3 00db | | Load_Top At_Offset_3
02b4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02b5 e2c3 | | Load 0x1,0xc3
02b6 00dc | | Load_Top At_Offset_4
02b7 0267 | g | Execute Discrete,Predecessor
02b8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02b9 e2c3 | | Load 0x1,0xc3
02ba 00dc | | Load_Top At_Offset_4
02bb 0268 | h | Execute Discrete,Successor
02bc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02bd 0000 0000 | | .XXX[0x3]
02bf 0000 | |
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3 | | .CONST 0x02c3 ; Address of begin
02c1 0004 | | .CONST 0x0004 ; Address of exception handler
02c2 0001 | | .CONST 0x0001 ; Number of locals
02c3 BODY_02c0:
02c3 INIT_02c0:
02c3 4607 |F | Jump_Case 0x8
02c4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
02c5 7806 |x | Jump 0x2cc ; case 0x1
02c6 7809 |x | Jump 0x2d0 ; case 0x2
02c7 780d |x | Jump 0x2d5 ; case 0x3
02c8 7810 |x | Jump 0x2d9 ; case 0x4
02c9 7811 |x | Jump 0x2db ; case 0x5
02ca 7812 |x | Jump 0x2dd ; case 0x6
02cb 7815 |x | Jump 0x2e1 ; case 0x7
02cc 00da | | Load_Top At_Offset_2
02cd 0091 0b2e | .| Action Push_String_Extended_Indexed,0xb2e ; "ASSEMBLE"
02cf 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
02d0 00db | | Load_Top At_Offset_3
02d1 00db | | Load_Top At_Offset_3
02d2 00e0 | | Load_Encached Standard_Cache
02d3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02d4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02d5 00da | | Load_Top At_Offset_2
02d6 00e0 | | Load_Encached Standard_Cache
02d7 181c | | Execute Package,Field_Execute,Field_Number 0x1c
02d8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
02d9 00db | | Load_Top At_Offset_3
02da 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02db 00db | | Load_Top At_Offset_3
02dc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02dd e2c4 | | Load 0x1,0xc4
02de 00dc | | Load_Top At_Offset_4
02df 0267 | g | Execute Discrete,Predecessor
02e0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02e1 e2c4 | | Load 0x1,0xc4
02e2 00dc | | Load_Top At_Offset_4
02e3 0268 | h | Execute Discrete,Successor
02e4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02e5 0000 0000 | | .XXX[0x3]
02e7 0000 | |
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02eb | | .CONST 0x02eb ; Address of begin
02e9 0004 | | .CONST 0x0004 ; Address of exception handler
02ea 0001 | | .CONST 0x0001 ; Number of locals
02eb BODY_02e8:
02eb INIT_02e8:
02eb 4607 |F | Jump_Case 0x8
02ec 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
02ed 7806 |x | Jump 0x2f4 ; case 0x1
02ee 7809 |x | Jump 0x2f8 ; case 0x2
02ef 780d |x | Jump 0x2fd ; case 0x3
02f0 7810 |x | Jump 0x301 ; case 0x4
02f1 7811 |x | Jump 0x303 ; case 0x5
02f2 7812 |x | Jump 0x305 ; case 0x6
02f3 7815 |x | Jump 0x309 ; case 0x7
02f4 00da | | Load_Top At_Offset_2
02f5 0091 0b33 | 3| Action Push_String_Extended_Indexed,0xb33 ; "ON_NORMAL"
02f7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
02f8 00db | | Load_Top At_Offset_3
02f9 00db | | Load_Top At_Offset_3
02fa 00e0 | | Load_Encached Standard_Cache
02fb 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02fc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02fd 00da | | Load_Top At_Offset_2
02fe 00e0 | | Load_Encached Standard_Cache
02ff 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0300 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0301 00db | | Load_Top At_Offset_3
0302 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0303 00db | | Load_Top At_Offset_3
0304 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0305 e2c6 | | Load 0x1,0xc6
0306 00dc | | Load_Top At_Offset_4
0307 0267 | g | Execute Discrete,Predecessor
0308 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0309 e2c6 | | Load 0x1,0xc6
030a 00dc | | Load_Top At_Offset_4
030b 0268 | h | Execute Discrete,Successor
030c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
030d 0000 0000 | | .XXX[0x3]
030f 0000 | |
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0313 | | .CONST 0x0313 ; Address of begin
0311 0004 | | .CONST 0x0004 ; Address of exception handler
0312 0001 | | .CONST 0x0001 ; Number of locals
0313 BODY_0310:
0313 INIT_0310:
0313 4607 |F | Jump_Case 0x8
0314 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0315 7806 |x | Jump 0x31c ; case 0x1
0316 7809 |x | Jump 0x320 ; case 0x2
0317 780d |x | Jump 0x325 ; case 0x3
0318 7810 |x | Jump 0x329 ; case 0x4
0319 7811 |x | Jump 0x32b ; case 0x5
031a 7812 |x | Jump 0x32d ; case 0x6
031b 7815 |x | Jump 0x331 ; case 0x7
031c 00da | | Load_Top At_Offset_2
031d 0091 0b37 | 7| Action Push_String_Extended_Indexed,0xb37 ; "FTP"
031f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0320 00db | | Load_Top At_Offset_3
0321 00db | | Load_Top At_Offset_3
0322 00e0 | | Load_Encached Standard_Cache
0323 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0324 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0325 00da | | Load_Top At_Offset_2
0326 00e0 | | Load_Encached Standard_Cache
0327 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0328 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0329 00db | | Load_Top At_Offset_3
032a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
032b 00db | | Load_Top At_Offset_3
032c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
032d e2c9 | | Load 0x1,0xc9
032e 00dc | | Load_Top At_Offset_4
032f 0267 | g | Execute Discrete,Predecessor
0330 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0331 e2c9 | | Load 0x1,0xc9
0332 00dc | | Load_Top At_Offset_4
0333 0268 | h | Execute Discrete,Successor
0334 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0335 0000 0000 | | .XXX[0x3]
0337 0000 | |
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033b | ; | .CONST 0x033b ; Address of begin
0339 0004 | | .CONST 0x0004 ; Address of exception handler
033a 0001 | | .CONST 0x0001 ; Number of locals
033b BODY_0338:
033b INIT_0338:
033b 4607 |F | Jump_Case 0x8
033c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
033d 7806 |x | Jump 0x344 ; case 0x1
033e 7809 |x | Jump 0x348 ; case 0x2
033f 780d |x | Jump 0x34d ; case 0x3
0340 7810 |x | Jump 0x351 ; case 0x4
0341 7811 |x | Jump 0x353 ; case 0x5
0342 7812 |x | Jump 0x355 ; case 0x6
0343 7815 |x | Jump 0x359 ; case 0x7
0344 00da | | Load_Top At_Offset_2
0345 0091 0b39 | 9| Action Push_String_Extended_Indexed,0xb39 ; "TEXT"
0347 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0348 00db | | Load_Top At_Offset_3
0349 00db | | Load_Top At_Offset_3
034a 00e0 | | Load_Encached Standard_Cache
034b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
034c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
034d 00da | | Load_Top At_Offset_2
034e 00e0 | | Load_Encached Standard_Cache
034f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0350 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0351 00db | | Load_Top At_Offset_3
0352 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0353 00db | | Load_Top At_Offset_3
0354 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0355 e2cb | | Load 0x1,0xcb
0356 00dc | | Load_Top At_Offset_4
0357 0267 | g | Execute Discrete,Predecessor
0358 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0359 e2cb | | Load 0x1,0xcb
035a 00dc | | Load_Top At_Offset_4
035b 0268 | h | Execute Discrete,Successor
035c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
035d 0000 0000 | | .XXX[0x3]
035f 0000 | |
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0363 | c | .CONST 0x0363 ; Address of begin
0361 0004 | | .CONST 0x0004 ; Address of exception handler
0362 0001 | | .CONST 0x0001 ; Number of locals
0363 BODY_0360:
0363 INIT_0360:
0363 00da | | Load_Top At_Offset_2
0364 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0365 0320 | | Declare_Variable Record,Duplicate
0366 00cd | | Action Spare6_Action
0367 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 036b | k | .CONST 0x036b ; Address of begin
0369 0004 | | .CONST 0x0004 ; Address of exception handler
036a 0001 | | .CONST 0x0001 ; Number of locals
036b BODY_0368:
036b INIT_0368:
036b 00da | | Load_Top At_Offset_2
036c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
036d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
036e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
036f 0000 | | .XXX[0x1]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0373 | s | .CONST 0x0373 ; Address of begin
0371 0004 | | .CONST 0x0004 ; Address of exception handler
0372 0001 | | .CONST 0x0001 ; Number of locals
0373 BODY_0370:
0373 INIT_0370:
0373 00da | | Load_Top At_Offset_2
0374 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0375 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0376 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0377 0000 | | .XXX[0x1]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 037b | { | .CONST 0x037b ; Address of begin
0379 0004 | | .CONST 0x0004 ; Address of exception handler
037a 0001 | | .CONST 0x0001 ; Number of locals
037b BODY_0378:
037b INIT_0378:
037b e262 | b | Load 0x1,0x62
037c 0322 | " | Declare_Variable Record
037d 00db | | Load_Top At_Offset_3
037e 00d9 | | Load_Top At_Offset_1
037f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0380 00d8 | | Load_Top At_Offset_0
0381 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0382 e5ff | | Load 0x2,-0x1
0383 e005 | | Load 0x0,0x5
0384 180f | | Execute Package,Field_Execute,Field_Number 0xf
0385 e005 | | Load 0x0,0x5
0386 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0387 00d8 | | Load_Top At_Offset_0
0388 e2be | | Load 0x1,0xbe
0389 0260 | ` | Execute Discrete,In_Type
038a 7001 |p | Jump_Nonzero 0x38c
038b 0801 | | Execute_Immediate Raise,0x1
038c 00d9 | | Load_Top At_Offset_1
038d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
038e e2d8 | | Load 0x1,0xd8
038f 00d0 | | Action Swap_Control
0390 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0391 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0392 0000 0000 | | .BLANK 0000[0x6]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 039b | | .CONST 0x039b ; Address of begin
0399 0004 | | .CONST 0x0004 ; Address of exception handler
039a 0001 | | .CONST 0x0001 ; Number of locals
039b BODY_0398:
039b INIT_0398:
039b e262 | b | Load 0x1,0x62
039c 0322 | " | Declare_Variable Record
039d 00db | | Load_Top At_Offset_3
039e 00d8 | | Load_Top At_Offset_0
039f 00e3 | | Load_Encached Natural_Cache
03a0 0260 | ` | Execute Discrete,In_Type
03a1 7001 |p | Jump_Nonzero 0x3a3
03a2 0801 | | Execute_Immediate Raise,0x1
03a3 e005 | | Load 0x0,0x5
03a4 1814 | | Execute Package,Field_Execute,Field_Number 0x14
03a5 e005 | | Load 0x0,0x5
03a6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03a7 00d9 | | Load_Top At_Offset_1
03a8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
03a9 00d8 | | Load_Top At_Offset_0
03aa 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
03ab e5ff | | Load 0x2,-0x1
03ac 00d9 | | Load_Top At_Offset_1
03ad 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
03ae e2d8 | | Load 0x1,0xd8
03af 00d0 | | Action Swap_Control
03b0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
03b1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03b2 0000 0000 | | .BLANK 0000[0x6]
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03bb | | .CONST 0x03bb ; Address of begin
03b9 03c2 | | .CONST 0x03c2 ; Address of exception handler
03ba 0001 | | .CONST 0x0001 ; Number of locals
03bb BODY_03b8:
03bb INIT_03b8:
03bb 00da | | Load_Top At_Offset_2
03bc 8263 | c | Call 0x1,0x63
03bd e006 | | Load 0x0,0x6
03be 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03bf e007 | | Load 0x0,0x7
03c0 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b
03c1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03c2 TRAP_03b8:
03c2 e007 | | Load 0x0,0x7
03c3 1b17 | | Execute Package,Field_Read,Field_Number 0x17
03c4 010f | | Execute Exception,Equal
03c5 6802 |h | Jump_Zero 0x3c8
03c6 e2bc | | Load 0x1,0xbc
03c7 0257 | W | Execute Discrete,Raise
03c8 0100 | | Execute Exception,Raise
03c9 0000 0000 | | .BLANK 0000[0x7]
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03d3 | | .CONST 0x03d3 ; Address of begin
03d1 03da | | .CONST 0x03da ; Address of exception handler
03d2 0001 | | .CONST 0x0001 ; Number of locals
03d3 BODY_03d0:
03d3 INIT_03d0:
03d3 00da | | Load_Top At_Offset_2
03d4 8263 | c | Call 0x1,0x63
03d5 e006 | | Load 0x0,0x6
03d6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03d7 e007 | | Load 0x0,0x7
03d8 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c
03d9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03da TRAP_03d0:
03da e007 | | Load 0x0,0x7
03db 1b17 | | Execute Package,Field_Read,Field_Number 0x17
03dc 010f | | Execute Exception,Equal
03dd 6802 |h | Jump_Zero 0x3e0
03de e2bc | | Load 0x1,0xbc
03df 0257 | W | Execute Discrete,Raise
03e0 0100 | | Execute Exception,Raise
03e1 0000 0000 | | .BLANK 0000[0x7]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03eb | | .CONST 0x03eb ; Address of begin
03e9 03f2 | | .CONST 0x03f2 ; Address of exception handler
03ea 0001 | | .CONST 0x0001 ; Number of locals
03eb BODY_03e8:
03eb INIT_03e8:
03eb 00da | | Load_Top At_Offset_2
03ec 8263 | c | Call 0x1,0x63
03ed e006 | | Load 0x0,0x6
03ee 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03ef e007 | | Load 0x0,0x7
03f0 185d | ] | Execute Package,Field_Execute,Field_Number 0x5d
03f1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03f2 TRAP_03e8:
03f2 e007 | | Load 0x0,0x7
03f3 1b17 | | Execute Package,Field_Read,Field_Number 0x17
03f4 010f | | Execute Exception,Equal
03f5 6802 |h | Jump_Zero 0x3f8
03f6 e2bc | | Load 0x1,0xbc
03f7 0257 | W | Execute Discrete,Raise
03f8 0100 | | Execute Exception,Raise
03f9 0000 0000 | | .BLANK 0000[0x7]
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0403 | | .CONST 0x0403 ; Address of begin
0401 040f | | .CONST 0x040f ; Address of exception handler
0402 0001 | | .CONST 0x0001 ; Number of locals
0403 BODY_0400:
0403 INIT_0400:
0403 00da | | Load_Top At_Offset_2
0404 8263 | c | Call 0x1,0x63
0405 e006 | | Load 0x0,0x6
0406 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0407 e007 | | Load 0x0,0x7
0408 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
0409 00d8 | | Load_Top At_Offset_0
040a 00e4 | | Load_Encached Positive_Cache
040b 0260 | ` | Execute Discrete,In_Type
040c 7001 |p | Jump_Nonzero 0x40e
040d 0801 | | Execute_Immediate Raise,0x1
040e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
040f TRAP_0400:
040f e007 | | Load 0x0,0x7
0410 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0411 010f | | Execute Exception,Equal
0412 6802 |h | Jump_Zero 0x415
0413 e2bc | | Load 0x1,0xbc
0414 0257 | W | Execute Discrete,Raise
0415 0100 | | Execute Exception,Raise
0416 0000 0000 | | .XXX[0x2]
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 041b | | .CONST 0x041b ; Address of begin
0419 0422 | " | .CONST 0x0422 ; Address of exception handler
041a 0001 | | .CONST 0x0001 ; Number of locals
041b BODY_0418:
041b INIT_0418:
041b 00da | | Load_Top At_Offset_2
041c 8263 | c | Call 0x1,0x63
041d e006 | | Load 0x0,0x6
041e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
041f e007 | | Load 0x0,0x7
0420 1849 | I | Execute Package,Field_Execute,Field_Number 0x49
0421 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0422 TRAP_0418:
0422 e007 | | Load 0x0,0x7
0423 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0424 010f | | Execute Exception,Equal
0425 6802 |h | Jump_Zero 0x428
0426 e2bc | | Load 0x1,0xbc
0427 0257 | W | Execute Discrete,Raise
0428 0100 | | Execute Exception,Raise
0429 0000 0000 | | .BLANK 0000[0x7]
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 0433 | 3 | .CONST 0x0433 ; Address of begin
0431 043a | : | .CONST 0x043a ; Address of exception handler
0432 0001 | | .CONST 0x0001 ; Number of locals
0433 BODY_0430:
0433 INIT_0430:
0433 00da | | Load_Top At_Offset_2
0434 8263 | c | Call 0x1,0x63
0435 e006 | | Load 0x0,0x6
0436 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0437 e007 | | Load 0x0,0x7
0438 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0439 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
043a TRAP_0430:
043a e007 | | Load 0x0,0x7
043b 1b17 | | Execute Package,Field_Read,Field_Number 0x17
043c 010f | | Execute Exception,Equal
043d 6802 |h | Jump_Zero 0x440
043e e2bc | | Load 0x1,0xbc
043f 0257 | W | Execute Discrete,Raise
0440 0100 | | Execute Exception,Raise
0441 0000 0000 | | .BLANK 0000[0x7]
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 044b | K | .CONST 0x044b ; Address of begin
0449 0452 | R | .CONST 0x0452 ; Address of exception handler
044a 0001 | | .CONST 0x0001 ; Number of locals
044b BODY_0448:
044b INIT_0448:
044b 00da | | Load_Top At_Offset_2
044c 8263 | c | Call 0x1,0x63
044d e006 | | Load 0x0,0x6
044e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
044f e007 | | Load 0x0,0x7
0450 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0451 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0452 TRAP_0448:
0452 e007 | | Load 0x0,0x7
0453 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0454 010f | | Execute Exception,Equal
0455 6802 |h | Jump_Zero 0x458
0456 e2bc | | Load 0x1,0xbc
0457 0257 | W | Execute Discrete,Raise
0458 0100 | | Execute Exception,Raise
0459 0000 0000 | | .BLANK 0000[0x7]
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0472 | r | .CONST 0x0472 ; Address of begin
0461 0004 | | .CONST 0x0004 ; Address of exception handler
0462 0004 | | .CONST 0x0004 ; Number of locals
0463 INIT_0460:
0463 4820 |H | Short_Literal 0x20
0464 e5fe | | Load 0x2,-0x2
0465 e008 | | Load 0x0,0x8
0466 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0467 82d9 | | Call 0x1,0xd9
0468 00db | | Load_Top At_Offset_3
0469 8263 | c | Call 0x1,0x63
046a e006 | | Load 0x0,0x6
046b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
046c e007 | | Load 0x0,0x7
046d 184c | L | Execute Package,Field_Execute,Field_Number 0x4c
046e 00d8 | | Load_Top At_Offset_0
046f 01db | | Execute Vector,Length
0470 00e3 | | Load_Encached Natural_Cache
0471 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0472 BODY_0460:
0472 00d8 | | Load_Top At_Offset_0
0473 0c01 | | Execute_Immediate Greater_Equal,0x1
0474 681d |h | Jump_Zero 0x492
0475 00da | | Load_Top At_Offset_2
0476 01db | | Execute Vector,Length
0477 7002 |p | Jump_Nonzero 0x47a
0478 00ea | | Load_Encached Null_String_Cache
0479 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
047a 00da | | Load_Top At_Offset_2
047b 01db | | Execute Vector,Length
047c 00d9 | | Load_Top At_Offset_1
047d 027c | | | Execute Discrete,Less
047e 6804 |h | Jump_Zero 0x483
047f 00da | | Load_Top At_Offset_2
0480 00da | | Load_Top At_Offset_2
0481 01cc | | Execute Vector,Catenate
0482 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0483 4801 |H | Short_Literal 0x1
0484 00db | | Load_Top At_Offset_3
0485 00db | | Load_Top At_Offset_3
0486 e008 | | Load 0x0,0x8
0487 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0488 00db | | Load_Top At_Offset_3
0489 01dc | | Execute Vector,Last
048a 027f | | Execute Discrete,Equal
048b 6802 |h | Jump_Zero 0x48e
048c 00da | | Load_Top At_Offset_2
048d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
048e 00da | | Load_Top At_Offset_2
048f 00da | | Load_Top At_Offset_2
0490 01cc | | Execute Vector,Catenate
0491 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0492 00da | | Load_Top At_Offset_2
0493 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0494 0000 0000 | | .BLANK 0000[0x4]
0498 ; --------------------------------------------------------------------------------------
0498 ; SUBPROGRAM
0498 ; --------------------------------------------------------------------------------------
0498 04a1 | | .CONST 0x04a1 ; Address of begin
0499 0004 | | .CONST 0x0004 ; Address of exception handler
049a 0003 | | .CONST 0x0003 ; Number of locals
049b INIT_0498:
049b 00db | | Load_Top At_Offset_3
049c 00db | | Load_Top At_Offset_3
049d 826f | o | Call 0x1,0x6f
049e e5fd | | Load 0x2,-0x3
049f e5ff | | Load 0x2,-0x1
04a0 826f | o | Call 0x1,0x6f
04a1 BODY_0498:
04a1 00d9 | | Load_Top At_Offset_1
04a2 00d9 | | Load_Top At_Offset_1
04a3 01cc | | Execute Vector,Catenate
04a4 82d9 | | Call 0x1,0xd9
04a5 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
04a6 0000 0000 | | .XXX[0x2]
04a8 ; --------------------------------------------------------------------------------------
04a8 ; SUBPROGRAM
04a8 ; --------------------------------------------------------------------------------------
04a8 04ab | | .CONST 0x04ab ; Address of begin
04a9 0004 | | .CONST 0x0004 ; Address of exception handler
04aa 0001 | | .CONST 0x0001 ; Number of locals
04ab BODY_04a8:
04ab INIT_04a8:
04ab 00db | | Load_Top At_Offset_3
04ac 00db | | Load_Top At_Offset_3
04ad 826f | o | Call 0x1,0x6f
04ae e5fd | | Load 0x2,-0x3
04af 01cc | | Execute Vector,Catenate
04b0 82d9 | | Call 0x1,0xd9
04b1 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
04b2 0000 0000 | | .BLANK 0000[0x6]
04b8 ; --------------------------------------------------------------------------------------
04b8 ; SUBPROGRAM
04b8 ; --------------------------------------------------------------------------------------
04b8 04bb | | .CONST 0x04bb ; Address of begin
04b9 04c7 | | .CONST 0x04c7 ; Address of exception handler
04ba 0001 | | .CONST 0x0001 ; Number of locals
04bb BODY_04b8:
04bb INIT_04b8:
04bb 00da | | Load_Top At_Offset_2
04bc 8263 | c | Call 0x1,0x63
04bd e006 | | Load 0x0,0x6
04be 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04bf e007 | | Load 0x0,0x7
04c0 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
04c1 00d8 | | Load_Top At_Offset_0
04c2 00e4 | | Load_Encached Positive_Cache
04c3 0260 | ` | Execute Discrete,In_Type
04c4 7001 |p | Jump_Nonzero 0x4c6
04c5 0801 | | Execute_Immediate Raise,0x1
04c6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04c7 TRAP_04b8:
04c7 e007 | | Load 0x0,0x7
04c8 1b17 | | Execute Package,Field_Read,Field_Number 0x17
04c9 010f | | Execute Exception,Equal
04ca 6802 |h | Jump_Zero 0x4cd
04cb e2bc | | Load 0x1,0xbc
04cc 0257 | W | Execute Discrete,Raise
04cd 0100 | | Execute Exception,Raise
04ce 0000 0000 | | .XXX[0x2]
04d0 ; --------------------------------------------------------------------------------------
04d0 ; SUBPROGRAM
04d0 ; --------------------------------------------------------------------------------------
04d0 04d3 | | .CONST 0x04d3 ; Address of begin
04d1 04da | | .CONST 0x04da ; Address of exception handler
04d2 0001 | | .CONST 0x0001 ; Number of locals
04d3 BODY_04d0:
04d3 INIT_04d0:
04d3 00da | | Load_Top At_Offset_2
04d4 8263 | c | Call 0x1,0x63
04d5 e006 | | Load 0x0,0x6
04d6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04d7 e007 | | Load 0x0,0x7
04d8 1842 | B | Execute Package,Field_Execute,Field_Number 0x42
04d9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04da TRAP_04d0:
04da e007 | | Load 0x0,0x7
04db 1b17 | | Execute Package,Field_Read,Field_Number 0x17
04dc 010f | | Execute Exception,Equal
04dd 6802 |h | Jump_Zero 0x4e0
04de e2bc | | Load 0x1,0xbc
04df 0257 | W | Execute Discrete,Raise
04e0 0100 | | Execute Exception,Raise
04e1 0000 0000 | | .BLANK 0000[0x7]
04e8 ; --------------------------------------------------------------------------------------
04e8 ; SUBPROGRAM
04e8 ; --------------------------------------------------------------------------------------
04e8 04eb | | .CONST 0x04eb ; Address of begin
04e9 0004 | | .CONST 0x0004 ; Address of exception handler
04ea 0001 | | .CONST 0x0001 ; Number of locals
04eb BODY_04e8:
04eb INIT_04e8:
04eb 4607 |F | Jump_Case 0x8
04ec 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
04ed 7806 |x | Jump 0x4f4 ; case 0x1
04ee 7809 |x | Jump 0x4f8 ; case 0x2
04ef 780d |x | Jump 0x4fd ; case 0x3
04f0 7810 |x | Jump 0x501 ; case 0x4
04f1 7811 |x | Jump 0x503 ; case 0x5
04f2 7812 |x | Jump 0x505 ; case 0x6
04f3 7815 |x | Jump 0x509 ; case 0x7
04f4 00da | | Load_Top At_Offset_2
04f5 0091 0b3b | ;| Action Push_String_Extended_Indexed,0xb3b ; "ADA_SPEC"
04f7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
04f8 00db | | Load_Top At_Offset_3
04f9 00db | | Load_Top At_Offset_3
04fa 00e0 | | Load_Encached Standard_Cache
04fb 181b | | Execute Package,Field_Execute,Field_Number 0x1b
04fc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04fd 00da | | Load_Top At_Offset_2
04fe 00e0 | | Load_Encached Standard_Cache
04ff 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0500 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0501 00db | | Load_Top At_Offset_3
0502 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0503 00db | | Load_Top At_Offset_3
0504 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0505 e2b3 | | Load 0x1,0xb3
0506 00dc | | Load_Top At_Offset_4
0507 0267 | g | Execute Discrete,Predecessor
0508 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0509 e2b3 | | Load 0x1,0xb3
050a 00dc | | Load_Top At_Offset_4
050b 0268 | h | Execute Discrete,Successor
050c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
050d 0000 0000 | | .XXX[0x3]
050f 0000 | |
0510 ; --------------------------------------------------------------------------------------
0510 ; SUBPROGRAM
0510 ; --------------------------------------------------------------------------------------
0510 0513 | | .CONST 0x0513 ; Address of begin
0511 052a | * | .CONST 0x052a ; Address of exception handler
0512 0001 | | .CONST 0x0001 ; Number of locals
0513 BODY_0510:
0513 INIT_0510:
0513 00db | | Load_Top At_Offset_3
0514 4603 |F | Jump_Case 0x4
0515 7805 |x | Jump 0x51b ; case 0x0
0516 780b |x | Jump 0x522 ; case 0x1
0517 7811 |x | Jump 0x529 ; case 0x2
0518 7800 |x | Jump 0x519 ; case 0x3
0519 00ea | | Load_Encached Null_String_Cache
051a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
051b 00da | | Load_Top At_Offset_2
051c 8263 | c | Call 0x1,0x63
051d e006 | | Load 0x0,0x6
051e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
051f e007 | | Load 0x0,0x7
0520 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0521 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0522 00da | | Load_Top At_Offset_2
0523 8263 | c | Call 0x1,0x63
0524 e006 | | Load 0x0,0x6
0525 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0526 e007 | | Load 0x0,0x7
0527 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
0528 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0529 0833 | 3 | Execute_Immediate Raise,0x33
052a TRAP_0510:
052a e007 | | Load 0x0,0x7
052b 1b17 | | Execute Package,Field_Read,Field_Number 0x17
052c 010f | | Execute Exception,Equal
052d 6802 |h | Jump_Zero 0x530
052e e2bc | | Load 0x1,0xbc
052f 0257 | W | Execute Discrete,Raise
0530 0100 | | Execute Exception,Raise
0531 0000 0000 | | .BLANK 0000[0x7]
0538 ; --------------------------------------------------------------------------------------
0538 ; SUBPROGRAM
0538 ; --------------------------------------------------------------------------------------
0538 053b | ; | .CONST 0x053b ; Address of begin
0539 0004 | | .CONST 0x0004 ; Address of exception handler
053a 0001 | | .CONST 0x0001 ; Number of locals
053b BODY_0538:
053b INIT_0538:
053b 00db | | Load_Top At_Offset_3
053c 00db | | Load_Top At_Offset_3
053d 8276 | v | Call 0x1,0x76
053e 00db | | Load_Top At_Offset_3
053f 8274 | t | Call 0x1,0x74
0540 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0541 0000 0000 | | .BLANK 0000[0x7]
0548 ; --------------------------------------------------------------------------------------
0548 ; SUBPROGRAM
0548 ; --------------------------------------------------------------------------------------
0548 0552 | R | .CONST 0x0552 ; Address of begin
0549 0004 | | .CONST 0x0004 ; Address of exception handler
054a 0002 | | .CONST 0x0002 ; Number of locals
054b INIT_0548:
054b e002 | | Load 0x0,0x2
054c 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
054d 02c7 | | Declare_Variable Any
054e e5fe | | Load 0x2,-0x2
054f e002 | | Load 0x0,0x2
0550 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0551 a402 | | Store_Unchecked 0x2,0x2
0552 BODY_0548:
0552 00d8 | | Load_Top At_Offset_0
0553 e009 | | Load 0x0,0x9
0554 180d | | Execute Package,Field_Execute,Field_Number 0xd
0555 012f | / | Execute Any,Equal
0556 680e |h | Jump_Zero 0x565
0557 e5fe | | Load 0x2,-0x2
0558 e00a | | Load 0x0,0xa
0559 1842 | B | Execute Package,Field_Execute,Field_Number 0x42
055a 6802 |h | Jump_Zero 0x55d
055b 4800 |H | Short_Literal 0x0
055c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
055d e5fe | | Load 0x2,-0x2
055e e00a | | Load 0x0,0xa
055f 1843 | C | Execute Package,Field_Execute,Field_Number 0x43
0560 6802 |h | Jump_Zero 0x563
0561 4801 |H | Short_Literal 0x1
0562 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0563 4803 |H | Short_Literal 0x3
0564 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0565 00d8 | | Load_Top At_Offset_0
0566 e009 | | Load 0x0,0x9
0567 180f | | Execute Package,Field_Execute,Field_Number 0xf
0568 012f | / | Execute Any,Equal
0569 6802 |h | Jump_Zero 0x56c
056a 4802 |H | Short_Literal 0x2
056b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
056c 4803 |H | Short_Literal 0x3
056d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
056e 0000 0000 | | .XXX[0x2]
0570 ; --------------------------------------------------------------------------------------
0570 ; SUBPROGRAM
0570 ; --------------------------------------------------------------------------------------
0570 0595 | | .CONST 0x0595 ; Address of begin
0571 0004 | | .CONST 0x0004 ; Address of exception handler
0572 0009 | | .CONST 0x0009 ; Number of locals
0573 INIT_0570:
0573 00db | | Load_Top At_Offset_3
0574 e002 | | Load 0x0,0x2
0575 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0576 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0577 00d8 | | Load_Top At_Offset_0
0578 e002 | | Load 0x0,0x2
0579 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
057a 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
057b e5ff | | Load 0x2,-0x1
057c 82c2 | | Call 0x1,0xc2
057d e5fe | | Load 0x2,-0x2
057e e5ff | | Load 0x2,-0x1
057f 8276 | v | Call 0x1,0x76
0580 e2b3 | | Load 0x1,0xb3
0581 03f1 | | Declare_Variable Discrete,With_Value
0582 e5fd | | Load 0x2,-0x3
0583 00d9 | | Load_Top At_Offset_1
0584 82da | | Call 0x1,0xda
0585 e5ff | | Load 0x2,-0x1
0586 82c2 | | Call 0x1,0xc2
0587 00d8 | | Load_Top At_Offset_0
0588 e5ff | | Load 0x2,-0x1
0589 82d0 | | Call 0x1,0xd0
058a 01cc | | Execute Vector,Catenate
058b 00da | | Load_Top At_Offset_2
058c e5ff | | Load 0x2,-0x1
058d 8274 | t | Call 0x1,0x74
058e 01cc | | Execute Vector,Catenate
058f 0007 | | Action Break_Optional
0590 00e3 | | Load_Encached Natural_Cache
0591 029f 0a4b | K| Declare_Subprogram INIT_0a48,For_Call
0593 029f 0a63 | c| Declare_Subprogram INIT_0a60,For_Call
0595 BODY_0570:
0595 8408 | | Call 0x2,0x8
0596 e404 | | Load 0x2,0x4
0597 0f02 | | Execute_Immediate Equal,0x2
0598 6802 |h | Jump_Zero 0x59b
0599 8409 | | Call 0x2,0x9
059a 784d |xM | Jump 0x5e8
059b e403 | | Load 0x2,0x3
059c 01dd | | Execute Vector,First
059d e5ff | | Load 0x2,-0x1
059e 8272 | r | Call 0x1,0x72
059f 0273 | s | Execute Discrete,Plus
05a0 e405 | | Load 0x2,0x5
05a1 01db | | Execute Vector,Length
05a2 0272 | r | Execute Discrete,Minus
05a3 0aff | | Execute_Immediate Plus,-0x1
05a4 005b | [ | Store_Top Discrete,At_Offset_3
05a5 00da | | Load_Top At_Offset_2
05a6 e403 | | Load 0x2,0x3
05a7 01dc | | Execute Vector,Last
05a8 027b | { | Execute Discrete,Greater_Equal
05a9 6804 |h | Jump_Zero 0x5ae
05aa e403 | | Load 0x2,0x3
05ab e406 | | Load 0x2,0x6
05ac 01cc | | Execute Vector,Catenate
05ad 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
05ae 00da | | Load_Top At_Offset_2
05af e403 | | Load 0x2,0x3
05b0 01dd | | Execute Vector,First
05b1 027c | | | Execute Discrete,Less
05b2 681f |h | Jump_Zero 0x5d2
05b3 e00b | | Load 0x0,0xb
05b4 180e | | Execute Package,Field_Execute,Field_Number 0xe
05b5 4801 |H | Short_Literal 0x1
05b6 4802 |H | Short_Literal 0x2
05b7 e00c | | Load 0x0,0xc
05b8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05b9 0334 | 4 | Declare_Variable Array,With_Constraint
05ba e402 | | Load 0x2,0x2
05bb e00c | | Load 0x0,0xc
05bc 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05bd e00c | | Load 0x0,0xc
05be 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05bf 0119 | | Execute Any,Check_In_Formal_Type
05c0 4801 |H | Short_Literal 0x1
05c1 00da | | Load_Top At_Offset_2
05c2 01d6 | | Execute Vector,Field_Write
05c3 e5ff | | Load 0x2,-0x1
05c4 8272 | r | Call 0x1,0x72
05c5 e00c | | Load 0x0,0xc
05c6 1812 | | Execute Package,Field_Execute,Field_Number 0x12
05c7 e00c | | Load 0x0,0xc
05c8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05c9 0119 | | Execute Any,Check_In_Formal_Type
05ca 4802 |H | Short_Literal 0x2
05cb 00da | | Load_Top At_Offset_2
05cc 01d6 | | Execute Vector,Field_Write
05cd 601e |` | Indirect_Literal Discrete,0x5ec,{0x00000000, 0x000081b8}
05ce e00d | | Load 0x0,0xd
05cf 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
05d0 00ea | | Load_Encached Null_String_Cache
05d1 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
05d2 00da | | Load_Top At_Offset_2
05d3 e403 | | Load 0x2,0x3
05d4 01d7 | | Execute Vector,Field_Read
05d5 0f5f | _ | Execute_Immediate Equal,0x5f
05d6 6809 |h | Jump_Zero 0x5e0
05d7 e403 | | Load 0x2,0x3
05d8 01dd | | Execute Vector,First
05d9 00db | | Load_Top At_Offset_3
05da 0aff | | Execute_Immediate Plus,-0x1
05db e403 | | Load 0x2,0x3
05dc 01cf | | Execute Vector,Slice_Read
05dd e406 | | Load 0x2,0x6
05de 01cc | | Execute Vector,Catenate
05df 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
05e0 e403 | | Load 0x2,0x3
05e1 01dd | | Execute Vector,First
05e2 00db | | Load_Top At_Offset_3
05e3 e403 | | Load 0x2,0x3
05e4 01cf | | Execute Vector,Slice_Read
05e5 e406 | | Load 0x2,0x6
05e6 01cc | | Execute Vector,Catenate
05e7 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
05e8 0831 | 1 | Execute_Immediate Raise,0x31
05e9 0000 0000 | | .XXX[0x3]
05eb 0000 | |
05ec 0000 0000 | | .LITERAL {0x00000000, 0x000081b8}
05f0 ; --------------------------------------------------------------------------------------
05f0 ; SUBPROGRAM
05f0 ; --------------------------------------------------------------------------------------
05f0 05f3 | | .CONST 0x05f3 ; Address of begin
05f1 0004 | | .CONST 0x0004 ; Address of exception handler
05f2 0001 | | .CONST 0x0001 ; Number of locals
05f3 BODY_05f0:
05f3 INIT_05f0:
05f3 e5fd | | Load 0x2,-0x3
05f4 00db | | Load_Top At_Offset_3
05f5 826f | o | Call 0x1,0x6f
05f6 e5fe | | Load 0x2,-0x2
05f7 01cc | | Execute Vector,Catenate
05f8 82d9 | | Call 0x1,0xd9
05f9 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
05fa 0000 0000 | | .BLANK 0000[0x6]
0600 ; --------------------------------------------------------------------------------------
0600 ; SUBPROGRAM
0600 ; --------------------------------------------------------------------------------------
0600 060b | | .CONST 0x060b ; Address of begin
0601 0004 | | .CONST 0x0004 ; Address of exception handler
0602 0002 | | .CONST 0x0002 ; Number of locals
0603 INIT_0600:
0603 4801 |H | Short_Literal 0x1
0604 e5fe | | Load 0x2,-0x2
0605 e5ff | | Load 0x2,-0x1
0606 82d0 | | Call 0x1,0xd0
0607 e008 | | Load 0x0,0x8
0608 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0609 00e3 | | Load_Encached Natural_Cache
060a 03f1 | | Declare_Variable Discrete,With_Value
060b BODY_0600:
060b 00d8 | | Load_Top At_Offset_0
060c 7004 |p | Jump_Nonzero 0x611
060d e5fe | | Load 0x2,-0x2
060e 0335 | 5 | Declare_Variable Array,Duplicate
060f 00cd | | Action Spare6_Action
0610 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0611 e5fe | | Load 0x2,-0x2
0612 01dd | | Execute Vector,First
0613 00d9 | | Load_Top At_Offset_1
0614 e5ff | | Load 0x2,-0x1
0615 82d0 | | Call 0x1,0xd0
0616 01db | | Execute Vector,Length
0617 0272 | r | Execute Discrete,Minus
0618 00d8 | | Load_Top At_Offset_0
0619 00e2 | | Load_Encached Integer_Cache
061a 0260 | ` | Execute Discrete,In_Type
061b 7001 |p | Jump_Nonzero 0x61d
061c 0801 | | Execute_Immediate Raise,0x1
061d e5fe | | Load 0x2,-0x2
061e 01cf | | Execute Vector,Slice_Read
061f 0335 | 5 | Declare_Variable Array,Duplicate
0620 00cd | | Action Spare6_Action
0621 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0622 0000 0000 | | .BLANK 0000[0x6]
0628 ; --------------------------------------------------------------------------------------
0628 ; SUBPROGRAM
0628 ; --------------------------------------------------------------------------------------
0628 0633 | 3 | .CONST 0x0633 ; Address of begin
0629 0004 | | .CONST 0x0004 ; Address of exception handler
062a 0002 | | .CONST 0x0002 ; Number of locals
062b INIT_0628:
062b 4801 |H | Short_Literal 0x1
062c e5fe | | Load 0x2,-0x2
062d e5ff | | Load 0x2,-0x1
062e 82d0 | | Call 0x1,0xd0
062f e008 | | Load 0x0,0x8
0630 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0631 00e3 | | Load_Encached Natural_Cache
0632 03f1 | | Declare_Variable Discrete,With_Value
0633 BODY_0628:
0633 00d8 | | Load_Top At_Offset_0
0634 7002 |p | Jump_Nonzero 0x637
0635 00ea | | Load_Encached Null_String_Cache
0636 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0637 e5fd | | Load 0x2,-0x3
0638 6812 |h | Jump_Zero 0x64b
0639 00d8 | | Load_Top At_Offset_0
063a e5ff | | Load 0x2,-0x1
063b 82d0 | | Call 0x1,0xd0
063c 01db | | Execute Vector,Length
063d 0272 | r | Execute Discrete,Minus
063e 0a01 | | Execute_Immediate Plus,0x1
063f 00d8 | | Load_Top At_Offset_0
0640 00e2 | | Load_Encached Integer_Cache
0641 0260 | ` | Execute Discrete,In_Type
0642 7001 |p | Jump_Nonzero 0x644
0643 0801 | | Execute_Immediate Raise,0x1
0644 e5fe | | Load 0x2,-0x2
0645 01dc | | Execute Vector,Last
0646 e5fe | | Load 0x2,-0x2
0647 01cf | | Execute Vector,Slice_Read
0648 0335 | 5 | Declare_Variable Array,Duplicate
0649 00cd | | Action Spare6_Action
064a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
064b 00d8 | | Load_Top At_Offset_0
064c 0a01 | | Execute_Immediate Plus,0x1
064d 00d8 | | Load_Top At_Offset_0
064e 00e2 | | Load_Encached Integer_Cache
064f 0260 | ` | Execute Discrete,In_Type
0650 7001 |p | Jump_Nonzero 0x652
0651 0801 | | Execute_Immediate Raise,0x1
0652 e5fe | | Load 0x2,-0x2
0653 01dc | | Execute Vector,Last
0654 e5fe | | Load 0x2,-0x2
0655 01cf | | Execute Vector,Slice_Read
0656 0335 | 5 | Declare_Variable Array,Duplicate
0657 00cd | | Action Spare6_Action
0658 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0659 0000 0000 | | .BLANK 0000[0x7]
0660 ; --------------------------------------------------------------------------------------
0660 ; SUBPROGRAM
0660 ; --------------------------------------------------------------------------------------
0660 0663 | c | .CONST 0x0663 ; Address of begin
0661 0004 | | .CONST 0x0004 ; Address of exception handler
0662 0001 | | .CONST 0x0001 ; Number of locals
0663 BODY_0660:
0663 INIT_0660:
0663 e00e | | Load 0x0,0xe
0664 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0665 0257 | W | Execute Discrete,Raise
0666 0000 0000 | | .XXX[0x2]
0668 ; --------------------------------------------------------------------------------------
0668 ; SUBPROGRAM
0668 ; --------------------------------------------------------------------------------------
0668 066b | k | .CONST 0x066b ; Address of begin
0669 0004 | | .CONST 0x0004 ; Address of exception handler
066a 0001 | | .CONST 0x0001 ; Number of locals
066b BODY_0668:
066b INIT_0668:
066b 00db | | Load_Top At_Offset_3
066c 01db | | Execute Vector,Length
066d 0c01 | | Execute_Immediate Greater_Equal,0x1
066e 6805 |h | Jump_Zero 0x674
066f 00da | | Load_Top At_Offset_2
0670 82d0 | | Call 0x1,0xd0
0671 e5fe | | Load 0x2,-0x2
0672 01cc | | Execute Vector,Catenate
0673 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0674 00ea | | Load_Encached Null_String_Cache
0675 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0676 0000 0000 | | .XXX[0x2]
0678 ; --------------------------------------------------------------------------------------
0678 ; SUBPROGRAM
0678 ; --------------------------------------------------------------------------------------
0678 067b | { | .CONST 0x067b ; Address of begin
0679 0004 | | .CONST 0x0004 ; Address of exception handler
067a 0001 | | .CONST 0x0001 ; Number of locals
067b BODY_0678:
067b INIT_0678:
067b 08e2 | | Execute_Immediate Raise,0xe2
067c 0000 0000 | | .BLANK 0000[0x4]
0680 ; --------------------------------------------------------------------------------------
0680 ; SUBPROGRAM
0680 ; --------------------------------------------------------------------------------------
0680 0683 | | .CONST 0x0683 ; Address of begin
0681 068a | | .CONST 0x068a ; Address of exception handler
0682 0001 | | .CONST 0x0001 ; Number of locals
0683 BODY_0680:
0683 INIT_0680:
0683 00da | | Load_Top At_Offset_2
0684 8263 | c | Call 0x1,0x63
0685 e006 | | Load 0x0,0x6
0686 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0687 e007 | | Load 0x0,0x7
0688 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
0689 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
068a TRAP_0680:
068a e007 | | Load 0x0,0x7
068b 1b17 | | Execute Package,Field_Read,Field_Number 0x17
068c 010f | | Execute Exception,Equal
068d 6802 |h | Jump_Zero 0x690
068e e2bc | | Load 0x1,0xbc
068f 0257 | W | Execute Discrete,Raise
0690 0100 | | Execute Exception,Raise
0691 0000 0000 | | .BLANK 0000[0x7]
0698 ; --------------------------------------------------------------------------------------
0698 ; SUBPROGRAM
0698 ; --------------------------------------------------------------------------------------
0698 069b | | .CONST 0x069b ; Address of begin
0699 0004 | | .CONST 0x0004 ; Address of exception handler
069a 0001 | | .CONST 0x0001 ; Number of locals
069b BODY_0698:
069b INIT_0698:
069b 00da | | Load_Top At_Offset_2
069c 8263 | c | Call 0x1,0x63
069d e006 | | Load 0x0,0x6
069e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
069f e007 | | Load 0x0,0x7
06a0 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
06a1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06a2 0000 0000 | | .BLANK 0000[0x6]
06a8 ; --------------------------------------------------------------------------------------
06a8 ; SUBPROGRAM
06a8 ; --------------------------------------------------------------------------------------
06a8 06ab | | .CONST 0x06ab ; Address of begin
06a9 0004 | | .CONST 0x0004 ; Address of exception handler
06aa 0001 | | .CONST 0x0001 ; Number of locals
06ab BODY_06a8:
06ab INIT_06a8:
06ab 00da | | Load_Top At_Offset_2
06ac 8263 | c | Call 0x1,0x63
06ad e006 | | Load 0x0,0x6
06ae 1811 | | Execute Package,Field_Execute,Field_Number 0x11
06af e007 | | Load 0x0,0x7
06b0 1852 | R | Execute Package,Field_Execute,Field_Number 0x52
06b1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06b2 0000 0000 | | .BLANK 0000[0x6]
06b8 ; --------------------------------------------------------------------------------------
06b8 ; SUBPROGRAM
06b8 ; --------------------------------------------------------------------------------------
06b8 06bb | | .CONST 0x06bb ; Address of begin
06b9 06c2 | | .CONST 0x06c2 ; Address of exception handler
06ba 0001 | | .CONST 0x0001 ; Number of locals
06bb BODY_06b8:
06bb INIT_06b8:
06bb 00da | | Load_Top At_Offset_2
06bc 8263 | c | Call 0x1,0x63
06bd e006 | | Load 0x0,0x6
06be 1811 | | Execute Package,Field_Execute,Field_Number 0x11
06bf e007 | | Load 0x0,0x7
06c0 1853 | S | Execute Package,Field_Execute,Field_Number 0x53
06c1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06c2 TRAP_06b8:
06c2 e007 | | Load 0x0,0x7
06c3 1b17 | | Execute Package,Field_Read,Field_Number 0x17
06c4 010f | | Execute Exception,Equal
06c5 6802 |h | Jump_Zero 0x6c8
06c6 e2bc | | Load 0x1,0xbc
06c7 0257 | W | Execute Discrete,Raise
06c8 0100 | | Execute Exception,Raise
06c9 0000 0000 | | .BLANK 0000[0x7]
06d0 ; --------------------------------------------------------------------------------------
06d0 ; SUBPROGRAM
06d0 ; --------------------------------------------------------------------------------------
06d0 06d3 | | .CONST 0x06d3 ; Address of begin
06d1 0004 | | .CONST 0x0004 ; Address of exception handler
06d2 0001 | | .CONST 0x0001 ; Number of locals
06d3 BODY_06d0:
06d3 INIT_06d0:
06d3 00da | | Load_Top At_Offset_2
06d4 8263 | c | Call 0x1,0x63
06d5 e006 | | Load 0x0,0x6
06d6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
06d7 e007 | | Load 0x0,0x7
06d8 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
06d9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06da 0000 0000 | | .BLANK 0000[0x6]
06e0 ; --------------------------------------------------------------------------------------
06e0 ; SUBPROGRAM
06e0 ; --------------------------------------------------------------------------------------
06e0 06e3 | | .CONST 0x06e3 ; Address of begin
06e1 0004 | | .CONST 0x0004 ; Address of exception handler
06e2 0001 | | .CONST 0x0001 ; Number of locals
06e3 BODY_06e0:
06e3 INIT_06e0:
06e3 00da | | Load_Top At_Offset_2
06e4 8263 | c | Call 0x1,0x63
06e5 e006 | | Load 0x0,0x6
06e6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
06e7 e007 | | Load 0x0,0x7
06e8 1852 | R | Execute Package,Field_Execute,Field_Number 0x52
06e9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06ea 0000 0000 | | .BLANK 0000[0x6]
06f0 ; --------------------------------------------------------------------------------------
06f0 ; SUBPROGRAM
06f0 ; --------------------------------------------------------------------------------------
06f0 06f3 | | .CONST 0x06f3 ; Address of begin
06f1 06fa | | .CONST 0x06fa ; Address of exception handler
06f2 0001 | | .CONST 0x0001 ; Number of locals
06f3 BODY_06f0:
06f3 INIT_06f0:
06f3 00da | | Load_Top At_Offset_2
06f4 8263 | c | Call 0x1,0x63
06f5 e006 | | Load 0x0,0x6
06f6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
06f7 e007 | | Load 0x0,0x7
06f8 1858 | X | Execute Package,Field_Execute,Field_Number 0x58
06f9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06fa TRAP_06f0:
06fa e007 | | Load 0x0,0x7
06fb 1b17 | | Execute Package,Field_Read,Field_Number 0x17
06fc 010f | | Execute Exception,Equal
06fd 6802 |h | Jump_Zero 0x700
06fe e2bc | | Load 0x1,0xbc
06ff 0257 | W | Execute Discrete,Raise
0700 0100 | | Execute Exception,Raise
0701 0000 0000 | | .BLANK 0000[0x7]
0708 ; --------------------------------------------------------------------------------------
0708 ; SUBPROGRAM
0708 ; --------------------------------------------------------------------------------------
0708 070b | | .CONST 0x070b ; Address of begin
0709 0712 | | .CONST 0x0712 ; Address of exception handler
070a 0001 | | .CONST 0x0001 ; Number of locals
070b BODY_0708:
070b INIT_0708:
070b 00da | | Load_Top At_Offset_2
070c 8263 | c | Call 0x1,0x63
070d e006 | | Load 0x0,0x6
070e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
070f e007 | | Load 0x0,0x7
0710 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59
0711 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0712 TRAP_0708:
0712 e007 | | Load 0x0,0x7
0713 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0714 010f | | Execute Exception,Equal
0715 6802 |h | Jump_Zero 0x718
0716 e2bc | | Load 0x1,0xbc
0717 0257 | W | Execute Discrete,Raise
0718 0100 | | Execute Exception,Raise
0719 0000 0000 | | .BLANK 0000[0x7]
0720 ; --------------------------------------------------------------------------------------
0720 ; SUBPROGRAM
0720 ; --------------------------------------------------------------------------------------
0720 0723 | # | .CONST 0x0723 ; Address of begin
0721 072a | * | .CONST 0x072a ; Address of exception handler
0722 0001 | | .CONST 0x0001 ; Number of locals
0723 BODY_0720:
0723 INIT_0720:
0723 00da | | Load_Top At_Offset_2
0724 8263 | c | Call 0x1,0x63
0725 e006 | | Load 0x0,0x6
0726 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0727 e007 | | Load 0x0,0x7
0728 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a
0729 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
072a TRAP_0720:
072a e007 | | Load 0x0,0x7
072b 1b17 | | Execute Package,Field_Read,Field_Number 0x17
072c 010f | | Execute Exception,Equal
072d 6802 |h | Jump_Zero 0x730
072e e2bc | | Load 0x1,0xbc
072f 0257 | W | Execute Discrete,Raise
0730 0100 | | Execute Exception,Raise
0731 0000 0000 | | .BLANK 0000[0x7]
0738 ; --------------------------------------------------------------------------------------
0738 ; SUBPROGRAM
0738 ; --------------------------------------------------------------------------------------
0738 073b | ; | .CONST 0x073b ; Address of begin
0739 0742 | B | .CONST 0x0742 ; Address of exception handler
073a 0001 | | .CONST 0x0001 ; Number of locals
073b BODY_0738:
073b INIT_0738:
073b 00da | | Load_Top At_Offset_2
073c 8263 | c | Call 0x1,0x63
073d e006 | | Load 0x0,0x6
073e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
073f e007 | | Load 0x0,0x7
0740 1843 | C | Execute Package,Field_Execute,Field_Number 0x43
0741 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0742 TRAP_0738:
0742 e007 | | Load 0x0,0x7
0743 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0744 010f | | Execute Exception,Equal
0745 6802 |h | Jump_Zero 0x748
0746 e2bc | | Load 0x1,0xbc
0747 0257 | W | Execute Discrete,Raise
0748 0100 | | Execute Exception,Raise
0749 0000 0000 | | .BLANK 0000[0x7]
0750 ; --------------------------------------------------------------------------------------
0750 ; SUBPROGRAM
0750 ; --------------------------------------------------------------------------------------
0750 0753 | S | .CONST 0x0753 ; Address of begin
0751 075a | Z | .CONST 0x075a ; Address of exception handler
0752 0001 | | .CONST 0x0001 ; Number of locals
0753 BODY_0750:
0753 INIT_0750:
0753 00da | | Load_Top At_Offset_2
0754 8263 | c | Call 0x1,0x63
0755 e006 | | Load 0x0,0x6
0756 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0757 e007 | | Load 0x0,0x7
0758 1856 | V | Execute Package,Field_Execute,Field_Number 0x56
0759 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
075a TRAP_0750:
075a e007 | | Load 0x0,0x7
075b 1b17 | | Execute Package,Field_Read,Field_Number 0x17
075c 010f | | Execute Exception,Equal
075d 6802 |h | Jump_Zero 0x760
075e e2bc | | Load 0x1,0xbc
075f 0257 | W | Execute Discrete,Raise
0760 0100 | | Execute Exception,Raise
0761 0000 0000 | | .BLANK 0000[0x7]
0768 ; --------------------------------------------------------------------------------------
0768 ; SUBPROGRAM
0768 ; --------------------------------------------------------------------------------------
0768 076b | k | .CONST 0x076b ; Address of begin
0769 0772 | r | .CONST 0x0772 ; Address of exception handler
076a 0001 | | .CONST 0x0001 ; Number of locals
076b BODY_0768:
076b INIT_0768:
076b 00da | | Load_Top At_Offset_2
076c 8263 | c | Call 0x1,0x63
076d e006 | | Load 0x0,0x6
076e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
076f e007 | | Load 0x0,0x7
0770 1857 | W | Execute Package,Field_Execute,Field_Number 0x57
0771 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0772 TRAP_0768:
0772 e007 | | Load 0x0,0x7
0773 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0774 010f | | Execute Exception,Equal
0775 6802 |h | Jump_Zero 0x778
0776 e2bc | | Load 0x1,0xbc
0777 0257 | W | Execute Discrete,Raise
0778 0100 | | Execute Exception,Raise
0779 0000 0000 | | .BLANK 0000[0x7]
0780 ; --------------------------------------------------------------------------------------
0780 ; SUBPROGRAM
0780 ; --------------------------------------------------------------------------------------
0780 0783 | | .CONST 0x0783 ; Address of begin
0781 078a | | .CONST 0x078a ; Address of exception handler
0782 0001 | | .CONST 0x0001 ; Number of locals
0783 BODY_0780:
0783 INIT_0780:
0783 00da | | Load_Top At_Offset_2
0784 8263 | c | Call 0x1,0x63
0785 e006 | | Load 0x0,0x6
0786 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0787 e007 | | Load 0x0,0x7
0788 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
0789 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
078a TRAP_0780:
078a e007 | | Load 0x0,0x7
078b 1b17 | | Execute Package,Field_Read,Field_Number 0x17
078c 010f | | Execute Exception,Equal
078d 6802 |h | Jump_Zero 0x790
078e e2bc | | Load 0x1,0xbc
078f 0257 | W | Execute Discrete,Raise
0790 0100 | | Execute Exception,Raise
0791 0000 0000 | | .BLANK 0000[0x7]
0798 ; --------------------------------------------------------------------------------------
0798 ; SUBPROGRAM
0798 ; --------------------------------------------------------------------------------------
0798 079d | | .CONST 0x079d ; Address of begin
0799 07b2 | | .CONST 0x07b2 ; Address of exception handler
079a 0002 | | .CONST 0x0002 ; Number of locals
079b INIT_0798:
079b e007 | | Load 0x0,0x7
079c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
079d BODY_0798:
079d 00db | | Load_Top At_Offset_3
079e 8263 | c | Call 0x1,0x63
079f e006 | | Load 0x0,0x6
07a0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
07a1 e007 | | Load 0x0,0x7
07a2 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
07a3 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
07a4 00d8 | | Load_Top At_Offset_0
07a5 4603 |F | Jump_Case 0x4
07a6 7805 |x | Jump 0x7ac ; case 0x0
07a7 7806 |x | Jump 0x7ae ; case 0x1
07a8 7807 |x | Jump 0x7b0 ; case 0x2
07a9 7800 |x | Jump 0x7aa ; case 0x3
07aa 4803 |H | Short_Literal 0x3
07ab 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07ac 4800 |H | Short_Literal 0x0
07ad 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07ae 4801 |H | Short_Literal 0x1
07af 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07b0 4802 |H | Short_Literal 0x2
07b1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07b2 TRAP_0798:
07b2 e007 | | Load 0x0,0x7
07b3 1b17 | | Execute Package,Field_Read,Field_Number 0x17
07b4 010f | | Execute Exception,Equal
07b5 6802 |h | Jump_Zero 0x7b8
07b6 e2bc | | Load 0x1,0xbc
07b7 0257 | W | Execute Discrete,Raise
07b8 0100 | | Execute Exception,Raise
07b9 0000 0000 | | .BLANK 0000[0x7]
07c0 ; --------------------------------------------------------------------------------------
07c0 ; SUBPROGRAM
07c0 ; --------------------------------------------------------------------------------------
07c0 07c3 | | .CONST 0x07c3 ; Address of begin
07c1 07cf | | .CONST 0x07cf ; Address of exception handler
07c2 0001 | | .CONST 0x0001 ; Number of locals
07c3 BODY_07c0:
07c3 INIT_07c0:
07c3 00da | | Load_Top At_Offset_2
07c4 8263 | c | Call 0x1,0x63
07c5 e006 | | Load 0x0,0x6
07c6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
07c7 e007 | | Load 0x0,0x7
07c8 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
07c9 00d8 | | Load_Top At_Offset_0
07ca 00e4 | | Load_Encached Positive_Cache
07cb 0260 | ` | Execute Discrete,In_Type
07cc 7001 |p | Jump_Nonzero 0x7ce
07cd 0801 | | Execute_Immediate Raise,0x1
07ce 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07cf TRAP_07c0:
07cf e007 | | Load 0x0,0x7
07d0 1b17 | | Execute Package,Field_Read,Field_Number 0x17
07d1 010f | | Execute Exception,Equal
07d2 6802 |h | Jump_Zero 0x7d5
07d3 e2bc | | Load 0x1,0xbc
07d4 0257 | W | Execute Discrete,Raise
07d5 0100 | | Execute Exception,Raise
07d6 0000 0000 | | .XXX[0x2]
07d8 ; --------------------------------------------------------------------------------------
07d8 ; SUBPROGRAM
07d8 ; --------------------------------------------------------------------------------------
07d8 07db | | .CONST 0x07db ; Address of begin
07d9 0004 | | .CONST 0x0004 ; Address of exception handler
07da 0001 | | .CONST 0x0001 ; Number of locals
07db BODY_07d8:
07db INIT_07d8:
07db 00da | | Load_Top At_Offset_2
07dc 82d3 | | Call 0x1,0xd3
07dd 6817 |h | Jump_Zero 0x7f5
07de 00da | | Load_Top At_Offset_2
07df 82b6 | | Call 0x1,0xb6
07e0 4603 |F | Jump_Case 0x4
07e1 7807 |x | Jump 0x7e9 ; case 0x0
07e2 780a |x | Jump 0x7ed ; case 0x1
07e3 780d |x | Jump 0x7f1 ; case 0x2
07e4 7800 |x | Jump 0x7e5 ; case 0x3
07e5 00db | | Load_Top At_Offset_3
07e6 0335 | 5 | Declare_Variable Array,Duplicate
07e7 00cd | | Action Spare6_Action
07e8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
07e9 00db | | Load_Top At_Offset_3
07ea e008 | | Load 0x0,0x8
07eb 1814 | | Execute Package,Field_Execute,Field_Number 0x14
07ec 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
07ed 00db | | Load_Top At_Offset_3
07ee e008 | | Load 0x0,0x8
07ef 1815 | | Execute Package,Field_Execute,Field_Number 0x15
07f0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
07f1 00db | | Load_Top At_Offset_3
07f2 e008 | | Load 0x0,0x8
07f3 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
07f4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
07f5 00db | | Load_Top At_Offset_3
07f6 0335 | 5 | Declare_Variable Array,Duplicate
07f7 00cd | | Action Spare6_Action
07f8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
07f9 0000 0000 | | .BLANK 0000[0x7]
0800 ; --------------------------------------------------------------------------------------
0800 ; SUBPROGRAM
0800 ; --------------------------------------------------------------------------------------
0800 0803 | | .CONST 0x0803 ; Address of begin
0801 0004 | | .CONST 0x0004 ; Address of exception handler
0802 0001 | | .CONST 0x0001 ; Number of locals
0803 BODY_0800:
0803 INIT_0800:
0803 00da | | Load_Top At_Offset_2
0804 827d | } | Call 0x1,0x7d
0805 00db | | Load_Top At_Offset_3
0806 82db | | Call 0x1,0xdb
0807 01cc | | Execute Vector,Catenate
0808 e5fd | | Load 0x2,-0x3
0809 01cc | | Execute Vector,Catenate
080a 00db | | Load_Top At_Offset_3
080b 82db | | Call 0x1,0xdb
080c 01cc | | Execute Vector,Catenate
080d e5fe | | Load 0x2,-0x2
080e 01cc | | Execute Vector,Catenate
080f 00db | | Load_Top At_Offset_3
0810 82db | | Call 0x1,0xdb
0811 01cc | | Execute Vector,Catenate
0812 e5fc | | Load 0x2,-0x4
0813 01cc | | Execute Vector,Catenate
0814 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0815 0000 0000 | | .XXX[0x3]
0817 0000 | |
0818 ; --------------------------------------------------------------------------------------
0818 ; SUBPROGRAM
0818 ; --------------------------------------------------------------------------------------
0818 081b | | .CONST 0x081b ; Address of begin
0819 0004 | | .CONST 0x0004 ; Address of exception handler
081a 0001 | | .CONST 0x0001 ; Number of locals
081b BODY_0818:
081b INIT_0818:
081b 00da | | Load_Top At_Offset_2
081c 8287 | | Call 0x1,0x87
081d 00db | | Load_Top At_Offset_3
081e 82db | | Call 0x1,0xdb
081f 01cc | | Execute Vector,Catenate
0820 e5fe | | Load 0x2,-0x2
0821 01cc | | Execute Vector,Catenate
0822 00db | | Load_Top At_Offset_3
0823 82db | | Call 0x1,0xdb
0824 01cc | | Execute Vector,Catenate
0825 e5fd | | Load 0x2,-0x3
0826 01cc | | Execute Vector,Catenate
0827 00db | | Load_Top At_Offset_3
0828 82db | | Call 0x1,0xdb
0829 01cc | | Execute Vector,Catenate
082a e5fc | | Load 0x2,-0x4
082b 01cc | | Execute Vector,Catenate
082c 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
082d 0000 0000 | | .XXX[0x3]
082f 0000 | |
0830 ; --------------------------------------------------------------------------------------
0830 ; SUBPROGRAM
0830 ; --------------------------------------------------------------------------------------
0830 0833 | 3 | .CONST 0x0833 ; Address of begin
0831 0004 | | .CONST 0x0004 ; Address of exception handler
0832 0001 | | .CONST 0x0001 ; Number of locals
0833 BODY_0830:
0833 INIT_0830:
0833 00da | | Load_Top At_Offset_2
0834 828c | | Call 0x1,0x8c
0835 00db | | Load_Top At_Offset_3
0836 82db | | Call 0x1,0xdb
0837 01cc | | Execute Vector,Catenate
0838 e5fd | | Load 0x2,-0x3
0839 01cc | | Execute Vector,Catenate
083a 00db | | Load_Top At_Offset_3
083b 82db | | Call 0x1,0xdb
083c 01cc | | Execute Vector,Catenate
083d e5fe | | Load 0x2,-0x2
083e 01cc | | Execute Vector,Catenate
083f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0840 ; --------------------------------------------------------------------------------------
0840 ; SUBPROGRAM
0840 ; --------------------------------------------------------------------------------------
0840 0843 | C | .CONST 0x0843 ; Address of begin
0841 0004 | | .CONST 0x0004 ; Address of exception handler
0842 0001 | | .CONST 0x0001 ; Number of locals
0843 BODY_0840:
0843 INIT_0840:
0843 e5fc | | Load 0x2,-0x4
0844 01db | | Execute Vector,Length
0845 6810 |h | Jump_Zero 0x856
0846 00da | | Load_Top At_Offset_2
0847 8290 | | Call 0x1,0x90
0848 00db | | Load_Top At_Offset_3
0849 82d5 | | Call 0x1,0xd5
084a 01cc | | Execute Vector,Catenate
084b e5fc | | Load 0x2,-0x4
084c 01cc | | Execute Vector,Catenate
084d 00db | | Load_Top At_Offset_3
084e 82db | | Call 0x1,0xdb
084f 01cc | | Execute Vector,Catenate
0850 e5fd | | Load 0x2,-0x3
0851 e5fe | | Load 0x2,-0x2
0852 e5ff | | Load 0x2,-0x1
0853 8270 | p | Call 0x1,0x70
0854 01cc | | Execute Vector,Catenate
0855 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0856 00da | | Load_Top At_Offset_2
0857 8290 | | Call 0x1,0x90
0858 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0859 0000 0000 | | .BLANK 0000[0x7]
0860 ; --------------------------------------------------------------------------------------
0860 ; SUBPROGRAM
0860 ; --------------------------------------------------------------------------------------
0860 0863 | c | .CONST 0x0863 ; Address of begin
0861 0004 | | .CONST 0x0004 ; Address of exception handler
0862 0001 | | .CONST 0x0001 ; Number of locals
0863 BODY_0860:
0863 INIT_0860:
0863 4801 |H | Short_Literal 0x1
0864 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0865 0000 0000 | | .XXX[0x3]
0867 0000 | |
0868 ; --------------------------------------------------------------------------------------
0868 ; SUBPROGRAM
0868 ; --------------------------------------------------------------------------------------
0868 086b | k | .CONST 0x086b ; Address of begin
0869 0004 | | .CONST 0x0004 ; Address of exception handler
086a 0001 | | .CONST 0x0001 ; Number of locals
086b BODY_0868:
086b INIT_0868:
086b 4801 |H | Short_Literal 0x1
086c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
086d 0000 0000 | | .XXX[0x3]
086f 0000 | |
0870 ; --------------------------------------------------------------------------------------
0870 ; SUBPROGRAM
0870 ; --------------------------------------------------------------------------------------
0870 0879 | y | .CONST 0x0879 ; Address of begin
0871 087e | ~ | .CONST 0x087e ; Address of exception handler
0872 0002 | | .CONST 0x0002 ; Number of locals
0873 INIT_0870:
0873 e262 | b | Load 0x1,0x62
0874 0322 | " | Declare_Variable Record
0875 00db | | Load_Top At_Offset_3
0876 8267 | g | Call 0x1,0x67
0877 00d9 | | Load_Top At_Offset_1
0878 017d | } | Execute Record,Structure_Write
0879 BODY_0870:
0879 00d8 | | Load_Top At_Offset_0
087a 8263 | c | Call 0x1,0x63
087b e003 | | Load 0x0,0x3
087c 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
087d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
087e TRAP_0870:
087e 010e | | Execute Exception,Is_Constraint_Error
087f 6803 |h | Jump_Zero 0x883
0880 0092 0b3f | ?| Action Push_String_Extended,0xb3f ; "<UNREGISTERED>"
0882 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0883 0100 | | Execute Exception,Raise
0884 0000 0000 | | .BLANK 0000[0x4]
0888 ; --------------------------------------------------------------------------------------
0888 ; SUBPROGRAM
0888 ; --------------------------------------------------------------------------------------
0888 088b | | .CONST 0x088b ; Address of begin
0889 0004 | | .CONST 0x0004 ; Address of exception handler
088a 0001 | | .CONST 0x0001 ; Number of locals
088b BODY_0888:
088b INIT_0888:
088b 00da | | Load_Top At_Offset_2
088c 00e0 | | Load_Encached Standard_Cache
088d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
088e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
088f 0000 | | .XXX[0x1]
0890 ; --------------------------------------------------------------------------------------
0890 ; SUBPROGRAM
0890 ; --------------------------------------------------------------------------------------
0890 08a5 | | .CONST 0x08a5 ; Address of begin
0891 0004 | | .CONST 0x0004 ; Address of exception handler
0892 0003 | | .CONST 0x0003 ; Number of locals
0893 INIT_0890:
0893 e007 | | Load 0x0,0x7
0894 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0895 0337 | 7 | Declare_Variable Array
0896 e00f | | Load 0x0,0xf
0897 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0898 0337 | 7 | Declare_Variable Array
0899 00d8 | | Load_Top At_Offset_0
089a 0335 | 5 | Declare_Variable Array,Duplicate
089b 00cd | | Action Spare6_Action
089c 4808 |H | Short_Literal 0x8
089d 4800 |H | Short_Literal 0x0
089e 4800 |H | Short_Literal 0x0
089f 00d9 | | Load_Top At_Offset_1
08a0 e404 | | Load 0x2,0x4
08a1 01d6 | | Execute Vector,Field_Write
08a2 3ffb |? | Loop_Increasing 0x89e
08a3 00d9 | | Load_Top At_Offset_1
08a4 01d4 | | Execute Vector,Structure_Write
08a5 BODY_0890:
08a5 e5ff | | Load 0x2,-0x1
08a6 8267 | g | Call 0x1,0x67
08a7 8263 | c | Call 0x1,0x63
08a8 e006 | | Load 0x0,0x6
08a9 1811 | | Execute Package,Field_Execute,Field_Number 0x11
08aa e007 | | Load 0x0,0x7
08ab 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
08ac 00da | | Load_Top At_Offset_2
08ad 01d4 | | Execute Vector,Structure_Write
08ae 00cf | | Action Mark_Auxiliary
08af 4804 |H | Short_Literal 0x4
08b0 4800 |H | Short_Literal 0x0
08b1 0007 | | Action Break_Optional
08b2 00d8 | | Load_Top At_Offset_0
08b3 e402 | | Load 0x2,0x2
08b4 01d7 | | Execute Vector,Field_Read
08b5 00d9 | | Load_Top At_Offset_1
08b6 00d8 | | Load_Top At_Offset_0
08b7 e00f | | Load 0x0,0xf
08b8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08b9 0260 | ` | Execute Discrete,In_Type
08ba 7001 |p | Jump_Nonzero 0x8bc
08bb 0801 | | Execute_Immediate Raise,0x1
08bc e403 | | Load 0x2,0x3
08bd 01d6 | | Execute Vector,Field_Write
08be 00c8 | | Action Pop_Auxiliary_Range
08bf 3ff2 |? | Loop_Increasing 0x8b2
08c0 00ce | | Action Pop_Auxiliary
08c1 00d8 | | Load_Top At_Offset_0
08c2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
08c3 0000 0000 | | .BLANK 0000[0x5]
08c8 ; --------------------------------------------------------------------------------------
08c8 ; SUBPROGRAM
08c8 ; --------------------------------------------------------------------------------------
08c8 08cd | | .CONST 0x08cd ; Address of begin
08c9 0004 | | .CONST 0x0004 ; Address of exception handler
08ca 0002 | | .CONST 0x0002 ; Number of locals
08cb INIT_08c8:
08cb e007 | | Load 0x0,0x7
08cc 1b16 | | Execute Package,Field_Read,Field_Number 0x16
08cd BODY_08c8:
08cd 00db | | Load_Top At_Offset_3
08ce 8263 | c | Call 0x1,0x63
08cf e006 | | Load 0x0,0x6
08d0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
08d1 e007 | | Load 0x0,0x7
08d2 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
08d3 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
08d4 00d8 | | Load_Top At_Offset_0
08d5 0f01 | | Execute_Immediate Equal,0x1
08d6 7002 |p | Jump_Nonzero 0x8d9
08d7 4801 |H | Short_Literal 0x1
08d8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
08d9 4800 |H | Short_Literal 0x0
08da 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
08db 0000 0000 | | .BLANK 0000[0x5]
08e0 ; --------------------------------------------------------------------------------------
08e0 ; SUBPROGRAM
08e0 ; --------------------------------------------------------------------------------------
08e0 08e8 | | .CONST 0x08e8 ; Address of begin
08e1 08fc | | .CONST 0x08fc ; Address of exception handler
08e2 0002 | | .CONST 0x0002 ; Number of locals
08e3 INIT_08e0:
08e3 e002 | | Load 0x0,0x2
08e4 1b14 | | Execute Package,Field_Read,Field_Number 0x14
08e5 02ff | | Declare_Variable Variant_Record
08e6 00d8 | | Load_Top At_Offset_0
08e7 1c00 | | Execute_Immediate Run_Utility,0x0
08e8 BODY_08e0:
08e8 e5fd | | Load 0x2,-0x3
08e9 4801 |H | Short_Literal 0x1
08ea e5fd | | Load 0x2,-0x3
08eb 4801 |H | Short_Literal 0x1
08ec e5fe | | Load 0x2,-0x2
08ed e00a | | Load 0x0,0xa
08ee 181c | | Execute Package,Field_Execute,Field_Number 0x1c
08ef e00a | | Load 0x0,0xa
08f0 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
08f1 00d9 | | Load_Top At_Offset_1
08f2 016d | m | Execute Variant_Record,Structure_Write
08f3 600c |` | Indirect_Literal Discrete,0x900,{0x00000000, 0x00004000}
08f4 e010 | | Load 0x0,0x10
08f5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
08f6 0092 0b40 | @| Action Push_String_Extended,0xb40 ; "Ftp.Remote_Machine"
08f8 00db | | Load_Top At_Offset_3
08f9 e011 | | Load 0x0,0x11
08fa 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
08fb 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
08fc TRAP_08e0:
08fc 0007 | | Action Break_Optional
08fd 00ea | | Load_Encached Null_String_Cache
08fe 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
08ff 0000 | | .XXX[0x1]
0900 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0904 0000 0000 | | .BLANK 0000[0x4]
0908 ; --------------------------------------------------------------------------------------
0908 ; SUBPROGRAM
0908 ; --------------------------------------------------------------------------------------
0908 0910 | | .CONST 0x0910 ; Address of begin
0909 0924 | $ | .CONST 0x0924 ; Address of exception handler
090a 0002 | | .CONST 0x0002 ; Number of locals
090b INIT_0908:
090b e002 | | Load 0x0,0x2
090c 1b14 | | Execute Package,Field_Read,Field_Number 0x14
090d 02ff | | Declare_Variable Variant_Record
090e 00d8 | | Load_Top At_Offset_0
090f 1c00 | | Execute_Immediate Run_Utility,0x0
0910 BODY_0908:
0910 e5fd | | Load 0x2,-0x3
0911 4801 |H | Short_Literal 0x1
0912 e5fd | | Load 0x2,-0x3
0913 4801 |H | Short_Literal 0x1
0914 e5fe | | Load 0x2,-0x2
0915 e00a | | Load 0x0,0xa
0916 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0917 e00a | | Load 0x0,0xa
0918 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0919 00d9 | | Load_Top At_Offset_1
091a 016d | m | Execute Variant_Record,Structure_Write
091b 67e4 |g | Indirect_Literal Discrete,0x900,{0x00000000, 0x00004000}
091c e010 | | Load 0x0,0x10
091d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
091e 0092 0b41 | A| Action Push_String_Extended,0xb41 ; "Ftp.Remote_Directory"
0920 00db | | Load_Top At_Offset_3
0921 e011 | | Load 0x0,0x11
0922 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
0923 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0924 TRAP_0908:
0924 0007 | | Action Break_Optional
0925 00ea | | Load_Encached Null_String_Cache
0926 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0927 0000 | | .XXX[0x1]
0928 ; --------------------------------------------------------------------------------------
0928 ; SUBPROGRAM
0928 ; --------------------------------------------------------------------------------------
0928 093a | : | .CONST 0x093a ; Address of begin
0929 0004 | | .CONST 0x0004 ; Address of exception handler
092a 0005 | | .CONST 0x0005 ; Number of locals
092b INIT_0928:
092b e00b | | Load 0x0,0xb
092c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
092d 02c7 | | Declare_Variable Any
092e e00b | | Load 0x0,0xb
092f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0930 a402 | | Store_Unchecked 0x2,0x2
0931 e00d | | Load 0x0,0xd
0932 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0933 e002 | | Load 0x0,0x2
0934 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
0935 0322 | " | Declare_Variable Record
0936 00d8 | | Load_Top At_Offset_0
0937 1c00 | | Execute_Immediate Run_Utility,0x0
0938 029f 0adb | | Declare_Subprogram INIT_0ad8,For_Call
093a BODY_0928:
093a 8405 | | Call 0x2,0x5
093b 00db | | Load_Top At_Offset_3
093c 00da | | Load_Top At_Offset_2
093d e012 | | Load 0x0,0x12
093e 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
093f 00da | | Load_Top At_Offset_2
0940 e402 | | Load 0x2,0x2
0941 00db | | Load_Top At_Offset_3
0942 e013 | | Load 0x0,0x13
0943 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0944 005b | [ | Store_Top Discrete,At_Offset_3
0945 00da | | Load_Top At_Offset_2
0946 6800 |h | Jump_Zero 0x947
0947 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0948 ; --------------------------------------------------------------------------------------
0948 ; SUBPROGRAM
0948 ; --------------------------------------------------------------------------------------
0948 094b | K | .CONST 0x094b ; Address of begin
0949 0004 | | .CONST 0x0004 ; Address of exception handler
094a 0001 | | .CONST 0x0001 ; Number of locals
094b BODY_0948:
094b INIT_0948:
094b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
094c 0000 0000 | | .BLANK 0000[0x4]
0950 ; --------------------------------------------------------------------------------------
0950 ; SUBPROGRAM
0950 ; --------------------------------------------------------------------------------------
0950 0953 | S | .CONST 0x0953 ; Address of begin
0951 0004 | | .CONST 0x0004 ; Address of exception handler
0952 0001 | | .CONST 0x0001 ; Number of locals
0953 BODY_0950:
0953 INIT_0950:
0953 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0954 0000 0000 | | .BLANK 0000[0x4]
0958 ; --------------------------------------------------------------------------------------
0958 ; SUBPROGRAM
0958 ; --------------------------------------------------------------------------------------
0958 095b | [ | .CONST 0x095b ; Address of begin
0959 0004 | | .CONST 0x0004 ; Address of exception handler
095a 0001 | | .CONST 0x0001 ; Number of locals
095b BODY_0958:
095b INIT_0958:
095b 00da | | Load_Top At_Offset_2
095c 829e | | Call 0x1,0x9e
095d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
095e 0000 0000 | | .XXX[0x2]
0960 ; --------------------------------------------------------------------------------------
0960 ; SUBPROGRAM
0960 ; --------------------------------------------------------------------------------------
0960 0963 | c | .CONST 0x0963 ; Address of begin
0961 0004 | | .CONST 0x0004 ; Address of exception handler
0962 0001 | | .CONST 0x0001 ; Number of locals
0963 BODY_0960:
0963 INIT_0960:
0963 00da | | Load_Top At_Offset_2
0964 0f00 | | Execute_Immediate Equal,0x0
0965 00d8 | | Load_Top At_Offset_0
0966 e2c6 | | Load 0x1,0xc6
0967 0260 | ` | Execute Discrete,In_Type
0968 7001 |p | Jump_Nonzero 0x96a
0969 0801 | | Execute_Immediate Raise,0x1
096a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
096b 0000 0000 | | .BLANK 0000[0x5]
0970 ; --------------------------------------------------------------------------------------
0970 ; SUBPROGRAM
0970 ; --------------------------------------------------------------------------------------
0970 0973 | s | .CONST 0x0973 ; Address of begin
0971 0004 | | .CONST 0x0004 ; Address of exception handler
0972 0001 | | .CONST 0x0001 ; Number of locals
0973 BODY_0970:
0973 INIT_0970:
0973 4801 |H | Short_Literal 0x1
0974 0092 0b42 | B| Action Push_String_Extended,0xb42 ; "Assemble"
0976 e5ff | | Load 0x2,-0x1
0977 e008 | | Load 0x0,0x8
0978 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0979 6810 |h | Jump_Zero 0x98a
097a e2c5 | | Load 0x1,0xc5
097b 0337 | 7 | Declare_Variable Array
097c 4801 |H | Short_Literal 0x1
097d 4800 |H | Short_Literal 0x0
097e 00da | | Load_Top At_Offset_2
097f 01d6 | | Execute Vector,Field_Write
0980 4804 |H | Short_Literal 0x4
0981 4801 |H | Short_Literal 0x1
0982 4800 |H | Short_Literal 0x0
0983 00d9 | | Load_Top At_Offset_1
0984 e402 | | Load 0x2,0x2
0985 01d6 | | Execute Vector,Field_Write
0986 3ffb |? | Loop_Increasing 0x982
0987 e2c5 | | Load 0x1,0xc5
0988 01c3 | | Execute Vector,Check_In_Type
0989 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
098a 4801 |H | Short_Literal 0x1
098b 0092 0b43 | C| Action Push_String_Extended,0xb43 ; "Promote"
098d e5ff | | Load 0x2,-0x1
098e e008 | | Load 0x0,0x8
098f 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0990 6814 |h | Jump_Zero 0x9a5
0991 e2c5 | | Load 0x1,0xc5
0992 0337 | 7 | Declare_Variable Array
0993 4801 |H | Short_Literal 0x1
0994 4801 |H | Short_Literal 0x1
0995 00da | | Load_Top At_Offset_2
0996 01d6 | | Execute Vector,Field_Write
0997 4800 |H | Short_Literal 0x0
0998 4800 |H | Short_Literal 0x0
0999 00da | | Load_Top At_Offset_2
099a 01d6 | | Execute Vector,Field_Write
099b 4804 |H | Short_Literal 0x4
099c 4802 |H | Short_Literal 0x2
099d 4800 |H | Short_Literal 0x0
099e 00d9 | | Load_Top At_Offset_1
099f e402 | | Load 0x2,0x2
09a0 01d6 | | Execute Vector,Field_Write
09a1 3ffb |? | Loop_Increasing 0x99d
09a2 e2c5 | | Load 0x1,0xc5
09a3 01c3 | | Execute Vector,Check_In_Type
09a4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
09a5 4801 |H | Short_Literal 0x1
09a6 0092 0b44 | D| Action Push_String_Extended,0xb44 ; "Demote"
09a8 e5ff | | Load 0x2,-0x1
09a9 e008 | | Load 0x0,0x8
09aa 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
09ab 6819 |h | Jump_Zero 0x9c5
09ac e2c5 | | Load 0x1,0xc5
09ad 0337 | 7 | Declare_Variable Array
09ae 4801 |H | Short_Literal 0x1
09af 4802 |H | Short_Literal 0x2
09b0 00da | | Load_Top At_Offset_2
09b1 01d6 | | Execute Vector,Field_Write
09b2 4800 |H | Short_Literal 0x0
09b3 4800 |H | Short_Literal 0x0
09b4 00da | | Load_Top At_Offset_2
09b5 01d6 | | Execute Vector,Field_Write
09b6 4800 |H | Short_Literal 0x0
09b7 4801 |H | Short_Literal 0x1
09b8 00da | | Load_Top At_Offset_2
09b9 01d6 | | Execute Vector,Field_Write
09ba 4800 |H | Short_Literal 0x0
09bb 4803 |H | Short_Literal 0x3
09bc 00da | | Load_Top At_Offset_2
09bd 01d6 | | Execute Vector,Field_Write
09be 4800 |H | Short_Literal 0x0
09bf 4804 |H | Short_Literal 0x4
09c0 00da | | Load_Top At_Offset_2
09c1 01d6 | | Execute Vector,Field_Write
09c2 e2c5 | | Load 0x1,0xc5
09c3 01c3 | | Execute Vector,Check_In_Type
09c4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
09c5 4801 |H | Short_Literal 0x1
09c6 0092 0b45 | E| Action Push_String_Extended,0xb45 ; "Bind"
09c8 e5ff | | Load 0x2,-0x1
09c9 e008 | | Load 0x0,0x8
09ca 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
09cb 6814 |h | Jump_Zero 0x9e0
09cc e2c5 | | Load 0x1,0xc5
09cd 0337 | 7 | Declare_Variable Array
09ce 4801 |H | Short_Literal 0x1
09cf 4803 |H | Short_Literal 0x3
09d0 00da | | Load_Top At_Offset_2
09d1 01d6 | | Execute Vector,Field_Write
09d2 4802 |H | Short_Literal 0x2
09d3 4800 |H | Short_Literal 0x0
09d4 4800 |H | Short_Literal 0x0
09d5 00d9 | | Load_Top At_Offset_1
09d6 e402 | | Load 0x2,0x2
09d7 01d6 | | Execute Vector,Field_Write
09d8 3ffb |? | Loop_Increasing 0x9d4
09d9 4800 |H | Short_Literal 0x0
09da 4804 |H | Short_Literal 0x4
09db 00da | | Load_Top At_Offset_2
09dc 01d6 | | Execute Vector,Field_Write
09dd e2c5 | | Load 0x1,0xc5
09de 01c3 | | Execute Vector,Check_In_Type
09df 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
09e0 4801 |H | Short_Literal 0x1
09e1 0092 0b46 | F| Action Push_String_Extended,0xb46 ; "Link"
09e3 e5ff | | Load 0x2,-0x1
09e4 e008 | | Load 0x0,0x8
09e5 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
09e6 6810 |h | Jump_Zero 0x9f7
09e7 e2c5 | | Load 0x1,0xc5
09e8 0337 | 7 | Declare_Variable Array
09e9 4801 |H | Short_Literal 0x1
09ea 4804 |H | Short_Literal 0x4
09eb 00da | | Load_Top At_Offset_2
09ec 01d6 | | Execute Vector,Field_Write
09ed 4803 |H | Short_Literal 0x3
09ee 4800 |H | Short_Literal 0x0
09ef 4800 |H | Short_Literal 0x0
09f0 00d9 | | Load_Top At_Offset_1
09f1 e402 | | Load 0x2,0x2
09f2 01d6 | | Execute Vector,Field_Write
09f3 3ffb |? | Loop_Increasing 0x9ef
09f4 e2c5 | | Load 0x1,0xc5
09f5 01c3 | | Execute Vector,Check_In_Type
09f6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
09f7 0831 | 1 | Execute_Immediate Raise,0x31
09f8 ; --------------------------------------------------------------------------------------
09f8 ; SUBPROGRAM
09f8 ; --------------------------------------------------------------------------------------
09f8 09fd | | .CONST 0x09fd ; Address of begin
09f9 0004 | | .CONST 0x0004 ; Address of exception handler
09fa 0002 | | .CONST 0x0002 ; Number of locals
09fb INIT_09f8:
09fb 029f 0b03 | | Declare_Subprogram INIT_0b00,For_Call
09fd BODY_09f8:
09fd 00db | | Load_Top At_Offset_3
09fe 01dd | | Execute Vector,First
09ff 0f01 | | Execute_Immediate Equal,0x1
0a00 6802 |h | Jump_Zero 0xa03
0a01 00db | | Load_Top At_Offset_3
0a02 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0a03 8402 | | Call 0x2,0x2
0a04 0831 | 1 | Execute_Immediate Raise,0x31
0a05 0000 0000 | | .XXX[0x3]
0a07 0000 | |
0a08 ; --------------------------------------------------------------------------------------
0a08 ; SUBPROGRAM
0a08 ; --------------------------------------------------------------------------------------
0a08 0a0b | | .CONST 0x0a0b ; Address of begin
0a09 0004 | | .CONST 0x0004 ; Address of exception handler
0a0a 0001 | | .CONST 0x0001 ; Number of locals
0a0b BODY_0a08:
0a0b INIT_0a08:
0a0b 00da | | Load_Top At_Offset_2
0a0c 4603 |F | Jump_Case 0x4
0a0d 7805 |x | Jump 0xa13 ; case 0x0
0a0e 7811 |x | Jump 0xa20 ; case 0x1
0a0f 781d |x | Jump 0xa2d ; case 0x2
0a10 7800 |x | Jump 0xa11 ; case 0x3
0a11 00ea | | Load_Encached Null_String_Cache
0a12 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0a13 0092 0b47 | G| Action Push_String_Extended,0xb47 ; "_"
0a15 4820 |H | Short_Literal 0x20
0a16 4800 |H | Short_Literal 0x0
0a17 480a |H | Short_Literal 0xa
0a18 e5fe | | Load 0x2,-0x2
0a19 e008 | | Load 0x0,0x8
0a1a 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0a1b 01cc | | Execute Vector,Catenate
0a1c 0092 0b48 | H| Action Push_String_Extended,0xb48 ; "_s"
0a1e 01cc | | Execute Vector,Catenate
0a1f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0a20 0092 0b47 | G| Action Push_String_Extended,0xb47 ; "_"
0a22 4820 |H | Short_Literal 0x20
0a23 4800 |H | Short_Literal 0x0
0a24 480a |H | Short_Literal 0xa
0a25 e5fe | | Load 0x2,-0x2
0a26 e008 | | Load 0x0,0x8
0a27 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0a28 01cc | | Execute Vector,Catenate
0a29 0092 0b49 | I| Action Push_String_Extended,0xb49 ; "_b"
0a2b 01cc | | Execute Vector,Catenate
0a2c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0a2d 0092 0b47 | G| Action Push_String_Extended,0xb47 ; "_"
0a2f 4820 |H | Short_Literal 0x20
0a30 4800 |H | Short_Literal 0x0
0a31 480a |H | Short_Literal 0xa
0a32 e5fe | | Load 0x2,-0x2
0a33 e008 | | Load 0x0,0x8
0a34 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0a35 01cc | | Execute Vector,Catenate
0a36 0092 0b4a | J| Action Push_String_Extended,0xb4a ; "_t"
0a38 01cc | | Execute Vector,Catenate
0a39 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0a3a 0000 0000 | | .BLANK 0000[0x6]
0a40 ; --------------------------------------------------------------------------------------
0a40 ; SUBPROGRAM
0a40 ; --------------------------------------------------------------------------------------
0a40 0a43 | C | .CONST 0x0a43 ; Address of begin
0a41 0004 | | .CONST 0x0004 ; Address of exception handler
0a42 0001 | | .CONST 0x0001 ; Number of locals
0a43 BODY_0a40:
0a43 INIT_0a40:
0a43 0092 0b4b | K| Action Push_String_Extended,0xb4b ; " "
0a45 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0a46 0000 0000 | | .XXX[0x2]
0a48 ; --------------------------------------------------------------------------------------
0a48 ; SUBPROGRAM
0a48 ; --------------------------------------------------------------------------------------
0a48 0a52 | R | .CONST 0x0a52 ; Address of begin
0a49 0004 | | .CONST 0x0004 ; Address of exception handler
0a4a 0002 | | .CONST 0x0002 ; Number of locals
0a4b INIT_0a48:
0a4b e5ff | | Load 0x2,-0x1
0a4c 8263 | c | Call 0x1,0x63
0a4d e5fd | | Load 0x2,-0x3
0a4e e404 | | Load 0x2,0x4
0a4f e5fe | | Load 0x2,-0x2
0a50 e014 | | Load 0x0,0x14
0a51 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0a52 BODY_0a48:
0a52 00d8 | | Load_Top At_Offset_0
0a53 01db | | Execute Vector,Length
0a54 6803 |h | Jump_Zero 0xa58
0a55 00d8 | | Load_Top At_Offset_0
0a56 00cb | | Action Pop_Block_With_Result
0a57 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0a58 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0a59 0000 0000 | | .BLANK 0000[0x7]
0a60 ; --------------------------------------------------------------------------------------
0a60 ; SUBPROGRAM
0a60 ; --------------------------------------------------------------------------------------
0a60 0a7d | } | .CONST 0x0a7d ; Address of begin
0a61 0004 | | .CONST 0x0004 ; Address of exception handler
0a62 0003 | | .CONST 0x0003 ; Number of locals
0a63 INIT_0a60:
0a63 e00b | | Load 0x0,0xb
0a64 180e | | Execute Package,Field_Execute,Field_Number 0xe
0a65 4800 |H | Short_Literal 0x0
0a66 e402 | | Load 0x2,0x2
0a67 01dd | | Execute Vector,First
0a68 e402 | | Load 0x2,0x2
0a69 01dc | | Execute Vector,Last
0a6a 0af4 | | Execute_Immediate Plus,-0xc
0a6b 00d8 | | Load_Top At_Offset_0
0a6c 00e2 | | Load_Encached Integer_Cache
0a6d 0260 | ` | Execute Discrete,In_Type
0a6e 7001 |p | Jump_Nonzero 0xa70
0a6f 0801 | | Execute_Immediate Raise,0x1
0a70 e402 | | Load 0x2,0x2
0a71 01cf | | Execute Vector,Slice_Read
0a72 e00a | | Load 0x0,0xa
0a73 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0a74 e002 | | Load 0x0,0x2
0a75 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0a76 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0a77 00d8 | | Load_Top At_Offset_0
0a78 e002 | | Load 0x0,0x2
0a79 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0a7a 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
0a7b e5ff | | Load 0x2,-0x1
0a7c 82c2 | | Call 0x1,0xc2
0a7d BODY_0a60:
0a7d 00d8 | | Load_Top At_Offset_0
0a7e 01dd | | Execute Vector,First
0a7f e5ff | | Load 0x2,-0x1
0a80 8272 | r | Call 0x1,0x72
0a81 0273 | s | Execute Discrete,Plus
0a82 e405 | | Load 0x2,0x5
0a83 01db | | Execute Vector,Length
0a84 0272 | r | Execute Discrete,Minus
0a85 0aff | | Execute_Immediate Plus,-0x1
0a86 c407 | | Store 0x2,0x7
0a87 e407 | | Load 0x2,0x7
0a88 00d9 | | Load_Top At_Offset_1
0a89 01dc | | Execute Vector,Last
0a8a 027b | { | Execute Discrete,Greater_Equal
0a8b 6805 |h | Jump_Zero 0xa91
0a8c 00d8 | | Load_Top At_Offset_0
0a8d e406 | | Load 0x2,0x6
0a8e 01cc | | Execute Vector,Catenate
0a8f 00cb | | Action Pop_Block_With_Result
0a90 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0a91 e407 | | Load 0x2,0x7
0a92 00d9 | | Load_Top At_Offset_1
0a93 01dd | | Execute Vector,First
0a94 027c | | | Execute Discrete,Less
0a95 6820 |h | Jump_Zero 0xab6
0a96 e00b | | Load 0x0,0xb
0a97 180e | | Execute Package,Field_Execute,Field_Number 0xe
0a98 4801 |H | Short_Literal 0x1
0a99 4802 |H | Short_Literal 0x2
0a9a e00c | | Load 0x0,0xc
0a9b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0a9c 0334 | 4 | Declare_Variable Array,With_Constraint
0a9d e402 | | Load 0x2,0x2
0a9e e00c | | Load 0x0,0xc
0a9f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0aa0 e00c | | Load 0x0,0xc
0aa1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0aa2 0119 | | Execute Any,Check_In_Formal_Type
0aa3 4801 |H | Short_Literal 0x1
0aa4 00da | | Load_Top At_Offset_2
0aa5 01d6 | | Execute Vector,Field_Write
0aa6 e5ff | | Load 0x2,-0x1
0aa7 8272 | r | Call 0x1,0x72
0aa8 e00c | | Load 0x0,0xc
0aa9 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0aaa e00c | | Load 0x0,0xc
0aab 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0aac 0119 | | Execute Any,Check_In_Formal_Type
0aad 4802 |H | Short_Literal 0x2
0aae 00da | | Load_Top At_Offset_2
0aaf 01d6 | | Execute Vector,Field_Write
0ab0 601f |` | Indirect_Literal Discrete,0xad0,{0x00000000, 0x000081b8}
0ab1 e00d | | Load 0x0,0xd
0ab2 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0ab3 00ea | | Load_Encached Null_String_Cache
0ab4 00cb | | Action Pop_Block_With_Result
0ab5 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0ab6 e407 | | Load 0x2,0x7
0ab7 00d9 | | Load_Top At_Offset_1
0ab8 01d7 | | Execute Vector,Field_Read
0ab9 0f5f | _ | Execute_Immediate Equal,0x5f
0aba 680a |h | Jump_Zero 0xac5
0abb 00d8 | | Load_Top At_Offset_0
0abc 01dd | | Execute Vector,First
0abd e407 | | Load 0x2,0x7
0abe 0aff | | Execute_Immediate Plus,-0x1
0abf 00da | | Load_Top At_Offset_2
0ac0 01cf | | Execute Vector,Slice_Read
0ac1 e406 | | Load 0x2,0x6
0ac2 01cc | | Execute Vector,Catenate
0ac3 00cb | | Action Pop_Block_With_Result
0ac4 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0ac5 00d8 | | Load_Top At_Offset_0
0ac6 01dd | | Execute Vector,First
0ac7 e407 | | Load 0x2,0x7
0ac8 00da | | Load_Top At_Offset_2
0ac9 01cf | | Execute Vector,Slice_Read
0aca e406 | | Load 0x2,0x6
0acb 01cc | | Execute Vector,Catenate
0acc 00cb | | Action Pop_Block_With_Result
0acd 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0ace 0000 0000 | | .XXX[0x2]
0ad0 0000 0000 | | .LITERAL {0x00000000, 0x000081b8}
0ad4 0000 0000 | | .BLANK 0000[0x4]
0ad8 ; --------------------------------------------------------------------------------------
0ad8 ; SUBPROGRAM
0ad8 ; --------------------------------------------------------------------------------------
0ad8 0adb | | .CONST 0x0adb ; Address of begin
0ad9 0ae1 | | .CONST 0x0ae1 ; Address of exception handler
0ada 0001 | | .CONST 0x0001 ; Number of locals
0adb BODY_0ad8:
0adb INIT_0ad8:
0adb e5ff | | Load 0x2,-0x1
0adc e003 | | Load 0x0,0x3
0add 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0ade e404 | | Load 0x2,0x4
0adf 017d | } | Execute Record,Structure_Write
0ae0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0ae1 TRAP_0ad8:
0ae1 010e | | Execute Exception,Is_Constraint_Error
0ae2 6814 |h | Jump_Zero 0xaf7
0ae3 e402 | | Load 0x2,0x2
0ae4 4801 |H | Short_Literal 0x1
0ae5 4801 |H | Short_Literal 0x1
0ae6 e00c | | Load 0x0,0xc
0ae7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0ae8 0334 | 4 | Declare_Variable Array,With_Constraint
0ae9 e5ff | | Load 0x2,-0x1
0aea e00c | | Load 0x0,0xc
0aeb 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0aec e00c | | Load 0x0,0xc
0aed 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0aee 0119 | | Execute Any,Check_In_Formal_Type
0aef 4801 |H | Short_Literal 0x1
0af0 00da | | Load_Top At_Offset_2
0af1 01d6 | | Execute Vector,Field_Write
0af2 6005 |` | Indirect_Literal Discrete,0xaf8,{0x00000000, 0x00008181}
0af3 e00d | | Load 0x0,0xd
0af4 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0af5 00cc | | Action Pop_Block
0af6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0af7 0100 | | Execute Exception,Raise
0af8 0000 0000 | | .LITERAL {0x00000000, 0x00008181}
0afc 0000 0000 | | .BLANK 0000[0x4]
0b00 ; --------------------------------------------------------------------------------------
0b00 ; SUBPROGRAM
0b00 ; --------------------------------------------------------------------------------------
0b00 0b11 | | .CONST 0x0b11 ; Address of begin
0b01 0004 | | .CONST 0x0004 ; Address of exception handler
0b02 0002 | | .CONST 0x0002 ; Number of locals
0b03 INIT_0b00:
0b03 4801 |H | Short_Literal 0x1
0b04 e5ff | | Load 0x2,-0x1
0b05 01db | | Execute Vector,Length
0b06 00d8 | | Load_Top At_Offset_0
0b07 00e2 | | Load_Encached Integer_Cache
0b08 0260 | ` | Execute Discrete,In_Type
0b09 7001 |p | Jump_Nonzero 0xb0b
0b0a 0801 | | Execute_Immediate Raise,0x1
0b0b 00e9 | | Load_Encached String_Cache
0b0c 035b | [ | Declare_Type Array,Constrained
0b0d 0337 | 7 | Declare_Variable Array
0b0e e5ff | | Load 0x2,-0x1
0b0f 00d9 | | Load_Top At_Offset_1
0b10 01d4 | | Execute Vector,Structure_Write
0b11 BODY_0b00:
0b11 00d8 | | Load_Top At_Offset_0
0b12 00e9 | | Load_Encached String_Cache
0b13 01c6 | | Execute Vector,Convert_To_Formal
0b14 00cb | | Action Pop_Block_With_Result
0b15 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0b16 0000 0000 | | .XXX[0x2]
0b18 ; --------------------------------------------------------------------------------------
0b18 ; SUBPROGRAM
0b18 ; --------------------------------------------------------------------------------------
0b18 0b1b | | .CONST 0x0b1b ; Address of begin
0b19 0004 | | .CONST 0x0004 ; Address of exception handler
0b1a 0001 | | .CONST 0x0001 ; Number of locals
0b1b BODY_0b18:
0b1b INIT_0b18:
0b1b 4608 |F | Jump_Case 0x9
0b1c 7808 |x | Jump 0xb25 ; case 0x0
0b1d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0b1e 780a |x | Jump 0xb29 ; case 0x2
0b1f 7809 |x | Jump 0xb29 ; case 0x3
0b20 7808 |x | Jump 0xb29 ; case 0x4
0b21 7807 |x | Jump 0xb29 ; case 0x5
0b22 7806 |x | Jump 0xb29 ; case 0x6
0b23 7805 |x | Jump 0xb29 ; case 0x7
0b24 7804 |x | Jump 0xb29 ; case 0x8
0b25 00da | | Load_Top At_Offset_2
0b26 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0b27 1c00 | | Execute_Immediate Run_Utility,0x0
0b28 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0b29 0869 | i | Execute_Immediate Raise,0x69
0b2a ; --------------------------------------------------------------------------------------
0b2a ; STRING TABLE
0b2a ; --------------------------------------------------------------------------------------
0b2a 0046 | F | .STRTAB 0x0046->0x0b4d ; "UPPER"
0b2b 0049 | I | .STRTAB 0x0049->0x0b4f ; "LOWER"
0b2c 004c | L | .STRTAB 0x004c->0x0b52 ; "CAPITALIZE"
0b2d 0054 | T | .STRTAB 0x0054->0x0b57 ; "DONT_CARE"
0b2e 005b | [ | .STRTAB 0x005b->0x0b5b ; "ASSEMBLE"
0b2f 0061 | a | .STRTAB 0x0061->0x0b5f ; "PROMOTE"
0b30 0066 | f | .STRTAB 0x0066->0x0b63 ; "DEMOTE"
0b31 006a | j | .STRTAB 0x006a->0x0b66 ; "BIND"
0b32 006c | l | .STRTAB 0x006c->0x0b68 ; "LINK"
0b33 006e | n | .STRTAB 0x006e->0x0b6a ; "ON_NORMAL"
0b34 0075 | u | .STRTAB 0x0075->0x0b6e ; "ON_ERROR"
0b35 007b | { | .STRTAB 0x007b->0x0b72 ; "ON_WARNING"
0b36 0083 | | .STRTAB 0x0083->0x0b77 ; "ALWAYS"
0b37 0087 | | .STRTAB 0x0087->0x0b7a ; "FTP"
0b38 0088 | | .STRTAB 0x0088->0x0b7c ; "DTIA"
0b39 008a | | .STRTAB 0x008a->0x0b7e ; "TEXT"
0b3a 008c | | .STRTAB 0x008c->0x0b80 ; "BINARY"
0b3b 0090 | | .STRTAB 0x0090->0x0b83 ; "ADA_SPEC"
0b3c 0096 | | .STRTAB 0x0096->0x0b87 ; "ADA_BODY"
0b3d 009c | | .STRTAB 0x009c->0x0b8b ; "SECONDARY"
0b3e 00a3 | | .STRTAB 0x00a3->0x0b8f ; "UNKNOWN"
0b3f 00a8 | | .STRTAB 0x00a8->0x0b93 ; "<UNREGISTERED>"
0b40 00b4 | | .STRTAB 0x00b4->0x0b9a ; "Ftp.Remote_Machine"
0b41 00c4 | | .STRTAB 0x00c4->0x0ba3 ; "Ftp.Remote_Directory"
0b42 00d6 | | .STRTAB 0x00d6->0x0bad ; "Assemble"
0b43 00dc | | .STRTAB 0x00dc->0x0bb1 ; "Promote"
0b44 00e1 | | .STRTAB 0x00e1->0x0bb4 ; "Demote"
0b45 00e5 | | .STRTAB 0x00e5->0x0bb7 ; "Bind"
0b46 00e7 | | .STRTAB 0x00e7->0x0bb9 ; "Link"
0b47 00e9 | | .STRTAB 0x00e9->0x0bbb ; "_"
0b48 00e8 | | .STRTAB 0x00e8->0x0bbc ; "_s"
0b49 00e8 | | .STRTAB 0x00e8->0x0bbd ; "_b"
0b4a 00e8 | | .STRTAB 0x00e8->0x0bbe ; "_t"
0b4b 00e8 | | .STRTAB 0x00e8->0x0bbf ; " "
0b4c 00e7 | | .STREND 0x00e7->0x0bbf
0b4d 5550 5045 |UPPE| .STRTAB_STRINGS
0bc0 ; --------------------------------------------------------------------------------------
0bc0 ; Debug Table
0bc0 ; --------------------------------------------------------------------------------------
0bc0 0004 000c | | .DEBUG4 0x0004,0x000c,0x2e00,0x0000,0x0001,0x0000
0bc6 0000 0000 | | .BLANK 0000[0x3a]