|
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 | |