|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 6144 (0x1800) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0d2ce3
└─⟦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 0b28 | ( | .CONST 0x0b28 ; 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 8006 | | .CONST 0x8006 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0168 | h | .CONST 0x0168 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 005e | ^ | .CONST 0x005e ; Number of locals 000b INIT_0008: 000b 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible 000c 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 000e 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 0010 4800 |H | Short_Literal 0x0 0011 4802 |H | Short_Literal 0x2 0012 029f 018b | | Declare_Subprogram INIT_0188,For_Call 0014 03fe | | Declare_Type Discrete,Defined,Visible 0015 4800 |H | Short_Literal 0x0 0016 4801 |H | Short_Literal 0x1 0017 029f 01b3 | | Declare_Subprogram INIT_01b0,For_Call 0019 03fe | | Declare_Type Discrete,Defined,Visible 001a 481e |H | Short_Literal 0x1e 001b e001 | | Load 0x0,0x1 001c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 001d 1c07 | | Execute_Immediate Run_Utility,0x7 001e 0129 | ) | Execute Any,Make_Visible 001f 00e2 | | Load_Encached Integer_Cache 0020 00e1 | | Load_Encached Boolean_Cache 0021 00e1 | | Load_Encached Boolean_Cache 0022 e002 | | Load 0x0,0x2 0023 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0024 00e2 | | Load_Encached Integer_Cache 0025 029f 0a1b | | Declare_Subprogram INIT_0a18,For_Call 0027 4806 |H | Short_Literal 0x6 0028 032e | . | Declare_Type Record,Defined,Visible 0029 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated 002b 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated 002d 4801 |H | Short_Literal 0x1 002e 4840 |H@ | Short_Literal 0x40 002f e003 | | Load 0x0,0x3 0030 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0031 035c | \ | Declare_Type Array,Constrained,Visible 0032 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated 0034 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated 0036 4801 |H | Short_Literal 0x1 0037 6144 |aD | Indirect_Literal Discrete,0x17c,{0x00000000, 0x00000400} 0038 e003 | | Load 0x0,0x3 0039 1b12 | | Execute Package,Field_Read,Field_Number 0x12 003a 035c | \ | Declare_Type Array,Constrained,Visible 003b 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated 003d 029a 035b | [| Declare_Subprogram INIT_0358,For_Outer_Call,Visible,Unelaborated 003f 029a 03c3 | | Declare_Subprogram INIT_03c0,For_Outer_Call,Visible,Unelaborated 0041 029a 03cb | | Declare_Subprogram INIT_03c8,For_Outer_Call,Visible,Unelaborated 0043 029a 03db | | Declare_Subprogram INIT_03d8,For_Outer_Call,Visible,Unelaborated 0045 029a 03eb | | Declare_Subprogram INIT_03e8,For_Outer_Call,Visible,Unelaborated 0047 029a 0453 | S| Declare_Subprogram INIT_0450,For_Outer_Call,Visible,Unelaborated 0049 029a 04ab | | Declare_Subprogram INIT_04a8,For_Outer_Call,Visible,Unelaborated 004b 029a 04bb | | Declare_Subprogram INIT_04b8,For_Outer_Call,Visible,Unelaborated 004d 029a 04c3 | | Declare_Subprogram INIT_04c0,For_Outer_Call,Visible,Unelaborated 004f 029a 04d3 | | Declare_Subprogram INIT_04d0,For_Outer_Call,Visible,Unelaborated 0051 029a 05cb | | Declare_Subprogram INIT_05c8,For_Outer_Call,Visible,Unelaborated 0053 029a 05fb | | Declare_Subprogram INIT_05f8,For_Outer_Call,Visible,Unelaborated 0055 029a 0653 | S| Declare_Subprogram INIT_0650,For_Outer_Call,Visible,Unelaborated 0057 029a 072b | +| Declare_Subprogram INIT_0728,For_Outer_Call,Visible,Unelaborated 0059 029a 073b | ;| Declare_Subprogram INIT_0738,For_Outer_Call,Visible,Unelaborated 005b 4809 |H | Short_Literal 0x9 005c 032a | * | Declare_Type Record,Incomplete 005d 00d8 | | Load_Top At_Offset_0 005e 02a0 | | Declare_Subprogram Null_Subprogram 005f e20d | | Load 0x1,0xd 0060 03a3 | | Complete_Type Heap_Access,By_Defining 0061 00bf | | Action Accept_Activation 0062 e004 | | Load 0x0,0x4 0063 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0064 e005 | | Load 0x0,0x5 0065 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0066 e210 | | Load 0x1,0x10 0067 e212 | | Load 0x1,0x12 0068 00e1 | | Load_Encached Boolean_Cache 0069 00e1 | | Load_Encached Boolean_Cache 006a e218 | | Load 0x1,0x18 006b 00e2 | | Load_Encached Integer_Cache 006c 00e2 | | Load_Encached Integer_Cache 006d 029f 0783 | | Declare_Subprogram INIT_0780,For_Call 006f e229 | ) | Load 0x1,0x29 0070 0326 | & | Complete_Type Record,By_Defining 0071 e212 | | Load 0x1,0x12 0072 0322 | " | Declare_Variable Record 0073 00d8 | | Load_Top At_Offset_0 0074 1c01 | | Execute_Immediate Run_Utility,0x1 0075 481e |H | Short_Literal 0x1e 0076 00ea | | Load_Encached Null_String_Cache 0077 e001 | | Load 0x0,0x1 0078 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0079 00d9 | | Load_Top At_Offset_1 007a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 007b 4800 |H | Short_Literal 0x0 007c 00d9 | | Load_Top At_Offset_1 007d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 007e 4800 |H | Short_Literal 0x0 007f 00d9 | | Load_Top At_Offset_1 0080 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0081 4800 |H | Short_Literal 0x0 0082 00d9 | | Load_Top At_Offset_1 0083 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0084 4800 |H | Short_Literal 0x0 0085 4801 |H | Short_Literal 0x1 0086 4801 |H | Short_Literal 0x1 0087 60f0 |` | Indirect_Literal Discrete,0x178,{0x00000000, 0x0000076d} 0088 e002 | | Load 0x0,0x2 0089 1818 | | Execute Package,Field_Execute,Field_Number 0x18 008a e212 | | Load 0x1,0x12 008b 3004 |0 | Execute Record,Field_Type,Field_Number 0x4 008c 0119 | | Execute Any,Check_In_Formal_Type 008d 00d9 | | Load_Top At_Offset_1 008e 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 008f 4800 |H | Short_Literal 0x0 0090 00d9 | | Load_Top At_Offset_1 0091 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0092 e210 | | Load 0x1,0x10 0093 0266 | f | Execute Discrete,Bounds 0094 e006 | | Load 0x0,0x6 0095 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0096 02a0 | | Declare_Subprogram Null_Subprogram 0097 4801 |H | Short_Literal 0x1 0098 035d | ] | Declare_Type Array,Defined 0099 00d8 | | Load_Top At_Offset_0 009a 0337 | 7 | Declare_Variable Array 009b 00d8 | | Load_Top At_Offset_0 009c 0335 | 5 | Declare_Variable Array,Duplicate 009d 00cd | | Action Spare6_Action 009e 4800 |H | Short_Literal 0x0 009f 4800 |H | Short_Literal 0x0 00a0 00da | | Load_Top At_Offset_2 00a1 01d6 | | Execute Vector,Field_Write 00a2 4801 |H | Short_Literal 0x1 00a3 4801 |H | Short_Literal 0x1 00a4 00da | | Load_Top At_Offset_2 00a5 01d6 | | Execute Vector,Field_Write 00a6 4801 |H | Short_Literal 0x1 00a7 4802 |H | Short_Literal 0x2 00a8 00da | | Load_Top At_Offset_2 00a9 01d6 | | Execute Vector,Field_Write 00aa 00d9 | | Load_Top At_Offset_1 00ab 01d4 | | Execute Vector,Structure_Write 00ac e211 | | Load 0x1,0x11 00ad 0266 | f | Execute Discrete,Bounds 00ae e007 | | Load 0x0,0x7 00af 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00b0 02a0 | | Declare_Subprogram Null_Subprogram 00b1 4801 |H | Short_Literal 0x1 00b2 035d | ] | Declare_Type Array,Defined 00b3 00d8 | | Load_Top At_Offset_0 00b4 0337 | 7 | Declare_Variable Array 00b5 00d8 | | Load_Top At_Offset_0 00b6 0335 | 5 | Declare_Variable Array,Duplicate 00b7 00cd | | Action Spare6_Action 00b8 4800 |H | Short_Literal 0x0 00b9 4800 |H | Short_Literal 0x0 00ba 00da | | Load_Top At_Offset_2 00bb 01d6 | | Execute Vector,Field_Write 00bc 4801 |H | Short_Literal 0x1 00bd 4801 |H | Short_Literal 0x1 00be 00da | | Load_Top At_Offset_2 00bf 01d6 | | Execute Vector,Field_Write 00c0 00d9 | | Load_Top At_Offset_1 00c1 01d4 | | Execute Vector,Structure_Write 00c2 e215 | | Load 0x1,0x15 00c3 0337 | 7 | Declare_Variable Array 00c4 4840 |H@ | Short_Literal 0x40 00c5 4801 |H | Short_Literal 0x1 00c6 4800 |H | Short_Literal 0x0 00c7 00d9 | | Load_Top At_Offset_1 00c8 e22f | / | Load 0x1,0x2f 00c9 01d6 | | Execute Vector,Field_Write 00ca 3ffb |? | Loop_Increasing 0xc6 00cb e215 | | Load 0x1,0x15 00cc 01c3 | | Execute Vector,Check_In_Type 00cd 0007 | | Action Break_Optional 00ce 4801 |H | Short_Literal 0x1 00cf 481e |H | Short_Literal 0x1e 00d0 00e3 | | Load_Encached Natural_Cache 00d1 03f8 | | Declare_Type Discrete,Constrained 00d2 481f |H | Short_Literal 0x1f 00d3 4820 |H | Short_Literal 0x20 00d4 00e3 | | Load_Encached Natural_Cache 00d5 03f8 | | Declare_Type Discrete,Constrained 00d6 4821 |H! | Short_Literal 0x21 00d7 4822 |H" | Short_Literal 0x22 00d8 00e3 | | Load_Encached Natural_Cache 00d9 03f8 | | Declare_Type Discrete,Constrained 00da 4823 |H# | Short_Literal 0x23 00db 4823 |H# | Short_Literal 0x23 00dc 00e3 | | Load_Encached Natural_Cache 00dd 03f8 | | Declare_Type Discrete,Constrained 00de 4824 |H$ | Short_Literal 0x24 00df 4824 |H$ | Short_Literal 0x24 00e0 00e3 | | Load_Encached Natural_Cache 00e1 03f8 | | Declare_Type Discrete,Constrained 00e2 4825 |H% | Short_Literal 0x25 00e3 4828 |H( | Short_Literal 0x28 00e4 00e3 | | Load_Encached Natural_Cache 00e5 03f8 | | Declare_Type Discrete,Constrained 00e6 4829 |H) | Short_Literal 0x29 00e7 482a |H* | Short_Literal 0x2a 00e8 00e3 | | Load_Encached Natural_Cache 00e9 03f8 | | Declare_Type Discrete,Constrained 00ea 482b |H+ | Short_Literal 0x2b 00eb 4840 |H@ | Short_Literal 0x40 00ec 00e3 | | Load_Encached Natural_Cache 00ed 03f8 | | Declare_Type Discrete,Constrained 00ee 029b 07ab | | Declare_Subprogram INIT_07a8,For_Outer_Call,Unelaborated 00f0 029b 07c3 | | Declare_Subprogram INIT_07c0,For_Outer_Call,Unelaborated 00f2 029d 07db | | Declare_Subprogram INIT_07d8,For_Outer_Call 00f4 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38 00f5 00c7 | | Action Elaborate_Subprogram 00f6 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39 00f7 00c7 | | Action Elaborate_Subprogram 00f8 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38 00f9 00c6 | | Action Check_Subprogram_Elaborated 00fa e007 | | Load 0x0,0x7 00fb 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00fc e008 | | Load 0x0,0x8 00fd e009 | | Load 0x0,0x9 00fe 4800 |H | Short_Literal 0x0 00ff 0007 | | Action Break_Optional 0100 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38 0101 00c6 | | Action Check_Subprogram_Elaborated 0102 e005 | | Load 0x0,0x5 0103 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0104 e00a | | Load 0x0,0xa 0105 e00b | | Load 0x0,0xb 0106 4800 |H | Short_Literal 0x0 0107 0007 | | Action Break_Optional 0108 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38 0109 00c6 | | Action Check_Subprogram_Elaborated 010a e005 | | Load 0x0,0x5 010b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 010c e00c | | Load 0x0,0xc 010d e00d | | Load 0x0,0xd 010e 4800 |H | Short_Literal 0x0 010f 0007 | | Action Break_Optional 0110 029d 07f3 | | Declare_Subprogram INIT_07f0,For_Outer_Call 0112 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39 0113 00c6 | | Action Check_Subprogram_Elaborated 0114 e007 | | Load 0x0,0x7 0115 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0116 4800 |H | Short_Literal 0x0 0117 1d47 | G | Execute_Immediate Reference_Lex_1,0x47 0118 e00e | | Load 0x0,0xe 0119 e00f | | Load 0x0,0xf 011a 4800 |H | Short_Literal 0x0 011b 0007 | | Action Break_Optional 011c 029d 0803 | | Declare_Subprogram INIT_0800,For_Outer_Call 011e 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39 011f 00c6 | | Action Check_Subprogram_Elaborated 0120 e005 | | Load 0x0,0x5 0121 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0122 4800 |H | Short_Literal 0x0 0123 1d4e | N | Execute_Immediate Reference_Lex_1,0x4e 0124 e010 | | Load 0x0,0x10 0125 e011 | | Load 0x0,0x11 0126 4800 |H | Short_Literal 0x0 0127 0007 | | Action Break_Optional 0128 029d 0813 | | Declare_Subprogram INIT_0810,For_Outer_Call 012a 029d 082b | +| Declare_Subprogram INIT_0828,For_Outer_Call 012c 029d 084b | K| Declare_Subprogram INIT_0848,For_Outer_Call 012e 029d 0873 | s| Declare_Subprogram INIT_0870,For_Outer_Call 0130 029d 0893 | | Declare_Subprogram INIT_0890,For_Outer_Call 0132 029d 08ab | | Declare_Subprogram INIT_08a8,For_Outer_Call 0134 029d 0903 | | Declare_Subprogram INIT_0900,For_Outer_Call 0136 029d 095b | [| Declare_Subprogram INIT_0958,For_Outer_Call 0138 029d 0973 | s| Declare_Subprogram INIT_0970,For_Outer_Call 013a 029d 09c3 | | Declare_Subprogram INIT_09c0,For_Outer_Call 013c 1d0e | | Execute_Immediate Reference_Lex_1,0xe 013d 00c7 | | Action Elaborate_Subprogram 013e 1d0f | | Execute_Immediate Reference_Lex_1,0xf 013f 00c7 | | Action Elaborate_Subprogram 0140 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0141 00c7 | | Action Elaborate_Subprogram 0142 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0143 00c7 | | Action Elaborate_Subprogram 0144 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0145 00c7 | | Action Elaborate_Subprogram 0146 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0147 00c7 | | Action Elaborate_Subprogram 0148 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0149 00c7 | | Action Elaborate_Subprogram 014a 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 014b 00c7 | | Action Elaborate_Subprogram 014c 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 014d 00c7 | | Action Elaborate_Subprogram 014e 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 014f 00c7 | | Action Elaborate_Subprogram 0150 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0151 00c7 | | Action Elaborate_Subprogram 0152 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0153 00c7 | | Action Elaborate_Subprogram 0154 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0155 00c7 | | Action Elaborate_Subprogram 0156 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0157 00c7 | | Action Elaborate_Subprogram 0158 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 0159 00c7 | | Action Elaborate_Subprogram 015a 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 015b 00c7 | | Action Elaborate_Subprogram 015c 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 015d 00c7 | | Action Elaborate_Subprogram 015e 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 015f 00c7 | | Action Elaborate_Subprogram 0160 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 0161 00c7 | | Action Elaborate_Subprogram 0162 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 0163 00c7 | | Action Elaborate_Subprogram 0164 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 0165 00c7 | | Action Elaborate_Subprogram 0166 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 0167 00c7 | | Action Elaborate_Subprogram 0168 BODY_0008: 0168 00bc | | Action Signal_Activated 0169 00bb | | Action Signal_Completion 016a 0000 0000 | | .BLANK 0000[0x6] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0173 | s | .CONST 0x0173 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0001 | | .CONST 0x0001 ; Number of locals 0173 BODY_0170: 0173 INIT_0170: 0173 e20d | | Load 0x1,0xd 0174 00ca | | Action Exit_Nullary_Function 0175 0000 0000 | | .XXX[0x3] 0177 0000 | | 0178 0000 0000 | | .LITERAL {0x00000000, 0x0000076d} 017c 0000 0000 | | .LITERAL {0x00000000, 0x00000400} 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0183 | | .CONST 0x0183 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0001 | | .CONST 0x0001 ; Number of locals 0183 BODY_0180: 0183 INIT_0180: 0183 00da | | Load_Top At_Offset_2 0184 021d | | Execute Heap_Access,Is_Null 0185 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0186 0000 0000 | | .XXX[0x2] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 018b | | .CONST 0x018b ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0001 | | .CONST 0x0001 ; Number of locals 018b BODY_0188: 018b INIT_0188: 018b 4607 |F | Jump_Case 0x8 018c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 018d 7806 |x | Jump 0x194 ; case 0x1 018e 7809 |x | Jump 0x198 ; case 0x2 018f 780d |x | Jump 0x19d ; case 0x3 0190 7810 |x | Jump 0x1a1 ; case 0x4 0191 7811 |x | Jump 0x1a3 ; case 0x5 0192 7812 |x | Jump 0x1a5 ; case 0x6 0193 7815 |x | Jump 0x1a9 ; case 0x7 0194 00da | | Load_Top At_Offset_2 0195 0091 0a37 | 7| Action Push_String_Extended_Indexed,0xa37 ; "READ" 0197 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0198 00db | | Load_Top At_Offset_3 0199 00db | | Load_Top At_Offset_3 019a 00e0 | | Load_Encached Standard_Cache 019b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 019c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 019d 00da | | Load_Top At_Offset_2 019e 00e0 | | Load_Encached Standard_Cache 019f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01a0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01a1 00db | | Load_Top At_Offset_3 01a2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01a3 00db | | Load_Top At_Offset_3 01a4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01a5 e210 | | Load 0x1,0x10 01a6 00dc | | Load_Top At_Offset_4 01a7 0267 | g | Execute Discrete,Predecessor 01a8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01a9 e210 | | Load 0x1,0x10 01aa 00dc | | Load_Top At_Offset_4 01ab 0268 | h | Execute Discrete,Successor 01ac 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01ad 0000 0000 | | .XXX[0x3] 01af 0000 | | 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01b3 | | .CONST 0x01b3 ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 0001 | | .CONST 0x0001 ; Number of locals 01b3 BODY_01b0: 01b3 INIT_01b0: 01b3 4607 |F | Jump_Case 0x8 01b4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 01b5 7806 |x | Jump 0x1bc ; case 0x1 01b6 7809 |x | Jump 0x1c0 ; case 0x2 01b7 780d |x | Jump 0x1c5 ; case 0x3 01b8 7810 |x | Jump 0x1c9 ; case 0x4 01b9 7811 |x | Jump 0x1cb ; case 0x5 01ba 7812 |x | Jump 0x1cd ; case 0x6 01bb 7815 |x | Jump 0x1d1 ; case 0x7 01bc 00da | | Load_Top At_Offset_2 01bd 0091 0a3a | :| Action Push_String_Extended_Indexed,0xa3a ; "REWIND" 01bf 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01c0 00db | | Load_Top At_Offset_3 01c1 00db | | Load_Top At_Offset_3 01c2 00e0 | | Load_Encached Standard_Cache 01c3 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01c4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01c5 00da | | Load_Top At_Offset_2 01c6 00e0 | | Load_Encached Standard_Cache 01c7 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01c8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01c9 00db | | Load_Top At_Offset_3 01ca 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01cb 00db | | Load_Top At_Offset_3 01cc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01cd e211 | | Load 0x1,0x11 01ce 00dc | | Load_Top At_Offset_4 01cf 0267 | g | Execute Discrete,Predecessor 01d0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01d1 e211 | | Load 0x1,0x11 01d2 00dc | | Load_Top At_Offset_4 01d3 0268 | h | Execute Discrete,Successor 01d4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01d5 0000 0000 | | .XXX[0x3] 01d7 0000 | | 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01db | | .CONST 0x01db ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0001 | | .CONST 0x0001 ; Number of locals 01db BODY_01d8: 01db INIT_01d8: 01db e22a | * | Load 0x1,0x2a 01dc 00ca | | Action Exit_Nullary_Function 01dd 0000 0000 | | .XXX[0x3] 01df 0000 | | 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 e22a | * | Load 0x1,0x2a 01e4 00db | | Load_Top At_Offset_3 01e5 017f | | Execute Record,Equal 01e6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01e7 0000 | | .XXX[0x1] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01f2 | | .CONST 0x01f2 ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0002 | | .CONST 0x0002 ; Number of locals 01eb INIT_01e8: 01eb e212 | | Load 0x1,0x12 01ec 0322 | " | Declare_Variable Record 01ed 00d8 | | Load_Top At_Offset_0 01ee 1c01 | | Execute_Immediate Run_Utility,0x1 01ef e22a | * | Load 0x1,0x2a 01f0 00d9 | | Load_Top At_Offset_1 01f1 017d | } | Execute Record,Structure_Write 01f2 BODY_01e8: 01f2 00d8 | | Load_Top At_Offset_0 01f3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01f4 4820 |H | Short_Literal 0x20 01f5 4800 |H | Short_Literal 0x0 01f6 4801 |H | Short_Literal 0x1 01f7 481e |H | Short_Literal 0x1e 01f8 e5ff | | Load 0x2,-0x1 01f9 01cf | | Execute Vector,Slice_Read 01fa e012 | | Load 0x0,0x12 01fb 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01fc e013 | | Load 0x0,0x13 01fd 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01fe e013 | | Load 0x0,0x13 01ff 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0200 e001 | | Load 0x0,0x1 0201 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0202 00d1 | | Pop_Control Pop_Count_1 0203 481f |H | Short_Literal 0x1f 0204 4820 |H | Short_Literal 0x20 0205 e5ff | | Load 0x2,-0x1 0206 01cf | | Execute Vector,Slice_Read 0207 8259 | Y | Call 0x1,0x59 0208 090a | | Execute_Immediate Binary_Scale,0xa 0209 00d9 | | Load_Top At_Offset_1 020a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 020b 00d8 | | Load_Top At_Offset_0 020c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 020d 680c |h | Jump_Zero 0x21a 020e 00d8 | | Load_Top At_Offset_0 020f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0210 4c00 |L | Short_Literal -0x400 0211 0273 | s | Execute Discrete,Plus 0212 4821 |H! | Short_Literal 0x21 0213 4822 |H" | Short_Literal 0x22 0214 e5ff | | Load 0x2,-0x1 0215 01cf | | Execute Vector,Slice_Read 0216 8259 | Y | Call 0x1,0x59 0217 0273 | s | Execute Discrete,Plus 0218 00d9 | | Load_Top At_Offset_1 0219 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 021a 4825 |H% | Short_Literal 0x25 021b 4828 |H( | Short_Literal 0x28 021c e5ff | | Load 0x2,-0x1 021d 01cf | | Execute Vector,Slice_Read 021e 825b | [ | Call 0x1,0x5b 021f 00d9 | | Load_Top At_Offset_1 0220 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0221 4823 |H# | Short_Literal 0x23 0222 4823 |H# | Short_Literal 0x23 0223 e5ff | | Load 0x2,-0x1 0224 01cf | | Execute Vector,Slice_Read 0225 8259 | Y | Call 0x1,0x59 0226 0c01 | | Execute_Immediate Greater_Equal,0x1 0227 00d9 | | Load_Top At_Offset_1 0228 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0229 4824 |H$ | Short_Literal 0x24 022a 4824 |H$ | Short_Literal 0x24 022b e5ff | | Load 0x2,-0x1 022c 01cf | | Execute Vector,Slice_Read 022d 8259 | Y | Call 0x1,0x59 022e 0c01 | | Execute_Immediate Greater_Equal,0x1 022f 00d9 | | Load_Top At_Offset_1 0230 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0231 4829 |H) | Short_Literal 0x29 0232 482a |H* | Short_Literal 0x2a 0233 e5ff | | Load 0x2,-0x1 0234 01cf | | Execute Vector,Slice_Read 0235 8259 | Y | Call 0x1,0x59 0236 00d9 | | Load_Top At_Offset_1 0237 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0238 00d8 | | Load_Top At_Offset_0 0239 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 023a 0000 0000 | | .BLANK 0000[0x6] 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0253 | S | .CONST 0x0253 ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0004 | | .CONST 0x0004 ; Number of locals 0243 INIT_0240: 0243 e215 | | Load 0x1,0x15 0244 0337 | 7 | Declare_Variable Array 0245 00d8 | | Load_Top At_Offset_0 0246 0335 | 5 | Declare_Variable Array,Duplicate 0247 00cd | | Action Spare6_Action 0248 4840 |H@ | Short_Literal 0x40 0249 4801 |H | Short_Literal 0x1 024a 4800 |H | Short_Literal 0x0 024b 00d9 | | Load_Top At_Offset_1 024c e403 | | Load 0x2,0x3 024d 01d6 | | Execute Vector,Field_Write 024e 3ffb |? | Loop_Increasing 0x24a 024f 00d9 | | Load_Top At_Offset_1 0250 01d4 | | Execute Vector,Structure_Write 0251 00e2 | | Load_Encached Integer_Cache 0252 00e2 | | Load_Encached Integer_Cache 0253 BODY_0240: 0253 00e3 | | Load_Encached Natural_Cache 0254 00e3 | | Load_Encached Natural_Cache 0255 e5ff | | Load 0x2,-0x1 0256 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0257 825e | ^ | Call 0x1,0x5e 0258 005b | [ | Store_Top Discrete,At_Offset_3 0259 0059 | Y | Store_Top Discrete,At_Offset_1 025a 00da | | Load_Top At_Offset_2 025b 4801 |H | Short_Literal 0x1 025c 481e |H | Short_Literal 0x1e 025d 00da | | Load_Top At_Offset_2 025e 035b | [ | Declare_Type Array,Constrained 025f 00d0 | | Action Swap_Control 0260 01cd | | Execute Vector,Slice_Reference 0261 e5ff | | Load 0x2,-0x1 0262 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0263 e001 | | Load 0x0,0x1 0264 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0265 8257 | W | Call 0x1,0x57 0266 00d1 | | Pop_Control Pop_Count_1 0267 00da | | Load_Top At_Offset_2 0268 4825 |H% | Short_Literal 0x25 0269 4828 |H( | Short_Literal 0x28 026a 00da | | Load_Top At_Offset_2 026b 035b | [ | Declare_Type Array,Constrained 026c 00d0 | | Action Swap_Control 026d 01cd | | Execute Vector,Slice_Reference 026e e5ff | | Load 0x2,-0x1 026f 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0270 825a | Z | Call 0x1,0x5a 0271 00d1 | | Pop_Control Pop_Count_1 0272 00da | | Load_Top At_Offset_2 0273 4829 |H) | Short_Literal 0x29 0274 482a |H* | Short_Literal 0x2a 0275 00da | | Load_Top At_Offset_2 0276 035b | [ | Declare_Type Array,Constrained 0277 00d0 | | Action Swap_Control 0278 01cd | | Execute Vector,Slice_Reference 0279 e5ff | | Load 0x2,-0x1 027a 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 027b 00d8 | | Load_Top At_Offset_0 027c 00e3 | | Load_Encached Natural_Cache 027d 0260 | ` | Execute Discrete,In_Type 027e 7001 |p | Jump_Nonzero 0x280 027f 0801 | | Execute_Immediate Raise,0x1 0280 8258 | X | Call 0x1,0x58 0281 00d1 | | Pop_Control Pop_Count_1 0282 e5ff | | Load 0x2,-0x1 0283 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0284 680b |h | Jump_Zero 0x290 0285 00da | | Load_Top At_Offset_2 0286 4824 |H$ | Short_Literal 0x24 0287 4824 |H$ | Short_Literal 0x24 0288 00da | | Load_Top At_Offset_2 0289 035b | [ | Declare_Type Array,Constrained 028a 00d0 | | Action Swap_Control 028b 01cd | | Execute Vector,Slice_Reference 028c 4801 |H | Short_Literal 0x1 028d 8258 | X | Call 0x1,0x58 028e 00d1 | | Pop_Control Pop_Count_1 028f 780d |x | Jump 0x29d 0290 e5ff | | Load 0x2,-0x1 0291 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0292 680a |h | Jump_Zero 0x29d 0293 00da | | Load_Top At_Offset_2 0294 4823 |H# | Short_Literal 0x23 0295 4823 |H# | Short_Literal 0x23 0296 00da | | Load_Top At_Offset_2 0297 035b | [ | Declare_Type Array,Constrained 0298 00d0 | | Action Swap_Control 0299 01cd | | Execute Vector,Slice_Reference 029a 4801 |H | Short_Literal 0x1 029b 8258 | X | Call 0x1,0x58 029c 00d1 | | Pop_Control Pop_Count_1 029d 00da | | Load_Top At_Offset_2 029e 481f |H | Short_Literal 0x1f 029f 4820 |H | Short_Literal 0x20 02a0 00da | | Load_Top At_Offset_2 02a1 035b | [ | Declare_Type Array,Constrained 02a2 00d0 | | Action Swap_Control 02a3 01cd | | Execute Vector,Slice_Reference 02a4 00da | | Load_Top At_Offset_2 02a5 00d8 | | Load_Top At_Offset_0 02a6 00e3 | | Load_Encached Natural_Cache 02a7 0260 | ` | Execute Discrete,In_Type 02a8 7001 |p | Jump_Nonzero 0x2aa 02a9 0801 | | Execute_Immediate Raise,0x1 02aa 8258 | X | Call 0x1,0x58 02ab 00d1 | | Pop_Control Pop_Count_1 02ac 00da | | Load_Top At_Offset_2 02ad 4821 |H! | Short_Literal 0x21 02ae 4822 |H" | Short_Literal 0x22 02af 00da | | Load_Top At_Offset_2 02b0 035b | [ | Declare_Type Array,Constrained 02b1 00d0 | | Action Swap_Control 02b2 01cd | | Execute Vector,Slice_Reference 02b3 00d9 | | Load_Top At_Offset_1 02b4 00d8 | | Load_Top At_Offset_0 02b5 00e3 | | Load_Encached Natural_Cache 02b6 0260 | ` | Execute Discrete,In_Type 02b7 7001 |p | Jump_Nonzero 0x2b9 02b8 0801 | | Execute_Immediate Raise,0x1 02b9 8258 | X | Call 0x1,0x58 02ba 00d1 | | Pop_Control Pop_Count_1 02bb 00da | | Load_Top At_Offset_2 02bc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02bd 0000 0000 | | .XXX[0x3] 02bf 0000 | | 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; SUBPROGRAM 02c0 ; -------------------------------------------------------------------------------------- 02c0 02d1 | | .CONST 0x02d1 ; Address of begin 02c1 0004 | | .CONST 0x0004 ; Address of exception handler 02c2 0005 | | .CONST 0x0005 ; Number of locals 02c3 INIT_02c0: 02c3 e005 | | Load 0x0,0x5 02c4 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02c5 e005 | | Load 0x0,0x5 02c6 1b11 | | Execute Package,Field_Read,Field_Number 0x11 02c7 0322 | " | Declare_Variable Record 02c8 e004 | | Load 0x0,0x4 02c9 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 02ca 02ff | | Declare_Variable Variant_Record 02cb e5ff | | Load 0x2,-0x1 02cc 8256 | V | Call 0x1,0x56 02cd 00d9 | | Load_Top At_Offset_1 02ce 016d | m | Execute Variant_Record,Structure_Write 02cf e20d | | Load 0x1,0xd 02d0 0007 | | Action Break_Optional 02d1 BODY_02c0: 02d1 00d9 | | Load_Top At_Offset_1 02d2 e004 | | Load 0x0,0x4 02d3 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 02d4 6874 |ht | Jump_Zero 0x349 02d5 e20d | | Load 0x1,0xd 02d6 e014 | | Load 0x0,0x14 02d7 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02d8 e015 | | Load 0x0,0x15 02d9 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02da 039c | | Declare_Variable Heap_Access,By_Allocation 02db 00d8 | | Load_Top At_Offset_0 02dc 0217 | | Execute Heap_Access,All_Reference 02dd 1c00 | | Execute_Immediate Run_Utility,0x0 02de 0031 | 1 | Store_Top Heap_Access,At_Offset_1 02df 00d9 | | Load_Top At_Offset_1 02e0 00d9 | | Load_Top At_Offset_1 02e1 0217 | | Execute Heap_Access,All_Reference 02e2 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 02e3 e5fe | | Load 0x2,-0x2 02e4 00d9 | | Load_Top At_Offset_1 02e5 0217 | | Execute Heap_Access,All_Reference 02e6 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 02e7 4800 |H | Short_Literal 0x0 02e8 00d9 | | Load_Top At_Offset_1 02e9 0217 | | Execute Heap_Access,All_Reference 02ea 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 02eb 4800 |H | Short_Literal 0x0 02ec 00d9 | | Load_Top At_Offset_1 02ed 0217 | | Execute Heap_Access,All_Reference 02ee 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 02ef 00cf | | Action Mark_Auxiliary 02f0 4805 |H | Short_Literal 0x5 02f1 4801 |H | Short_Literal 0x1 02f2 0007 | | Action Break_Optional 02f3 00db | | Load_Top At_Offset_3 02f4 0219 | | Execute Heap_Access,All_Read 02f5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02f6 e402 | | Load 0x2,0x2 02f7 00d9 | | Load_Top At_Offset_1 02f8 e405 | | Load 0x2,0x5 02f9 0217 | | Execute Heap_Access,All_Reference 02fa 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 02fb e22c | , | Load 0x1,0x2c 02fc 01d7 | | Execute Vector,Field_Read 02fd e404 | | Load 0x2,0x4 02fe e005 | | Load 0x0,0x5 02ff 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0300 00d1 | | Pop_Control Pop_Count_1 0301 c402 | | Store 0x2,0x2 0302 00d1 | | Pop_Control Pop_Count_1 0303 e402 | | Load 0x2,0x2 0304 4604 |F | Jump_Case 0x5 0305 7811 |x | Jump 0x317 ; case 0x0 0306 782b |x+ | Jump 0x332 ; case 0x1 0307 7832 |x2 | Jump 0x33a ; case 0x2 0308 7831 |x1 | Jump 0x33a ; case 0x3 0309 7800 |x | Jump 0x30a ; case 0x4 030a 00d8 | | Load_Top At_Offset_0 030b 0d05 | | Execute_Immediate Less,0x5 030c 6834 |h4 | Jump_Zero 0x341 030d 4800 |H | Short_Literal 0x0 030e 0092 0a3c | <| Action Push_String_Extended,0xa3c ; "Open Tape (will retry)" 0310 e402 | | Load 0x2,0x2 0311 e23f | ? | Load 0x1,0x3f 0312 1d40 | @ | Execute_Immediate Reference_Lex_1,0x40 0313 8238 | 8 | Call 0x1,0x38 0314 603f |`? | Indirect_Literal Discrete,0x354,{0x00000000, 0x00050000} 0315 00ba | | Action Initiate_Delay 0316 782a |x* | Jump 0x341 0317 00db | | Load_Top At_Offset_3 0318 a5fd | | Store_Unchecked 0x2,-0x3 0319 00db | | Load_Top At_Offset_3 031a 0217 | | Execute Heap_Access,All_Reference 031b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 031c 6814 |h | Jump_Zero 0x331 031d 7800 |x | Jump 0x31e 031e e403 | | Load 0x2,0x3 031f 4804 |H | Short_Literal 0x4 0320 602f |`/ | Indirect_Literal Discrete,0x350,{0x00000000, 0x00000400} 0321 e405 | | Load 0x2,0x5 0322 0217 | | Execute Heap_Access,All_Reference 0323 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0324 e005 | | Load 0x0,0x5 0325 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0326 00d1 | | Pop_Control Pop_Count_1 0327 4801 |H | Short_Literal 0x1 0328 0092 0a3d | =| Action Push_String_Extended,0xa3d ; "Begin Streaming Write" 032a e403 | | Load 0x2,0x3 032b 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 032c e248 | H | Load 0x1,0x48 032d e249 | I | Load 0x1,0x49 032e 1d4a | J | Execute_Immediate Reference_Lex_1,0x4a 032f 1d4b | K | Execute_Immediate Reference_Lex_1,0x4b 0330 8239 | 9 | Call 0x1,0x39 0331 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0332 4801 |H | Short_Literal 0x1 0333 0092 0a3e | >| Action Push_String_Extended,0xa3e ; "Open Tape" 0335 e402 | | Load 0x2,0x2 0336 e23f | ? | Load 0x1,0x3f 0337 1d40 | @ | Execute_Immediate Reference_Lex_1,0x40 0338 8238 | 8 | Call 0x1,0x38 0339 7807 |x | Jump 0x341 033a 4801 |H | Short_Literal 0x1 033b 0092 0a3f | ?| Action Push_String_Extended,0xa3f ; "Other Error" 033d e402 | | Load 0x2,0x2 033e e23f | ? | Load 0x1,0x3f 033f 1d40 | @ | Execute_Immediate Reference_Lex_1,0x40 0340 8238 | 8 | Call 0x1,0x38 0341 00c8 | | Action Pop_Auxiliary_Range 0342 3fb0 |? | Loop_Increasing 0x2f3 0343 00ce | | Action Pop_Auxiliary 0344 4801 |H | Short_Literal 0x1 0345 0092 0a40 | @| Action Push_String_Extended,0xa40 ; "Too many retries in Opening Tape Drive" 0347 823a | : | Call 0x1,0x3a 0348 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0349 4801 |H | Short_Literal 0x1 034a 0092 0a41 | A| Action Push_String_Extended,0xa41 ; "Non-Existent Tape Drive Specified" 034c 823a | : | Call 0x1,0x3a 034d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 034e 0000 0000 | | .XXX[0x2] 0350 0000 0000 | | .LITERAL {0x00000000, 0x00000400} 0354 0000 0000 | | .LITERAL {0x00000000, 0x00050000} 0358 ; -------------------------------------------------------------------------------------- 0358 ; SUBPROGRAM 0358 ; -------------------------------------------------------------------------------------- 0358 0360 | ` | .CONST 0x0360 ; Address of begin 0359 0004 | | .CONST 0x0004 ; Address of exception handler 035a 0003 | | .CONST 0x0003 ; Number of locals 035b INIT_0358: 035b e005 | | Load 0x0,0x5 035c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 035d 0322 | " | Declare_Variable Record 035e e005 | | Load 0x0,0x5 035f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0360 BODY_0358: 0360 e5fe | | Load 0x2,-0x2 0361 0217 | | Execute Heap_Access,All_Reference 0362 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0363 6833 |h3 | Jump_Zero 0x397 0364 00d9 | | Load_Top At_Offset_1 0365 e5fe | | Load 0x2,-0x2 0366 0217 | | Execute Heap_Access,All_Reference 0367 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0368 e005 | | Load 0x0,0x5 0369 181b | | Execute Package,Field_Execute,Field_Number 0x1b 036a 00d1 | | Pop_Control Pop_Count_1 036b 4801 |H | Short_Literal 0x1 036c 0092 0a42 | B| Action Push_String_Extended,0xa42 ; "End Streaming Write" 036e 00db | | Load_Top At_Offset_3 036f 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0370 e248 | H | Load 0x1,0x48 0371 e249 | I | Load 0x1,0x49 0372 1d4a | J | Execute_Immediate Reference_Lex_1,0x4a 0373 1d4b | K | Execute_Immediate Reference_Lex_1,0x4b 0374 8239 | 9 | Call 0x1,0x39 0375 00d9 | | Load_Top At_Offset_1 0376 e5fe | | Load 0x2,-0x2 0377 0217 | | Execute Heap_Access,All_Reference 0378 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0379 e005 | | Load 0x0,0x5 037a 1817 | | Execute Package,Field_Execute,Field_Number 0x17 037b 00d1 | | Pop_Control Pop_Count_1 037c 4801 |H | Short_Literal 0x1 037d 0092 0a43 | C| Action Push_String_Extended,0xa43 ; "Write Tape Mark (end of tape)" 037f 00db | | Load_Top At_Offset_3 0380 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0381 e248 | H | Load 0x1,0x48 0382 e249 | I | Load 0x1,0x49 0383 1d4a | J | Execute_Immediate Reference_Lex_1,0x4a 0384 1d4b | K | Execute_Immediate Reference_Lex_1,0x4b 0385 8239 | 9 | Call 0x1,0x39 0386 00d9 | | Load_Top At_Offset_1 0387 e5fe | | Load 0x2,-0x2 0388 0217 | | Execute Heap_Access,All_Reference 0389 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 038a e005 | | Load 0x0,0x5 038b 1817 | | Execute Package,Field_Execute,Field_Number 0x17 038c 00d1 | | Pop_Control Pop_Count_1 038d 4801 |H | Short_Literal 0x1 038e 0092 0a43 | C| Action Push_String_Extended,0xa43 ; "Write Tape Mark (end of tape)" 0390 00db | | Load_Top At_Offset_3 0391 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0392 e248 | H | Load 0x1,0x48 0393 e249 | I | Load 0x1,0x49 0394 1d4a | J | Execute_Immediate Reference_Lex_1,0x4a 0395 1d4b | K | Execute_Immediate Reference_Lex_1,0x4b 0396 8239 | 9 | Call 0x1,0x39 0397 00d9 | | Load_Top At_Offset_1 0398 e5ff | | Load 0x2,-0x1 0399 e22e | . | Load 0x1,0x2e 039a 01d7 | | Execute Vector,Field_Read 039b e5fe | | Load 0x2,-0x2 039c 0217 | | Execute Heap_Access,All_Reference 039d 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 039e e005 | | Load 0x0,0x5 039f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 03a0 00d1 | | Pop_Control Pop_Count_1 03a1 4800 |H | Short_Literal 0x0 03a2 0092 0a44 | D| Action Push_String_Extended,0xa44 ; "Positioning Tape" 03a4 00db | | Load_Top At_Offset_3 03a5 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 03a6 e248 | H | Load 0x1,0x48 03a7 e249 | I | Load 0x1,0x49 03a8 1d4a | J | Execute_Immediate Reference_Lex_1,0x4a 03a9 1d4b | K | Execute_Immediate Reference_Lex_1,0x4b 03aa 8239 | 9 | Call 0x1,0x39 03ab e5fe | | Load 0x2,-0x2 03ac 0219 | | Execute Heap_Access,All_Read 03ad 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03ae e005 | | Load 0x0,0x5 03af 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03b0 00d9 | | Load_Top At_Offset_1 03b1 e005 | | Load 0x0,0x5 03b2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03b3 00d1 | | Pop_Control Pop_Count_1 03b4 005a | Z | Store_Top Discrete,At_Offset_2 03b5 00d1 | | Pop_Control Pop_Count_1 03b6 4801 |H | Short_Literal 0x1 03b7 0092 0a45 | E| Action Push_String_Extended,0xa45 ; "Closing Tape" 03b9 00da | | Load_Top At_Offset_2 03ba e24f | O | Load 0x1,0x4f 03bb e250 | P | Load 0x1,0x50 03bc 1d51 | Q | Execute_Immediate Reference_Lex_1,0x51 03bd 1d52 | R | Execute_Immediate Reference_Lex_1,0x52 03be 8239 | 9 | Call 0x1,0x39 03bf 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03c0 ; -------------------------------------------------------------------------------------- 03c0 ; SUBPROGRAM 03c0 ; -------------------------------------------------------------------------------------- 03c0 03c3 | | .CONST 0x03c3 ; Address of begin 03c1 0004 | | .CONST 0x0004 ; Address of exception handler 03c2 0001 | | .CONST 0x0001 ; Number of locals 03c3 BODY_03c0: 03c3 INIT_03c0: 03c3 00da | | Load_Top At_Offset_2 03c4 021c | | Execute Heap_Access,Not_Null 03c5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03c6 0000 0000 | | .XXX[0x2] 03c8 ; -------------------------------------------------------------------------------------- 03c8 ; SUBPROGRAM 03c8 ; -------------------------------------------------------------------------------------- 03c8 03cb | | .CONST 0x03cb ; Address of begin 03c9 0004 | | .CONST 0x0004 ; Address of exception handler 03ca 0001 | | .CONST 0x0001 ; Number of locals 03cb BODY_03c8: 03cb INIT_03c8: 03cb 00da | | Load_Top At_Offset_2 03cc 821b | | Call 0x1,0x1b 03cd 6804 |h | Jump_Zero 0x3d2 03ce 00da | | Load_Top At_Offset_2 03cf 0217 | | Execute Heap_Access,All_Reference 03d0 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 03d1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03d2 4801 |H | Short_Literal 0x1 03d3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03d4 0000 0000 | | .BLANK 0000[0x4] 03d8 ; -------------------------------------------------------------------------------------- 03d8 ; SUBPROGRAM 03d8 ; -------------------------------------------------------------------------------------- 03d8 03db | | .CONST 0x03db ; Address of begin 03d9 0004 | | .CONST 0x0004 ; Address of exception handler 03da 0001 | | .CONST 0x0001 ; Number of locals 03db BODY_03d8: 03db INIT_03d8: 03db 00da | | Load_Top At_Offset_2 03dc 0217 | | Execute Heap_Access,All_Reference 03dd 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 03de 00d8 | | Load_Top At_Offset_0 03df 00e3 | | Load_Encached Natural_Cache 03e0 0260 | ` | Execute Discrete,In_Type 03e1 7001 |p | Jump_Nonzero 0x3e3 03e2 0801 | | Execute_Immediate Raise,0x1 03e3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03e4 0000 0000 | | .BLANK 0000[0x4] 03e8 ; -------------------------------------------------------------------------------------- 03e8 ; SUBPROGRAM 03e8 ; -------------------------------------------------------------------------------------- 03e8 03f0 | | .CONST 0x03f0 ; Address of begin 03e9 0004 | | .CONST 0x0004 ; Address of exception handler 03ea 0003 | | .CONST 0x0003 ; Number of locals 03eb INIT_03e8: 03eb e215 | | Load 0x1,0x15 03ec 0337 | 7 | Declare_Variable Array 03ed e005 | | Load 0x0,0x5 03ee 1b11 | | Execute Package,Field_Read,Field_Number 0x11 03ef 0322 | " | Declare_Variable Record 03f0 BODY_03e8: 03f0 e5ff | | Load 0x2,-0x1 03f1 821b | | Call 0x1,0x1b 03f2 6856 |hV | Jump_Zero 0x449 03f3 e5ff | | Load 0x2,-0x1 03f4 0217 | | Execute Heap_Access,All_Reference 03f5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 03f6 681c |h | Jump_Zero 0x413 03f7 00d8 | | Load_Top At_Offset_0 03f8 e5fe | | Load 0x2,-0x2 03f9 8217 | | Call 0x1,0x17 03fa e5ff | | Load 0x2,-0x1 03fb 0217 | | Execute Heap_Access,All_Reference 03fc 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 03fd e005 | | Load 0x0,0x5 03fe 1816 | | Execute Package,Field_Execute,Field_Number 0x16 03ff 00d1 | | Pop_Control Pop_Count_1 0400 4800 |H | Short_Literal 0x0 0401 0092 0a46 | F| Action Push_String_Extended,0xa46 ; "Writing Header" 0403 00da | | Load_Top At_Offset_2 0404 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0405 e248 | H | Load 0x1,0x48 0406 e249 | I | Load 0x1,0x49 0407 1d4a | J | Execute_Immediate Reference_Lex_1,0x4a 0408 1d4b | K | Execute_Immediate Reference_Lex_1,0x4b 0409 8239 | 9 | Call 0x1,0x39 040a e5fe | | Load 0x2,-0x2 040b e5ff | | Load 0x2,-0x1 040c 0217 | | Execute Heap_Access,All_Reference 040d 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 040e 4801 |H | Short_Literal 0x1 040f e5ff | | Load 0x2,-0x1 0410 0217 | | Execute Heap_Access,All_Reference 0411 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0412 7827 |x' | Jump 0x43a 0413 e5ff | | Load 0x2,-0x1 0414 0219 | | Execute Heap_Access,All_Read 0415 00e1 | | Load_Encached Boolean_Cache 0416 00db | | Load_Top At_Offset_3 0417 e5ff | | Load 0x2,-0x1 0418 0217 | | Execute Heap_Access,All_Reference 0419 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 041a 825d | ] | Call 0x1,0x5d 041b 00d1 | | Pop_Control Pop_Count_1 041c 00d9 | | Load_Top At_Offset_1 041d 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 041e 00d1 | | Pop_Control Pop_Count_1 041f e5ff | | Load 0x2,-0x1 0420 0217 | | Execute Heap_Access,All_Reference 0421 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0422 6809 |h | Jump_Zero 0x42c 0423 e22a | * | Load 0x1,0x2a 0424 e5ff | | Load 0x2,-0x1 0425 0217 | | Execute Heap_Access,All_Reference 0426 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0427 4800 |H | Short_Literal 0x0 0428 e5ff | | Load 0x2,-0x1 0429 0217 | | Execute Heap_Access,All_Reference 042a 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 042b 7809 |x | Jump 0x435 042c 00d9 | | Load_Top At_Offset_1 042d 8216 | | Call 0x1,0x16 042e e5ff | | Load 0x2,-0x1 042f 0217 | | Execute Heap_Access,All_Reference 0430 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0431 4801 |H | Short_Literal 0x1 0432 e5ff | | Load 0x2,-0x1 0433 0217 | | Execute Heap_Access,All_Reference 0434 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0435 e5ff | | Load 0x2,-0x1 0436 0217 | | Execute Heap_Access,All_Reference 0437 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0438 e5fe | | Load 0x2,-0x2 0439 017d | } | Execute Record,Structure_Write 043a e5ff | | Load 0x2,-0x1 043b 0217 | | Execute Heap_Access,All_Reference 043c 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 043d 680b |h | Jump_Zero 0x449 043e e5ff | | Load 0x2,-0x1 043f 0217 | | Execute Heap_Access,All_Reference 0440 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0441 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0442 e5ff | | Load 0x2,-0x1 0443 0217 | | Execute Heap_Access,All_Reference 0444 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 0445 4800 |H | Short_Literal 0x0 0446 e5ff | | Load 0x2,-0x1 0447 0217 | | Execute Heap_Access,All_Reference 0448 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0449 4502 |E | Exit_Suprogram New_Top_Offset 0x2 044a 0000 0000 | | .BLANK 0000[0x6] 0450 ; -------------------------------------------------------------------------------------- 0450 ; SUBPROGRAM 0450 ; -------------------------------------------------------------------------------------- 0450 0459 | Y | .CONST 0x0459 ; Address of begin 0451 0004 | | .CONST 0x0004 ; Address of exception handler 0452 0004 | | .CONST 0x0004 ; Number of locals 0453 INIT_0450: 0453 e005 | | Load 0x0,0x5 0454 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0455 0322 | " | Declare_Variable Record 0456 e218 | | Load 0x1,0x18 0457 0337 | 7 | Declare_Variable Array 0458 00e2 | | Load_Encached Integer_Cache 0459 BODY_0450: 0459 e5ff | | Load 0x2,-0x1 045a 6845 |hE | Jump_Zero 0x4a0 045b e5ff | | Load 0x2,-0x1 045c 0217 | | Execute Heap_Access,All_Reference 045d 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 045e 6841 |hA | Jump_Zero 0x4a0 045f e5ff | | Load 0x2,-0x1 0460 0217 | | Execute Heap_Access,All_Reference 0461 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0462 6826 |h& | Jump_Zero 0x489 0463 e218 | | Load 0x1,0x18 0464 0337 | 7 | Declare_Variable Array 0465 603e |`> | Indirect_Literal Discrete,0x4a4,{0x00000000, 0x00000400} 0466 4801 |H | Short_Literal 0x1 0467 4800 |H | Short_Literal 0x0 0468 00d9 | | Load_Top At_Offset_1 0469 e405 | | Load 0x2,0x5 046a 01d6 | | Execute Vector,Field_Write 046b 3ffb |? | Loop_Increasing 0x467 046c 00da | | Load_Top At_Offset_2 046d 01d4 | | Execute Vector,Structure_Write 046e 00cf | | Action Mark_Auxiliary 046f 7804 |x | Jump 0x474 0470 00da | | Load_Top At_Offset_2 0471 e5ff | | Load 0x2,-0x1 0472 8226 | & | Call 0x1,0x26 0473 00c9 | | Action Pop_Auxiliary_Loop 0474 e5ff | | Load 0x2,-0x1 0475 0217 | | Execute Heap_Access,All_Reference 0476 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0477 602c |`, | Indirect_Literal Discrete,0x4a4,{0x00000000, 0x00000400} 0478 027d | } | Execute Discrete,Greater 0479 77f6 |w | Jump_Nonzero 0x470 047a 00ce | | Action Pop_Auxiliary 047b e5ff | | Load 0x2,-0x1 047c 0217 | | Execute Heap_Access,All_Reference 047d 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 047e 0c01 | | Execute_Immediate Greater_Equal,0x1 047f 6818 |h | Jump_Zero 0x498 0480 4801 |H | Short_Literal 0x1 0481 e5ff | | Load 0x2,-0x1 0482 0217 | | Execute Heap_Access,All_Reference 0483 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0484 00db | | Load_Top At_Offset_3 0485 01cf | | Execute Vector,Slice_Read 0486 e5ff | | Load 0x2,-0x1 0487 8226 | & | Call 0x1,0x26 0488 780f |x | Jump 0x498 0489 00cf | | Action Mark_Auxiliary 048a 7807 |x | Jump 0x492 048b 00e3 | | Load_Encached Natural_Cache 048c 00db | | Load_Top At_Offset_3 048d e5ff | | Load 0x2,-0x1 048e 8223 | # | Call 0x1,0x23 048f 00d1 | | Pop_Control Pop_Count_1 0490 005a | Z | Store_Top Discrete,At_Offset_2 0491 00c9 | | Action Pop_Auxiliary_Loop 0492 e5ff | | Load 0x2,-0x1 0493 0217 | | Execute Heap_Access,All_Reference 0494 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0495 0c01 | | Execute_Immediate Greater_Equal,0x1 0496 77f4 |w | Jump_Nonzero 0x48b 0497 00ce | | Action Pop_Auxiliary 0498 e5ff | | Load 0x2,-0x1 0499 0217 | | Execute Heap_Access,All_Reference 049a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 049b 0f02 | | Execute_Immediate Equal,0x2 049c 6803 |h | Jump_Zero 0x4a0 049d 4801 |H | Short_Literal 0x1 049e e5ff | | Load 0x2,-0x1 049f 8228 | ( | Call 0x1,0x28 04a0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04a1 0000 0000 | | .XXX[0x3] 04a3 0000 | | 04a4 0000 0000 | | .LITERAL {0x00000000, 0x00000400} 04a8 ; -------------------------------------------------------------------------------------- 04a8 ; SUBPROGRAM 04a8 ; -------------------------------------------------------------------------------------- 04a8 04ab | | .CONST 0x04ab ; Address of begin 04a9 0004 | | .CONST 0x0004 ; Address of exception handler 04aa 0001 | | .CONST 0x0001 ; Number of locals 04ab BODY_04a8: 04ab INIT_04a8: 04ab 00da | | Load_Top At_Offset_2 04ac 6804 |h | Jump_Zero 0x4b1 04ad 00da | | Load_Top At_Offset_2 04ae 0217 | | Execute Heap_Access,All_Reference 04af 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 04b0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04b1 4800 |H | Short_Literal 0x0 04b2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04b3 0000 0000 | | .BLANK 0000[0x5] 04b8 ; -------------------------------------------------------------------------------------- 04b8 ; SUBPROGRAM 04b8 ; -------------------------------------------------------------------------------------- 04b8 04bb | | .CONST 0x04bb ; Address of begin 04b9 0004 | | .CONST 0x0004 ; Address of exception handler 04ba 0001 | | .CONST 0x0001 ; Number of locals 04bb BODY_04b8: 04bb INIT_04b8: 04bb 00da | | Load_Top At_Offset_2 04bc 0217 | | Execute Heap_Access,All_Reference 04bd 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 04be 0c01 | | Execute_Immediate Greater_Equal,0x1 04bf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04c0 ; -------------------------------------------------------------------------------------- 04c0 ; SUBPROGRAM 04c0 ; -------------------------------------------------------------------------------------- 04c0 04c3 | | .CONST 0x04c3 ; Address of begin 04c1 0004 | | .CONST 0x0004 ; Address of exception handler 04c2 0001 | | .CONST 0x0001 ; Number of locals 04c3 BODY_04c0: 04c3 INIT_04c0: 04c3 00da | | Load_Top At_Offset_2 04c4 8220 | | Call 0x1,0x20 04c5 6806 |h | Jump_Zero 0x4cc 04c6 00da | | Load_Top At_Offset_2 04c7 0217 | | Execute Heap_Access,All_Reference 04c8 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 04c9 0320 | | Declare_Variable Record,Duplicate 04ca 00cd | | Action Spare6_Action 04cb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04cc e22a | * | Load 0x1,0x2a 04cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04ce 0000 0000 | | .XXX[0x2] 04d0 ; -------------------------------------------------------------------------------------- 04d0 ; SUBPROGRAM 04d0 ; -------------------------------------------------------------------------------------- 04d0 04d6 | | .CONST 0x04d6 ; Address of begin 04d1 0004 | | .CONST 0x0004 ; Address of exception handler 04d2 0002 | | .CONST 0x0002 ; Number of locals 04d3 INIT_04d0: 04d3 e005 | | Load 0x0,0x5 04d4 1b11 | | Execute Package,Field_Read,Field_Number 0x11 04d5 0322 | " | Declare_Variable Record 04d6 BODY_04d0: 04d6 00db | | Load_Top At_Offset_3 04d7 0217 | | Execute Heap_Access,All_Reference 04d8 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 04d9 6862 |hb | Jump_Zero 0x53c 04da e5fe | | Load 0x2,-0x2 04db 01db | | Execute Vector,Length 04dc e5ff | | Load 0x2,-0x1 04dd 0217 | | Execute Heap_Access,All_Reference 04de 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 04df 027b | { | Execute Discrete,Greater_Equal 04e0 6821 |h! | Jump_Zero 0x502 04e1 4801 |H | Short_Literal 0x1 04e2 e5ff | | Load 0x2,-0x1 04e3 0217 | | Execute Heap_Access,All_Reference 04e4 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 04e5 e5ff | | Load 0x2,-0x1 04e6 0217 | | Execute Heap_Access,All_Reference 04e7 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 04e8 01cf | | Execute Vector,Slice_Read 04e9 e5fe | | Load 0x2,-0x2 04ea 01dd | | Execute Vector,First 04eb e5fe | | Load 0x2,-0x2 04ec 01dd | | Execute Vector,First 04ed e5ff | | Load 0x2,-0x1 04ee 0217 | | Execute Heap_Access,All_Reference 04ef 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 04f0 0273 | s | Execute Discrete,Plus 04f1 0aff | | Execute_Immediate Plus,-0x1 04f2 00d8 | | Load_Top At_Offset_0 04f3 00e2 | | Load_Encached Integer_Cache 04f4 0260 | ` | Execute Discrete,In_Type 04f5 7001 |p | Jump_Nonzero 0x4f7 04f6 0801 | | Execute_Immediate Raise,0x1 04f7 e5fe | | Load 0x2,-0x2 04f8 01ce | | Execute Vector,Slice_Write 04f9 00db | | Load_Top At_Offset_3 04fa 0217 | | Execute Heap_Access,All_Reference 04fb 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 04fc c5fd | | Store 0x2,-0x3 04fd 4800 |H | Short_Literal 0x0 04fe e5ff | | Load 0x2,-0x1 04ff 0217 | | Execute Heap_Access,All_Reference 0500 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0501 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0502 4801 |H | Short_Literal 0x1 0503 e5fe | | Load 0x2,-0x2 0504 01db | | Execute Vector,Length 0505 00d8 | | Load_Top At_Offset_0 0506 00e2 | | Load_Encached Integer_Cache 0507 0260 | ` | Execute Discrete,In_Type 0508 7001 |p | Jump_Nonzero 0x50a 0509 0801 | | Execute_Immediate Raise,0x1 050a e5ff | | Load 0x2,-0x1 050b 0217 | | Execute Heap_Access,All_Reference 050c 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 050d 01cf | | Execute Vector,Slice_Read 050e e5fe | | Load 0x2,-0x2 050f 01d4 | | Execute Vector,Structure_Write 0510 e5fe | | Load 0x2,-0x2 0511 01db | | Execute Vector,Length 0512 c5fd | | Store 0x2,-0x3 0513 00db | | Load_Top At_Offset_3 0514 0217 | | Execute Heap_Access,All_Reference 0515 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0516 e5fe | | Load 0x2,-0x2 0517 01db | | Execute Vector,Length 0518 0272 | r | Execute Discrete,Minus 0519 e5ff | | Load 0x2,-0x1 051a 0217 | | Execute Heap_Access,All_Reference 051b 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 051c e5fe | | Load 0x2,-0x2 051d 01db | | Execute Vector,Length 051e 0a01 | | Execute_Immediate Plus,0x1 051f 00d8 | | Load_Top At_Offset_0 0520 00e2 | | Load_Encached Integer_Cache 0521 0260 | ` | Execute Discrete,In_Type 0522 7001 |p | Jump_Nonzero 0x524 0523 0801 | | Execute_Immediate Raise,0x1 0524 e5fe | | Load 0x2,-0x2 0525 01db | | Execute Vector,Length 0526 e5ff | | Load 0x2,-0x1 0527 0217 | | Execute Heap_Access,All_Reference 0528 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0529 0273 | s | Execute Discrete,Plus 052a 00d8 | | Load_Top At_Offset_0 052b 00e2 | | Load_Encached Integer_Cache 052c 0260 | ` | Execute Discrete,In_Type 052d 7001 |p | Jump_Nonzero 0x52f 052e 0801 | | Execute_Immediate Raise,0x1 052f e5ff | | Load 0x2,-0x1 0530 0217 | | Execute Heap_Access,All_Reference 0531 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0532 01cf | | Execute Vector,Slice_Read 0533 4801 |H | Short_Literal 0x1 0534 e5ff | | Load 0x2,-0x1 0535 0217 | | Execute Heap_Access,All_Reference 0536 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0537 e5ff | | Load 0x2,-0x1 0538 0219 | | Execute Heap_Access,All_Read 0539 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 053a 01ce | | Execute Vector,Slice_Write 053b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 053c 00db | | Load_Top At_Offset_3 053d 0217 | | Execute Heap_Access,All_Reference 053e 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 053f 7002 |p | Jump_Nonzero 0x542 0540 4950 |IP | Short_Literal 0x150 0541 0257 | W | Execute Discrete,Raise 0542 e5fe | | Load 0x2,-0x2 0543 01db | | Execute Vector,Length 0544 607b |`{ | Indirect_Literal Discrete,0x5c0,{0x00000000, 0x00000400} 0545 027f | | Execute Discrete,Equal 0546 6840 |h@ | Jump_Zero 0x587 0547 e5fe | | Load 0x2,-0x2 0548 00d8 | | Load_Top At_Offset_0 0549 01dd | | Execute Vector,First 054a e5fe | | Load 0x2,-0x2 054b 01dd | | Execute Vector,First 054c 6073 |`s | Indirect_Literal Discrete,0x5c0,{0x00000000, 0x00000400} 054d 0273 | s | Execute Discrete,Plus 054e 0aff | | Execute_Immediate Plus,-0x1 054f 00d8 | | Load_Top At_Offset_0 0550 00e2 | | Load_Encached Integer_Cache 0551 0260 | ` | Execute Discrete,In_Type 0552 7001 |p | Jump_Nonzero 0x554 0553 0801 | | Execute_Immediate Raise,0x1 0554 00da | | Load_Top At_Offset_2 0555 035b | [ | Declare_Type Array,Constrained 0556 00d0 | | Action Swap_Control 0557 01cd | | Execute Vector,Slice_Reference 0558 00d8 | | Load_Top At_Offset_0 0559 00da | | Load_Top At_Offset_2 055a e5ff | | Load 0x2,-0x1 055b 0217 | | Execute Heap_Access,All_Reference 055c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 055d e005 | | Load 0x0,0x5 055e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 055f 00d3 | | Pop_Control Pop_Count_3 0560 4801 |H | Short_Literal 0x1 0561 0092 0a47 | G| Action Push_String_Extended,0xa47 ; "Read File Record" 0563 00da | | Load_Top At_Offset_2 0564 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0565 e248 | H | Load 0x1,0x48 0566 e249 | I | Load 0x1,0x49 0567 1d4a | J | Execute_Immediate Reference_Lex_1,0x4a 0568 1d4b | K | Execute_Immediate Reference_Lex_1,0x4b 0569 8239 | 9 | Call 0x1,0x39 056a 00db | | Load_Top At_Offset_3 056b 0217 | | Execute Heap_Access,All_Reference 056c 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 056d 00d9 | | Load_Top At_Offset_1 056e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 056f 027c | | | Execute Discrete,Less 0570 6809 |h | Jump_Zero 0x57a 0571 00db | | Load_Top At_Offset_3 0572 0217 | | Execute Heap_Access,All_Reference 0573 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0574 c5fd | | Store 0x2,-0x3 0575 4800 |H | Short_Literal 0x0 0576 e5ff | | Load 0x2,-0x1 0577 0217 | | Execute Heap_Access,All_Reference 0578 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 0579 4502 |E | Exit_Suprogram New_Top_Offset 0x2 057a 00d8 | | Load_Top At_Offset_0 057b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 057c a5fd | | Store_Unchecked 0x2,-0x3 057d 00db | | Load_Top At_Offset_3 057e 0217 | | Execute Heap_Access,All_Reference 057f 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0580 00d9 | | Load_Top At_Offset_1 0581 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0582 0272 | r | Execute Discrete,Minus 0583 e5ff | | Load 0x2,-0x1 0584 0217 | | Execute Heap_Access,All_Reference 0585 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 0586 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0587 00db | | Load_Top At_Offset_3 0588 0219 | | Execute Heap_Access,All_Read 0589 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 058a 00d8 | | Load_Top At_Offset_0 058b 00da | | Load_Top At_Offset_2 058c e5ff | | Load 0x2,-0x1 058d 0217 | | Execute Heap_Access,All_Reference 058e 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 058f e005 | | Load 0x0,0x5 0590 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0591 00d3 | | Pop_Control Pop_Count_3 0592 4801 |H | Short_Literal 0x1 0593 0092 0a48 | H| Action Push_String_Extended,0xa48 ; "Read_File_Record" 0595 00da | | Load_Top At_Offset_2 0596 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0597 e248 | H | Load 0x1,0x48 0598 e249 | I | Load 0x1,0x49 0599 1d4a | J | Execute_Immediate Reference_Lex_1,0x4a 059a 1d4b | K | Execute_Immediate Reference_Lex_1,0x4b 059b 8239 | 9 | Call 0x1,0x39 059c 00d8 | | Load_Top At_Offset_0 059d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 059e e5ff | | Load 0x2,-0x1 059f 0217 | | Execute Heap_Access,All_Reference 05a0 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 05a1 00db | | Load_Top At_Offset_3 05a2 0217 | | Execute Heap_Access,All_Reference 05a3 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 05a4 e5ff | | Load 0x2,-0x1 05a5 0217 | | Execute Heap_Access,All_Reference 05a6 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 05a7 027c | | | Execute Discrete,Less 05a8 6806 |h | Jump_Zero 0x5af 05a9 00db | | Load_Top At_Offset_3 05aa 0217 | | Execute Heap_Access,All_Reference 05ab 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 05ac e5ff | | Load 0x2,-0x1 05ad 0217 | | Execute Heap_Access,All_Reference 05ae 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 05af 00db | | Load_Top At_Offset_3 05b0 0217 | | Execute Heap_Access,All_Reference 05b1 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 05b2 e5ff | | Load 0x2,-0x1 05b3 0217 | | Execute Heap_Access,All_Reference 05b4 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 05b5 0272 | r | Execute Discrete,Minus 05b6 e5ff | | Load 0x2,-0x1 05b7 0217 | | Execute Heap_Access,All_Reference 05b8 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 05b9 00e3 | | Load_Encached Natural_Cache 05ba e5fe | | Load 0x2,-0x2 05bb e5ff | | Load 0x2,-0x1 05bc 8223 | # | Call 0x1,0x23 05bd 00d1 | | Pop_Control Pop_Count_1 05be c5fd | | Store 0x2,-0x3 05bf 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05c0 0000 0000 | | .LITERAL {0x00000000, 0x00000400} 05c4 0000 0000 | | .BLANK 0000[0x4] 05c8 ; -------------------------------------------------------------------------------------- 05c8 ; SUBPROGRAM 05c8 ; -------------------------------------------------------------------------------------- 05c8 05d2 | | .CONST 0x05d2 ; Address of begin 05c9 0004 | | .CONST 0x0004 ; Address of exception handler 05ca 0003 | | .CONST 0x0003 ; Number of locals 05cb INIT_05c8: 05cb 00db | | Load_Top At_Offset_3 05cc 01da | | Execute Vector,Bounds 05cd e003 | | Load 0x0,0x3 05ce 1b12 | | Execute Package,Field_Read,Field_Number 0x12 05cf 035b | [ | Declare_Type Array,Constrained 05d0 0337 | 7 | Declare_Variable Array 05d1 00e2 | | Load_Encached Integer_Cache 05d2 BODY_05c8: 05d2 00e3 | | Load_Encached Natural_Cache 05d3 00da | | Load_Top At_Offset_2 05d4 e5ff | | Load 0x2,-0x1 05d5 8223 | # | Call 0x1,0x23 05d6 00d1 | | Pop_Control Pop_Count_1 05d7 0059 | Y | Store_Top Discrete,At_Offset_1 05d8 00d9 | | Load_Top At_Offset_1 05d9 01dd | | Execute Vector,First 05da 00da | | Load_Top At_Offset_2 05db 01dd | | Execute Vector,First 05dc 00da | | Load_Top At_Offset_2 05dd 0273 | s | Execute Discrete,Plus 05de 0aff | | Execute_Immediate Plus,-0x1 05df 00d8 | | Load_Top At_Offset_0 05e0 00e2 | | Load_Encached Integer_Cache 05e1 0260 | ` | Execute Discrete,In_Type 05e2 7001 |p | Jump_Nonzero 0x5e4 05e3 0801 | | Execute_Immediate Raise,0x1 05e4 00db | | Load_Top At_Offset_3 05e5 01cf | | Execute Vector,Slice_Read 05e6 e012 | | Load 0x0,0x12 05e7 1811 | | Execute Package,Field_Execute,Field_Number 0x11 05e8 e5fe | | Load 0x2,-0x2 05e9 01dd | | Execute Vector,First 05ea e5fe | | Load 0x2,-0x2 05eb 01dd | | Execute Vector,First 05ec 00db | | Load_Top At_Offset_3 05ed 0273 | s | Execute Discrete,Plus 05ee 0aff | | Execute_Immediate Plus,-0x1 05ef 00d8 | | Load_Top At_Offset_0 05f0 00e2 | | Load_Encached Integer_Cache 05f1 0260 | ` | Execute Discrete,In_Type 05f2 7001 |p | Jump_Nonzero 0x5f4 05f3 0801 | | Execute_Immediate Raise,0x1 05f4 e5fe | | Load 0x2,-0x2 05f5 01ce | | Execute Vector,Slice_Write 05f6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05f7 0000 | | .XXX[0x1] 05f8 ; -------------------------------------------------------------------------------------- 05f8 ; SUBPROGRAM 05f8 ; -------------------------------------------------------------------------------------- 05f8 0605 | | .CONST 0x0605 ; Address of begin 05f9 0004 | | .CONST 0x0004 ; Address of exception handler 05fa 0004 | | .CONST 0x0004 ; Number of locals 05fb INIT_05f8: 05fb 00da | | Load_Top At_Offset_2 05fc 0217 | | Execute Heap_Access,All_Reference 05fd 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 05fe 00e2 | | Load_Encached Integer_Cache 05ff 03f1 | | Declare_Variable Discrete,With_Value 0600 e005 | | Load 0x0,0x5 0601 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0602 0322 | " | Declare_Variable Record 0603 029f 09eb | | Declare_Subprogram INIT_09e8,For_Call 0605 BODY_05f8: 0605 00da | | Load_Top At_Offset_2 0606 7028 |p( | Jump_Nonzero 0x62f 0607 e5ff | | Load 0x2,-0x1 0608 0217 | | Execute Heap_Access,All_Reference 0609 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 060a 7002 |p | Jump_Nonzero 0x60d 060b 4950 |IP | Short_Literal 0x150 060c 0257 | W | Execute Discrete,Raise 060d e5ff | | Load 0x2,-0x1 060e 0219 | | Execute Heap_Access,All_Read 060f 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 0610 00d8 | | Load_Top At_Offset_0 0611 00db | | Load_Top At_Offset_3 0612 e5ff | | Load 0x2,-0x1 0613 0217 | | Execute Heap_Access,All_Reference 0614 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0615 e005 | | Load 0x0,0x5 0616 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0617 00d3 | | Pop_Control Pop_Count_3 0618 e5ff | | Load 0x2,-0x1 0619 0217 | | Execute Heap_Access,All_Reference 061a 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 061b 00da | | Load_Top At_Offset_2 061c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 061d 027c | | | Execute Discrete,Less 061e 6805 |h | Jump_Zero 0x624 061f e5ff | | Load 0x2,-0x1 0620 0217 | | Execute Heap_Access,All_Reference 0621 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0622 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0623 7803 |x | Jump 0x627 0624 00d9 | | Load_Top At_Offset_1 0625 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0626 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0627 e5ff | | Load 0x2,-0x1 0628 0217 | | Execute Heap_Access,All_Reference 0629 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 062a 00db | | Load_Top At_Offset_3 062b 0272 | r | Execute Discrete,Minus 062c e5ff | | Load 0x2,-0x1 062d 0217 | | Execute Heap_Access,All_Reference 062e 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 062f 00cf | | Action Mark_Auxiliary 0630 00db | | Load_Top At_Offset_3 0631 4801 |H | Short_Literal 0x1 0632 0263 | c | Execute Discrete,Above_Bound 0633 700a |p | Jump_Nonzero 0x63e 0634 00d8 | | Load_Top At_Offset_0 0635 e5ff | | Load 0x2,-0x1 0636 0217 | | Execute Heap_Access,All_Reference 0637 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0638 01d7 | | Execute Vector,Field_Read 0639 0f0a | | Execute_Immediate Equal,0xa 063a 6801 |h | Jump_Zero 0x63c 063b 8404 | | Call 0x2,0x4 063c 00c8 | | Action Pop_Auxiliary_Range 063d 3ff6 |? | Loop_Increasing 0x634 063e 00ce | | Action Pop_Auxiliary 063f 4800 |H | Short_Literal 0x0 0640 e5ff | | Load 0x2,-0x1 0641 0217 | | Execute Heap_Access,All_Reference 0642 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0643 4801 |H | Short_Literal 0x1 0644 00db | | Load_Top At_Offset_3 0645 e5ff | | Load 0x2,-0x1 0646 0217 | | Execute Heap_Access,All_Reference 0647 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0648 01cf | | Execute Vector,Slice_Read 0649 e012 | | Load 0x0,0x12 064a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 064b e5ff | | Load 0x2,-0x1 064c 8225 | % | Call 0x1,0x25 064d 01cc | | Execute Vector,Catenate 064e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 064f 0000 | | .XXX[0x1] 0650 ; -------------------------------------------------------------------------------------- 0650 ; SUBPROGRAM 0650 ; -------------------------------------------------------------------------------------- 0650 0663 | c | .CONST 0x0663 ; Address of begin 0651 0004 | | .CONST 0x0004 ; Address of exception handler 0652 0004 | | .CONST 0x0004 ; Number of locals 0653 INIT_0650: 0653 00da | | Load_Top At_Offset_2 0654 0217 | | Execute Heap_Access,All_Reference 0655 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0656 e5fe | | Load 0x2,-0x2 0657 01db | | Execute Vector,Length 0658 0273 | s | Execute Discrete,Plus 0659 00e2 | | Load_Encached Integer_Cache 065a 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 065b e005 | | Load 0x0,0x5 065c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 065d 0322 | " | Declare_Variable Record 065e e5ff | | Load 0x2,-0x1 065f 0217 | | Execute Heap_Access,All_Reference 0660 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0661 00e2 | | Load_Encached Integer_Cache 0662 03f1 | | Declare_Variable Discrete,With_Value 0663 BODY_0650: 0663 00d8 | | Load_Top At_Offset_0 0664 0c01 | | Execute_Immediate Greater_Equal,0x1 0665 680f |h | Jump_Zero 0x675 0666 4800 |H | Short_Literal 0x0 0667 e5ff | | Load 0x2,-0x1 0668 0217 | | Execute Heap_Access,All_Reference 0669 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 066a 4801 |H | Short_Literal 0x1 066b 00d9 | | Load_Top At_Offset_1 066c e5ff | | Load 0x2,-0x1 066d 0217 | | Execute Heap_Access,All_Reference 066e 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 066f 01cf | | Execute Vector,Slice_Read 0670 e5fe | | Load 0x2,-0x2 0671 01cc | | Execute Vector,Catenate 0672 e5ff | | Load 0x2,-0x1 0673 8226 | & | Call 0x1,0x26 0674 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0675 e5fe | | Load 0x2,-0x2 0676 01db | | Execute Vector,Length 0677 e5ff | | Load 0x2,-0x1 0678 0217 | | Execute Heap_Access,All_Reference 0679 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 067a 027d | } | Execute Discrete,Greater 067b 6802 |h | Jump_Zero 0x67e 067c 4950 |IP | Short_Literal 0x150 067d 0257 | W | Execute Discrete,Raise 067e e5fe | | Load 0x2,-0x2 067f 01db | | Execute Vector,Length 0680 60a3 |` | Indirect_Literal Discrete,0x724,{0x00000000, 0x00000400} 0681 027f | | Execute Discrete,Equal 0682 681b |h | Jump_Zero 0x69e 0683 00d9 | | Load_Top At_Offset_1 0684 e5fe | | Load 0x2,-0x2 0685 e5ff | | Load 0x2,-0x1 0686 0217 | | Execute Heap_Access,All_Reference 0687 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0688 e005 | | Load 0x0,0x5 0689 1816 | | Execute Package,Field_Execute,Field_Number 0x16 068a 00d1 | | Pop_Control Pop_Count_1 068b 4801 |H | Short_Literal 0x1 068c 0092 0a49 | I| Action Push_String_Extended,0xa49 ; "Write Data Block" 068e 00db | | Load_Top At_Offset_3 068f 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0690 e248 | H | Load 0x1,0x48 0691 e249 | I | Load 0x1,0x49 0692 1d4a | J | Execute_Immediate Reference_Lex_1,0x4a 0693 1d4b | K | Execute_Immediate Reference_Lex_1,0x4b 0694 8239 | 9 | Call 0x1,0x39 0695 e5ff | | Load 0x2,-0x1 0696 0217 | | Execute Heap_Access,All_Reference 0697 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0698 4c00 |L | Short_Literal -0x400 0699 0273 | s | Execute Discrete,Plus 069a e5ff | | Load 0x2,-0x1 069b 0217 | | Execute Heap_Access,All_Reference 069c 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 069d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 069e e5fe | | Load 0x2,-0x2 069f 01db | | Execute Vector,Length 06a0 6083 |` | Indirect_Literal Discrete,0x724,{0x00000000, 0x00000400} 06a1 027d | } | Execute Discrete,Greater 06a2 6837 |h7 | Jump_Zero 0x6da 06a3 00d9 | | Load_Top At_Offset_1 06a4 e5fe | | Load 0x2,-0x2 06a5 01dd | | Execute Vector,First 06a6 e5fe | | Load 0x2,-0x2 06a7 01dd | | Execute Vector,First 06a8 607b |`{ | Indirect_Literal Discrete,0x724,{0x00000000, 0x00000400} 06a9 0273 | s | Execute Discrete,Plus 06aa 0aff | | Execute_Immediate Plus,-0x1 06ab 00d8 | | Load_Top At_Offset_0 06ac 00e2 | | Load_Encached Integer_Cache 06ad 0260 | ` | Execute Discrete,In_Type 06ae 7001 |p | Jump_Nonzero 0x6b0 06af 0801 | | Execute_Immediate Raise,0x1 06b0 e5fe | | Load 0x2,-0x2 06b1 01cf | | Execute Vector,Slice_Read 06b2 e5ff | | Load 0x2,-0x1 06b3 0217 | | Execute Heap_Access,All_Reference 06b4 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 06b5 e005 | | Load 0x0,0x5 06b6 1816 | | Execute Package,Field_Execute,Field_Number 0x16 06b7 00d1 | | Pop_Control Pop_Count_1 06b8 4801 |H | Short_Literal 0x1 06b9 0092 0a49 | I| Action Push_String_Extended,0xa49 ; "Write Data Block" 06bb 00db | | Load_Top At_Offset_3 06bc 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 06bd e248 | H | Load 0x1,0x48 06be e249 | I | Load 0x1,0x49 06bf 1d4a | J | Execute_Immediate Reference_Lex_1,0x4a 06c0 1d4b | K | Execute_Immediate Reference_Lex_1,0x4b 06c1 8239 | 9 | Call 0x1,0x39 06c2 e5ff | | Load 0x2,-0x1 06c3 0217 | | Execute Heap_Access,All_Reference 06c4 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 06c5 4c00 |L | Short_Literal -0x400 06c6 0273 | s | Execute Discrete,Plus 06c7 e5ff | | Load 0x2,-0x1 06c8 0217 | | Execute Heap_Access,All_Reference 06c9 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 06ca e5fe | | Load 0x2,-0x2 06cb 01dd | | Execute Vector,First 06cc 6057 |`W | Indirect_Literal Discrete,0x724,{0x00000000, 0x00000400} 06cd 0273 | s | Execute Discrete,Plus 06ce 00d8 | | Load_Top At_Offset_0 06cf 00e2 | | Load_Encached Integer_Cache 06d0 0260 | ` | Execute Discrete,In_Type 06d1 7001 |p | Jump_Nonzero 0x6d3 06d2 0801 | | Execute_Immediate Raise,0x1 06d3 e5fe | | Load 0x2,-0x2 06d4 01dc | | Execute Vector,Last 06d5 e5fe | | Load 0x2,-0x2 06d6 01cf | | Execute Vector,Slice_Read 06d7 e5ff | | Load 0x2,-0x1 06d8 8226 | & | Call 0x1,0x26 06d9 4503 |E | Exit_Suprogram New_Top_Offset 0x3 06da e5fe | | Load 0x2,-0x2 06db 01db | | Execute Vector,Length 06dc e5ff | | Load 0x2,-0x1 06dd 0217 | | Execute Heap_Access,All_Reference 06de 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 06df 027f | | Execute Discrete,Equal 06e0 682f |h/ | Jump_Zero 0x710 06e1 00d9 | | Load_Top At_Offset_1 06e2 e5fe | | Load 0x2,-0x2 06e3 00d8 | | Load_Top At_Offset_0 06e4 01db | | Execute Vector,Length 06e5 0a01 | | Execute_Immediate Plus,0x1 06e6 603d |`= | Indirect_Literal Discrete,0x724,{0x00000000, 0x00000400} 06e7 e003 | | Load 0x0,0x3 06e8 1b12 | | Execute Package,Field_Read,Field_Number 0x12 06e9 035b | [ | Declare_Type Array,Constrained 06ea 0337 | 7 | Declare_Variable Array 06eb 6038 |`8 | Indirect_Literal Discrete,0x724,{0x00000000, 0x00000400} 06ec 00d9 | | Load_Top At_Offset_1 06ed 01dd | | Execute Vector,First 06ee 0263 | c | Execute Discrete,Above_Bound 06ef 7005 |p | Jump_Nonzero 0x6f5 06f0 4800 |H | Short_Literal 0x0 06f1 00d9 | | Load_Top At_Offset_1 06f2 e407 | | Load 0x2,0x7 06f3 01d6 | | Execute Vector,Field_Write 06f4 3ffb |? | Loop_Increasing 0x6f0 06f5 01cc | | Execute Vector,Catenate 06f6 e5ff | | Load 0x2,-0x1 06f7 0217 | | Execute Heap_Access,All_Reference 06f8 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 06f9 e005 | | Load 0x0,0x5 06fa 1816 | | Execute Package,Field_Execute,Field_Number 0x16 06fb 00d1 | | Pop_Control Pop_Count_1 06fc 4801 |H | Short_Literal 0x1 06fd 0092 0a49 | I| Action Push_String_Extended,0xa49 ; "Write Data Block" 06ff 00db | | Load_Top At_Offset_3 0700 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0701 e248 | H | Load 0x1,0x48 0702 e249 | I | Load 0x1,0x49 0703 1d4a | J | Execute_Immediate Reference_Lex_1,0x4a 0704 1d4b | K | Execute_Immediate Reference_Lex_1,0x4b 0705 8239 | 9 | Call 0x1,0x39 0706 e5ff | | Load 0x2,-0x1 0707 0217 | | Execute Heap_Access,All_Reference 0708 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0709 e5fe | | Load 0x2,-0x2 070a 01db | | Execute Vector,Length 070b 0272 | r | Execute Discrete,Minus 070c e5ff | | Load 0x2,-0x1 070d 0217 | | Execute Heap_Access,All_Reference 070e 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 070f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0710 e5fe | | Load 0x2,-0x2 0711 4801 |H | Short_Literal 0x1 0712 e5fe | | Load 0x2,-0x2 0713 01db | | Execute Vector,Length 0714 00d8 | | Load_Top At_Offset_0 0715 00e2 | | Load_Encached Integer_Cache 0716 0260 | ` | Execute Discrete,In_Type 0717 7001 |p | Jump_Nonzero 0x719 0718 0801 | | Execute_Immediate Raise,0x1 0719 e5ff | | Load 0x2,-0x1 071a 0219 | | Execute Heap_Access,All_Read 071b 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 071c 01ce | | Execute Vector,Slice_Write 071d e5fe | | Load 0x2,-0x2 071e 01db | | Execute Vector,Length 071f e5ff | | Load 0x2,-0x1 0720 0217 | | Execute Heap_Access,All_Reference 0721 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0722 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0723 0000 | | .XXX[0x1] 0724 0000 0000 | | .LITERAL {0x00000000, 0x00000400} 0728 ; -------------------------------------------------------------------------------------- 0728 ; SUBPROGRAM 0728 ; -------------------------------------------------------------------------------------- 0728 072b | + | .CONST 0x072b ; Address of begin 0729 0004 | | .CONST 0x0004 ; Address of exception handler 072a 0001 | | .CONST 0x0001 ; Number of locals 072b BODY_0728: 072b INIT_0728: 072b 00db | | Load_Top At_Offset_3 072c e012 | | Load 0x0,0x12 072d 180f | | Execute Package,Field_Execute,Field_Number 0xf 072e 00db | | Load_Top At_Offset_3 072f 8226 | & | Call 0x1,0x26 0730 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0731 0000 0000 | | .BLANK 0000[0x7] 0738 ; -------------------------------------------------------------------------------------- 0738 ; SUBPROGRAM 0738 ; -------------------------------------------------------------------------------------- 0738 073e | > | .CONST 0x073e ; Address of begin 0739 0004 | | .CONST 0x0004 ; Address of exception handler 073a 0002 | | .CONST 0x0002 ; Number of locals 073b INIT_0738: 073b e005 | | Load 0x0,0x5 073c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 073d 0322 | " | Declare_Variable Record 073e BODY_0738: 073e 00d8 | | Load_Top At_Offset_0 073f e5ff | | Load 0x2,-0x1 0740 0217 | | Execute Heap_Access,All_Reference 0741 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0742 e005 | | Load 0x0,0x5 0743 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0744 00d1 | | Pop_Control Pop_Count_1 0745 4801 |H | Short_Literal 0x1 0746 0092 0a42 | B| Action Push_String_Extended,0xa42 ; "End Streaming Write" 0748 00da | | Load_Top At_Offset_2 0749 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 074a e248 | H | Load 0x1,0x48 074b e249 | I | Load 0x1,0x49 074c 1d4a | J | Execute_Immediate Reference_Lex_1,0x4a 074d 1d4b | K | Execute_Immediate Reference_Lex_1,0x4b 074e 8239 | 9 | Call 0x1,0x39 074f 00cf | | Action Mark_Auxiliary 0750 e5fe | | Load 0x2,-0x2 0751 4801 |H | Short_Literal 0x1 0752 0263 | c | Execute Discrete,Above_Bound 0753 7013 |p | Jump_Nonzero 0x767 0754 00db | | Load_Top At_Offset_3 0755 e5ff | | Load 0x2,-0x1 0756 0217 | | Execute Heap_Access,All_Reference 0757 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0758 e005 | | Load 0x0,0x5 0759 1817 | | Execute Package,Field_Execute,Field_Number 0x17 075a 00d1 | | Pop_Control Pop_Count_1 075b 4801 |H | Short_Literal 0x1 075c 0092 0a43 | C| Action Push_String_Extended,0xa43 ; "Write Tape Mark (end of tape)" 075e e402 | | Load 0x2,0x2 075f 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0760 e248 | H | Load 0x1,0x48 0761 e249 | I | Load 0x1,0x49 0762 1d4a | J | Execute_Immediate Reference_Lex_1,0x4a 0763 1d4b | K | Execute_Immediate Reference_Lex_1,0x4b 0764 8239 | 9 | Call 0x1,0x39 0765 00c8 | | Action Pop_Auxiliary_Range 0766 3fed |? | Loop_Increasing 0x754 0767 00ce | | Action Pop_Auxiliary 0768 00d8 | | Load_Top At_Offset_0 0769 4804 |H | Short_Literal 0x4 076a 6011 |` | Indirect_Literal Discrete,0x77c,{0x00000000, 0x00000400} 076b e5ff | | Load 0x2,-0x1 076c 0217 | | Execute Heap_Access,All_Reference 076d 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 076e e005 | | Load 0x0,0x5 076f 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0770 00d1 | | Pop_Control Pop_Count_1 0771 4801 |H | Short_Literal 0x1 0772 0092 0a3d | =| Action Push_String_Extended,0xa3d ; "Begin Streaming Write" 0774 00da | | Load_Top At_Offset_2 0775 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0776 e248 | H | Load 0x1,0x48 0777 e249 | I | Load 0x1,0x49 0778 1d4a | J | Execute_Immediate Reference_Lex_1,0x4a 0779 1d4b | K | Execute_Immediate Reference_Lex_1,0x4b 077a 8239 | 9 | Call 0x1,0x39 077b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 077c 0000 0000 | | .LITERAL {0x00000000, 0x00000400} 0780 ; -------------------------------------------------------------------------------------- 0780 ; SUBPROGRAM 0780 ; -------------------------------------------------------------------------------------- 0780 0783 | | .CONST 0x0783 ; Address of begin 0781 0004 | | .CONST 0x0004 ; Address of exception handler 0782 0001 | | .CONST 0x0001 ; Number of locals 0783 BODY_0780: 0783 INIT_0780: 0783 4608 |F | Jump_Case 0x9 0784 7808 |x | Jump 0x78d ; case 0x0 0785 7814 |x | Jump 0x79a ; case 0x1 0786 781a |x | Jump 0x7a1 ; case 0x2 0787 7819 |x | Jump 0x7a1 ; case 0x3 0788 7818 |x | Jump 0x7a1 ; case 0x4 0789 7817 |x | Jump 0x7a1 ; case 0x5 078a 7816 |x | Jump 0x7a1 ; case 0x6 078b 7815 |x | Jump 0x7a1 ; case 0x7 078c 7814 |x | Jump 0x7a1 ; case 0x8 078d 00da | | Load_Top At_Offset_2 078e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 078f 0125 | % | Execute Any,Set_Constraint 0790 00da | | Load_Top At_Offset_2 0791 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0792 1c00 | | Execute_Immediate Run_Utility,0x0 0793 00da | | Load_Top At_Offset_2 0794 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0795 1c00 | | Execute_Immediate Run_Utility,0x0 0796 00da | | Load_Top At_Offset_2 0797 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0798 1c00 | | Execute_Immediate Run_Utility,0x0 0799 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 079a 00da | | Load_Top At_Offset_2 079b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 079c 0125 | % | Execute Any,Set_Constraint 079d 00da | | Load_Top At_Offset_2 079e 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 079f 1c01 | | Execute_Immediate Run_Utility,0x1 07a0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 07a1 0869 | i | Execute_Immediate Raise,0x69 07a2 0000 0000 | | .BLANK 0000[0x6] 07a8 ; -------------------------------------------------------------------------------------- 07a8 ; SUBPROGRAM 07a8 ; -------------------------------------------------------------------------------------- 07a8 07ab | | .CONST 0x07ab ; Address of begin 07a9 0004 | | .CONST 0x0004 ; Address of exception handler 07aa 0001 | | .CONST 0x0001 ; Number of locals 07ab BODY_07a8: 07ab INIT_07a8: 07ab e5fb | | Load 0x2,-0x5 07ac 0092 0a4a | J| Action Push_String_Extended,0xa4a ; "Error from " 07ae e5fc | | Load 0x2,-0x4 07af 01cc | | Execute Vector,Catenate 07b0 0092 0a4b | K| Action Push_String_Extended,0xa4b ; ": " 07b2 01cc | | Execute Vector,Catenate 07b3 e5fd | | Load 0x2,-0x3 07b4 e5fe | | Load 0x2,-0x2 07b5 0122 | " | Execute Any,Make_Root_Type 07b6 011c | | Execute Any,Convert_Unchecked 07b7 1c01 | | Execute_Immediate Run_Utility,0x1 07b8 01cc | | Execute Vector,Catenate 07b9 823a | : | Call 0x1,0x3a 07ba 4506 |E | Exit_Suprogram New_Top_Offset 0x6 07bb 0000 0000 | | .BLANK 0000[0x5] 07c0 ; -------------------------------------------------------------------------------------- 07c0 ; SUBPROGRAM 07c0 ; -------------------------------------------------------------------------------------- 07c0 07c3 | | .CONST 0x07c3 ; Address of begin 07c1 0004 | | .CONST 0x0004 ; Address of exception handler 07c2 0001 | | .CONST 0x0001 ; Number of locals 07c3 BODY_07c0: 07c3 INIT_07c0: 07c3 e5fb | | Load 0x2,-0x5 07c4 e5fd | | Load 0x2,-0x3 07c5 027e | ~ | Execute Discrete,Not_Equal 07c6 6809 |h | Jump_Zero 0x7d0 07c7 e5f9 | | Load 0x2,-0x7 07c8 e5fa | | Load 0x2,-0x6 07c9 e5fb | | Load 0x2,-0x5 07ca 00d8 | | Load_Top At_Offset_0 07cb e5fc | | Load 0x2,-0x4 07cc 0260 | ` | Execute Discrete,In_Type 07cd 7001 |p | Jump_Nonzero 0x7cf 07ce 0801 | | Execute_Immediate Raise,0x1 07cf 85fe | | Call 0x2,-0x2 07d0 4508 |E | Exit_Suprogram New_Top_Offset 0x8 07d1 0000 0000 | | .BLANK 0000[0x7] 07d8 ; -------------------------------------------------------------------------------------- 07d8 ; SUBPROGRAM 07d8 ; -------------------------------------------------------------------------------------- 07d8 07db | | .CONST 0x07db ; Address of begin 07d9 0004 | | .CONST 0x0004 ; Address of exception handler 07da 0001 | | .CONST 0x0001 ; Number of locals 07db BODY_07d8: 07db INIT_07d8: 07db e016 | | Load 0x0,0x16 07dc 180e | | Execute Package,Field_Execute,Field_Number 0xe 07dd 4807 |H | Short_Literal 0x7 07de e5ff | | Load 0x2,-0x1 07df e017 | | Load 0x0,0x17 07e0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 07e1 00db | | Load_Top At_Offset_3 07e2 6809 |h | Jump_Zero 0x7ec 07e3 e016 | | Load 0x0,0x16 07e4 180e | | Execute Package,Field_Execute,Field_Number 0xe 07e5 4805 |H | Short_Literal 0x5 07e6 0092 0a4c | L| Action Push_String_Extended,0xa4c ; "Processing Stopped" 07e8 e017 | | Load 0x0,0x17 07e9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 07ea e018 | | Load 0x0,0x18 07eb 0257 | W | Execute Discrete,Raise 07ec 4503 |E | Exit_Suprogram New_Top_Offset 0x3 07ed 0000 0000 | | .XXX[0x3] 07ef 0000 | | 07f0 ; -------------------------------------------------------------------------------------- 07f0 ; SUBPROGRAM 07f0 ; -------------------------------------------------------------------------------------- 07f0 07f3 | | .CONST 0x07f3 ; Address of begin 07f1 0004 | | .CONST 0x0004 ; Address of exception handler 07f2 0001 | | .CONST 0x0001 ; Number of locals 07f3 BODY_07f0: 07f3 INIT_07f0: 07f3 e5fd | | Load 0x2,-0x3 07f4 e5fe | | Load 0x2,-0x2 07f5 e5ff | | Load 0x2,-0x1 07f6 e23b | ; | Load 0x1,0x3b 07f7 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c 07f8 8238 | 8 | Call 0x1,0x38 07f9 4504 |E | Exit_Suprogram New_Top_Offset 0x4 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 e5fd | | Load 0x2,-0x3 0804 e5fe | | Load 0x2,-0x2 0805 e5ff | | Load 0x2,-0x1 0806 e243 | C | Load 0x1,0x43 0807 1d44 | D | Execute_Immediate Reference_Lex_1,0x44 0808 8238 | 8 | Call 0x1,0x38 0809 4504 |E | Exit_Suprogram New_Top_Offset 0x4 080a 0000 0000 | | .BLANK 0000[0x6] 0810 ; -------------------------------------------------------------------------------------- 0810 ; SUBPROGRAM 0810 ; -------------------------------------------------------------------------------------- 0810 0813 | | .CONST 0x0813 ; Address of begin 0811 0004 | | .CONST 0x0004 ; Address of exception handler 0812 0001 | | .CONST 0x0001 ; Number of locals 0813 BODY_0810: 0813 INIT_0810: 0813 e016 | | Load 0x0,0x16 0814 180e | | Execute Package,Field_Execute,Field_Number 0xe 0815 4808 |H | Short_Literal 0x8 0816 4822 |H" | Short_Literal 0x22 0817 e5ff | | Load 0x2,-0x1 0818 0092 0a4d | M| Action Push_String_Extended,0xa4d ; " raised trying to " 081a 01cc | | Execute Vector,Catenate 081b e5fe | | Load 0x2,-0x2 081c 01cc | | Execute Vector,Catenate 081d 01cb | | Execute Vector,Append 081e e5fd | | Load 0x2,-0x3 081f 01cc | | Execute Vector,Catenate 0820 0092 0a4e | N| Action Push_String_Extended,0xa4e ; "\x22." 0822 01cc | | Execute Vector,Catenate 0823 e017 | | Load 0x0,0x17 0824 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0825 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0826 0000 0000 | | .XXX[0x2] 0828 ; -------------------------------------------------------------------------------------- 0828 ; SUBPROGRAM 0828 ; -------------------------------------------------------------------------------------- 0828 082b | + | .CONST 0x082b ; Address of begin 0829 0835 | 5 | .CONST 0x0835 ; Address of exception handler 082a 0001 | | .CONST 0x0001 ; Number of locals 082b BODY_0828: 082b INIT_0828: 082b 00da | | Load_Top At_Offset_2 082c 00d8 | | Load_Top At_Offset_0 082d e007 | | Load 0x0,0x7 082e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 082f 0260 | ` | Execute Discrete,In_Type 0830 7001 |p | Jump_Nonzero 0x832 0831 0801 | | Execute_Immediate Raise,0x1 0832 e004 | | Load 0x0,0x4 0833 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0834 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0835 TRAP_0828: 0835 0007 | | Action Break_Optional 0836 e016 | | Load 0x0,0x16 0837 180e | | Execute Package,Field_Execute,Field_Number 0xe 0838 4807 |H | Short_Literal 0x7 0839 0092 0a4f | O| Action Push_String_Extended,0xa4f ; "Tape Drive" 083b e5ff | | Load 0x2,-0x1 083c 00e0 | | Load_Encached Standard_Cache 083d 1818 | | Execute Package,Field_Execute,Field_Number 0x18 083e 01cc | | Execute Vector,Catenate 083f 0092 0a50 | P| Action Push_String_Extended,0xa50 ; " not found" 0841 01cc | | Execute Vector,Catenate 0842 e017 | | Load 0x0,0x17 0843 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0844 e018 | | Load 0x0,0x18 0845 0257 | W | Execute Discrete,Raise 0846 0000 0000 | | .XXX[0x2] 0848 ; -------------------------------------------------------------------------------------- 0848 ; SUBPROGRAM 0848 ; -------------------------------------------------------------------------------------- 0848 084f | O | .CONST 0x084f ; Address of begin 0849 0004 | | .CONST 0x0004 ; Address of exception handler 084a 0002 | | .CONST 0x0002 ; Number of locals 084b INIT_0848: 084b 00da | | Load_Top At_Offset_2 084c 01dd | | Execute Vector,First 084d 00e3 | | Load_Encached Natural_Cache 084e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 084f BODY_0848: 084f 00cf | | Action Mark_Auxiliary 0850 e5fe | | Load 0x2,-0x2 0851 01d9 | | Execute Vector,Reverse_Bounds 0852 0263 | c | Execute Discrete,Above_Bound 0853 701b |p | Jump_Nonzero 0x86f 0854 00db | | Load_Top At_Offset_3 0855 e5ff | | Load 0x2,-0x1 0856 01dc | | Execute Vector,Last 0857 027a | z | Execute Discrete,Less_Equal 0858 6810 |h | Jump_Zero 0x869 0859 00db | | Load_Top At_Offset_3 085a e5ff | | Load 0x2,-0x1 085b 01d7 | | Execute Vector,Field_Read 085c 00d8 | | Load_Top At_Offset_0 085d e003 | | Load 0x0,0x3 085e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 085f 0260 | ` | Execute Discrete,In_Type 0860 7001 |p | Jump_Nonzero 0x862 0861 0801 | | Execute_Immediate Raise,0x1 0862 00d9 | | Load_Top At_Offset_1 0863 e5fe | | Load 0x2,-0x2 0864 01d6 | | Execute Vector,Field_Write 0865 00db | | Load_Top At_Offset_3 0866 0a01 | | Execute_Immediate Plus,0x1 0867 c402 | | Store 0x2,0x2 0868 7804 |x | Jump 0x86d 0869 4800 |H | Short_Literal 0x0 086a 00d9 | | Load_Top At_Offset_1 086b e5fe | | Load 0x2,-0x2 086c 01d6 | | Execute Vector,Field_Write 086d 00c8 | | Action Pop_Auxiliary_Range 086e 3fe5 |? | Loop_Increasing 0x854 086f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0870 ; -------------------------------------------------------------------------------------- 0870 ; SUBPROGRAM 0870 ; -------------------------------------------------------------------------------------- 0870 0876 | v | .CONST 0x0876 ; Address of begin 0871 0004 | | .CONST 0x0004 ; Address of exception handler 0872 0002 | | .CONST 0x0002 ; Number of locals 0873 INIT_0870: 0873 00da | | Load_Top At_Offset_2 0874 00e3 | | Load_Encached Natural_Cache 0875 03f1 | | Declare_Variable Discrete,With_Value 0876 BODY_0870: 0876 00cf | | Action Mark_Auxiliary 0877 e5fe | | Load 0x2,-0x2 0878 01da | | Execute Vector,Bounds 0879 0264 | d | Execute Discrete,Below_Bound 087a 7011 |p | Jump_Nonzero 0x88c 087b 00db | | Load_Top At_Offset_3 087c 48ff |H | Short_Literal 0xff 087d 0279 | y | Execute Discrete,And 087e 00d8 | | Load_Top At_Offset_0 087f e003 | | Load 0x0,0x3 0880 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0881 0260 | ` | Execute Discrete,In_Type 0882 7001 |p | Jump_Nonzero 0x884 0883 0801 | | Execute_Immediate Raise,0x1 0884 00d9 | | Load_Top At_Offset_1 0885 e5fe | | Load 0x2,-0x2 0886 01d6 | | Execute Vector,Field_Write 0887 00db | | Load_Top At_Offset_3 0888 09f8 | | Execute_Immediate Binary_Scale,-0x8 0889 c402 | | Store 0x2,0x2 088a 00c8 | | Action Pop_Auxiliary_Range 088b 37ef |7 | Loop_Decreasing 0x87b 088c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 088d 0000 0000 | | .XXX[0x3] 088f 0000 | | 0890 ; -------------------------------------------------------------------------------------- 0890 ; SUBPROGRAM 0890 ; -------------------------------------------------------------------------------------- 0890 0895 | | .CONST 0x0895 ; Address of begin 0891 0004 | | .CONST 0x0004 ; Address of exception handler 0892 0002 | | .CONST 0x0002 ; Number of locals 0893 INIT_0890: 0893 00e3 | | Load_Encached Natural_Cache 0894 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0895 BODY_0890: 0895 00cf | | Action Mark_Auxiliary 0896 e5ff | | Load 0x2,-0x1 0897 01d9 | | Execute Vector,Reverse_Bounds 0898 0263 | c | Execute Discrete,Above_Bound 0899 7009 |p | Jump_Nonzero 0x8a3 089a 00db | | Load_Top At_Offset_3 089b 0908 | | Execute_Immediate Binary_Scale,0x8 089c 00d9 | | Load_Top At_Offset_1 089d e5ff | | Load 0x2,-0x1 089e 01d7 | | Execute Vector,Field_Read 089f 0273 | s | Execute Discrete,Plus 08a0 c402 | | Store 0x2,0x2 08a1 00c8 | | Action Pop_Auxiliary_Range 08a2 3ff7 |? | Loop_Increasing 0x89a 08a3 00ce | | Action Pop_Auxiliary 08a4 00d8 | | Load_Top At_Offset_0 08a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08a6 0000 0000 | | .XXX[0x2] 08a8 ; -------------------------------------------------------------------------------------- 08a8 ; SUBPROGRAM 08a8 ; -------------------------------------------------------------------------------------- 08a8 08ab | | .CONST 0x08ab ; Address of begin 08a9 0004 | | .CONST 0x0004 ; Address of exception handler 08aa 0001 | | .CONST 0x0001 ; Number of locals 08ab BODY_08a8: 08ab INIT_08a8: 08ab 00db | | Load_Top At_Offset_3 08ac e5fe | | Load 0x2,-0x2 08ad 01dd | | Execute Vector,First 08ae e5fe | | Load 0x2,-0x2 08af 01dd | | Execute Vector,First 08b0 0a01 | | Execute_Immediate Plus,0x1 08b1 00d8 | | Load_Top At_Offset_0 08b2 00e2 | | Load_Encached Integer_Cache 08b3 0260 | ` | Execute Discrete,In_Type 08b4 7001 |p | Jump_Nonzero 0x8b6 08b5 0801 | | Execute_Immediate Raise,0x1 08b6 00da | | Load_Top At_Offset_2 08b7 035b | [ | Declare_Type Array,Constrained 08b8 00d0 | | Action Swap_Control 08b9 01cd | | Execute Vector,Slice_Reference 08ba 00d8 | | Load_Top At_Offset_0 08bb e5ff | | Load 0x2,-0x1 08bc e002 | | Load 0x0,0x2 08bd 1816 | | Execute Package,Field_Execute,Field_Number 0x16 08be 00d8 | | Load_Top At_Offset_0 08bf 0c00 | | Execute_Immediate Greater_Equal,0x0 08c0 7002 |p | Jump_Nonzero 0x8c3 08c1 603a |`: | Indirect_Literal Discrete,0x8fc,{0xffffffff, 0xffffc000} 08c2 7801 |x | Jump 0x8c4 08c3 6034 |`4 | Indirect_Literal Discrete,0x8f8,{0x00000000, 0x00004000} 08c4 0273 | s | Execute Discrete,Plus 08c5 09f1 | | Execute_Immediate Binary_Scale,-0xf 08c6 09ff | | Execute_Immediate Binary_Scale,-0x1 08c7 00d8 | | Load_Top At_Offset_0 08c8 00e3 | | Load_Encached Natural_Cache 08c9 0260 | ` | Execute Discrete,In_Type 08ca 7001 |p | Jump_Nonzero 0x8cc 08cb 0801 | | Execute_Immediate Raise,0x1 08cc 8258 | X | Call 0x1,0x58 08cd 00d2 | | Pop_Control Pop_Count_2 08ce 00db | | Load_Top At_Offset_3 08cf e5fe | | Load 0x2,-0x2 08d0 01dd | | Execute Vector,First 08d1 0a02 | | Execute_Immediate Plus,0x2 08d2 00d8 | | Load_Top At_Offset_0 08d3 00e2 | | Load_Encached Integer_Cache 08d4 0260 | ` | Execute Discrete,In_Type 08d5 7001 |p | Jump_Nonzero 0x8d7 08d6 0801 | | Execute_Immediate Raise,0x1 08d7 e5fe | | Load 0x2,-0x2 08d8 01dc | | Execute Vector,Last 08d9 00da | | Load_Top At_Offset_2 08da 035b | [ | Declare_Type Array,Constrained 08db 00d0 | | Action Swap_Control 08dc 01cd | | Execute Vector,Slice_Reference 08dd 00d8 | | Load_Top At_Offset_0 08de e5ff | | Load 0x2,-0x1 08df e002 | | Load 0x0,0x2 08e0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 08e1 6012 |` | Indirect_Literal Discrete,0x8f4,{0xffffffff, 0xfffff893} 08e2 0273 | s | Execute Discrete,Plus 08e3 0909 | | Execute_Immediate Binary_Scale,0x9 08e4 e5ff | | Load 0x2,-0x1 08e5 e002 | | Load 0x0,0x2 08e6 1814 | | Execute Package,Field_Execute,Field_Number 0x14 08e7 0905 | | Execute_Immediate Binary_Scale,0x5 08e8 0273 | s | Execute Discrete,Plus 08e9 e5ff | | Load 0x2,-0x1 08ea e002 | | Load 0x0,0x2 08eb 1815 | | Execute Package,Field_Execute,Field_Number 0x15 08ec 0273 | s | Execute Discrete,Plus 08ed 00d8 | | Load_Top At_Offset_0 08ee 00e3 | | Load_Encached Natural_Cache 08ef 0260 | ` | Execute Discrete,In_Type 08f0 7001 |p | Jump_Nonzero 0x8f2 08f1 0801 | | Execute_Immediate Raise,0x1 08f2 8258 | X | Call 0x1,0x58 08f3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 08f4 ffff ffff | | .LITERAL {0xffffffff, 0xfffff893} 08f8 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 08fc ffff ffff | | .LITERAL {0xffffffff, 0xffffc000} 0900 ; -------------------------------------------------------------------------------------- 0900 ; SUBPROGRAM 0900 ; -------------------------------------------------------------------------------------- 0900 0907 | | .CONST 0x0907 ; Address of begin 0901 0004 | | .CONST 0x0004 ; Address of exception handler 0902 0005 | | .CONST 0x0005 ; Number of locals 0903 INIT_0900: 0903 00e3 | | Load_Encached Natural_Cache 0904 00e3 | | Load_Encached Natural_Cache 0905 00e3 | | Load_Encached Natural_Cache 0906 00e3 | | Load_Encached Natural_Cache 0907 BODY_0900: 0907 e5ff | | Load 0x2,-0x1 0908 01dd | | Execute Vector,First 0909 0a02 | | Execute_Immediate Plus,0x2 090a 00d8 | | Load_Top At_Offset_0 090b 00e2 | | Load_Encached Integer_Cache 090c 0260 | ` | Execute Discrete,In_Type 090d 7001 |p | Jump_Nonzero 0x90f 090e 0801 | | Execute_Immediate Raise,0x1 090f e5ff | | Load 0x2,-0x1 0910 01dc | | Execute Vector,Last 0911 e5ff | | Load 0x2,-0x1 0912 01cf | | Execute Vector,Slice_Read 0913 8259 | Y | Call 0x1,0x59 0914 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0915 00d8 | | Load_Top At_Offset_0 0916 09f7 | | Execute_Immediate Binary_Scale,-0x9 0917 603c |`< | Indirect_Literal Discrete,0x954,{0x00000000, 0x0000076d} 0918 0273 | s | Execute Discrete,Plus 0919 c402 | | Store 0x2,0x2 091a 00d8 | | Load_Top At_Offset_0 091b 09fb | | Execute_Immediate Binary_Scale,-0x5 091c 480f |H | Short_Literal 0xf 091d 0279 | y | Execute Discrete,And 091e 005b | [ | Store_Top Discrete,At_Offset_3 091f 00d8 | | Load_Top At_Offset_0 0920 481f |H | Short_Literal 0x1f 0921 0279 | y | Execute Discrete,And 0922 005a | Z | Store_Top Discrete,At_Offset_2 0923 e5ff | | Load 0x2,-0x1 0924 01dd | | Execute Vector,First 0925 e5ff | | Load 0x2,-0x1 0926 01dd | | Execute Vector,First 0927 0a01 | | Execute_Immediate Plus,0x1 0928 00d8 | | Load_Top At_Offset_0 0929 00e2 | | Load_Encached Integer_Cache 092a 0260 | ` | Execute Discrete,In_Type 092b 7001 |p | Jump_Nonzero 0x92d 092c 0801 | | Execute_Immediate Raise,0x1 092d e5ff | | Load 0x2,-0x1 092e 01cf | | Execute Vector,Slice_Read 092f 8259 | Y | Call 0x1,0x59 0930 0901 | | Execute_Immediate Binary_Scale,0x1 0931 090f | | Execute_Immediate Binary_Scale,0xf 0932 e002 | | Load 0x0,0x2 0933 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0934 00d9 | | Load_Top At_Offset_1 0935 00d0 | | Action Swap_Control 0936 0260 | ` | Execute Discrete,In_Type 0937 7001 |p | Jump_Nonzero 0x939 0938 0801 | | Execute_Immediate Raise,0x1 0939 00da | | Load_Top At_Offset_2 093a e002 | | Load 0x0,0x2 093b 1b10 | | Execute Package,Field_Read,Field_Number 0x10 093c 00d9 | | Load_Top At_Offset_1 093d 00d0 | | Action Swap_Control 093e 0260 | ` | Execute Discrete,In_Type 093f 7001 |p | Jump_Nonzero 0x941 0940 0801 | | Execute_Immediate Raise,0x1 0941 e403 | | Load 0x2,0x3 0942 e002 | | Load 0x0,0x2 0943 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0944 00d9 | | Load_Top At_Offset_1 0945 00d0 | | Action Swap_Control 0946 0260 | ` | Execute Discrete,In_Type 0947 7001 |p | Jump_Nonzero 0x949 0948 0801 | | Execute_Immediate Raise,0x1 0949 e402 | | Load 0x2,0x2 094a e002 | | Load 0x0,0x2 094b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 094c 00d9 | | Load_Top At_Offset_1 094d 00d0 | | Action Swap_Control 094e 0260 | ` | Execute Discrete,In_Type 094f 7001 |p | Jump_Nonzero 0x951 0950 0801 | | Execute_Immediate Raise,0x1 0951 e002 | | Load 0x0,0x2 0952 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0953 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0954 0000 0000 | | .LITERAL {0x00000000, 0x0000076d} 0958 ; -------------------------------------------------------------------------------------- 0958 ; SUBPROGRAM 0958 ; -------------------------------------------------------------------------------------- 0958 095e | ^ | .CONST 0x095e ; Address of begin 0959 0004 | | .CONST 0x0004 ; Address of exception handler 095a 0002 | | .CONST 0x0002 ; Number of locals 095b INIT_0958: 095b e005 | | Load 0x0,0x5 095c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 095d 0322 | " | Declare_Variable Record 095e BODY_0958: 095e 00d8 | | Load_Top At_Offset_0 095f e5ff | | Load 0x2,-0x1 0960 8217 | | Call 0x1,0x17 0961 e5fe | | Load 0x2,-0x2 0962 e005 | | Load 0x0,0x5 0963 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0964 00d1 | | Pop_Control Pop_Count_1 0965 4801 |H | Short_Literal 0x1 0966 0092 0a51 | Q| Action Push_String_Extended,0xa51 ; "Write_File_Header" 0968 00da | | Load_Top At_Offset_2 0969 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 096a e248 | H | Load 0x1,0x48 096b e249 | I | Load 0x1,0x49 096c 1d4a | J | Execute_Immediate Reference_Lex_1,0x4a 096d 1d4b | K | Execute_Immediate Reference_Lex_1,0x4b 096e 8239 | 9 | Call 0x1,0x39 096f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0970 ; -------------------------------------------------------------------------------------- 0970 ; SUBPROGRAM 0970 ; -------------------------------------------------------------------------------------- 0970 097a | z | .CONST 0x097a ; Address of begin 0971 0004 | | .CONST 0x0004 ; Address of exception handler 0972 0004 | | .CONST 0x0004 ; Number of locals 0973 INIT_0970: 0973 e005 | | Load 0x0,0x5 0974 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0975 0322 | " | Declare_Variable Record 0976 00e1 | | Load_Encached Boolean_Cache 0977 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0978 00e1 | | Load_Encached Boolean_Cache 0979 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 097a BODY_0970: 097a 4800 |H | Short_Literal 0x0 097b a5fd | | Store_Unchecked 0x2,-0x3 097c 00cf | | Action Mark_Auxiliary 097d 783b |x; | Jump 0x9b9 097e 4801 |H | Short_Literal 0x1 097f 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0980 e5fe | | Load 0x2,-0x2 0981 e402 | | Load 0x2,0x2 0982 e5ff | | Load 0x2,-0x1 0983 e005 | | Load 0x0,0x5 0984 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0985 00d2 | | Pop_Control Pop_Count_2 0986 00db | | Load_Top At_Offset_3 0987 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0988 460e |F | Jump_Case 0xf 0989 782e |x. | Jump 0x9b8 ; case 0x0 098a 780d |x | Jump 0x998 ; case 0x1 098b 780c |x | Jump 0x998 ; case 0x2 098c 780b |x | Jump 0x998 ; case 0x3 098d 780a |x | Jump 0x998 ; case 0x4 098e 7820 |x | Jump 0x9af ; case 0x5 098f 7808 |x | Jump 0x998 ; case 0x6 0990 7810 |x | Jump 0x9a1 ; case 0x7 0991 7806 |x | Jump 0x998 ; case 0x8 0992 7805 |x | Jump 0x998 ; case 0x9 0993 7804 |x | Jump 0x998 ; case 0xa 0994 7803 |x | Jump 0x998 ; case 0xb 0995 7802 |x | Jump 0x998 ; case 0xc 0996 7801 |x | Jump 0x998 ; case 0xd 0997 7800 |x | Jump 0x998 ; case 0xe 0998 4801 |H | Short_Literal 0x1 0999 0092 0a52 | R| Action Push_String_Extended,0xa52 ; "Read of File Header" 099b e402 | | Load 0x2,0x2 099c 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 099d e23b | ; | Load 0x1,0x3b 099e 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c 099f 8238 | 8 | Call 0x1,0x38 09a0 7817 |x | Jump 0x9b8 09a1 00db | | Load_Top At_Offset_3 09a2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 09a3 0f40 | @ | Execute_Immediate Equal,0x40 09a4 6801 |h | Jump_Zero 0x9a6 09a5 7812 |x | Jump 0x9b8 09a6 4801 |H | Short_Literal 0x1 09a7 0092 0a52 | R| Action Push_String_Extended,0xa52 ; "Read of File Header" 09a9 e402 | | Load 0x2,0x2 09aa 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 09ab e23b | ; | Load 0x1,0x3b 09ac 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c 09ad 8238 | 8 | Call 0x1,0x38 09ae 7809 |x | Jump 0x9b8 09af 00da | | Load_Top At_Offset_2 09b0 6803 |h | Jump_Zero 0x9b4 09b1 4801 |H | Short_Literal 0x1 09b2 a5fd | | Store_Unchecked 0x2,-0x3 09b3 7804 |x | Jump 0x9b8 09b4 4801 |H | Short_Literal 0x1 09b5 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 09b6 4800 |H | Short_Literal 0x0 09b7 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 09b8 00c9 | | Action Pop_Auxiliary_Loop 09b9 00d9 | | Load_Top At_Offset_1 09ba 6fc3 |o | Jump_Zero 0x97e 09bb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 09bc 0000 0000 | | .BLANK 0000[0x4] 09c0 ; -------------------------------------------------------------------------------------- 09c0 ; SUBPROGRAM 09c0 ; -------------------------------------------------------------------------------------- 09c0 09cc | | .CONST 0x09cc ; Address of begin 09c1 0004 | | .CONST 0x0004 ; Address of exception handler 09c2 0003 | | .CONST 0x0003 ; Number of locals 09c3 INIT_09c0: 09c3 00da | | Load_Top At_Offset_2 09c4 09f6 | | Execute_Immediate Binary_Scale,-0xa 09c5 00e3 | | Load_Encached Natural_Cache 09c6 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 09c7 00db | | Load_Top At_Offset_3 09c8 4bff |K | Short_Literal 0x3ff 09c9 0279 | y | Execute Discrete,And 09ca 00e3 | | Load_Encached Natural_Cache 09cb 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 09cc BODY_09c0: 09cc e5ff | | Load 0x2,-0x1 09cd 0c01 | | Execute_Immediate Greater_Equal,0x1 09ce 6809 |h | Jump_Zero 0x9d8 09cf 00d8 | | Load_Top At_Offset_0 09d0 7003 |p | Jump_Nonzero 0x9d4 09d1 600e |` | Indirect_Literal Discrete,0x9e0,{0x00000000, 0x00000400} 09d2 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 09d3 7806 |x | Jump 0x9da 09d4 00d9 | | Load_Top At_Offset_1 09d5 0a01 | | Execute_Immediate Plus,0x1 09d6 005a | Z | Store_Top Discrete,At_Offset_2 09d7 7802 |x | Jump 0x9da 09d8 4800 |H | Short_Literal 0x0 09d9 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 09da 00d9 | | Load_Top At_Offset_1 09db a5fe | | Store_Unchecked 0x2,-0x2 09dc 00d8 | | Load_Top At_Offset_0 09dd a5fd | | Store_Unchecked 0x2,-0x3 09de 4502 |E | Exit_Suprogram New_Top_Offset 0x2 09df 0000 | | .XXX[0x1] 09e0 0000 0000 | | .LITERAL {0x00000000, 0x00000400} 09e4 0000 0000 | | .BLANK 0000[0x4] 09e8 ; -------------------------------------------------------------------------------------- 09e8 ; SUBPROGRAM 09e8 ; -------------------------------------------------------------------------------------- 09e8 09f4 | | .CONST 0x09f4 ; Address of begin 09e9 0004 | | .CONST 0x0004 ; Address of exception handler 09ea 0002 | | .CONST 0x0002 ; Number of locals 09eb INIT_09e8: 09eb 4801 |H | Short_Literal 0x1 09ec e407 | | Load 0x2,0x7 09ed 0aff | | Execute_Immediate Plus,-0x1 09ee e5ff | | Load 0x2,-0x1 09ef 0217 | | Execute Heap_Access,All_Reference 09f0 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 09f1 01cf | | Execute Vector,Slice_Read 09f2 0335 | 5 | Declare_Variable Array,Duplicate 09f3 00cd | | Action Spare6_Action 09f4 BODY_09e8: 09f4 e402 | | Load 0x2,0x2 09f5 e407 | | Load 0x2,0x7 09f6 0272 | r | Execute Discrete,Minus 09f7 e5ff | | Load 0x2,-0x1 09f8 0217 | | Execute Heap_Access,All_Reference 09f9 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 09fa e5ff | | Load 0x2,-0x1 09fb 0217 | | Execute Heap_Access,All_Reference 09fc 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 09fd 0a01 | | Execute_Immediate Plus,0x1 09fe 00d8 | | Load_Top At_Offset_0 09ff 00e2 | | Load_Encached Integer_Cache 0a00 0260 | ` | Execute Discrete,In_Type 0a01 7001 |p | Jump_Nonzero 0xa03 0a02 0801 | | Execute_Immediate Raise,0x1 0a03 e402 | | Load 0x2,0x2 0a04 e5ff | | Load 0x2,-0x1 0a05 0217 | | Execute Heap_Access,All_Reference 0a06 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0a07 01cf | | Execute Vector,Slice_Read 0a08 4801 |H | Short_Literal 0x1 0a09 e5ff | | Load 0x2,-0x1 0a0a 0217 | | Execute Heap_Access,All_Reference 0a0b 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0a0c e5ff | | Load 0x2,-0x1 0a0d 0219 | | Execute Heap_Access,All_Read 0a0e 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 0a0f 01ce | | Execute Vector,Slice_Write 0a10 00d8 | | Load_Top At_Offset_0 0a11 e012 | | Load 0x0,0x12 0a12 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0a13 00cb | | Action Pop_Block_With_Result 0a14 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a15 0000 0000 | | .XXX[0x3] 0a17 0000 | | 0a18 ; -------------------------------------------------------------------------------------- 0a18 ; SUBPROGRAM 0a18 ; -------------------------------------------------------------------------------------- 0a18 0a1b | | .CONST 0x0a1b ; Address of begin 0a19 0004 | | .CONST 0x0004 ; Address of exception handler 0a1a 0001 | | .CONST 0x0001 ; Number of locals 0a1b BODY_0a18: 0a1b INIT_0a18: 0a1b 4608 |F | Jump_Case 0x9 0a1c 7808 |x | Jump 0xa25 ; case 0x0 0a1d 7814 |x | Jump 0xa32 ; case 0x1 0a1e 7817 |x | Jump 0xa36 ; case 0x2 0a1f 7816 |x | Jump 0xa36 ; case 0x3 0a20 7815 |x | Jump 0xa36 ; case 0x4 0a21 7814 |x | Jump 0xa36 ; case 0x5 0a22 7813 |x | Jump 0xa36 ; case 0x6 0a23 7812 |x | Jump 0xa36 ; case 0x7 0a24 7811 |x | Jump 0xa36 ; case 0x8 0a25 00da | | Load_Top At_Offset_2 0a26 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0a27 0125 | % | Execute Any,Set_Constraint 0a28 00da | | Load_Top At_Offset_2 0a29 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0a2a 1c00 | | Execute_Immediate Run_Utility,0x0 0a2b 00da | | Load_Top At_Offset_2 0a2c 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 0a2d 0125 | % | Execute Any,Set_Constraint 0a2e 00da | | Load_Top At_Offset_2 0a2f 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 0a30 1c00 | | Execute_Immediate Run_Utility,0x0 0a31 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0a32 00da | | Load_Top At_Offset_2 0a33 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0a34 0125 | % | Execute Any,Set_Constraint 0a35 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0a36 0869 | i | Execute_Immediate Raise,0x69 0a37 ; -------------------------------------------------------------------------------------- 0a37 ; STRING TABLE 0a37 ; -------------------------------------------------------------------------------------- 0a37 003a | : | .STRTAB 0x003a->0x0a54 ; "READ" 0a38 003c | < | .STRTAB 0x003c->0x0a56 ; "WRITE" 0a39 003f | ? | .STRTAB 0x003f->0x0a58 ; "WRITE_WITH_TAPE_MARKS" 0a3a 0052 | R | .STRTAB 0x0052->0x0a63 ; "REWIND" 0a3b 0056 | V | .STRTAB 0x0056->0x0a66 ; "UNLOAD" 0a3c 005a | Z | .STRTAB 0x005a->0x0a69 ; "Open Tape (will retry)" 0a3d 006e | n | .STRTAB 0x006e->0x0a74 ; "Begin Streaming Write" 0a3e 0081 | | .STRTAB 0x0081->0x0a7e ; "Open Tape" 0a3f 0088 | | .STRTAB 0x0088->0x0a83 ; "Other Error" 0a40 0091 | | .STRTAB 0x0091->0x0a88 ; "Too many retries in Opening Tape Drive" 0a41 00b5 | | .STRTAB 0x00b5->0x0a9b ; "Non-Existent Tape Drive Specified" 0a42 00d4 | | .STRTAB 0x00d4->0x0aac ; "End Streaming Write" 0a43 00e5 | | .STRTAB 0x00e5->0x0ab5 ; "Write Tape Mark (end of tape)" 0a44 0100 | | .STRTAB 0x0100->0x0ac4 ; "Positioning Tape" 0a45 010e | | .STRTAB 0x010e->0x0acc ; "Closing Tape" 0a46 0118 | | .STRTAB 0x0118->0x0ad2 ; "Writing Header" 0a47 0124 | $ | .STRTAB 0x0124->0x0ad9 ; "Read File Record" 0a48 0132 | 2 | .STRTAB 0x0132->0x0ae1 ; "Read_File_Record" 0a49 0140 | @ | .STRTAB 0x0140->0x0ae9 ; "Write Data Block" 0a4a 014e | N | .STRTAB 0x014e->0x0af1 ; "Error from " 0a4b 0157 | W | .STRTAB 0x0157->0x0af6 ; ": " 0a4c 0157 | W | .STRTAB 0x0157->0x0af7 ; "Processing Stopped" 0a4d 0167 | g | .STRTAB 0x0167->0x0b00 ; " raised trying to " 0a4e 0177 | w | .STRTAB 0x0177->0x0b09 ; "\x22." 0a4f 0177 | w | .STRTAB 0x0177->0x0b0a ; "Tape Drive" 0a50 017f | | .STRTAB 0x017f->0x0b0f ; " not found" 0a51 0187 | | .STRTAB 0x0187->0x0b14 ; "Write_File_Header" 0a52 0196 | | .STRTAB 0x0196->0x0b1d ; "Read of File Header" 0a53 01a7 | | .STREND 0x01a7->0x0b26 0a54 5245 4144 |READ| .STRTAB_STRINGS 0b27 0000 | | .XXX[0x1] 0b28 ; -------------------------------------------------------------------------------------- 0b28 ; Debug Table 0b28 ; -------------------------------------------------------------------------------------- 0b28 0004 0010 | | .DEBUG4 0x0004,0x0010,0x8bac,0x0000,0x0001,0x0000 0b2e 8081 99d5 | | .XXX[0x18] 0b30 b98d d1a5 | | 0b32 bdb8 8111 | | 0b34 9599 85d5 | | 0b36 b1d1 7d05 | } | 0b38 8dd1 a5bd | | 0b3a b97d 2590 | }% | 0b3c 81c9 95d1 | | 0b3e d5c9 b881 | | 0b40 058d d1a5 | | 0b42 bdb8 b925 | %| 0b44 90ec 2828 | ((| 0b46 8080 8080 | | .BLANK 8080[0x6] 0b4c b4b4 b4b4 | | .BLANK b4b4[0x1f] 0b6b 2828 |(( | .XXX[0x1] 0b6c 8080 8080 | | .BLANK 8080[0x6] 0b72 b4b4 81bd | | .XXX[0x1d] 0b74 89a9 958d | | 0b76 d081 a185 | | 0b78 b991 b194 | | 0b7a 81c9 bdd5 | | 0b7c d1a5 b995 | | 0b7e ccb8 8081 | | 0b80 51a1 95cd |Q | 0b82 9481 95e1 | | 0b84 d1c9 858d | | 0b86 d081 d1a1 | | 0b88 9481 d5b9 | | 0b8a 9195 c9b1 | | 0b8c e5a5 b99c | | 0b8e 2880 |( | 0b8f 8080 8080 | | .BLANK 8080[0x5] 0b94 80b4 b481 | | .XXX[0x1f] 0b96 8dbd b5c1 | | 0b98 bdb9 95b9 | | 0b9a d1cc 81cd | | 0b9c d5c1 c1b1 | | 0b9e a595 9081 | | 0ba0 89e4 81d1 | | 0ba2 a194 8195 | | 0ba4 b9d9 a5c9 | | 0ba6 bdb9 b595 | | 0ba8 b9d0 8191 | | 0baa a5c9 958d | | 0bac d1bd c9e4 | | 0bae 81cd e5cd | | 0bb0 d195 b4b8 | | 0bb2 2880 |( | 0bb3 8080 8080 | | .BLANK 8080[0x5] 0bb8 80b4 b481 | | .XXX[0x21] 0bba 2598 81b9 |% | 0bbc bc81 858d | | 0bbe d1a5 bdb8 | | 0bc0 81a5 cc81 | | 0bc2 cdd5 c1c1 | | 0bc4 b1a5 9590 | | 0bc6 b081 d1a1 | | 0bc8 9481 858d | | 0bca d1a5 bdb8 | | 0bcc 8199 c9bd | | 0bce b481 d1a1 | | 0bd0 9481 a185 | | 0bd2 b991 b194 | | 0bd4 81a5 cc81 | | 0bd6 d5cd 9590 | | 0bd8 b828 | ( | 0bd9 8080 8080 | | .BLANK 8080[0x6] 0bdf b4b4 8125 | %| .XXX[0x21] 0be1 9881 d1a1 | | 0be3 9481 a185 | | 0be5 b991 b194 | | 0be7 9dcc 8185 | | 0be9 8dd1 a5bd | | 0beb b881 a5cc | | 0bed 8139 5531 | 9U1| 0bef 30b0 81d1 |0 | 0bf1 a194 8191 | | 0bf3 9599 85d5 | | 0bf5 b1d0 8185 | | 0bf7 8dd1 a5bd | | 0bf9 b881 a5cc | | 0bfb 81d5 cd95 | | 0bfd 90b8 2828 | ((| 0bff 8080 | |