|
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: 7168 (0x1c00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_29d0d7
└─⟦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 0c98 | | .CONST 0x0c98 ; 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 01b0 | | .CONST 0x01b0 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 005a | Z | .CONST 0x005a ; Number of locals
000b INIT_0008:
000b 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated
000d 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated
000f 4800 |H | Short_Literal 0x0
0010 4802 |H | Short_Literal 0x2
0011 029f 01eb | | Declare_Subprogram INIT_01e8,For_Call
0013 03fe | | Declare_Type Discrete,Defined,Visible
0014 4800 |H | Short_Literal 0x0
0015 4801 |H | Short_Literal 0x1
0016 029f 0213 | | Declare_Subprogram INIT_0210,For_Call
0018 03fe | | Declare_Type Discrete,Defined,Visible
0019 481e |H | Short_Literal 0x1e
001a e002 | | Load 0x0,0x2
001b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
001c 1c07 | | Execute_Immediate Run_Utility,0x7
001d 0129 | ) | Execute Any,Make_Visible
001e 00e2 | | Load_Encached Integer_Cache
001f 00e1 | | Load_Encached Boolean_Cache
0020 00e1 | | Load_Encached Boolean_Cache
0021 e003 | | Load 0x0,0x3
0022 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0023 00e2 | | Load_Encached Integer_Cache
0024 029f 0ae3 | | Declare_Subprogram INIT_0ae0,For_Call
0026 4806 |H | Short_Literal 0x6
0027 032e | . | Declare_Type Record,Defined,Visible
0028 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated
002a 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated
002c 4801 |H | Short_Literal 0x1
002d 4840 |H@ | Short_Literal 0x40
002e e004 | | Load 0x0,0x4
002f 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0030 035c | \ | Declare_Type Array,Constrained,Visible
0031 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated
0033 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated
0035 4801 |H | Short_Literal 0x1
0036 61a5 |a | Indirect_Literal Discrete,0x1dc,{0x00000000, 0x00000400}
0037 e004 | | Load 0x0,0x4
0038 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0039 035c | \ | Declare_Type Array,Constrained,Visible
003a 029a 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call,Visible,Unelaborated
003c 029a 03bb | | Declare_Subprogram INIT_03b8,For_Outer_Call,Visible,Unelaborated
003e 029a 0423 | #| Declare_Subprogram INIT_0420,For_Outer_Call,Visible,Unelaborated
0040 029a 042b | +| Declare_Subprogram INIT_0428,For_Outer_Call,Visible,Unelaborated
0042 029a 043b | ;| Declare_Subprogram INIT_0438,For_Outer_Call,Visible,Unelaborated
0044 029a 044b | K| Declare_Subprogram INIT_0448,For_Outer_Call,Visible,Unelaborated
0046 029a 04b3 | | Declare_Subprogram INIT_04b0,For_Outer_Call,Visible,Unelaborated
0048 029a 050b | | Declare_Subprogram INIT_0508,For_Outer_Call,Visible,Unelaborated
004a 029a 051b | | Declare_Subprogram INIT_0518,For_Outer_Call,Visible,Unelaborated
004c 029a 0523 | #| Declare_Subprogram INIT_0520,For_Outer_Call,Visible,Unelaborated
004e 029a 0533 | 3| Declare_Subprogram INIT_0530,For_Outer_Call,Visible,Unelaborated
0050 029a 062b | +| Declare_Subprogram INIT_0628,For_Outer_Call,Visible,Unelaborated
0052 029a 065b | [| Declare_Subprogram INIT_0658,For_Outer_Call,Visible,Unelaborated
0054 029a 06b3 | | Declare_Subprogram INIT_06b0,For_Outer_Call,Visible,Unelaborated
0056 029a 078b | | Declare_Subprogram INIT_0788,For_Outer_Call,Visible,Unelaborated
0058 029a 079b | | Declare_Subprogram INIT_0798,For_Outer_Call,Visible,Unelaborated
005a 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible
005b 00bf | | Action Accept_Activation
005c e005 | | Load 0x0,0x5
005d 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
005e e006 | | Load 0x0,0x6
005f e20f | | Load 0x1,0xf
0060 e211 | | Load 0x1,0x11
0061 00e1 | | Load_Encached Boolean_Cache
0062 00e1 | | Load_Encached Boolean_Cache
0063 e217 | | Load 0x1,0x17
0064 00e2 | | Load_Encached Integer_Cache
0065 00e2 | | Load_Encached Integer_Cache
0066 029f 07e3 | | Declare_Subprogram INIT_07e0,For_Call
0068 4809 |H | Short_Literal 0x9
0069 032d | - | Declare_Type Record,Defined
006a 00d8 | | Load_Top At_Offset_0
006b 02a0 | | Declare_Subprogram Null_Subprogram
006c 00db | | Load_Top At_Offset_3
006d 03a3 | | Complete_Type Heap_Access,By_Defining
006e e211 | | Load 0x1,0x11
006f 0322 | " | Declare_Variable Record
0070 00d8 | | Load_Top At_Offset_0
0071 1c01 | | Execute_Immediate Run_Utility,0x1
0072 481e |H | Short_Literal 0x1e
0073 00ea | | Load_Encached Null_String_Cache
0074 e002 | | Load 0x0,0x2
0075 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0076 00d9 | | Load_Top At_Offset_1
0077 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0078 4800 |H | Short_Literal 0x0
0079 00d9 | | Load_Top At_Offset_1
007a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
007b 4800 |H | Short_Literal 0x0
007c 00d9 | | Load_Top At_Offset_1
007d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
007e 4800 |H | Short_Literal 0x0
007f 00d9 | | Load_Top At_Offset_1
0080 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0081 4800 |H | Short_Literal 0x0
0082 4801 |H | Short_Literal 0x1
0083 4801 |H | Short_Literal 0x1
0084 6153 |aS | Indirect_Literal Discrete,0x1d8,{0x00000000, 0x0000076d}
0085 e003 | | Load 0x0,0x3
0086 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0087 e211 | | Load 0x1,0x11
0088 3004 |0 | Execute Record,Field_Type,Field_Number 0x4
0089 0119 | | Execute Any,Check_In_Formal_Type
008a 00d9 | | Load_Top At_Offset_1
008b 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
008c 4800 |H | Short_Literal 0x0
008d 00d9 | | Load_Top At_Offset_1
008e 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
008f e20f | | Load 0x1,0xf
0090 0266 | f | Execute Discrete,Bounds
0091 e007 | | Load 0x0,0x7
0092 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0093 02a0 | | Declare_Subprogram Null_Subprogram
0094 4801 |H | Short_Literal 0x1
0095 035d | ] | Declare_Type Array,Defined
0096 00d8 | | Load_Top At_Offset_0
0097 0337 | 7 | Declare_Variable Array
0098 00d8 | | Load_Top At_Offset_0
0099 0335 | 5 | Declare_Variable Array,Duplicate
009a 00cd | | Action Spare6_Action
009b 4800 |H | Short_Literal 0x0
009c 4800 |H | Short_Literal 0x0
009d 00da | | Load_Top At_Offset_2
009e 01d6 | | Execute Vector,Field_Write
009f 4801 |H | Short_Literal 0x1
00a0 4801 |H | Short_Literal 0x1
00a1 00da | | Load_Top At_Offset_2
00a2 01d6 | | Execute Vector,Field_Write
00a3 4801 |H | Short_Literal 0x1
00a4 4802 |H | Short_Literal 0x2
00a5 00da | | Load_Top At_Offset_2
00a6 01d6 | | Execute Vector,Field_Write
00a7 00d9 | | Load_Top At_Offset_1
00a8 01d4 | | Execute Vector,Structure_Write
00a9 e210 | | Load 0x1,0x10
00aa 0266 | f | Execute Discrete,Bounds
00ab e008 | | Load 0x0,0x8
00ac 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00ad 02a0 | | Declare_Subprogram Null_Subprogram
00ae 4801 |H | Short_Literal 0x1
00af 035d | ] | Declare_Type Array,Defined
00b0 00d8 | | Load_Top At_Offset_0
00b1 0337 | 7 | Declare_Variable Array
00b2 00d8 | | Load_Top At_Offset_0
00b3 0335 | 5 | Declare_Variable Array,Duplicate
00b4 00cd | | Action Spare6_Action
00b5 4800 |H | Short_Literal 0x0
00b6 4800 |H | Short_Literal 0x0
00b7 00da | | Load_Top At_Offset_2
00b8 01d6 | | Execute Vector,Field_Write
00b9 4801 |H | Short_Literal 0x1
00ba 4801 |H | Short_Literal 0x1
00bb 00da | | Load_Top At_Offset_2
00bc 01d6 | | Execute Vector,Field_Write
00bd 00d9 | | Load_Top At_Offset_1
00be 01d4 | | Execute Vector,Structure_Write
00bf e214 | | Load 0x1,0x14
00c0 0337 | 7 | Declare_Variable Array
00c1 4840 |H@ | Short_Literal 0x40
00c2 4801 |H | Short_Literal 0x1
00c3 4800 |H | Short_Literal 0x0
00c4 00d9 | | Load_Top At_Offset_1
00c5 e22f | / | Load 0x1,0x2f
00c6 01d6 | | Execute Vector,Field_Write
00c7 3ffb |? | Loop_Increasing 0xc3
00c8 e214 | | Load 0x1,0x14
00c9 01c3 | | Execute Vector,Check_In_Type
00ca 0007 | | Action Break_Optional
00cb 4801 |H | Short_Literal 0x1
00cc 481e |H | Short_Literal 0x1e
00cd 00e3 | | Load_Encached Natural_Cache
00ce 03f8 | | Declare_Type Discrete,Constrained
00cf 481f |H | Short_Literal 0x1f
00d0 4820 |H | Short_Literal 0x20
00d1 00e3 | | Load_Encached Natural_Cache
00d2 03f8 | | Declare_Type Discrete,Constrained
00d3 4821 |H! | Short_Literal 0x21
00d4 4822 |H" | Short_Literal 0x22
00d5 00e3 | | Load_Encached Natural_Cache
00d6 03f8 | | Declare_Type Discrete,Constrained
00d7 4823 |H# | Short_Literal 0x23
00d8 4823 |H# | Short_Literal 0x23
00d9 00e3 | | Load_Encached Natural_Cache
00da 03f8 | | Declare_Type Discrete,Constrained
00db 4824 |H$ | Short_Literal 0x24
00dc 4824 |H$ | Short_Literal 0x24
00dd 00e3 | | Load_Encached Natural_Cache
00de 03f8 | | Declare_Type Discrete,Constrained
00df 4825 |H% | Short_Literal 0x25
00e0 4828 |H( | Short_Literal 0x28
00e1 00e3 | | Load_Encached Natural_Cache
00e2 03f8 | | Declare_Type Discrete,Constrained
00e3 4829 |H) | Short_Literal 0x29
00e4 482a |H* | Short_Literal 0x2a
00e5 00e3 | | Load_Encached Natural_Cache
00e6 03f8 | | Declare_Type Discrete,Constrained
00e7 482b |H+ | Short_Literal 0x2b
00e8 4840 |H@ | Short_Literal 0x40
00e9 00e3 | | Load_Encached Natural_Cache
00ea 03f8 | | Declare_Type Discrete,Constrained
00eb 0093 0000 | | push_full_address 0x0
00ed 60e6 |` | Indirect_Literal Discrete,0x1d4,{0x80000000, 0x00010000}
00ee 0273 | s | Execute Discrete,Plus
00ef 0007 | | Action Break_Optional
00f0 029b 0803 | | Declare_Subprogram INIT_0800,For_Outer_Call,Unelaborated
00f2 029b 081b | | Declare_Subprogram INIT_0818,For_Outer_Call,Unelaborated
00f4 029d 082b | +| Declare_Subprogram INIT_0828,For_Outer_Call
00f6 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39
00f7 00c7 | | Action Elaborate_Subprogram
00f8 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a
00f9 00c7 | | Action Elaborate_Subprogram
00fa 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39
00fb 00c6 | | Action Check_Subprogram_Elaborated
00fc e008 | | Load 0x0,0x8
00fd 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00fe 00d8 | | Load_Top At_Offset_0
00ff 012c | , | Execute Any,Size
0100 00d9 | | Load_Top At_Offset_1
0101 0266 | f | Execute Discrete,Bounds
0102 029f 0843 | C| Declare_Subprogram INIT_0840,For_Call
0104 03fa | | Declare_Type Discrete,Defined,With_Size
0105 00cd | | Action Spare6_Action
0106 0093 0000 | | push_full_address 0x0
0108 60c7 |` | Indirect_Literal Discrete,0x1d0,{0x80000000, 0x00050000}
0109 0273 | s | Execute Discrete,Plus
010a e009 | | Load 0x0,0x9
010b 0273 | s | Execute Discrete,Plus
010c e00a | | Load 0x0,0xa
010d 0273 | s | Execute Discrete,Plus
010e 4800 |H | Short_Literal 0x0
010f 0007 | | Action Break_Optional
0110 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39
0111 00c6 | | Action Check_Subprogram_Elaborated
0112 e008 | | Load 0x0,0x8
0113 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0114 00d8 | | Load_Top At_Offset_0
0115 012c | , | Execute Any,Size
0116 00d9 | | Load_Top At_Offset_1
0117 0266 | f | Execute Discrete,Bounds
0118 029f 086b | k| Declare_Subprogram INIT_0868,For_Call
011a 03fa | | Declare_Type Discrete,Defined,With_Size
011b 00cd | | Action Spare6_Action
011c 0093 0000 | | push_full_address 0x0
011e 60ad |` | Indirect_Literal Discrete,0x1cc,{0x80000000, 0x00040000}
011f 0273 | s | Execute Discrete,Plus
0120 e009 | | Load 0x0,0x9
0121 0273 | s | Execute Discrete,Plus
0122 e00b | | Load 0x0,0xb
0123 0273 | s | Execute Discrete,Plus
0124 4800 |H | Short_Literal 0x0
0125 0007 | | Action Break_Optional
0126 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39
0127 00c6 | | Action Check_Subprogram_Elaborated
0128 e008 | | Load 0x0,0x8
0129 1b10 | | Execute Package,Field_Read,Field_Number 0x10
012a 00d8 | | Load_Top At_Offset_0
012b 012c | , | Execute Any,Size
012c 00d9 | | Load_Top At_Offset_1
012d 0266 | f | Execute Discrete,Bounds
012e 029f 0893 | | Declare_Subprogram INIT_0890,For_Call
0130 03fa | | Declare_Type Discrete,Defined,With_Size
0131 00cd | | Action Spare6_Action
0132 0093 0000 | | push_full_address 0x0
0134 6093 |` | Indirect_Literal Discrete,0x1c8,{0x80000000, 0x00030000}
0135 0273 | s | Execute Discrete,Plus
0136 e009 | | Load 0x0,0x9
0137 0273 | s | Execute Discrete,Plus
0138 e00c | | Load 0x0,0xc
0139 0273 | s | Execute Discrete,Plus
013a 4800 |H | Short_Literal 0x0
013b 0007 | | Action Break_Optional
013c 029d 08bb | | Declare_Subprogram INIT_08b8,For_Outer_Call
013e 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a
013f 00c6 | | Action Check_Subprogram_Elaborated
0140 e008 | | Load 0x0,0x8
0141 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0142 00d8 | | Load_Top At_Offset_0
0143 012c | , | Execute Any,Size
0144 00d9 | | Load_Top At_Offset_1
0145 0266 | f | Execute Discrete,Bounds
0146 029f 0843 | C| Declare_Subprogram INIT_0840,For_Call
0148 03fa | | Declare_Type Discrete,Defined,With_Size
0149 00cd | | Action Spare6_Action
014a 4800 |H | Short_Literal 0x0
014b 1d45 | E | Execute_Immediate Reference_Lex_1,0x45
014c 0093 0000 | | push_full_address 0x0
014e 6075 |`u | Indirect_Literal Discrete,0x1c4,{0x80000000, 0x00020000}
014f 0273 | s | Execute Discrete,Plus
0150 e009 | | Load 0x0,0x9
0151 0273 | s | Execute Discrete,Plus
0152 e00d | | Load 0x0,0xd
0153 0273 | s | Execute Discrete,Plus
0154 4800 |H | Short_Literal 0x0
0155 0007 | | Action Break_Optional
0156 029d 08cb | | Declare_Subprogram INIT_08c8,For_Outer_Call
0158 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a
0159 00c6 | | Action Check_Subprogram_Elaborated
015a e008 | | Load 0x0,0x8
015b 1b10 | | Execute Package,Field_Read,Field_Number 0x10
015c 00d8 | | Load_Top At_Offset_0
015d 012c | , | Execute Any,Size
015e 00d9 | | Load_Top At_Offset_1
015f 0266 | f | Execute Discrete,Bounds
0160 029f 0893 | | Declare_Subprogram INIT_0890,For_Call
0162 03fa | | Declare_Type Discrete,Defined,With_Size
0163 00cd | | Action Spare6_Action
0164 4800 |H | Short_Literal 0x0
0165 1d4b | K | Execute_Immediate Reference_Lex_1,0x4b
0166 0093 0000 | | push_full_address 0x0
0168 6057 |`W | Indirect_Literal Discrete,0x1c0,{0x80000000, 0x00010000}
0169 0273 | s | Execute Discrete,Plus
016a e009 | | Load 0x0,0x9
016b 0273 | s | Execute Discrete,Plus
016c e00e | | Load 0x0,0xe
016d 0273 | s | Execute Discrete,Plus
016e 4800 |H | Short_Literal 0x0
016f 0007 | | Action Break_Optional
0170 029d 08db | | Declare_Subprogram INIT_08d8,For_Outer_Call
0172 029d 08f3 | | Declare_Subprogram INIT_08f0,For_Outer_Call
0174 029d 0913 | | Declare_Subprogram INIT_0910,For_Outer_Call
0176 029d 093b | ;| Declare_Subprogram INIT_0938,For_Outer_Call
0178 029d 095b | [| Declare_Subprogram INIT_0958,For_Outer_Call
017a 029d 0973 | s| Declare_Subprogram INIT_0970,For_Outer_Call
017c 029d 09cb | | Declare_Subprogram INIT_09c8,For_Outer_Call
017e 029d 0a23 | #| Declare_Subprogram INIT_0a20,For_Outer_Call
0180 029d 0a3b | ;| Declare_Subprogram INIT_0a38,For_Outer_Call
0182 029d 0a8b | | Declare_Subprogram INIT_0a88,For_Outer_Call
0184 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0185 00c7 | | Action Elaborate_Subprogram
0186 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0187 00c7 | | Action Elaborate_Subprogram
0188 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0189 00c7 | | Action Elaborate_Subprogram
018a 1d13 | | Execute_Immediate Reference_Lex_1,0x13
018b 00c7 | | Action Elaborate_Subprogram
018c 1d15 | | Execute_Immediate Reference_Lex_1,0x15
018d 00c7 | | Action Elaborate_Subprogram
018e 1d16 | | Execute_Immediate Reference_Lex_1,0x16
018f 00c7 | | Action Elaborate_Subprogram
0190 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0191 00c7 | | Action Elaborate_Subprogram
0192 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0193 00c7 | | Action Elaborate_Subprogram
0194 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
0195 00c7 | | Action Elaborate_Subprogram
0196 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0197 00c7 | | Action Elaborate_Subprogram
0198 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0199 00c7 | | Action Elaborate_Subprogram
019a 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
019b 00c7 | | Action Elaborate_Subprogram
019c 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
019d 00c7 | | Action Elaborate_Subprogram
019e 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
019f 00c7 | | Action Elaborate_Subprogram
01a0 1d20 | | Execute_Immediate Reference_Lex_1,0x20
01a1 00c7 | | Action Elaborate_Subprogram
01a2 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
01a3 00c7 | | Action Elaborate_Subprogram
01a4 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
01a5 00c7 | | Action Elaborate_Subprogram
01a6 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
01a7 00c7 | | Action Elaborate_Subprogram
01a8 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
01a9 00c7 | | Action Elaborate_Subprogram
01aa 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
01ab 00c7 | | Action Elaborate_Subprogram
01ac 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
01ad 00c7 | | Action Elaborate_Subprogram
01ae 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
01af 00c7 | | Action Elaborate_Subprogram
01b0 BODY_0008:
01b0 00bc | | Action Signal_Activated
01b1 00bb | | Action Signal_Completion
01b2 0000 0000 | | .BLANK 0000[0x6]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb e228 | ( | Load 0x1,0x28
01bc 00ca | | Action Exit_Nullary_Function
01bd 0000 0000 | | .XXX[0x3]
01bf 0000 | |
01c0 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
01c4 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
01c8 8000 0000 | | .LITERAL {0x80000000, 0x00030000}
01cc 8000 0000 | | .LITERAL {0x80000000, 0x00040000}
01d0 8000 0000 | | .LITERAL {0x80000000, 0x00050000}
01d4 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
01d8 0000 0000 | | .LITERAL {0x00000000, 0x0000076d}
01dc 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3 | | .CONST 0x01e3 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0001 | | .CONST 0x0001 ; Number of locals
01e3 BODY_01e0:
01e3 INIT_01e0:
01e3 00da | | Load_Top At_Offset_2
01e4 021d | | Execute Heap_Access,Is_Null
01e5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01e6 0000 0000 | | .XXX[0x2]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb | | .CONST 0x01eb ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0001 | | .CONST 0x0001 ; Number of locals
01eb BODY_01e8:
01eb INIT_01e8:
01eb 4607 |F | Jump_Case 0x8
01ec 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
01ed 7807 |x | Jump 0x1f5 ; case 0x1
01ee 780a |x | Jump 0x1f9 ; case 0x2
01ef 780e |x | Jump 0x1fe ; case 0x3
01f0 7811 |x | Jump 0x202 ; case 0x4
01f1 7812 |x | Jump 0x204 ; case 0x5
01f2 7813 |x | Jump 0x206 ; case 0x6
01f3 7816 |x | Jump 0x20a ; case 0x7
01f4 4302 |C | .XXX[0x1]
01f5 00da | | Load_Top At_Offset_2
01f6 0091 0af7 | | Action Push_String_Extended_Indexed,0xaf7 ; "READ"
01f8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01f9 00db | | Load_Top At_Offset_3
01fa 00db | | Load_Top At_Offset_3
01fb 00e0 | | Load_Encached Standard_Cache
01fc 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01fd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01fe 00da | | Load_Top At_Offset_2
01ff 00e0 | | Load_Encached Standard_Cache
0200 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0201 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0202 00db | | Load_Top At_Offset_3
0203 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0204 00db | | Load_Top At_Offset_3
0205 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0206 e20f | | Load 0x1,0xf
0207 00dc | | Load_Top At_Offset_4
0208 0267 | g | Execute Discrete,Predecessor
0209 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
020a e20f | | Load 0x1,0xf
020b 00dc | | Load_Top At_Offset_4
020c 0268 | h | Execute Discrete,Successor
020d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
020e 0000 0000 | | .XXX[0x2]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213 | | .CONST 0x0213 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0001 | | .CONST 0x0001 ; Number of locals
0213 BODY_0210:
0213 INIT_0210:
0213 4607 |F | Jump_Case 0x8
0214 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0215 7807 |x | Jump 0x21d ; case 0x1
0216 780a |x | Jump 0x221 ; case 0x2
0217 780e |x | Jump 0x226 ; case 0x3
0218 7811 |x | Jump 0x22a ; case 0x4
0219 7812 |x | Jump 0x22c ; case 0x5
021a 7813 |x | Jump 0x22e ; case 0x6
021b 7816 |x | Jump 0x232 ; case 0x7
021c 4302 |C | .XXX[0x1]
021d 00da | | Load_Top At_Offset_2
021e 0091 0afa | | Action Push_String_Extended_Indexed,0xafa ; "REWIND"
0220 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0221 00db | | Load_Top At_Offset_3
0222 00db | | Load_Top At_Offset_3
0223 00e0 | | Load_Encached Standard_Cache
0224 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0225 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0226 00da | | Load_Top At_Offset_2
0227 00e0 | | Load_Encached Standard_Cache
0228 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0229 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
022a 00db | | Load_Top At_Offset_3
022b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
022c 00db | | Load_Top At_Offset_3
022d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
022e e210 | | Load 0x1,0x10
022f 00dc | | Load_Top At_Offset_4
0230 0267 | g | Execute Discrete,Predecessor
0231 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0232 e210 | | Load 0x1,0x10
0233 00dc | | Load_Top At_Offset_4
0234 0268 | h | Execute Discrete,Successor
0235 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0236 0000 0000 | | .XXX[0x2]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b | ; | .CONST 0x023b ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0001 | | .CONST 0x0001 ; Number of locals
023b BODY_0238:
023b INIT_0238:
023b e22a | * | Load 0x1,0x2a
023c 00ca | | Action Exit_Nullary_Function
023d 0000 0000 | | .XXX[0x3]
023f 0000 | |
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243 | C | .CONST 0x0243 ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0001 | | .CONST 0x0001 ; Number of locals
0243 BODY_0240:
0243 INIT_0240:
0243 e22a | * | Load 0x1,0x2a
0244 00db | | Load_Top At_Offset_3
0245 017f | | Execute Record,Equal
0246 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0247 0000 | | .XXX[0x1]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 0252 | R | .CONST 0x0252 ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0002 | | .CONST 0x0002 ; Number of locals
024b INIT_0248:
024b e211 | | Load 0x1,0x11
024c 0322 | " | Declare_Variable Record
024d 00d8 | | Load_Top At_Offset_0
024e 1c01 | | Execute_Immediate Run_Utility,0x1
024f e22a | * | Load 0x1,0x2a
0250 00d9 | | Load_Top At_Offset_1
0251 017d | } | Execute Record,Structure_Write
0252 BODY_0248:
0252 00d8 | | Load_Top At_Offset_0
0253 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0254 4820 |H | Short_Literal 0x20
0255 4800 |H | Short_Literal 0x0
0256 4801 |H | Short_Literal 0x1
0257 481e |H | Short_Literal 0x1e
0258 e5ff | | Load 0x2,-0x1
0259 01cf | | Execute Vector,Slice_Read
025a e00f | | Load 0x0,0xf
025b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
025c e010 | | Load 0x0,0x10
025d 181b | | Execute Package,Field_Execute,Field_Number 0x1b
025e e010 | | Load 0x0,0x10
025f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0260 e002 | | Load 0x0,0x2
0261 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0262 00d1 | | Pop_Control Pop_Count_1
0263 481f |H | Short_Literal 0x1f
0264 4820 |H | Short_Literal 0x20
0265 e5ff | | Load 0x2,-0x1
0266 01cf | | Execute Vector,Slice_Read
0267 8255 | U | Call 0x1,0x55
0268 090a | | Execute_Immediate Binary_Scale,0xa
0269 00d9 | | Load_Top At_Offset_1
026a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
026b 00d8 | | Load_Top At_Offset_0
026c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
026d 680c |h | Jump_Zero 0x27a
026e 00d8 | | Load_Top At_Offset_0
026f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0270 4c00 |L | Short_Literal -0x400
0271 0273 | s | Execute Discrete,Plus
0272 4821 |H! | Short_Literal 0x21
0273 4822 |H" | Short_Literal 0x22
0274 e5ff | | Load 0x2,-0x1
0275 01cf | | Execute Vector,Slice_Read
0276 8255 | U | Call 0x1,0x55
0277 0273 | s | Execute Discrete,Plus
0278 00d9 | | Load_Top At_Offset_1
0279 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
027a 4825 |H% | Short_Literal 0x25
027b 4828 |H( | Short_Literal 0x28
027c e5ff | | Load 0x2,-0x1
027d 01cf | | Execute Vector,Slice_Read
027e 8257 | W | Call 0x1,0x57
027f 00d9 | | Load_Top At_Offset_1
0280 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0281 4823 |H# | Short_Literal 0x23
0282 4823 |H# | Short_Literal 0x23
0283 e5ff | | Load 0x2,-0x1
0284 01cf | | Execute Vector,Slice_Read
0285 8255 | U | Call 0x1,0x55
0286 0c01 | | Execute_Immediate Greater_Equal,0x1
0287 00d9 | | Load_Top At_Offset_1
0288 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0289 4824 |H$ | Short_Literal 0x24
028a 4824 |H$ | Short_Literal 0x24
028b e5ff | | Load 0x2,-0x1
028c 01cf | | Execute Vector,Slice_Read
028d 8255 | U | Call 0x1,0x55
028e 0c01 | | Execute_Immediate Greater_Equal,0x1
028f 00d9 | | Load_Top At_Offset_1
0290 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0291 4829 |H) | Short_Literal 0x29
0292 482a |H* | Short_Literal 0x2a
0293 e5ff | | Load 0x2,-0x1
0294 01cf | | Execute Vector,Slice_Read
0295 8255 | U | Call 0x1,0x55
0296 00d9 | | Load_Top At_Offset_1
0297 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0298 00d8 | | Load_Top At_Offset_0
0299 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
029a 0000 0000 | | .BLANK 0000[0x6]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02b3 | | .CONST 0x02b3 ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0004 | | .CONST 0x0004 ; Number of locals
02a3 INIT_02a0:
02a3 e214 | | Load 0x1,0x14
02a4 0337 | 7 | Declare_Variable Array
02a5 00d8 | | Load_Top At_Offset_0
02a6 0335 | 5 | Declare_Variable Array,Duplicate
02a7 00cd | | Action Spare6_Action
02a8 4840 |H@ | Short_Literal 0x40
02a9 4801 |H | Short_Literal 0x1
02aa 4800 |H | Short_Literal 0x0
02ab 00d9 | | Load_Top At_Offset_1
02ac e403 | | Load 0x2,0x3
02ad 01d6 | | Execute Vector,Field_Write
02ae 3ffb |? | Loop_Increasing 0x2aa
02af 00d9 | | Load_Top At_Offset_1
02b0 01d4 | | Execute Vector,Structure_Write
02b1 00e2 | | Load_Encached Integer_Cache
02b2 00e2 | | Load_Encached Integer_Cache
02b3 BODY_02a0:
02b3 00e3 | | Load_Encached Natural_Cache
02b4 00e3 | | Load_Encached Natural_Cache
02b5 e5ff | | Load 0x2,-0x1
02b6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02b7 825a | Z | Call 0x1,0x5a
02b8 005b | [ | Store_Top Discrete,At_Offset_3
02b9 0059 | Y | Store_Top Discrete,At_Offset_1
02ba 00da | | Load_Top At_Offset_2
02bb 4801 |H | Short_Literal 0x1
02bc 481e |H | Short_Literal 0x1e
02bd 00da | | Load_Top At_Offset_2
02be 035b | [ | Declare_Type Array,Constrained
02bf 00d0 | | Action Swap_Control
02c0 01cd | | Execute Vector,Slice_Reference
02c1 e5ff | | Load 0x2,-0x1
02c2 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02c3 e002 | | Load 0x0,0x2
02c4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02c5 8253 | S | Call 0x1,0x53
02c6 00d1 | | Pop_Control Pop_Count_1
02c7 00da | | Load_Top At_Offset_2
02c8 4825 |H% | Short_Literal 0x25
02c9 4828 |H( | Short_Literal 0x28
02ca 00da | | Load_Top At_Offset_2
02cb 035b | [ | Declare_Type Array,Constrained
02cc 00d0 | | Action Swap_Control
02cd 01cd | | Execute Vector,Slice_Reference
02ce e5ff | | Load 0x2,-0x1
02cf 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
02d0 8256 | V | Call 0x1,0x56
02d1 00d1 | | Pop_Control Pop_Count_1
02d2 00da | | Load_Top At_Offset_2
02d3 4829 |H) | Short_Literal 0x29
02d4 482a |H* | Short_Literal 0x2a
02d5 00da | | Load_Top At_Offset_2
02d6 035b | [ | Declare_Type Array,Constrained
02d7 00d0 | | Action Swap_Control
02d8 01cd | | Execute Vector,Slice_Reference
02d9 e5ff | | Load 0x2,-0x1
02da 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
02db 00d8 | | Load_Top At_Offset_0
02dc 00e3 | | Load_Encached Natural_Cache
02dd 0260 | ` | Execute Discrete,In_Type
02de 7001 |p | Jump_Nonzero 0x2e0
02df 0801 | | Execute_Immediate Raise,0x1
02e0 8254 | T | Call 0x1,0x54
02e1 00d1 | | Pop_Control Pop_Count_1
02e2 e5ff | | Load 0x2,-0x1
02e3 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
02e4 680b |h | Jump_Zero 0x2f0
02e5 00da | | Load_Top At_Offset_2
02e6 4824 |H$ | Short_Literal 0x24
02e7 4824 |H$ | Short_Literal 0x24
02e8 00da | | Load_Top At_Offset_2
02e9 035b | [ | Declare_Type Array,Constrained
02ea 00d0 | | Action Swap_Control
02eb 01cd | | Execute Vector,Slice_Reference
02ec 4801 |H | Short_Literal 0x1
02ed 8254 | T | Call 0x1,0x54
02ee 00d1 | | Pop_Control Pop_Count_1
02ef 780d |x | Jump 0x2fd
02f0 e5ff | | Load 0x2,-0x1
02f1 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02f2 680a |h | Jump_Zero 0x2fd
02f3 00da | | Load_Top At_Offset_2
02f4 4823 |H# | Short_Literal 0x23
02f5 4823 |H# | Short_Literal 0x23
02f6 00da | | Load_Top At_Offset_2
02f7 035b | [ | Declare_Type Array,Constrained
02f8 00d0 | | Action Swap_Control
02f9 01cd | | Execute Vector,Slice_Reference
02fa 4801 |H | Short_Literal 0x1
02fb 8254 | T | Call 0x1,0x54
02fc 00d1 | | Pop_Control Pop_Count_1
02fd 00da | | Load_Top At_Offset_2
02fe 481f |H | Short_Literal 0x1f
02ff 4820 |H | Short_Literal 0x20
0300 00da | | Load_Top At_Offset_2
0301 035b | [ | Declare_Type Array,Constrained
0302 00d0 | | Action Swap_Control
0303 01cd | | Execute Vector,Slice_Reference
0304 00da | | Load_Top At_Offset_2
0305 00d8 | | Load_Top At_Offset_0
0306 00e3 | | Load_Encached Natural_Cache
0307 0260 | ` | Execute Discrete,In_Type
0308 7001 |p | Jump_Nonzero 0x30a
0309 0801 | | Execute_Immediate Raise,0x1
030a 8254 | T | Call 0x1,0x54
030b 00d1 | | Pop_Control Pop_Count_1
030c 00da | | Load_Top At_Offset_2
030d 4821 |H! | Short_Literal 0x21
030e 4822 |H" | Short_Literal 0x22
030f 00da | | Load_Top At_Offset_2
0310 035b | [ | Declare_Type Array,Constrained
0311 00d0 | | Action Swap_Control
0312 01cd | | Execute Vector,Slice_Reference
0313 00d9 | | Load_Top At_Offset_1
0314 00d8 | | Load_Top At_Offset_0
0315 00e3 | | Load_Encached Natural_Cache
0316 0260 | ` | Execute Discrete,In_Type
0317 7001 |p | Jump_Nonzero 0x319
0318 0801 | | Execute_Immediate Raise,0x1
0319 8254 | T | Call 0x1,0x54
031a 00d1 | | Pop_Control Pop_Count_1
031b 00da | | Load_Top At_Offset_2
031c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
031d 0000 0000 | | .XXX[0x3]
031f 0000 | |
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0331 | 1 | .CONST 0x0331 ; Address of begin
0321 0004 | | .CONST 0x0004 ; Address of exception handler
0322 0005 | | .CONST 0x0005 ; Number of locals
0323 INIT_0320:
0323 e008 | | Load 0x0,0x8
0324 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0325 e008 | | Load 0x0,0x8
0326 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0327 0322 | " | Declare_Variable Record
0328 e005 | | Load 0x0,0x5
0329 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
032a 02ff | | Declare_Variable Variant_Record
032b e5ff | | Load 0x2,-0x1
032c 8252 | R | Call 0x1,0x52
032d 00d9 | | Load_Top At_Offset_1
032e 016d | m | Execute Variant_Record,Structure_Write
032f e228 | ( | Load 0x1,0x28
0330 0007 | | Action Break_Optional
0331 BODY_0320:
0331 00d9 | | Load_Top At_Offset_1
0332 e005 | | Load 0x0,0x5
0333 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0334 6872 |hr | Jump_Zero 0x3a7
0335 e228 | ( | Load 0x1,0x28
0336 e011 | | Load 0x0,0x11
0337 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0338 e012 | | Load 0x0,0x12
0339 1811 | | Execute Package,Field_Execute,Field_Number 0x11
033a 039c | | Declare_Variable Heap_Access,By_Allocation
033b 00d8 | | Load_Top At_Offset_0
033c 0217 | | Execute Heap_Access,All_Reference
033d 1c00 | | Execute_Immediate Run_Utility,0x0
033e 0031 | 1 | Store_Top Heap_Access,At_Offset_1
033f 00d9 | | Load_Top At_Offset_1
0340 00d9 | | Load_Top At_Offset_1
0341 0217 | | Execute Heap_Access,All_Reference
0342 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0343 e5fe | | Load 0x2,-0x2
0344 00d9 | | Load_Top At_Offset_1
0345 0217 | | Execute Heap_Access,All_Reference
0346 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0347 4800 |H | Short_Literal 0x0
0348 00d9 | | Load_Top At_Offset_1
0349 0217 | | Execute Heap_Access,All_Reference
034a 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
034b 4800 |H | Short_Literal 0x0
034c 00d9 | | Load_Top At_Offset_1
034d 0217 | | Execute Heap_Access,All_Reference
034e 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
034f 00cf | | Action Mark_Auxiliary
0350 4805 |H | Short_Literal 0x5
0351 4801 |H | Short_Literal 0x1
0352 0007 | | Action Break_Optional
0353 00db | | Load_Top At_Offset_3
0354 0219 | | Execute Heap_Access,All_Read
0355 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0356 e402 | | Load 0x2,0x2
0357 00d9 | | Load_Top At_Offset_1
0358 e405 | | Load 0x2,0x5
0359 0217 | | Execute Heap_Access,All_Reference
035a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
035b e22c | , | Load 0x1,0x2c
035c 01d7 | | Execute Vector,Field_Read
035d e404 | | Load 0x2,0x4
035e 8013 | | Call 0x0,0x13
035f 00d1 | | Pop_Control Pop_Count_1
0360 c402 | | Store 0x2,0x2
0361 00d1 | | Pop_Control Pop_Count_1
0362 e402 | | Load 0x2,0x2
0363 4604 |F | Jump_Case 0x5
0364 7811 |x | Jump 0x376 ; case 0x0
0365 782a |x* | Jump 0x390 ; case 0x1
0366 7831 |x1 | Jump 0x398 ; case 0x2
0367 7830 |x0 | Jump 0x398 ; case 0x3
0368 7800 |x | Jump 0x369 ; case 0x4
0369 00d8 | | Load_Top At_Offset_0
036a 0d05 | | Execute_Immediate Less,0x5
036b 6833 |h3 | Jump_Zero 0x39f
036c 4800 |H | Short_Literal 0x0
036d 0092 0b12 | | Action Push_String_Extended,0xb12 ; "Open Tape (will retry)"
036f e402 | | Load 0x2,0x2
0370 e23f | ? | Load 0x1,0x3f
0371 1d40 | @ | Execute_Immediate Reference_Lex_1,0x40
0372 8239 | 9 | Call 0x1,0x39
0373 603c |`< | Indirect_Literal Discrete,0x3b0,{0x00000000, 0x00050000}
0374 00ba | | Action Initiate_Delay
0375 7829 |x) | Jump 0x39f
0376 00db | | Load_Top At_Offset_3
0377 a5fd | | Store_Unchecked 0x2,-0x3
0378 00db | | Load_Top At_Offset_3
0379 0217 | | Execute Heap_Access,All_Reference
037a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
037b 6813 |h | Jump_Zero 0x38f
037c 7800 |x | Jump 0x37d
037d e403 | | Load 0x2,0x3
037e 4804 |H | Short_Literal 0x4
037f 602c |`, | Indirect_Literal Discrete,0x3ac,{0x00000000, 0x00000400}
0380 e405 | | Load 0x2,0x5
0381 0217 | | Execute Heap_Access,All_Reference
0382 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0383 8014 | | Call 0x0,0x14
0384 00d1 | | Pop_Control Pop_Count_1
0385 4801 |H | Short_Literal 0x1
0386 0092 0b13 | | Action Push_String_Extended,0xb13 ; "Begin Streaming Write"
0388 e403 | | Load 0x2,0x3
0389 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
038a e246 | F | Load 0x1,0x46
038b e247 | G | Load 0x1,0x47
038c 1d48 | H | Execute_Immediate Reference_Lex_1,0x48
038d 1d49 | I | Execute_Immediate Reference_Lex_1,0x49
038e 823a | : | Call 0x1,0x3a
038f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0390 4801 |H | Short_Literal 0x1
0391 0092 0b14 | | Action Push_String_Extended,0xb14 ; "Open Tape"
0393 e402 | | Load 0x2,0x2
0394 e23f | ? | Load 0x1,0x3f
0395 1d40 | @ | Execute_Immediate Reference_Lex_1,0x40
0396 8239 | 9 | Call 0x1,0x39
0397 7807 |x | Jump 0x39f
0398 4801 |H | Short_Literal 0x1
0399 0092 0b15 | | Action Push_String_Extended,0xb15 ; "Other Error"
039b e402 | | Load 0x2,0x2
039c e23f | ? | Load 0x1,0x3f
039d 1d40 | @ | Execute_Immediate Reference_Lex_1,0x40
039e 8239 | 9 | Call 0x1,0x39
039f 00c8 | | Action Pop_Auxiliary_Range
03a0 3fb2 |? | Loop_Increasing 0x353
03a1 00ce | | Action Pop_Auxiliary
03a2 4801 |H | Short_Literal 0x1
03a3 0092 0b16 | | Action Push_String_Extended,0xb16 ; "Too many retries in Opening Tape Drive"
03a5 823b | ; | Call 0x1,0x3b
03a6 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03a7 4801 |H | Short_Literal 0x1
03a8 0092 0b17 | | Action Push_String_Extended,0xb17 ; "Non-Existent Tape Drive Specified"
03aa 823b | ; | Call 0x1,0x3b
03ab 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03ac 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
03b0 0000 0000 | | .LITERAL {0x00000000, 0x00050000}
03b4 0000 0000 | | .BLANK 0000[0x4]
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03c0 | | .CONST 0x03c0 ; Address of begin
03b9 0004 | | .CONST 0x0004 ; Address of exception handler
03ba 0003 | | .CONST 0x0003 ; Number of locals
03bb INIT_03b8:
03bb e008 | | Load 0x0,0x8
03bc 1b14 | | Execute Package,Field_Read,Field_Number 0x14
03bd 0322 | " | Declare_Variable Record
03be e008 | | Load 0x0,0x8
03bf 1b10 | | Execute Package,Field_Read,Field_Number 0x10
03c0 BODY_03b8:
03c0 e5fe | | Load 0x2,-0x2
03c1 0217 | | Execute Heap_Access,All_Reference
03c2 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
03c3 6830 |h0 | Jump_Zero 0x3f4
03c4 00d9 | | Load_Top At_Offset_1
03c5 e5fe | | Load 0x2,-0x2
03c6 0217 | | Execute Heap_Access,All_Reference
03c7 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
03c8 8015 | | Call 0x0,0x15
03c9 00d1 | | Pop_Control Pop_Count_1
03ca 4801 |H | Short_Literal 0x1
03cb 0092 0b18 | | Action Push_String_Extended,0xb18 ; "End Streaming Write"
03cd 00db | | Load_Top At_Offset_3
03ce 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
03cf e246 | F | Load 0x1,0x46
03d0 e247 | G | Load 0x1,0x47
03d1 1d48 | H | Execute_Immediate Reference_Lex_1,0x48
03d2 1d49 | I | Execute_Immediate Reference_Lex_1,0x49
03d3 823a | : | Call 0x1,0x3a
03d4 00d9 | | Load_Top At_Offset_1
03d5 e5fe | | Load 0x2,-0x2
03d6 0217 | | Execute Heap_Access,All_Reference
03d7 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
03d8 8016 | | Call 0x0,0x16
03d9 00d1 | | Pop_Control Pop_Count_1
03da 4801 |H | Short_Literal 0x1
03db 0092 0b19 | | Action Push_String_Extended,0xb19 ; "Write Tape Mark (end of tape)"
03dd 00db | | Load_Top At_Offset_3
03de 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
03df e246 | F | Load 0x1,0x46
03e0 e247 | G | Load 0x1,0x47
03e1 1d48 | H | Execute_Immediate Reference_Lex_1,0x48
03e2 1d49 | I | Execute_Immediate Reference_Lex_1,0x49
03e3 823a | : | Call 0x1,0x3a
03e4 00d9 | | Load_Top At_Offset_1
03e5 e5fe | | Load 0x2,-0x2
03e6 0217 | | Execute Heap_Access,All_Reference
03e7 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
03e8 8016 | | Call 0x0,0x16
03e9 00d1 | | Pop_Control Pop_Count_1
03ea 4801 |H | Short_Literal 0x1
03eb 0092 0b19 | | Action Push_String_Extended,0xb19 ; "Write Tape Mark (end of tape)"
03ed 00db | | Load_Top At_Offset_3
03ee 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
03ef e246 | F | Load 0x1,0x46
03f0 e247 | G | Load 0x1,0x47
03f1 1d48 | H | Execute_Immediate Reference_Lex_1,0x48
03f2 1d49 | I | Execute_Immediate Reference_Lex_1,0x49
03f3 823a | : | Call 0x1,0x3a
03f4 00d9 | | Load_Top At_Offset_1
03f5 e5ff | | Load 0x2,-0x1
03f6 e22e | . | Load 0x1,0x2e
03f7 01d7 | | Execute Vector,Field_Read
03f8 e5fe | | Load 0x2,-0x2
03f9 0217 | | Execute Heap_Access,All_Reference
03fa 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
03fb 8017 | | Call 0x0,0x17
03fc 00d1 | | Pop_Control Pop_Count_1
03fd 4800 |H | Short_Literal 0x0
03fe 0092 0b1a | | Action Push_String_Extended,0xb1a ; "Positioning Tape"
0400 00db | | Load_Top At_Offset_3
0401 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0402 e246 | F | Load 0x1,0x46
0403 e247 | G | Load 0x1,0x47
0404 1d48 | H | Execute_Immediate Reference_Lex_1,0x48
0405 1d49 | I | Execute_Immediate Reference_Lex_1,0x49
0406 823a | : | Call 0x1,0x3a
0407 e5fe | | Load 0x2,-0x2
0408 0219 | | Execute Heap_Access,All_Read
0409 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
040a e008 | | Load 0x0,0x8
040b 1b10 | | Execute Package,Field_Read,Field_Number 0x10
040c 00d9 | | Load_Top At_Offset_1
040d 8018 | | Call 0x0,0x18
040e 00d1 | | Pop_Control Pop_Count_1
040f 005a | Z | Store_Top Discrete,At_Offset_2
0410 00d1 | | Pop_Control Pop_Count_1
0411 4801 |H | Short_Literal 0x1
0412 0092 0b1b | | Action Push_String_Extended,0xb1b ; "Closing Tape"
0414 00da | | Load_Top At_Offset_2
0415 e24c | L | Load 0x1,0x4c
0416 e24d | M | Load 0x1,0x4d
0417 1d4e | N | Execute_Immediate Reference_Lex_1,0x4e
0418 1d4f | O | Execute_Immediate Reference_Lex_1,0x4f
0419 823a | : | Call 0x1,0x3a
041a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
041b 0000 0000 | | .BLANK 0000[0x5]
0420 ; --------------------------------------------------------------------------------------
0420 ; SUBPROGRAM
0420 ; --------------------------------------------------------------------------------------
0420 0423 | # | .CONST 0x0423 ; Address of begin
0421 0004 | | .CONST 0x0004 ; Address of exception handler
0422 0001 | | .CONST 0x0001 ; Number of locals
0423 BODY_0420:
0423 INIT_0420:
0423 00da | | Load_Top At_Offset_2
0424 021c | | Execute Heap_Access,Not_Null
0425 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0426 0000 0000 | | .XXX[0x2]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 042b | + | .CONST 0x042b ; Address of begin
0429 0004 | | .CONST 0x0004 ; Address of exception handler
042a 0001 | | .CONST 0x0001 ; Number of locals
042b BODY_0428:
042b INIT_0428:
042b 00da | | Load_Top At_Offset_2
042c 821a | | Call 0x1,0x1a
042d 6804 |h | Jump_Zero 0x432
042e 00da | | Load_Top At_Offset_2
042f 0217 | | Execute Heap_Access,All_Reference
0430 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0431 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0432 4801 |H | Short_Literal 0x1
0433 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0434 0000 0000 | | .BLANK 0000[0x4]
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 043b | ; | .CONST 0x043b ; Address of begin
0439 0004 | | .CONST 0x0004 ; Address of exception handler
043a 0001 | | .CONST 0x0001 ; Number of locals
043b BODY_0438:
043b INIT_0438:
043b 00da | | Load_Top At_Offset_2
043c 0217 | | Execute Heap_Access,All_Reference
043d 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
043e 00d8 | | Load_Top At_Offset_0
043f 00e3 | | Load_Encached Natural_Cache
0440 0260 | ` | Execute Discrete,In_Type
0441 7001 |p | Jump_Nonzero 0x443
0442 0801 | | Execute_Immediate Raise,0x1
0443 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0444 0000 0000 | | .BLANK 0000[0x4]
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 0450 | P | .CONST 0x0450 ; Address of begin
0449 0004 | | .CONST 0x0004 ; Address of exception handler
044a 0003 | | .CONST 0x0003 ; Number of locals
044b INIT_0448:
044b e214 | | Load 0x1,0x14
044c 0337 | 7 | Declare_Variable Array
044d e008 | | Load 0x0,0x8
044e 1b14 | | Execute Package,Field_Read,Field_Number 0x14
044f 0322 | " | Declare_Variable Record
0450 BODY_0448:
0450 e5ff | | Load 0x2,-0x1
0451 821a | | Call 0x1,0x1a
0452 6855 |hU | Jump_Zero 0x4a8
0453 e5ff | | Load 0x2,-0x1
0454 0217 | | Execute Heap_Access,All_Reference
0455 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0456 681b |h | Jump_Zero 0x472
0457 00d8 | | Load_Top At_Offset_0
0458 e5fe | | Load 0x2,-0x2
0459 8216 | | Call 0x1,0x16
045a e5ff | | Load 0x2,-0x1
045b 0217 | | Execute Heap_Access,All_Reference
045c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
045d 8019 | | Call 0x0,0x19
045e 00d1 | | Pop_Control Pop_Count_1
045f 4800 |H | Short_Literal 0x0
0460 0092 0b1c | | Action Push_String_Extended,0xb1c ; "Writing Header"
0462 00da | | Load_Top At_Offset_2
0463 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0464 e246 | F | Load 0x1,0x46
0465 e247 | G | Load 0x1,0x47
0466 1d48 | H | Execute_Immediate Reference_Lex_1,0x48
0467 1d49 | I | Execute_Immediate Reference_Lex_1,0x49
0468 823a | : | Call 0x1,0x3a
0469 e5fe | | Load 0x2,-0x2
046a e5ff | | Load 0x2,-0x1
046b 0217 | | Execute Heap_Access,All_Reference
046c 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
046d 4801 |H | Short_Literal 0x1
046e e5ff | | Load 0x2,-0x1
046f 0217 | | Execute Heap_Access,All_Reference
0470 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0471 7827 |x' | Jump 0x499
0472 e5ff | | Load 0x2,-0x1
0473 0219 | | Execute Heap_Access,All_Read
0474 00e1 | | Load_Encached Boolean_Cache
0475 00db | | Load_Top At_Offset_3
0476 e5ff | | Load 0x2,-0x1
0477 0217 | | Execute Heap_Access,All_Reference
0478 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0479 8259 | Y | Call 0x1,0x59
047a 00d1 | | Pop_Control Pop_Count_1
047b 00d9 | | Load_Top At_Offset_1
047c 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
047d 00d1 | | Pop_Control Pop_Count_1
047e e5ff | | Load 0x2,-0x1
047f 0217 | | Execute Heap_Access,All_Reference
0480 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0481 6809 |h | Jump_Zero 0x48b
0482 e22a | * | Load 0x1,0x2a
0483 e5ff | | Load 0x2,-0x1
0484 0217 | | Execute Heap_Access,All_Reference
0485 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0486 4800 |H | Short_Literal 0x0
0487 e5ff | | Load 0x2,-0x1
0488 0217 | | Execute Heap_Access,All_Reference
0489 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
048a 7809 |x | Jump 0x494
048b 00d9 | | Load_Top At_Offset_1
048c 8215 | | Call 0x1,0x15
048d e5ff | | Load 0x2,-0x1
048e 0217 | | Execute Heap_Access,All_Reference
048f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0490 4801 |H | Short_Literal 0x1
0491 e5ff | | Load 0x2,-0x1
0492 0217 | | Execute Heap_Access,All_Reference
0493 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0494 e5ff | | Load 0x2,-0x1
0495 0217 | | Execute Heap_Access,All_Reference
0496 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0497 e5fe | | Load 0x2,-0x2
0498 017d | } | Execute Record,Structure_Write
0499 e5ff | | Load 0x2,-0x1
049a 0217 | | Execute Heap_Access,All_Reference
049b 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
049c 680b |h | Jump_Zero 0x4a8
049d e5ff | | Load 0x2,-0x1
049e 0217 | | Execute Heap_Access,All_Reference
049f 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
04a0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04a1 e5ff | | Load 0x2,-0x1
04a2 0217 | | Execute Heap_Access,All_Reference
04a3 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
04a4 4800 |H | Short_Literal 0x0
04a5 e5ff | | Load 0x2,-0x1
04a6 0217 | | Execute Heap_Access,All_Reference
04a7 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
04a8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04a9 0000 0000 | | .BLANK 0000[0x7]
04b0 ; --------------------------------------------------------------------------------------
04b0 ; SUBPROGRAM
04b0 ; --------------------------------------------------------------------------------------
04b0 04b9 | | .CONST 0x04b9 ; Address of begin
04b1 0004 | | .CONST 0x0004 ; Address of exception handler
04b2 0004 | | .CONST 0x0004 ; Number of locals
04b3 INIT_04b0:
04b3 e008 | | Load 0x0,0x8
04b4 1b14 | | Execute Package,Field_Read,Field_Number 0x14
04b5 0322 | " | Declare_Variable Record
04b6 e217 | | Load 0x1,0x17
04b7 0337 | 7 | Declare_Variable Array
04b8 00e2 | | Load_Encached Integer_Cache
04b9 BODY_04b0:
04b9 e5ff | | Load 0x2,-0x1
04ba 6845 |hE | Jump_Zero 0x500
04bb e5ff | | Load 0x2,-0x1
04bc 0217 | | Execute Heap_Access,All_Reference
04bd 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
04be 6841 |hA | Jump_Zero 0x500
04bf e5ff | | Load 0x2,-0x1
04c0 0217 | | Execute Heap_Access,All_Reference
04c1 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04c2 6826 |h& | Jump_Zero 0x4e9
04c3 e217 | | Load 0x1,0x17
04c4 0337 | 7 | Declare_Variable Array
04c5 603e |`> | Indirect_Literal Discrete,0x504,{0x00000000, 0x00000400}
04c6 4801 |H | Short_Literal 0x1
04c7 4800 |H | Short_Literal 0x0
04c8 00d9 | | Load_Top At_Offset_1
04c9 e405 | | Load 0x2,0x5
04ca 01d6 | | Execute Vector,Field_Write
04cb 3ffb |? | Loop_Increasing 0x4c7
04cc 00da | | Load_Top At_Offset_2
04cd 01d4 | | Execute Vector,Structure_Write
04ce 00cf | | Action Mark_Auxiliary
04cf 7804 |x | Jump 0x4d4
04d0 00da | | Load_Top At_Offset_2
04d1 e5ff | | Load 0x2,-0x1
04d2 8225 | % | Call 0x1,0x25
04d3 00c9 | | Action Pop_Auxiliary_Loop
04d4 e5ff | | Load 0x2,-0x1
04d5 0217 | | Execute Heap_Access,All_Reference
04d6 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
04d7 602c |`, | Indirect_Literal Discrete,0x504,{0x00000000, 0x00000400}
04d8 027d | } | Execute Discrete,Greater
04d9 77f6 |w | Jump_Nonzero 0x4d0
04da 00ce | | Action Pop_Auxiliary
04db e5ff | | Load 0x2,-0x1
04dc 0217 | | Execute Heap_Access,All_Reference
04dd 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
04de 0c01 | | Execute_Immediate Greater_Equal,0x1
04df 6818 |h | Jump_Zero 0x4f8
04e0 4801 |H | Short_Literal 0x1
04e1 e5ff | | Load 0x2,-0x1
04e2 0217 | | Execute Heap_Access,All_Reference
04e3 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
04e4 00db | | Load_Top At_Offset_3
04e5 01cf | | Execute Vector,Slice_Read
04e6 e5ff | | Load 0x2,-0x1
04e7 8225 | % | Call 0x1,0x25
04e8 780f |x | Jump 0x4f8
04e9 00cf | | Action Mark_Auxiliary
04ea 7807 |x | Jump 0x4f2
04eb 00e3 | | Load_Encached Natural_Cache
04ec 00db | | Load_Top At_Offset_3
04ed e5ff | | Load 0x2,-0x1
04ee 8222 | " | Call 0x1,0x22
04ef 00d1 | | Pop_Control Pop_Count_1
04f0 005a | Z | Store_Top Discrete,At_Offset_2
04f1 00c9 | | Action Pop_Auxiliary_Loop
04f2 e5ff | | Load 0x2,-0x1
04f3 0217 | | Execute Heap_Access,All_Reference
04f4 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
04f5 0c01 | | Execute_Immediate Greater_Equal,0x1
04f6 77f4 |w | Jump_Nonzero 0x4eb
04f7 00ce | | Action Pop_Auxiliary
04f8 e5ff | | Load 0x2,-0x1
04f9 0217 | | Execute Heap_Access,All_Reference
04fa 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04fb 0f02 | | Execute_Immediate Equal,0x2
04fc 6803 |h | Jump_Zero 0x500
04fd 4801 |H | Short_Literal 0x1
04fe e5ff | | Load 0x2,-0x1
04ff 8227 | ' | Call 0x1,0x27
0500 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0501 0000 0000 | | .XXX[0x3]
0503 0000 | |
0504 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
0508 ; --------------------------------------------------------------------------------------
0508 ; SUBPROGRAM
0508 ; --------------------------------------------------------------------------------------
0508 050b | | .CONST 0x050b ; Address of begin
0509 0004 | | .CONST 0x0004 ; Address of exception handler
050a 0001 | | .CONST 0x0001 ; Number of locals
050b BODY_0508:
050b INIT_0508:
050b 00da | | Load_Top At_Offset_2
050c 6804 |h | Jump_Zero 0x511
050d 00da | | Load_Top At_Offset_2
050e 0217 | | Execute Heap_Access,All_Reference
050f 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0510 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0511 4800 |H | Short_Literal 0x0
0512 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0513 0000 0000 | | .BLANK 0000[0x5]
0518 ; --------------------------------------------------------------------------------------
0518 ; SUBPROGRAM
0518 ; --------------------------------------------------------------------------------------
0518 051b | | .CONST 0x051b ; Address of begin
0519 0004 | | .CONST 0x0004 ; Address of exception handler
051a 0001 | | .CONST 0x0001 ; Number of locals
051b BODY_0518:
051b INIT_0518:
051b 00da | | Load_Top At_Offset_2
051c 0217 | | Execute Heap_Access,All_Reference
051d 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
051e 0c01 | | Execute_Immediate Greater_Equal,0x1
051f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0520 ; --------------------------------------------------------------------------------------
0520 ; SUBPROGRAM
0520 ; --------------------------------------------------------------------------------------
0520 0523 | # | .CONST 0x0523 ; Address of begin
0521 0004 | | .CONST 0x0004 ; Address of exception handler
0522 0001 | | .CONST 0x0001 ; Number of locals
0523 BODY_0520:
0523 INIT_0520:
0523 00da | | Load_Top At_Offset_2
0524 821f | | Call 0x1,0x1f
0525 6806 |h | Jump_Zero 0x52c
0526 00da | | Load_Top At_Offset_2
0527 0217 | | Execute Heap_Access,All_Reference
0528 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0529 0320 | | Declare_Variable Record,Duplicate
052a 00cd | | Action Spare6_Action
052b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
052c e22a | * | Load 0x1,0x2a
052d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
052e 0000 0000 | | .XXX[0x2]
0530 ; --------------------------------------------------------------------------------------
0530 ; SUBPROGRAM
0530 ; --------------------------------------------------------------------------------------
0530 0536 | 6 | .CONST 0x0536 ; Address of begin
0531 0004 | | .CONST 0x0004 ; Address of exception handler
0532 0002 | | .CONST 0x0002 ; Number of locals
0533 INIT_0530:
0533 e008 | | Load 0x0,0x8
0534 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0535 0322 | " | Declare_Variable Record
0536 BODY_0530:
0536 00db | | Load_Top At_Offset_3
0537 0217 | | Execute Heap_Access,All_Reference
0538 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0539 6862 |hb | Jump_Zero 0x59c
053a e5fe | | Load 0x2,-0x2
053b 01db | | Execute Vector,Length
053c e5ff | | Load 0x2,-0x1
053d 0217 | | Execute Heap_Access,All_Reference
053e 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
053f 027b | { | Execute Discrete,Greater_Equal
0540 6821 |h! | Jump_Zero 0x562
0541 4801 |H | Short_Literal 0x1
0542 e5ff | | Load 0x2,-0x1
0543 0217 | | Execute Heap_Access,All_Reference
0544 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0545 e5ff | | Load 0x2,-0x1
0546 0217 | | Execute Heap_Access,All_Reference
0547 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0548 01cf | | Execute Vector,Slice_Read
0549 e5fe | | Load 0x2,-0x2
054a 01dd | | Execute Vector,First
054b e5fe | | Load 0x2,-0x2
054c 01dd | | Execute Vector,First
054d e5ff | | Load 0x2,-0x1
054e 0217 | | Execute Heap_Access,All_Reference
054f 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0550 0273 | s | Execute Discrete,Plus
0551 0aff | | Execute_Immediate Plus,-0x1
0552 00d8 | | Load_Top At_Offset_0
0553 00e2 | | Load_Encached Integer_Cache
0554 0260 | ` | Execute Discrete,In_Type
0555 7001 |p | Jump_Nonzero 0x557
0556 0801 | | Execute_Immediate Raise,0x1
0557 e5fe | | Load 0x2,-0x2
0558 01ce | | Execute Vector,Slice_Write
0559 00db | | Load_Top At_Offset_3
055a 0217 | | Execute Heap_Access,All_Reference
055b 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
055c c5fd | | Store 0x2,-0x3
055d 4800 |H | Short_Literal 0x0
055e e5ff | | Load 0x2,-0x1
055f 0217 | | Execute Heap_Access,All_Reference
0560 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0561 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0562 4801 |H | Short_Literal 0x1
0563 e5fe | | Load 0x2,-0x2
0564 01db | | Execute Vector,Length
0565 00d8 | | Load_Top At_Offset_0
0566 00e2 | | Load_Encached Integer_Cache
0567 0260 | ` | Execute Discrete,In_Type
0568 7001 |p | Jump_Nonzero 0x56a
0569 0801 | | Execute_Immediate Raise,0x1
056a e5ff | | Load 0x2,-0x1
056b 0217 | | Execute Heap_Access,All_Reference
056c 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
056d 01cf | | Execute Vector,Slice_Read
056e e5fe | | Load 0x2,-0x2
056f 01d4 | | Execute Vector,Structure_Write
0570 e5fe | | Load 0x2,-0x2
0571 01db | | Execute Vector,Length
0572 c5fd | | Store 0x2,-0x3
0573 00db | | Load_Top At_Offset_3
0574 0217 | | Execute Heap_Access,All_Reference
0575 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0576 e5fe | | Load 0x2,-0x2
0577 01db | | Execute Vector,Length
0578 0272 | r | Execute Discrete,Minus
0579 e5ff | | Load 0x2,-0x1
057a 0217 | | Execute Heap_Access,All_Reference
057b 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
057c e5fe | | Load 0x2,-0x2
057d 01db | | Execute Vector,Length
057e 0a01 | | Execute_Immediate Plus,0x1
057f 00d8 | | Load_Top At_Offset_0
0580 00e2 | | Load_Encached Integer_Cache
0581 0260 | ` | Execute Discrete,In_Type
0582 7001 |p | Jump_Nonzero 0x584
0583 0801 | | Execute_Immediate Raise,0x1
0584 e5fe | | Load 0x2,-0x2
0585 01db | | Execute Vector,Length
0586 e5ff | | Load 0x2,-0x1
0587 0217 | | Execute Heap_Access,All_Reference
0588 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0589 0273 | s | Execute Discrete,Plus
058a 00d8 | | Load_Top At_Offset_0
058b 00e2 | | Load_Encached Integer_Cache
058c 0260 | ` | Execute Discrete,In_Type
058d 7001 |p | Jump_Nonzero 0x58f
058e 0801 | | Execute_Immediate Raise,0x1
058f e5ff | | Load 0x2,-0x1
0590 0217 | | Execute Heap_Access,All_Reference
0591 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0592 01cf | | Execute Vector,Slice_Read
0593 4801 |H | Short_Literal 0x1
0594 e5ff | | Load 0x2,-0x1
0595 0217 | | Execute Heap_Access,All_Reference
0596 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0597 e5ff | | Load 0x2,-0x1
0598 0219 | | Execute Heap_Access,All_Read
0599 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
059a 01ce | | Execute Vector,Slice_Write
059b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
059c 00db | | Load_Top At_Offset_3
059d 0217 | | Execute Heap_Access,All_Reference
059e 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
059f 7002 |p | Jump_Nonzero 0x5a2
05a0 4950 |IP | Short_Literal 0x150
05a1 0257 | W | Execute Discrete,Raise
05a2 e5fe | | Load 0x2,-0x2
05a3 01db | | Execute Vector,Length
05a4 607b |`{ | Indirect_Literal Discrete,0x620,{0x00000000, 0x00000400}
05a5 027f | | Execute Discrete,Equal
05a6 683f |h? | Jump_Zero 0x5e6
05a7 e5fe | | Load 0x2,-0x2
05a8 00d8 | | Load_Top At_Offset_0
05a9 01dd | | Execute Vector,First
05aa e5fe | | Load 0x2,-0x2
05ab 01dd | | Execute Vector,First
05ac 6073 |`s | Indirect_Literal Discrete,0x620,{0x00000000, 0x00000400}
05ad 0273 | s | Execute Discrete,Plus
05ae 0aff | | Execute_Immediate Plus,-0x1
05af 00d8 | | Load_Top At_Offset_0
05b0 00e2 | | Load_Encached Integer_Cache
05b1 0260 | ` | Execute Discrete,In_Type
05b2 7001 |p | Jump_Nonzero 0x5b4
05b3 0801 | | Execute_Immediate Raise,0x1
05b4 00da | | Load_Top At_Offset_2
05b5 035b | [ | Declare_Type Array,Constrained
05b6 00d0 | | Action Swap_Control
05b7 01cd | | Execute Vector,Slice_Reference
05b8 00d8 | | Load_Top At_Offset_0
05b9 00da | | Load_Top At_Offset_2
05ba e5ff | | Load 0x2,-0x1
05bb 0217 | | Execute Heap_Access,All_Reference
05bc 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
05bd 801a | | Call 0x0,0x1a
05be 00d3 | | Pop_Control Pop_Count_3
05bf 4801 |H | Short_Literal 0x1
05c0 0092 0b1d | | Action Push_String_Extended,0xb1d ; "Read File Record"
05c2 00da | | Load_Top At_Offset_2
05c3 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
05c4 e246 | F | Load 0x1,0x46
05c5 e247 | G | Load 0x1,0x47
05c6 1d48 | H | Execute_Immediate Reference_Lex_1,0x48
05c7 1d49 | I | Execute_Immediate Reference_Lex_1,0x49
05c8 823a | : | Call 0x1,0x3a
05c9 00db | | Load_Top At_Offset_3
05ca 0217 | | Execute Heap_Access,All_Reference
05cb 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
05cc 00d9 | | Load_Top At_Offset_1
05cd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05ce 027c | | | Execute Discrete,Less
05cf 6809 |h | Jump_Zero 0x5d9
05d0 00db | | Load_Top At_Offset_3
05d1 0217 | | Execute Heap_Access,All_Reference
05d2 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
05d3 c5fd | | Store 0x2,-0x3
05d4 4800 |H | Short_Literal 0x0
05d5 e5ff | | Load 0x2,-0x1
05d6 0217 | | Execute Heap_Access,All_Reference
05d7 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
05d8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05d9 00d8 | | Load_Top At_Offset_0
05da 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05db a5fd | | Store_Unchecked 0x2,-0x3
05dc 00db | | Load_Top At_Offset_3
05dd 0217 | | Execute Heap_Access,All_Reference
05de 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
05df 00d9 | | Load_Top At_Offset_1
05e0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05e1 0272 | r | Execute Discrete,Minus
05e2 e5ff | | Load 0x2,-0x1
05e3 0217 | | Execute Heap_Access,All_Reference
05e4 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
05e5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05e6 00db | | Load_Top At_Offset_3
05e7 0219 | | Execute Heap_Access,All_Read
05e8 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
05e9 00d8 | | Load_Top At_Offset_0
05ea 00da | | Load_Top At_Offset_2
05eb e5ff | | Load 0x2,-0x1
05ec 0217 | | Execute Heap_Access,All_Reference
05ed 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
05ee 801a | | Call 0x0,0x1a
05ef 00d3 | | Pop_Control Pop_Count_3
05f0 4801 |H | Short_Literal 0x1
05f1 0092 0b1e | | Action Push_String_Extended,0xb1e ; "Read_File_Record"
05f3 00da | | Load_Top At_Offset_2
05f4 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
05f5 e246 | F | Load 0x1,0x46
05f6 e247 | G | Load 0x1,0x47
05f7 1d48 | H | Execute_Immediate Reference_Lex_1,0x48
05f8 1d49 | I | Execute_Immediate Reference_Lex_1,0x49
05f9 823a | : | Call 0x1,0x3a
05fa 00d8 | | Load_Top At_Offset_0
05fb 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05fc e5ff | | Load 0x2,-0x1
05fd 0217 | | Execute Heap_Access,All_Reference
05fe 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
05ff 00db | | Load_Top At_Offset_3
0600 0217 | | Execute Heap_Access,All_Reference
0601 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0602 e5ff | | Load 0x2,-0x1
0603 0217 | | Execute Heap_Access,All_Reference
0604 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0605 027c | | | Execute Discrete,Less
0606 6806 |h | Jump_Zero 0x60d
0607 00db | | Load_Top At_Offset_3
0608 0217 | | Execute Heap_Access,All_Reference
0609 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
060a e5ff | | Load 0x2,-0x1
060b 0217 | | Execute Heap_Access,All_Reference
060c 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
060d 00db | | Load_Top At_Offset_3
060e 0217 | | Execute Heap_Access,All_Reference
060f 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0610 e5ff | | Load 0x2,-0x1
0611 0217 | | Execute Heap_Access,All_Reference
0612 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0613 0272 | r | Execute Discrete,Minus
0614 e5ff | | Load 0x2,-0x1
0615 0217 | | Execute Heap_Access,All_Reference
0616 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0617 00e3 | | Load_Encached Natural_Cache
0618 e5fe | | Load 0x2,-0x2
0619 e5ff | | Load 0x2,-0x1
061a 8222 | " | Call 0x1,0x22
061b 00d1 | | Pop_Control Pop_Count_1
061c c5fd | | Store 0x2,-0x3
061d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
061e 0000 0000 | | .XXX[0x2]
0620 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
0624 0000 0000 | | .BLANK 0000[0x4]
0628 ; --------------------------------------------------------------------------------------
0628 ; SUBPROGRAM
0628 ; --------------------------------------------------------------------------------------
0628 0632 | 2 | .CONST 0x0632 ; Address of begin
0629 0004 | | .CONST 0x0004 ; Address of exception handler
062a 0003 | | .CONST 0x0003 ; Number of locals
062b INIT_0628:
062b 00db | | Load_Top At_Offset_3
062c 01da | | Execute Vector,Bounds
062d e004 | | Load 0x0,0x4
062e 1b12 | | Execute Package,Field_Read,Field_Number 0x12
062f 035b | [ | Declare_Type Array,Constrained
0630 0337 | 7 | Declare_Variable Array
0631 00e2 | | Load_Encached Integer_Cache
0632 BODY_0628:
0632 00e3 | | Load_Encached Natural_Cache
0633 00da | | Load_Top At_Offset_2
0634 e5ff | | Load 0x2,-0x1
0635 8222 | " | Call 0x1,0x22
0636 00d1 | | Pop_Control Pop_Count_1
0637 0059 | Y | Store_Top Discrete,At_Offset_1
0638 00d9 | | Load_Top At_Offset_1
0639 01dd | | Execute Vector,First
063a 00da | | Load_Top At_Offset_2
063b 01dd | | Execute Vector,First
063c 00da | | Load_Top At_Offset_2
063d 0273 | s | Execute Discrete,Plus
063e 0aff | | 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 00db | | Load_Top At_Offset_3
0645 01cf | | Execute Vector,Slice_Read
0646 e00f | | Load 0x0,0xf
0647 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0648 e5fe | | Load 0x2,-0x2
0649 01dd | | Execute Vector,First
064a e5fe | | Load 0x2,-0x2
064b 01dd | | Execute Vector,First
064c 00db | | Load_Top At_Offset_3
064d 0273 | s | Execute Discrete,Plus
064e 0aff | | Execute_Immediate Plus,-0x1
064f 00d8 | | Load_Top At_Offset_0
0650 00e2 | | Load_Encached Integer_Cache
0651 0260 | ` | Execute Discrete,In_Type
0652 7001 |p | Jump_Nonzero 0x654
0653 0801 | | Execute_Immediate Raise,0x1
0654 e5fe | | Load 0x2,-0x2
0655 01ce | | Execute Vector,Slice_Write
0656 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0657 0000 | | .XXX[0x1]
0658 ; --------------------------------------------------------------------------------------
0658 ; SUBPROGRAM
0658 ; --------------------------------------------------------------------------------------
0658 0665 | e | .CONST 0x0665 ; Address of begin
0659 0004 | | .CONST 0x0004 ; Address of exception handler
065a 0004 | | .CONST 0x0004 ; Number of locals
065b INIT_0658:
065b 00da | | Load_Top At_Offset_2
065c 0217 | | Execute Heap_Access,All_Reference
065d 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
065e 00e2 | | Load_Encached Integer_Cache
065f 03f1 | | Declare_Variable Discrete,With_Value
0660 e008 | | Load 0x0,0x8
0661 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0662 0322 | " | Declare_Variable Record
0663 029f 0ab3 | | Declare_Subprogram INIT_0ab0,For_Call
0665 BODY_0658:
0665 00da | | Load_Top At_Offset_2
0666 7027 |p' | Jump_Nonzero 0x68e
0667 e5ff | | Load 0x2,-0x1
0668 0217 | | Execute Heap_Access,All_Reference
0669 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
066a 7002 |p | Jump_Nonzero 0x66d
066b 4950 |IP | Short_Literal 0x150
066c 0257 | W | Execute Discrete,Raise
066d e5ff | | Load 0x2,-0x1
066e 0219 | | Execute Heap_Access,All_Read
066f 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0670 00d8 | | Load_Top At_Offset_0
0671 00db | | Load_Top At_Offset_3
0672 e5ff | | Load 0x2,-0x1
0673 0217 | | Execute Heap_Access,All_Reference
0674 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0675 801a | | Call 0x0,0x1a
0676 00d3 | | Pop_Control Pop_Count_3
0677 e5ff | | Load 0x2,-0x1
0678 0217 | | Execute Heap_Access,All_Reference
0679 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
067a 00da | | Load_Top At_Offset_2
067b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
067c 027c | | | Execute Discrete,Less
067d 6805 |h | Jump_Zero 0x683
067e e5ff | | Load 0x2,-0x1
067f 0217 | | Execute Heap_Access,All_Reference
0680 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0681 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0682 7803 |x | Jump 0x686
0683 00d9 | | Load_Top At_Offset_1
0684 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0685 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0686 e5ff | | Load 0x2,-0x1
0687 0217 | | Execute Heap_Access,All_Reference
0688 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0689 00db | | Load_Top At_Offset_3
068a 0272 | r | Execute Discrete,Minus
068b e5ff | | Load 0x2,-0x1
068c 0217 | | Execute Heap_Access,All_Reference
068d 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
068e 00cf | | Action Mark_Auxiliary
068f 00db | | Load_Top At_Offset_3
0690 4801 |H | Short_Literal 0x1
0691 0263 | c | Execute Discrete,Above_Bound
0692 700a |p | Jump_Nonzero 0x69d
0693 00d8 | | Load_Top At_Offset_0
0694 e5ff | | Load 0x2,-0x1
0695 0217 | | Execute Heap_Access,All_Reference
0696 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0697 01d7 | | Execute Vector,Field_Read
0698 0f0a | | Execute_Immediate Equal,0xa
0699 6801 |h | Jump_Zero 0x69b
069a 8404 | | Call 0x2,0x4
069b 00c8 | | Action Pop_Auxiliary_Range
069c 3ff6 |? | Loop_Increasing 0x693
069d 00ce | | Action Pop_Auxiliary
069e 4800 |H | Short_Literal 0x0
069f e5ff | | Load 0x2,-0x1
06a0 0217 | | Execute Heap_Access,All_Reference
06a1 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
06a2 4801 |H | Short_Literal 0x1
06a3 00db | | Load_Top At_Offset_3
06a4 e5ff | | Load 0x2,-0x1
06a5 0217 | | Execute Heap_Access,All_Reference
06a6 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
06a7 01cf | | Execute Vector,Slice_Read
06a8 e00f | | Load 0x0,0xf
06a9 1811 | | Execute Package,Field_Execute,Field_Number 0x11
06aa e5ff | | Load 0x2,-0x1
06ab 8224 | $ | Call 0x1,0x24
06ac 01cc | | Execute Vector,Catenate
06ad 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06ae 0000 0000 | | .XXX[0x2]
06b0 ; --------------------------------------------------------------------------------------
06b0 ; SUBPROGRAM
06b0 ; --------------------------------------------------------------------------------------
06b0 06c3 | | .CONST 0x06c3 ; Address of begin
06b1 0004 | | .CONST 0x0004 ; Address of exception handler
06b2 0004 | | .CONST 0x0004 ; Number of locals
06b3 INIT_06b0:
06b3 00da | | Load_Top At_Offset_2
06b4 0217 | | Execute Heap_Access,All_Reference
06b5 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
06b6 e5fe | | Load 0x2,-0x2
06b7 01db | | Execute Vector,Length
06b8 0273 | s | Execute Discrete,Plus
06b9 00e2 | | Load_Encached Integer_Cache
06ba 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
06bb e008 | | Load 0x0,0x8
06bc 1b14 | | Execute Package,Field_Read,Field_Number 0x14
06bd 0322 | " | Declare_Variable Record
06be e5ff | | Load 0x2,-0x1
06bf 0217 | | Execute Heap_Access,All_Reference
06c0 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
06c1 00e2 | | Load_Encached Integer_Cache
06c2 03f1 | | Declare_Variable Discrete,With_Value
06c3 BODY_06b0:
06c3 00d8 | | Load_Top At_Offset_0
06c4 0c01 | | Execute_Immediate Greater_Equal,0x1
06c5 680f |h | Jump_Zero 0x6d5
06c6 4800 |H | Short_Literal 0x0
06c7 e5ff | | Load 0x2,-0x1
06c8 0217 | | Execute Heap_Access,All_Reference
06c9 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
06ca 4801 |H | Short_Literal 0x1
06cb 00d9 | | Load_Top At_Offset_1
06cc e5ff | | Load 0x2,-0x1
06cd 0217 | | Execute Heap_Access,All_Reference
06ce 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
06cf 01cf | | Execute Vector,Slice_Read
06d0 e5fe | | Load 0x2,-0x2
06d1 01cc | | Execute Vector,Catenate
06d2 e5ff | | Load 0x2,-0x1
06d3 8225 | % | Call 0x1,0x25
06d4 4503 |E | Exit_Suprogram New_Top_Offset 0x3
06d5 e5fe | | Load 0x2,-0x2
06d6 01db | | Execute Vector,Length
06d7 e5ff | | Load 0x2,-0x1
06d8 0217 | | Execute Heap_Access,All_Reference
06d9 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
06da 027d | } | Execute Discrete,Greater
06db 6802 |h | Jump_Zero 0x6de
06dc 4950 |IP | Short_Literal 0x150
06dd 0257 | W | Execute Discrete,Raise
06de e5fe | | Load 0x2,-0x2
06df 01db | | Execute Vector,Length
06e0 609f |` | Indirect_Literal Discrete,0x780,{0x00000000, 0x00000400}
06e1 027f | | Execute Discrete,Equal
06e2 681a |h | Jump_Zero 0x6fd
06e3 00d9 | | Load_Top At_Offset_1
06e4 e5fe | | Load 0x2,-0x2
06e5 e5ff | | Load 0x2,-0x1
06e6 0217 | | Execute Heap_Access,All_Reference
06e7 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
06e8 8019 | | Call 0x0,0x19
06e9 00d1 | | Pop_Control Pop_Count_1
06ea 4801 |H | Short_Literal 0x1
06eb 0092 0b1f | | Action Push_String_Extended,0xb1f ; "Write Data Block"
06ed 00db | | Load_Top At_Offset_3
06ee 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
06ef e246 | F | Load 0x1,0x46
06f0 e247 | G | Load 0x1,0x47
06f1 1d48 | H | Execute_Immediate Reference_Lex_1,0x48
06f2 1d49 | I | Execute_Immediate Reference_Lex_1,0x49
06f3 823a | : | Call 0x1,0x3a
06f4 e5ff | | Load 0x2,-0x1
06f5 0217 | | Execute Heap_Access,All_Reference
06f6 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
06f7 4c00 |L | Short_Literal -0x400
06f8 0273 | s | Execute Discrete,Plus
06f9 e5ff | | Load 0x2,-0x1
06fa 0217 | | Execute Heap_Access,All_Reference
06fb 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
06fc 4503 |E | Exit_Suprogram New_Top_Offset 0x3
06fd e5fe | | Load 0x2,-0x2
06fe 01db | | Execute Vector,Length
06ff 6080 |` | Indirect_Literal Discrete,0x780,{0x00000000, 0x00000400}
0700 027d | } | Execute Discrete,Greater
0701 6836 |h6 | Jump_Zero 0x738
0702 00d9 | | Load_Top At_Offset_1
0703 e5fe | | Load 0x2,-0x2
0704 01dd | | Execute Vector,First
0705 e5fe | | Load 0x2,-0x2
0706 01dd | | Execute Vector,First
0707 6078 |`x | Indirect_Literal Discrete,0x780,{0x00000000, 0x00000400}
0708 0273 | s | Execute Discrete,Plus
0709 0aff | | Execute_Immediate Plus,-0x1
070a 00d8 | | Load_Top At_Offset_0
070b 00e2 | | Load_Encached Integer_Cache
070c 0260 | ` | Execute Discrete,In_Type
070d 7001 |p | Jump_Nonzero 0x70f
070e 0801 | | Execute_Immediate Raise,0x1
070f e5fe | | Load 0x2,-0x2
0710 01cf | | Execute Vector,Slice_Read
0711 e5ff | | Load 0x2,-0x1
0712 0217 | | Execute Heap_Access,All_Reference
0713 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0714 8019 | | Call 0x0,0x19
0715 00d1 | | Pop_Control Pop_Count_1
0716 4801 |H | Short_Literal 0x1
0717 0092 0b1f | | Action Push_String_Extended,0xb1f ; "Write Data Block"
0719 00db | | Load_Top At_Offset_3
071a 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
071b e246 | F | Load 0x1,0x46
071c e247 | G | Load 0x1,0x47
071d 1d48 | H | Execute_Immediate Reference_Lex_1,0x48
071e 1d49 | I | Execute_Immediate Reference_Lex_1,0x49
071f 823a | : | Call 0x1,0x3a
0720 e5ff | | Load 0x2,-0x1
0721 0217 | | Execute Heap_Access,All_Reference
0722 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0723 4c00 |L | Short_Literal -0x400
0724 0273 | s | Execute Discrete,Plus
0725 e5ff | | Load 0x2,-0x1
0726 0217 | | Execute Heap_Access,All_Reference
0727 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0728 e5fe | | Load 0x2,-0x2
0729 01dd | | Execute Vector,First
072a 6055 |`U | Indirect_Literal Discrete,0x780,{0x00000000, 0x00000400}
072b 0273 | s | Execute Discrete,Plus
072c 00d8 | | Load_Top At_Offset_0
072d 00e2 | | Load_Encached Integer_Cache
072e 0260 | ` | Execute Discrete,In_Type
072f 7001 |p | Jump_Nonzero 0x731
0730 0801 | | Execute_Immediate Raise,0x1
0731 e5fe | | Load 0x2,-0x2
0732 01dc | | Execute Vector,Last
0733 e5fe | | Load 0x2,-0x2
0734 01cf | | Execute Vector,Slice_Read
0735 e5ff | | Load 0x2,-0x1
0736 8225 | % | Call 0x1,0x25
0737 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0738 e5fe | | Load 0x2,-0x2
0739 01db | | Execute Vector,Length
073a e5ff | | Load 0x2,-0x1
073b 0217 | | Execute Heap_Access,All_Reference
073c 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
073d 027f | | Execute Discrete,Equal
073e 682e |h. | Jump_Zero 0x76d
073f 00d9 | | Load_Top At_Offset_1
0740 e5fe | | Load 0x2,-0x2
0741 00d8 | | Load_Top At_Offset_0
0742 01db | | Execute Vector,Length
0743 0a01 | | Execute_Immediate Plus,0x1
0744 603b |`; | Indirect_Literal Discrete,0x780,{0x00000000, 0x00000400}
0745 e004 | | Load 0x0,0x4
0746 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0747 035b | [ | Declare_Type Array,Constrained
0748 0337 | 7 | Declare_Variable Array
0749 6036 |`6 | Indirect_Literal Discrete,0x780,{0x00000000, 0x00000400}
074a 00d9 | | Load_Top At_Offset_1
074b 01dd | | Execute Vector,First
074c 0263 | c | Execute Discrete,Above_Bound
074d 7005 |p | Jump_Nonzero 0x753
074e 4800 |H | Short_Literal 0x0
074f 00d9 | | Load_Top At_Offset_1
0750 e407 | | Load 0x2,0x7
0751 01d6 | | Execute Vector,Field_Write
0752 3ffb |? | Loop_Increasing 0x74e
0753 01cc | | Execute Vector,Catenate
0754 e5ff | | Load 0x2,-0x1
0755 0217 | | Execute Heap_Access,All_Reference
0756 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0757 8019 | | Call 0x0,0x19
0758 00d1 | | Pop_Control Pop_Count_1
0759 4801 |H | Short_Literal 0x1
075a 0092 0b1f | | Action Push_String_Extended,0xb1f ; "Write Data Block"
075c 00db | | Load_Top At_Offset_3
075d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
075e e246 | F | Load 0x1,0x46
075f e247 | G | Load 0x1,0x47
0760 1d48 | H | Execute_Immediate Reference_Lex_1,0x48
0761 1d49 | I | Execute_Immediate Reference_Lex_1,0x49
0762 823a | : | Call 0x1,0x3a
0763 e5ff | | Load 0x2,-0x1
0764 0217 | | Execute Heap_Access,All_Reference
0765 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0766 e5fe | | Load 0x2,-0x2
0767 01db | | Execute Vector,Length
0768 0272 | r | Execute Discrete,Minus
0769 e5ff | | Load 0x2,-0x1
076a 0217 | | Execute Heap_Access,All_Reference
076b 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
076c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
076d e5fe | | Load 0x2,-0x2
076e 4801 |H | Short_Literal 0x1
076f e5fe | | Load 0x2,-0x2
0770 01db | | Execute Vector,Length
0771 00d8 | | Load_Top At_Offset_0
0772 00e2 | | Load_Encached Integer_Cache
0773 0260 | ` | Execute Discrete,In_Type
0774 7001 |p | Jump_Nonzero 0x776
0775 0801 | | Execute_Immediate Raise,0x1
0776 e5ff | | Load 0x2,-0x1
0777 0219 | | Execute Heap_Access,All_Read
0778 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0779 01ce | | Execute Vector,Slice_Write
077a e5fe | | Load 0x2,-0x2
077b 01db | | Execute Vector,Length
077c e5ff | | Load 0x2,-0x1
077d 0217 | | Execute Heap_Access,All_Reference
077e 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
077f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0780 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
0784 0000 0000 | | .BLANK 0000[0x4]
0788 ; --------------------------------------------------------------------------------------
0788 ; SUBPROGRAM
0788 ; --------------------------------------------------------------------------------------
0788 078b | | .CONST 0x078b ; Address of begin
0789 0004 | | .CONST 0x0004 ; Address of exception handler
078a 0001 | | .CONST 0x0001 ; Number of locals
078b BODY_0788:
078b INIT_0788:
078b 00db | | Load_Top At_Offset_3
078c e00f | | Load 0x0,0xf
078d 180f | | Execute Package,Field_Execute,Field_Number 0xf
078e 00db | | Load_Top At_Offset_3
078f 8225 | % | Call 0x1,0x25
0790 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0791 0000 0000 | | .BLANK 0000[0x7]
0798 ; --------------------------------------------------------------------------------------
0798 ; SUBPROGRAM
0798 ; --------------------------------------------------------------------------------------
0798 079e | | .CONST 0x079e ; Address of begin
0799 0004 | | .CONST 0x0004 ; Address of exception handler
079a 0002 | | .CONST 0x0002 ; Number of locals
079b INIT_0798:
079b e008 | | Load 0x0,0x8
079c 1b14 | | Execute Package,Field_Read,Field_Number 0x14
079d 0322 | " | Declare_Variable Record
079e BODY_0798:
079e 00d8 | | Load_Top At_Offset_0
079f e5ff | | Load 0x2,-0x1
07a0 0217 | | Execute Heap_Access,All_Reference
07a1 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
07a2 8015 | | Call 0x0,0x15
07a3 00d1 | | Pop_Control Pop_Count_1
07a4 4801 |H | Short_Literal 0x1
07a5 0092 0b18 | | Action Push_String_Extended,0xb18 ; "End Streaming Write"
07a7 00da | | Load_Top At_Offset_2
07a8 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
07a9 e246 | F | Load 0x1,0x46
07aa e247 | G | Load 0x1,0x47
07ab 1d48 | H | Execute_Immediate Reference_Lex_1,0x48
07ac 1d49 | I | Execute_Immediate Reference_Lex_1,0x49
07ad 823a | : | Call 0x1,0x3a
07ae 00cf | | Action Mark_Auxiliary
07af e5fe | | Load 0x2,-0x2
07b0 4801 |H | Short_Literal 0x1
07b1 0263 | c | Execute Discrete,Above_Bound
07b2 7012 |p | Jump_Nonzero 0x7c5
07b3 00db | | Load_Top At_Offset_3
07b4 e5ff | | Load 0x2,-0x1
07b5 0217 | | Execute Heap_Access,All_Reference
07b6 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
07b7 8016 | | Call 0x0,0x16
07b8 00d1 | | Pop_Control Pop_Count_1
07b9 4801 |H | Short_Literal 0x1
07ba 0092 0b19 | | Action Push_String_Extended,0xb19 ; "Write Tape Mark (end of tape)"
07bc e402 | | Load 0x2,0x2
07bd 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
07be e246 | F | Load 0x1,0x46
07bf e247 | G | Load 0x1,0x47
07c0 1d48 | H | Execute_Immediate Reference_Lex_1,0x48
07c1 1d49 | I | Execute_Immediate Reference_Lex_1,0x49
07c2 823a | : | Call 0x1,0x3a
07c3 00c8 | | Action Pop_Auxiliary_Range
07c4 3fee |? | Loop_Increasing 0x7b3
07c5 00ce | | Action Pop_Auxiliary
07c6 00d8 | | Load_Top At_Offset_0
07c7 4804 |H | Short_Literal 0x4
07c8 6013 |` | Indirect_Literal Discrete,0x7dc,{0x00000000, 0x00000400}
07c9 e5ff | | Load 0x2,-0x1
07ca 0217 | | Execute Heap_Access,All_Reference
07cb 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
07cc 8014 | | Call 0x0,0x14
07cd 00d1 | | Pop_Control Pop_Count_1
07ce 4801 |H | Short_Literal 0x1
07cf 0092 0b13 | | Action Push_String_Extended,0xb13 ; "Begin Streaming Write"
07d1 00da | | Load_Top At_Offset_2
07d2 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
07d3 e246 | F | Load 0x1,0x46
07d4 e247 | G | Load 0x1,0x47
07d5 1d48 | H | Execute_Immediate Reference_Lex_1,0x48
07d6 1d49 | I | Execute_Immediate Reference_Lex_1,0x49
07d7 823a | : | Call 0x1,0x3a
07d8 4503 |E | Exit_Suprogram New_Top_Offset 0x3
07d9 0000 0000 | | .XXX[0x3]
07db 0000 | |
07dc 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
07e0 ; --------------------------------------------------------------------------------------
07e0 ; SUBPROGRAM
07e0 ; --------------------------------------------------------------------------------------
07e0 07e3 | | .CONST 0x07e3 ; Address of begin
07e1 0004 | | .CONST 0x0004 ; Address of exception handler
07e2 0001 | | .CONST 0x0001 ; Number of locals
07e3 BODY_07e0:
07e3 INIT_07e0:
07e3 4601 |F | Jump_Case 0x2
07e4 7801 |x | Jump 0x7e6 ; case 0x0
07e5 780d |x | Jump 0x7f3 ; case 0x1
07e6 00da | | Load_Top At_Offset_2
07e7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
07e8 0125 | % | Execute Any,Set_Constraint
07e9 00da | | Load_Top At_Offset_2
07ea 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
07eb 1c00 | | Execute_Immediate Run_Utility,0x0
07ec 00da | | Load_Top At_Offset_2
07ed 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
07ee 1c00 | | Execute_Immediate Run_Utility,0x0
07ef 00da | | Load_Top At_Offset_2
07f0 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
07f1 1c00 | | Execute_Immediate Run_Utility,0x0
07f2 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
07f3 00da | | Load_Top At_Offset_2
07f4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
07f5 0125 | % | Execute Any,Set_Constraint
07f6 00da | | Load_Top At_Offset_2
07f7 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
07f8 1c01 | | Execute_Immediate Run_Utility,0x1
07f9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
07fa 0000 0000 | | .BLANK 0000[0x6]
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 e5fb | | Load 0x2,-0x5
0804 0092 0b20 | | Action Push_String_Extended,0xb20 ; "Error from "
0806 e5fc | | Load 0x2,-0x4
0807 01cc | | Execute Vector,Catenate
0808 0092 0b21 | !| Action Push_String_Extended,0xb21 ; ": "
080a 01cc | | Execute Vector,Catenate
080b e5fd | | Load 0x2,-0x3
080c e5fe | | Load 0x2,-0x2
080d 1c04 | | Execute_Immediate Run_Utility,0x4
080e e5fe | | Load 0x2,-0x2
080f 0122 | " | Execute Any,Make_Root_Type
0810 011c | | Execute Any,Convert_Unchecked
0811 1c01 | | Execute_Immediate Run_Utility,0x1
0812 01cc | | Execute Vector,Catenate
0813 823b | ; | Call 0x1,0x3b
0814 4506 |E | Exit_Suprogram New_Top_Offset 0x6
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 e5fb | | Load 0x2,-0x5
081c e5fd | | Load 0x2,-0x3
081d 027e | ~ | Execute Discrete,Not_Equal
081e 6804 |h | Jump_Zero 0x823
081f e5f9 | | Load 0x2,-0x7
0820 e5fa | | Load 0x2,-0x6
0821 e5fb | | Load 0x2,-0x5
0822 85fe | | Call 0x2,-0x2
0823 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0824 0000 0000 | | .BLANK 0000[0x4]
0828 ; --------------------------------------------------------------------------------------
0828 ; SUBPROGRAM
0828 ; --------------------------------------------------------------------------------------
0828 082b | + | .CONST 0x082b ; Address of begin
0829 0004 | | .CONST 0x0004 ; Address of exception handler
082a 0001 | | .CONST 0x0001 ; Number of locals
082b BODY_0828:
082b INIT_0828:
082b e01b | | Load 0x0,0x1b
082c 180e | | Execute Package,Field_Execute,Field_Number 0xe
082d 4807 |H | Short_Literal 0x7
082e e5ff | | Load 0x2,-0x1
082f e01c | | Load 0x0,0x1c
0830 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0831 00db | | Load_Top At_Offset_3
0832 6809 |h | Jump_Zero 0x83c
0833 e01b | | Load 0x0,0x1b
0834 180e | | Execute Package,Field_Execute,Field_Number 0xe
0835 4805 |H | Short_Literal 0x5
0836 0092 0b22 | "| Action Push_String_Extended,0xb22 ; "Processing Stopped"
0838 e01c | | Load 0x0,0x1c
0839 1813 | | Execute Package,Field_Execute,Field_Number 0x13
083a e238 | 8 | Load 0x1,0x38
083b 0257 | W | Execute Discrete,Raise
083c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
083d 0000 0000 | | .XXX[0x3]
083f 0000 | |
0840 ; --------------------------------------------------------------------------------------
0840 ; SUBPROGRAM
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 BODY_0840:
0843 INIT_0840:
0843 INIT_0840:
0843 4607 |F | Jump_Case 0x8
0844 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0845 7807 |x | Jump 0x84d ; case 0x1
0846 780a |x | Jump 0x851 ; case 0x2
0847 780e |x | Jump 0x856 ; case 0x3
0848 7811 |x | Jump 0x85a ; case 0x4
0849 7812 |x | Jump 0x85c ; case 0x5
084a 7813 |x | Jump 0x85e ; case 0x6
084b 7817 |x | Jump 0x863 ; case 0x7
084c 4302 |C | .XXX[0x1]
084d 00da | | Load_Top At_Offset_2
084e 0091 0afc | | Action Push_String_Extended_Indexed,0xafc ; "SUCCESSFUL"
0850 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0851 00db | | Load_Top At_Offset_3
0852 00db | | Load_Top At_Offset_3
0853 00e0 | | Load_Encached Standard_Cache
0854 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0855 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0856 00da | | Load_Top At_Offset_2
0857 00e0 | | Load_Encached Standard_Cache
0858 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0859 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
085a 00db | | Load_Top At_Offset_3
085b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
085c 00db | | Load_Top At_Offset_3
085d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
085e e008 | | Load 0x0,0x8
085f 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0860 00dc | | Load_Top At_Offset_4
0861 0267 | g | Execute Discrete,Predecessor
0862 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0863 e008 | | Load 0x0,0x8
0864 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0865 00dc | | Load_Top At_Offset_4
0866 0268 | h | Execute Discrete,Successor
0867 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
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 4607 |F | Jump_Case 0x8
086c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
086d 7807 |x | Jump 0x875 ; case 0x1
086e 780a |x | Jump 0x879 ; case 0x2
086f 780e |x | Jump 0x87e ; case 0x3
0870 7811 |x | Jump 0x882 ; case 0x4
0871 7812 |x | Jump 0x884 ; case 0x5
0872 7813 |x | Jump 0x886 ; case 0x6
0873 7817 |x | Jump 0x88b ; case 0x7
0874 4302 |C | .XXX[0x1]
0875 00da | | Load_Top At_Offset_2
0876 0091 0b0b | | Action Push_String_Extended_Indexed,0xb0b ; "SUCCESSFUL"
0878 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0879 00db | | Load_Top At_Offset_3
087a 00db | | Load_Top At_Offset_3
087b 00e0 | | Load_Encached Standard_Cache
087c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
087d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
087e 00da | | Load_Top At_Offset_2
087f 00e0 | | Load_Encached Standard_Cache
0880 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0881 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0882 00db | | Load_Top At_Offset_3
0883 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0884 00db | | Load_Top At_Offset_3
0885 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0886 e008 | | Load 0x0,0x8
0887 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0888 00dc | | Load_Top At_Offset_4
0889 0267 | g | Execute Discrete,Predecessor
088a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
088b e008 | | Load 0x0,0x8
088c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
088d 00dc | | Load_Top At_Offset_4
088e 0268 | h | Execute Discrete,Successor
088f 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0890 ; --------------------------------------------------------------------------------------
0890 ; SUBPROGRAM
0890 ; SUBPROGRAM
0890 ; --------------------------------------------------------------------------------------
0890 0893 | | .CONST 0x0893 ; Address of begin
0891 0004 | | .CONST 0x0004 ; Address of exception handler
0892 0001 | | .CONST 0x0001 ; Number of locals
0893 BODY_0890:
0893 BODY_0890:
0893 INIT_0890:
0893 INIT_0890:
0893 4607 |F | Jump_Case 0x8
0894 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0895 7807 |x | Jump 0x89d ; case 0x1
0896 780a |x | Jump 0x8a1 ; case 0x2
0897 780e |x | Jump 0x8a6 ; case 0x3
0898 7811 |x | Jump 0x8aa ; case 0x4
0899 7812 |x | Jump 0x8ac ; case 0x5
089a 7813 |x | Jump 0x8ae ; case 0x6
089b 7817 |x | Jump 0x8b3 ; case 0x7
089c 4302 |C | .XXX[0x1]
089d 00da | | Load_Top At_Offset_2
089e 0091 0b10 | | Action Push_String_Extended_Indexed,0xb10 ; "SUCCESSFUL"
08a0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
08a1 00db | | Load_Top At_Offset_3
08a2 00db | | Load_Top At_Offset_3
08a3 00e0 | | Load_Encached Standard_Cache
08a4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
08a5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
08a6 00da | | Load_Top At_Offset_2
08a7 00e0 | | Load_Encached Standard_Cache
08a8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
08a9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
08aa 00db | | Load_Top At_Offset_3
08ab 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
08ac 00db | | Load_Top At_Offset_3
08ad 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
08ae e008 | | Load 0x0,0x8
08af 1b10 | | Execute Package,Field_Read,Field_Number 0x10
08b0 00dc | | Load_Top At_Offset_4
08b1 0267 | g | Execute Discrete,Predecessor
08b2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
08b3 e008 | | Load 0x0,0x8
08b4 1b10 | | Execute Package,Field_Read,Field_Number 0x10
08b5 00dc | | Load_Top At_Offset_4
08b6 0268 | h | Execute Discrete,Successor
08b7 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
08b8 ; --------------------------------------------------------------------------------------
08b8 ; SUBPROGRAM
08b8 ; --------------------------------------------------------------------------------------
08b8 08bb | | .CONST 0x08bb ; Address of begin
08b9 0004 | | .CONST 0x0004 ; Address of exception handler
08ba 0001 | | .CONST 0x0001 ; Number of locals
08bb BODY_08b8:
08bb INIT_08b8:
08bb e5fd | | Load 0x2,-0x3
08bc e5fe | | Load 0x2,-0x2
08bd e5ff | | Load 0x2,-0x1
08be e23c | < | Load 0x1,0x3c
08bf 1d3d | = | Execute_Immediate Reference_Lex_1,0x3d
08c0 8239 | 9 | Call 0x1,0x39
08c1 4504 |E | Exit_Suprogram New_Top_Offset 0x4
08c2 0000 0000 | | .BLANK 0000[0x6]
08c8 ; --------------------------------------------------------------------------------------
08c8 ; SUBPROGRAM
08c8 ; --------------------------------------------------------------------------------------
08c8 08cb | | .CONST 0x08cb ; Address of begin
08c9 0004 | | .CONST 0x0004 ; Address of exception handler
08ca 0001 | | .CONST 0x0001 ; Number of locals
08cb BODY_08c8:
08cb INIT_08c8:
08cb e5fd | | Load 0x2,-0x3
08cc e5fe | | Load 0x2,-0x2
08cd e5ff | | Load 0x2,-0x1
08ce e242 | B | Load 0x1,0x42
08cf 1d43 | C | Execute_Immediate Reference_Lex_1,0x43
08d0 8239 | 9 | Call 0x1,0x39
08d1 4504 |E | Exit_Suprogram New_Top_Offset 0x4
08d2 0000 0000 | | .BLANK 0000[0x6]
08d8 ; --------------------------------------------------------------------------------------
08d8 ; SUBPROGRAM
08d8 ; --------------------------------------------------------------------------------------
08d8 08db | | .CONST 0x08db ; Address of begin
08d9 0004 | | .CONST 0x0004 ; Address of exception handler
08da 0001 | | .CONST 0x0001 ; Number of locals
08db BODY_08d8:
08db INIT_08d8:
08db e01b | | Load 0x0,0x1b
08dc 180e | | Execute Package,Field_Execute,Field_Number 0xe
08dd 4808 |H | Short_Literal 0x8
08de 4822 |H" | Short_Literal 0x22
08df e5ff | | Load 0x2,-0x1
08e0 0092 0b23 | #| Action Push_String_Extended,0xb23 ; " raised trying to "
08e2 01cc | | Execute Vector,Catenate
08e3 e5fe | | Load 0x2,-0x2
08e4 01cc | | Execute Vector,Catenate
08e5 01cb | | Execute Vector,Append
08e6 e5fd | | Load 0x2,-0x3
08e7 01cc | | Execute Vector,Catenate
08e8 0092 0b24 | $| Action Push_String_Extended,0xb24 ; "\x22."
08ea 01cc | | Execute Vector,Catenate
08eb e01c | | Load 0x0,0x1c
08ec 1813 | | Execute Package,Field_Execute,Field_Number 0x13
08ed 4504 |E | Exit_Suprogram New_Top_Offset 0x4
08ee 0000 0000 | | .XXX[0x2]
08f0 ; --------------------------------------------------------------------------------------
08f0 ; SUBPROGRAM
08f0 ; --------------------------------------------------------------------------------------
08f0 08f3 | | .CONST 0x08f3 ; Address of begin
08f1 08fd | | .CONST 0x08fd ; Address of exception handler
08f2 0001 | | .CONST 0x0001 ; Number of locals
08f3 BODY_08f0:
08f3 INIT_08f0:
08f3 00da | | Load_Top At_Offset_2
08f4 00d8 | | Load_Top At_Offset_0
08f5 e008 | | Load 0x0,0x8
08f6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08f7 0260 | ` | Execute Discrete,In_Type
08f8 7001 |p | Jump_Nonzero 0x8fa
08f9 0801 | | Execute_Immediate Raise,0x1
08fa e005 | | Load 0x0,0x5
08fb 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
08fc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
08fd TRAP_08f0:
08fd 0007 | | Action Break_Optional
08fe e01b | | Load 0x0,0x1b
08ff 180e | | Execute Package,Field_Execute,Field_Number 0xe
0900 4807 |H | Short_Literal 0x7
0901 0092 0b25 | %| Action Push_String_Extended,0xb25 ; "Tape Drive"
0903 e5ff | | Load 0x2,-0x1
0904 00e0 | | Load_Encached Standard_Cache
0905 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0906 01cc | | Execute Vector,Catenate
0907 0092 0b26 | &| Action Push_String_Extended,0xb26 ; " not found"
0909 01cc | | Execute Vector,Catenate
090a e01c | | Load 0x0,0x1c
090b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
090c e238 | 8 | Load 0x1,0x38
090d 0257 | W | Execute Discrete,Raise
090e 0000 0000 | | .XXX[0x2]
0910 ; --------------------------------------------------------------------------------------
0910 ; SUBPROGRAM
0910 ; --------------------------------------------------------------------------------------
0910 0917 | | .CONST 0x0917 ; Address of begin
0911 0004 | | .CONST 0x0004 ; Address of exception handler
0912 0002 | | .CONST 0x0002 ; Number of locals
0913 INIT_0910:
0913 00da | | Load_Top At_Offset_2
0914 01dd | | Execute Vector,First
0915 00e3 | | Load_Encached Natural_Cache
0916 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0917 BODY_0910:
0917 00cf | | Action Mark_Auxiliary
0918 e5fe | | Load 0x2,-0x2
0919 01d9 | | Execute Vector,Reverse_Bounds
091a 0263 | c | Execute Discrete,Above_Bound
091b 701b |p | Jump_Nonzero 0x937
091c 00db | | Load_Top At_Offset_3
091d e5ff | | Load 0x2,-0x1
091e 01dc | | Execute Vector,Last
091f 027a | z | Execute Discrete,Less_Equal
0920 6810 |h | Jump_Zero 0x931
0921 00db | | Load_Top At_Offset_3
0922 e5ff | | Load 0x2,-0x1
0923 01d7 | | Execute Vector,Field_Read
0924 00d8 | | Load_Top At_Offset_0
0925 e004 | | Load 0x0,0x4
0926 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0927 0260 | ` | Execute Discrete,In_Type
0928 7001 |p | Jump_Nonzero 0x92a
0929 0801 | | Execute_Immediate Raise,0x1
092a 00d9 | | Load_Top At_Offset_1
092b e5fe | | Load 0x2,-0x2
092c 01d6 | | Execute Vector,Field_Write
092d 00db | | Load_Top At_Offset_3
092e 0a01 | | Execute_Immediate Plus,0x1
092f c402 | | Store 0x2,0x2
0930 7804 |x | Jump 0x935
0931 4800 |H | Short_Literal 0x0
0932 00d9 | | Load_Top At_Offset_1
0933 e5fe | | Load 0x2,-0x2
0934 01d6 | | Execute Vector,Field_Write
0935 00c8 | | Action Pop_Auxiliary_Range
0936 3fe5 |? | Loop_Increasing 0x91c
0937 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0938 ; --------------------------------------------------------------------------------------
0938 ; SUBPROGRAM
0938 ; --------------------------------------------------------------------------------------
0938 093e | > | .CONST 0x093e ; Address of begin
0939 0004 | | .CONST 0x0004 ; Address of exception handler
093a 0002 | | .CONST 0x0002 ; Number of locals
093b INIT_0938:
093b 00da | | Load_Top At_Offset_2
093c 00e3 | | Load_Encached Natural_Cache
093d 03f1 | | Declare_Variable Discrete,With_Value
093e BODY_0938:
093e 00cf | | Action Mark_Auxiliary
093f e5fe | | Load 0x2,-0x2
0940 01da | | Execute Vector,Bounds
0941 0264 | d | Execute Discrete,Below_Bound
0942 7011 |p | Jump_Nonzero 0x954
0943 00db | | Load_Top At_Offset_3
0944 48ff |H | Short_Literal 0xff
0945 0279 | y | Execute Discrete,And
0946 00d8 | | Load_Top At_Offset_0
0947 e004 | | Load 0x0,0x4
0948 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0949 0260 | ` | Execute Discrete,In_Type
094a 7001 |p | Jump_Nonzero 0x94c
094b 0801 | | Execute_Immediate Raise,0x1
094c 00d9 | | Load_Top At_Offset_1
094d e5fe | | Load 0x2,-0x2
094e 01d6 | | Execute Vector,Field_Write
094f 00db | | Load_Top At_Offset_3
0950 09f8 | | Execute_Immediate Binary_Scale,-0x8
0951 c402 | | Store 0x2,0x2
0952 00c8 | | Action Pop_Auxiliary_Range
0953 37ef |7 | Loop_Decreasing 0x943
0954 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0955 0000 0000 | | .XXX[0x3]
0957 0000 | |
0958 ; --------------------------------------------------------------------------------------
0958 ; SUBPROGRAM
0958 ; --------------------------------------------------------------------------------------
0958 095d | ] | .CONST 0x095d ; Address of begin
0959 0004 | | .CONST 0x0004 ; Address of exception handler
095a 0002 | | .CONST 0x0002 ; Number of locals
095b INIT_0958:
095b 00e3 | | Load_Encached Natural_Cache
095c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
095d BODY_0958:
095d 00cf | | Action Mark_Auxiliary
095e e5ff | | Load 0x2,-0x1
095f 01d9 | | Execute Vector,Reverse_Bounds
0960 0263 | c | Execute Discrete,Above_Bound
0961 7009 |p | Jump_Nonzero 0x96b
0962 00db | | Load_Top At_Offset_3
0963 0908 | | Execute_Immediate Binary_Scale,0x8
0964 00d9 | | Load_Top At_Offset_1
0965 e5ff | | Load 0x2,-0x1
0966 01d7 | | Execute Vector,Field_Read
0967 0273 | s | Execute Discrete,Plus
0968 c402 | | Store 0x2,0x2
0969 00c8 | | Action Pop_Auxiliary_Range
096a 3ff7 |? | Loop_Increasing 0x962
096b 00ce | | Action Pop_Auxiliary
096c 00d8 | | Load_Top At_Offset_0
096d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
096e 0000 0000 | | .XXX[0x2]
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 00db | | Load_Top At_Offset_3
0974 e5fe | | Load 0x2,-0x2
0975 01dd | | Execute Vector,First
0976 e5fe | | Load 0x2,-0x2
0977 01dd | | Execute Vector,First
0978 0a01 | | Execute_Immediate Plus,0x1
0979 00d8 | | Load_Top At_Offset_0
097a 00e2 | | Load_Encached Integer_Cache
097b 0260 | ` | Execute Discrete,In_Type
097c 7001 |p | Jump_Nonzero 0x97e
097d 0801 | | Execute_Immediate Raise,0x1
097e 00da | | Load_Top At_Offset_2
097f 035b | [ | Declare_Type Array,Constrained
0980 00d0 | | Action Swap_Control
0981 01cd | | Execute Vector,Slice_Reference
0982 00d8 | | Load_Top At_Offset_0
0983 e5ff | | Load 0x2,-0x1
0984 e003 | | Load 0x0,0x3
0985 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0986 00d8 | | Load_Top At_Offset_0
0987 0c00 | | Execute_Immediate Greater_Equal,0x0
0988 7002 |p | Jump_Nonzero 0x98b
0989 603a |`: | Indirect_Literal Discrete,0x9c4,{0xffffffff, 0xffffc000}
098a 7801 |x | Jump 0x98c
098b 6034 |`4 | Indirect_Literal Discrete,0x9c0,{0x00000000, 0x00004000}
098c 0273 | s | Execute Discrete,Plus
098d 09f1 | | Execute_Immediate Binary_Scale,-0xf
098e 09ff | | Execute_Immediate Binary_Scale,-0x1
098f 00d8 | | Load_Top At_Offset_0
0990 00e3 | | Load_Encached Natural_Cache
0991 0260 | ` | Execute Discrete,In_Type
0992 7001 |p | Jump_Nonzero 0x994
0993 0801 | | Execute_Immediate Raise,0x1
0994 8254 | T | Call 0x1,0x54
0995 00d2 | | Pop_Control Pop_Count_2
0996 00db | | Load_Top At_Offset_3
0997 e5fe | | Load 0x2,-0x2
0998 01dd | | Execute Vector,First
0999 0a02 | | Execute_Immediate Plus,0x2
099a 00d8 | | Load_Top At_Offset_0
099b 00e2 | | Load_Encached Integer_Cache
099c 0260 | ` | Execute Discrete,In_Type
099d 7001 |p | Jump_Nonzero 0x99f
099e 0801 | | Execute_Immediate Raise,0x1
099f e5fe | | Load 0x2,-0x2
09a0 01dc | | Execute Vector,Last
09a1 00da | | Load_Top At_Offset_2
09a2 035b | [ | Declare_Type Array,Constrained
09a3 00d0 | | Action Swap_Control
09a4 01cd | | Execute Vector,Slice_Reference
09a5 00d8 | | Load_Top At_Offset_0
09a6 e5ff | | Load 0x2,-0x1
09a7 e003 | | Load 0x0,0x3
09a8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
09a9 6012 |` | Indirect_Literal Discrete,0x9bc,{0xffffffff, 0xfffff893}
09aa 0273 | s | Execute Discrete,Plus
09ab 0909 | | Execute_Immediate Binary_Scale,0x9
09ac e5ff | | Load 0x2,-0x1
09ad e003 | | Load 0x0,0x3
09ae 1814 | | Execute Package,Field_Execute,Field_Number 0x14
09af 0905 | | Execute_Immediate Binary_Scale,0x5
09b0 0273 | s | Execute Discrete,Plus
09b1 e5ff | | Load 0x2,-0x1
09b2 e003 | | Load 0x0,0x3
09b3 1815 | | Execute Package,Field_Execute,Field_Number 0x15
09b4 0273 | s | Execute Discrete,Plus
09b5 00d8 | | Load_Top At_Offset_0
09b6 00e3 | | Load_Encached Natural_Cache
09b7 0260 | ` | Execute Discrete,In_Type
09b8 7001 |p | Jump_Nonzero 0x9ba
09b9 0801 | | Execute_Immediate Raise,0x1
09ba 8254 | T | Call 0x1,0x54
09bb 4502 |E | Exit_Suprogram New_Top_Offset 0x2
09bc ffff ffff | | .LITERAL {0xffffffff, 0xfffff893}
09c0 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
09c4 ffff ffff | | .LITERAL {0xffffffff, 0xffffc000}
09c8 ; --------------------------------------------------------------------------------------
09c8 ; SUBPROGRAM
09c8 ; --------------------------------------------------------------------------------------
09c8 09cf | | .CONST 0x09cf ; Address of begin
09c9 0004 | | .CONST 0x0004 ; Address of exception handler
09ca 0005 | | .CONST 0x0005 ; Number of locals
09cb INIT_09c8:
09cb 00e3 | | Load_Encached Natural_Cache
09cc 00e3 | | Load_Encached Natural_Cache
09cd 00e3 | | Load_Encached Natural_Cache
09ce 00e3 | | Load_Encached Natural_Cache
09cf BODY_09c8:
09cf e5ff | | Load 0x2,-0x1
09d0 01dd | | Execute Vector,First
09d1 0a02 | | Execute_Immediate Plus,0x2
09d2 00d8 | | Load_Top At_Offset_0
09d3 00e2 | | Load_Encached Integer_Cache
09d4 0260 | ` | Execute Discrete,In_Type
09d5 7001 |p | Jump_Nonzero 0x9d7
09d6 0801 | | Execute_Immediate Raise,0x1
09d7 e5ff | | Load 0x2,-0x1
09d8 01dc | | Execute Vector,Last
09d9 e5ff | | Load 0x2,-0x1
09da 01cf | | Execute Vector,Slice_Read
09db 8255 | U | Call 0x1,0x55
09dc 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
09dd 00d8 | | Load_Top At_Offset_0
09de 09f7 | | Execute_Immediate Binary_Scale,-0x9
09df 603c |`< | Indirect_Literal Discrete,0xa1c,{0x00000000, 0x0000076d}
09e0 0273 | s | Execute Discrete,Plus
09e1 c402 | | Store 0x2,0x2
09e2 00d8 | | Load_Top At_Offset_0
09e3 09fb | | Execute_Immediate Binary_Scale,-0x5
09e4 480f |H | Short_Literal 0xf
09e5 0279 | y | Execute Discrete,And
09e6 005b | [ | Store_Top Discrete,At_Offset_3
09e7 00d8 | | Load_Top At_Offset_0
09e8 481f |H | Short_Literal 0x1f
09e9 0279 | y | Execute Discrete,And
09ea 005a | Z | Store_Top Discrete,At_Offset_2
09eb e5ff | | Load 0x2,-0x1
09ec 01dd | | Execute Vector,First
09ed e5ff | | Load 0x2,-0x1
09ee 01dd | | Execute Vector,First
09ef 0a01 | | Execute_Immediate Plus,0x1
09f0 00d8 | | Load_Top At_Offset_0
09f1 00e2 | | Load_Encached Integer_Cache
09f2 0260 | ` | Execute Discrete,In_Type
09f3 7001 |p | Jump_Nonzero 0x9f5
09f4 0801 | | Execute_Immediate Raise,0x1
09f5 e5ff | | Load 0x2,-0x1
09f6 01cf | | Execute Vector,Slice_Read
09f7 8255 | U | Call 0x1,0x55
09f8 0901 | | Execute_Immediate Binary_Scale,0x1
09f9 090f | | Execute_Immediate Binary_Scale,0xf
09fa e003 | | Load 0x0,0x3
09fb 1b11 | | Execute Package,Field_Read,Field_Number 0x11
09fc 00d9 | | Load_Top At_Offset_1
09fd 00d0 | | Action Swap_Control
09fe 0260 | ` | Execute Discrete,In_Type
09ff 7001 |p | Jump_Nonzero 0xa01
0a00 0801 | | Execute_Immediate Raise,0x1
0a01 00da | | Load_Top At_Offset_2
0a02 e003 | | Load 0x0,0x3
0a03 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0a04 00d9 | | Load_Top At_Offset_1
0a05 00d0 | | Action Swap_Control
0a06 0260 | ` | Execute Discrete,In_Type
0a07 7001 |p | Jump_Nonzero 0xa09
0a08 0801 | | Execute_Immediate Raise,0x1
0a09 e403 | | Load 0x2,0x3
0a0a e003 | | Load 0x0,0x3
0a0b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0a0c 00d9 | | Load_Top At_Offset_1
0a0d 00d0 | | Action Swap_Control
0a0e 0260 | ` | Execute Discrete,In_Type
0a0f 7001 |p | Jump_Nonzero 0xa11
0a10 0801 | | Execute_Immediate Raise,0x1
0a11 e402 | | Load 0x2,0x2
0a12 e003 | | Load 0x0,0x3
0a13 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a14 00d9 | | Load_Top At_Offset_1
0a15 00d0 | | Action Swap_Control
0a16 0260 | ` | Execute Discrete,In_Type
0a17 7001 |p | Jump_Nonzero 0xa19
0a18 0801 | | Execute_Immediate Raise,0x1
0a19 e003 | | Load 0x0,0x3
0a1a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0a1b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0a1c 0000 0000 | | .LITERAL {0x00000000, 0x0000076d}
0a20 ; --------------------------------------------------------------------------------------
0a20 ; SUBPROGRAM
0a20 ; --------------------------------------------------------------------------------------
0a20 0a26 | & | .CONST 0x0a26 ; Address of begin
0a21 0004 | | .CONST 0x0004 ; Address of exception handler
0a22 0002 | | .CONST 0x0002 ; Number of locals
0a23 INIT_0a20:
0a23 e008 | | Load 0x0,0x8
0a24 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0a25 0322 | " | Declare_Variable Record
0a26 BODY_0a20:
0a26 00d8 | | Load_Top At_Offset_0
0a27 e5ff | | Load 0x2,-0x1
0a28 8216 | | Call 0x1,0x16
0a29 e5fe | | Load 0x2,-0x2
0a2a 8019 | | Call 0x0,0x19
0a2b 00d1 | | Pop_Control Pop_Count_1
0a2c 4801 |H | Short_Literal 0x1
0a2d 0092 0b27 | '| Action Push_String_Extended,0xb27 ; "Write_File_Header"
0a2f 00da | | Load_Top At_Offset_2
0a30 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0a31 e246 | F | Load 0x1,0x46
0a32 e247 | G | Load 0x1,0x47
0a33 1d48 | H | Execute_Immediate Reference_Lex_1,0x48
0a34 1d49 | I | Execute_Immediate Reference_Lex_1,0x49
0a35 823a | : | Call 0x1,0x3a
0a36 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0a37 0000 | | .XXX[0x1]
0a38 ; --------------------------------------------------------------------------------------
0a38 ; SUBPROGRAM
0a38 ; --------------------------------------------------------------------------------------
0a38 0a42 | B | .CONST 0x0a42 ; Address of begin
0a39 0004 | | .CONST 0x0004 ; Address of exception handler
0a3a 0004 | | .CONST 0x0004 ; Number of locals
0a3b INIT_0a38:
0a3b e008 | | Load 0x0,0x8
0a3c 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0a3d 0322 | " | Declare_Variable Record
0a3e 00e1 | | Load_Encached Boolean_Cache
0a3f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0a40 00e1 | | Load_Encached Boolean_Cache
0a41 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0a42 BODY_0a38:
0a42 4800 |H | Short_Literal 0x0
0a43 a5fd | | Store_Unchecked 0x2,-0x3
0a44 00cf | | Action Mark_Auxiliary
0a45 783a |x: | Jump 0xa80
0a46 4801 |H | Short_Literal 0x1
0a47 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0a48 e5fe | | Load 0x2,-0x2
0a49 e402 | | Load 0x2,0x2
0a4a e5ff | | Load 0x2,-0x1
0a4b 801a | | Call 0x0,0x1a
0a4c 00d2 | | Pop_Control Pop_Count_2
0a4d 00db | | Load_Top At_Offset_3
0a4e 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0a4f 460e |F | Jump_Case 0xf
0a50 782e |x. | Jump 0xa7f ; case 0x0
0a51 780d |x | Jump 0xa5f ; case 0x1
0a52 780c |x | Jump 0xa5f ; case 0x2
0a53 780b |x | Jump 0xa5f ; case 0x3
0a54 780a |x | Jump 0xa5f ; case 0x4
0a55 7820 |x | Jump 0xa76 ; case 0x5
0a56 7808 |x | Jump 0xa5f ; case 0x6
0a57 7810 |x | Jump 0xa68 ; case 0x7
0a58 7806 |x | Jump 0xa5f ; case 0x8
0a59 7805 |x | Jump 0xa5f ; case 0x9
0a5a 7804 |x | Jump 0xa5f ; case 0xa
0a5b 7803 |x | Jump 0xa5f ; case 0xb
0a5c 7802 |x | Jump 0xa5f ; case 0xc
0a5d 7801 |x | Jump 0xa5f ; case 0xd
0a5e 7800 |x | Jump 0xa5f ; case 0xe
0a5f 4801 |H | Short_Literal 0x1
0a60 0092 0b28 | (| Action Push_String_Extended,0xb28 ; "Read of File Header"
0a62 e402 | | Load 0x2,0x2
0a63 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0a64 e23c | < | Load 0x1,0x3c
0a65 1d3d | = | Execute_Immediate Reference_Lex_1,0x3d
0a66 8239 | 9 | Call 0x1,0x39
0a67 7817 |x | Jump 0xa7f
0a68 00db | | Load_Top At_Offset_3
0a69 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0a6a 0f40 | @ | Execute_Immediate Equal,0x40
0a6b 6801 |h | Jump_Zero 0xa6d
0a6c 7812 |x | Jump 0xa7f
0a6d 4801 |H | Short_Literal 0x1
0a6e 0092 0b28 | (| Action Push_String_Extended,0xb28 ; "Read of File Header"
0a70 e402 | | Load 0x2,0x2
0a71 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0a72 e23c | < | Load 0x1,0x3c
0a73 1d3d | = | Execute_Immediate Reference_Lex_1,0x3d
0a74 8239 | 9 | Call 0x1,0x39
0a75 7809 |x | Jump 0xa7f
0a76 00da | | Load_Top At_Offset_2
0a77 6803 |h | Jump_Zero 0xa7b
0a78 4801 |H | Short_Literal 0x1
0a79 a5fd | | Store_Unchecked 0x2,-0x3
0a7a 7804 |x | Jump 0xa7f
0a7b 4801 |H | Short_Literal 0x1
0a7c 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0a7d 4800 |H | Short_Literal 0x0
0a7e 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0a7f 00c9 | | Action Pop_Auxiliary_Loop
0a80 00d9 | | Load_Top At_Offset_1
0a81 6fc4 |o | Jump_Zero 0xa46
0a82 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0a83 0000 0000 | | .BLANK 0000[0x5]
0a88 ; --------------------------------------------------------------------------------------
0a88 ; SUBPROGRAM
0a88 ; --------------------------------------------------------------------------------------
0a88 0a94 | | .CONST 0x0a94 ; Address of begin
0a89 0004 | | .CONST 0x0004 ; Address of exception handler
0a8a 0003 | | .CONST 0x0003 ; Number of locals
0a8b INIT_0a88:
0a8b 00da | | Load_Top At_Offset_2
0a8c 09f6 | | Execute_Immediate Binary_Scale,-0xa
0a8d 00e3 | | Load_Encached Natural_Cache
0a8e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0a8f 00db | | Load_Top At_Offset_3
0a90 4bff |K | Short_Literal 0x3ff
0a91 0279 | y | Execute Discrete,And
0a92 00e3 | | Load_Encached Natural_Cache
0a93 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0a94 BODY_0a88:
0a94 e5ff | | Load 0x2,-0x1
0a95 0c01 | | Execute_Immediate Greater_Equal,0x1
0a96 6809 |h | Jump_Zero 0xaa0
0a97 00d8 | | Load_Top At_Offset_0
0a98 7003 |p | Jump_Nonzero 0xa9c
0a99 600e |` | Indirect_Literal Discrete,0xaa8,{0x00000000, 0x00000400}
0a9a 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0a9b 7806 |x | Jump 0xaa2
0a9c 00d9 | | Load_Top At_Offset_1
0a9d 0a01 | | Execute_Immediate Plus,0x1
0a9e 005a | Z | Store_Top Discrete,At_Offset_2
0a9f 7802 |x | Jump 0xaa2
0aa0 4800 |H | Short_Literal 0x0
0aa1 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0aa2 00d9 | | Load_Top At_Offset_1
0aa3 a5fe | | Store_Unchecked 0x2,-0x2
0aa4 00d8 | | Load_Top At_Offset_0
0aa5 a5fd | | Store_Unchecked 0x2,-0x3
0aa6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0aa7 0000 | | .XXX[0x1]
0aa8 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
0aac 0000 0000 | | .BLANK 0000[0x4]
0ab0 ; --------------------------------------------------------------------------------------
0ab0 ; SUBPROGRAM
0ab0 ; --------------------------------------------------------------------------------------
0ab0 0abc | | .CONST 0x0abc ; Address of begin
0ab1 0004 | | .CONST 0x0004 ; Address of exception handler
0ab2 0002 | | .CONST 0x0002 ; Number of locals
0ab3 INIT_0ab0:
0ab3 4801 |H | Short_Literal 0x1
0ab4 e407 | | Load 0x2,0x7
0ab5 0aff | | Execute_Immediate Plus,-0x1
0ab6 e5ff | | Load 0x2,-0x1
0ab7 0217 | | Execute Heap_Access,All_Reference
0ab8 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0ab9 01cf | | Execute Vector,Slice_Read
0aba 0335 | 5 | Declare_Variable Array,Duplicate
0abb 00cd | | Action Spare6_Action
0abc BODY_0ab0:
0abc e402 | | Load 0x2,0x2
0abd e407 | | Load 0x2,0x7
0abe 0272 | r | Execute Discrete,Minus
0abf e5ff | | Load 0x2,-0x1
0ac0 0217 | | Execute Heap_Access,All_Reference
0ac1 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0ac2 e5ff | | Load 0x2,-0x1
0ac3 0217 | | Execute Heap_Access,All_Reference
0ac4 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0ac5 0a01 | | Execute_Immediate Plus,0x1
0ac6 00d8 | | Load_Top At_Offset_0
0ac7 00e2 | | Load_Encached Integer_Cache
0ac8 0260 | ` | Execute Discrete,In_Type
0ac9 7001 |p | Jump_Nonzero 0xacb
0aca 0801 | | Execute_Immediate Raise,0x1
0acb e402 | | Load 0x2,0x2
0acc e5ff | | Load 0x2,-0x1
0acd 0217 | | Execute Heap_Access,All_Reference
0ace 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0acf 01cf | | Execute Vector,Slice_Read
0ad0 4801 |H | Short_Literal 0x1
0ad1 e5ff | | Load 0x2,-0x1
0ad2 0217 | | Execute Heap_Access,All_Reference
0ad3 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0ad4 e5ff | | Load 0x2,-0x1
0ad5 0219 | | Execute Heap_Access,All_Read
0ad6 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0ad7 01ce | | Execute Vector,Slice_Write
0ad8 00d8 | | Load_Top At_Offset_0
0ad9 e00f | | Load 0x0,0xf
0ada 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0adb 00cb | | Action Pop_Block_With_Result
0adc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0add 0000 0000 | | .XXX[0x3]
0adf 0000 | |
0ae0 ; --------------------------------------------------------------------------------------
0ae0 ; SUBPROGRAM
0ae0 ; --------------------------------------------------------------------------------------
0ae0 0ae3 | | .CONST 0x0ae3 ; Address of begin
0ae1 0004 | | .CONST 0x0004 ; Address of exception handler
0ae2 0001 | | .CONST 0x0001 ; Number of locals
0ae3 BODY_0ae0:
0ae3 INIT_0ae0:
0ae3 4601 |F | Jump_Case 0x2
0ae4 7801 |x | Jump 0xae6 ; case 0x0
0ae5 780d |x | Jump 0xaf3 ; case 0x1
0ae6 00da | | Load_Top At_Offset_2
0ae7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0ae8 0125 | % | Execute Any,Set_Constraint
0ae9 00da | | Load_Top At_Offset_2
0aea 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0aeb 1c00 | | Execute_Immediate Run_Utility,0x0
0aec 00da | | Load_Top At_Offset_2
0aed 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0aee 0125 | % | Execute Any,Set_Constraint
0aef 00da | | Load_Top At_Offset_2
0af0 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0af1 1c00 | | Execute_Immediate Run_Utility,0x0
0af2 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0af3 00da | | Load_Top At_Offset_2
0af4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0af5 0125 | % | Execute Any,Set_Constraint
0af6 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0af7 ; --------------------------------------------------------------------------------------
0af7 ; STRING TABLE
0af7 ; --------------------------------------------------------------------------------------
0af7 0066 | f | .STRTAB 0x0066->0x0b2a ; "READ"
0af8 0068 | h | .STRTAB 0x0068->0x0b2c ; "WRITE"
0af9 006b | k | .STRTAB 0x006b->0x0b2e ; "WRITE_WITH_TAPE_MARKS"
0afa 007e | ~ | .STRTAB 0x007e->0x0b39 ; "REWIND"
0afb 0082 | | .STRTAB 0x0082->0x0b3c ; "UNLOAD"
0afc 0086 | | .STRTAB 0x0086->0x0b3f ; "SUCCESSFUL"
0afd 008e | | .STRTAB 0x008e->0x0b44 ; "NOT_OPEN"
0afe 0094 | | .STRTAB 0x0094->0x0b48 ; "NOT_ON_LINE"
0aff 009d | | .STRTAB 0x009d->0x0b4d ; "WRONG_MODE"
0b00 00a5 | | .STRTAB 0x00a5->0x0b52 ; "WRONG_CLIENT"
0b01 00af | | .STRTAB 0x00af->0x0b58 ; "READ_FILE_MARK"
0b02 00bb | | .STRTAB 0x00bb->0x0b5f ; "RECORD_TOO_LONG"
0b03 00c8 | | .STRTAB 0x00c8->0x0b67 ; "RECORD_TOO_SHORT"
0b04 00d6 | | .STRTAB 0x00d6->0x0b6f ; "MISSING_WRITE_RING"
0b05 00e6 | | .STRTAB 0x00e6->0x0b78 ; "RETRY_COUNT_EXHAUSTED"
0b06 00f9 | | .STRTAB 0x00f9->0x0b82 ; "WRONG_DENSITY"
0b07 0104 | | .STRTAB 0x0104->0x0b89 ; "UNEXPECTED_TAPE_ERROR"
0b08 0117 | | .STRTAB 0x0117->0x0b93 ; "UNIT_IS_BAD"
0b09 0120 | | .STRTAB 0x0120->0x0b99 ; "READ_DOUBLE_FILE_MARK"
0b0a 0133 | 3 | .STRTAB 0x0133->0x0ba3 ; "REVERSE_INTO_BOT"
0b0b 0141 | A | .STRTAB 0x0141->0x0bab ; "SUCCESSFUL"
0b0c 0149 | I | .STRTAB 0x0149->0x0bb0 ; "ALREADY_OPEN"
0b0d 0153 | S | .STRTAB 0x0153->0x0bb6 ; "DOES_NOT_EXIST"
0b0e 015f | _ | .STRTAB 0x015f->0x0bbd ; "UNABLE_TO_REGISTER"
0b0f 016f | o | .STRTAB 0x016f->0x0bc6 ; "NOT_ON_LINE"
0b10 0178 | x | .STRTAB 0x0178->0x0bcc ; "SUCCESSFUL"
0b11 0180 | | .STRTAB 0x0180->0x0bd1 ; "NOT_OPEN"
0b12 0186 | | .STRTAB 0x0186->0x0bd5 ; "Open Tape (will retry)"
0b13 019a | | .STRTAB 0x019a->0x0be0 ; "Begin Streaming Write"
0b14 01ad | | .STRTAB 0x01ad->0x0bea ; "Open Tape"
0b15 01b4 | | .STRTAB 0x01b4->0x0bef ; "Other Error"
0b16 01bd | | .STRTAB 0x01bd->0x0bf4 ; "Too many retries in Opening Tape Drive"
0b17 01e1 | | .STRTAB 0x01e1->0x0c07 ; "Non-Existent Tape Drive Specified"
0b18 0200 | | .STRTAB 0x0200->0x0c18 ; "End Streaming Write"
0b19 0211 | | .STRTAB 0x0211->0x0c21 ; "Write Tape Mark (end of tape)"
0b1a 022c | , | .STRTAB 0x022c->0x0c30 ; "Positioning Tape"
0b1b 023a | : | .STRTAB 0x023a->0x0c38 ; "Closing Tape"
0b1c 0244 | D | .STRTAB 0x0244->0x0c3e ; "Writing Header"
0b1d 0250 | P | .STRTAB 0x0250->0x0c45 ; "Read File Record"
0b1e 025e | ^ | .STRTAB 0x025e->0x0c4d ; "Read_File_Record"
0b1f 026c | l | .STRTAB 0x026c->0x0c55 ; "Write Data Block"
0b20 027a | z | .STRTAB 0x027a->0x0c5d ; "Error from "
0b21 0283 | | .STRTAB 0x0283->0x0c62 ; ": "
0b22 0283 | | .STRTAB 0x0283->0x0c63 ; "Processing Stopped"
0b23 0293 | | .STRTAB 0x0293->0x0c6c ; " raised trying to "
0b24 02a3 | | .STRTAB 0x02a3->0x0c75 ; "\x22."
0b25 02a3 | | .STRTAB 0x02a3->0x0c76 ; "Tape Drive"
0b26 02ab | | .STRTAB 0x02ab->0x0c7b ; " not found"
0b27 02b3 | | .STRTAB 0x02b3->0x0c80 ; "Write_File_Header"
0b28 02c2 | | .STRTAB 0x02c2->0x0c89 ; "Read of File Header"
0b29 02d3 | | .STREND 0x02d3->0x0c92
0b2a 5245 4144 |READ| .STRTAB_STRINGS
0c93 0000 0000 | | .BLANK 0000[0x5]
0c98 ; --------------------------------------------------------------------------------------
0c98 ; Debug Table
0c98 ; --------------------------------------------------------------------------------------
0c98 0004 0011 | | .DEBUG4 0x0004,0x0011,0xf22e,0x0000,0x0001,0x0000
0c9e 1408 c16c | l| .XXX[0x34]
0ca0 0010 0004 | |
0ca2 036a 085f | j _|
0ca4 802c 609d | ,` |
0ca6 1408 c1e4 | |
0ca8 0010 0009 | |
0caa 2007 800c | |
0cac 6d53 8024 |mS $|
0cae 0cd0 0360 | `|
0cb0 076b 8028 | k (|
0cb2 6c48 0d6c |lH l|
0cb4 0cdc 0360 | `|
0cb6 0764 098d | d |
0cb8 c015 2000 | |
0cba 0367 980c | g |
0cbc 0758 ffec | X |
0cbe 0364 0750 | d P|
0cc0 0363 901f | c |
0cc2 800c 6c60 | l`|
0cc4 0c8b 800c | |
0cc6 6d44 f000 |mD |
0cc8 0364 e001 | d |
0cca 2040 0364 | @ d|
0ccc e007 800c | |
0cce 6078 0344 |`x D|
0cd0 0360 0328 | ` (|
0cd2 0000 0000 | | .BLANK 0000[0x5]
0cd7 c2b0 0010 | | .XXX[0x81]
0cd9 000f 9008 | |
0cdb f003 8034 | 4|
0cdd 0754 0c80 | T |
0cdf 0340 0345 | @ E|
0ce1 2005 2043 | C|
0ce3 8024 0cd1 | $ |
0ce5 2005 2043 | C|
0ce7 8028 6c48 | (lH|
0ce9 0cd1 2041 | A|
0ceb 2005 2000 | |
0ced 0367 9810 | g |
0cef 0758 ffec | X |
0cf1 0364 0750 | d P|
0cf3 0361 200b | a |
0cf5 800c 6c97 | l |
0cf7 800c 6080 | ` |
0cf9 0344 0360 | D `|
0cfb 0368 d007 | h |
0cfd 800c 6c9f | l |
0cff 800c 6078 | `x|
0d01 0344 0360 | D `|
0d03 0368 d003 | h |
0d05 800c 6ca3 | l |
0d07 800c 6078 | `x|
0d09 0344 0360 | D `|
0d0b 0328 0000 | ( |
0d0d 0000 0000 | |
0d0f c3e0 0010 | |
0d11 000f 9008 | |
0d13 f003 8034 | 4|
0d15 0754 001f | T |
0d17 803c 0c8b | < |
0d19 800c 6c9f | l |
0d1b 9fff 800c | |
0d1d 606b 8020 |`k |
0d1f 6c40 6c3c |l@l<|
0d21 071f 8020 | |
0d23 6c40 6c3c |l@l<|
0d25 0464 0364 | d d|
0d27 e007 800c | |
0d29 6ca3 9fff |l |
0d2b 800c 606b | `k|
0d2d 8020 6c40 | l@|
0d2f 6c38 071f |l8 |
0d31 8020 6c40 | l@|
0d33 6c38 0464 |l8 d|
0d35 0364 e000 | d |
0d37 0364 d00b | d |
0d39 8020 6c40 | l@|
0d3b 6c3c 0464 |l< d|
0d3d 0364 e00b | d |
0d3f 800c 6c97 | l |
0d41 9fff 800c | |
0d43 6070 3c09 |`p< |
0d45 c00d 205a | Z|
0d47 97f5 140b | |
0d49 900b 802c | ,|
0d4b 60a5 a028 |` (|
0d4d 0360 0368 | ` h|
0d4f 05f5 2044 | D|
0d51 0364 d003 | d |
0d53 8020 6c40 | l@|
0d55 6c5c 6041 |l\`A|
0d57 1408 | |
0d58 0000 0000 | | .BLANK 0000[0x7]
0d5f c4b0 0010 | | .XXX[0x19]
0d61 0049 200c | I |
0d63 0b2c 02ff | , |
0d65 8004 6c40 | l@|
0d67 6c50 6c34 |lPl4|
0d69 18c8 0a74 | t|
0d6b c4ec 0a74 | t|
0d6d c54c 0a74 | L t|
0d6f c70c 0a7c | ||
0d71 c92c 02f0 | , |
0d73 033c 001e | < |
0d75 0848 0325 | H %|
0d77 fff4 | |
0d78 0000 0000 | | .BLANK 0000[0x7]
0d7f c4ec 0010 | | .XXX[0x14]
0d81 0004 0368 | h|
0d83 3ce5 a009 |< |
0d85 20c9 1007 | |
0d87 8004 6c40 | l@|
0d89 6c50 6c34 |lPl4|
0d8b 036c 09a3 | l |
0d8d 8004 6c40 | l@|
0d8f 6c50 6c34 |lPl4|
0d91 096d 1004 | m |
0d93 0000 0000 | | .BLANK 0000[0x4]
0d97 c5b0 0010 | | .XXX[0x69]
0d99 0015 2005 | |
0d9b 2013 8008 | |
0d9d 0cd1 2005 | |
0d9f 2013 800c | |
0da1 6c48 0cd1 |lH |
0da3 2011 2005 | |
0da5 23fc 0367 |# g|
0da7 900c 0758 | X|
0da9 ffec 0364 | d|
0dab 0753 8010 | S |
0dad 6c43 8014 |lC |
0daf 6c3c 1803 |l< |
0db1 8010 6c43 | lC|
0db3 8010 6c41 | lA|
0db5 2023 97ff | # |
0db7 8010 6074 | `t|
0db9 016c 0369 | l i|
0dbb c0f4 036f | o|
0dbd 8014 6c3f | l?|
0dbf 8010 6c41 | lA|
0dc1 83d5 2005 | |
0dc3 2000 0248 | H|
0dc5 fd23 9009 | # |
0dc7 2007 97fe | |
0dc9 001b 100c | |
0dcb 016c 0344 | l D|
0dcd 0369 c008 | i |
0dcf 0365 a01f | e |
0dd1 8010 6c43 | lC|
0dd3 97ff 8010 | |
0dd5 6078 0165 |`x e|
0dd7 e084 036f | o|
0dd9 8014 6057 | `W|
0ddb 97fc f003 | |
0ddd 8014 6c4c | lL|
0ddf 096c 09fd | l |
0de1 c05f 8010 | _ |
0de3 6c43 97ff |lC |
0de5 8010 6078 | `x|
0de7 0164 036f | d o|
0de9 8014 6057 | `W|
0deb 8004 6c40 | l@|
0ded 6c50 6c34 |lPl4|
0def 096f 97fc | o |
0df1 e003 8010 | |
0df3 6c41 2023 |lA #|
0df5 97ff 8010 | |
0df7 6074 016c |`t l|
0df9 0368 3c09 | h< |
0dfb a009 2003 | |
0dfd 001c 0364 | d|
0dff 036e | n |