|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 DFS Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 DFS Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 14336 (0x3800)
Types: SEG
Notes: 5811_R1K_CODE
Names: »6466568.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »6466568.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »6466568.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »6466568.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »6466568.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »6466568.SEG«
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5811 |X | .CONST 0x5811 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 1360 | ` | .CONST 0x1360 ; 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 000d | | .CONST 0x000d ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 011c | | .CONST 0x011c ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 007a | z | .CONST 0x007a ; Number of locals
000b INIT_0008:
000b 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible ; Debug Table 0x0 = .DEBUG 0x000b,0x150a,0xc000,0x0000,0x0033,0x6314,0x0000,0x000d
; Debug Table 0x0.0x0 = 0xb,0xffff
; Debug Table 0x0.0x1 = 0xb,0xfffe
; Debug Table 0x0.0x2 = 0xb,0xfffd
000c 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0xc,0xfffc
000e 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0xe,0xfffb
0010 029a 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x10,0xfffa
0012 029a 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x12,0xfff9
0014 029a 0383 | | Declare_Subprogram INIT_0380,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x14,0xfff8
0016 029a 0393 | | Declare_Subprogram INIT_0390,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x16,0xfff7
0018 029a 03a3 | | Declare_Subprogram INIT_03a0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x18,0xfff6
001a 029a 041b | | Declare_Subprogram INIT_0418,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xa = 0x1a,0xfff5
001c 029a 0453 | S| Declare_Subprogram INIT_0450,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xb = 0x1c,0xfff4
001e 029a 04a3 | | Declare_Subprogram INIT_04a0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xc = 0x1e,0xfff3
0020 029a 04b3 | | Declare_Subprogram INIT_04b0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xd = 0x20,0xfff2
0022 029a 04d3 | | Declare_Subprogram INIT_04d0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xe = 0x22,0xfff1
0024 480b |H | Short_Literal 0xb ; Debug Table 0x0.0xf = 0x24,0xfff0
0025 032a | * | Declare_Type Record,Incomplete
0026 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x10 = 0x26,0xffef
0027 02a0 | | Declare_Subprogram Null_Subprogram
0028 e225 | % | Load 0x1,0x25
0029 03a3 | | Complete_Type Heap_Access,By_Defining
002a 00bf | | Action Accept_Activation ; Debug Table 0x0.0x11 = 0x2a,0xffee
002b 631c |c | Indirect_Literal Discrete,0x348,{0x00000000, 0x003373f4} ; Debug Table 0x1 = .DEBUG 0x002b,0x1530,0xc000,0x0000,0x0033,0x73f4,0x0000,0x001f
; Debug Table 0x1.0x0 = 0x2b,0xffff
; Debug Table 0x1.0x1 = 0x2b,0xfffe
; Debug Table 0x1.0x2 = 0x2b,0xfffd
; Debug Table 0x1.0x3 = 0x2b,0xfffc
002c 482b |H+ | Short_Literal 0x2b
002d 00e8 | | Load_Encached Character_Cache
002e 00e9 | | Load_Encached String_Cache
002f 4820 |H | Short_Literal 0x20
0030 6313 |c | Indirect_Literal Discrete,0x344,{0x00000000, 0x00000400}
0031 e001 | | Load 0x0,0x1
0032 0387 | | Declare_Variable Package
0033 00d8 | | Load_Top At_Offset_0
0034 020f | | Execute Module,Activate
0035 e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x4 = 0x35,0xfffb
0036 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0037 e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x5 = 0x37,0xfffa
0038 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0039 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x6 = 0x39,0xfff9
; Debug Table 0x1.0x7 = 0x39,0xfff8
; Debug Table 0x1.0x8 = 0x39,0xfff7
; Debug Table 0x1.0x9 = 0x39,0xfff6
; Debug Table 0x1.0xa = 0x39,0xfff5
; Debug Table 0x1.0xb = 0x39,0xfff4
; Debug Table 0x1.0xc = 0x39,0xfff3
; Debug Table 0x1.0xd = 0x39,0xfff2
; Debug Table 0x1.0xe = 0x39,0xfff1
; Debug Table 0x1.0xf = 0x39,0xfff0
003a 4801 |H | Short_Literal 0x1
003b 029f 065b | [| Declare_Subprogram INIT_0658,For_Call
003d 03fd | | Declare_Type Discrete,Defined
003e 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x10 = 0x3e,0xffef
003f 4803 |H | Short_Literal 0x3
0040 029f 0673 | s| Declare_Subprogram INIT_0670,For_Call
0042 03fd | | Declare_Type Discrete,Defined
0043 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x11 = 0x43,0xffee
0044 4803 |H | Short_Literal 0x3
0045 029f 068b | | Declare_Subprogram INIT_0688,For_Call
0047 03fd | | Declare_Type Discrete,Defined
0048 4801 |H | Short_Literal 0x1 ; Debug Table 0x1.0x12 = 0x48,0xffed
0049 4803 |H | Short_Literal 0x3
004a 00da | | Load_Top At_Offset_2
004b 03f8 | | Declare_Type Discrete,Constrained
004c 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x13 = 0x4c,0xffec
004d 4804 |H | Short_Literal 0x4
004e 029f 06a3 | | Declare_Subprogram INIT_06a0,For_Call
0050 03fd | | Declare_Type Discrete,Defined
0051 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x14 = 0x51,0xffeb
0052 4802 |H | Short_Literal 0x2
0053 029f 06bb | | Declare_Subprogram INIT_06b8,For_Call
0055 03fd | | Declare_Type Discrete,Defined
0056 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x15 = 0x56,0xffea
0057 4804 |H | Short_Literal 0x4
0058 029f 06d3 | | Declare_Subprogram INIT_06d0,For_Call
005a 03fd | | Declare_Type Discrete,Defined
005b e003 | | Load 0x0,0x3 ; Debug Table 0x1.0x16 = 0x5b,0xffe9
005c 1912 | | Execute Package,Field_Reference,Field_Number 0x12
005d 00c6 | | Action Check_Subprogram_Elaborated
005e 00de | | Load_Top At_Offset_6
005f 62e8 |b | Indirect_Literal Discrete,0x348,{0x00000000, 0x003373f4}
0060 4908 |I | Short_Literal 0x108
0061 4800 |H | Short_Literal 0x0
0062 a004 | | Store_Unchecked 0x0,0x4 ; Debug Table 0x1.0x17 = 0x62,0xffe8
0063 00c6 | | Action Check_Subprogram_Elaborated
0064 e236 | 6 | Load 0x1,0x36
0065 62e2 |b | Indirect_Literal Discrete,0x348,{0x00000000, 0x003373f4}
0066 4912 |I | Short_Literal 0x112
0067 4800 |H | Short_Literal 0x0
0068 a004 | | Store_Unchecked 0x0,0x4 ; Debug Table 0x1.0x18 = 0x68,0xffe7
0069 00c6 | | Action Check_Subprogram_Elaborated
006a e23a | : | Load 0x1,0x3a
006b 62dc |b | Indirect_Literal Discrete,0x348,{0x00000000, 0x003373f4}
006c 491a |I | Short_Literal 0x11a
006d 4800 |H | Short_Literal 0x0
006e a004 | | Store_Unchecked 0x0,0x4 ; Debug Table 0x1.0x19 = 0x6e,0xffe6
006f 00c6 | | Action Check_Subprogram_Elaborated
0070 e005 | | Load 0x0,0x5
0071 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0072 62d5 |b | Indirect_Literal Discrete,0x348,{0x00000000, 0x003373f4}
0073 4922 |I" | Short_Literal 0x122
0074 4800 |H | Short_Literal 0x0
0075 a004 | | Store_Unchecked 0x0,0x4 ; Debug Table 0x1.0x1a = 0x75,0xffe5
0076 00c6 | | Action Check_Subprogram_Elaborated
0077 e239 | 9 | Load 0x1,0x39
0078 62cf |b | Indirect_Literal Discrete,0x348,{0x00000000, 0x003373f4}
0079 492c |I, | Short_Literal 0x12c
007a 4800 |H | Short_Literal 0x0
007b 4802 |H | Short_Literal 0x2 ; Debug Table 0x1.0x1b = 0x7b,0xffe4
007c 032a | * | Declare_Type Record,Incomplete
007d 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x1c = 0x7d,0xffe3
007e 02a0 | | Declare_Subprogram Null_Subprogram
007f 03ad | | Declare_Type Heap_Access,Defined
0080 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x1d = 0x80,0xffe2
; Debug Table 0x1.0x1e = 0x80,0xffe1
0081 e006 | | Load 0x0,0x6
0082 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0083 02a0 | | Declare_Subprogram Null_Subprogram
0084 00dc | | Load_Top At_Offset_4
0085 0326 | & | Complete_Type Record,By_Defining
0086 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x1.0x1f = 0x86,0xffe0
0087 00e1 | | Load_Encached Boolean_Cache
0088 00e1 | | Load_Encached Boolean_Cache
0089 e005 | | Load 0x0,0x5
008a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
008b e006 | | Load 0x0,0x6
008c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
008d e006 | | Load 0x0,0x6
008e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
008f e006 | | Load 0x0,0x6
0090 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0091 e006 | | Load 0x0,0x6
0092 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0093 e003 | | Load 0x0,0x3
0094 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0095 e252 | R | Load 0x1,0x52
0096 e238 | 8 | Load 0x1,0x38
0097 029f 06eb | | Declare_Subprogram INIT_06e8,For_Call
0099 e232 | 2 | Load 0x1,0x32
009a 0326 | & | Complete_Type Record,By_Defining
009b 0092 0fe7 | | Action Push_String_Extended,0xfe7 ; "\x0a\x0d"
; Debug Table 0x1.0x20 = 0x9b,0xffdf
; Debug Table 0x1.0x21 = 0x9b,0xffde
009d 0092 0fe8 | | Action Push_String_Extended,0xfe8 ; "\x07"
; Debug Table 0x1.0x22 = 0x9d,0xffdd
009f e007 | | Load 0x0,0x7 ; Debug Table 0x1.0x23 = 0x9f,0xffdc
; Debug Table 0x1.0x24 = 0x9f,0xffdb
00a0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a1 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00a2 629d |b | Indirect_Literal Discrete,0x340,{0x00000000, 0x00002710}
00a3 026e | n | Execute Discrete,Modulo
00a4 e008 | | Load 0x0,0x8
00a5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00a6 03f1 | | Declare_Variable Discrete,With_Value
00a7 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x25 = 0xa7,0xffda
00a8 4803 |H | Short_Literal 0x3
00a9 00e1 | | Load_Encached Boolean_Cache
00aa 02a0 | | Declare_Subprogram Null_Subprogram
00ab 4801 |H | Short_Literal 0x1
00ac 035d | ] | Declare_Type Array,Defined
00ad 00d8 | | Load_Top At_Offset_0
00ae 0337 | 7 | Declare_Variable Array
00af 00d8 | | Load_Top At_Offset_0
00b0 0337 | 7 | Declare_Variable Array
00b1 4803 |H | Short_Literal 0x3
00b2 4800 |H | Short_Literal 0x0
00b3 4800 |H | Short_Literal 0x0
00b4 00d9 | | Load_Top At_Offset_1
00b5 00dc | | Load_Top At_Offset_4
00b6 01d6 | | Execute Vector,Field_Write
00b7 3ffb |? | Loop_Increasing 0xb3
00b8 00d9 | | Load_Top At_Offset_1
00b9 01d4 | | Execute Vector,Structure_Write
00ba 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x1.0x26 = 0xba,0xffd9
00bb 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
00bc 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x1.0x27 = 0xbc,0xffd8
00bd 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00be 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x1.0x28 = 0xbe,0xffd7
00bf 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00c0 e005 | | Load 0x0,0x5 ; Debug Table 0x1.0x29 = 0xc0,0xffd6
00c1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00c2 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00c3 4801 |H | Short_Literal 0x1 ; Debug Table 0x1.0x2a = 0xc3,0xffd5
00c4 4802 |H | Short_Literal 0x2
00c5 00e9 | | Load_Encached String_Cache
00c6 0334 | 4 | Declare_Variable Array,With_Constraint
00c7 5284 |R | Indirect_Literal Any,0x34c,{0x30302020, 0x20202020}
00c8 029d 070b | | Declare_Subprogram INIT_0708,For_Outer_Call ; Debug Table 0x1.0x2b = 0xc8,0xffd4
00ca 029d 071b | | Declare_Subprogram INIT_0718,For_Outer_Call ; Debug Table 0x1.0x2c = 0xca,0xffd3
00cc 029d 072b | +| Declare_Subprogram INIT_0728,For_Outer_Call ; Debug Table 0x1.0x2d = 0xcc,0xffd2
00ce 029d 075b | [| Declare_Subprogram INIT_0758,For_Outer_Call ; Debug Table 0x1.0x2e = 0xce,0xffd1
00d0 029d 076b | k| Declare_Subprogram INIT_0768,For_Outer_Call ; Debug Table 0x1.0x2f = 0xd0,0xffd0
00d2 029d 0793 | | Declare_Subprogram INIT_0790,For_Outer_Call ; Debug Table 0x1.0x30 = 0xd2,0xffcf
00d4 029d 07bb | | Declare_Subprogram INIT_07b8,For_Outer_Call ; Debug Table 0x1.0x31 = 0xd4,0xffce
00d6 029d 07cb | | Declare_Subprogram INIT_07c8,For_Outer_Call ; Debug Table 0x1.0x32 = 0xd6,0xffcd
00d8 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 ; Debug Table 0x1.0x33 = 0xd8,0xffcc
00d9 00c7 | | Action Elaborate_Subprogram
00da 029d 07e3 | | Declare_Subprogram INIT_07e0,For_Outer_Call ; Debug Table 0x1.0x34 = 0xda,0xffcb
00dc 029d 083b | ;| Declare_Subprogram INIT_0838,For_Outer_Call ; Debug Table 0x1.0x35 = 0xdc,0xffca
00de 029d 0883 | | Declare_Subprogram INIT_0880,For_Outer_Call ; Debug Table 0x1.0x36 = 0xde,0xffc9
00e0 029d 09d3 | | Declare_Subprogram INIT_09d0,For_Outer_Call ; Debug Table 0x1.0x37 = 0xe0,0xffc8
00e2 029d 0a63 | c| Declare_Subprogram INIT_0a60,For_Outer_Call ; Debug Table 0x1.0x38 = 0xe2,0xffc7
00e4 029d 0ad3 | | Declare_Subprogram INIT_0ad0,For_Outer_Call ; Debug Table 0x1.0x39 = 0xe4,0xffc6
00e6 029d 0af3 | | Declare_Subprogram INIT_0af0,For_Outer_Call ; Debug Table 0x1.0x3a = 0xe6,0xffc5
00e8 029d 0b1b | | Declare_Subprogram INIT_0b18,For_Outer_Call ; Debug Table 0x1.0x3b = 0xe8,0xffc4
00ea 029d 0b4b | K| Declare_Subprogram INIT_0b48,For_Outer_Call ; Debug Table 0x1.0x3c = 0xea,0xffc3
00ec 029d 0bdb | | Declare_Subprogram INIT_0bd8,For_Outer_Call ; Debug Table 0x1.0x3d = 0xec,0xffc2
00ee 029d 0c13 | | Declare_Subprogram INIT_0c10,For_Outer_Call ; Debug Table 0x1.0x3e = 0xee,0xffc1
00f0 029d 0c9b | | Declare_Subprogram INIT_0c98,For_Outer_Call ; Debug Table 0x1.0x3f = 0xf0,0xffc0
00f2 029d 0d33 | 3| Declare_Subprogram INIT_0d30,For_Outer_Call ; Debug Table 0x1.0x40 = 0xf2,0xffbf
00f4 029d 0d53 | S| Declare_Subprogram INIT_0d50,For_Outer_Call ; Debug Table 0x1.0x41 = 0xf4,0xffbe
00f6 029d 0df3 | | Declare_Subprogram INIT_0df0,For_Outer_Call ; Debug Table 0x1.0x42 = 0xf6,0xffbd
00f8 029d 0e5b | [| Declare_Subprogram INIT_0e58,For_Outer_Call ; Debug Table 0x1.0x43 = 0xf8,0xffbc
00fa 029d 0e6b | k| Declare_Subprogram INIT_0e68,For_Outer_Call ; Debug Table 0x1.0x44 = 0xfa,0xffbb
00fc 029d 0e9b | | Declare_Subprogram INIT_0e98,For_Outer_Call ; Debug Table 0x1.0x45 = 0xfc,0xffba
00fe 029d 0edb | | Declare_Subprogram INIT_0ed8,For_Outer_Call ; Debug Table 0x1.0x46 = 0xfe,0xffb9
0100 029d 0ef3 | | Declare_Subprogram INIT_0ef0,For_Outer_Call ; Debug Table 0x1.0x47 = 0x100,0xffb8
0102 029d 0f03 | | Declare_Subprogram INIT_0f00,For_Outer_Call ; Debug Table 0x1.0x48 = 0x102,0xffb7
0104 029d 0f93 | | Declare_Subprogram INIT_0f90,For_Outer_Call ; Debug Table 0x1.0x49 = 0x104,0xffb6
0106 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 ; Debug Table 0x1.0x4a = 0x106,0xffb5
0107 00c7 | | Action Elaborate_Subprogram
0108 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31 ; Debug Table 0x1.0x4b = 0x108,0xffb4
0109 00c7 | | Action Elaborate_Subprogram
010a 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 ; Debug Table 0x1.0x4c = 0x10a,0xffb3
010b 00c7 | | Action Elaborate_Subprogram
010c 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 ; Debug Table 0x1.0x4d = 0x10c,0xffb2
010d 00c7 | | Action Elaborate_Subprogram
010e 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a ; Debug Table 0x1.0x4e = 0x10e,0xffb1
010f 00c7 | | Action Elaborate_Subprogram
0110 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b ; Debug Table 0x1.0x4f = 0x110,0xffb0
0111 00c7 | | Action Elaborate_Subprogram
0112 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c ; Debug Table 0x1.0x50 = 0x112,0xffaf
0113 00c7 | | Action Elaborate_Subprogram
0114 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d ; Debug Table 0x1.0x51 = 0x114,0xffae
0115 00c7 | | Action Elaborate_Subprogram
0116 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e ; Debug Table 0x1.0x52 = 0x116,0xffad
0117 00c7 | | Action Elaborate_Subprogram
0118 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f ; Debug Table 0x1.0x53 = 0x118,0xffac
0119 00c7 | | Action Elaborate_Subprogram
011a 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 ; Debug Table 0x1.0x54 = 0x11a,0xffab
011b 00c7 | | Action Elaborate_Subprogram
011c BODY_0008:
011c 00cf | | Action Mark_Auxiliary
011d 4803 |H | Short_Literal 0x3 ; Debug Table 0x1.0x55 = 0x11d,0x1
011e 4800 |H | Short_Literal 0x0
011f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x56 = 0x11f,0x2
0120 e009 | | Load 0x0,0x9
0121 180e | | Execute Package,Field_Execute,Field_Number 0xe
0122 00d9 | | Load_Top At_Offset_1
0123 e257 | W | Load 0x1,0x57
0124 01d6 | | Execute Vector,Field_Write
0125 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x57 = 0x125,0x3
0126 e257 | W | Load 0x1,0x57
0127 01d7 | | Execute Vector,Field_Read
0128 680c |h | Jump_Zero 0x135
0129 e258 | X | Load 0x1,0x58 ; Debug Table 0x1.0x58 = 0x129,0x4
012a 6802 |h | Jump_Zero 0x12d
012b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x59 = 0x12b,0x5
012c a25b | [ | Store_Unchecked 0x1,0x5b
012d e259 | Y | Load 0x1,0x59 ; Debug Table 0x1.0x5a = 0x12d,0x6
012e e25a | Z | Load 0x1,0x5a
012f 0278 | x | Execute Discrete,Or
0130 a25a | Z | Store_Unchecked 0x1,0x5a
0131 e258 | X | Load 0x1,0x58 ; Debug Table 0x1.0x5b = 0x131,0x7
0132 a259 | Y | Store_Unchecked 0x1,0x59
0133 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x5c = 0x133,0x8
0134 a258 | X | Store_Unchecked 0x1,0x58
0135 00c8 | | Action Pop_Auxiliary_Range
0136 3fe8 |? | Loop_Increasing 0x11f
0137 00ce | | Action Pop_Auxiliary
0138 e258 | X | Load 0x1,0x58 ; Debug Table 0x1.0x5d = 0x138,0x9
0139 e259 | Y | Load 0x1,0x59
013a e25a | Z | Load 0x1,0x5a
013b 0279 | y | Execute Discrete,And
013c 0279 | y | Execute Discrete,And
013d 0f00 | | Execute_Immediate Equal,0x0
013e e258 | X | Load 0x1,0x58
013f e259 | Y | Load 0x1,0x59
0140 e25a | Z | Load 0x1,0x5a
0141 0277 | w | Execute Discrete,Xor
0142 0277 | w | Execute Discrete,Xor
0143 0279 | y | Execute Discrete,And
0144 7002 |p | Jump_Nonzero 0x147
0145 4887 |H | Short_Literal 0x87
0146 0257 | W | Execute Discrete,Raise
0147 00bc | | Action Signal_Activated
0148 00bb | | Action Signal_Completion
0149 0000 0000 | | .BLANK 0000[0x7]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0158 | X | .CONST 0x0158 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0002 | | .CONST 0x0002 ; Number of locals
0153 INIT_0150:
0153 e003 | | Load 0x0,0x3 ; Debug Table 0x2 = .DEBUG 0x0153,0x15ee,0x1001,0x0000,0x0033,0x6314,0x0000,0x01a1
; Debug Table 0x2.0x0 = 0x153,0xffff
0154 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0155 02c7 | | Declare_Variable Any
0156 00d8 | | Load_Top At_Offset_0
0157 1c00 | | Execute_Immediate Run_Utility,0x0
0158 BODY_0150:
0158 e5fb | | Load 0x2,-0x5 ; Debug Table 0x2.0x1 = 0x158,0x1
0159 6805 |h | Jump_Zero 0x15f
015a e5fb | | Load 0x2,-0x5
015b 0217 | | Execute Heap_Access,All_Reference
015c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
015d 0f00 | | Execute_Immediate Equal,0x0
015e 7801 |x | Jump 0x160
015f 4801 |H | Short_Literal 0x1
0160 7002 |p | Jump_Nonzero 0x163
0161 4887 |H | Short_Literal 0x87
0162 0257 | W | Execute Discrete,Raise
0163 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x2 = 0x163,0x2
0164 0120 | | Execute Any,Is_Value
0165 6803 |h | Jump_Zero 0x169
0166 e003 | | Load 0x0,0x3
0167 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0168 7801 |x | Jump 0x16a
0169 00d8 | | Load_Top At_Offset_0
016a 8264 | d | Call 0x1,0x64
016b c402 | | Store 0x2,0x2
016c e225 | % | Load 0x1,0x25 ; Debug Table 0x2.0x3 = 0x16c,0x3
016d 00dc | | Load_Top At_Offset_4
016e 039c | | Declare_Variable Heap_Access,By_Allocation
016f 00d8 | | Load_Top At_Offset_0
0170 0217 | | Execute Heap_Access,All_Reference
0171 1c00 | | Execute_Immediate Run_Utility,0x0
0172 a5fb | | Store_Unchecked 0x2,-0x5
0173 e232 | 2 | Load 0x1,0x32 ; Debug Table 0x2.0x4 = 0x173,0x4
; Debug Table 0x2.0x5 = 0x173,0x5
0174 0322 | " | Declare_Variable Record
0175 4801 |H | Short_Literal 0x1
0176 00d9 | | Load_Top At_Offset_1
0177 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0178 4800 |H | Short_Literal 0x0
0179 00d9 | | Load_Top At_Offset_1
017a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
017b 4800 |H | Short_Literal 0x0
017c 00d9 | | Load_Top At_Offset_1
017d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
017e 4800 |H | Short_Literal 0x0
017f 00d9 | | Load_Top At_Offset_1
0180 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0181 e5fc | | Load 0x2,-0x4
0182 e006 | | Load 0x0,0x6
0183 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0184 0119 | | Execute Any,Check_In_Formal_Type
0185 00d9 | | Load_Top At_Offset_1
0186 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0187 e006 | | Load 0x0,0x6
0188 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0189 e006 | | Load 0x0,0x6
018a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
018b 0119 | | Execute Any,Check_In_Formal_Type
018c 00d9 | | Load_Top At_Offset_1
018d 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
018e 00dd | | Load_Top At_Offset_5
018f 00d9 | | Load_Top At_Offset_1
0190 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0191 00de | | Load_Top At_Offset_6
0192 00d9 | | Load_Top At_Offset_1
0193 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0194 00d9 | | Load_Top At_Offset_1
0195 e003 | | Load 0x0,0x3
0196 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0197 0119 | | Execute Any,Check_In_Formal_Type
0198 00d9 | | Load_Top At_Offset_1
0199 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
019a e252 | R | Load 0x1,0x52
019b 00d9 | | Load_Top At_Offset_1
019c 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
019d 4800 |H | Short_Literal 0x0
019e 00d9 | | Load_Top At_Offset_1
019f 380a |8 | Execute Record,Field_Write,Field_Number 0xa
01a0 e5fb | | Load 0x2,-0x5
01a1 0218 | | Execute Heap_Access,All_Write
01a2 4505 |E | Exit_Suprogram New_Top_Offset 0x5
01a3 0000 0000 | | .BLANK 0000[0x5]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01bd | | .CONST 0x01bd ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 000a | | .CONST 0x000a ; Number of locals
01ab INIT_01a8:
01ab 6198 |a | Indirect_Literal Discrete,0x344,{0x00000000, 0x00000400} ; Debug Table 0x3 = .DEBUG 0x01ab,0x15fc,0x1001,0x0000,0x0033,0x6314,0x0000,0x01c1
; Debug Table 0x3.0x0 = 0x1ab,0xffff
01ac e233 | 3 | Load 0x1,0x33
01ad 1b14 | | Execute Package,Field_Read,Field_Number 0x14
01ae 1c08 | | Execute_Immediate Run_Utility,0x8
01af 00d8 | | Load_Top At_Offset_0
01b0 1c00 | | Execute_Immediate Run_Utility,0x0
01b1 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x3.0x1 = 0x1b1,0xfffe
01b2 e23c | < | Load 0x1,0x3c ; Debug Table 0x3.0x2 = 0x1b2,0xfffd
01b3 e006 | | Load 0x0,0x6 ; Debug Table 0x3.0x3 = 0x1b3,0xfffc
01b4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01b5 0337 | 7 | Declare_Variable Array
01b6 e006 | | Load 0x0,0x6 ; Debug Table 0x3.0x4 = 0x1b6,0xfffb
01b7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01b8 0337 | 7 | Declare_Variable Array
01b9 e237 | 7 | Load 0x1,0x37 ; Debug Table 0x3.0x5 = 0x1b9,0xfffa
01ba 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x3.0x6 = 0x1ba,0xfff9
01bb e23b | ; | Load 0x1,0x3b ; Debug Table 0x3.0x7 = 0x1bb,0xfff8
01bc 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x3.0x8 = 0x1bc,0xfff7
01bd BODY_01a8:
01bd 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x9 = 0x1bd,0x1
01be 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
01bf e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0xa = 0x1bf,0x2
01c0 8263 | c | Call 0x1,0x63
01c1 e25b | [ | Load 0x1,0x5b ; Debug Table 0x3.0xb = 0x1c1,0x3
01c2 a5fc | | Store_Unchecked 0x2,-0x4
01c3 e258 | X | Load 0x1,0x58 ; Debug Table 0x3.0xc = 0x1c3,0x4
01c4 6803 |h | Jump_Zero 0x1c8
01c5 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0xd = 0x1c5,0x5
01c6 a5fb | | Store_Unchecked 0x2,-0x5
01c7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; Debug Table 0x3.0xe = 0x1c7,0x6
01c8 825e | ^ | Call 0x1,0x5e ; Debug Table 0x3.0xf = 0x1c8,0x7
01c9 00cf | | Action Mark_Auxiliary
01ca 4803 |H | Short_Literal 0x3 ; Debug Table 0x3.0x10 = 0x1ca,0x8
01cb e25b | [ | Load 0x1,0x5b
01cc 0263 | c | Execute Discrete,Above_Bound
01cd 703e |p> | Jump_Nonzero 0x20c
01ce e25a | Z | Load 0x1,0x5a ; Debug Table 0x3.0x11 = 0x1ce,0x9
01cf 6802 |h | Jump_Zero 0x1d2
01d0 00d2 | | Pop_Control Pop_Count_2
01d1 783a |x: | Jump 0x20c
01d2 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x12 = 0x1d2,0xa
01d3 e257 | W | Load 0x1,0x57
01d4 01d7 | | Execute Vector,Field_Read
01d5 6834 |h4 | Jump_Zero 0x20a
01d6 00d8 | | Load_Top At_Offset_0
01d7 8211 | | Call 0x1,0x11
01d8 6831 |h1 | Jump_Zero 0x20a
01d9 e23b | ; | Load 0x1,0x3b ; Debug Table 0x3.0x13 = 0x1d9,0xb
01da 00e1 | | Load_Encached Boolean_Cache
01db e5fd | | Load 0x2,-0x3
01dc 00db | | Load_Top At_Offset_3
01dd e5ff | | Load 0x2,-0x1
01de 8279 | y | Call 0x1,0x79
01df 00d1 | | Pop_Control Pop_Count_1
01e0 005d | ] | Store_Top Discrete,At_Offset_5
01e1 005d | ] | Store_Top Discrete,At_Offset_5
01e2 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x14 = 0x1e2,0xc
01e3 6824 |h$ | Jump_Zero 0x208
01e4 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x15 = 0x1e4,0xd
01e5 a5fc | | Store_Unchecked 0x2,-0x4
01e6 e5fc | | Load 0x2,-0x4 ; Debug Table 0x3.0x16 = 0x1e6,0xe
01e7 e5ff | | Load 0x2,-0x1
01e8 0217 | | Execute Heap_Access,All_Reference
01e9 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01ea 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0x17 = 0x1ea,0xf
01eb e5ff | | Load 0x2,-0x1
01ec 0217 | | Execute Heap_Access,All_Reference
01ed 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01ee 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0x18 = 0x1ee,0x10
01ef e5ff | | Load 0x2,-0x1
01f0 0217 | | Execute Heap_Access,All_Reference
01f1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01f2 e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x19 = 0x1f2,0x11
01f3 0217 | | Execute Heap_Access,All_Reference
01f4 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
01f5 7004 |p | Jump_Nonzero 0x1fa
01f6 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0x1a = 0x1f6,0x12
01f7 e5ff | | Load 0x2,-0x1
01f8 0217 | | Execute Heap_Access,All_Reference
01f9 380a |8 | Execute Record,Field_Write,Field_Number 0xa
01fa 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x1b = 0x1fa,0x13
01fb a5fb | | Store_Unchecked 0x2,-0x5
01fc 0092 0fe9 | | Action Push_String_Extended,0xfe9 ; "The drive was already allocated to you"
; Debug Table 0x3.0x1c = 0x1fc,0x14
01fe 8210 | | Call 0x1,0x10
01ff 00dc | | Load_Top At_Offset_4 ; Debug Table 0x3.0x1d = 0x1ff,0x15
0200 e5fc | | Load 0x2,-0x4
0201 e5ff | | Load 0x2,-0x1
0202 0217 | | Execute Heap_Access,All_Reference
0203 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0204 e00a | | Load 0x0,0xa
0205 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0206 825f | _ | Call 0x1,0x5f
0207 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; Debug Table 0x3.0x1e = 0x207,0x16
0208 00d2 | | Pop_Control Pop_Count_2 ; Debug Table 0x3.0x1f = 0x208,0x17
0209 7802 |x | Jump 0x20c
020a 00c8 | | Action Pop_Auxiliary_Range
020b 3fc2 |? | Loop_Increasing 0x1ce
020c 00ce | | Action Pop_Auxiliary
020d 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x20 = 0x20d,0x18
020e a5fb | | Store_Unchecked 0x2,-0x5
020f 0092 0fea | | Action Push_String_Extended,0xfea ; "A mount request has been issued and is awaiting the operator."
; Debug Table 0x3.0x21 = 0x20f,0x19
0211 8210 | | Call 0x1,0x10
0212 e402 | | Load 0x2,0x2 ; Debug Table 0x3.0x22 = 0x212,0x1a
0213 0092 0feb | | Action Push_String_Extended,0xfeb ; "Please Load Tape"
0215 e233 | 3 | Load 0x1,0x33
0216 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0217 00d1 | | Pop_Control Pop_Count_1
0218 e402 | | Load 0x2,0x2 ; Debug Table 0x3.0x23 = 0x218,0x1b
0219 4801 |H | Short_Literal 0x1
021a 4800 |H | Short_Literal 0x0
021b 4800 |H | Short_Literal 0x0
021c e5fd | | Load 0x2,-0x3
021d e5ff | | Load 0x2,-0x1
021e 0217 | | Execute Heap_Access,All_Reference
021f 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0220 e5fe | | Load 0x2,-0x2
0221 e5ff | | Load 0x2,-0x1
0222 0217 | | Execute Heap_Access,All_Reference
0223 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0224 e5ff | | Load 0x2,-0x1
0225 0217 | | Execute Heap_Access,All_Reference
0226 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0227 8268 | h | Call 0x1,0x68
0228 e233 | 3 | Load 0x1,0x33
0229 181d | | Execute Package,Field_Execute,Field_Number 0x1d
022a 00d1 | | Pop_Control Pop_Count_1
022b e402 | | Load 0x2,0x2 ; Debug Table 0x3.0x24 = 0x22b,0x1c
022c 0092 0fec | | Action Push_String_Extended,0xfec ; "Is Tape mounted and ready to read labels? "
022e e233 | 3 | Load 0x1,0x33
022f 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0230 00d1 | | Pop_Control Pop_Count_1
0231 00cf | | Action Mark_Auxiliary
0232 e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x25 = 0x232,0x1d
; Debug Table 0x3.0x26 = 0x232,0x1e
0233 0217 | | Execute Heap_Access,All_Reference
0234 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0235 00ea | | Load_Encached Null_String_Cache
0236 e003 | | Load 0x0,0x3
0237 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0238 e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x27 = 0x238,0x1f
0239 0217 | | Execute Heap_Access,All_Reference
023a 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
023b e254 | T | Load 0x1,0x54
023c e003 | | Load 0x0,0x3
023d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
023e e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x28 = 0x23e,0x20
023f 0217 | | Execute Heap_Access,All_Reference
0240 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0241 e402 | | Load 0x2,0x2
0242 e233 | 3 | Load 0x1,0x33
0243 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0244 e23d | = | Load 0x1,0x3d
0245 1d3e | > | Execute_Immediate Reference_Lex_1,0x3e
0246 e003 | | Load 0x0,0x3
0247 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0248 70cc |p | Jump_Nonzero 0x315
0249 e005 | | Load 0x0,0x5 ; Debug Table 0x3.0x29 = 0x249,0x21
024a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
024b e5ff | | Load 0x2,-0x1
024c 827a | z | Call 0x1,0x7a
024d c5fc | | Store 0x2,-0x4
024e 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x3.0x2a = 0x24e,0x22
024f e5fc | | Load 0x2,-0x4
0250 e5ff | | Load 0x2,-0x1
0251 8277 | w | Call 0x1,0x77
0252 005a | Z | Store_Top Discrete,At_Offset_2
0253 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x2b = 0x253,0x23
0254 700f |p | Jump_Nonzero 0x264
0255 e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x2c = 0x255,0x24
0256 0217 | | Execute Heap_Access,All_Reference
0257 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0258 0092 0fed | | Action Push_String_Extended,0xfed ; "Drive"
025a e5fc | | Load 0x2,-0x4
025b 00e0 | | Load_Encached Standard_Cache
025c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
025d 01cc | | Execute Vector,Catenate
025e 0092 0fee | | Action Push_String_Extended,0xfee ; " is busy"
0260 01cc | | Execute Vector,Catenate
0261 e003 | | Load 0x0,0x3
0262 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0263 78be |x | Jump 0x322
0264 e237 | 7 | Load 0x1,0x37 ; Debug Table 0x3.0x2d = 0x264,0x25
0265 e23b | ; | Load 0x1,0x3b
0266 00e1 | | Load_Encached Boolean_Cache
0267 e406 | | Load 0x2,0x6
0268 e405 | | Load 0x2,0x5
0269 e23c | < | Load 0x1,0x3c
026a 00e1 | | Load_Encached Boolean_Cache
026b e5fc | | Load 0x2,-0x4
026c 8267 | g | Call 0x1,0x67
026d c403 | | Store 0x2,0x3
026e c404 | | Store 0x2,0x4
026f 00d2 | | Pop_Control Pop_Count_2
0270 005e | ^ | Store_Top Discrete,At_Offset_6
0271 005c | \ | Store_Top Discrete,At_Offset_4
0272 005d | ] | Store_Top Discrete,At_Offset_5
0273 00dc | | Load_Top At_Offset_4 ; Debug Table 0x3.0x2e = 0x273,0x26
0274 708e |p | Jump_Nonzero 0x303
0275 e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x2f = 0x275,0x27
0276 0217 | | Execute Heap_Access,All_Reference
0277 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0278 0092 0fef | | Action Push_String_Extended,0xfef ; "Info on tape mounted on drive"
027a e5fc | | Load 0x2,-0x4
027b 00e0 | | Load_Encached Standard_Cache
027c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
027d 01cc | | Execute Vector,Catenate
027e 0092 0ff0 | | Action Push_String_Extended,0xff0 ; " is:"
0280 01cc | | Execute Vector,Catenate
0281 e253 | S | Load 0x1,0x53
0282 01cc | | Execute Vector,Catenate
0283 e406 | | Load 0x2,0x6
0284 e405 | | Load 0x2,0x5
0285 e404 | | Load 0x2,0x4
0286 e403 | | Load 0x2,0x3
0287 e5fc | | Load 0x2,-0x4
0288 8269 | i | Call 0x1,0x69
0289 e233 | 3 | Load 0x1,0x33
028a 1819 | | Execute Package,Field_Execute,Field_Number 0x19
028b 01cc | | Execute Vector,Catenate
028c e003 | | Load 0x0,0x3
028d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
028e e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x30 = 0x28e,0x28
028f 0217 | | Execute Heap_Access,All_Reference
0290 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0291 4801 |H | Short_Literal 0x1
0292 4802 |H | Short_Literal 0x2
0293 0262 | b | Execute Discrete,In_Range
0294 e403 | | Load 0x2,0x3
0295 0f00 | | Execute_Immediate Equal,0x0
0296 0279 | y | Execute Discrete,And
0297 680d |h | Jump_Zero 0x2a5
0298 e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x31 = 0x298,0x29
0299 0217 | | Execute Heap_Access,All_Reference
029a 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
029b e254 | T | Load 0x1,0x54
029c 0092 0ff1 | | Action Push_String_Extended,0xff1 ; "Tape is write protected"
029e 01cc | | Execute Vector,Catenate
029f e003 | | Load 0x0,0x3
02a0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02a1 e5fc | | Load 0x2,-0x4 ; Debug Table 0x3.0x32 = 0x2a1,0x2a
02a2 e5ff | | Load 0x2,-0x1
02a3 8278 | x | Call 0x1,0x78
02a4 787d |x} | Jump 0x322
02a5 e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x33 = 0x2a5,0x2b
02a6 0217 | | Execute Heap_Access,All_Reference
02a7 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
02a8 0f01 | | Execute_Immediate Equal,0x1
02a9 e5fc | | Load 0x2,-0x4
02aa e009 | | Load 0x0,0x9
02ab 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
02ac 0f00 | | Execute_Immediate Equal,0x0
02ad 0279 | y | Execute Discrete,And
02ae 6812 |h | Jump_Zero 0x2c1
02af e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x34 = 0x2af,0x2c
02b0 0217 | | Execute Heap_Access,All_Reference
02b1 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
02b2 0092 0ff2 | | Action Push_String_Extended,0xff2 ; "Tape will be written in "
02b4 00dc | | Load_Top At_Offset_4
02b5 e23b | ; | Load 0x1,0x3b
02b6 025e | ^ | Execute Discrete,Convert
02b7 1c01 | | Execute_Immediate Run_Utility,0x1
02b8 01cc | | Execute Vector,Catenate
02b9 0092 0ff3 | | Action Push_String_Extended,0xff3 ; ". If not correct, change "
02bb 01cc | | Execute Vector,Catenate
02bc 0092 0ff4 | | Action Push_String_Extended,0xff4 ; "at drive."
02be 01cc | | Execute Vector,Catenate
02bf e003 | | Load 0x0,0x3
02c0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02c1 00dd | | Load_Top At_Offset_5 ; Debug Table 0x3.0x35 = 0x2c1,0x2d
02c2 e405 | | Load 0x2,0x5
02c3 e404 | | Load 0x2,0x4
02c4 e5fd | | Load 0x2,-0x3
02c5 e5ff | | Load 0x2,-0x1
02c6 8271 | q | Call 0x1,0x71
02c7 6837 |h7 | Jump_Zero 0x2ff
02c8 e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x36 = 0x2c8,0x2e
02c9 0217 | | Execute Heap_Access,All_Reference
02ca 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
02cb 0f01 | | Execute_Immediate Equal,0x1
02cc e5ff | | Load 0x2,-0x1
02cd 0217 | | Execute Heap_Access,All_Reference
02ce 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
02cf 0f00 | | Execute_Immediate Equal,0x0
02d0 0f00 | | Execute_Immediate Equal,0x0
02d1 0279 | y | Execute Discrete,And
02d2 6815 |h | Jump_Zero 0x2e8
02d3 e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x37 = 0x2d3,0x2f
02d4 0217 | | Execute Heap_Access,All_Reference
02d5 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
02d6 0092 0ff5 | | Action Push_String_Extended,0xff5 ; "Volume id of tape is now: "
02d8 e5ff | | Load 0x2,-0x1
02d9 0217 | | Execute Heap_Access,All_Reference
02da 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
02db e00a | | Load 0x0,0xa
02dc 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02dd 01cc | | Execute Vector,Catenate
02de e003 | | Load 0x0,0x3
02df 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02e0 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x3.0x38 = 0x2e0,0x30
02e1 e5ff | | Load 0x2,-0x1
02e2 0217 | | Execute Heap_Access,All_Reference
02e3 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
02e4 e5fc | | Load 0x2,-0x4
02e5 e5ff | | Load 0x2,-0x1
02e6 8272 | r | Call 0x1,0x72
02e7 005a | Z | Store_Top Discrete,At_Offset_2
02e8 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x39 = 0x2e8,0x31
02e9 6811 |h | Jump_Zero 0x2fb
02ea e5fc | | Load 0x2,-0x4 ; Debug Table 0x3.0x3a = 0x2ea,0x32
02eb e5ff | | Load 0x2,-0x1
02ec 0217 | | Execute Heap_Access,All_Reference
02ed 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
02ee 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0x3b = 0x2ee,0x33
02ef e5ff | | Load 0x2,-0x1
02f0 0217 | | Execute Heap_Access,All_Reference
02f1 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02f2 e5fc | | Load 0x2,-0x4 ; Debug Table 0x3.0x3c = 0x2f2,0x34
02f3 e009 | | Load 0x0,0x9
02f4 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
02f5 e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x3d = 0x2f5,0x35
02f6 0217 | | Execute Heap_Access,All_Reference
02f7 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
02f8 e5fd | | Load 0x2,-0x3
02f9 01d4 | | Execute Vector,Structure_Write
02fa 7829 |x) | Jump 0x324 ; Debug Table 0x3.0x3e = 0x2fa,0x36
02fb e5fc | | Load 0x2,-0x4 ; Debug Table 0x3.0x3f = 0x2fb,0x37
02fc e5ff | | Load 0x2,-0x1
02fd 8278 | x | Call 0x1,0x78
02fe 7823 |x# | Jump 0x322
02ff e5fc | | Load 0x2,-0x4 ; Debug Table 0x3.0x40 = 0x2ff,0x38
0300 e5ff | | Load 0x2,-0x1
0301 8278 | x | Call 0x1,0x78
0302 781f |x | Jump 0x322
0303 e5fc | | Load 0x2,-0x4 ; Debug Table 0x3.0x41 = 0x303,0x39
0304 e5ff | | Load 0x2,-0x1
0305 8278 | x | Call 0x1,0x78
0306 e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x42 = 0x306,0x3a
0307 0217 | | Execute Heap_Access,All_Reference
0308 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0309 e254 | T | Load 0x1,0x54
030a 0092 0ff6 | | Action Push_String_Extended,0xff6 ; "Error encountered while reading labels: "
030c 01cc | | Execute Vector,Catenate
030d 00de | | Load_Top At_Offset_6
030e e237 | 7 | Load 0x1,0x37
030f 025e | ^ | Execute Discrete,Convert
0310 1c01 | | Execute_Immediate Run_Utility,0x1
0311 01cc | | Execute Vector,Catenate
0312 e003 | | Load 0x0,0x3
0313 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0314 780d |x | Jump 0x322
0315 e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x43 = 0x315,0x3b
0316 0217 | | Execute Heap_Access,All_Reference
0317 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0318 4800 |H | Short_Literal 0x0
0319 0092 0ff7 | | Action Push_String_Extended,0xff7 ; "Why not? "
031b e245 | E | Load 0x1,0x45
031c 1d46 | F | Execute_Immediate Reference_Lex_1,0x46
031d 8004 | | Call 0x0,0x4
031e 8260 | ` | Call 0x1,0x60
031f a5fb | | Store_Unchecked 0x2,-0x5
0320 e5fb | | Load 0x2,-0x5 ; Debug Table 0x3.0x44 = 0x320,0x3c
0321 7002 |p | Jump_Nonzero 0x324
0322 00c9 | | Action Pop_Auxiliary_Loop
0323 7f0e | | Jump 0x232
0324 00ce | | Action Pop_Auxiliary
0325 e5fb | | Load 0x2,-0x5 ; Debug Table 0x3.0x45 = 0x325,0x3d
0326 700c |p | Jump_Nonzero 0x333
0327 0092 0ff8 | | Action Push_String_Extended,0xff8 ; "The mount request has been answered."
; Debug Table 0x3.0x46 = 0x327,0x3e
0329 8210 | | Call 0x1,0x10
032a 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x47 = 0x32a,0x3f
032b e5fc | | Load 0x2,-0x4
032c e5ff | | Load 0x2,-0x1
032d 0217 | | Execute Heap_Access,All_Reference
032e 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
032f e00a | | Load 0x0,0xa
0330 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0331 825f | _ | Call 0x1,0x5f
0332 7809 |x | Jump 0x33c
0333 0092 0ff9 | | Action Push_String_Extended,0xff9 ; "The mount request has been rejected: "
; Debug Table 0x3.0x48 = 0x333,0x40
0335 e5fb | | Load 0x2,-0x5
0336 e006 | | Load 0x0,0x6
0337 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0338 025e | ^ | Execute Discrete,Convert
0339 1c01 | | Execute_Immediate Run_Utility,0x1
033a 01cc | | Execute Vector,Catenate
033b 8210 | | Call 0x1,0x10
033c e003 | | Load 0x0,0x3 ; Debug Table 0x3.0x49 = 0x33c,0x41
033d 1817 | | Execute Package,Field_Execute,Field_Number 0x17
033e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
033f 0000 | | .XXX[0x1]
0340 0000 0000 | | .LITERAL {0x00000000, 0x00002710}
0344 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
0348 0000 0000 | | .LITERAL {0x00000000, 0x003373f4}
034c 3030 2020 |00 | .LITERAL {0x30302020, 0x20202020}
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 035a | Z | .CONST 0x035a ; Address of begin
0351 0004 | | .CONST 0x0004 ; Address of exception handler
0352 0002 | | .CONST 0x0002 ; Number of locals
0353 INIT_0350:
0353 e006 | | Load 0x0,0x6 ; Debug Table 0x4 = .DEBUG 0x0353,0x1692,0x1001,0x0000,0x0033,0x6314,0x0000,0x01e1
; Debug Table 0x4.0x0 = 0x353,0xffff
0354 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0355 0337 | 7 | Declare_Variable Array
0356 e006 | | Load 0x0,0x6
0357 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0358 00d9 | | Load_Top At_Offset_1
0359 01d4 | | Execute Vector,Structure_Write
035a BODY_0350:
035a 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0x1 = 0x35a,0x1
035b 8263 | c | Call 0x1,0x63
035c 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0x2 = 0x35c,0x2
035d 0217 | | Execute Heap_Access,All_Reference
035e 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
035f 6802 |h | Jump_Zero 0x362
0360 4887 |H | Short_Literal 0x87
0361 0257 | W | Execute Discrete,Raise
0362 e006 | | Load 0x0,0x6 ; Debug Table 0x4.0x3 = 0x362,0x3
0363 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0364 e005 | | Load 0x0,0x5
0365 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0366 00da | | Load_Top At_Offset_2
0367 e5fe | | Load 0x2,-0x2
0368 e5ff | | Load 0x2,-0x1
0369 8227 | ' | Call 0x1,0x27
036a 00d1 | | Pop_Control Pop_Count_1
036b c5fd | | Store 0x2,-0x3
036c c5fc | | Store 0x2,-0x4
036d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
036e 0000 0000 | | .XXX[0x2]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0373 | s | .CONST 0x0373 ; Address of begin
0371 0004 | | .CONST 0x0004 ; Address of exception handler
0372 0001 | | .CONST 0x0001 ; Number of locals
0373 BODY_0370:
0373 INIT_0370:
0373 00da | | Load_Top At_Offset_2 ; Debug Table 0x5 = .DEBUG 0x0373,0x169c,0x1002,0x0000,0x0033,0x6314,0x0000,0x01fb
; Debug Table 0x5.0x0 = 0x373,0x1
0374 8263 | c | Call 0x1,0x63
0375 00da | | Load_Top At_Offset_2 ; Debug Table 0x5.0x1 = 0x375,0x2
0376 0217 | | Execute Heap_Access,All_Reference
0377 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0378 0335 | 5 | Declare_Variable Array,Duplicate
0379 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
037a 0000 0000 | | .BLANK 0000[0x6]
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 0383 | | .CONST 0x0383 ; Address of begin
0381 0004 | | .CONST 0x0004 ; Address of exception handler
0382 0001 | | .CONST 0x0001 ; Number of locals
0383 BODY_0380:
0383 INIT_0380:
0383 00da | | Load_Top At_Offset_2 ; Debug Table 0x6 = .DEBUG 0x0383,0x16a2,0x1002,0x0000,0x0033,0x6314,0x0000,0x0206
; Debug Table 0x6.0x0 = 0x383,0x1
0384 8263 | c | Call 0x1,0x63
0385 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x1 = 0x385,0x2
0386 0217 | | Execute Heap_Access,All_Reference
0387 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0388 0335 | 5 | Declare_Variable Array,Duplicate
0389 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
038a 0000 0000 | | .BLANK 0000[0x6]
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 0393 | | .CONST 0x0393 ; Address of begin
0391 0004 | | .CONST 0x0004 ; Address of exception handler
0392 0001 | | .CONST 0x0001 ; Number of locals
0393 BODY_0390:
0393 INIT_0390:
0393 00da | | Load_Top At_Offset_2 ; Debug Table 0x7 = .DEBUG 0x0393,0x16a8,0x1002,0x0000,0x0033,0x6314,0x0000,0x0211
; Debug Table 0x7.0x0 = 0x393,0x1
0394 8263 | c | Call 0x1,0x63
0395 00da | | Load_Top At_Offset_2 ; Debug Table 0x7.0x1 = 0x395,0x2
0396 0217 | | Execute Heap_Access,All_Reference
0397 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0398 7003 |p | Jump_Nonzero 0x39c
0399 e006 | | Load 0x0,0x6 ; Debug Table 0x7.0x2 = 0x399,0x3
039a 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
039b 0257 | W | Execute Discrete,Raise
039c 00da | | Load_Top At_Offset_2 ; Debug Table 0x7.0x3 = 0x39c,0x4
039d 0217 | | Execute Heap_Access,All_Reference
039e 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
039f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03a3 | | .CONST 0x03a3 ; Address of begin
03a1 0004 | | .CONST 0x0004 ; Address of exception handler
03a2 0001 | | .CONST 0x0001 ; Number of locals
03a3 BODY_03a0:
03a3 INIT_03a0:
03a3 00da | | Load_Top At_Offset_2 ; Debug Table 0x8 = .DEBUG 0x03a3,0x16b2,0x1001,0x0000,0x0033,0x6314,0x0000,0x021c
; Debug Table 0x8.0x0 = 0x3a3,0x1
03a4 8263 | c | Call 0x1,0x63
03a5 00da | | Load_Top At_Offset_2 ; Debug Table 0x8.0x1 = 0x3a5,0x2
03a6 0217 | | Execute Heap_Access,All_Reference
03a7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
03a8 7003 |p | Jump_Nonzero 0x3ac
03a9 e006 | | Load 0x0,0x6 ; Debug Table 0x8.0x2 = 0x3a9,0x3
03aa 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
03ab 0257 | W | Execute Discrete,Raise
03ac 0092 0ffa | | Action Push_String_Extended,0xffa ; "Continuation volume needed."
; Debug Table 0x8.0x3 = 0x3ac,0x4
03ae 8210 | | Call 0x1,0x10
03af 00cf | | Action Mark_Auxiliary
03b0 00db | | Load_Top At_Offset_3 ; Debug Table 0x8.0x4 = 0x3b0,0x5
; Debug Table 0x8.0x5 = 0x3b0,0x6
03b1 0217 | | Execute Heap_Access,All_Reference
03b2 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
03b3 4603 |F | Jump_Case 0x4
03b4 7803 |x | Jump 0x3b8 ; case 0x0
03b5 7805 |x | Jump 0x3bb ; case 0x1
03b6 783e |x> | Jump 0x3f5 ; case 0x2
03b7 781a |x | Jump 0x3d2 ; case 0x3
03b8 e006 | | Load 0x0,0x6 ; Debug Table 0x8.0x6 = 0x3b8,0x7
03b9 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
03ba 0257 | W | Execute Discrete,Raise
03bb 00db | | Load_Top At_Offset_3 ; Debug Table 0x8.0x7 = 0x3bb,0x8
03bc 0217 | | Execute Heap_Access,All_Reference
03bd 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
03be 00ea | | Load_Encached Null_String_Cache
03bf e003 | | Load 0x0,0x3
03c0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03c1 00db | | Load_Top At_Offset_3 ; Debug Table 0x8.0x8 = 0x3c1,0x9
03c2 0217 | | Execute Heap_Access,All_Reference
03c3 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
03c4 e254 | T | Load 0x1,0x54
03c5 e003 | | Load 0x0,0x3
03c6 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03c7 00db | | Load_Top At_Offset_3 ; Debug Table 0x8.0x9 = 0x3c7,0xa
03c8 0217 | | Execute Heap_Access,All_Reference
03c9 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
03ca 0092 0ffa | | Action Push_String_Extended,0xffa ; "Continuation volume needed."
03cc e003 | | Load 0x0,0x3
03cd 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03ce 4802 |H | Short_Literal 0x2 ; Debug Table 0x8.0xa = 0x3ce,0xb
03cf 00dc | | Load_Top At_Offset_4
03d0 826e | n | Call 0x1,0x6e
03d1 7821 |x! | Jump 0x3f3
03d2 00db | | Load_Top At_Offset_3 ; Debug Table 0x8.0xb = 0x3d2,0xd
03d3 0217 | | Execute Heap_Access,All_Reference
03d4 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
03d5 701f |p | Jump_Nonzero 0x3f5
03d6 00db | | Load_Top At_Offset_3 ; Debug Table 0x8.0xc = 0x3d6,0xe
03d7 0217 | | Execute Heap_Access,All_Reference
03d8 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
03d9 00ea | | Load_Encached Null_String_Cache
03da e003 | | Load 0x0,0x3
03db 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03dc 00db | | Load_Top At_Offset_3 ; Debug Table 0x8.0xd = 0x3dc,0xf
03dd 0217 | | Execute Heap_Access,All_Reference
03de 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
03df e254 | T | Load 0x1,0x54
03e0 e003 | | Load 0x0,0x3
03e1 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03e2 00db | | Load_Top At_Offset_3 ; Debug Table 0x8.0xe = 0x3e2,0x10
03e3 0217 | | Execute Heap_Access,All_Reference
03e4 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
03e5 0092 0ffa | | Action Push_String_Extended,0xffa ; "Continuation volume needed."
03e7 e003 | | Load 0x0,0x3
03e8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03e9 00db | | Load_Top At_Offset_3 ; Debug Table 0x8.0xf = 0x3e9,0x11
03ea 0217 | | Execute Heap_Access,All_Reference
03eb 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
03ec 0092 0ffb | | Action Push_String_Extended,0xffb ; "Volume id list is exhausted."
03ee e003 | | Load 0x0,0x3
03ef 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03f0 4803 |H | Short_Literal 0x3 ; Debug Table 0x8.0x10 = 0x3f0,0x12
03f1 00dc | | Load_Top At_Offset_4
03f2 826e | n | Call 0x1,0x6e
03f3 00c9 | | Action Pop_Auxiliary_Loop
03f4 7fbb | | Jump 0x3b0
03f5 00ce | | Action Pop_Auxiliary
03f6 00da | | Load_Top At_Offset_2 ; Debug Table 0x8.0x11 = 0x3f6,0x13
03f7 0217 | | Execute Heap_Access,All_Reference
03f8 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
03f9 4603 |F | Jump_Case 0x4
03fa 7817 |x | Jump 0x412 ; case 0x0
03fb 7816 |x | Jump 0x412 ; case 0x1
03fc 7801 |x | Jump 0x3fe ; case 0x2
03fd 7804 |x | Jump 0x402 ; case 0x3
03fe 826b | k | Call 0x1,0x6b ; Debug Table 0x8.0x12 = 0x3fe,0x14
03ff 00dc | | Load_Top At_Offset_4
0400 01d4 | | Execute Vector,Structure_Write
0401 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0402 00da | | Load_Top At_Offset_2 ; Debug Table 0x8.0x13 = 0x402,0x15
0403 0217 | | Execute Heap_Access,All_Reference
0404 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
0405 0217 | | Execute Heap_Access,All_Reference
0406 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0407 00dc | | Load_Top At_Offset_4
0408 01d4 | | Execute Vector,Structure_Write
0409 00da | | Load_Top At_Offset_2 ; Debug Table 0x8.0x14 = 0x409,0x16
040a 0217 | | Execute Heap_Access,All_Reference
040b 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
040c 0217 | | Execute Heap_Access,All_Reference
040d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
040e 00db | | Load_Top At_Offset_3
040f 0217 | | Execute Heap_Access,All_Reference
0410 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0411 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0412 4887 |H | Short_Literal 0x87 ; Debug Table 0x8.0x15 = 0x412,0x17
0413 0257 | W | Execute Discrete,Raise
0414 0000 0000 | | .BLANK 0000[0x4]
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 041b | | .CONST 0x041b ; Address of begin
0419 0004 | | .CONST 0x0004 ; Address of exception handler
041a 0001 | | .CONST 0x0001 ; Number of locals
041b BODY_0418:
041b INIT_0418:
041b 00da | | Load_Top At_Offset_2 ; Debug Table 0x9 = .DEBUG 0x041b,0x16e0,0x1001,0x0000,0x0033,0x6314,0x0000,0x022a
; Debug Table 0x9.0x0 = 0x41b,0x1
041c 8263 | c | Call 0x1,0x63
041d 00da | | Load_Top At_Offset_2 ; Debug Table 0x9.0x1 = 0x41d,0x2
041e 0217 | | Execute Heap_Access,All_Reference
041f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0420 7003 |p | Jump_Nonzero 0x424
0421 e006 | | Load 0x0,0x6 ; Debug Table 0x9.0x2 = 0x421,0x3
0422 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0423 0257 | W | Execute Discrete,Raise
0424 00da | | Load_Top At_Offset_2 ; Debug Table 0x9.0x3 = 0x424,0x4
0425 0217 | | Execute Heap_Access,All_Reference
0426 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0427 e254 | T | Load 0x1,0x54
0428 e003 | | Load 0x0,0x3
0429 1810 | | Execute Package,Field_Execute,Field_Number 0x10
042a 00da | | Load_Top At_Offset_2 ; Debug Table 0x9.0x4 = 0x42a,0x5
042b 0217 | | Execute Heap_Access,All_Reference
042c 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
042d 0092 0ffc | | Action Push_String_Extended,0xffc ; "Operator Tape Error, Tape: "
042f 00dc | | Load_Top At_Offset_4
0430 0217 | | Execute Heap_Access,All_Reference
0431 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0432 00e0 | | Load_Encached Standard_Cache
0433 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0434 01cc | | Execute Vector,Catenate
0435 0092 0ffd | | Action Push_String_Extended,0xffd ; " Error: "
0437 01cc | | Execute Vector,Catenate
0438 00dd | | Load_Top At_Offset_5
0439 e006 | | Load 0x0,0x6
043a 1b18 | | Execute Package,Field_Read,Field_Number 0x18
043b 025e | ^ | Execute Discrete,Convert
043c 1c01 | | Execute_Immediate Run_Utility,0x1
043d 01cc | | Execute Vector,Catenate
043e e003 | | Load 0x0,0x3
043f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0440 00da | | Load_Top At_Offset_2 ; Debug Table 0x9.0x5 = 0x440,0x6
0441 0217 | | Execute Heap_Access,All_Reference
0442 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0443 00db | | Load_Top At_Offset_3
0444 8278 | x | Call 0x1,0x78
0445 4800 |H | Short_Literal 0x0 ; Debug Table 0x9.0x6 = 0x445,0x7
0446 00db | | Load_Top At_Offset_3
0447 0217 | | Execute Heap_Access,All_Reference
0448 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0449 4503 |E | Exit_Suprogram New_Top_Offset 0x3
044a 0000 0000 | | .BLANK 0000[0x6]
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0455 | U | .CONST 0x0455 ; Address of begin
0451 0004 | | .CONST 0x0004 ; Address of exception handler
0452 0002 | | .CONST 0x0002 ; Number of locals
0453 INIT_0450:
0453 029f 0fbb | | Declare_Subprogram INIT_0fb8,For_Call ; Debug Table 0xa = .DEBUG 0x0453,0x16f0,0x1001,0x0000,0x0033,0x6314,0x0000,0x0238
; Debug Table 0xa.0x0 = 0x453,0xffff
0455 BODY_0450:
0455 00db | | Load_Top At_Offset_3 ; Debug Table 0xa.0x1 = 0x455,0x1
0456 8263 | c | Call 0x1,0x63
0457 00db | | Load_Top At_Offset_3 ; Debug Table 0xa.0x2 = 0x457,0x2
0458 0217 | | Execute Heap_Access,All_Reference
0459 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
045a 7003 |p | Jump_Nonzero 0x45e
045b e006 | | Load 0x0,0x6 ; Debug Table 0xa.0x3 = 0x45b,0x3
045c 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
045d 0257 | W | Execute Discrete,Raise
045e 00db | | Load_Top At_Offset_3 ; Debug Table 0xa.0x4 = 0x45e,0x4
045f 0217 | | Execute Heap_Access,All_Reference
0460 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0461 e254 | T | Load 0x1,0x54
0462 e253 | S | Load 0x1,0x53
0463 01cc | | Execute Vector,Catenate
0464 0092 0ffe | | Action Push_String_Extended,0xffe ; "Please Dismount Tape on Drive"
0466 01cc | | Execute Vector,Catenate
0467 00dd | | Load_Top At_Offset_5
0468 0217 | | Execute Heap_Access,All_Reference
0469 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
046a 00e0 | | Load_Encached Standard_Cache
046b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
046c 01cc | | Execute Vector,Catenate
046d 4800 |H | Short_Literal 0x0
046e 00de | | Load_Top At_Offset_6
046f 0217 | | Execute Heap_Access,All_Reference
0470 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0471 e009 | | Load 0x0,0x9
0472 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0473 4801 |H | Short_Literal 0x1
0474 e5ff | | Load 0x2,-0x1
0475 0217 | | Execute Heap_Access,All_Reference
0476 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0477 e5ff | | Load 0x2,-0x1
0478 0217 | | Execute Heap_Access,All_Reference
0479 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
047a e5fe | | Load 0x2,-0x2
047b 8402 | | Call 0x2,0x2
047c e5ff | | Load 0x2,-0x1
047d 0217 | | Execute Heap_Access,All_Reference
047e 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
047f e5ff | | Load 0x2,-0x1
0480 0217 | | Execute Heap_Access,All_Reference
0481 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0482 8268 | h | Call 0x1,0x68
0483 e233 | 3 | Load 0x1,0x33
0484 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0485 01cc | | Execute Vector,Catenate
0486 e003 | | Load 0x0,0x3
0487 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0488 00db | | Load_Top At_Offset_3 ; Debug Table 0xa.0x5 = 0x488,0x5
0489 0217 | | Execute Heap_Access,All_Reference
048a 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
048b 00dc | | Load_Top At_Offset_4
048c 8278 | x | Call 0x1,0x78
048d 0092 0fff | | Action Push_String_Extended,0xfff ; "The volume has been unloaded"
; Debug Table 0xa.0x6 = 0x48d,0x6
048f 8210 | | Call 0x1,0x10
0490 00db | | Load_Top At_Offset_3 ; Debug Table 0xa.0x7 = 0x490,0x7
0491 0217 | | Execute Heap_Access,All_Reference
0492 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0493 e00a | | Load 0x0,0xa
0494 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0495 825d | ] | Call 0x1,0x5d
0496 4800 |H | Short_Literal 0x0 ; Debug Table 0xa.0x8 = 0x496,0x8
0497 00dc | | Load_Top At_Offset_4
0498 0217 | | Execute Heap_Access,All_Reference
0499 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
049a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
049b 0000 0000 | | .BLANK 0000[0x5]
04a0 ; --------------------------------------------------------------------------------------
04a0 ; SUBPROGRAM
04a0 ; --------------------------------------------------------------------------------------
04a0 04a3 | | .CONST 0x04a3 ; Address of begin
04a1 0004 | | .CONST 0x0004 ; Address of exception handler
04a2 0001 | | .CONST 0x0001 ; Number of locals
04a3 BODY_04a0:
04a3 INIT_04a0:
04a3 00da | | Load_Top At_Offset_2 ; Debug Table 0xb = .DEBUG 0x04a3,0x1704,0x1001,0x0000,0x0033,0x6314,0x0000,0x0245
; Debug Table 0xb.0x0 = 0x4a3,0x1
04a4 8263 | c | Call 0x1,0x63
04a5 4800 |H | Short_Literal 0x0 ; Debug Table 0xb.0x1 = 0x4a5,0x2
04a6 00db | | Load_Top At_Offset_3
04a7 0217 | | Execute Heap_Access,All_Reference
04a8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
04a9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04aa 0000 0000 | | .BLANK 0000[0x6]
04b0 ; --------------------------------------------------------------------------------------
04b0 ; SUBPROGRAM
04b0 ; --------------------------------------------------------------------------------------
04b0 04b3 | | .CONST 0x04b3 ; Address of begin
04b1 0004 | | .CONST 0x0004 ; Address of exception handler
04b2 0001 | | .CONST 0x0001 ; Number of locals
04b3 BODY_04b0:
04b3 INIT_04b0:
04b3 00da | | Load_Top At_Offset_2 ; Debug Table 0xc = .DEBUG 0x04b3,0x170a,0x1001,0x0000,0x0033,0x6314,0x0000,0x024d
; Debug Table 0xc.0x0 = 0x4b3,0x1
04b4 8263 | c | Call 0x1,0x63
04b5 00da | | Load_Top At_Offset_2 ; Debug Table 0xc.0x1 = 0x4b5,0x2
04b6 0217 | | Execute Heap_Access,All_Reference
04b7 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
04b8 00ea | | Load_Encached Null_String_Cache
04b9 e003 | | Load 0x0,0x3
04ba 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04bb 00da | | Load_Top At_Offset_2 ; Debug Table 0xc.0x2 = 0x4bb,0x3
04bc 0217 | | Execute Heap_Access,All_Reference
04bd 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
04be e254 | T | Load 0x1,0x54
04bf e003 | | Load 0x0,0x3
04c0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04c1 00da | | Load_Top At_Offset_2 ; Debug Table 0xc.0x3 = 0x4c1,0x4
04c2 0217 | | Execute Heap_Access,All_Reference
04c3 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
04c4 0092 1000 | | Action Push_String_Extended,0x1000 ; "*** Complaint Dept. ***"
04c6 e003 | | Load 0x0,0x3
04c7 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04c8 00da | | Load_Top At_Offset_2 ; Debug Table 0xc.0x4 = 0x4c8,0x5
04c9 0217 | | Execute Heap_Access,All_Reference
04ca 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
04cb 00dc | | Load_Top At_Offset_4
04cc e003 | | Load 0x0,0x3
04cd 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04ce 4503 |E | Exit_Suprogram New_Top_Offset 0x3
04cf 0000 | | .XXX[0x1]
04d0 ; --------------------------------------------------------------------------------------
04d0 ; SUBPROGRAM
04d0 ; --------------------------------------------------------------------------------------
04d0 04e7 | | .CONST 0x04e7 ; Address of begin
04d1 0004 | | .CONST 0x0004 ; Address of exception handler
04d2 000b | | .CONST 0x000b ; Number of locals
04d3 INIT_04d0:
04d3 6670 |fp | Indirect_Literal Discrete,0x344,{0x00000000, 0x00000400} ; Debug Table 0xd = .DEBUG 0x04d3,0x1716,0x1001,0x0000,0x0033,0x6314,0x0000,0x0259
; Debug Table 0xd.0x0 = 0x4d3,0xffff
04d4 e233 | 3 | Load 0x1,0x33
04d5 1b14 | | Execute Package,Field_Read,Field_Number 0x14
04d6 1c08 | | Execute_Immediate Run_Utility,0x8
04d7 00d8 | | Load_Top At_Offset_0
04d8 1c00 | | Execute_Immediate Run_Utility,0x0
04d9 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0xd.0x1 = 0x4d9,0xfffe
04da e23c | < | Load 0x1,0x3c ; Debug Table 0xd.0x2 = 0x4da,0xfffd
04db e006 | | Load 0x0,0x6 ; Debug Table 0xd.0x3 = 0x4db,0xfffc
04dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04dd 0337 | 7 | Declare_Variable Array
04de e006 | | Load 0x0,0x6 ; Debug Table 0xd.0x4 = 0x4de,0xfffb
04df 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04e0 0337 | 7 | Declare_Variable Array
04e1 e237 | 7 | Load 0x1,0x37 ; Debug Table 0xd.0x5 = 0x4e1,0xfffa
04e2 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0xd.0x6 = 0x4e2,0xfff9
04e3 e23b | ; | Load 0x1,0x3b ; Debug Table 0xd.0x7 = 0x4e3,0xfff8
04e4 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0xd.0x8 = 0x4e4,0xfff7
04e5 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0xd.0x9 = 0x4e5,0xfff6
04e6 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
04e7 BODY_04d0:
04e7 4800 |H | Short_Literal 0x0 ; Debug Table 0xd.0xa = 0x4e7,0x1
04e8 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
04e9 e5ff | | Load 0x2,-0x1 ; Debug Table 0xd.0xb = 0x4e9,0x2
04ea 8263 | c | Call 0x1,0x63
04eb e258 | X | Load 0x1,0x58 ; Debug Table 0xd.0xc = 0x4eb,0x3
04ec 6803 |h | Jump_Zero 0x4f0
04ed 4801 |H | Short_Literal 0x1 ; Debug Table 0xd.0xd = 0x4ed,0x4
04ee a5fb | | Store_Unchecked 0x2,-0x5
04ef 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; Debug Table 0xd.0xe = 0x4ef,0x5
04f0 e5fe | | Load 0x2,-0x2 ; Debug Table 0xd.0xf = 0x4f0,0x6
04f1 e009 | | Load 0x0,0x9
04f2 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
04f3 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
04f4 825e | ^ | Call 0x1,0x5e ; Debug Table 0xd.0x10 = 0x4f4,0x7
04f5 e5fe | | Load 0x2,-0x2 ; Debug Table 0xd.0x11 = 0x4f5,0x8
04f6 e257 | W | Load 0x1,0x57
04f7 01d7 | | Execute Vector,Field_Read
04f8 6830 |h0 | Jump_Zero 0x529
04f9 e5fe | | Load 0x2,-0x2
04fa 8211 | | Call 0x1,0x11
04fb 682d |h- | Jump_Zero 0x529
04fc e23b | ; | Load 0x1,0x3b ; Debug Table 0xd.0x12 = 0x4fc,0x9
04fd 00e1 | | Load_Encached Boolean_Cache
04fe e5fc | | Load 0x2,-0x4
04ff e5fe | | Load 0x2,-0x2
0500 e5ff | | Load 0x2,-0x1
0501 8279 | y | Call 0x1,0x79
0502 00d1 | | Pop_Control Pop_Count_1
0503 005b | [ | Store_Top Discrete,At_Offset_3
0504 005b | [ | Store_Top Discrete,At_Offset_3
0505 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xd.0x13 = 0x505,0xa
0506 6822 |h" | Jump_Zero 0x529
0507 e5fe | | Load 0x2,-0x2 ; Debug Table 0xd.0x14 = 0x507,0xb
0508 e5ff | | Load 0x2,-0x1
0509 0217 | | Execute Heap_Access,All_Reference
050a 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
050b 4801 |H | Short_Literal 0x1 ; Debug Table 0xd.0x15 = 0x50b,0xc
050c e5ff | | Load 0x2,-0x1
050d 0217 | | Execute Heap_Access,All_Reference
050e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
050f 4801 |H | Short_Literal 0x1 ; Debug Table 0xd.0x16 = 0x50f,0xd
0510 e5ff | | Load 0x2,-0x1
0511 0217 | | Execute Heap_Access,All_Reference
0512 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0513 e5ff | | Load 0x2,-0x1 ; Debug Table 0xd.0x17 = 0x513,0xe
0514 0217 | | Execute Heap_Access,All_Reference
0515 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
0516 7004 |p | Jump_Nonzero 0x51b
0517 4801 |H | Short_Literal 0x1 ; Debug Table 0xd.0x18 = 0x517,0xf
0518 e5ff | | Load 0x2,-0x1
0519 0217 | | Execute Heap_Access,All_Reference
051a 380a |8 | Execute Record,Field_Write,Field_Number 0xa
051b 4800 |H | Short_Literal 0x0 ; Debug Table 0xd.0x19 = 0x51b,0x10
051c a5fb | | Store_Unchecked 0x2,-0x5
051d 0092 0fe9 | | Action Push_String_Extended,0xfe9 ; "The drive was already allocated to you"
; Debug Table 0xd.0x1a = 0x51d,0x11
051f 8210 | | Call 0x1,0x10
0520 00da | | Load_Top At_Offset_2 ; Debug Table 0xd.0x1b = 0x520,0x12
0521 e5fe | | Load 0x2,-0x2
0522 e5ff | | Load 0x2,-0x1
0523 0217 | | Execute Heap_Access,All_Reference
0524 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0525 e00a | | Load 0x0,0xa
0526 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0527 825f | _ | Call 0x1,0x5f
0528 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; Debug Table 0xd.0x1c = 0x528,0x13
0529 4800 |H | Short_Literal 0x0 ; Debug Table 0xd.0x1d = 0x529,0x14
052a a5fb | | Store_Unchecked 0x2,-0x5
052b 0092 0fea | | Action Push_String_Extended,0xfea ; "A mount request has been issued and is awaiting the operator."
; Debug Table 0xd.0x1e = 0x52b,0x15
052d 8210 | | Call 0x1,0x10
052e e402 | | Load 0x2,0x2 ; Debug Table 0xd.0x1f = 0x52e,0x16
052f 0092 1001 | | Action Push_String_Extended,0x1001 ; "Please Load Tape on Drive"
0531 e5fe | | Load 0x2,-0x2
0532 00e0 | | Load_Encached Standard_Cache
0533 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0534 01cc | | Execute Vector,Catenate
0535 e233 | 3 | Load 0x1,0x33
0536 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0537 00d1 | | Pop_Control Pop_Count_1
0538 e402 | | Load 0x2,0x2 ; Debug Table 0xd.0x20 = 0x538,0x17
0539 4801 |H | Short_Literal 0x1
053a 00da | | Load_Top At_Offset_2
053b 4801 |H | Short_Literal 0x1
053c e5fc | | Load 0x2,-0x4
053d e5ff | | Load 0x2,-0x1
053e 0217 | | Execute Heap_Access,All_Reference
053f 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0540 e5fd | | Load 0x2,-0x3
0541 e5ff | | Load 0x2,-0x1
0542 0217 | | Execute Heap_Access,All_Reference
0543 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0544 e5ff | | Load 0x2,-0x1
0545 0217 | | Execute Heap_Access,All_Reference
0546 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0547 8268 | h | Call 0x1,0x68
0548 e233 | 3 | Load 0x1,0x33
0549 181d | | Execute Package,Field_Execute,Field_Number 0x1d
054a 00d1 | | Pop_Control Pop_Count_1
054b e402 | | Load 0x2,0x2 ; Debug Table 0xd.0x21 = 0x54b,0x18
054c 0092 0fec | | Action Push_String_Extended,0xfec ; "Is Tape mounted and ready to read labels? "
054e e233 | 3 | Load 0x1,0x33
054f 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0550 00d1 | | Pop_Control Pop_Count_1
0551 00cf | | Action Mark_Auxiliary
0552 e5ff | | Load 0x2,-0x1 ; Debug Table 0xd.0x22 = 0x552,0x19
; Debug Table 0xd.0x23 = 0x552,0x1a
0553 0217 | | Execute Heap_Access,All_Reference
0554 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0555 00ea | | Load_Encached Null_String_Cache
0556 e003 | | Load 0x0,0x3
0557 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0558 e5ff | | Load 0x2,-0x1 ; Debug Table 0xd.0x24 = 0x558,0x1b
0559 0217 | | Execute Heap_Access,All_Reference
055a 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
055b e254 | T | Load 0x1,0x54
055c e003 | | Load 0x0,0x3
055d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
055e e5ff | | Load 0x2,-0x1 ; Debug Table 0xd.0x25 = 0x55e,0x1c
055f 0217 | | Execute Heap_Access,All_Reference
0560 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0561 e402 | | Load 0x2,0x2
0562 e233 | 3 | Load 0x1,0x33
0563 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0564 e23d | = | Load 0x1,0x3d
0565 1d3e | > | Execute_Immediate Reference_Lex_1,0x3e
0566 e003 | | Load 0x0,0x3
0567 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0568 70c5 |p | Jump_Nonzero 0x62e
0569 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0xd.0x26 = 0x569,0x1d
056a e5fe | | Load 0x2,-0x2
056b e5ff | | Load 0x2,-0x1
056c 8277 | w | Call 0x1,0x77
056d 005b | [ | Store_Top Discrete,At_Offset_3
056e 00da | | Load_Top At_Offset_2 ; Debug Table 0xd.0x27 = 0x56e,0x1e
056f 700f |p | Jump_Nonzero 0x57f
0570 e5ff | | Load 0x2,-0x1 ; Debug Table 0xd.0x28 = 0x570,0x1f
0571 0217 | | Execute Heap_Access,All_Reference
0572 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0573 0092 0fed | | Action Push_String_Extended,0xfed ; "Drive"
0575 e5fe | | Load 0x2,-0x2
0576 00e0 | | Load_Encached Standard_Cache
0577 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0578 01cc | | Execute Vector,Catenate
0579 0092 0fee | | Action Push_String_Extended,0xfee ; " is busy"
057b 01cc | | Execute Vector,Catenate
057c e003 | | Load 0x0,0x3
057d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
057e 78bc |x | Jump 0x63b
057f e237 | 7 | Load 0x1,0x37 ; Debug Table 0xd.0x29 = 0x57f,0x20
0580 e23b | ; | Load 0x1,0x3b
0581 00e1 | | Load_Encached Boolean_Cache
0582 e406 | | Load 0x2,0x6
0583 e405 | | Load 0x2,0x5
0584 e23c | < | Load 0x1,0x3c
0585 00e1 | | Load_Encached Boolean_Cache
0586 e5fe | | Load 0x2,-0x2
0587 8267 | g | Call 0x1,0x67
0588 c403 | | Store 0x2,0x3
0589 c404 | | Store 0x2,0x4
058a 00d2 | | Pop_Control Pop_Count_2
058b c408 | | Store 0x2,0x8
058c 005d | ] | Store_Top Discrete,At_Offset_5
058d 005e | ^ | Store_Top Discrete,At_Offset_6
058e 00dd | | Load_Top At_Offset_5 ; Debug Table 0xd.0x2a = 0x58e,0x21
058f 708c |p | Jump_Nonzero 0x61c
0590 e5ff | | Load 0x2,-0x1 ; Debug Table 0xd.0x2b = 0x590,0x22
0591 0217 | | Execute Heap_Access,All_Reference
0592 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0593 0092 0fef | | Action Push_String_Extended,0xfef ; "Info on tape mounted on drive"
0595 e5fe | | Load 0x2,-0x2
0596 00e0 | | Load_Encached Standard_Cache
0597 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0598 01cc | | Execute Vector,Catenate
0599 0092 0ff0 | | Action Push_String_Extended,0xff0 ; " is:"
059b 01cc | | Execute Vector,Catenate
059c e253 | S | Load 0x1,0x53
059d 01cc | | Execute Vector,Catenate
059e e406 | | Load 0x2,0x6
059f e405 | | Load 0x2,0x5
05a0 e404 | | Load 0x2,0x4
05a1 e403 | | Load 0x2,0x3
05a2 e5fe | | Load 0x2,-0x2
05a3 8269 | i | Call 0x1,0x69
05a4 e233 | 3 | Load 0x1,0x33
05a5 1819 | | Execute Package,Field_Execute,Field_Number 0x19
05a6 01cc | | Execute Vector,Catenate
05a7 e003 | | Load 0x0,0x3
05a8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05a9 e5ff | | Load 0x2,-0x1 ; Debug Table 0xd.0x2c = 0x5a9,0x23
05aa 0217 | | Execute Heap_Access,All_Reference
05ab 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
05ac 4801 |H | Short_Literal 0x1
05ad 4802 |H | Short_Literal 0x2
05ae 0262 | b | Execute Discrete,In_Range
05af e403 | | Load 0x2,0x3
05b0 0f00 | | Execute_Immediate Equal,0x0
05b1 0279 | y | Execute Discrete,And
05b2 680d |h | Jump_Zero 0x5c0
05b3 e5ff | | Load 0x2,-0x1 ; Debug Table 0xd.0x2d = 0x5b3,0x24
05b4 0217 | | Execute Heap_Access,All_Reference
05b5 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
05b6 e254 | T | Load 0x1,0x54
05b7 0092 0ff1 | | Action Push_String_Extended,0xff1 ; "Tape is write protected"
05b9 01cc | | Execute Vector,Catenate
05ba e003 | | Load 0x0,0x3
05bb 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05bc e5fe | | Load 0x2,-0x2 ; Debug Table 0xd.0x2e = 0x5bc,0x25
05bd e5ff | | Load 0x2,-0x1
05be 8278 | x | Call 0x1,0x78
05bf 787b |x{ | Jump 0x63b
05c0 e5ff | | Load 0x2,-0x1 ; Debug Table 0xd.0x2f = 0x5c0,0x26
05c1 0217 | | Execute Heap_Access,All_Reference
05c2 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
05c3 0f01 | | Execute_Immediate Equal,0x1
05c4 00da | | Load_Top At_Offset_2
05c5 0f00 | | Execute_Immediate Equal,0x0
05c6 0279 | y | Execute Discrete,And
05c7 6812 |h | Jump_Zero 0x5da
05c8 e5ff | | Load 0x2,-0x1 ; Debug Table 0xd.0x30 = 0x5c8,0x27
05c9 0217 | | Execute Heap_Access,All_Reference
05ca 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
05cb 0092 0ff2 | | Action Push_String_Extended,0xff2 ; "Tape will be written in "
05cd 00dd | | Load_Top At_Offset_5
05ce e23b | ; | Load 0x1,0x3b
05cf 025e | ^ | Execute Discrete,Convert
05d0 1c01 | | Execute_Immediate Run_Utility,0x1
05d1 01cc | | Execute Vector,Catenate
05d2 0092 0ff3 | | Action Push_String_Extended,0xff3 ; ". If not correct, change "
05d4 01cc | | Execute Vector,Catenate
05d5 0092 0ff4 | | Action Push_String_Extended,0xff4 ; "at drive."
05d7 01cc | | Execute Vector,Catenate
05d8 e003 | | Load 0x0,0x3
05d9 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05da 00de | | Load_Top At_Offset_6 ; Debug Table 0xd.0x31 = 0x5da,0x28
05db e405 | | Load 0x2,0x5
05dc e404 | | Load 0x2,0x4
05dd e5fc | | Load 0x2,-0x4
05de e5ff | | Load 0x2,-0x1
05df 8271 | q | Call 0x1,0x71
05e0 6837 |h7 | Jump_Zero 0x618
05e1 e5ff | | Load 0x2,-0x1 ; Debug Table 0xd.0x32 = 0x5e1,0x29
05e2 0217 | | Execute Heap_Access,All_Reference
05e3 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
05e4 0f01 | | Execute_Immediate Equal,0x1
05e5 e5ff | | Load 0x2,-0x1
05e6 0217 | | Execute Heap_Access,All_Reference
05e7 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
05e8 0f00 | | Execute_Immediate Equal,0x0
05e9 0f00 | | Execute_Immediate Equal,0x0
05ea 0279 | y | Execute Discrete,And
05eb 6815 |h | Jump_Zero 0x601
05ec e5ff | | Load 0x2,-0x1 ; Debug Table 0xd.0x33 = 0x5ec,0x2a
05ed 0217 | | Execute Heap_Access,All_Reference
05ee 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
05ef 0092 0ff5 | | Action Push_String_Extended,0xff5 ; "Volume id of tape is now: "
05f1 e5ff | | Load 0x2,-0x1
05f2 0217 | | Execute Heap_Access,All_Reference
05f3 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
05f4 e00a | | Load 0x0,0xa
05f5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05f6 01cc | | Execute Vector,Catenate
05f7 e003 | | Load 0x0,0x3
05f8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05f9 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0xd.0x34 = 0x5f9,0x2b
05fa e5ff | | Load 0x2,-0x1
05fb 0217 | | Execute Heap_Access,All_Reference
05fc 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
05fd e5fe | | Load 0x2,-0x2
05fe e5ff | | Load 0x2,-0x1
05ff 8272 | r | Call 0x1,0x72
0600 005b | [ | Store_Top Discrete,At_Offset_3
0601 00da | | Load_Top At_Offset_2 ; Debug Table 0xd.0x35 = 0x601,0x2c
0602 6811 |h | Jump_Zero 0x614
0603 e5fe | | Load 0x2,-0x2 ; Debug Table 0xd.0x36 = 0x603,0x2d
0604 e5ff | | Load 0x2,-0x1
0605 0217 | | Execute Heap_Access,All_Reference
0606 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0607 4801 |H | Short_Literal 0x1 ; Debug Table 0xd.0x37 = 0x607,0x2e
0608 e5ff | | Load 0x2,-0x1
0609 0217 | | Execute Heap_Access,All_Reference
060a 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
060b e5fe | | Load 0x2,-0x2 ; Debug Table 0xd.0x38 = 0x60b,0x2f
060c e009 | | Load 0x0,0x9
060d 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
060e e5ff | | Load 0x2,-0x1 ; Debug Table 0xd.0x39 = 0x60e,0x30
060f 0217 | | Execute Heap_Access,All_Reference
0610 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0611 e5fc | | Load 0x2,-0x4
0612 01d4 | | Execute Vector,Structure_Write
0613 7829 |x) | Jump 0x63d ; Debug Table 0xd.0x3a = 0x613,0x31
0614 e5fe | | Load 0x2,-0x2 ; Debug Table 0xd.0x3b = 0x614,0x32
0615 e5ff | | Load 0x2,-0x1
0616 8278 | x | Call 0x1,0x78
0617 7823 |x# | Jump 0x63b
0618 e5fe | | Load 0x2,-0x2 ; Debug Table 0xd.0x3c = 0x618,0x33
0619 e5ff | | Load 0x2,-0x1
061a 8278 | x | Call 0x1,0x78
061b 781f |x | Jump 0x63b
061c e5fe | | Load 0x2,-0x2 ; Debug Table 0xd.0x3d = 0x61c,0x34
061d e5ff | | Load 0x2,-0x1
061e 8278 | x | Call 0x1,0x78
061f e5ff | | Load 0x2,-0x1 ; Debug Table 0xd.0x3e = 0x61f,0x35
0620 0217 | | Execute Heap_Access,All_Reference
0621 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0622 e254 | T | Load 0x1,0x54
0623 0092 0ff6 | | Action Push_String_Extended,0xff6 ; "Error encountered while reading labels: "
0625 01cc | | Execute Vector,Catenate
0626 e407 | | Load 0x2,0x7
0627 e237 | 7 | Load 0x1,0x37
0628 025e | ^ | Execute Discrete,Convert
0629 1c01 | | Execute_Immediate Run_Utility,0x1
062a 01cc | | Execute Vector,Catenate
062b e003 | | Load 0x0,0x3
062c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
062d 780d |x | Jump 0x63b
062e e5ff | | Load 0x2,-0x1 ; Debug Table 0xd.0x3f = 0x62e,0x36
062f 0217 | | Execute Heap_Access,All_Reference
0630 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0631 4800 |H | Short_Literal 0x0
0632 0092 0ff7 | | Action Push_String_Extended,0xff7 ; "Why not? "
0634 e245 | E | Load 0x1,0x45
0635 1d46 | F | Execute_Immediate Reference_Lex_1,0x46
0636 8004 | | Call 0x0,0x4
0637 8260 | ` | Call 0x1,0x60
0638 a5fb | | Store_Unchecked 0x2,-0x5
0639 e5fb | | Load 0x2,-0x5 ; Debug Table 0xd.0x40 = 0x639,0x37
063a 7002 |p | Jump_Nonzero 0x63d
063b 00c9 | | Action Pop_Auxiliary_Loop
063c 7f15 | | Jump 0x552
063d 00ce | | Action Pop_Auxiliary
063e e5fb | | Load 0x2,-0x5 ; Debug Table 0xd.0x41 = 0x63e,0x38
063f 700c |p | Jump_Nonzero 0x64c
0640 0092 0ff8 | | Action Push_String_Extended,0xff8 ; "The mount request has been answered."
; Debug Table 0xd.0x42 = 0x640,0x39
0642 8210 | | Call 0x1,0x10
0643 00da | | Load_Top At_Offset_2 ; Debug Table 0xd.0x43 = 0x643,0x3a
0644 e5fe | | Load 0x2,-0x2
0645 e5ff | | Load 0x2,-0x1
0646 0217 | | Execute Heap_Access,All_Reference
0647 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0648 e00a | | Load 0x0,0xa
0649 1811 | | Execute Package,Field_Execute,Field_Number 0x11
064a 825f | _ | Call 0x1,0x5f
064b 7809 |x | Jump 0x655
064c 0092 0ff9 | | Action Push_String_Extended,0xff9 ; "The mount request has been rejected: "
; Debug Table 0xd.0x44 = 0x64c,0x3b
064e e5fb | | Load 0x2,-0x5
064f e006 | | Load 0x0,0x6
0650 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0651 025e | ^ | Execute Discrete,Convert
0652 1c01 | | Execute_Immediate Run_Utility,0x1
0653 01cc | | Execute Vector,Catenate
0654 8210 | | Call 0x1,0x10
0655 e003 | | Load 0x0,0x3 ; Debug Table 0xd.0x45 = 0x655,0x3c
0656 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0657 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0658 ; --------------------------------------------------------------------------------------
0658 ; SUBPROGRAM
0658 ; --------------------------------------------------------------------------------------
0658 065b | [ | .CONST 0x065b ; Address of begin
0659 0004 | | .CONST 0x0004 ; Address of exception handler
065a 0001 | | .CONST 0x0001 ; Number of locals
065b BODY_0658:
065b INIT_0658:
065b 4603 |F | Jump_Case 0x4 ; Debug Table 0xe = .DEBUG 0x065b,0x17a4,0x1005,0x0000,0x0033,0x73f4,0x0000,0x00d2
065c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
065d 7802 |x | Jump 0x660 ; case 0x1
065e 7805 |x | Jump 0x664 ; case 0x2
065f 7809 |x | Jump 0x669 ; case 0x3
0660 00da | | Load_Top At_Offset_2
0661 0091 0fd0 | | Action Push_String_Extended_Indexed,0xfd0 ; "YES"
0663 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0664 00db | | Load_Top At_Offset_3
0665 00db | | Load_Top At_Offset_3
0666 00e0 | | Load_Encached Standard_Cache
0667 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0668 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0669 00da | | Load_Top At_Offset_2
066a 00e0 | | Load_Encached Standard_Cache
066b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
066c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
066d 0000 0000 | | .XXX[0x3]
066f 0000 | |
0670 ; --------------------------------------------------------------------------------------
0670 ; SUBPROGRAM
0670 ; --------------------------------------------------------------------------------------
0670 0673 | s | .CONST 0x0673 ; Address of begin
0671 0004 | | .CONST 0x0004 ; Address of exception handler
0672 0001 | | .CONST 0x0001 ; Number of locals
0673 BODY_0670:
0673 INIT_0670:
0673 4603 |F | Jump_Case 0x4 ; Debug Table 0xf = .DEBUG 0x0673,0x17a6,0x1005,0x0000,0x0033,0x73f4,0x0000,0x00d8
0674 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0675 7802 |x | Jump 0x678 ; case 0x1
0676 7805 |x | Jump 0x67c ; case 0x2
0677 7809 |x | Jump 0x681 ; case 0x3
0678 00da | | Load_Top At_Offset_2
0679 0091 0fd2 | | Action Push_String_Extended_Indexed,0xfd2 ; "SUCCESSFUL"
067b 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
067c 00db | | Load_Top At_Offset_3
067d 00db | | Load_Top At_Offset_3
067e 00e0 | | Load_Encached Standard_Cache
067f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0680 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0681 00da | | Load_Top At_Offset_2
0682 00e0 | | Load_Encached Standard_Cache
0683 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0684 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0685 0000 0000 | | .XXX[0x3]
0687 0000 | |
0688 ; --------------------------------------------------------------------------------------
0688 ; SUBPROGRAM
0688 ; --------------------------------------------------------------------------------------
0688 068b | | .CONST 0x068b ; Address of begin
0689 0004 | | .CONST 0x0004 ; Address of exception handler
068a 0001 | | .CONST 0x0001 ; Number of locals
068b BODY_0688:
068b INIT_0688:
068b 4603 |F | Jump_Case 0x4 ; Debug Table 0x10 = .DEBUG 0x068b,0x17a8,0x1005,0x0000,0x0033,0x73f4,0x0000,0x00e0
068c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
068d 7802 |x | Jump 0x690 ; case 0x1
068e 7805 |x | Jump 0x694 ; case 0x2
068f 7809 |x | Jump 0x699 ; case 0x3
0690 00da | | Load_Top At_Offset_2
0691 0091 0fd6 | | Action Push_String_Extended_Indexed,0xfd6 ; "NONE"
0693 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0694 00db | | Load_Top At_Offset_3
0695 00db | | Load_Top At_Offset_3
0696 00e0 | | Load_Encached Standard_Cache
0697 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0698 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0699 00da | | Load_Top At_Offset_2
069a 00e0 | | Load_Encached Standard_Cache
069b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
069c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
069d 0000 0000 | | .XXX[0x3]
069f 0000 | |
06a0 ; --------------------------------------------------------------------------------------
06a0 ; SUBPROGRAM
06a0 ; --------------------------------------------------------------------------------------
06a0 06a3 | | .CONST 0x06a3 ; Address of begin
06a1 0004 | | .CONST 0x0004 ; Address of exception handler
06a2 0001 | | .CONST 0x0001 ; Number of locals
06a3 BODY_06a0:
06a3 INIT_06a0:
06a3 4603 |F | Jump_Case 0x4 ; Debug Table 0x11 = .DEBUG 0x06a3,0x17aa,0x1005,0x0000,0x0033,0x73f4,0x0000,0x00ef
06a4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
06a5 7802 |x | Jump 0x6a8 ; case 0x1
06a6 7805 |x | Jump 0x6ac ; case 0x2
06a7 7809 |x | Jump 0x6b1 ; case 0x3
06a8 00da | | Load_Top At_Offset_2
06a9 0091 0fda | | Action Push_String_Extended_Indexed,0xfda ; "TRY_AGAIN"
06ab 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
06ac 00db | | Load_Top At_Offset_3
06ad 00db | | Load_Top At_Offset_3
06ae 00e0 | | Load_Encached Standard_Cache
06af 181b | | Execute Package,Field_Execute,Field_Number 0x1b
06b0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
06b1 00da | | Load_Top At_Offset_2
06b2 00e0 | | Load_Encached Standard_Cache
06b3 181c | | Execute Package,Field_Execute,Field_Number 0x1c
06b4 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
06b5 0000 0000 | | .XXX[0x3]
06b7 0000 | |
06b8 ; --------------------------------------------------------------------------------------
06b8 ; SUBPROGRAM
06b8 ; --------------------------------------------------------------------------------------
06b8 06bb | | .CONST 0x06bb ; Address of begin
06b9 0004 | | .CONST 0x0004 ; Address of exception handler
06ba 0001 | | .CONST 0x0001 ; Number of locals
06bb BODY_06b8:
06bb INIT_06b8:
06bb 4603 |F | Jump_Case 0x4 ; Debug Table 0x12 = .DEBUG 0x06bb,0x17ac,0x1005,0x0000,0x0033,0x73f4,0x0000,0x00f8
06bc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
06bd 7802 |x | Jump 0x6c0 ; case 0x1
06be 7805 |x | Jump 0x6c4 ; case 0x2
06bf 7809 |x | Jump 0x6c9 ; case 0x3
06c0 00da | | Load_Top At_Offset_2
06c1 0091 0fdf | | Action Push_String_Extended_Indexed,0xfdf ; "UNKNOWN"
06c3 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
06c4 00db | | Load_Top At_Offset_3
06c5 00db | | Load_Top At_Offset_3
06c6 00e0 | | Load_Encached Standard_Cache
06c7 181b | | Execute Package,Field_Execute,Field_Number 0x1b
06c8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
06c9 00da | | Load_Top At_Offset_2
06ca 00e0 | | Load_Encached Standard_Cache
06cb 181c | | Execute Package,Field_Execute,Field_Number 0x1c
06cc 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
06cd 0000 0000 | | .XXX[0x3]
06cf 0000 | |
06d0 ; --------------------------------------------------------------------------------------
06d0 ; SUBPROGRAM
06d0 ; --------------------------------------------------------------------------------------
06d0 06d3 | | .CONST 0x06d3 ; Address of begin
06d1 0004 | | .CONST 0x0004 ; Address of exception handler
06d2 0001 | | .CONST 0x0001 ; Number of locals
06d3 BODY_06d0:
06d3 INIT_06d0:
06d3 4603 |F | Jump_Case 0x4 ; Debug Table 0x13 = .DEBUG 0x06d3,0x17ae,0x1005,0x0000,0x0033,0x73f4,0x0000,0x00ff
06d4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
06d5 7802 |x | Jump 0x6d8 ; case 0x1
06d6 7805 |x | Jump 0x6dc ; case 0x2
06d7 7809 |x | Jump 0x6e1 ; case 0x3
06d8 00da | | Load_Top At_Offset_2
06d9 0091 0fe2 | | Action Push_String_Extended_Indexed,0xfe2 ; "SCRATCH"
06db 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
06dc 00db | | Load_Top At_Offset_3
06dd 00db | | Load_Top At_Offset_3
06de 00e0 | | Load_Encached Standard_Cache
06df 181b | | Execute Package,Field_Execute,Field_Number 0x1b
06e0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
06e1 00da | | Load_Top At_Offset_2
06e2 00e0 | | Load_Encached Standard_Cache
06e3 181c | | Execute Package,Field_Execute,Field_Number 0x1c
06e4 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
06e5 0000 0000 | | .XXX[0x3]
06e7 0000 | |
06e8 ; --------------------------------------------------------------------------------------
06e8 ; SUBPROGRAM
06e8 ; --------------------------------------------------------------------------------------
06e8 06eb | | .CONST 0x06eb ; Address of begin
06e9 0004 | | .CONST 0x0004 ; Address of exception handler
06ea 0001 | | .CONST 0x0001 ; Number of locals
06eb BODY_06e8:
06eb INIT_06e8:
06eb 4608 |F | Jump_Case 0x9 ; Debug Table 0x14 = .DEBUG 0x06eb,0x17b0,0x1005,0x0000,0x0033,0x73f4,0x0000,0x0151
06ec 7808 |x | Jump 0x6f5 ; case 0x0
06ed 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
06ee 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
06ef 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
06f0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
06f1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
06f2 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
06f3 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7
06f4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8
06f5 4800 |H | Short_Literal 0x0
06f6 00db | | Load_Top At_Offset_3
06f7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
06f8 4800 |H | Short_Literal 0x0
06f9 00db | | Load_Top At_Offset_3
06fa 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
06fb 4800 |H | Short_Literal 0x0
06fc 00db | | Load_Top At_Offset_3
06fd 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
06fe 00da | | Load_Top At_Offset_2
06ff 3408 |4 | Execute Record,Field_Reference,Field_Number 0x8
0700 0125 | % | Execute Any,Set_Constraint
0701 00da | | Load_Top At_Offset_2
0702 3408 |4 | Execute Record,Field_Reference,Field_Number 0x8
0703 1c00 | | Execute_Immediate Run_Utility,0x0
0704 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0705 0000 0000 | | .XXX[0x3]
0707 0000 | |
0708 ; --------------------------------------------------------------------------------------
0708 ; SUBPROGRAM
0708 ; --------------------------------------------------------------------------------------
0708 070b | | .CONST 0x070b ; Address of begin
0709 0004 | | .CONST 0x0004 ; Address of exception handler
070a 0001 | | .CONST 0x0001 ; Number of locals
070b BODY_0708:
070b INIT_0708:
070b 0092 1002 | | Action Push_String_Extended,0x1002 ; "Volume_Id="
; Debug Table 0x15 = .DEBUG 0x070b,0x17b2,0x1001,0x0000,0x0033,0x73f4,0x0000,0x020b
; Debug Table 0x15.0x0 = 0x70b,0x1
070d 00db | | Load_Top At_Offset_3
070e 01cc | | Execute Vector,Catenate
070f 0092 1003 | | Action Push_String_Extended,0x1003 ; "Tape_Unloaded"
0711 4800 |H | Short_Literal 0x0
0712 0092 1004 | | Action Push_String_Extended,0x1004 ; "Tape_Handling"
0714 e00b | | Load 0x0,0xb
0715 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0716 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0717 0000 | | .XXX[0x1]
0718 ; --------------------------------------------------------------------------------------
0718 ; SUBPROGRAM
0718 ; --------------------------------------------------------------------------------------
0718 071b | | .CONST 0x071b ; Address of begin
0719 0004 | | .CONST 0x0004 ; Address of exception handler
071a 0001 | | .CONST 0x0001 ; Number of locals
071b BODY_0718:
071b INIT_0718:
071b 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x16 = .DEBUG 0x071b,0x17b6,0x1001,0x0000,0x0033,0x73f4,0x0000,0x0226
; Debug Table 0x16.0x0 = 0x71b,0x1
071c 0092 1005 | | Action Push_String_Extended,0x1005 ; "Mount_Request_Issued"
071e 4800 |H | Short_Literal 0x0
071f 0092 1004 | | Action Push_String_Extended,0x1004 ; "Tape_Handling"
0721 e00b | | Load 0x0,0xb
0722 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0723 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0724 0000 0000 | | .BLANK 0000[0x4]
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 ; Debug Table 0x17 = .DEBUG 0x072b,0x17ba,0x1001,0x0000,0x0033,0x73f4,0x0000,0x0239
; Debug Table 0x17.0x0 = 0x72b,0x1
072c e009 | | Load 0x0,0x9
072d 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
072e 680f |h | Jump_Zero 0x73e
072f 0092 1002 | | Action Push_String_Extended,0x1002 ; "Volume_Id="
; Debug Table 0x17.0x1 = 0x72f,0x2
0731 00db | | Load_Top At_Offset_3
0732 01cc | | Execute Vector,Catenate
0733 0092 1006 | | Action Push_String_Extended,0x1006 ; ",Type_Of_Drive=8mm"
0735 01cc | | Execute Vector,Catenate
0736 0092 1007 | | Action Push_String_Extended,0x1007 ; "Tape_Mounted"
0738 4800 |H | Short_Literal 0x0
0739 0092 1004 | | Action Push_String_Extended,0x1004 ; "Tape_Handling"
073b e00b | | Load 0x0,0xb
073c 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
073d 4504 |E | Exit_Suprogram New_Top_Offset 0x4
073e 0092 1002 | | Action Push_String_Extended,0x1002 ; "Volume_Id="
; Debug Table 0x17.0x2 = 0x73e,0x3
0740 00db | | Load_Top At_Offset_3
0741 01cc | | Execute Vector,Catenate
0742 0092 1008 | | Action Push_String_Extended,0x1008 ; ",Type_Of_Drive=9Track,Density="
0744 01cc | | Execute Vector,Catenate
0745 00dd | | Load_Top At_Offset_5
0746 e23b | ; | Load 0x1,0x3b
0747 025e | ^ | Execute Discrete,Convert
0748 1c01 | | Execute_Immediate Run_Utility,0x1
0749 01cc | | Execute Vector,Catenate
074a 0092 1007 | | Action Push_String_Extended,0x1007 ; "Tape_Mounted"
074c 4800 |H | Short_Literal 0x0
074d 0092 1004 | | Action Push_String_Extended,0x1004 ; "Tape_Handling"
074f e00b | | Load 0x0,0xb
0750 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0751 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0752 0000 0000 | | .BLANK 0000[0x6]
0758 ; --------------------------------------------------------------------------------------
0758 ; SUBPROGRAM
0758 ; --------------------------------------------------------------------------------------
0758 075b | [ | .CONST 0x075b ; Address of begin
0759 0004 | | .CONST 0x0004 ; Address of exception handler
075a 0001 | | .CONST 0x0001 ; Number of locals
075b BODY_0758:
075b INIT_0758:
075b 00da | | Load_Top At_Offset_2 ; Debug Table 0x18 = .DEBUG 0x075b,0x17c2,0x1002,0x0000,0x0033,0x73f4,0x0000,0x0288
; Debug Table 0x18.0x0 = 0x75b,0x1
075c 00d8 | | Load_Top At_Offset_0
075d e006 | | Load 0x0,0x6
075e 1b17 | | Execute Package,Field_Read,Field_Number 0x17
075f 0260 | ` | Execute Discrete,In_Type
0760 7002 |p | Jump_Nonzero 0x763
0761 48e0 |H | Short_Literal 0xe0
0762 0257 | W | Execute Discrete,Raise
0763 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0764 0000 0000 | | .BLANK 0000[0x4]
0768 ; --------------------------------------------------------------------------------------
0768 ; SUBPROGRAM
0768 ; --------------------------------------------------------------------------------------
0768 076f | o | .CONST 0x076f ; Address of begin
0769 0004 | | .CONST 0x0004 ; Address of exception handler
076a 0002 | | .CONST 0x0002 ; Number of locals
076b INIT_0768:
076b 00da | | Load_Top At_Offset_2 ; Debug Table 0x19 = .DEBUG 0x076b,0x17c6,0x1002,0x0000,0x0033,0x73f4,0x0000,0x02a3
; Debug Table 0x19.0x0 = 0x76b,0xffff
076c 01dc | | Execute Vector,Last
076d 00e2 | | Load_Encached Integer_Cache
076e 03f1 | | Declare_Variable Discrete,With_Value
076f BODY_0768:
076f 00cf | | Action Mark_Auxiliary ; Debug Table 0x19.0x1 = 0x76f,0xfffe
0770 7805 |x | Jump 0x776
0771 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x19.0x2 = 0x771,0x2
0772 0aff | | Execute_Immediate Plus,-0x1
0773 0248 | H | Execute Discrete,Check_In_Integer
0774 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0775 00c9 | | Action Pop_Auxiliary_Loop
0776 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x19.0x3 = 0x776,0x1
0777 00dd | | Load_Top At_Offset_5
0778 01dd | | Execute Vector,First
0779 027b | { | Execute Discrete,Greater_Equal
077a 6805 |h | Jump_Zero 0x780
077b 00d9 | | Load_Top At_Offset_1
077c 00dd | | Load_Top At_Offset_5
077d 01d7 | | Execute Vector,Field_Read
077e 0f20 | | Execute_Immediate Equal,0x20
077f 77f1 |w | Jump_Nonzero 0x771
0780 00ce | | Action Pop_Auxiliary
0781 00db | | Load_Top At_Offset_3 ; Debug Table 0x19.0x4 = 0x781,0x3
0782 01dd | | Execute Vector,First
0783 00d9 | | Load_Top At_Offset_1
0784 00dd | | Load_Top At_Offset_5
0785 01cf | | Execute Vector,Slice_Read
0786 e00a | | Load 0x0,0xa
0787 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0788 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0789 0000 0000 | | .BLANK 0000[0x7]
0790 ; --------------------------------------------------------------------------------------
0790 ; SUBPROGRAM
0790 ; --------------------------------------------------------------------------------------
0790 0797 | | .CONST 0x0797 ; Address of begin
0791 0004 | | .CONST 0x0004 ; Address of exception handler
0792 0002 | | .CONST 0x0002 ; Number of locals
0793 INIT_0790:
0793 00da | | Load_Top At_Offset_2 ; Debug Table 0x1a = .DEBUG 0x0793,0x17d2,0x1002,0x0000,0x0033,0x73f4,0x0000,0x02ea
; Debug Table 0x1a.0x0 = 0x793,0xffff
0794 01dc | | Execute Vector,Last
0795 00e2 | | Load_Encached Integer_Cache
0796 03f1 | | Declare_Variable Discrete,With_Value
0797 BODY_0790:
0797 00cf | | Action Mark_Auxiliary
0798 7805 |x | Jump 0x79e
0799 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x1a.0x1 = 0x799,0x2
079a 0aff | | Execute_Immediate Plus,-0x1
079b 0248 | H | Execute Discrete,Check_In_Integer
079c 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
079d 00c9 | | Action Pop_Auxiliary_Loop
079e 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x1a.0x2 = 0x79e,0x1
079f 00dd | | Load_Top At_Offset_5
07a0 01dd | | Execute Vector,First
07a1 027b | { | Execute Discrete,Greater_Equal
07a2 6805 |h | Jump_Zero 0x7a8
07a3 00d9 | | Load_Top At_Offset_1
07a4 00dd | | Load_Top At_Offset_5
07a5 01d7 | | Execute Vector,Field_Read
07a6 0f20 | | Execute_Immediate Equal,0x20
07a7 77f1 |w | Jump_Nonzero 0x799
07a8 00ce | | Action Pop_Auxiliary
07a9 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1a.0x3 = 0x7a9,0x3
07aa 00dd | | Load_Top At_Offset_5
07ab 027d | } | Execute Discrete,Greater
07ac 6802 |h | Jump_Zero 0x7af
07ad 00dc | | Load_Top At_Offset_4 ; Debug Table 0x1a.0x4 = 0x7ad,0x4
07ae 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
07af 00db | | Load_Top At_Offset_3 ; Debug Table 0x1a.0x5 = 0x7af,0x5
07b0 01dd | | Execute Vector,First
07b1 00d9 | | Load_Top At_Offset_1
07b2 00dd | | Load_Top At_Offset_5
07b3 01cf | | Execute Vector,Slice_Read
07b4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
07b5 0000 0000 | | .XXX[0x3]
07b7 0000 | |
07b8 ; --------------------------------------------------------------------------------------
07b8 ; SUBPROGRAM
07b8 ; --------------------------------------------------------------------------------------
07b8 07bb | | .CONST 0x07bb ; Address of begin
07b9 0004 | | .CONST 0x0004 ; Address of exception handler
07ba 0001 | | .CONST 0x0001 ; Number of locals
07bb BODY_07b8:
07bb INIT_07b8:
07bb 00da | | Load_Top At_Offset_2 ; Debug Table 0x1b = .DEBUG 0x07bb,0x17e0,0x1001,0x0000,0x0033,0x73f4,0x0000,0x0334
; Debug Table 0x1b.0x0 = 0x7bb,0x1
07bc 6804 |h | Jump_Zero 0x7c1
07bd 00da | | Load_Top At_Offset_2
07be 0217 | | Execute Heap_Access,All_Reference
07bf 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
07c0 7003 |p | Jump_Nonzero 0x7c4
07c1 e006 | | Load 0x0,0x6 ; Debug Table 0x1b.0x1 = 0x7c1,0x2
07c2 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
07c3 0257 | W | Execute Discrete,Raise
07c4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
07c5 0000 0000 | | .XXX[0x3]
07c7 0000 | |
07c8 ; --------------------------------------------------------------------------------------
07c8 ; SUBPROGRAM
07c8 ; --------------------------------------------------------------------------------------
07c8 07cb | | .CONST 0x07cb ; Address of begin
07c9 0004 | | .CONST 0x0004 ; Address of exception handler
07ca 0001 | | .CONST 0x0001 ; Number of locals
07cb BODY_07c8:
07cb INIT_07c8:
07cb 00da | | Load_Top At_Offset_2 ; Debug Table 0x1c = .DEBUG 0x07cb,0x17e6,0x1001,0x0000,0x0033,0x73f4,0x0000,0x0354
; Debug Table 0x1c.0x0 = 0x7cb,0x1
07cc 0120 | | Execute Any,Is_Value
07cd 6803 |h | Jump_Zero 0x7d1
07ce e003 | | Load 0x0,0x3
07cf 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07d0 7801 |x | Jump 0x7d2
07d1 00da | | Load_Top At_Offset_2
07d2 e00c | | Load 0x0,0xc
07d3 180e | | Execute Package,Field_Execute,Field_Number 0xe
07d4 4896 |H | Short_Literal 0x96
07d5 4846 |HF | Short_Literal 0x46
07d6 8214 | | Call 0x1,0x14
07d7 8262 | b | Call 0x1,0x62
07d8 e003 | | Load 0x0,0x3
07d9 1818 | | Execute Package,Field_Execute,Field_Number 0x18
07da c5ff | | Store 0x2,-0x1
07db 4501 |E | Exit_Suprogram New_Top_Offset 0x1
07dc 0000 0000 | | .BLANK 0000[0x4]
07e0 ; --------------------------------------------------------------------------------------
07e0 ; SUBPROGRAM
07e0 ; --------------------------------------------------------------------------------------
07e0 07ed | | .CONST 0x07ed ; Address of begin
07e1 0004 | | .CONST 0x0004 ; Address of exception handler
07e2 0005 | | .CONST 0x0005 ; Number of locals
07e3 INIT_07e0:
07e3 e005 | | Load 0x0,0x5 ; Debug Table 0x1d = .DEBUG 0x07e3,0x17ea,0x1001,0x0000,0x0033,0x73f4,0x0000,0x03ed
; Debug Table 0x1d.0x0 = 0x7e3,0xffff
07e4 1b14 | | Execute Package,Field_Read,Field_Number 0x14
07e5 0322 | " | Declare_Variable Record
07e6 e005 | | Load 0x0,0x5 ; Debug Table 0x1d.0x1 = 0x7e6,0xfffe
07e7 1b10 | | Execute Package,Field_Read,Field_Number 0x10
07e8 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x1d.0x2 = 0x7e8,0xfffd
07e9 e00d | | Load 0x0,0xd ; Debug Table 0x1d.0x3 = 0x7e9,0xfffc
07ea 1b15 | | Execute Package,Field_Read,Field_Number 0x15
07eb 1b13 | | Execute Package,Field_Read,Field_Number 0x13
07ec 0322 | " | Declare_Variable Record
07ed BODY_07e0:
07ed 00db | | Load_Top At_Offset_3 ; Debug Table 0x1d.0x4 = 0x7ed,0x1
07ee 4800 |H | Short_Literal 0x0
07ef e5ff | | Load 0x2,-0x1
07f0 e20f | | Load 0x1,0xf
07f1 0119 | | Execute Any,Check_In_Formal_Type
07f2 8218 | | Call 0x1,0x18
07f3 00d1 | | Pop_Control Pop_Count_1
07f4 00db | | Load_Top At_Offset_3 ; Debug Table 0x1d.0x5 = 0x7f4,0x2
07f5 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
07f6 460e |F | Jump_Case 0xf
07f7 7819 |x | Jump 0x811 ; case 0x0
07f8 7816 |x | Jump 0x80f ; case 0x1
07f9 780c |x | Jump 0x806 ; case 0x2
07fa 7814 |x | Jump 0x80f ; case 0x3
07fb 7813 |x | Jump 0x80f ; case 0x4
07fc 7812 |x | Jump 0x80f ; case 0x5
07fd 7811 |x | Jump 0x80f ; case 0x6
07fe 7810 |x | Jump 0x80f ; case 0x7
07ff 780f |x | Jump 0x80f ; case 0x8
0800 7808 |x | Jump 0x809 ; case 0x9
0801 780d |x | Jump 0x80f ; case 0xa
0802 7806 |x | Jump 0x809 ; case 0xb
0803 7808 |x | Jump 0x80c ; case 0xc
0804 780a |x | Jump 0x80f ; case 0xd
0805 7809 |x | Jump 0x80f ; case 0xe
0806 4802 |H | Short_Literal 0x2 ; Debug Table 0x1d.0x6 = 0x806,0x4
0807 a5fe | | Store_Unchecked 0x2,-0x2
0808 7808 |x | Jump 0x811
0809 4803 |H | Short_Literal 0x3 ; Debug Table 0x1d.0x7 = 0x809,0x5
080a a5fe | | Store_Unchecked 0x2,-0x2
080b 7805 |x | Jump 0x811
080c 4801 |H | Short_Literal 0x1 ; Debug Table 0x1d.0x8 = 0x80c,0x6
080d a5fe | | Store_Unchecked 0x2,-0x2
080e 7802 |x | Jump 0x811
080f 4887 |H | Short_Literal 0x87 ; Debug Table 0x1d.0x9 = 0x80f,0x7
0810 0257 | W | Execute Discrete,Raise
0811 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1d.0xa = 0x811,0x8
; Debug Table 0x1d.0xb = 0x811,0x9
0812 00e1 | | Load_Encached Boolean_Cache
0813 e5ff | | Load 0x2,-0x1
0814 e20f | | Load 0x1,0xf
0815 0119 | | Execute Any,Check_In_Formal_Type
0816 8217 | | Call 0x1,0x17
0817 005b | [ | Store_Top Discrete,At_Offset_3
0818 00d1 | | Pop_Control Pop_Count_1
0819 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x1d.0xc = 0x819,0xa
081a 7002 |p | Jump_Nonzero 0x81d
081b 4887 |H | Short_Literal 0x87
081c 0257 | W | Execute Discrete,Raise
081d 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1d.0xd = 0x81d,0xb
081e 3c1f |< | Execute Record,Field_Read,Field_Number 0x1f
081f 6803 |h | Jump_Zero 0x823
0820 4801 |H | Short_Literal 0x1 ; Debug Table 0x1d.0xe = 0x820,0xc
0821 a5fd | | Store_Unchecked 0x2,-0x3
0822 7802 |x | Jump 0x825
0823 4802 |H | Short_Literal 0x2 ; Debug Table 0x1d.0xf = 0x823,0xd
0824 a5fd | | Store_Unchecked 0x2,-0x3
0825 e005 | | Load 0x0,0x5 ; Debug Table 0x1d.0x10 = 0x825,0xe
0826 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0827 e5ff | | Load 0x2,-0x1
0828 e20f | | Load 0x1,0xf
0829 0119 | | Execute Any,Check_In_Formal_Type
082a 8216 | | Call 0x1,0x16
082b 005b | [ | Store_Top Discrete,At_Offset_3
082c 00da | | Load_Top At_Offset_2 ; Debug Table 0x1d.0x11 = 0x82c,0xf
082d 6802 |h | Jump_Zero 0x830
082e 4887 |H | Short_Literal 0x87
082f 0257 | W | Execute Discrete,Raise
0830 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0831 0000 0000 | | .BLANK 0000[0x7]
0838 ; --------------------------------------------------------------------------------------
0838 ; SUBPROGRAM
0838 ; --------------------------------------------------------------------------------------
0838 0840 | @ | .CONST 0x0840 ; Address of begin
0839 0004 | | .CONST 0x0004 ; Address of exception handler
083a 0003 | | .CONST 0x0003 ; Number of locals
083b INIT_0838:
083b e005 | | Load 0x0,0x5 ; Debug Table 0x1e = .DEBUG 0x083b,0x1810,0x1001,0x0000,0x0033,0x73f4,0x0000,0x047f
; Debug Table 0x1e.0x0 = 0x83b,0xffff
083c 1b14 | | Execute Package,Field_Read,Field_Number 0x14
083d 0322 | " | Declare_Variable Record
083e e005 | | Load 0x0,0x5 ; Debug Table 0x1e.0x1 = 0x83e,0xfffe
083f 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0840 BODY_0838:
0840 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x1e.0x2 = 0x840,0x1
0841 4800 |H | Short_Literal 0x0
0842 00de | | Load_Top At_Offset_6
0843 e20f | | Load 0x1,0xf
0844 0119 | | Execute Any,Check_In_Formal_Type
0845 8218 | | Call 0x1,0x18
0846 00d1 | | Pop_Control Pop_Count_1
0847 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x1e.0x3 = 0x847,0x2
0848 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0849 460e |F | Jump_Case 0xf
084a 780e |x | Jump 0x859 ; case 0x0
084b 782a |x* | Jump 0x876 ; case 0x1
084c 780f |x | Jump 0x85c ; case 0x2
084d 7828 |x( | Jump 0x876 ; case 0x3
084e 7827 |x' | Jump 0x876 ; case 0x4
084f 7826 |x& | Jump 0x876 ; case 0x5
0850 7825 |x% | Jump 0x876 ; case 0x6
0851 7824 |x$ | Jump 0x876 ; case 0x7
0852 7823 |x# | Jump 0x876 ; case 0x8
0853 7822 |x" | Jump 0x876 ; case 0x9
0854 7821 |x! | Jump 0x876 ; case 0xa
0855 7820 |x | Jump 0x876 ; case 0xb
0856 7812 |x | Jump 0x869 ; case 0xc
0857 781e |x | Jump 0x876 ; case 0xd
0858 7800 |x | Jump 0x859 ; case 0xe
0859 4800 |H | Short_Literal 0x0 ; Debug Table 0x1e.0x4 = 0x859,0x3
085a 0056 | V | Store_Top_Unchecked Discrete,At_Offset_6
085b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
085c 4802 |H | Short_Literal 0x2 ; Debug Table 0x1e.0x5 = 0x85c,0x4
085d 0056 | V | Store_Top_Unchecked Discrete,At_Offset_6
085e e005 | | Load 0x0,0x5 ; Debug Table 0x1e.0x6 = 0x85e,0x5
085f 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0860 00dd | | Load_Top At_Offset_5
0861 e20f | | Load 0x1,0xf
0862 0119 | | Execute Any,Check_In_Formal_Type
0863 8216 | | Call 0x1,0x16
0864 0059 | Y | Store_Top Discrete,At_Offset_1
0865 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1e.0x7 = 0x865,0x6
0866 6811 |h | Jump_Zero 0x878
0867 4887 |H | Short_Literal 0x87
0868 0257 | W | Execute Discrete,Raise
0869 4801 |H | Short_Literal 0x1 ; Debug Table 0x1e.0x8 = 0x869,0x7
086a 0056 | V | Store_Top_Unchecked Discrete,At_Offset_6
086b e005 | | Load 0x0,0x5 ; Debug Table 0x1e.0x9 = 0x86b,0x8
086c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
086d 00dd | | Load_Top At_Offset_5
086e e20f | | Load 0x1,0xf
086f 0119 | | Execute Any,Check_In_Formal_Type
0870 8216 | | Call 0x1,0x16
0871 0059 | Y | Store_Top Discrete,At_Offset_1
0872 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1e.0xa = 0x872,0x9
0873 6804 |h | Jump_Zero 0x878
0874 4887 |H | Short_Literal 0x87
0875 0257 | W | Execute Discrete,Raise
0876 4887 |H | Short_Literal 0x87 ; Debug Table 0x1e.0xb = 0x876,0xa
0877 0257 | W | Execute Discrete,Raise
0878 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0x1e.0xc = 0x878,0xb
0879 0000 0000 | | .BLANK 0000[0x7]
0880 ; --------------------------------------------------------------------------------------
0880 ; SUBPROGRAM
0880 ; --------------------------------------------------------------------------------------
0880 0897 | | .CONST 0x0897 ; Address of begin
0881 0004 | | .CONST 0x0004 ; Address of exception handler
0882 0009 | | .CONST 0x0009 ; Number of locals
0883 INIT_0880:
0883 e20f | | Load 0x1,0xf ; Debug Table 0x1f = .DEBUG 0x0883,0x182c,0x1001,0x0000,0x0033,0x73f4,0x0000,0x04ef
; Debug Table 0x1f.0x0 = 0x883,0xffff
0884 02c7 | | Declare_Variable Any
0885 00d8 | | Load_Top At_Offset_0
0886 1c00 | | Execute_Immediate Run_Utility,0x0
0887 e005 | | Load 0x0,0x5 ; Debug Table 0x1f.0x1 = 0x887,0xfffe
0888 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0889 e005 | | Load 0x0,0x5 ; Debug Table 0x1f.0x2 = 0x889,0xfffd
088a 1b14 | | Execute Package,Field_Read,Field_Number 0x14
088b 0322 | " | Declare_Variable Record
088c e005 | | Load 0x0,0x5 ; Debug Table 0x1f.0x3 = 0x88c,0xfffc
088d 1b10 | | Execute Package,Field_Read,Field_Number 0x10
088e e00e | | Load 0x0,0xe ; Debug Table 0x1f.0x4 = 0x88e,0xfffb
088f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0890 0337 | 7 | Declare_Variable Array
0891 e23b | ; | Load 0x1,0x3b ; Debug Table 0x1f.0x5 = 0x891,0xfffa
0892 e00d | | Load 0x0,0xd ; Debug Table 0x1f.0x6 = 0x892,0xfff9
0893 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0894 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0895 0322 | " | Declare_Variable Record
0896 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x1f.0x7 = 0x896,0xfff8
0897 BODY_0880:
0897 4800 |H | Short_Literal 0x0 ; Debug Table 0x1f.0x8 = 0x897,0x1
0898 a5fd | | Store_Unchecked 0x2,-0x3
0899 e006 | | Load 0x0,0x6 ; Debug Table 0x1f.0x9 = 0x899,0x2
089a 1b10 | | Execute Package,Field_Read,Field_Number 0x10
089b e5fc | | Load 0x2,-0x4
089c 01d4 | | Execute Vector,Structure_Write
089d e006 | | Load 0x0,0x6 ; Debug Table 0x1f.0xa = 0x89d,0x3
089e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
089f e5fb | | Load 0x2,-0x5
08a0 01d4 | | Execute Vector,Structure_Write
08a1 4801 |H | Short_Literal 0x1 ; Debug Table 0x1f.0xb = 0x8a1,0x4
08a2 a5fa | | Store_Unchecked 0x2,-0x6
08a3 4801 |H | Short_Literal 0x1 ; Debug Table 0x1f.0xc = 0x8a3,0x5
08a4 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
08a5 4801 |H | Short_Literal 0x1 ; Debug Table 0x1f.0xd = 0x8a5,0x6
08a6 a5f9 | | Store_Unchecked 0x2,-0x7
08a7 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x1f.0xe = 0x8a7,0x7
08a8 e005 | | Load 0x0,0x5
08a9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
08aa e402 | | Load 0x2,0x2
08ab 0120 | | Execute Any,Is_Value
08ac 6802 |h | Jump_Zero 0x8af
08ad e20f | | Load 0x1,0xf
08ae 7803 |x | Jump 0x8b2
08af e402 | | Load 0x2,0x2
08b0 e20f | | Load 0x1,0xf
08b1 0119 | | Execute Any,Check_In_Formal_Type
08b2 e5ff | | Load 0x2,-0x1
08b3 8215 | | Call 0x1,0x15
08b4 c402 | | Store 0x2,0x2
08b5 c403 | | Store 0x2,0x3
08b6 c5fe | | Store 0x2,-0x2
08b7 4800 |H | Short_Literal 0x0 ; Debug Table 0x1f.0xf = 0x8b7,0x8
08b8 a5f8 | | Store_Unchecked 0x2,-0x8
08b9 00de | | Load_Top At_Offset_6 ; Debug Table 0x1f.0x10 = 0x8b9,0x9
08ba 4604 |F | Jump_Case 0x5
08bb 7804 |x | Jump 0x8c0 ; case 0x0
08bc 7906 |y | Jump 0x9c3 ; case 0x1
08bd 7907 |y | Jump 0x9c5 ; case 0x2
08be 790c |y | Jump 0x9cb ; case 0x3
08bf 7908 |y | Jump 0x9c8 ; case 0x4
08c0 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x1f.0x11 = 0x8c0,0xa
08c1 00e1 | | Load_Encached Boolean_Cache
08c2 e402 | | Load 0x2,0x2
08c3 e20f | | Load 0x1,0xf
08c4 0119 | | Execute Any,Check_In_Formal_Type
08c5 8217 | | Call 0x1,0x17
08c6 005a | Z | Store_Top Discrete,At_Offset_2
08c7 00d1 | | Pop_Control Pop_Count_1
08c8 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1f.0x12 = 0x8c8,0xb
08c9 7002 |p | Jump_Nonzero 0x8cc
08ca 4887 |H | Short_Literal 0x87
08cb 0257 | W | Execute Discrete,Raise
08cc 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x1f.0x13 = 0x8cc,0xc
08cd 3c1f |< | Execute Record,Field_Read,Field_Number 0x1f
08ce 6803 |h | Jump_Zero 0x8d2
08cf 4801 |H | Short_Literal 0x1 ; Debug Table 0x1f.0x14 = 0x8cf,0xd
08d0 a5f9 | | Store_Unchecked 0x2,-0x7
08d1 7802 |x | Jump 0x8d4
08d2 4802 |H | Short_Literal 0x2 ; Debug Table 0x1f.0x15 = 0x8d2,0xe
08d3 a5f9 | | Store_Unchecked 0x2,-0x7
08d4 e237 | 7 | Load 0x1,0x37 ; Debug Table 0x1f.0x16 = 0x8d4,0xf
08d5 e402 | | Load 0x2,0x2
08d6 e20f | | Load 0x1,0xf
08d7 0119 | | Execute Any,Check_In_Formal_Type
08d8 8266 | f | Call 0x1,0x66
08d9 c5f8 | | Store 0x2,-0x8
08da e5f8 | | Load 0x2,-0x8 ; Debug Table 0x1f.0x17 = 0x8da,0x10
08db 6801 |h | Jump_Zero 0x8dd
08dc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0x1f.0x18 = 0x8dc,0x11
08dd 00db | | Load_Top At_Offset_3 ; Debug Table 0x1f.0x19 = 0x8dd,0x12
08de 00de | | Load_Top At_Offset_6
08df e402 | | Load 0x2,0x2
08e0 e20f | | Load 0x1,0xf
08e1 0119 | | Execute Any,Check_In_Formal_Type
08e2 821a | | Call 0x1,0x1a
08e3 00d2 | | Pop_Control Pop_Count_2
08e4 00dd | | Load_Top At_Offset_5 ; Debug Table 0x1f.0x1a = 0x8e4,0x13
08e5 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
08e6 460e |F | Jump_Case 0xf
08e7 780e |x | Jump 0x8f6 ; case 0x0
08e8 78d3 |x | Jump 0x9bc ; case 0x1
08e9 78b6 |x | Jump 0x9a0 ; case 0x2
08ea 78d1 |x | Jump 0x9bc ; case 0x3
08eb 78d0 |x | Jump 0x9bc ; case 0x4
08ec 789f |x | Jump 0x98c ; case 0x5
08ed 7808 |x | Jump 0x8f6 ; case 0x6
08ee 789d |x | Jump 0x98c ; case 0x7
08ef 78cc |x | Jump 0x9bc ; case 0x8
08f0 78a5 |x | Jump 0x996 ; case 0x9
08f1 78a4 |x | Jump 0x996 ; case 0xa
08f2 78a3 |x | Jump 0x996 ; case 0xb
08f3 78ba |x | Jump 0x9ae ; case 0xc
08f4 78c7 |x | Jump 0x9bc ; case 0xd
08f5 78c6 |x | Jump 0x9bc ; case 0xe
08f6 4801 |H | Short_Literal 0x1 ; Debug Table 0x1f.0x1b = 0x8f6,0x14
08f7 4803 |H | Short_Literal 0x3
08f8 00dd | | Load_Top At_Offset_5
08f9 01cf | | Execute Vector,Slice_Read
08fa e00e | | Load 0x0,0xe
08fb 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
08fc 01df | | Execute Vector,Equal
08fd 0f00 | | Execute_Immediate Equal,0x0
08fe 4804 |H | Short_Literal 0x4
08ff 4804 |H | Short_Literal 0x4
0900 00de | | Load_Top At_Offset_6
0901 01cf | | Execute Vector,Slice_Read
0902 4831 |H1 | Short_Literal 0x31
0903 e00a | | Load 0x0,0xa
0904 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0905 01df | | Execute Vector,Equal
0906 0f00 | | Execute_Immediate Equal,0x0
0907 4834 |H4 | Short_Literal 0x34
0908 484f |HO | Short_Literal 0x4f
0909 e406 | | Load 0x2,0x6
090a 01cf | | Execute Vector,Slice_Read
090b e00e | | Load 0x0,0xe
090c 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
090d 01df | | Execute Vector,Equal
090e 0f00 | | Execute_Immediate Equal,0x0
090f 4850 |HP | Short_Literal 0x50
0910 4850 |HP | Short_Literal 0x50
0911 e406 | | Load 0x2,0x6
0912 01cf | | Execute Vector,Slice_Read
0913 e00e | | Load 0x0,0xe
0914 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
0915 01df | | Execute Vector,Equal
0916 0f00 | | Execute_Immediate Equal,0x0
0917 0278 | x | Execute Discrete,Or
0918 0278 | x | Execute Discrete,Or
0919 0278 | x | Execute Discrete,Or
091a 6803 |h | Jump_Zero 0x91e
091b 4801 |H | Short_Literal 0x1 ; Debug Table 0x1f.0x1c = 0x91b,0x15
091c a5fd | | Store_Unchecked 0x2,-0x3
091d 7866 |xf | Jump 0x984
091e 4805 |H | Short_Literal 0x5 ; Debug Table 0x1f.0x1d = 0x91e,0x16
091f 480a |H | Short_Literal 0xa
0920 00dd | | Load_Top At_Offset_5
0921 01cf | | Execute Vector,Slice_Read
0922 e5fc | | Load 0x2,-0x4
0923 01d4 | | Execute Vector,Structure_Write
0924 4826 |H& | Short_Literal 0x26 ; Debug Table 0x1f.0x1e = 0x924,0x17
0925 4833 |H3 | Short_Literal 0x33
0926 00dd | | Load_Top At_Offset_5
0927 01cf | | Execute Vector,Slice_Read
0928 480e |H | Short_Literal 0xe
0929 0092 0fe4 | | Action Push_String_Extended,0xfe4 ; "EMPTY"
092b e00a | | Load 0x0,0xa
092c 180d | | Execute Package,Field_Execute,Field_Number 0xd
092d 01df | | Execute Vector,Equal
092e 6803 |h | Jump_Zero 0x932
092f 4802 |H | Short_Literal 0x2 ; Debug Table 0x1f.0x1f = 0x92f,0x18
0930 a5fd | | Store_Unchecked 0x2,-0x3
0931 7852 |xR | Jump 0x984
0932 4826 |H& | Short_Literal 0x26 ; Debug Table 0x1f.0x20 = 0x932,0x19
0933 00dc | | Load_Top At_Offset_4
0934 01d7 | | Execute Vector,Field_Read
0935 704c |pL | Jump_Nonzero 0x982
0936 00db | | Load_Top At_Offset_3 ; Debug Table 0x1f.0x21 = 0x936,0x1a
0937 00de | | Load_Top At_Offset_6
0938 e402 | | Load 0x2,0x2
0939 e20f | | Load 0x1,0xf
093a 0119 | | Execute Any,Check_In_Formal_Type
093b 821a | | Call 0x1,0x1a
093c 00d2 | | Pop_Control Pop_Count_2
093d 00db | | Load_Top At_Offset_3 ; Debug Table 0x1f.0x22 = 0x93d,0x1b
093e 00de | | Load_Top At_Offset_6
093f e402 | | Load 0x2,0x2
0940 e20f | | Load 0x1,0xf
0941 0119 | | Execute Any,Check_In_Formal_Type
0942 821a | | Call 0x1,0x1a
0943 00d2 | | Pop_Control Pop_Count_2
0944 00dd | | Load_Top At_Offset_5 ; Debug Table 0x1f.0x23 = 0x944,0x1c
0945 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0946 460e |F | Jump_Case 0xf
0947 780e |x | Jump 0x956 ; case 0x0
0948 7837 |x7 | Jump 0x980 ; case 0x1
0949 7830 |x0 | Jump 0x97a ; case 0x2
094a 7835 |x5 | Jump 0x980 ; case 0x3
094b 7834 |x4 | Jump 0x980 ; case 0x4
094c 7827 |x' | Jump 0x974 ; case 0x5
094d 7808 |x | Jump 0x956 ; case 0x6
094e 7825 |x% | Jump 0x974 ; case 0x7
094f 7830 |x0 | Jump 0x980 ; case 0x8
0950 7826 |x& | Jump 0x977 ; case 0x9
0951 7825 |x% | Jump 0x977 ; case 0xa
0952 7824 |x$ | Jump 0x977 ; case 0xb
0953 7829 |x) | Jump 0x97d ; case 0xc
0954 782b |x+ | Jump 0x980 ; case 0xd
0955 782a |x* | Jump 0x980 ; case 0xe
0956 4801 |H | Short_Literal 0x1 ; Debug Table 0x1f.0x24 = 0x956,0x1d
0957 4803 |H | Short_Literal 0x3
0958 00dd | | Load_Top At_Offset_5
0959 01cf | | Execute Vector,Slice_Read
095a e00e | | Load 0x0,0xe
095b 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c
095c 01df | | Execute Vector,Equal
095d 4804 |H | Short_Literal 0x4
095e 4804 |H | Short_Literal 0x4
095f 00de | | Load_Top At_Offset_6
0960 01cf | | Execute Vector,Slice_Read
0961 4801 |H | Short_Literal 0x1
0962 4802 |H | Short_Literal 0x2
0963 e00a | | Load 0x0,0xa
0964 180e | | Execute Package,Field_Execute,Field_Number 0xe
0965 01df | | Execute Vector,Equal
0966 0279 | y | Execute Discrete,And
0967 6809 |h | Jump_Zero 0x971
0968 4805 |H | Short_Literal 0x5 ; Debug Table 0x1f.0x25 = 0x968,0x1e
0969 4850 |HP | Short_Literal 0x50
096a 00dd | | Load_Top At_Offset_5
096b 01cf | | Execute Vector,Slice_Read
096c e5fb | | Load 0x2,-0x5
096d 01d4 | | Execute Vector,Structure_Write
096e 4804 |H | Short_Literal 0x4 ; Debug Table 0x1f.0x26 = 0x96e,0x1f
096f a5fd | | Store_Unchecked 0x2,-0x3
0970 7813 |x | Jump 0x984
0971 4803 |H | Short_Literal 0x3 ; Debug Table 0x1f.0x27 = 0x971,0x20
0972 a5fd | | Store_Unchecked 0x2,-0x3
0973 7810 |x | Jump 0x984
0974 4801 |H | Short_Literal 0x1 ; Debug Table 0x1f.0x28 = 0x974,0x21
0975 a5fd | | Store_Unchecked 0x2,-0x3
0976 780d |x | Jump 0x984
0977 4800 |H | Short_Literal 0x0 ; Debug Table 0x1f.0x29 = 0x977,0x22
0978 a5fd | | Store_Unchecked 0x2,-0x3
0979 780a |x | Jump 0x984
097a 4802 |H | Short_Literal 0x2 ; Debug Table 0x1f.0x2a = 0x97a,0x23
097b a5f8 | | Store_Unchecked 0x2,-0x8
097c 7807 |x | Jump 0x984
097d 4801 |H | Short_Literal 0x1 ; Debug Table 0x1f.0x2b = 0x97d,0x24
097e a5f8 | | Store_Unchecked 0x2,-0x8
097f 7804 |x | Jump 0x984
0980 4887 |H | Short_Literal 0x87 ; Debug Table 0x1f.0x2c = 0x980,0x25
0981 0257 | W | Execute Discrete,Raise
0982 4803 |H | Short_Literal 0x3 ; Debug Table 0x1f.0x2d = 0x982,0x27
0983 a5fd | | Store_Unchecked 0x2,-0x3
0984 e23b | ; | Load 0x1,0x3b ; Debug Table 0x1f.0x2e = 0x984,0x28
0985 e5f8 | | Load 0x2,-0x8
0986 e402 | | Load 0x2,0x2
0987 8265 | e | Call 0x1,0x65
0988 c402 | | Store 0x2,0x2
0989 c5f8 | | Store 0x2,-0x8
098a 005b | [ | Store_Top Discrete,At_Offset_3
098b 7832 |x2 | Jump 0x9be
098c 4801 |H | Short_Literal 0x1 ; Debug Table 0x1f.0x2f = 0x98c,0x29
098d a5fd | | Store_Unchecked 0x2,-0x3
098e e23b | ; | Load 0x1,0x3b ; Debug Table 0x1f.0x30 = 0x98e,0x2a
098f e5f8 | | Load 0x2,-0x8
0990 e402 | | Load 0x2,0x2
0991 8265 | e | Call 0x1,0x65
0992 c402 | | Store 0x2,0x2
0993 c5f8 | | Store 0x2,-0x8
0994 005b | [ | Store_Top Discrete,At_Offset_3
0995 7828 |x( | Jump 0x9be
0996 4800 |H | Short_Literal 0x0 ; Debug Table 0x1f.0x31 = 0x996,0x2b
0997 a5fd | | Store_Unchecked 0x2,-0x3
0998 e23b | ; | Load 0x1,0x3b ; Debug Table 0x1f.0x32 = 0x998,0x2c
0999 e5f8 | | Load 0x2,-0x8
099a e402 | | Load 0x2,0x2
099b 8265 | e | Call 0x1,0x65
099c c402 | | Store 0x2,0x2
099d c5f8 | | Store 0x2,-0x8
099e 005b | [ | Store_Top Discrete,At_Offset_3
099f 781e |x | Jump 0x9be
09a0 e005 | | Load 0x0,0x5 ; Debug Table 0x1f.0x33 = 0x9a0,0x2d
09a1 1b10 | | Execute Package,Field_Read,Field_Number 0x10
09a2 e402 | | Load 0x2,0x2
09a3 e20f | | Load 0x1,0xf
09a4 0119 | | Execute Any,Check_In_Formal_Type
09a5 8216 | | Call 0x1,0x16
09a6 005d | ] | Store_Top Discrete,At_Offset_5
09a7 00dc | | Load_Top At_Offset_4 ; Debug Table 0x1f.0x34 = 0x9a7,0x2e
09a8 6802 |h | Jump_Zero 0x9ab
09a9 4887 |H | Short_Literal 0x87
09aa 0257 | W | Execute Discrete,Raise
09ab 4802 |H | Short_Literal 0x2 ; Debug Table 0x1f.0x35 = 0x9ab,0x2f
09ac a5f8 | | Store_Unchecked 0x2,-0x8
09ad 7810 |x | Jump 0x9be
09ae e005 | | Load 0x0,0x5 ; Debug Table 0x1f.0x36 = 0x9ae,0x30
09af 1b10 | | Execute Package,Field_Read,Field_Number 0x10
09b0 e402 | | Load 0x2,0x2
09b1 e20f | | Load 0x1,0xf
09b2 0119 | | Execute Any,Check_In_Formal_Type
09b3 8216 | | Call 0x1,0x16
09b4 005d | ] | Store_Top Discrete,At_Offset_5
09b5 00dc | | Load_Top At_Offset_4 ; Debug Table 0x1f.0x37 = 0x9b5,0x31
09b6 6802 |h | Jump_Zero 0x9b9
09b7 4887 |H | Short_Literal 0x87
09b8 0257 | W | Execute Discrete,Raise
09b9 4801 |H | Short_Literal 0x1 ; Debug Table 0x1f.0x38 = 0x9b9,0x32
09ba a5f8 | | Store_Unchecked 0x2,-0x8
09bb 7802 |x | Jump 0x9be
09bc 4887 |H | Short_Literal 0x87 ; Debug Table 0x1f.0x39 = 0x9bc,0x33
09bd 0257 | W | Execute Discrete,Raise
09be e5f9 | | Load 0x2,-0x7 ; Debug Table 0x1f.0x3a = 0x9be,0x34
; Debug Table 0x1f.0x3b = 0x9be,0x35
09bf 00db | | Load_Top At_Offset_3
09c0 027e | ~ | Execute Discrete,Not_Equal
09c1 a5fa | | Store_Unchecked 0x2,-0x6
09c2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
09c3 4887 |H | Short_Literal 0x87 ; Debug Table 0x1f.0x3c = 0x9c3,0x36
09c4 0257 | W | Execute Discrete,Raise
09c5 4801 |H | Short_Literal 0x1 ; Debug Table 0x1f.0x3d = 0x9c5,0x38
09c6 a5f8 | | Store_Unchecked 0x2,-0x8
09c7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
09c8 4802 |H | Short_Literal 0x2 ; Debug Table 0x1f.0x3e = 0x9c8,0x39
09c9 a5f8 | | Store_Unchecked 0x2,-0x8
09ca 4502 |E | Exit_Suprogram New_Top_Offset 0x2
09cb 4887 |H | Short_Literal 0x87 ; Debug Table 0x1f.0x3f = 0x9cb,0x3a
09cc 0257 | W | Execute Discrete,Raise
09cd 0000 0000 | | .XXX[0x3]
09cf 0000 | |
09d0 ; --------------------------------------------------------------------------------------
09d0 ; SUBPROGRAM
09d0 ; --------------------------------------------------------------------------------------
09d0 09d9 | | .CONST 0x09d9 ; Address of begin
09d1 0004 | | .CONST 0x0004 ; Address of exception handler
09d2 0002 | | .CONST 0x0002 ; Number of locals
09d3 INIT_09d0:
09d3 62c0 |b | Indirect_Literal Discrete,0xc94,{0x00000000, 0x00000400} ; Debug Table 0x20 = .DEBUG 0x09d3,0x18ae,0x1002,0x0000,0x0033,0x73f4,0x0000,0x0742
; Debug Table 0x20.0x0 = 0x9d3,0xffff
09d4 e233 | 3 | Load 0x1,0x33
09d5 1b14 | | Execute Package,Field_Read,Field_Number 0x14
09d6 1c08 | | Execute_Immediate Run_Utility,0x8
09d7 00d8 | | Load_Top At_Offset_0
09d8 1c00 | | Execute_Immediate Run_Utility,0x0
09d9 BODY_09d0:
09d9 e5fa | | Load 0x2,-0x6 ; Debug Table 0x20.0x1 = 0x9d9,0x1
09da e25a | Z | Load 0x1,0x5a
09db 0279 | y | Execute Discrete,And
09dc 6822 |h" | Jump_Zero 0x9ff
09dd e5f9 | | Load 0x2,-0x7 ; Debug Table 0x20.0x2 = 0x9dd,0x2
09de 6809 |h | Jump_Zero 0x9e8
09df 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x20.0x3 = 0x9df,0x3
09e0 e253 | S | Load 0x1,0x53
09e1 0092 1009 | | Action Push_String_Extended,0x1009 ; " (Kind of Drive => 8mm,"
09e3 01cc | | Execute Vector,Catenate
09e4 e233 | 3 | Load 0x1,0x33
09e5 181e | | Execute Package,Field_Execute,Field_Number 0x1e
09e6 00d1 | | Pop_Control Pop_Count_1
09e7 7808 |x | Jump 0x9f0
09e8 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x20.0x4 = 0x9e8,0x4
09e9 e253 | S | Load 0x1,0x53
09ea 0092 100a | | Action Push_String_Extended,0x100a ; " (Kind of Drive => 9 TRACK,"
09ec 01cc | | Execute Vector,Catenate
09ed e233 | 3 | Load 0x1,0x33
09ee 181e | | Execute Package,Field_Execute,Field_Number 0x1e
09ef 00d1 | | Pop_Control Pop_Count_1
09f0 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x20.0x5 = 0x9f0,0x5
09f1 e253 | S | Load 0x1,0x53
09f2 0092 100b | | Action Push_String_Extended,0x100b ; " Kind of Tape => "
09f4 01cc | | Execute Vector,Catenate
09f5 00dd | | Load_Top At_Offset_5
09f6 e006 | | Load 0x0,0x6
09f7 1b14 | | Execute Package,Field_Read,Field_Number 0x14
09f8 025e | ^ | Execute Discrete,Convert
09f9 1c01 | | Execute_Immediate Run_Utility,0x1
09fa 01cc | | Execute Vector,Catenate
09fb e233 | 3 | Load 0x1,0x33
09fc 181e | | Execute Package,Field_Execute,Field_Number 0x1e
09fd 00d1 | | Pop_Control Pop_Count_1
09fe 780e |x | Jump 0xa0d
09ff 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x20.0x6 = 0x9ff,0x6
0a00 e253 | S | Load 0x1,0x53
0a01 0092 100c | | Action Push_String_Extended,0x100c ; " (Kind of Tape => "
0a03 01cc | | Execute Vector,Catenate
0a04 00dd | | Load_Top At_Offset_5
0a05 e006 | | Load 0x0,0x6
0a06 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0a07 025e | ^ | Execute Discrete,Convert
0a08 1c01 | | Execute_Immediate Run_Utility,0x1
0a09 01cc | | Execute Vector,Catenate
0a0a e233 | 3 | Load 0x1,0x33
0a0b 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0a0c 00d1 | | Pop_Control Pop_Count_1
0a0d e5f8 | | Load 0x2,-0x8 ; Debug Table 0x20.0x7 = 0xa0d,0x7
0a0e 6810 |h | Jump_Zero 0xa1f
0a0f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x20.0x8 = 0xa0f,0x8
0a10 482c |H, | Short_Literal 0x2c
0a11 e253 | S | Load 0x1,0x53
0a12 01ca | | Execute Vector,Prepend
0a13 0092 100d | | Action Push_String_Extended,0x100d ; " Direction => "
0a15 01cc | | Execute Vector,Catenate
0a16 00de | | Load_Top At_Offset_6
0a17 e006 | | Load 0x0,0x6
0a18 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0a19 025e | ^ | Execute Discrete,Convert
0a1a 1c01 | | Execute_Immediate Run_Utility,0x1
0a1b 01cc | | Execute Vector,Catenate
0a1c e233 | 3 | Load 0x1,0x33
0a1d 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0a1e 00d1 | | Pop_Control Pop_Count_1
0a1f e5fb | | Load 0x2,-0x5 ; Debug Table 0x20.0x9 = 0xa1f,0x9
0a20 e006 | | Load 0x0,0x6
0a21 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0a22 01df | | Execute Vector,Equal
0a23 700d |p | Jump_Nonzero 0xa31
0a24 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x20.0xa = 0xa24,0xa
0a25 482c |H, | Short_Literal 0x2c
0a26 e253 | S | Load 0x1,0x53
0a27 01ca | | Execute Vector,Prepend
0a28 0092 100e | | Action Push_String_Extended,0x100e ; " Volume Id => "
0a2a 01cc | | Execute Vector,Catenate
0a2b e5fb | | Load 0x2,-0x5
0a2c 8261 | a | Call 0x1,0x61
0a2d 01cc | | Execute Vector,Catenate
0a2e e233 | 3 | Load 0x1,0x33
0a2f 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0a30 00d1 | | Pop_Control Pop_Count_1
0a31 00de | | Load_Top At_Offset_6 ; Debug Table 0x20.0xb = 0xa31,0xb
0a32 e006 | | Load 0x0,0x6
0a33 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0a34 01df | | Execute Vector,Equal
0a35 700d |p | Jump_Nonzero 0xa43
0a36 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x20.0xc = 0xa36,0xc
0a37 482c |H, | Short_Literal 0x2c
0a38 e253 | S | Load 0x1,0x53
0a39 01ca | | Execute Vector,Prepend
0a3a 0092 100f | | Action Push_String_Extended,0x100f ; " Volume Set Name => "
0a3c 01cc | | Execute Vector,Catenate
0a3d e5fc | | Load 0x2,-0x4
0a3e 8261 | a | Call 0x1,0x61
0a3f 01cc | | Execute Vector,Catenate
0a40 e233 | 3 | Load 0x1,0x33
0a41 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0a42 00d1 | | Pop_Control Pop_Count_1
0a43 00dd | | Load_Top At_Offset_5 ; Debug Table 0x20.0xd = 0xa43,0xd
0a44 e006 | | Load 0x0,0x6
0a45 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0a46 01df | | Execute Vector,Equal
0a47 700d |p | Jump_Nonzero 0xa55
0a48 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x20.0xe = 0xa48,0xe
0a49 482c |H, | Short_Literal 0x2c
0a4a e253 | S | Load 0x1,0x53
0a4b 01ca | | Execute Vector,Prepend
0a4c 0092 1010 | | Action Push_String_Extended,0x1010 ; " Additional Info => "
0a4e 01cc | | Execute Vector,Catenate
0a4f e5fd | | Load 0x2,-0x3
0a50 8261 | a | Call 0x1,0x61
0a51 01cc | | Execute Vector,Catenate
0a52 e233 | 3 | Load 0x1,0x33
0a53 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0a54 00d1 | | Pop_Control Pop_Count_1
0a55 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x20.0xf = 0xa55,0xf
0a56 4829 |H) | Short_Literal 0x29
0a57 e253 | S | Load 0x1,0x53
0a58 01ca | | Execute Vector,Prepend
0a59 e233 | 3 | Load 0x1,0x33
0a5a 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0a5b 00d1 | | Pop_Control Pop_Count_1
0a5c 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x20.0x10 = 0xa5c,0x10
0a5d 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
0a5e 0000 0000 | | .XXX[0x2]
0a60 ; --------------------------------------------------------------------------------------
0a60 ; SUBPROGRAM
0a60 ; --------------------------------------------------------------------------------------
0a60 0a69 | i | .CONST 0x0a69 ; Address of begin
0a61 0004 | | .CONST 0x0004 ; Address of exception handler
0a62 0002 | | .CONST 0x0002 ; Number of locals
0a63 INIT_0a60:
0a63 6230 |b0 | Indirect_Literal Discrete,0xc94,{0x00000000, 0x00000400} ; Debug Table 0x21 = .DEBUG 0x0a63,0x18d2,0x1002,0x0000,0x0033,0x73f4,0x0000,0x085f
; Debug Table 0x21.0x0 = 0xa63,0xffff
0a64 e233 | 3 | Load 0x1,0x33
0a65 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0a66 1c08 | | Execute_Immediate Run_Utility,0x8
0a67 00d8 | | Load_Top At_Offset_0
0a68 1c00 | | Execute_Immediate Run_Utility,0x0
0a69 BODY_0a60:
0a69 e25a | Z | Load 0x1,0x5a ; Debug Table 0x21.0x1 = 0xa69,0x1
0a6a 681f |h | Jump_Zero 0xa8a
0a6b 00db | | Load_Top At_Offset_3 ; Debug Table 0x21.0x2 = 0xa6b,0x2
0a6c e009 | | Load 0x0,0x9
0a6d 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0a6e 6807 |h | Jump_Zero 0xa76
0a6f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x21.0x3 = 0xa6f,0x3
0a70 0092 1009 | | Action Push_String_Extended,0x1009 ; " (Kind of Drive => 8mm,"
0a72 e233 | 3 | Load 0x1,0x33
0a73 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0a74 00d1 | | Pop_Control Pop_Count_1
0a75 7806 |x | Jump 0xa7c
0a76 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x21.0x4 = 0xa76,0x4
0a77 0092 100a | | Action Push_String_Extended,0x100a ; " (Kind of Drive => 9 TRACK,"
0a79 e233 | 3 | Load 0x1,0x33
0a7a 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0a7b 00d1 | | Pop_Control Pop_Count_1
0a7c 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x21.0x5 = 0xa7c,0x5
0a7d e253 | S | Load 0x1,0x53
0a7e 0092 100b | | Action Push_String_Extended,0x100b ; " Kind of Tape => "
0a80 01cc | | Execute Vector,Catenate
0a81 e5fd | | Load 0x2,-0x3
0a82 e23c | < | Load 0x1,0x3c
0a83 025e | ^ | Execute Discrete,Convert
0a84 1c01 | | Execute_Immediate Run_Utility,0x1
0a85 01cc | | Execute Vector,Catenate
0a86 e233 | 3 | Load 0x1,0x33
0a87 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0a88 00d1 | | Pop_Control Pop_Count_1
0a89 780b |x | Jump 0xa95
0a8a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x21.0x6 = 0xa8a,0x6
0a8b 0092 100c | | Action Push_String_Extended,0x100c ; " (Kind of Tape => "
0a8d e5fd | | Load 0x2,-0x3
0a8e e23c | < | Load 0x1,0x3c
0a8f 025e | ^ | Execute Discrete,Convert
0a90 1c01 | | Execute_Immediate Run_Utility,0x1
0a91 01cc | | Execute Vector,Catenate
0a92 e233 | 3 | Load 0x1,0x33
0a93 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0a94 00d1 | | Pop_Control Pop_Count_1
0a95 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x21.0x7 = 0xa95,0x7
0a96 482c |H, | Short_Literal 0x2c
0a97 e253 | S | Load 0x1,0x53
0a98 01ca | | Execute Vector,Prepend
0a99 0092 1011 | | Action Push_String_Extended,0x1011 ; " Writeable => "
0a9b 01cc | | Execute Vector,Catenate
0a9c 00de | | Load_Top At_Offset_6
0a9d 00e1 | | Load_Encached Boolean_Cache
0a9e 025e | ^ | Execute Discrete,Convert
0a9f 1c01 | | Execute_Immediate Run_Utility,0x1
0aa0 01cc | | Execute Vector,Catenate
0aa1 e233 | 3 | Load 0x1,0x33
0aa2 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0aa3 00d1 | | Pop_Control Pop_Count_1
0aa4 00de | | Load_Top At_Offset_6 ; Debug Table 0x21.0x8 = 0xaa4,0x8
0aa5 e006 | | Load 0x0,0x6
0aa6 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0aa7 01df | | Execute Vector,Equal
0aa8 700d |p | Jump_Nonzero 0xab6
0aa9 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x21.0x9 = 0xaa9,0x9
0aaa 482c |H, | Short_Literal 0x2c
0aab e253 | S | Load 0x1,0x53
0aac 01ca | | Execute Vector,Prepend
0aad 0092 100e | | Action Push_String_Extended,0x100e ; " Volume Id => "
0aaf 01cc | | Execute Vector,Catenate
0ab0 e5fc | | Load 0x2,-0x4
0ab1 8261 | a | Call 0x1,0x61
0ab2 01cc | | Execute Vector,Catenate
0ab3 e233 | 3 | Load 0x1,0x33
0ab4 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0ab5 00d1 | | Pop_Control Pop_Count_1
0ab6 e5fb | | Load 0x2,-0x5 ; Debug Table 0x21.0xa = 0xab6,0xa
0ab7 e006 | | Load 0x0,0x6
0ab8 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0ab9 01df | | Execute Vector,Equal
0aba 700d |p | Jump_Nonzero 0xac8
0abb 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x21.0xb = 0xabb,0xb
0abc 482c |H, | Short_Literal 0x2c
0abd e253 | S | Load 0x1,0x53
0abe 01ca | | Execute Vector,Prepend
0abf 0092 100f | | Action Push_String_Extended,0x100f ; " Volume Set Name => "
0ac1 01cc | | Execute Vector,Catenate
0ac2 e5fb | | Load 0x2,-0x5
0ac3 8261 | a | Call 0x1,0x61
0ac4 01cc | | Execute Vector,Catenate
0ac5 e233 | 3 | Load 0x1,0x33
0ac6 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0ac7 00d1 | | Pop_Control Pop_Count_1
0ac8 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x21.0xc = 0xac8,0xc
0ac9 0092 1012 | | Action Push_String_Extended,0x1012 ; ")"
0acb e233 | 3 | Load 0x1,0x33
0acc 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0acd 00d1 | | Pop_Control Pop_Count_1
0ace 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x21.0xd = 0xace,0xd
0acf 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0ad0 ; --------------------------------------------------------------------------------------
0ad0 ; SUBPROGRAM
0ad0 ; --------------------------------------------------------------------------------------
0ad0 0ad3 | | .CONST 0x0ad3 ; Address of begin
0ad1 0004 | | .CONST 0x0004 ; Address of exception handler
0ad2 0001 | | .CONST 0x0001 ; Number of locals
0ad3 BODY_0ad0:
0ad3 INIT_0ad0:
0ad3 00da | | Load_Top At_Offset_2 ; Debug Table 0x22 = .DEBUG 0x0ad3,0x18f0,0x1001,0x0000,0x0033,0x73f4,0x0000,0x0932
; Debug Table 0x22.0x0 = 0xad3,0x1
0ad4 0f39 | 9 | Execute_Immediate Equal,0x39
0ad5 6805 |h | Jump_Zero 0xadb
0ad6 4841 |HA | Short_Literal 0x41 ; Debug Table 0x22.0x1 = 0xad6,0x2
0ad7 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0ad8 4800 |H | Short_Literal 0x0 ; Debug Table 0x22.0x2 = 0xad8,0x3
0ad9 0054 | T | Store_Top_Unchecked Discrete,At_Offset_4
0ada 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0adb 00da | | Load_Top At_Offset_2 ; Debug Table 0x22.0x3 = 0xadb,0x4
0adc 0f5a | Z | Execute_Immediate Equal,0x5a
0add 6805 |h | Jump_Zero 0xae3
0ade 4830 |H0 | Short_Literal 0x30 ; Debug Table 0x22.0x4 = 0xade,0x5
0adf 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0ae0 4801 |H | Short_Literal 0x1 ; Debug Table 0x22.0x5 = 0xae0,0x6
0ae1 0054 | T | Store_Top_Unchecked Discrete,At_Offset_4
0ae2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0ae3 00e8 | | Load_Encached Character_Cache ; Debug Table 0x22.0x6 = 0xae3,0x7
0ae4 00db | | Load_Top At_Offset_3
0ae5 0268 | h | Execute Discrete,Successor
0ae6 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0ae7 4800 |H | Short_Literal 0x0 ; Debug Table 0x22.0x7 = 0xae7,0x8
0ae8 0054 | T | Store_Top_Unchecked Discrete,At_Offset_4
0ae9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0aea 0000 0000 | | .BLANK 0000[0x6]
0af0 ; --------------------------------------------------------------------------------------
0af0 ; SUBPROGRAM
0af0 ; --------------------------------------------------------------------------------------
0af0 0af7 | | .CONST 0x0af7 ; Address of begin
0af1 0004 | | .CONST 0x0004 ; Address of exception handler
0af2 0003 | | .CONST 0x0003 ; Number of locals
0af3 INIT_0af0:
0af3 e006 | | Load 0x0,0x6 ; Debug Table 0x23 = .DEBUG 0x0af3,0x1902,0x1002,0x0000,0x0033,0x73f4,0x0000,0x0969
; Debug Table 0x23.0x0 = 0xaf3,0xffff
0af4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0af5 0337 | 7 | Declare_Variable Array
0af6 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x23.0x1 = 0xaf6,0xfffe
0af7 BODY_0af0:
0af7 4804 |H | Short_Literal 0x4 ; Debug Table 0x23.0x2 = 0xaf7,0x1
0af8 e255 | U | Load 0x1,0x55
0af9 e00a | | Load 0x0,0xa
0afa 180e | | Execute Package,Field_Execute,Field_Number 0xe
0afb e25c | \ | Load 0x1,0x5c
0afc e00a | | Load 0x0,0xa
0afd 180f | | Execute Package,Field_Execute,Field_Number 0xf
0afe 01cc | | Execute Vector,Catenate
0aff 00da | | Load_Top At_Offset_2
0b00 01d4 | | Execute Vector,Structure_Write
0b01 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x23.0x3 = 0xb01,0x2
0b02 4802 |H | Short_Literal 0x2
0b03 e25c | \ | Load 0x1,0x5c
0b04 01d7 | | Execute Vector,Field_Read
0b05 826a | j | Call 0x1,0x6a
0b06 4802 |H | Short_Literal 0x2
0b07 e25c | \ | Load 0x1,0x5c
0b08 01d6 | | Execute Vector,Field_Write
0b09 0059 | Y | Store_Top Discrete,At_Offset_1
0b0a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x23.0x4 = 0xb0a,0x3
0b0b 6809 |h | Jump_Zero 0xb15
0b0c 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x23.0x5 = 0xb0c,0x4
0b0d 4801 |H | Short_Literal 0x1
0b0e e25c | \ | Load 0x1,0x5c
0b0f 01d7 | | Execute Vector,Field_Read
0b10 826a | j | Call 0x1,0x6a
0b11 4801 |H | Short_Literal 0x1
0b12 e25c | \ | Load 0x1,0x5c
0b13 01d6 | | Execute Vector,Field_Write
0b14 0059 | Y | Store_Top Discrete,At_Offset_1
0b15 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x23.0x6 = 0xb15,0x5
0b16 00ca | | Action Exit_Nullary_Function
0b17 0000 | | .XXX[0x1]
0b18 ; --------------------------------------------------------------------------------------
0b18 ; SUBPROGRAM
0b18 ; --------------------------------------------------------------------------------------
0b18 0b1c | | .CONST 0x0b1c ; Address of begin
0b19 0004 | | .CONST 0x0004 ; Address of exception handler
0b1a 0002 | | .CONST 0x0002 ; Number of locals
0b1b INIT_0b18:
0b1b e234 | 4 | Load 0x1,0x34 ; Debug Table 0x24 = .DEBUG 0x0b1b,0x1912,0x1002,0x0000,0x0033,0x73f4,0x0000,0x09ab
; Debug Table 0x24.0x0 = 0xb1b,0xffff
0b1c BODY_0b18:
0b1c 00db | | Load_Top At_Offset_3 ; Debug Table 0x24.0x1 = 0xb1c,0x1
0b1d 4830 |H0 | Short_Literal 0x30
0b1e 4839 |H9 | Short_Literal 0x39
0b1f 0262 | b | Execute Discrete,In_Range
0b20 700c |p | Jump_Nonzero 0xb2d
0b21 00db | | Load_Top At_Offset_3
0b22 4841 |HA | Short_Literal 0x41
0b23 485a |HZ | Short_Literal 0x5a
0b24 0262 | b | Execute Discrete,In_Range
0b25 7007 |p | Jump_Nonzero 0xb2d
0b26 00db | | Load_Top At_Offset_3
0b27 4861 |Ha | Short_Literal 0x61
0b28 487a |Hz | Short_Literal 0x7a
0b29 0262 | b | Execute Discrete,In_Range
0b2a 7002 |p | Jump_Nonzero 0xb2d
0b2b 6164 |ad | Indirect_Literal Discrete,0xc90,{0x00000000, 0x3373f401} ; Debug Table 0x24.0x2 = 0xb2b,0x2
0b2c 0257 | W | Execute Discrete,Raise
0b2d 00db | | Load_Top At_Offset_3 ; Debug Table 0x24.0x3 = 0xb2d,0x3
0b2e 4861 |Ha | Short_Literal 0x61
0b2f 487a |Hz | Short_Literal 0x7a
0b30 0262 | b | Execute Discrete,In_Range
0b31 6808 |h | Jump_Zero 0xb3a
0b32 00db | | Load_Top At_Offset_3 ; Debug Table 0x24.0x4 = 0xb32,0x4
0b33 0a9f | | Execute_Immediate Plus,-0x61
0b34 0a41 | A | Execute_Immediate Plus,0x41
0b35 e002 | | Load 0x0,0x2
0b36 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0b37 025b | [ | Execute Discrete,Check_In_Type
0b38 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0b39 7805 |x | Jump 0xb3f
0b3a 00db | | Load_Top At_Offset_3 ; Debug Table 0x24.0x5 = 0xb3a,0x5
0b3b e002 | | Load 0x0,0x2
0b3c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0b3d 025b | [ | Execute Discrete,Check_In_Type
0b3e 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0b3f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x24.0x6 = 0xb3f,0x6
0b40 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0b41 0000 0000 | | .BLANK 0000[0x7]
0b48 ; --------------------------------------------------------------------------------------
0b48 ; SUBPROGRAM
0b48 ; --------------------------------------------------------------------------------------
0b48 0b56 | V | .CONST 0x0b56 ; Address of begin
0b49 0bbe | | .CONST 0x0bbe ; Address of exception handler
0b4a 0005 | | .CONST 0x0005 ; Number of locals
0b4b INIT_0b48:
0b4b e006 | | Load 0x0,0x6 ; Debug Table 0x25 = .DEBUG 0x0b4b,0x1922,0x1002,0x0000,0x0033,0x73f4,0x0000,0x0a15
; Debug Table 0x25.0x0 = 0xb4b,0xffff
0b4c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0b4d 0337 | 7 | Declare_Variable Array
0b4e e006 | | Load 0x0,0x6
0b4f 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0b50 00d9 | | Load_Top At_Offset_1
0b51 01d4 | | Execute Vector,Structure_Write
0b52 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x25.0x1 = 0xb52,0xfffe
0b53 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0b54 e252 | R | Load 0x1,0x52 ; Debug Table 0x25.0x2 = 0xb54,0xfffd
0b55 e252 | R | Load 0x1,0x52 ; Debug Table 0x25.0x3 = 0xb55,0xfffc
0b56 BODY_0b48:
0b56 00cf | | Action Mark_Auxiliary
0b57 e5fe | | Load 0x2,-0x2 ; Debug Table 0x25.0x4 = 0xb57,0x1
0b58 01d9 | | Execute Vector,Reverse_Bounds
0b59 0263 | c | Execute Discrete,Above_Bound
0b5a 7042 |pB | Jump_Nonzero 0xb9d
0b5b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x25.0x5 = 0xb5b,0x2
0b5c e5fe | | Load 0x2,-0x2
0b5d 01d7 | | Execute Vector,Field_Read
0b5e 0f20 | | Execute_Immediate Equal,0x20
0b5f 00d9 | | Load_Top At_Offset_1
0b60 e5fe | | Load 0x2,-0x2
0b61 01d7 | | Execute Vector,Field_Read
0b62 0f2c | , | Execute_Immediate Equal,0x2c
0b63 0278 | x | Execute Discrete,Or
0b64 6820 |h | Jump_Zero 0xb85
0b65 00dd | | Load_Top At_Offset_5 ; Debug Table 0x25.0x6 = 0xb65,0x3
0b66 6834 |h4 | Jump_Zero 0xb9b
0b67 00dc | | Load_Top At_Offset_4 ; Debug Table 0x25.0x7 = 0xb67,0x4
0b68 7007 |p | Jump_Nonzero 0xb70
0b69 e252 | R | Load 0x1,0x52 ; Debug Table 0x25.0x8 = 0xb69,0x5
0b6a e5ff | | Load 0x2,-0x1
0b6b 039c | | Declare_Variable Heap_Access,By_Allocation
0b6c 0035 | 5 | Store_Top Heap_Access,At_Offset_5
0b6d 00dc | | Load_Top At_Offset_4 ; Debug Table 0x25.0x9 = 0xb6d,0x6
; Debug Table 0x25.0xa = 0xb6d,0x7
0b6e 0034 | 4 | Store_Top Heap_Access,At_Offset_4
0b6f 780a |x | Jump 0xb7a
0b70 e252 | R | Load 0x1,0x52 ; Debug Table 0x25.0xb = 0xb70,0x8
0b71 e5ff | | Load 0x2,-0x1
0b72 039c | | Declare_Variable Heap_Access,By_Allocation
0b73 00dc | | Load_Top At_Offset_4
0b74 0217 | | Execute Heap_Access,All_Reference
0b75 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0b76 00db | | Load_Top At_Offset_3 ; Debug Table 0x25.0xc = 0xb76,0x9
; Debug Table 0x25.0xd = 0xb76,0xa
0b77 0217 | | Execute Heap_Access,All_Reference
0b78 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0b79 0034 | 4 | Store_Top Heap_Access,At_Offset_4
0b7a 00de | | Load_Top At_Offset_6 ; Debug Table 0x25.0xe = 0xb7a,0xb
0b7b 00dc | | Load_Top At_Offset_4
0b7c 0217 | | Execute Heap_Access,All_Reference
0b7d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0b7e e006 | | Load 0x0,0x6 ; Debug Table 0x25.0xf = 0xb7e,0xc
0b7f 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0b80 e402 | | Load 0x2,0x2
0b81 01d4 | | Execute Vector,Structure_Write
0b82 4800 |H | Short_Literal 0x0 ; Debug Table 0x25.0x10 = 0xb82,0xd
0b83 0056 | V | Store_Top_Unchecked Discrete,At_Offset_6
0b84 7816 |x | Jump 0xb9b
0b85 00dd | | Load_Top At_Offset_5 ; Debug Table 0x25.0x11 = 0xb85,0xe
0b86 0c06 | | Execute_Immediate Greater_Equal,0x6
0b87 6809 |h | Jump_Zero 0xb91
0b88 e5ff | | Load 0x2,-0x1 ; Debug Table 0x25.0x12 = 0xb88,0xf
0b89 0217 | | Execute Heap_Access,All_Reference
0b8a 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0b8b 0092 1013 | | Action Push_String_Extended,0x1013 ; "Max volume id length is 6 alphanumeric characters."
0b8d e003 | | Load 0x0,0x3
0b8e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0b8f 4800 |H | Short_Literal 0x0 ; Debug Table 0x25.0x13 = 0xb8f,0x10
0b90 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0b91 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x25.0x14 = 0xb91,0x11
0b92 e5fe | | Load 0x2,-0x2
0b93 01d7 | | Execute Vector,Field_Read
0b94 826c | l | Call 0x1,0x6c
0b95 00de | | Load_Top At_Offset_6
0b96 e402 | | Load 0x2,0x2
0b97 01d6 | | Execute Vector,Field_Write
0b98 00dd | | Load_Top At_Offset_5 ; Debug Table 0x25.0x15 = 0xb98,0x12
0b99 0a01 | | Execute_Immediate Plus,0x1
0b9a 005e | ^ | Store_Top Discrete,At_Offset_6
0b9b 00c8 | | Action Pop_Auxiliary_Range
0b9c 3fbe |? | Loop_Increasing 0xb5b
0b9d 00ce | | Action Pop_Auxiliary
0b9e 00da | | Load_Top At_Offset_2 ; Debug Table 0x25.0x16 = 0xb9e,0x13
0b9f 0c01 | | Execute_Immediate Greater_Equal,0x1
0ba0 6817 |h | Jump_Zero 0xbb8
0ba1 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x25.0x17 = 0xba1,0x14
0ba2 7007 |p | Jump_Nonzero 0xbaa
0ba3 e252 | R | Load 0x1,0x52 ; Debug Table 0x25.0x18 = 0xba3,0x15
0ba4 e5ff | | Load 0x2,-0x1
0ba5 039c | | Declare_Variable Heap_Access,By_Allocation
0ba6 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0ba7 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x25.0x19 = 0xba7,0x16
; Debug Table 0x25.0x1a = 0xba7,0x17
0ba8 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0ba9 780a |x | Jump 0xbb4
0baa e252 | R | Load 0x1,0x52 ; Debug Table 0x25.0x1b = 0xbaa,0x18
0bab e5ff | | Load 0x2,-0x1
0bac 039c | | Declare_Variable Heap_Access,By_Allocation
0bad 00d9 | | Load_Top At_Offset_1
0bae 0217 | | Execute Heap_Access,All_Reference
0baf 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0bb0 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x25.0x1c = 0xbb0,0x19
; Debug Table 0x25.0x1d = 0xbb0,0x1a
0bb1 0217 | | Execute Heap_Access,All_Reference
0bb2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0bb3 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0bb4 00db | | Load_Top At_Offset_3 ; Debug Table 0x25.0x1e = 0xbb4,0x1b
0bb5 00d9 | | Load_Top At_Offset_1
0bb6 0217 | | Execute Heap_Access,All_Reference
0bb7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0bb8 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x25.0x1f = 0xbb8,0x1c
0bb9 e5ff | | Load 0x2,-0x1
0bba 0217 | | Execute Heap_Access,All_Reference
0bbb 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0bbc 4801 |H | Short_Literal 0x1 ; Debug Table 0x25.0x20 = 0xbbc,0x1d
0bbd 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0bbe TRAP_0b48:
0bbe 60d1 |` | Indirect_Literal Discrete,0xc90,{0x00000000, 0x3373f401}
0bbf 010f | | Execute Exception,Equal
0bc0 6810 |h | Jump_Zero 0xbd1
0bc1 e5ff | | Load 0x2,-0x1 ; Debug Table 0x25.0x21 = 0xbc1,0x1e
0bc2 0217 | | Execute Heap_Access,All_Reference
0bc3 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0bc4 0092 1014 | | Action Push_String_Extended,0x1014 ; "Illegal character found."
0bc6 e003 | | Load 0x0,0x3
0bc7 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0bc8 e5ff | | Load 0x2,-0x1 ; Debug Table 0x25.0x22 = 0xbc8,0x1f
0bc9 0217 | | Execute Heap_Access,All_Reference
0bca 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0bcb 0092 1015 | | Action Push_String_Extended,0x1015 ; "Characters must be alphanumeric separated by commas or blanks."
0bcd e003 | | Load 0x0,0x3
0bce 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0bcf 4800 |H | Short_Literal 0x0 ; Debug Table 0x25.0x23 = 0xbcf,0x20
0bd0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0bd1 0100 | | Execute Exception,Raise
0bd2 0000 0000 | | .BLANK 0000[0x6]
0bd8 ; --------------------------------------------------------------------------------------
0bd8 ; SUBPROGRAM
0bd8 ; --------------------------------------------------------------------------------------
0bd8 0bdb | | .CONST 0x0bdb ; Address of begin
0bd9 0004 | | .CONST 0x0004 ; Address of exception handler
0bda 0001 | | .CONST 0x0001 ; Number of locals
0bdb BODY_0bd8:
0bdb INIT_0bd8:
0bdb 00cf | | Action Mark_Auxiliary ; Debug Table 0x26 = .DEBUG 0x0bdb,0x196c,0x1001,0x0000,0x0033,0x73f4,0x0000,0x0b19
0bdc 00db | | Load_Top At_Offset_3 ; Debug Table 0x26.0x0 = 0xbdc,0x1
; Debug Table 0x26.0x1 = 0xbdc,0x2
0bdd 0217 | | Execute Heap_Access,All_Reference
0bde 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0bdf 00dd | | Load_Top At_Offset_5
0be0 0092 1016 | | Action Push_String_Extended,0x1016 ; "What should the volume id handling mode be? "
0be2 e24d | M | Load 0x1,0x4d
0be3 1d4e | N | Execute_Immediate Reference_Lex_1,0x4e
0be4 8004 | | Call 0x0,0x4
0be5 00dc | | Load_Top At_Offset_4
0be6 0217 | | Execute Heap_Access,All_Reference
0be7 380a |8 | Execute Record,Field_Write,Field_Number 0xa
0be8 00db | | Load_Top At_Offset_3 ; Debug Table 0x26.0x2 = 0xbe8,0x3
0be9 0217 | | Execute Heap_Access,All_Reference
0bea 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
0beb 4603 |F | Jump_Case 0x4
0bec 781e |x | Jump 0xc0b ; case 0x0
0bed 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x1
0bee 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x2
0bef 7800 |x | Jump 0xbf0 ; case 0x3
0bf0 00cf | | Action Mark_Auxiliary
0bf1 7801 |x | Jump 0xbf3
0bf2 00c9 | | Action Pop_Auxiliary_Loop ; Debug Table 0x26.0x3 = 0xbf2,0x6
0bf3 00dc | | Load_Top At_Offset_4 ; Debug Table 0x26.0x4 = 0xbf3,0x5
0bf4 0217 | | Execute Heap_Access,All_Reference
0bf5 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0bf6 0092 1017 | | Action Push_String_Extended,0x1017 ; "Please supply list of volume ids. "
0bf8 e003 | | Load 0x0,0x3
0bf9 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0bfa e00f | | Load 0x0,0xf
0bfb 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0bfc 00dd | | Load_Top At_Offset_5
0bfd 826d | m | Call 0x1,0x6d
0bfe 6ff3 |o | Jump_Zero 0xbf2
0bff 00ce | | Action Pop_Auxiliary
0c00 00db | | Load_Top At_Offset_3 ; Debug Table 0x26.0x5 = 0xc00,0x7
0c01 0217 | | Execute Heap_Access,All_Reference
0c02 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0c03 4800 |H | Short_Literal 0x0
0c04 0092 1018 | | Action Push_String_Extended,0x1018 ; "Is this list correct? "
0c06 e241 | A | Load 0x1,0x41
0c07 1d42 | B | Execute_Immediate Reference_Lex_1,0x42
0c08 8004 | | Call 0x0,0x4
0c09 6805 |h | Jump_Zero 0xc0f
0c0a 7802 |x | Jump 0xc0d
0c0b 4887 |H | Short_Literal 0x87 ; Debug Table 0x26.0x6 = 0xc0b,0x8
0c0c 0257 | W | Execute Discrete,Raise
0c0d 00c9 | | Action Pop_Auxiliary_Loop ; Debug Table 0x26.0x7 = 0xc0d,0x9
0c0e 7fcd | | Jump 0xbdc
0c0f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0c10 ; --------------------------------------------------------------------------------------
0c10 ; SUBPROGRAM
0c10 ; --------------------------------------------------------------------------------------
0c10 0c14 | | .CONST 0x0c14 ; Address of begin
0c11 0004 | | .CONST 0x0004 ; Address of exception handler
0c12 0002 | | .CONST 0x0002 ; Number of locals
0c13 INIT_0c10:
0c13 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x27 = .DEBUG 0x0c13,0x197e,0x1002,0x0000,0x0033,0x73f4,0x0000,0x0b75
; Debug Table 0x27.0x0 = 0xc13,0xffff
0c14 BODY_0c10:
0c14 00db | | Load_Top At_Offset_3 ; Debug Table 0x27.0x1 = 0xc14,0x1
0c15 0217 | | Execute Heap_Access,All_Reference
0c16 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0c17 4602 |F | Jump_Case 0x3
0c18 7802 |x | Jump 0xc1b ; case 0x0
0c19 7805 |x | Jump 0xc1f ; case 0x1
0c1a 7817 |x | Jump 0xc32 ; case 0x2
0c1b 00dd | | Load_Top At_Offset_5 ; Debug Table 0x27.0x2 = 0xc1b,0x2
0c1c 0e00 | | Execute_Immediate Not_Equal,0x0
0c1d 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0c1e 7832 |x2 | Jump 0xc51
0c1f 00dd | | Load_Top At_Offset_5 ; Debug Table 0x27.0x3 = 0xc1f,0x3
0c20 4803 |H | Short_Literal 0x3
0c21 4804 |H | Short_Literal 0x4
0c22 0262 | b | Execute Discrete,In_Range
0c23 680b |h | Jump_Zero 0xc2f
0c24 00de | | Load_Top At_Offset_6
0c25 00dd | | Load_Top At_Offset_5
0c26 01df | | Execute Vector,Equal
0c27 7005 |p | Jump_Nonzero 0xc2d
0c28 00dc | | Load_Top At_Offset_4
0c29 e006 | | Load 0x0,0x6
0c2a 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0c2b 01df | | Execute Vector,Equal
0c2c 7803 |x | Jump 0xc30
0c2d 4801 |H | Short_Literal 0x1
0c2e 7801 |x | Jump 0xc30
0c2f 4800 |H | Short_Literal 0x0
0c30 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0c31 781f |x | Jump 0xc51
0c32 00dd | | Load_Top At_Offset_5 ; Debug Table 0x27.0x4 = 0xc32,0x4
0c33 0f04 | | Execute_Immediate Equal,0x4
0c34 681a |h | Jump_Zero 0xc4f
0c35 00dc | | Load_Top At_Offset_4
0c36 e5fc | | Load 0x2,-0x4
0c37 01df | | Execute Vector,Equal
0c38 7005 |p | Jump_Nonzero 0xc3e
0c39 00dc | | Load_Top At_Offset_4
0c3a e006 | | Load 0x0,0x6
0c3b 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0c3c 01df | | Execute Vector,Equal
0c3d 7801 |x | Jump 0xc3f
0c3e 4801 |H | Short_Literal 0x1
0c3f 680f |h | Jump_Zero 0xc4f
0c40 00db | | Load_Top At_Offset_3
0c41 0217 | | Execute Heap_Access,All_Reference
0c42 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0c43 e5fb | | Load 0x2,-0x5
0c44 01df | | Execute Vector,Equal
0c45 7007 |p | Jump_Nonzero 0xc4d
0c46 00db | | Load_Top At_Offset_3
0c47 0217 | | Execute Heap_Access,All_Reference
0c48 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0c49 e006 | | Load 0x0,0x6
0c4a 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0c4b 01df | | Execute Vector,Equal
0c4c 7803 |x | Jump 0xc50
0c4d 4801 |H | Short_Literal 0x1
0c4e 7801 |x | Jump 0xc50
0c4f 4800 |H | Short_Literal 0x0
0c50 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0c51 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x27.0x5 = 0xc51,0x5
0c52 7008 |p | Jump_Nonzero 0xc5b
0c53 00db | | Load_Top At_Offset_3 ; Debug Table 0x27.0x6 = 0xc53,0x6
0c54 0217 | | Execute Heap_Access,All_Reference
0c55 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0c56 0092 1019 | | Action Push_String_Extended,0x1019 ; "Request does not match tape."
0c58 e003 | | Load 0x0,0x3
0c59 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0c5a 7830 |x0 | Jump 0xc8b
0c5b 00db | | Load_Top At_Offset_3 ; Debug Table 0x27.0x7 = 0xc5b,0x7
0c5c 0217 | | Execute Heap_Access,All_Reference
0c5d 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0c5e 4800 |H | Short_Literal 0x0
0c5f 0092 101a | | Action Push_String_Extended,0x101a ; "OK to read volume? "
0c61 e241 | A | Load 0x1,0x41
0c62 1d42 | B | Execute_Immediate Reference_Lex_1,0x42
0c63 8004 | | Call 0x0,0x4
0c64 0f00 | | Execute_Immediate Equal,0x0
0c65 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0c66 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x27.0x8 = 0xc66,0x8
0c67 00dc | | Load_Top At_Offset_4
0c68 0217 | | Execute Heap_Access,All_Reference
0c69 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0c6a 0f00 | | Execute_Immediate Equal,0x0
0c6b 0f00 | | Execute_Immediate Equal,0x0
0c6c 0279 | y | Execute Discrete,And
0c6d 681d |h | Jump_Zero 0xc8b
0c6e 00de | | Load_Top At_Offset_6 ; Debug Table 0x27.0x9 = 0xc6e,0x9
0c6f e006 | | Load 0x0,0x6
0c70 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0c71 01df | | Execute Vector,Equal
0c72 7004 |p | Jump_Nonzero 0xc77
0c73 00de | | Load_Top At_Offset_6 ; Debug Table 0x27.0xa = 0xc73,0xa
0c74 00dc | | Load_Top At_Offset_4
0c75 0217 | | Execute Heap_Access,All_Reference
0c76 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0c77 00db | | Load_Top At_Offset_3 ; Debug Table 0x27.0xb = 0xc77,0xb
0c78 0217 | | Execute Heap_Access,All_Reference
0c79 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0c7a 0f02 | | Execute_Immediate Equal,0x2
0c7b 680f |h | Jump_Zero 0xc8b
0c7c e5fb | | Load 0x2,-0x5
0c7d e006 | | Load 0x0,0x6
0c7e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0c7f 01df | | Execute Vector,Equal
0c80 700a |p | Jump_Nonzero 0xc8b
0c81 e5fb | | Load 0x2,-0x5
0c82 00dc | | Load_Top At_Offset_4
0c83 0217 | | Execute Heap_Access,All_Reference
0c84 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0c85 01df | | Execute Vector,Equal
0c86 7004 |p | Jump_Nonzero 0xc8b
0c87 e5fb | | Load 0x2,-0x5 ; Debug Table 0x27.0xc = 0xc87,0xc
0c88 00dc | | Load_Top At_Offset_4
0c89 0217 | | Execute Heap_Access,All_Reference
0c8a 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0c8b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x27.0xd = 0xc8b,0xd
0c8c 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0c8d 0000 0000 | | .XXX[0x3]
0c8f 0000 | |
0c90 0000 0000 | | .LITERAL {0x00000000, 0x3373f401}
0c94 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
0c98 ; --------------------------------------------------------------------------------------
0c98 ; SUBPROGRAM
0c98 ; --------------------------------------------------------------------------------------
0c98 0c9d | | .CONST 0x0c9d ; Address of begin
0c99 0004 | | .CONST 0x0004 ; Address of exception handler
0c9a 0003 | | .CONST 0x0003 ; Number of locals
0c9b INIT_0c98:
0c9b 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x28 = .DEBUG 0x0c9b,0x199c,0x1002,0x0000,0x0033,0x73f4,0x0000,0x0c65
; Debug Table 0x28.0x0 = 0xc9b,0xffff
0c9c e239 | 9 | Load 0x1,0x39 ; Debug Table 0x28.0x1 = 0xc9c,0xfffe
0c9d BODY_0c98:
0c9d 00dc | | Load_Top At_Offset_4 ; Debug Table 0x28.0x2 = 0xc9d,0x1
0c9e 0217 | | Execute Heap_Access,All_Reference
0c9f 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0ca0 4800 |H | Short_Literal 0x0
0ca1 0092 101b | | Action Push_String_Extended,0x101b ; "OK to overwrite volume? "
0ca3 e241 | A | Load 0x1,0x41
0ca4 1d42 | B | Execute_Immediate Reference_Lex_1,0x42
0ca5 8004 | | Call 0x0,0x4
0ca6 0f00 | | Execute_Immediate Equal,0x0
0ca7 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0ca8 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x28.0x3 = 0xca8,0x2
0ca9 6882 |h | Jump_Zero 0xd2c
0caa 00dc | | Load_Top At_Offset_4 ; Debug Table 0x28.0x4 = 0xcaa,0x3
0cab 0217 | | Execute Heap_Access,All_Reference
0cac 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0cad 687e |h~ | Jump_Zero 0xd2c
0cae 00cf | | Action Mark_Auxiliary
0caf 00dd | | Load_Top At_Offset_5 ; Debug Table 0x28.0x5 = 0xcaf,0x4
; Debug Table 0x28.0x6 = 0xcaf,0x5
0cb0 0217 | | Execute Heap_Access,All_Reference
0cb1 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
0cb2 4603 |F | Jump_Case 0x4
0cb3 7803 |x | Jump 0xcb7 ; case 0x0
0cb4 7827 |x' | Jump 0xcdc ; case 0x1
0cb5 783f |x? | Jump 0xcf5 ; case 0x2
0cb6 7810 |x | Jump 0xcc7 ; case 0x3
0cb7 e5fd | | Load 0x2,-0x3 ; Debug Table 0x28.0x7 = 0xcb7,0x6
0cb8 4800 |H | Short_Literal 0x0
0cb9 4801 |H | Short_Literal 0x1
0cba 0262 | b | Execute Discrete,In_Range
0cbb 6808 |h | Jump_Zero 0xcc4
0cbc 00de | | Load_Top At_Offset_6
0cbd e006 | | Load 0x0,0x6
0cbe 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0cbf 01df | | Execute Vector,Equal
0cc0 6803 |h | Jump_Zero 0xcc4
0cc1 4802 |H | Short_Literal 0x2 ; Debug Table 0x28.0x8 = 0xcc1,0x7
0cc2 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0cc3 782c |x, | Jump 0xcf0
0cc4 4801 |H | Short_Literal 0x1 ; Debug Table 0x28.0x9 = 0xcc4,0x8
0cc5 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0cc6 7829 |x) | Jump 0xcf0
0cc7 00dd | | Load_Top At_Offset_5 ; Debug Table 0x28.0xa = 0xcc7,0x9
0cc8 0217 | | Execute Heap_Access,All_Reference
0cc9 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
0cca 021c | | Execute Heap_Access,Not_Null
0ccb e5fe | | Load 0x2,-0x2
0ccc e006 | | Load 0x0,0x6
0ccd 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0cce 01df | | Execute Vector,Equal
0ccf 0f00 | | Execute_Immediate Equal,0x0
0cd0 0278 | x | Execute Discrete,Or
0cd1 7023 |p# | Jump_Nonzero 0xcf5
0cd2 00dd | | Load_Top At_Offset_5 ; Debug Table 0x28.0xb = 0xcd2,0xa
0cd3 0217 | | Execute Heap_Access,All_Reference
0cd4 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0cd5 0092 0ffb | | Action Push_String_Extended,0xffb ; "Volume id list is exhausted."
0cd7 e003 | | Load 0x0,0x3
0cd8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0cd9 4803 |H | Short_Literal 0x3 ; Debug Table 0x28.0xc = 0xcd9,0xb
0cda 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0cdb 7814 |x | Jump 0xcf0
0cdc e5fc | | Load 0x2,-0x4 ; Debug Table 0x28.0xd = 0xcdc,0xc
0cdd e006 | | Load 0x0,0x6
0cde 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0cdf 01df | | Execute Vector,Equal
0ce0 6814 |h | Jump_Zero 0xcf5
0ce1 00de | | Load_Top At_Offset_6
0ce2 e006 | | Load 0x0,0x6
0ce3 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0ce4 01df | | Execute Vector,Equal
0ce5 680f |h | Jump_Zero 0xcf5
0ce6 00dd | | Load_Top At_Offset_5 ; Debug Table 0x28.0xe = 0xce6,0xd
0ce7 0217 | | Execute Heap_Access,All_Reference
0ce8 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0ce9 0092 101c | | Action Push_String_Extended,0x101c ; "Volume id is needed."
0ceb e003 | | Load 0x0,0x3
0cec 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0ced 4802 |H | Short_Literal 0x2 ; Debug Table 0x28.0xf = 0xced,0xe
0cee 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0cef 7800 |x | Jump 0xcf0
0cf0 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x28.0x10 = 0xcf0,0x10
0cf1 00de | | Load_Top At_Offset_6
0cf2 826e | n | Call 0x1,0x6e
0cf3 00c9 | | Action Pop_Auxiliary_Loop
0cf4 7fba | | Jump 0xcaf
0cf5 00ce | | Action Pop_Auxiliary
0cf6 00dd | | Load_Top At_Offset_5 ; Debug Table 0x28.0x11 = 0xcf6,0x11
0cf7 e006 | | Load 0x0,0x6
0cf8 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0cf9 01df | | Execute Vector,Equal
0cfa 7005 |p | Jump_Nonzero 0xd00
0cfb 00dd | | Load_Top At_Offset_5 ; Debug Table 0x28.0x12 = 0xcfb,0x12
0cfc 00dd | | Load_Top At_Offset_5
0cfd 0217 | | Execute Heap_Access,All_Reference
0cfe 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0cff 782c |x, | Jump 0xd2c
0d00 00dc | | Load_Top At_Offset_4 ; Debug Table 0x28.0x13 = 0xd00,0x13
0d01 0217 | | Execute Heap_Access,All_Reference
0d02 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
0d03 4603 |F | Jump_Case 0x4
0d04 7825 |x% | Jump 0xd2a ; case 0x0
0d05 7813 |x | Jump 0xd19 ; case 0x1
0d06 781e |x | Jump 0xd25 ; case 0x2
0d07 7800 |x | Jump 0xd08 ; case 0x3
0d08 00dc | | Load_Top At_Offset_4 ; Debug Table 0x28.0x14 = 0xd08,0x14
0d09 0217 | | Execute Heap_Access,All_Reference
0d0a 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
0d0b 0217 | | Execute Heap_Access,All_Reference
0d0c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0d0d 00dd | | Load_Top At_Offset_5
0d0e 0217 | | Execute Heap_Access,All_Reference
0d0f 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0d10 00dc | | Load_Top At_Offset_4 ; Debug Table 0x28.0x15 = 0xd10,0x15
0d11 0217 | | Execute Heap_Access,All_Reference
0d12 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
0d13 0217 | | Execute Heap_Access,All_Reference
0d14 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0d15 00dd | | Load_Top At_Offset_5
0d16 0217 | | Execute Heap_Access,All_Reference
0d17 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0d18 7813 |x | Jump 0xd2c
0d19 e5fc | | Load 0x2,-0x4 ; Debug Table 0x28.0x16 = 0xd19,0x16
0d1a e006 | | Load 0x0,0x6
0d1b 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0d1c 01df | | Execute Vector,Equal
0d1d 6802 |h | Jump_Zero 0xd20
0d1e 4887 |H | Short_Literal 0x87
0d1f 0257 | W | Execute Discrete,Raise
0d20 e5fc | | Load 0x2,-0x4 ; Debug Table 0x28.0x17 = 0xd20,0x17
0d21 00dd | | Load_Top At_Offset_5
0d22 0217 | | Execute Heap_Access,All_Reference
0d23 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0d24 7807 |x | Jump 0xd2c
0d25 826b | k | Call 0x1,0x6b ; Debug Table 0x28.0x18 = 0xd25,0x18
0d26 00dd | | Load_Top At_Offset_5
0d27 0217 | | Execute Heap_Access,All_Reference
0d28 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0d29 7802 |x | Jump 0xd2c
0d2a 4887 |H | Short_Literal 0x87 ; Debug Table 0x28.0x19 = 0xd2a,0x19
0d2b 0257 | W | Execute Discrete,Raise
0d2c 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x28.0x1a = 0xd2c,0x1a
; Debug Table 0x28.0x1b = 0xd2c,0x1b
0d2d 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0d2e 0000 0000 | | .XXX[0x2]
0d30 ; --------------------------------------------------------------------------------------
0d30 ; SUBPROGRAM
0d30 ; --------------------------------------------------------------------------------------
0d30 0d34 | 4 | .CONST 0x0d34 ; Address of begin
0d31 0004 | | .CONST 0x0004 ; Address of exception handler
0d32 0002 | | .CONST 0x0002 ; Number of locals
0d33 INIT_0d30:
0d33 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x29 = .DEBUG 0x0d33,0x19d6,0x1002,0x0000,0x0033,0x73f4,0x0000,0x0d75
; Debug Table 0x29.0x0 = 0xd33,0xffff
0d34 BODY_0d30:
0d34 00db | | Load_Top At_Offset_3 ; Debug Table 0x29.0x1 = 0xd34,0x1
0d35 0217 | | Execute Heap_Access,All_Reference
0d36 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0d37 4602 |F | Jump_Case 0x3
0d38 7802 |x | Jump 0xd3b ; case 0x0
0d39 7809 |x | Jump 0xd43 ; case 0x1
0d3a 7800 |x | Jump 0xd3b ; case 0x2
0d3b e5fb | | Load 0x2,-0x5 ; Debug Table 0x29.0x2 = 0xd3b,0x2
0d3c e5fc | | Load 0x2,-0x4
0d3d e5fd | | Load 0x2,-0x3
0d3e e5fe | | Load 0x2,-0x2
0d3f e5ff | | Load 0x2,-0x1
0d40 826f | o | Call 0x1,0x6f
0d41 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0d42 7807 |x | Jump 0xd4a
0d43 e5fb | | Load 0x2,-0x5 ; Debug Table 0x29.0x3 = 0xd43,0x3
0d44 e5fc | | Load 0x2,-0x4
0d45 e5fd | | Load 0x2,-0x3
0d46 e5fe | | Load 0x2,-0x2
0d47 e5ff | | Load 0x2,-0x1
0d48 8270 | p | Call 0x1,0x70
0d49 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0d4a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x29.0x4 = 0xd4a,0x4
0d4b 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0d4c 0000 0000 | | .BLANK 0000[0x4]
0d50 ; --------------------------------------------------------------------------------------
0d50 ; SUBPROGRAM
0d50 ; --------------------------------------------------------------------------------------
0d50 0d60 | ` | .CONST 0x0d60 ; Address of begin
0d51 0004 | | .CONST 0x0004 ; Address of exception handler
0d52 0007 | | .CONST 0x0007 ; Number of locals
0d53 INIT_0d50:
0d53 e20f | | Load 0x1,0xf ; Debug Table 0x2a = .DEBUG 0x0d53,0x19e2,0x1001,0x0000,0x0033,0x73f4,0x0000,0x0dc7
; Debug Table 0x2a.0x0 = 0xd53,0xffff
0d54 02c7 | | Declare_Variable Any
0d55 00d8 | | Load_Top At_Offset_0
0d56 1c00 | | Execute_Immediate Run_Utility,0x0
0d57 e005 | | Load 0x0,0x5 ; Debug Table 0x2a.0x1 = 0xd57,0xfffe
0d58 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0d59 e005 | | Load 0x0,0x5 ; Debug Table 0x2a.0x2 = 0xd59,0xfffd
0d5a 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0d5b 0322 | " | Declare_Variable Record
0d5c 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x2a.0x3 = 0xd5c,0xfffc
0d5d e237 | 7 | Load 0x1,0x37 ; Debug Table 0x2a.0x4 = 0xd5d,0xfffb
0d5e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0d5f e23b | ; | Load 0x1,0x3b ; Debug Table 0x2a.0x5 = 0xd5f,0xfffa
0d60 BODY_0d50:
0d60 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x2a.0x6 = 0xd60,0x1
0d61 e005 | | Load 0x0,0x5
0d62 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0d63 e402 | | Load 0x2,0x2
0d64 0120 | | Execute Any,Is_Value
0d65 6802 |h | Jump_Zero 0xd68
0d66 e20f | | Load 0x1,0xf
0d67 7803 |x | Jump 0xd6b
0d68 e402 | | Load 0x2,0x2
0d69 e20f | | Load 0x1,0xf
0d6a 0119 | | Execute Any,Check_In_Formal_Type
0d6b e5fe | | Load 0x2,-0x2
0d6c 8215 | | Call 0x1,0x15
0d6d c402 | | Store 0x2,0x2
0d6e 005e | ^ | Store_Top Discrete,At_Offset_6
0d6f 005b | [ | Store_Top Discrete,At_Offset_3
0d70 00dc | | Load_Top At_Offset_4 ; Debug Table 0x2a.0x7 = 0xd70,0x2
0d71 6810 |h | Jump_Zero 0xd82
0d72 e5ff | | Load 0x2,-0x1 ; Debug Table 0x2a.0x8 = 0xd72,0x3
0d73 0217 | | Execute Heap_Access,All_Reference
0d74 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0d75 0092 101d | | Action Push_String_Extended,0x101d ; "Open Error: "
0d77 00de | | Load_Top At_Offset_6
0d78 e005 | | Load 0x0,0x5
0d79 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0d7a 025e | ^ | Execute Discrete,Convert
0d7b 1c01 | | Execute_Immediate Run_Utility,0x1
0d7c 01cc | | Execute Vector,Catenate
0d7d e003 | | Load 0x0,0x3
0d7e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0d7f 4800 |H | Short_Literal 0x0 ; Debug Table 0x2a.0x9 = 0xd7f,0x4
0d80 a5fc | | Store_Unchecked 0x2,-0x4
0d81 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0d82 00db | | Load_Top At_Offset_3 ; Debug Table 0x2a.0xa = 0xd82,0x5
0d83 e00e | | Load 0x0,0xe
0d84 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
0d85 4831 |H1 | Short_Literal 0x31
0d86 e00a | | Load 0x0,0xa
0d87 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0d88 01cc | | Execute Vector,Catenate
0d89 e5fd | | Load 0x2,-0x3
0d8a 01cc | | Execute Vector,Catenate
0d8b 4820 |H | Short_Literal 0x20
0d8c e00a | | Load 0x0,0xa
0d8d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0d8e 01cc | | Execute Vector,Catenate
0d8f e00e | | Load 0x0,0xe
0d90 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
0d91 01cc | | Execute Vector,Catenate
0d92 480e |H | Short_Literal 0xe
0d93 0092 0fe4 | | Action Push_String_Extended,0xfe4 ; "EMPTY"
0d95 e00a | | Load 0x0,0xa
0d96 180d | | Execute Package,Field_Execute,Field_Number 0xd
0d97 01cc | | Execute Vector,Catenate
0d98 e00e | | Load 0x0,0xe
0d99 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
0d9a 01cc | | Execute Vector,Catenate
0d9b e00e | | Load 0x0,0xe
0d9c 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
0d9d 01cc | | Execute Vector,Catenate
0d9e e402 | | Load 0x2,0x2
0d9f e20f | | Load 0x1,0xf
0da0 0119 | | Execute Any,Check_In_Formal_Type
0da1 821c | | Call 0x1,0x1c
0da2 00d1 | | Pop_Control Pop_Count_1
0da3 00db | | Load_Top At_Offset_3 ; Debug Table 0x2a.0xb = 0xda3,0x6
0da4 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0da5 700f |p | Jump_Nonzero 0xdb5
0da6 00db | | Load_Top At_Offset_3 ; Debug Table 0x2a.0xc = 0xda6,0x7
0da7 00de | | Load_Top At_Offset_6
0da8 e20f | | Load 0x1,0xf
0da9 0119 | | Execute Any,Check_In_Formal_Type
0daa 821e | | Call 0x1,0x1e
0dab 00d1 | | Pop_Control Pop_Count_1
0dac 00db | | Load_Top At_Offset_3 ; Debug Table 0x2a.0xd = 0xdac,0x8
0dad 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0dae 7006 |p | Jump_Nonzero 0xdb5
0daf 00db | | Load_Top At_Offset_3 ; Debug Table 0x2a.0xe = 0xdaf,0x9
0db0 00de | | Load_Top At_Offset_6
0db1 e20f | | Load 0x1,0xf
0db2 0119 | | Execute Any,Check_In_Formal_Type
0db3 821e | | Call 0x1,0x1e
0db4 00d1 | | Pop_Control Pop_Count_1
0db5 00db | | Load_Top At_Offset_3 ; Debug Table 0x2a.0xf = 0xdb5,0xa
0db6 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0db7 6818 |h | Jump_Zero 0xdd0
0db8 e5ff | | Load 0x2,-0x1 ; Debug Table 0x2a.0x10 = 0xdb8,0xb
0db9 0217 | | Execute Heap_Access,All_Reference
0dba 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0dbb 0092 101e | | Action Push_String_Extended,0x101e ; "Tape Error: "
0dbd 00dd | | Load_Top At_Offset_5
0dbe 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0dbf e005 | | Load 0x0,0x5
0dc0 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0dc1 025e | ^ | Execute Discrete,Convert
0dc2 1c01 | | Execute_Immediate Run_Utility,0x1
0dc3 01cc | | Execute Vector,Catenate
0dc4 e003 | | Load 0x0,0x3
0dc5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0dc6 4800 |H | Short_Literal 0x0 ; Debug Table 0x2a.0x11 = 0xdc6,0xc
0dc7 a5fc | | Store_Unchecked 0x2,-0x4
0dc8 e23b | ; | Load 0x1,0x3b ; Debug Table 0x2a.0x12 = 0xdc8,0xd
0dc9 00da | | Load_Top At_Offset_2
0dca e402 | | Load 0x2,0x2
0dcb 8265 | e | Call 0x1,0x65
0dcc c402 | | Store 0x2,0x2
0dcd 005b | [ | Store_Top Discrete,At_Offset_3
0dce 0059 | Y | Store_Top Discrete,At_Offset_1
0dcf 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0dd0 e23b | ; | Load 0x1,0x3b ; Debug Table 0x2a.0x13 = 0xdd0,0xe
0dd1 00da | | Load_Top At_Offset_2
0dd2 e402 | | Load 0x2,0x2
0dd3 8265 | e | Call 0x1,0x65
0dd4 c402 | | Store 0x2,0x2
0dd5 005b | [ | Store_Top Discrete,At_Offset_3
0dd6 0059 | Y | Store_Top Discrete,At_Offset_1
0dd7 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2a.0x14 = 0xdd7,0xf
0dd8 7003 |p | Jump_Nonzero 0xddc
0dd9 4801 |H | Short_Literal 0x1 ; Debug Table 0x2a.0x15 = 0xdd9,0x10
0dda a5fc | | Store_Unchecked 0x2,-0x4
0ddb 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0ddc e5ff | | Load 0x2,-0x1 ; Debug Table 0x2a.0x16 = 0xddc,0x11
0ddd 0217 | | Execute Heap_Access,All_Reference
0dde 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0ddf 0092 101e | | Action Push_String_Extended,0x101e ; "Tape Error: "
0de1 00db | | Load_Top At_Offset_3
0de2 e237 | 7 | Load 0x1,0x37
0de3 025e | ^ | Execute Discrete,Convert
0de4 1c01 | | Execute_Immediate Run_Utility,0x1
0de5 01cc | | Execute Vector,Catenate
0de6 e003 | | Load 0x0,0x3
0de7 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0de8 4800 |H | Short_Literal 0x0 ; Debug Table 0x2a.0x17 = 0xde8,0x12
0de9 a5fc | | Store_Unchecked 0x2,-0x4
0dea 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0deb 0000 0000 | | .BLANK 0000[0x5]
0df0 ; --------------------------------------------------------------------------------------
0df0 ; SUBPROGRAM
0df0 ; --------------------------------------------------------------------------------------
0df0 0df4 | | .CONST 0x0df4 ; Address of begin
0df1 0004 | | .CONST 0x0004 ; Address of exception handler
0df2 0002 | | .CONST 0x0002 ; Number of locals
0df3 INIT_0df0:
0df3 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x2b = .DEBUG 0x0df3,0x1a14,0x1002,0x0000,0x0033,0x73f4,0x0000,0x0ee0
; Debug Table 0x2b.0x0 = 0xdf3,0xffff
0df4 BODY_0df0:
0df4 00db | | Load_Top At_Offset_3 ; Debug Table 0x2b.0x1 = 0xdf4,0x1
0df5 0217 | | Execute Heap_Access,All_Reference
0df6 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0df7 4602 |F | Jump_Case 0x3
0df8 7802 |x | Jump 0xdfb ; case 0x0
0df9 7804 |x | Jump 0xdfe ; case 0x1
0dfa 7816 |x | Jump 0xe11 ; case 0x2
0dfb 4801 |H | Short_Literal 0x1 ; Debug Table 0x2b.0x2 = 0xdfb,0x2
0dfc 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0dfd 7832 |x2 | Jump 0xe30
0dfe 00dd | | Load_Top At_Offset_5 ; Debug Table 0x2b.0x3 = 0xdfe,0x3
0dff 4803 |H | Short_Literal 0x3
0e00 4804 |H | Short_Literal 0x4
0e01 0262 | b | Execute Discrete,In_Range
0e02 680b |h | Jump_Zero 0xe0e
0e03 00de | | Load_Top At_Offset_6
0e04 00dd | | Load_Top At_Offset_5
0e05 01df | | Execute Vector,Equal
0e06 7005 |p | Jump_Nonzero 0xe0c
0e07 00dc | | Load_Top At_Offset_4
0e08 e006 | | Load 0x0,0x6
0e09 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0e0a 01df | | Execute Vector,Equal
0e0b 7803 |x | Jump 0xe0f
0e0c 4801 |H | Short_Literal 0x1
0e0d 7801 |x | Jump 0xe0f
0e0e 4800 |H | Short_Literal 0x0
0e0f 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0e10 781f |x | Jump 0xe30
0e11 00dd | | Load_Top At_Offset_5 ; Debug Table 0x2b.0x4 = 0xe11,0x4
0e12 0f04 | | Execute_Immediate Equal,0x4
0e13 681a |h | Jump_Zero 0xe2e
0e14 00dc | | Load_Top At_Offset_4
0e15 e5fc | | Load 0x2,-0x4
0e16 01df | | Execute Vector,Equal
0e17 7005 |p | Jump_Nonzero 0xe1d
0e18 00dc | | Load_Top At_Offset_4
0e19 e006 | | Load 0x0,0x6
0e1a 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0e1b 01df | | Execute Vector,Equal
0e1c 7801 |x | Jump 0xe1e
0e1d 4801 |H | Short_Literal 0x1
0e1e 680f |h | Jump_Zero 0xe2e
0e1f 00db | | Load_Top At_Offset_3
0e20 0217 | | Execute Heap_Access,All_Reference
0e21 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0e22 e5fb | | Load 0x2,-0x5
0e23 01df | | Execute Vector,Equal
0e24 7007 |p | Jump_Nonzero 0xe2c
0e25 00db | | Load_Top At_Offset_3
0e26 0217 | | Execute Heap_Access,All_Reference
0e27 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0e28 e006 | | Load 0x0,0x6
0e29 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0e2a 01df | | Execute Vector,Equal
0e2b 7803 |x | Jump 0xe2f
0e2c 4801 |H | Short_Literal 0x1
0e2d 7801 |x | Jump 0xe2f
0e2e 4800 |H | Short_Literal 0x0
0e2f 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0e30 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2b.0x5 = 0xe30,0x5
0e31 00dc | | Load_Top At_Offset_4
0e32 0217 | | Execute Heap_Access,All_Reference
0e33 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0e34 0f00 | | Execute_Immediate Equal,0x0
0e35 0f00 | | Execute_Immediate Equal,0x0
0e36 0279 | y | Execute Discrete,And
0e37 681d |h | Jump_Zero 0xe55
0e38 00de | | Load_Top At_Offset_6 ; Debug Table 0x2b.0x6 = 0xe38,0x6
0e39 e006 | | Load 0x0,0x6
0e3a 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0e3b 01df | | Execute Vector,Equal
0e3c 7004 |p | Jump_Nonzero 0xe41
0e3d 00de | | Load_Top At_Offset_6 ; Debug Table 0x2b.0x7 = 0xe3d,0x7
0e3e 00dc | | Load_Top At_Offset_4
0e3f 0217 | | Execute Heap_Access,All_Reference
0e40 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0e41 00db | | Load_Top At_Offset_3 ; Debug Table 0x2b.0x8 = 0xe41,0x8
0e42 0217 | | Execute Heap_Access,All_Reference
0e43 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0e44 0f02 | | Execute_Immediate Equal,0x2
0e45 680f |h | Jump_Zero 0xe55
0e46 e5fb | | Load 0x2,-0x5
0e47 e006 | | Load 0x0,0x6
0e48 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0e49 01df | | Execute Vector,Equal
0e4a 700a |p | Jump_Nonzero 0xe55
0e4b e5fb | | Load 0x2,-0x5
0e4c 00dc | | Load_Top At_Offset_4
0e4d 0217 | | Execute Heap_Access,All_Reference
0e4e 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0e4f 01df | | Execute Vector,Equal
0e50 7004 |p | Jump_Nonzero 0xe55
0e51 e5fb | | Load 0x2,-0x5 ; Debug Table 0x2b.0x9 = 0xe51,0x9
0e52 00dc | | Load_Top At_Offset_4
0e53 0217 | | Execute Heap_Access,All_Reference
0e54 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0e55 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2b.0xa = 0xe55,0xa
0e56 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0e57 0000 | | .XXX[0x1]
0e58 ; --------------------------------------------------------------------------------------
0e58 ; SUBPROGRAM
0e58 ; --------------------------------------------------------------------------------------
0e58 0e5b | [ | .CONST 0x0e5b ; Address of begin
0e59 0004 | | .CONST 0x0004 ; Address of exception handler
0e5a 0001 | | .CONST 0x0001 ; Number of locals
0e5b BODY_0e58:
0e5b INIT_0e58:
0e5b 00de | | Load_Top At_Offset_6 ; Debug Table 0x2c = .DEBUG 0x0e5b,0x1a2c,0x1002,0x0000,0x0033,0x73f4,0x0000,0x0fac
; Debug Table 0x2c.0x0 = 0xe5b,0x1
0e5c 00de | | Load_Top At_Offset_6
0e5d 00de | | Load_Top At_Offset_6
0e5e 00de | | Load_Top At_Offset_6
0e5f 00de | | Load_Top At_Offset_6
0e60 8273 | s | Call 0x1,0x73
0e61 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0e62 0000 0000 | | .BLANK 0000[0x6]
0e68 ; --------------------------------------------------------------------------------------
0e68 ; SUBPROGRAM
0e68 ; --------------------------------------------------------------------------------------
0e68 0e6c | l | .CONST 0x0e6c ; Address of begin
0e69 0004 | | .CONST 0x0004 ; Address of exception handler
0e6a 0002 | | .CONST 0x0002 ; Number of locals
0e6b INIT_0e68:
0e6b 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x2d = .DEBUG 0x0e6b,0x1a30,0x1002,0x0000,0x0033,0x73f4,0x0000,0x0fd8
; Debug Table 0x2d.0x0 = 0xe6b,0xffff
0e6c BODY_0e68:
0e6c 00de | | Load_Top At_Offset_6 ; Debug Table 0x2d.0x1 = 0xe6c,0x1
0e6d 4802 |H | Short_Literal 0x2
0e6e 4804 |H | Short_Literal 0x4
0e6f 0262 | b | Execute Discrete,In_Range
0e70 6804 |h | Jump_Zero 0xe75
0e71 00dd | | Load_Top At_Offset_5
0e72 e5fb | | Load 0x2,-0x5
0e73 01df | | Execute Vector,Equal
0e74 7801 |x | Jump 0xe76
0e75 4800 |H | Short_Literal 0x0
0e76 700a |p | Jump_Nonzero 0xe81
0e77 00de | | Load_Top At_Offset_6
0e78 0f02 | | Execute_Immediate Equal,0x2
0e79 6805 |h | Jump_Zero 0xe7f
0e7a 00dd | | Load_Top At_Offset_5
0e7b e006 | | Load 0x0,0x6
0e7c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0e7d 01df | | Execute Vector,Equal
0e7e 7803 |x | Jump 0xe82
0e7f 4800 |H | Short_Literal 0x0
0e80 7801 |x | Jump 0xe82
0e81 4801 |H | Short_Literal 0x1
0e82 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0e83 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2d.0x2 = 0xe83,0x2
0e84 680c |h | Jump_Zero 0xe91
0e85 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x2d.0x3 = 0xe85,0x3
0e86 e5fb | | Load 0x2,-0x5
0e87 00de | | Load_Top At_Offset_6
0e88 00de | | Load_Top At_Offset_6
0e89 8272 | r | Call 0x1,0x72
0e8a 0059 | Y | Store_Top Discrete,At_Offset_1
0e8b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2d.0x4 = 0xe8b,0x4
0e8c 6804 |h | Jump_Zero 0xe91
0e8d e5fb | | Load 0x2,-0x5 ; Debug Table 0x2d.0x5 = 0xe8d,0x5
0e8e 00dc | | Load_Top At_Offset_4
0e8f 0217 | | Execute Heap_Access,All_Reference
0e90 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0e91 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2d.0x6 = 0xe91,0x6
0e92 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
0e93 0000 0000 | | .BLANK 0000[0x5]
0e98 ; --------------------------------------------------------------------------------------
0e98 ; SUBPROGRAM
0e98 ; --------------------------------------------------------------------------------------
0e98 0e9c | | .CONST 0x0e9c ; Address of begin
0e99 0004 | | .CONST 0x0004 ; Address of exception handler
0e9a 0002 | | .CONST 0x0002 ; Number of locals
0e9b INIT_0e98:
0e9b 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x2e = .DEBUG 0x0e9b,0x1a40,0x1002,0x0000,0x0033,0x73f4,0x0000,0x103d
; Debug Table 0x2e.0x0 = 0xe9b,0xffff
0e9c BODY_0e98:
0e9c 00db | | Load_Top At_Offset_3 ; Debug Table 0x2e.0x1 = 0xe9c,0x1
0e9d 0217 | | Execute Heap_Access,All_Reference
0e9e 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0e9f 4602 |F | Jump_Case 0x3
0ea0 7802 |x | Jump 0xea3 ; case 0x0
0ea1 7811 |x | Jump 0xeb3 ; case 0x1
0ea2 7808 |x | Jump 0xeab ; case 0x2
0ea3 e5fa | | Load 0x2,-0x6 ; Debug Table 0x2e.0x2 = 0xea3,0x2
0ea4 e5fb | | Load 0x2,-0x5
0ea5 e5fc | | Load 0x2,-0x4
0ea6 e5fd | | Load 0x2,-0x3
0ea7 e5ff | | Load 0x2,-0x1
0ea8 8273 | s | Call 0x1,0x73
0ea9 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0eaa 7810 |x | Jump 0xebb
0eab e5fa | | Load 0x2,-0x6 ; Debug Table 0x2e.0x3 = 0xeab,0x3
0eac e5fb | | Load 0x2,-0x5
0ead e5fc | | Load 0x2,-0x4
0eae e5fd | | Load 0x2,-0x3
0eaf e5ff | | Load 0x2,-0x1
0eb0 8274 | t | Call 0x1,0x74
0eb1 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0eb2 7808 |x | Jump 0xebb
0eb3 e5fa | | Load 0x2,-0x6 ; Debug Table 0x2e.0x4 = 0xeb3,0x4
0eb4 e5fb | | Load 0x2,-0x5
0eb5 e5fc | | Load 0x2,-0x4
0eb6 e5fd | | Load 0x2,-0x3
0eb7 e5fe | | Load 0x2,-0x2
0eb8 e5ff | | Load 0x2,-0x1
0eb9 8275 | u | Call 0x1,0x75
0eba 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0ebb 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2e.0x5 = 0xebb,0x5
0ebc 6814 |h | Jump_Zero 0xed1
0ebd 00db | | Load_Top At_Offset_3 ; Debug Table 0x2e.0x6 = 0xebd,0x6
0ebe 0217 | | Execute Heap_Access,All_Reference
0ebf 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0ec0 e003 | | Load 0x0,0x3
0ec1 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0ec2 00db | | Load_Top At_Offset_3 ; Debug Table 0x2e.0x7 = 0xec2,0x7
0ec3 0219 | | Execute Heap_Access,All_Read
0ec4 00d8 | | Load_Top At_Offset_0
0ec5 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0ec6 0120 | | Execute Any,Is_Value
0ec7 6803 |h | Jump_Zero 0xecb
0ec8 e003 | | Load 0x0,0x3
0ec9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0eca 7802 |x | Jump 0xecd
0ecb 00d8 | | Load_Top At_Offset_0
0ecc 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0ecd 8264 | d | Call 0x1,0x64
0ece 00d9 | | Load_Top At_Offset_1
0ecf 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0ed0 00d1 | | Pop_Control Pop_Count_1
0ed1 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2e.0x8 = 0xed1,0x8
0ed2 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
0ed3 0000 0000 | | .BLANK 0000[0x5]
0ed8 ; --------------------------------------------------------------------------------------
0ed8 ; SUBPROGRAM
0ed8 ; --------------------------------------------------------------------------------------
0ed8 0edb | | .CONST 0x0edb ; Address of begin
0ed9 0004 | | .CONST 0x0004 ; Address of exception handler
0eda 0001 | | .CONST 0x0001 ; Number of locals
0edb BODY_0ed8:
0edb INIT_0ed8:
0edb e25a | Z | Load 0x1,0x5a ; Debug Table 0x2f = .DEBUG 0x0edb,0x1a54,0x1001,0x0000,0x0033,0x73f4,0x0000,0x10b5
; Debug Table 0x2f.0x0 = 0xedb,0x1
0edc 00dc | | Load_Top At_Offset_4
0edd 8211 | | Call 0x1,0x11
0ede 0279 | y | Execute Discrete,And
0edf 6803 |h | Jump_Zero 0xee3
0ee0 4801 |H | Short_Literal 0x1 ; Debug Table 0x2f.0x1 = 0xee0,0x2
0ee1 0055 | U | Store_Top_Unchecked Discrete,At_Offset_5
0ee2 7804 |x | Jump 0xee7
0ee3 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x2f.0x2 = 0xee3,0x3
0ee4 00dc | | Load_Top At_Offset_4
0ee5 8212 | | Call 0x1,0x12
0ee6 005d | ] | Store_Top Discrete,At_Offset_5
0ee7 00dc | | Load_Top At_Offset_4 ; Debug Table 0x2f.0x3 = 0xee7,0x4
0ee8 6804 |h | Jump_Zero 0xeed
0ee9 4801 |H | Short_Literal 0x1 ; Debug Table 0x2f.0x4 = 0xee9,0x5
0eea 00db | | Load_Top At_Offset_3
0eeb 0217 | | Execute Heap_Access,All_Reference
0eec 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0eed 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0eee 0000 0000 | | .XXX[0x2]
0ef0 ; --------------------------------------------------------------------------------------
0ef0 ; SUBPROGRAM
0ef0 ; --------------------------------------------------------------------------------------
0ef0 0ef5 | | .CONST 0x0ef5 ; Address of begin
0ef1 0004 | | .CONST 0x0004 ; Address of exception handler
0ef2 0002 | | .CONST 0x0002 ; Number of locals
0ef3 INIT_0ef0:
0ef3 029f 0fcb | | Declare_Subprogram INIT_0fc8,For_Call ; Debug Table 0x30 = .DEBUG 0x0ef3,0x1a60,0x1001,0x0000,0x0033,0x73f4,0x0000,0x10e9
0ef5 BODY_0ef0:
0ef5 00db | | Load_Top At_Offset_3 ; Debug Table 0x30.0x0 = 0xef5,0x1
0ef6 0217 | | Execute Heap_Access,All_Reference
0ef7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0ef8 6805 |h | Jump_Zero 0xefe
0ef9 8402 | | Call 0x2,0x2 ; Debug Table 0x30.0x1 = 0xef9,0x2
0efa 4800 |H | Short_Literal 0x0 ; Debug Table 0x30.0x2 = 0xefa,0x3
0efb 00dc | | Load_Top At_Offset_4
0efc 0217 | | Execute Heap_Access,All_Reference
0efd 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0efe 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0eff 0000 | | .XXX[0x1]
0f00 ; --------------------------------------------------------------------------------------
0f00 ; SUBPROGRAM
0f00 ; --------------------------------------------------------------------------------------
0f00 0f16 | | .CONST 0x0f16 ; Address of begin
0f01 0004 | | .CONST 0x0004 ; Address of exception handler
0f02 000b | | .CONST 0x000b ; Number of locals
0f03 INIT_0f00:
0f03 e237 | 7 | Load 0x1,0x37 ; Debug Table 0x31 = .DEBUG 0x0f03,0x1a68,0x1001,0x0000,0x0033,0x73f4,0x0000,0x1113
; Debug Table 0x31.0x0 = 0xf03,0xffff
0f04 e006 | | Load 0x0,0x6 ; Debug Table 0x31.0x1 = 0xf04,0xfffe
0f05 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0f06 0337 | 7 | Declare_Variable Array
0f07 e006 | | Load 0x0,0x6 ; Debug Table 0x31.0x2 = 0xf07,0xfffd
0f08 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0f09 0337 | 7 | Declare_Variable Array
0f0a 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x31.0x3 = 0xf0a,0xfffc
0f0b e23c | < | Load 0x1,0x3c ; Debug Table 0x31.0x4 = 0xf0b,0xfffb
0f0c 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x31.0x5 = 0xf0c,0xfffa
0f0d e23b | ; | Load 0x1,0x3b ; Debug Table 0x31.0x6 = 0xf0d,0xfff9
0f0e e20f | | Load 0x1,0xf ; Debug Table 0x31.0x7 = 0xf0e,0xfff8
0f0f 02c7 | | Declare_Variable Any
0f10 00d8 | | Load_Top At_Offset_0
0f11 1c00 | | Execute_Immediate Run_Utility,0x0
0f12 e005 | | Load 0x0,0x5 ; Debug Table 0x31.0x8 = 0xf12,0xfff7
0f13 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0f14 e005 | | Load 0x0,0x5 ; Debug Table 0x31.0x9 = 0xf14,0xfff6
0f15 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0f16 BODY_0f00:
0f16 4800 |H | Short_Literal 0x0 ; Debug Table 0x31.0xa = 0xf16,0x1
0f17 a5fb | | Store_Unchecked 0x2,-0x5
0f18 e5ff | | Load 0x2,-0x1 ; Debug Table 0x31.0xb = 0xf18,0x2
0f19 0217 | | Execute Heap_Access,All_Reference
0f1a 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0f1b 7037 |p7 | Jump_Nonzero 0xf53
0f1c 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x31.0xc = 0xf1c,0x3
0f1d e005 | | Load 0x0,0x5
0f1e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0f1f 00dc | | Load_Top At_Offset_4
0f20 0120 | | Execute Any,Is_Value
0f21 6802 |h | Jump_Zero 0xf24
0f22 e20f | | Load 0x1,0xf
0f23 7803 |x | Jump 0xf27
0f24 00dc | | Load_Top At_Offset_4
0f25 e20f | | Load 0x1,0xf
0f26 0119 | | Execute Any,Check_In_Formal_Type
0f27 e5fe | | Load 0x2,-0x2
0f28 8215 | | Call 0x1,0x15
0f29 c409 | | Store 0x2,0x9
0f2a 005b | [ | Store_Top Discrete,At_Offset_3
0f2b c405 | | Store 0x2,0x5
0f2c 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x31.0xd = 0xf2c,0x4
0f2d 4604 |F | Jump_Case 0x5
0f2e 7804 |x | Jump 0xf33 ; case 0x0
0f2f 781b |x | Jump 0xf4b ; case 0x1
0f30 781c |x | Jump 0xf4d ; case 0x2
0f31 7819 |x | Jump 0xf4b ; case 0x3
0f32 781a |x | Jump 0xf4d ; case 0x4
0f33 00de | | Load_Top At_Offset_6 ; Debug Table 0x31.0xe = 0xf33,0x5
0f34 e5ff | | Load 0x2,-0x1
0f35 0217 | | Execute Heap_Access,All_Reference
0f36 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0f37 0f00 | | Execute_Immediate Equal,0x0
0f38 0278 | x | Execute Discrete,Or
0f39 a5fc | | Store_Unchecked 0x2,-0x4
0f3a e5fc | | Load 0x2,-0x4 ; Debug Table 0x31.0xf = 0xf3a,0x6
0f3b 7003 |p | Jump_Nonzero 0xf3f
0f3c e5fe | | Load 0x2,-0x2 ; Debug Table 0x31.0x10 = 0xf3c,0x7
0f3d e5ff | | Load 0x2,-0x1
0f3e 8278 | x | Call 0x1,0x78
0f3f e005 | | Load 0x0,0x5 ; Debug Table 0x31.0x11 = 0xf3f,0x8
0f40 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0f41 00db | | Load_Top At_Offset_3
0f42 e20f | | Load 0x1,0xf
0f43 0119 | | Execute Any,Check_In_Formal_Type
0f44 8216 | | Call 0x1,0x16
0f45 0059 | Y | Store_Top Discrete,At_Offset_1
0f46 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x31.0x12 = 0xf46,0x9
0f47 6802 |h | Jump_Zero 0xf4a
0f48 4887 |H | Short_Literal 0x87
0f49 0257 | W | Execute Discrete,Raise
0f4a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0f4b 4887 |H | Short_Literal 0x87 ; Debug Table 0x31.0x13 = 0xf4b,0xa
0f4c 0257 | W | Execute Discrete,Raise
0f4d e5fe | | Load 0x2,-0x2 ; Debug Table 0x31.0x14 = 0xf4d,0xc
0f4e e5ff | | Load 0x2,-0x1
0f4f 8278 | x | Call 0x1,0x78
0f50 4800 |H | Short_Literal 0x0 ; Debug Table 0x31.0x15 = 0xf50,0xd
0f51 a5fc | | Store_Unchecked 0x2,-0x4
0f52 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0f53 e237 | 7 | Load 0x1,0x37 ; Debug Table 0x31.0x16 = 0xf53,0xe
0f54 e23b | ; | Load 0x1,0x3b
0f55 00e1 | | Load_Encached Boolean_Cache
0f56 e404 | | Load 0x2,0x4
0f57 e403 | | Load 0x2,0x3
0f58 e23c | < | Load 0x1,0x3c
0f59 00e1 | | Load_Encached Boolean_Cache
0f5a e5fe | | Load 0x2,-0x2
0f5b 8267 | g | Call 0x1,0x67
0f5c c405 | | Store 0x2,0x5
0f5d c406 | | Store 0x2,0x6
0f5e 00d2 | | Pop_Control Pop_Count_2
0f5f c407 | | Store 0x2,0x7
0f60 005d | ] | Store_Top Discrete,At_Offset_5
0f61 c402 | | Store 0x2,0x2
0f62 00db | | Load_Top At_Offset_3 ; Debug Table 0x31.0x17 = 0xf62,0xf
0f63 a5fb | | Store_Unchecked 0x2,-0x5
0f64 e402 | | Load 0x2,0x2 ; Debug Table 0x31.0x18 = 0xf64,0x10
0f65 4603 |F | Jump_Case 0x4
0f66 7803 |x | Jump 0xf6a ; case 0x0
0f67 781f |x | Jump 0xf87 ; case 0x1
0f68 781e |x | Jump 0xf87 ; case 0x2
0f69 781d |x | Jump 0xf87 ; case 0x3
0f6a 00de | | Load_Top At_Offset_6 ; Debug Table 0x31.0x19 = 0xf6a,0x11
0f6b e5ff | | Load 0x2,-0x1
0f6c 0217 | | Execute Heap_Access,All_Reference
0f6d 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0f6e 0f00 | | Execute_Immediate Equal,0x0
0f6f 0278 | x | Execute Discrete,Or
0f70 6808 |h | Jump_Zero 0xf79
0f71 e404 | | Load 0x2,0x4
0f72 e403 | | Load 0x2,0x3
0f73 e406 | | Load 0x2,0x6
0f74 e5fd | | Load 0x2,-0x3
0f75 e5fe | | Load 0x2,-0x2
0f76 e5ff | | Load 0x2,-0x1
0f77 8276 | v | Call 0x1,0x76
0f78 7801 |x | Jump 0xf7a
0f79 4800 |H | Short_Literal 0x0
0f7a a5fc | | Store_Unchecked 0x2,-0x4
0f7b e5fc | | Load 0x2,-0x4 ; Debug Table 0x31.0x1a = 0xf7b,0x12
0f7c 6806 |h | Jump_Zero 0xf83
0f7d e5ff | | Load 0x2,-0x1 ; Debug Table 0x31.0x1b = 0xf7d,0x13
0f7e 0217 | | Execute Heap_Access,All_Reference
0f7f 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0f80 e5fd | | Load 0x2,-0x3
0f81 01d4 | | Execute Vector,Structure_Write
0f82 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0f83 e5fe | | Load 0x2,-0x2 ; Debug Table 0x31.0x1c = 0xf83,0x14
0f84 e5ff | | Load 0x2,-0x1
0f85 8278 | x | Call 0x1,0x78
0f86 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0f87 e5fe | | Load 0x2,-0x2 ; Debug Table 0x31.0x1d = 0xf87,0x15
0f88 e5ff | | Load 0x2,-0x1
0f89 8278 | x | Call 0x1,0x78
0f8a 4800 |H | Short_Literal 0x0 ; Debug Table 0x31.0x1e = 0xf8a,0x16
0f8b a5fc | | Store_Unchecked 0x2,-0x4
0f8c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0f8d 0000 0000 | | .XXX[0x3]
0f8f 0000 | |
0f90 ; --------------------------------------------------------------------------------------
0f90 ; SUBPROGRAM
0f90 ; --------------------------------------------------------------------------------------
0f90 0f93 | | .CONST 0x0f93 ; Address of begin
0f91 0004 | | .CONST 0x0004 ; Address of exception handler
0f92 0001 | | .CONST 0x0001 ; Number of locals
0f93 BODY_0f90:
0f93 INIT_0f90:
0f93 e25a | Z | Load 0x1,0x5a ; Debug Table 0x32 = .DEBUG 0x0f93,0x1aa8,0x1001,0x0000,0x0033,0x73f4,0x0000,0x121e
; Debug Table 0x32.0x0 = 0xf93,0x1
0f94 681a |h | Jump_Zero 0xfaf
0f95 00cf | | Action Mark_Auxiliary
0f96 00db | | Load_Top At_Offset_3 ; Debug Table 0x32.0x1 = 0xf96,0x2
; Debug Table 0x32.0x2 = 0xf96,0x3
0f97 0217 | | Execute Heap_Access,All_Reference
0f98 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0f99 e25b | [ | Load 0x1,0x5b
0f9a 0092 101f | | Action Push_String_Extended,0x101f ; "On which drive? "
0f9c e249 | I | Load 0x1,0x49
0f9d 1d4a | J | Execute_Immediate Reference_Lex_1,0x4a
0f9e 8004 | | Call 0x0,0x4
0f9f 0055 | U | Store_Top_Unchecked Discrete,At_Offset_5
0fa0 00dc | | Load_Top At_Offset_4 ; Debug Table 0x32.0x3 = 0xfa0,0x4
0fa1 e257 | W | Load 0x1,0x57
0fa2 01d7 | | Execute Vector,Field_Read
0fa3 7009 |p | Jump_Nonzero 0xfad
0fa4 00db | | Load_Top At_Offset_3 ; Debug Table 0x32.0x4 = 0xfa4,0x5
0fa5 0217 | | Execute Heap_Access,All_Reference
0fa6 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0fa7 0092 1020 | | Action Push_String_Extended,0x1020 ; "Drive doesn't exist"
0fa9 e003 | | Load 0x0,0x3
0faa 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0fab 00c9 | | Action Pop_Auxiliary_Loop
0fac 7fe9 | | Jump 0xf96
0fad 00ce | | Action Pop_Auxiliary
0fae 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0faf e25b | [ | Load 0x1,0x5b ; Debug Table 0x32.0x5 = 0xfaf,0x6
0fb0 0054 | T | Store_Top_Unchecked Discrete,At_Offset_4
0fb1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0fb2 0000 0000 | | .BLANK 0000[0x6]
0fb8 ; --------------------------------------------------------------------------------------
0fb8 ; SUBPROGRAM
0fb8 ; --------------------------------------------------------------------------------------
0fb8 0fbb | | .CONST 0x0fbb ; Address of begin
0fb9 0004 | | .CONST 0x0004 ; Address of exception handler
0fba 0001 | | .CONST 0x0001 ; Number of locals
0fbb BODY_0fb8:
0fbb INIT_0fb8:
0fbb 00da | | Load_Top At_Offset_2 ; Debug Table 0x33 = .DEBUG 0x0fbb,0x1ab6,0x1002,0x0000,0x0033,0x73f4,0x0000,0x1990
; Debug Table 0x33.0x0 = 0xfbb,0x1
0fbc 6805 |h | Jump_Zero 0xfc2
0fbd 0092 1021 | !| Action Push_String_Extended,0x1021 ; "*** Volume is INCOMPLETE *** "
; Debug Table 0x33.0x1 = 0xfbd,0x2
0fbf e00a | | Load 0x0,0xa
0fc0 180f | | Execute Package,Field_Execute,Field_Number 0xf
0fc1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0fc2 e006 | | Load 0x0,0x6 ; Debug Table 0x33.0x2 = 0xfc2,0x3
0fc3 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0fc4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0fc5 0000 0000 | | .XXX[0x3]
0fc7 0000 | |
0fc8 ; --------------------------------------------------------------------------------------
0fc8 ; SUBPROGRAM
0fc8 ; --------------------------------------------------------------------------------------
0fc8 0fcb | | .CONST 0x0fcb ; Address of begin
0fc9 0fce | | .CONST 0x0fce ; Address of exception handler
0fca 0001 | | .CONST 0x0001 ; Number of locals
0fcb BODY_0fc8:
0fcb INIT_0fc8:
0fcb e5fe | | Load 0x2,-0x2 ; Debug Table 0x34 = .DEBUG 0x0fcb,0x1abe,0x1004,0x0000,0x0033,0x73f4,0x0000,0x1106
; Debug Table 0x34.0x0 = 0xfcb,0x1
0fcc 8213 | | Call 0x1,0x13
0fcd 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0fce TRAP_0fc8:
0fce 0007 | | Action Break_Optional
0fcf 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; Debug Table 0x34.0x1 = 0xfcf,0x2
0fd0 ; --------------------------------------------------------------------------------------
0fd0 ; STRING TABLE
0fd0 ; --------------------------------------------------------------------------------------
0fd0 00a6 | | .STRTAB 0x00a6->0x1023 ; "YES"
0fd1 00a7 | | .STRTAB 0x00a7->0x1024 ; "NO"
0fd2 00a7 | | .STRTAB 0x00a7->0x1025 ; "SUCCESSFUL"
0fd3 00af | | .STRTAB 0x00af->0x102a ; "UNIT_IS_BAD"
0fd4 00b8 | | .STRTAB 0x00b8->0x1030 ; "NOT_ON_LINE"
0fd5 00c1 | | .STRTAB 0x00c1->0x1035 ; "TAPE_IS_BAD"
0fd6 00ca | | .STRTAB 0x00ca->0x103b ; "NONE"
0fd7 00cc | | .STRTAB 0x00cc->0x103d ; "USE_EXISTING_VOLUME_IDS"
0fd8 00e1 | | .STRTAB 0x00e1->0x1048 ; "AUTO_GENERATE"
0fd9 00ec | | .STRTAB 0x00ec->0x104f ; "OPERATOR_SUPPLIED"
0fda 00fb | | .STRTAB 0x00fb->0x1057 ; "TRY_AGAIN"
0fdb 0102 | | .STRTAB 0x0102->0x105c ; "NO_DRIVE_AVAILABLE"
0fdc 0112 | | .STRTAB 0x0112->0x1065 ; "DESIRED_DRIVE_UNAVAILABLE"
0fdd 0129 | ) | .STRTAB 0x0129->0x1071 ; "DESIRED_VOLUME_NOT_FOUND"
0fde 013f | ? | .STRTAB 0x013f->0x107d ; "VOL_ACCESS_DENIED"
0fdf 014e | N | .STRTAB 0x014e->0x1086 ; "UNKNOWN"
0fe0 0153 | S | .STRTAB 0x0153->0x1089 ; "PE_1600CPI"
0fe1 015b | [ | .STRTAB 0x015b->0x108e ; "GCR_6250CPI"
0fe2 0164 | d | .STRTAB 0x0164->0x1094 ; "SCRATCH"
0fe3 0169 | i | .STRTAB 0x0169->0x1097 ; "UNLABELED_TAPE"
0fe4 0175 | u | .STRTAB 0x0175->0x109e ; "EMPTY"
0fe5 0178 | x | .STRTAB 0x0178->0x10a1 ; "STRAIGHT_ANSI"
0fe6 0183 | | .STRTAB 0x0183->0x10a7 ; "CHAINED_ANSI"
0fe7 018d | | .STRTAB 0x018d->0x10ad ; "\x0a\x0d"
0fe8 018d | | .STRTAB 0x018d->0x10ae ; "\x07"
0fe9 018c | | .STRTAB 0x018c->0x10af ; "The drive was already allocated to you"
0fea 01b0 | | .STRTAB 0x01b0->0x10c2 ; "A mount request has been issued and is awaiting the operator."
0feb 01eb | | .STRTAB 0x01eb->0x10e0 ; "Please Load Tape"
0fec 01f9 | | .STRTAB 0x01f9->0x10e8 ; "Is Tape mounted and ready to read labels? "
0fed 0221 | ! | .STRTAB 0x0221->0x10fd ; "Drive"
0fee 0224 | $ | .STRTAB 0x0224->0x1100 ; " is busy"
0fef 022a | * | .STRTAB 0x022a->0x1104 ; "Info on tape mounted on drive"
0ff0 0245 | E | .STRTAB 0x0245->0x1112 ; " is:"
0ff1 0247 | G | .STRTAB 0x0247->0x1114 ; "Tape is write protected"
0ff2 025c | \ | .STRTAB 0x025c->0x1120 ; "Tape will be written in "
0ff3 0272 | r | .STRTAB 0x0272->0x112c ; ". If not correct, change "
0ff4 028a | | .STRTAB 0x028a->0x1139 ; "at drive."
0ff5 0291 | | .STRTAB 0x0291->0x113d ; "Volume id of tape is now: "
0ff6 02a9 | | .STRTAB 0x02a9->0x114a ; "Error encountered while reading labels: "
0ff7 02cf | | .STRTAB 0x02cf->0x115e ; "Why not? "
0ff8 02d6 | | .STRTAB 0x02d6->0x1163 ; "The mount request has been answered."
0ff9 02f8 | | .STRTAB 0x02f8->0x1175 ; "The mount request has been rejected: "
0ffa 031b | | .STRTAB 0x031b->0x1187 ; "Continuation volume needed."
0ffb 0334 | 4 | .STRTAB 0x0334->0x1195 ; "Volume id list is exhausted."
0ffc 034e | N | .STRTAB 0x034e->0x11a3 ; "Operator Tape Error, Tape: "
0ffd 0367 | g | .STRTAB 0x0367->0x11b0 ; " Error: "
0ffe 036d | m | .STRTAB 0x036d->0x11b4 ; "Please Dismount Tape on Drive"
0fff 0388 | | .STRTAB 0x0388->0x11c3 ; "The volume has been unloaded"
1000 03a2 | | .STRTAB 0x03a2->0x11d1 ; "*** Complaint Dept. ***"
1001 03b7 | | .STRTAB 0x03b7->0x11dc ; "Please Load Tape on Drive"
1002 03ce | | .STRTAB 0x03ce->0x11e9 ; "Volume_Id="
1003 03d6 | | .STRTAB 0x03d6->0x11ee ; "Tape_Unloaded"
1004 03e1 | | .STRTAB 0x03e1->0x11f4 ; "Tape_Handling"
1005 03ec | | .STRTAB 0x03ec->0x11fb ; "Mount_Request_Issued"
1006 03fe | | .STRTAB 0x03fe->0x1205 ; ",Type_Of_Drive=8mm"
1007 040e | | .STRTAB 0x040e->0x120e ; "Tape_Mounted"
1008 0418 | | .STRTAB 0x0418->0x1214 ; ",Type_Of_Drive=9Track,Density="
1009 0434 | 4 | .STRTAB 0x0434->0x1223 ; " (Kind of Drive => 8mm,"
100a 044c | L | .STRTAB 0x044c->0x1230 ; " (Kind of Drive => 9 TRACK,"
100b 0468 | h | .STRTAB 0x0468->0x123f ; " Kind of Tape => "
100c 047c | | | .STRTAB 0x047c->0x124a ; " (Kind of Tape => "
100d 0490 | | .STRTAB 0x0490->0x1255 ; " Direction => "
100e 04a4 | | .STRTAB 0x04a4->0x1260 ; " Volume Id => "
100f 04b8 | | .STRTAB 0x04b8->0x126b ; " Volume Set Name => "
1010 04cc | | .STRTAB 0x04cc->0x1276 ; " Additional Info => "
1011 04e0 | | .STRTAB 0x04e0->0x1281 ; " Writeable => "
1012 04f4 | | .STRTAB 0x04f4->0x128c ; ")"
1013 04f3 | | .STRTAB 0x04f3->0x128c ; "Max volume id length is 6 alphanumeric characters."
1014 0523 | # | .STRTAB 0x0523->0x12a5 ; "Illegal character found."
1015 0539 | 9 | .STRTAB 0x0539->0x12b1 ; "Characters must be alphanumeric separated by commas or blanks."
1016 0575 | u | .STRTAB 0x0575->0x12d0 ; "What should the volume id handling mode be? "
1017 059f | | .STRTAB 0x059f->0x12e6 ; "Please supply list of volume ids. "
1018 05bf | | .STRTAB 0x05bf->0x12f7 ; "Is this list correct? "
1019 05d3 | | .STRTAB 0x05d3->0x1302 ; "Request does not match tape."
101a 05ed | | .STRTAB 0x05ed->0x1310 ; "OK to read volume? "
101b 05fe | | .STRTAB 0x05fe->0x131a ; "OK to overwrite volume? "
101c 0614 | | .STRTAB 0x0614->0x1326 ; "Volume id is needed."
101d 0626 | & | .STRTAB 0x0626->0x1330 ; "Open Error: "
101e 0630 | 0 | .STRTAB 0x0630->0x1336 ; "Tape Error: "
101f 063a | : | .STRTAB 0x063a->0x133c ; "On which drive? "
1020 0648 | H | .STRTAB 0x0648->0x1344 ; "Drive doesn't exist"
1021 0659 | Y | .STRTAB 0x0659->0x134d ; "*** Volume is INCOMPLETE *** "
1022 0675 | u | .STREND 0x0675->0x135c
1023 5945 534e |YESN| .STRTAB_STRINGS
135d 0000 0000 | | .XXX[0x3]
135f 0000 | |
1360 ; --------------------------------------------------------------------------------------
1360 ; Debug Table
1360 ; --------------------------------------------------------------------------------------
1360 0003 0035 | 5| .CONST 0x0003,0x0035
1362 000b 150a | | .DEBUG 0x000b,0x150a,0xc000,0x0000,0x0033,0x6314,0x0000,0x000d
136a 002b 1530 | + 0| .DEBUG 0x002b,0x1530,0xc000,0x0000,0x0033,0x73f4,0x0000,0x001f
1372 0153 15ee | S | .DEBUG 0x0153,0x15ee,0x1001,0x0000,0x0033,0x6314,0x0000,0x01a1
137a 01ab 15fc | | .DEBUG 0x01ab,0x15fc,0x1001,0x0000,0x0033,0x6314,0x0000,0x01c1
1382 0353 1692 | S | .DEBUG 0x0353,0x1692,0x1001,0x0000,0x0033,0x6314,0x0000,0x01e1
138a 0373 169c | s | .DEBUG 0x0373,0x169c,0x1002,0x0000,0x0033,0x6314,0x0000,0x01fb
1392 0383 16a2 | | .DEBUG 0x0383,0x16a2,0x1002,0x0000,0x0033,0x6314,0x0000,0x0206
139a 0393 16a8 | | .DEBUG 0x0393,0x16a8,0x1002,0x0000,0x0033,0x6314,0x0000,0x0211
13a2 03a3 16b2 | | .DEBUG 0x03a3,0x16b2,0x1001,0x0000,0x0033,0x6314,0x0000,0x021c
13aa 041b 16e0 | | .DEBUG 0x041b,0x16e0,0x1001,0x0000,0x0033,0x6314,0x0000,0x022a
13b2 0453 16f0 | S | .DEBUG 0x0453,0x16f0,0x1001,0x0000,0x0033,0x6314,0x0000,0x0238
13ba 04a3 1704 | | .DEBUG 0x04a3,0x1704,0x1001,0x0000,0x0033,0x6314,0x0000,0x0245
13c2 04b3 170a | | .DEBUG 0x04b3,0x170a,0x1001,0x0000,0x0033,0x6314,0x0000,0x024d
13ca 04d3 1716 | | .DEBUG 0x04d3,0x1716,0x1001,0x0000,0x0033,0x6314,0x0000,0x0259
13d2 065b 17a4 | [ | .DEBUG 0x065b,0x17a4,0x1005,0x0000,0x0033,0x73f4,0x0000,0x00d2
13da 0673 17a6 | s | .DEBUG 0x0673,0x17a6,0x1005,0x0000,0x0033,0x73f4,0x0000,0x00d8
13e2 068b 17a8 | | .DEBUG 0x068b,0x17a8,0x1005,0x0000,0x0033,0x73f4,0x0000,0x00e0
13ea 06a3 17aa | | .DEBUG 0x06a3,0x17aa,0x1005,0x0000,0x0033,0x73f4,0x0000,0x00ef
13f2 06bb 17ac | | .DEBUG 0x06bb,0x17ac,0x1005,0x0000,0x0033,0x73f4,0x0000,0x00f8
13fa 06d3 17ae | | .DEBUG 0x06d3,0x17ae,0x1005,0x0000,0x0033,0x73f4,0x0000,0x00ff
1402 06eb 17b0 | | .DEBUG 0x06eb,0x17b0,0x1005,0x0000,0x0033,0x73f4,0x0000,0x0151
140a 070b 17b2 | | .DEBUG 0x070b,0x17b2,0x1001,0x0000,0x0033,0x73f4,0x0000,0x020b
1412 071b 17b6 | | .DEBUG 0x071b,0x17b6,0x1001,0x0000,0x0033,0x73f4,0x0000,0x0226
141a 072b 17ba | + | .DEBUG 0x072b,0x17ba,0x1001,0x0000,0x0033,0x73f4,0x0000,0x0239
1422 075b 17c2 | [ | .DEBUG 0x075b,0x17c2,0x1002,0x0000,0x0033,0x73f4,0x0000,0x0288
142a 076b 17c6 | k | .DEBUG 0x076b,0x17c6,0x1002,0x0000,0x0033,0x73f4,0x0000,0x02a3
1432 0793 17d2 | | .DEBUG 0x0793,0x17d2,0x1002,0x0000,0x0033,0x73f4,0x0000,0x02ea
143a 07bb 17e0 | | .DEBUG 0x07bb,0x17e0,0x1001,0x0000,0x0033,0x73f4,0x0000,0x0334
1442 07cb 17e6 | | .DEBUG 0x07cb,0x17e6,0x1001,0x0000,0x0033,0x73f4,0x0000,0x0354
144a 07e3 17ea | | .DEBUG 0x07e3,0x17ea,0x1001,0x0000,0x0033,0x73f4,0x0000,0x03ed
1452 083b 1810 | ; | .DEBUG 0x083b,0x1810,0x1001,0x0000,0x0033,0x73f4,0x0000,0x047f
145a 0883 182c | ,| .DEBUG 0x0883,0x182c,0x1001,0x0000,0x0033,0x73f4,0x0000,0x04ef
1462 09d3 18ae | | .DEBUG 0x09d3,0x18ae,0x1002,0x0000,0x0033,0x73f4,0x0000,0x0742
146a 0a63 18d2 | c | .DEBUG 0x0a63,0x18d2,0x1002,0x0000,0x0033,0x73f4,0x0000,0x085f
1472 0ad3 18f0 | | .DEBUG 0x0ad3,0x18f0,0x1001,0x0000,0x0033,0x73f4,0x0000,0x0932
147a 0af3 1902 | | .DEBUG 0x0af3,0x1902,0x1002,0x0000,0x0033,0x73f4,0x0000,0x0969
1482 0b1b 1912 | | .DEBUG 0x0b1b,0x1912,0x1002,0x0000,0x0033,0x73f4,0x0000,0x09ab
148a 0b4b 1922 | K "| .DEBUG 0x0b4b,0x1922,0x1002,0x0000,0x0033,0x73f4,0x0000,0x0a15
1492 0bdb 196c | l| .DEBUG 0x0bdb,0x196c,0x1001,0x0000,0x0033,0x73f4,0x0000,0x0b19
149a 0c13 197e | ~| .DEBUG 0x0c13,0x197e,0x1002,0x0000,0x0033,0x73f4,0x0000,0x0b75
14a2 0c9b 199c | | .DEBUG 0x0c9b,0x199c,0x1002,0x0000,0x0033,0x73f4,0x0000,0x0c65
14aa 0d33 19d6 | 3 | .DEBUG 0x0d33,0x19d6,0x1002,0x0000,0x0033,0x73f4,0x0000,0x0d75
14b2 0d53 19e2 | S | .DEBUG 0x0d53,0x19e2,0x1001,0x0000,0x0033,0x73f4,0x0000,0x0dc7
14ba 0df3 1a14 | | .DEBUG 0x0df3,0x1a14,0x1002,0x0000,0x0033,0x73f4,0x0000,0x0ee0
14c2 0e5b 1a2c | [ ,| .DEBUG 0x0e5b,0x1a2c,0x1002,0x0000,0x0033,0x73f4,0x0000,0x0fac
14ca 0e6b 1a30 | k 0| .DEBUG 0x0e6b,0x1a30,0x1002,0x0000,0x0033,0x73f4,0x0000,0x0fd8
14d2 0e9b 1a40 | @| .DEBUG 0x0e9b,0x1a40,0x1002,0x0000,0x0033,0x73f4,0x0000,0x103d
14da 0edb 1a54 | T| .DEBUG 0x0edb,0x1a54,0x1001,0x0000,0x0033,0x73f4,0x0000,0x10b5
14e2 0ef3 1a60 | `| .DEBUG 0x0ef3,0x1a60,0x1001,0x0000,0x0033,0x73f4,0x0000,0x10e9
14ea 0f03 1a68 | h| .DEBUG 0x0f03,0x1a68,0x1001,0x0000,0x0033,0x73f4,0x0000,0x1113
14f2 0f93 1aa8 | | .DEBUG 0x0f93,0x1aa8,0x1001,0x0000,0x0033,0x73f4,0x0000,0x121e
14fa 0fbb 1ab6 | | .DEBUG 0x0fbb,0x1ab6,0x1002,0x0000,0x0033,0x73f4,0x0000,0x1990
1502 0fcb 1abe | | .DEBUG 0x0fcb,0x1abe,0x1004,0x0000,0x0033,0x73f4,0x0000,0x1106
150a ; --------------------------------------------------------------------------------------
150a ; Debug3 Subtable 0x0
150a ; --------------------------------------------------------------------------------------
150a 0012 0000 | | .DBG3TAB 0x0012,0x0000
150c 000b ffff | | .CONST 0x000b,0xffff
150e 000b fffe | | .CONST 0x000b,0xfffe
1510 000b fffd | | .CONST 0x000b,0xfffd
1512 000c fffc | | .CONST 0x000c,0xfffc
1514 000e fffb | | .CONST 0x000e,0xfffb
1516 0010 fffa | | .CONST 0x0010,0xfffa
1518 0012 fff9 | | .CONST 0x0012,0xfff9
151a 0014 fff8 | | .CONST 0x0014,0xfff8
151c 0016 fff7 | | .CONST 0x0016,0xfff7
151e 0018 fff6 | | .CONST 0x0018,0xfff6
1520 001a fff5 | | .CONST 0x001a,0xfff5
1522 001c fff4 | | .CONST 0x001c,0xfff4
1524 001e fff3 | | .CONST 0x001e,0xfff3
1526 0020 fff2 | | .CONST 0x0020,0xfff2
1528 0022 fff1 | " | .CONST 0x0022,0xfff1
152a 0024 fff0 | $ | .CONST 0x0024,0xfff0
152c 0026 ffef | & | .CONST 0x0026,0xffef
152e 002a ffee | * | .CONST 0x002a,0xffee
1530 ; --------------------------------------------------------------------------------------
1530 ; Debug3 Subtable 0x1
1530 ; --------------------------------------------------------------------------------------
1530 0055 0009 | U | .DBG3TAB 0x0055,0x0009
1532 002b ffff | + | .CONST 0x002b,0xffff
1534 002b fffe | + | .CONST 0x002b,0xfffe
1536 002b fffd | + | .CONST 0x002b,0xfffd
1538 002b fffc | + | .CONST 0x002b,0xfffc
153a 0035 fffb | 5 | .CONST 0x0035,0xfffb
153c 0037 fffa | 7 | .CONST 0x0037,0xfffa
153e 0039 fff9 | 9 | .CONST 0x0039,0xfff9
1540 0039 fff8 | 9 | .CONST 0x0039,0xfff8
1542 0039 fff7 | 9 | .CONST 0x0039,0xfff7
1544 0039 fff6 | 9 | .CONST 0x0039,0xfff6
1546 0039 fff5 | 9 | .CONST 0x0039,0xfff5
1548 0039 fff4 | 9 | .CONST 0x0039,0xfff4
154a 0039 fff3 | 9 | .CONST 0x0039,0xfff3
154c 0039 fff2 | 9 | .CONST 0x0039,0xfff2
154e 0039 fff1 | 9 | .CONST 0x0039,0xfff1
1550 0039 fff0 | 9 | .CONST 0x0039,0xfff0
1552 003e ffef | > | .CONST 0x003e,0xffef
1554 0043 ffee | C | .CONST 0x0043,0xffee
1556 0048 ffed | H | .CONST 0x0048,0xffed
1558 004c ffec | L | .CONST 0x004c,0xffec
155a 0051 ffeb | Q | .CONST 0x0051,0xffeb
155c 0056 ffea | V | .CONST 0x0056,0xffea
155e 005b ffe9 | [ | .CONST 0x005b,0xffe9
1560 0062 ffe8 | b | .CONST 0x0062,0xffe8
1562 0068 ffe7 | h | .CONST 0x0068,0xffe7
1564 006e ffe6 | n | .CONST 0x006e,0xffe6
1566 0075 ffe5 | u | .CONST 0x0075,0xffe5
1568 007b ffe4 | { | .CONST 0x007b,0xffe4
156a 007d ffe3 | } | .CONST 0x007d,0xffe3
156c 0080 ffe2 | | .CONST 0x0080,0xffe2
156e 0080 ffe1 | | .CONST 0x0080,0xffe1
1570 0086 ffe0 | | .CONST 0x0086,0xffe0
1572 009b ffdf | | .CONST 0x009b,0xffdf
1574 009b ffde | | .CONST 0x009b,0xffde
1576 009d ffdd | | .CONST 0x009d,0xffdd
1578 009f ffdc | | .CONST 0x009f,0xffdc
157a 009f ffdb | | .CONST 0x009f,0xffdb
157c 00a7 ffda | | .CONST 0x00a7,0xffda
157e 00ba ffd9 | | .CONST 0x00ba,0xffd9
1580 00bc ffd8 | | .CONST 0x00bc,0xffd8
1582 00be ffd7 | | .CONST 0x00be,0xffd7
1584 00c0 ffd6 | | .CONST 0x00c0,0xffd6
1586 00c3 ffd5 | | .CONST 0x00c3,0xffd5
1588 00c8 ffd4 | | .CONST 0x00c8,0xffd4
158a 00ca ffd3 | | .CONST 0x00ca,0xffd3
158c 00cc ffd2 | | .CONST 0x00cc,0xffd2
158e 00ce ffd1 | | .CONST 0x00ce,0xffd1
1590 00d0 ffd0 | | .CONST 0x00d0,0xffd0
1592 00d2 ffcf | | .CONST 0x00d2,0xffcf
1594 00d4 ffce | | .CONST 0x00d4,0xffce
1596 00d6 ffcd | | .CONST 0x00d6,0xffcd
1598 00d8 ffcc | | .CONST 0x00d8,0xffcc
159a 00da ffcb | | .CONST 0x00da,0xffcb
159c 00dc ffca | | .CONST 0x00dc,0xffca
159e 00de ffc9 | | .CONST 0x00de,0xffc9
15a0 00e0 ffc8 | | .CONST 0x00e0,0xffc8
15a2 00e2 ffc7 | | .CONST 0x00e2,0xffc7
15a4 00e4 ffc6 | | .CONST 0x00e4,0xffc6
15a6 00e6 ffc5 | | .CONST 0x00e6,0xffc5
15a8 00e8 ffc4 | | .CONST 0x00e8,0xffc4
15aa 00ea ffc3 | | .CONST 0x00ea,0xffc3
15ac 00ec ffc2 | | .CONST 0x00ec,0xffc2
15ae 00ee ffc1 | | .CONST 0x00ee,0xffc1
15b0 00f0 ffc0 | | .CONST 0x00f0,0xffc0
15b2 00f2 ffbf | | .CONST 0x00f2,0xffbf
15b4 00f4 ffbe | | .CONST 0x00f4,0xffbe
15b6 00f6 ffbd | | .CONST 0x00f6,0xffbd
15b8 00f8 ffbc | | .CONST 0x00f8,0xffbc
15ba 00fa ffbb | | .CONST 0x00fa,0xffbb
15bc 00fc ffba | | .CONST 0x00fc,0xffba
15be 00fe ffb9 | | .CONST 0x00fe,0xffb9
15c0 0100 ffb8 | | .CONST 0x0100,0xffb8
15c2 0102 ffb7 | | .CONST 0x0102,0xffb7
15c4 0104 ffb6 | | .CONST 0x0104,0xffb6
15c6 0106 ffb5 | | .CONST 0x0106,0xffb5
15c8 0108 ffb4 | | .CONST 0x0108,0xffb4
15ca 010a ffb3 | | .CONST 0x010a,0xffb3
15cc 010c ffb2 | | .CONST 0x010c,0xffb2
15ce 010e ffb1 | | .CONST 0x010e,0xffb1
15d0 0110 ffb0 | | .CONST 0x0110,0xffb0
15d2 0112 ffaf | | .CONST 0x0112,0xffaf
15d4 0114 ffae | | .CONST 0x0114,0xffae
15d6 0116 ffad | | .CONST 0x0116,0xffad
15d8 0118 ffac | | .CONST 0x0118,0xffac
15da 011a ffab | | .CONST 0x011a,0xffab
15dc 011d 0001 | | .CONST 0x011d,0x0001
15de 011f 0002 | | .CONST 0x011f,0x0002
15e0 0125 0003 | % | .CONST 0x0125,0x0003
15e2 0129 0004 | ) | .CONST 0x0129,0x0004
15e4 012b 0005 | + | .CONST 0x012b,0x0005
15e6 012d 0006 | - | .CONST 0x012d,0x0006
15e8 0131 0007 | 1 | .CONST 0x0131,0x0007
15ea 0133 0008 | 3 | .CONST 0x0133,0x0008
15ec 0138 0009 | 8 | .CONST 0x0138,0x0009
15ee ; --------------------------------------------------------------------------------------
15ee ; Debug3 Subtable 0x2
15ee ; --------------------------------------------------------------------------------------
15ee 0001 0005 | | .DBG3TAB 0x0001,0x0005
15f0 0153 ffff | S | .CONST 0x0153,0xffff
15f2 0158 0001 | X | .CONST 0x0158,0x0001
15f4 0163 0002 | c | .CONST 0x0163,0x0002
15f6 016c 0003 | l | .CONST 0x016c,0x0003
15f8 0173 0004 | s | .CONST 0x0173,0x0004
15fa 0173 0005 | s | .CONST 0x0173,0x0005
15fc ; --------------------------------------------------------------------------------------
15fc ; Debug3 Subtable 0x3
15fc ; --------------------------------------------------------------------------------------
15fc 0009 0041 | A| .DBG3TAB 0x0009,0x0041
15fe 01ab ffff | | .CONST 0x01ab,0xffff
1600 01b1 fffe | | .CONST 0x01b1,0xfffe
1602 01b2 fffd | | .CONST 0x01b2,0xfffd
1604 01b3 fffc | | .CONST 0x01b3,0xfffc
1606 01b6 fffb | | .CONST 0x01b6,0xfffb
1608 01b9 fffa | | .CONST 0x01b9,0xfffa
160a 01ba fff9 | | .CONST 0x01ba,0xfff9
160c 01bb fff8 | | .CONST 0x01bb,0xfff8
160e 01bc fff7 | | .CONST 0x01bc,0xfff7
1610 01bd 0001 | | .CONST 0x01bd,0x0001
1612 01bf 0002 | | .CONST 0x01bf,0x0002
1614 01c1 0003 | | .CONST 0x01c1,0x0003
1616 01c3 0004 | | .CONST 0x01c3,0x0004
1618 01c5 0005 | | .CONST 0x01c5,0x0005
161a 01c7 0006 | | .CONST 0x01c7,0x0006
161c 01c8 0007 | | .CONST 0x01c8,0x0007
161e 01ca 0008 | | .CONST 0x01ca,0x0008
1620 01ce 0009 | | .CONST 0x01ce,0x0009
1622 01d2 000a | | .CONST 0x01d2,0x000a
1624 01d9 000b | | .CONST 0x01d9,0x000b
1626 01e2 000c | | .CONST 0x01e2,0x000c
1628 01e4 000d | | .CONST 0x01e4,0x000d
162a 01e6 000e | | .CONST 0x01e6,0x000e
162c 01ea 000f | | .CONST 0x01ea,0x000f
162e 01ee 0010 | | .CONST 0x01ee,0x0010
1630 01f2 0011 | | .CONST 0x01f2,0x0011
1632 01f6 0012 | | .CONST 0x01f6,0x0012
1634 01fa 0013 | | .CONST 0x01fa,0x0013
1636 01fc 0014 | | .CONST 0x01fc,0x0014
1638 01ff 0015 | | .CONST 0x01ff,0x0015
163a 0207 0016 | | .CONST 0x0207,0x0016
163c 0208 0017 | | .CONST 0x0208,0x0017
163e 020d 0018 | | .CONST 0x020d,0x0018
1640 020f 0019 | | .CONST 0x020f,0x0019
1642 0212 001a | | .CONST 0x0212,0x001a
1644 0218 001b | | .CONST 0x0218,0x001b
1646 022b 001c | + | .CONST 0x022b,0x001c
1648 0232 001d | 2 | .CONST 0x0232,0x001d
164a 0232 001e | 2 | .CONST 0x0232,0x001e
164c 0238 001f | 8 | .CONST 0x0238,0x001f
164e 023e 0020 | > | .CONST 0x023e,0x0020
1650 0249 0021 | I !| .CONST 0x0249,0x0021
1652 024e 0022 | N "| .CONST 0x024e,0x0022
1654 0253 0023 | S #| .CONST 0x0253,0x0023
1656 0255 0024 | U $| .CONST 0x0255,0x0024
1658 0264 0025 | d %| .CONST 0x0264,0x0025
165a 0273 0026 | s &| .CONST 0x0273,0x0026
165c 0275 0027 | u '| .CONST 0x0275,0x0027
165e 028e 0028 | (| .CONST 0x028e,0x0028
1660 0298 0029 | )| .CONST 0x0298,0x0029
1662 02a1 002a | *| .CONST 0x02a1,0x002a
1664 02a5 002b | +| .CONST 0x02a5,0x002b
1666 02af 002c | ,| .CONST 0x02af,0x002c
1668 02c1 002d | -| .CONST 0x02c1,0x002d
166a 02c8 002e | .| .CONST 0x02c8,0x002e
166c 02d3 002f | /| .CONST 0x02d3,0x002f
166e 02e0 0030 | 0| .CONST 0x02e0,0x0030
1670 02e8 0031 | 1| .CONST 0x02e8,0x0031
1672 02ea 0032 | 2| .CONST 0x02ea,0x0032
1674 02ee 0033 | 3| .CONST 0x02ee,0x0033
1676 02f2 0034 | 4| .CONST 0x02f2,0x0034
1678 02f5 0035 | 5| .CONST 0x02f5,0x0035
167a 02fa 0036 | 6| .CONST 0x02fa,0x0036
167c 02fb 0037 | 7| .CONST 0x02fb,0x0037
167e 02ff 0038 | 8| .CONST 0x02ff,0x0038
1680 0303 0039 | 9| .CONST 0x0303,0x0039
1682 0306 003a | :| .CONST 0x0306,0x003a
1684 0315 003b | ;| .CONST 0x0315,0x003b
1686 0320 003c | <| .CONST 0x0320,0x003c
1688 0325 003d | % =| .CONST 0x0325,0x003d
168a 0327 003e | ' >| .CONST 0x0327,0x003e
168c 032a 003f | * ?| .CONST 0x032a,0x003f
168e 0333 0040 | 3 @| .CONST 0x0333,0x0040
1690 033c 0041 | < A| .CONST 0x033c,0x0041
1692 ; --------------------------------------------------------------------------------------
1692 ; Debug3 Subtable 0x4
1692 ; --------------------------------------------------------------------------------------
1692 0001 0003 | | .DBG3TAB 0x0001,0x0003
1694 0353 ffff | S | .CONST 0x0353,0xffff
1696 035a 0001 | Z | .CONST 0x035a,0x0001
1698 035c 0002 | \ | .CONST 0x035c,0x0002
169a 0362 0003 | b | .CONST 0x0362,0x0003
169c ; --------------------------------------------------------------------------------------
169c ; Debug3 Subtable 0x5
169c ; --------------------------------------------------------------------------------------
169c 0000 0002 | | .DBG3TAB 0x0000,0x0002
169e 0373 0001 | s | .CONST 0x0373,0x0001
16a0 0375 0002 | u | .CONST 0x0375,0x0002
16a2 ; --------------------------------------------------------------------------------------
16a2 ; Debug3 Subtable 0x6
16a2 ; --------------------------------------------------------------------------------------
16a2 0000 0002 | | .DBG3TAB 0x0000,0x0002
16a4 0383 0001 | | .CONST 0x0383,0x0001
16a6 0385 0002 | | .CONST 0x0385,0x0002
16a8 ; --------------------------------------------------------------------------------------
16a8 ; Debug3 Subtable 0x7
16a8 ; --------------------------------------------------------------------------------------
16a8 0000 0004 | | .DBG3TAB 0x0000,0x0004
16aa 0393 0001 | | .CONST 0x0393,0x0001
16ac 0395 0002 | | .CONST 0x0395,0x0002
16ae 0399 0003 | | .CONST 0x0399,0x0003
16b0 039c 0004 | | .CONST 0x039c,0x0004
16b2 ; --------------------------------------------------------------------------------------
16b2 ; Debug3 Subtable 0x8
16b2 ; --------------------------------------------------------------------------------------
16b2 0000 0016 | | .DBG3TAB 0x0000,0x0016
16b4 03a3 0001 | | .CONST 0x03a3,0x0001
16b6 03a5 0002 | | .CONST 0x03a5,0x0002
16b8 03a9 0003 | | .CONST 0x03a9,0x0003
16ba 03ac 0004 | | .CONST 0x03ac,0x0004
16bc 03b0 0005 | | .CONST 0x03b0,0x0005
16be 03b0 0006 | | .CONST 0x03b0,0x0006
16c0 03b8 0007 | | .CONST 0x03b8,0x0007
16c2 03bb 0008 | | .CONST 0x03bb,0x0008
16c4 03c1 0009 | | .CONST 0x03c1,0x0009
16c6 03c7 000a | | .CONST 0x03c7,0x000a
16c8 03ce 000b | | .CONST 0x03ce,0x000b
16ca 03d2 000d | | .CONST 0x03d2,0x000d
16cc 03d6 000e | | .CONST 0x03d6,0x000e
16ce 03dc 000f | | .CONST 0x03dc,0x000f
16d0 03e2 0010 | | .CONST 0x03e2,0x0010
16d2 03e9 0011 | | .CONST 0x03e9,0x0011
16d4 03f0 0012 | | .CONST 0x03f0,0x0012
16d6 03f6 0013 | | .CONST 0x03f6,0x0013
16d8 03fe 0014 | | .CONST 0x03fe,0x0014
16da 0402 0015 | | .CONST 0x0402,0x0015
16dc 0409 0016 | | .CONST 0x0409,0x0016
16de 0412 0017 | | .CONST 0x0412,0x0017
16e0 ; --------------------------------------------------------------------------------------
16e0 ; Debug3 Subtable 0x9
16e0 ; --------------------------------------------------------------------------------------
16e0 0000 0007 | | .DBG3TAB 0x0000,0x0007
16e2 041b 0001 | | .CONST 0x041b,0x0001
16e4 041d 0002 | | .CONST 0x041d,0x0002
16e6 0421 0003 | ! | .CONST 0x0421,0x0003
16e8 0424 0004 | $ | .CONST 0x0424,0x0004
16ea 042a 0005 | * | .CONST 0x042a,0x0005
16ec 0440 0006 | @ | .CONST 0x0440,0x0006
16ee 0445 0007 | E | .CONST 0x0445,0x0007
16f0 ; --------------------------------------------------------------------------------------
16f0 ; Debug3 Subtable 0xa
16f0 ; --------------------------------------------------------------------------------------
16f0 0001 0008 | | .DBG3TAB 0x0001,0x0008
16f2 0453 ffff | S | .CONST 0x0453,0xffff
16f4 0455 0001 | U | .CONST 0x0455,0x0001
16f6 0457 0002 | W | .CONST 0x0457,0x0002
16f8 045b 0003 | [ | .CONST 0x045b,0x0003
16fa 045e 0004 | ^ | .CONST 0x045e,0x0004
16fc 0488 0005 | | .CONST 0x0488,0x0005
16fe 048d 0006 | | .CONST 0x048d,0x0006
1700 0490 0007 | | .CONST 0x0490,0x0007
1702 0496 0008 | | .CONST 0x0496,0x0008
1704 ; --------------------------------------------------------------------------------------
1704 ; Debug3 Subtable 0xb
1704 ; --------------------------------------------------------------------------------------
1704 0000 0002 | | .DBG3TAB 0x0000,0x0002
1706 04a3 0001 | | .CONST 0x04a3,0x0001
1708 04a5 0002 | | .CONST 0x04a5,0x0002
170a ; --------------------------------------------------------------------------------------
170a ; Debug3 Subtable 0xc
170a ; --------------------------------------------------------------------------------------
170a 0000 0005 | | .DBG3TAB 0x0000,0x0005
170c 04b3 0001 | | .CONST 0x04b3,0x0001
170e 04b5 0002 | | .CONST 0x04b5,0x0002
1710 04bb 0003 | | .CONST 0x04bb,0x0003
1712 04c1 0004 | | .CONST 0x04c1,0x0004
1714 04c8 0005 | | .CONST 0x04c8,0x0005
1716 ; --------------------------------------------------------------------------------------
1716 ; Debug3 Subtable 0xd
1716 ; --------------------------------------------------------------------------------------
1716 000a 003c | <| .DBG3TAB 0x000a,0x003c
1718 04d3 ffff | | .CONST 0x04d3,0xffff
171a 04d9 fffe | | .CONST 0x04d9,0xfffe
171c 04da fffd | | .CONST 0x04da,0xfffd
171e 04db fffc | | .CONST 0x04db,0xfffc
1720 04de fffb | | .CONST 0x04de,0xfffb
1722 04e1 fffa | | .CONST 0x04e1,0xfffa
1724 04e2 fff9 | | .CONST 0x04e2,0xfff9
1726 04e3 fff8 | | .CONST 0x04e3,0xfff8
1728 04e4 fff7 | | .CONST 0x04e4,0xfff7
172a 04e5 fff6 | | .CONST 0x04e5,0xfff6
172c 04e7 0001 | | .CONST 0x04e7,0x0001
172e 04e9 0002 | | .CONST 0x04e9,0x0002
1730 04eb 0003 | | .CONST 0x04eb,0x0003
1732 04ed 0004 | | .CONST 0x04ed,0x0004
1734 04ef 0005 | | .CONST 0x04ef,0x0005
1736 04f0 0006 | | .CONST 0x04f0,0x0006
1738 04f4 0007 | | .CONST 0x04f4,0x0007
173a 04f5 0008 | | .CONST 0x04f5,0x0008
173c 04fc 0009 | | .CONST 0x04fc,0x0009
173e 0505 000a | | .CONST 0x0505,0x000a
1740 0507 000b | | .CONST 0x0507,0x000b
1742 050b 000c | | .CONST 0x050b,0x000c
1744 050f 000d | | .CONST 0x050f,0x000d
1746 0513 000e | | .CONST 0x0513,0x000e
1748 0517 000f | | .CONST 0x0517,0x000f
174a 051b 0010 | | .CONST 0x051b,0x0010
174c 051d 0011 | | .CONST 0x051d,0x0011
174e 0520 0012 | | .CONST 0x0520,0x0012
1750 0528 0013 | ( | .CONST 0x0528,0x0013
1752 0529 0014 | ) | .CONST 0x0529,0x0014
1754 052b 0015 | + | .CONST 0x052b,0x0015
1756 052e 0016 | . | .CONST 0x052e,0x0016
1758 0538 0017 | 8 | .CONST 0x0538,0x0017
175a 054b 0018 | K | .CONST 0x054b,0x0018
175c 0552 0019 | R | .CONST 0x0552,0x0019
175e 0552 001a | R | .CONST 0x0552,0x001a
1760 0558 001b | X | .CONST 0x0558,0x001b
1762 055e 001c | ^ | .CONST 0x055e,0x001c
1764 0569 001d | i | .CONST 0x0569,0x001d
1766 056e 001e | n | .CONST 0x056e,0x001e
1768 0570 001f | p | .CONST 0x0570,0x001f
176a 057f 0020 | | .CONST 0x057f,0x0020
176c 058e 0021 | !| .CONST 0x058e,0x0021
176e 0590 0022 | "| .CONST 0x0590,0x0022
1770 05a9 0023 | #| .CONST 0x05a9,0x0023
1772 05b3 0024 | $| .CONST 0x05b3,0x0024
1774 05bc 0025 | %| .CONST 0x05bc,0x0025
1776 05c0 0026 | &| .CONST 0x05c0,0x0026
1778 05c8 0027 | '| .CONST 0x05c8,0x0027
177a 05da 0028 | (| .CONST 0x05da,0x0028
177c 05e1 0029 | )| .CONST 0x05e1,0x0029
177e 05ec 002a | *| .CONST 0x05ec,0x002a
1780 05f9 002b | +| .CONST 0x05f9,0x002b
1782 0601 002c | ,| .CONST 0x0601,0x002c
1784 0603 002d | -| .CONST 0x0603,0x002d
1786 0607 002e | .| .CONST 0x0607,0x002e
1788 060b 002f | /| .CONST 0x060b,0x002f
178a 060e 0030 | 0| .CONST 0x060e,0x0030
178c 0613 0031 | 1| .CONST 0x0613,0x0031
178e 0614 0032 | 2| .CONST 0x0614,0x0032
1790 0618 0033 | 3| .CONST 0x0618,0x0033
1792 061c 0034 | 4| .CONST 0x061c,0x0034
1794 061f 0035 | 5| .CONST 0x061f,0x0035
1796 062e 0036 | . 6| .CONST 0x062e,0x0036
1798 0639 0037 | 9 7| .CONST 0x0639,0x0037
179a 063e 0038 | > 8| .CONST 0x063e,0x0038
179c 0640 0039 | @ 9| .CONST 0x0640,0x0039
179e 0643 003a | C :| .CONST 0x0643,0x003a
17a0 064c 003b | L ;| .CONST 0x064c,0x003b
17a2 0655 003c | U <| .CONST 0x0655,0x003c
17a4 ; --------------------------------------------------------------------------------------
17a4 ; Debug3 Subtable 0xe
17a4 ; --------------------------------------------------------------------------------------
17a4 0000 0000 | | .DBG3TAB 0x0000,0x0000
17a6 ; --------------------------------------------------------------------------------------
17a6 ; Debug3 Subtable 0xf
17a6 ; --------------------------------------------------------------------------------------
17a6 0000 0000 | | .DBG3TAB 0x0000,0x0000
17a8 ; --------------------------------------------------------------------------------------
17a8 ; Debug3 Subtable 0x10
17a8 ; --------------------------------------------------------------------------------------
17a8 0000 0000 | | .DBG3TAB 0x0000,0x0000
17aa ; --------------------------------------------------------------------------------------
17aa ; Debug3 Subtable 0x11
17aa ; --------------------------------------------------------------------------------------
17aa 0000 0000 | | .DBG3TAB 0x0000,0x0000
17ac ; --------------------------------------------------------------------------------------
17ac ; Debug3 Subtable 0x12
17ac ; --------------------------------------------------------------------------------------
17ac 0000 0000 | | .DBG3TAB 0x0000,0x0000
17ae ; --------------------------------------------------------------------------------------
17ae ; Debug3 Subtable 0x13
17ae ; --------------------------------------------------------------------------------------
17ae 0000 0000 | | .DBG3TAB 0x0000,0x0000
17b0 ; --------------------------------------------------------------------------------------
17b0 ; Debug3 Subtable 0x14
17b0 ; --------------------------------------------------------------------------------------
17b0 0000 0000 | | .DBG3TAB 0x0000,0x0000
17b2 ; --------------------------------------------------------------------------------------
17b2 ; Debug3 Subtable 0x15
17b2 ; --------------------------------------------------------------------------------------
17b2 0000 0001 | | .DBG3TAB 0x0000,0x0001
17b4 070b 0001 | | .CONST 0x070b,0x0001
17b6 ; --------------------------------------------------------------------------------------
17b6 ; Debug3 Subtable 0x16
17b6 ; --------------------------------------------------------------------------------------
17b6 0000 0001 | | .DBG3TAB 0x0000,0x0001
17b8 071b 0001 | | .CONST 0x071b,0x0001
17ba ; --------------------------------------------------------------------------------------
17ba ; Debug3 Subtable 0x17
17ba ; --------------------------------------------------------------------------------------
17ba 0000 0003 | | .DBG3TAB 0x0000,0x0003
17bc 072b 0001 | + | .CONST 0x072b,0x0001
17be 072f 0002 | / | .CONST 0x072f,0x0002
17c0 073e 0003 | > | .CONST 0x073e,0x0003
17c2 ; --------------------------------------------------------------------------------------
17c2 ; Debug3 Subtable 0x18
17c2 ; --------------------------------------------------------------------------------------
17c2 0000 0001 | | .DBG3TAB 0x0000,0x0001
17c4 075b 0001 | [ | .CONST 0x075b,0x0001
17c6 ; --------------------------------------------------------------------------------------
17c6 ; Debug3 Subtable 0x19
17c6 ; --------------------------------------------------------------------------------------
17c6 0002 0003 | | .DBG3TAB 0x0002,0x0003
17c8 076b ffff | k | .CONST 0x076b,0xffff
17ca 076f fffe | o | .CONST 0x076f,0xfffe
17cc 0771 0002 | q | .CONST 0x0771,0x0002
17ce 0776 0001 | v | .CONST 0x0776,0x0001
17d0 0781 0003 | | .CONST 0x0781,0x0003
17d2 ; --------------------------------------------------------------------------------------
17d2 ; Debug3 Subtable 0x1a
17d2 ; --------------------------------------------------------------------------------------
17d2 0001 0005 | | .DBG3TAB 0x0001,0x0005
17d4 0793 ffff | | .CONST 0x0793,0xffff
17d6 0799 0002 | | .CONST 0x0799,0x0002
17d8 079e 0001 | | .CONST 0x079e,0x0001
17da 07a9 0003 | | .CONST 0x07a9,0x0003
17dc 07ad 0004 | | .CONST 0x07ad,0x0004
17de 07af 0005 | | .CONST 0x07af,0x0005
17e0 ; --------------------------------------------------------------------------------------
17e0 ; Debug3 Subtable 0x1b
17e0 ; --------------------------------------------------------------------------------------
17e0 0000 0002 | | .DBG3TAB 0x0000,0x0002
17e2 07bb 0001 | | .CONST 0x07bb,0x0001
17e4 07c1 0002 | | .CONST 0x07c1,0x0002
17e6 ; --------------------------------------------------------------------------------------
17e6 ; Debug3 Subtable 0x1c
17e6 ; --------------------------------------------------------------------------------------
17e6 0000 0001 | | .DBG3TAB 0x0000,0x0001
17e8 07cb 0001 | | .CONST 0x07cb,0x0001
17ea ; --------------------------------------------------------------------------------------
17ea ; Debug3 Subtable 0x1d
17ea ; --------------------------------------------------------------------------------------
17ea 0004 000e | | .DBG3TAB 0x0004,0x000e
17ec 07e3 ffff | | .CONST 0x07e3,0xffff
17ee 07e6 fffe | | .CONST 0x07e6,0xfffe
17f0 07e8 fffd | | .CONST 0x07e8,0xfffd
17f2 07e9 fffc | | .CONST 0x07e9,0xfffc
17f4 07ed 0001 | | .CONST 0x07ed,0x0001
17f6 07f4 0002 | | .CONST 0x07f4,0x0002
17f8 0806 0004 | | .CONST 0x0806,0x0004
17fa 0809 0005 | | .CONST 0x0809,0x0005
17fc 080c 0006 | | .CONST 0x080c,0x0006
17fe 080f 0007 | | .CONST 0x080f,0x0007
1800 0811 0008 | | .CONST 0x0811,0x0008
1802 0811 0009 | | .CONST 0x0811,0x0009
1804 0819 000a | | .CONST 0x0819,0x000a
1806 081d 000b | | .CONST 0x081d,0x000b
1808 0820 000c | | .CONST 0x0820,0x000c
180a 0823 000d | # | .CONST 0x0823,0x000d
180c 0825 000e | % | .CONST 0x0825,0x000e
180e 082c 000f | , | .CONST 0x082c,0x000f
1810 ; --------------------------------------------------------------------------------------
1810 ; Debug3 Subtable 0x1e
1810 ; --------------------------------------------------------------------------------------
1810 0002 000b | | .DBG3TAB 0x0002,0x000b
1812 083b ffff | ; | .CONST 0x083b,0xffff
1814 083e fffe | > | .CONST 0x083e,0xfffe
1816 0840 0001 | @ | .CONST 0x0840,0x0001
1818 0847 0002 | G | .CONST 0x0847,0x0002
181a 0859 0003 | Y | .CONST 0x0859,0x0003
181c 085c 0004 | \ | .CONST 0x085c,0x0004
181e 085e 0005 | ^ | .CONST 0x085e,0x0005
1820 0865 0006 | e | .CONST 0x0865,0x0006
1822 0869 0007 | i | .CONST 0x0869,0x0007
1824 086b 0008 | k | .CONST 0x086b,0x0008
1826 0872 0009 | r | .CONST 0x0872,0x0009
1828 0876 000a | v | .CONST 0x0876,0x000a
182a 0878 000b | x | .CONST 0x0878,0x000b
182c ; --------------------------------------------------------------------------------------
182c ; Debug3 Subtable 0x1f
182c ; --------------------------------------------------------------------------------------
182c 0008 0038 | 8| .DBG3TAB 0x0008,0x0038
182e 0883 ffff | | .CONST 0x0883,0xffff
1830 0887 fffe | | .CONST 0x0887,0xfffe
1832 0889 fffd | | .CONST 0x0889,0xfffd
1834 088c fffc | | .CONST 0x088c,0xfffc
1836 088e fffb | | .CONST 0x088e,0xfffb
1838 0891 fffa | | .CONST 0x0891,0xfffa
183a 0892 fff9 | | .CONST 0x0892,0xfff9
183c 0896 fff8 | | .CONST 0x0896,0xfff8
183e 0897 0001 | | .CONST 0x0897,0x0001
1840 0899 0002 | | .CONST 0x0899,0x0002
1842 089d 0003 | | .CONST 0x089d,0x0003
1844 08a1 0004 | | .CONST 0x08a1,0x0004
1846 08a3 0005 | | .CONST 0x08a3,0x0005
1848 08a5 0006 | | .CONST 0x08a5,0x0006
184a 08a7 0007 | | .CONST 0x08a7,0x0007
184c 08b7 0008 | | .CONST 0x08b7,0x0008
184e 08b9 0009 | | .CONST 0x08b9,0x0009
1850 08c0 000a | | .CONST 0x08c0,0x000a
1852 08c8 000b | | .CONST 0x08c8,0x000b
1854 08cc 000c | | .CONST 0x08cc,0x000c
1856 08cf 000d | | .CONST 0x08cf,0x000d
1858 08d2 000e | | .CONST 0x08d2,0x000e
185a 08d4 000f | | .CONST 0x08d4,0x000f
185c 08da 0010 | | .CONST 0x08da,0x0010
185e 08dc 0011 | | .CONST 0x08dc,0x0011
1860 08dd 0012 | | .CONST 0x08dd,0x0012
1862 08e4 0013 | | .CONST 0x08e4,0x0013
1864 08f6 0014 | | .CONST 0x08f6,0x0014
1866 091b 0015 | | .CONST 0x091b,0x0015
1868 091e 0016 | | .CONST 0x091e,0x0016
186a 0924 0017 | $ | .CONST 0x0924,0x0017
186c 092f 0018 | / | .CONST 0x092f,0x0018
186e 0932 0019 | 2 | .CONST 0x0932,0x0019
1870 0936 001a | 6 | .CONST 0x0936,0x001a
1872 093d 001b | = | .CONST 0x093d,0x001b
1874 0944 001c | D | .CONST 0x0944,0x001c
1876 0956 001d | V | .CONST 0x0956,0x001d
1878 0968 001e | h | .CONST 0x0968,0x001e
187a 096e 001f | n | .CONST 0x096e,0x001f
187c 0971 0020 | q | .CONST 0x0971,0x0020
187e 0974 0021 | t !| .CONST 0x0974,0x0021
1880 0977 0022 | w "| .CONST 0x0977,0x0022
1882 097a 0023 | z #| .CONST 0x097a,0x0023
1884 097d 0024 | } $| .CONST 0x097d,0x0024
1886 0980 0025 | %| .CONST 0x0980,0x0025
1888 0982 0027 | '| .CONST 0x0982,0x0027
188a 0984 0028 | (| .CONST 0x0984,0x0028
188c 098c 0029 | )| .CONST 0x098c,0x0029
188e 098e 002a | *| .CONST 0x098e,0x002a
1890 0996 002b | +| .CONST 0x0996,0x002b
1892 0998 002c | ,| .CONST 0x0998,0x002c
1894 09a0 002d | -| .CONST 0x09a0,0x002d
1896 09a7 002e | .| .CONST 0x09a7,0x002e
1898 09ab 002f | /| .CONST 0x09ab,0x002f
189a 09ae 0030 | 0| .CONST 0x09ae,0x0030
189c 09b5 0031 | 1| .CONST 0x09b5,0x0031
189e 09b9 0032 | 2| .CONST 0x09b9,0x0032
18a0 09bc 0033 | 3| .CONST 0x09bc,0x0033
18a2 09be 0034 | 4| .CONST 0x09be,0x0034
18a4 09be 0035 | 5| .CONST 0x09be,0x0035
18a6 09c3 0036 | 6| .CONST 0x09c3,0x0036
18a8 09c5 0038 | 8| .CONST 0x09c5,0x0038
18aa 09c8 0039 | 9| .CONST 0x09c8,0x0039
18ac 09cb 003a | :| .CONST 0x09cb,0x003a
18ae ; --------------------------------------------------------------------------------------
18ae ; Debug3 Subtable 0x20
18ae ; --------------------------------------------------------------------------------------
18ae 0001 0010 | | .DBG3TAB 0x0001,0x0010
18b0 09d3 ffff | | .CONST 0x09d3,0xffff
18b2 09d9 0001 | | .CONST 0x09d9,0x0001
18b4 09dd 0002 | | .CONST 0x09dd,0x0002
18b6 09df 0003 | | .CONST 0x09df,0x0003
18b8 09e8 0004 | | .CONST 0x09e8,0x0004
18ba 09f0 0005 | | .CONST 0x09f0,0x0005
18bc 09ff 0006 | | .CONST 0x09ff,0x0006
18be 0a0d 0007 | | .CONST 0x0a0d,0x0007
18c0 0a0f 0008 | | .CONST 0x0a0f,0x0008
18c2 0a1f 0009 | | .CONST 0x0a1f,0x0009
18c4 0a24 000a | $ | .CONST 0x0a24,0x000a
18c6 0a31 000b | 1 | .CONST 0x0a31,0x000b
18c8 0a36 000c | 6 | .CONST 0x0a36,0x000c
18ca 0a43 000d | C | .CONST 0x0a43,0x000d
18cc 0a48 000e | H | .CONST 0x0a48,0x000e
18ce 0a55 000f | U | .CONST 0x0a55,0x000f
18d0 0a5c 0010 | \ | .CONST 0x0a5c,0x0010
18d2 ; --------------------------------------------------------------------------------------
18d2 ; Debug3 Subtable 0x21
18d2 ; --------------------------------------------------------------------------------------
18d2 0001 000d | | .DBG3TAB 0x0001,0x000d
18d4 0a63 ffff | c | .CONST 0x0a63,0xffff
18d6 0a69 0001 | i | .CONST 0x0a69,0x0001
18d8 0a6b 0002 | k | .CONST 0x0a6b,0x0002
18da 0a6f 0003 | o | .CONST 0x0a6f,0x0003
18dc 0a76 0004 | v | .CONST 0x0a76,0x0004
18de 0a7c 0005 | | | .CONST 0x0a7c,0x0005
18e0 0a8a 0006 | | .CONST 0x0a8a,0x0006
18e2 0a95 0007 | | .CONST 0x0a95,0x0007
18e4 0aa4 0008 | | .CONST 0x0aa4,0x0008
18e6 0aa9 0009 | | .CONST 0x0aa9,0x0009
18e8 0ab6 000a | | .CONST 0x0ab6,0x000a
18ea 0abb 000b | | .CONST 0x0abb,0x000b
18ec 0ac8 000c | | .CONST 0x0ac8,0x000c
18ee 0ace 000d | | .CONST 0x0ace,0x000d
18f0 ; --------------------------------------------------------------------------------------
18f0 ; Debug3 Subtable 0x22
18f0 ; --------------------------------------------------------------------------------------
18f0 0000 0008 | | .DBG3TAB 0x0000,0x0008
18f2 0ad3 0001 | | .CONST 0x0ad3,0x0001
18f4 0ad6 0002 | | .CONST 0x0ad6,0x0002
18f6 0ad8 0003 | | .CONST 0x0ad8,0x0003
18f8 0adb 0004 | | .CONST 0x0adb,0x0004
18fa 0ade 0005 | | .CONST 0x0ade,0x0005
18fc 0ae0 0006 | | .CONST 0x0ae0,0x0006
18fe 0ae3 0007 | | .CONST 0x0ae3,0x0007
1900 0ae7 0008 | | .CONST 0x0ae7,0x0008
1902 ; --------------------------------------------------------------------------------------
1902 ; Debug3 Subtable 0x23
1902 ; --------------------------------------------------------------------------------------
1902 0002 0005 | | .DBG3TAB 0x0002,0x0005
1904 0af3 ffff | | .CONST 0x0af3,0xffff
1906 0af6 fffe | | .CONST 0x0af6,0xfffe
1908 0af7 0001 | | .CONST 0x0af7,0x0001
190a 0b01 0002 | | .CONST 0x0b01,0x0002
190c 0b0a 0003 | | .CONST 0x0b0a,0x0003
190e 0b0c 0004 | | .CONST 0x0b0c,0x0004
1910 0b15 0005 | | .CONST 0x0b15,0x0005
1912 ; --------------------------------------------------------------------------------------
1912 ; Debug3 Subtable 0x24
1912 ; --------------------------------------------------------------------------------------
1912 0001 0006 | | .DBG3TAB 0x0001,0x0006
1914 0b1b ffff | | .CONST 0x0b1b,0xffff
1916 0b1c 0001 | | .CONST 0x0b1c,0x0001
1918 0b2b 0002 | + | .CONST 0x0b2b,0x0002
191a 0b2d 0003 | - | .CONST 0x0b2d,0x0003
191c 0b32 0004 | 2 | .CONST 0x0b32,0x0004
191e 0b3a 0005 | : | .CONST 0x0b3a,0x0005
1920 0b3f 0006 | ? | .CONST 0x0b3f,0x0006
1922 ; --------------------------------------------------------------------------------------
1922 ; Debug3 Subtable 0x25
1922 ; --------------------------------------------------------------------------------------
1922 0004 0020 | | .DBG3TAB 0x0004,0x0020
1924 0b4b ffff | K | .CONST 0x0b4b,0xffff
1926 0b52 fffe | R | .CONST 0x0b52,0xfffe
1928 0b54 fffd | T | .CONST 0x0b54,0xfffd
192a 0b55 fffc | U | .CONST 0x0b55,0xfffc
192c 0b57 0001 | W | .CONST 0x0b57,0x0001
192e 0b5b 0002 | [ | .CONST 0x0b5b,0x0002
1930 0b65 0003 | e | .CONST 0x0b65,0x0003
1932 0b67 0004 | g | .CONST 0x0b67,0x0004
1934 0b69 0005 | i | .CONST 0x0b69,0x0005
1936 0b6d 0006 | m | .CONST 0x0b6d,0x0006
1938 0b6d 0007 | m | .CONST 0x0b6d,0x0007
193a 0b70 0008 | p | .CONST 0x0b70,0x0008
193c 0b76 0009 | v | .CONST 0x0b76,0x0009
193e 0b76 000a | v | .CONST 0x0b76,0x000a
1940 0b7a 000b | z | .CONST 0x0b7a,0x000b
1942 0b7e 000c | ~ | .CONST 0x0b7e,0x000c
1944 0b82 000d | | .CONST 0x0b82,0x000d
1946 0b85 000e | | .CONST 0x0b85,0x000e
1948 0b88 000f | | .CONST 0x0b88,0x000f
194a 0b8f 0010 | | .CONST 0x0b8f,0x0010
194c 0b91 0011 | | .CONST 0x0b91,0x0011
194e 0b98 0012 | | .CONST 0x0b98,0x0012
1950 0b9e 0013 | | .CONST 0x0b9e,0x0013
1952 0ba1 0014 | | .CONST 0x0ba1,0x0014
1954 0ba3 0015 | | .CONST 0x0ba3,0x0015
1956 0ba7 0016 | | .CONST 0x0ba7,0x0016
1958 0ba7 0017 | | .CONST 0x0ba7,0x0017
195a 0baa 0018 | | .CONST 0x0baa,0x0018
195c 0bb0 0019 | | .CONST 0x0bb0,0x0019
195e 0bb0 001a | | .CONST 0x0bb0,0x001a
1960 0bb4 001b | | .CONST 0x0bb4,0x001b
1962 0bb8 001c | | .CONST 0x0bb8,0x001c
1964 0bbc 001d | | .CONST 0x0bbc,0x001d
1966 0bc1 001e | | .CONST 0x0bc1,0x001e
1968 0bc8 001f | | .CONST 0x0bc8,0x001f
196a 0bcf 0020 | | .CONST 0x0bcf,0x0020
196c ; --------------------------------------------------------------------------------------
196c ; Debug3 Subtable 0x26
196c ; --------------------------------------------------------------------------------------
196c 0000 0008 | | .DBG3TAB 0x0000,0x0008
196e 0bdc 0001 | | .CONST 0x0bdc,0x0001
1970 0bdc 0002 | | .CONST 0x0bdc,0x0002
1972 0be8 0003 | | .CONST 0x0be8,0x0003
1974 0bf2 0006 | | .CONST 0x0bf2,0x0006
1976 0bf3 0005 | | .CONST 0x0bf3,0x0005
1978 0c00 0007 | | .CONST 0x0c00,0x0007
197a 0c0b 0008 | | .CONST 0x0c0b,0x0008
197c 0c0d 0009 | | .CONST 0x0c0d,0x0009
197e ; --------------------------------------------------------------------------------------
197e ; Debug3 Subtable 0x27
197e ; --------------------------------------------------------------------------------------
197e 0001 000d | | .DBG3TAB 0x0001,0x000d
1980 0c13 ffff | | .CONST 0x0c13,0xffff
1982 0c14 0001 | | .CONST 0x0c14,0x0001
1984 0c1b 0002 | | .CONST 0x0c1b,0x0002
1986 0c1f 0003 | | .CONST 0x0c1f,0x0003
1988 0c32 0004 | 2 | .CONST 0x0c32,0x0004
198a 0c51 0005 | Q | .CONST 0x0c51,0x0005
198c 0c53 0006 | S | .CONST 0x0c53,0x0006
198e 0c5b 0007 | [ | .CONST 0x0c5b,0x0007
1990 0c66 0008 | f | .CONST 0x0c66,0x0008
1992 0c6e 0009 | n | .CONST 0x0c6e,0x0009
1994 0c73 000a | s | .CONST 0x0c73,0x000a
1996 0c77 000b | w | .CONST 0x0c77,0x000b
1998 0c87 000c | | .CONST 0x0c87,0x000c
199a 0c8b 000d | | .CONST 0x0c8b,0x000d
199c ; --------------------------------------------------------------------------------------
199c ; Debug3 Subtable 0x28
199c ; --------------------------------------------------------------------------------------
199c 0002 001a | | .DBG3TAB 0x0002,0x001a
199e 0c9b ffff | | .CONST 0x0c9b,0xffff
19a0 0c9c fffe | | .CONST 0x0c9c,0xfffe
19a2 0c9d 0001 | | .CONST 0x0c9d,0x0001
19a4 0ca8 0002 | | .CONST 0x0ca8,0x0002
19a6 0caa 0003 | | .CONST 0x0caa,0x0003
19a8 0caf 0004 | | .CONST 0x0caf,0x0004
19aa 0caf 0005 | | .CONST 0x0caf,0x0005
19ac 0cb7 0006 | | .CONST 0x0cb7,0x0006
19ae 0cc1 0007 | | .CONST 0x0cc1,0x0007
19b0 0cc4 0008 | | .CONST 0x0cc4,0x0008
19b2 0cc7 0009 | | .CONST 0x0cc7,0x0009
19b4 0cd2 000a | | .CONST 0x0cd2,0x000a
19b6 0cd9 000b | | .CONST 0x0cd9,0x000b
19b8 0cdc 000c | | .CONST 0x0cdc,0x000c
19ba 0ce6 000d | | .CONST 0x0ce6,0x000d
19bc 0ced 000e | | .CONST 0x0ced,0x000e
19be 0cf0 0010 | | .CONST 0x0cf0,0x0010
19c0 0cf6 0011 | | .CONST 0x0cf6,0x0011
19c2 0cfb 0012 | | .CONST 0x0cfb,0x0012
19c4 0d00 0013 | | .CONST 0x0d00,0x0013
19c6 0d08 0014 | | .CONST 0x0d08,0x0014
19c8 0d10 0015 | | .CONST 0x0d10,0x0015
19ca 0d19 0016 | | .CONST 0x0d19,0x0016
19cc 0d20 0017 | | .CONST 0x0d20,0x0017
19ce 0d25 0018 | % | .CONST 0x0d25,0x0018
19d0 0d2a 0019 | * | .CONST 0x0d2a,0x0019
19d2 0d2c 001a | , | .CONST 0x0d2c,0x001a
19d4 0d2c 001b | , | .CONST 0x0d2c,0x001b
19d6 ; --------------------------------------------------------------------------------------
19d6 ; Debug3 Subtable 0x29
19d6 ; --------------------------------------------------------------------------------------
19d6 0001 0004 | | .DBG3TAB 0x0001,0x0004
19d8 0d33 ffff | 3 | .CONST 0x0d33,0xffff
19da 0d34 0001 | 4 | .CONST 0x0d34,0x0001
19dc 0d3b 0002 | ; | .CONST 0x0d3b,0x0002
19de 0d43 0003 | C | .CONST 0x0d43,0x0003
19e0 0d4a 0004 | J | .CONST 0x0d4a,0x0004
19e2 ; --------------------------------------------------------------------------------------
19e2 ; Debug3 Subtable 0x2a
19e2 ; --------------------------------------------------------------------------------------
19e2 0006 0012 | | .DBG3TAB 0x0006,0x0012
19e4 0d53 ffff | S | .CONST 0x0d53,0xffff
19e6 0d57 fffe | W | .CONST 0x0d57,0xfffe
19e8 0d59 fffd | Y | .CONST 0x0d59,0xfffd
19ea 0d5c fffc | \ | .CONST 0x0d5c,0xfffc
19ec 0d5d fffb | ] | .CONST 0x0d5d,0xfffb
19ee 0d5f fffa | _ | .CONST 0x0d5f,0xfffa
19f0 0d60 0001 | ` | .CONST 0x0d60,0x0001
19f2 0d70 0002 | p | .CONST 0x0d70,0x0002
19f4 0d72 0003 | r | .CONST 0x0d72,0x0003
19f6 0d7f 0004 | | .CONST 0x0d7f,0x0004
19f8 0d82 0005 | | .CONST 0x0d82,0x0005
19fa 0da3 0006 | | .CONST 0x0da3,0x0006
19fc 0da6 0007 | | .CONST 0x0da6,0x0007
19fe 0dac 0008 | | .CONST 0x0dac,0x0008
1a00 0daf 0009 | | .CONST 0x0daf,0x0009
1a02 0db5 000a | | .CONST 0x0db5,0x000a
1a04 0db8 000b | | .CONST 0x0db8,0x000b
1a06 0dc6 000c | | .CONST 0x0dc6,0x000c
1a08 0dc8 000d | | .CONST 0x0dc8,0x000d
1a0a 0dd0 000e | | .CONST 0x0dd0,0x000e
1a0c 0dd7 000f | | .CONST 0x0dd7,0x000f
1a0e 0dd9 0010 | | .CONST 0x0dd9,0x0010
1a10 0ddc 0011 | | .CONST 0x0ddc,0x0011
1a12 0de8 0012 | | .CONST 0x0de8,0x0012
1a14 ; --------------------------------------------------------------------------------------
1a14 ; Debug3 Subtable 0x2b
1a14 ; --------------------------------------------------------------------------------------
1a14 0001 000a | | .DBG3TAB 0x0001,0x000a
1a16 0df3 ffff | | .CONST 0x0df3,0xffff
1a18 0df4 0001 | | .CONST 0x0df4,0x0001
1a1a 0dfb 0002 | | .CONST 0x0dfb,0x0002
1a1c 0dfe 0003 | | .CONST 0x0dfe,0x0003
1a1e 0e11 0004 | | .CONST 0x0e11,0x0004
1a20 0e30 0005 | 0 | .CONST 0x0e30,0x0005
1a22 0e38 0006 | 8 | .CONST 0x0e38,0x0006
1a24 0e3d 0007 | = | .CONST 0x0e3d,0x0007
1a26 0e41 0008 | A | .CONST 0x0e41,0x0008
1a28 0e51 0009 | Q | .CONST 0x0e51,0x0009
1a2a 0e55 000a | U | .CONST 0x0e55,0x000a
1a2c ; --------------------------------------------------------------------------------------
1a2c ; Debug3 Subtable 0x2c
1a2c ; --------------------------------------------------------------------------------------
1a2c 0000 0001 | | .DBG3TAB 0x0000,0x0001
1a2e 0e5b 0001 | [ | .CONST 0x0e5b,0x0001
1a30 ; --------------------------------------------------------------------------------------
1a30 ; Debug3 Subtable 0x2d
1a30 ; --------------------------------------------------------------------------------------
1a30 0001 0006 | | .DBG3TAB 0x0001,0x0006
1a32 0e6b ffff | k | .CONST 0x0e6b,0xffff
1a34 0e6c 0001 | l | .CONST 0x0e6c,0x0001
1a36 0e83 0002 | | .CONST 0x0e83,0x0002
1a38 0e85 0003 | | .CONST 0x0e85,0x0003
1a3a 0e8b 0004 | | .CONST 0x0e8b,0x0004
1a3c 0e8d 0005 | | .CONST 0x0e8d,0x0005
1a3e 0e91 0006 | | .CONST 0x0e91,0x0006
1a40 ; --------------------------------------------------------------------------------------
1a40 ; Debug3 Subtable 0x2e
1a40 ; --------------------------------------------------------------------------------------
1a40 0001 0008 | | .DBG3TAB 0x0001,0x0008
1a42 0e9b ffff | | .CONST 0x0e9b,0xffff
1a44 0e9c 0001 | | .CONST 0x0e9c,0x0001
1a46 0ea3 0002 | | .CONST 0x0ea3,0x0002
1a48 0eab 0003 | | .CONST 0x0eab,0x0003
1a4a 0eb3 0004 | | .CONST 0x0eb3,0x0004
1a4c 0ebb 0005 | | .CONST 0x0ebb,0x0005
1a4e 0ebd 0006 | | .CONST 0x0ebd,0x0006
1a50 0ec2 0007 | | .CONST 0x0ec2,0x0007
1a52 0ed1 0008 | | .CONST 0x0ed1,0x0008
1a54 ; --------------------------------------------------------------------------------------
1a54 ; Debug3 Subtable 0x2f
1a54 ; --------------------------------------------------------------------------------------
1a54 0000 0005 | | .DBG3TAB 0x0000,0x0005
1a56 0edb 0001 | | .CONST 0x0edb,0x0001
1a58 0ee0 0002 | | .CONST 0x0ee0,0x0002
1a5a 0ee3 0003 | | .CONST 0x0ee3,0x0003
1a5c 0ee7 0004 | | .CONST 0x0ee7,0x0004
1a5e 0ee9 0005 | | .CONST 0x0ee9,0x0005
1a60 ; --------------------------------------------------------------------------------------
1a60 ; Debug3 Subtable 0x30
1a60 ; --------------------------------------------------------------------------------------
1a60 0000 0003 | | .DBG3TAB 0x0000,0x0003
1a62 0ef5 0001 | | .CONST 0x0ef5,0x0001
1a64 0ef9 0002 | | .CONST 0x0ef9,0x0002
1a66 0efa 0003 | | .CONST 0x0efa,0x0003
1a68 ; --------------------------------------------------------------------------------------
1a68 ; Debug3 Subtable 0x31
1a68 ; --------------------------------------------------------------------------------------
1a68 000a 0015 | | .DBG3TAB 0x000a,0x0015
1a6a 0f03 ffff | | .CONST 0x0f03,0xffff
1a6c 0f04 fffe | | .CONST 0x0f04,0xfffe
1a6e 0f07 fffd | | .CONST 0x0f07,0xfffd
1a70 0f0a fffc | | .CONST 0x0f0a,0xfffc
1a72 0f0b fffb | | .CONST 0x0f0b,0xfffb
1a74 0f0c fffa | | .CONST 0x0f0c,0xfffa
1a76 0f0d fff9 | | .CONST 0x0f0d,0xfff9
1a78 0f0e fff8 | | .CONST 0x0f0e,0xfff8
1a7a 0f12 fff7 | | .CONST 0x0f12,0xfff7
1a7c 0f14 fff6 | | .CONST 0x0f14,0xfff6
1a7e 0f16 0001 | | .CONST 0x0f16,0x0001
1a80 0f18 0002 | | .CONST 0x0f18,0x0002
1a82 0f1c 0003 | | .CONST 0x0f1c,0x0003
1a84 0f2c 0004 | , | .CONST 0x0f2c,0x0004
1a86 0f33 0005 | 3 | .CONST 0x0f33,0x0005
1a88 0f3a 0006 | : | .CONST 0x0f3a,0x0006
1a8a 0f3c 0007 | < | .CONST 0x0f3c,0x0007
1a8c 0f3f 0008 | ? | .CONST 0x0f3f,0x0008
1a8e 0f46 0009 | F | .CONST 0x0f46,0x0009
1a90 0f4b 000a | K | .CONST 0x0f4b,0x000a
1a92 0f4d 000c | M | .CONST 0x0f4d,0x000c
1a94 0f50 000d | P | .CONST 0x0f50,0x000d
1a96 0f53 000e | S | .CONST 0x0f53,0x000e
1a98 0f62 000f | b | .CONST 0x0f62,0x000f
1a9a 0f64 0010 | d | .CONST 0x0f64,0x0010
1a9c 0f6a 0011 | j | .CONST 0x0f6a,0x0011
1a9e 0f7b 0012 | { | .CONST 0x0f7b,0x0012
1aa0 0f7d 0013 | } | .CONST 0x0f7d,0x0013
1aa2 0f83 0014 | | .CONST 0x0f83,0x0014
1aa4 0f87 0015 | | .CONST 0x0f87,0x0015
1aa6 0f8a 0016 | | .CONST 0x0f8a,0x0016
1aa8 ; --------------------------------------------------------------------------------------
1aa8 ; Debug3 Subtable 0x32
1aa8 ; --------------------------------------------------------------------------------------
1aa8 0000 0006 | | .DBG3TAB 0x0000,0x0006
1aaa 0f93 0001 | | .CONST 0x0f93,0x0001
1aac 0f96 0002 | | .CONST 0x0f96,0x0002
1aae 0f96 0003 | | .CONST 0x0f96,0x0003
1ab0 0fa0 0004 | | .CONST 0x0fa0,0x0004
1ab2 0fa4 0005 | | .CONST 0x0fa4,0x0005
1ab4 0faf 0006 | | .CONST 0x0faf,0x0006
1ab6 ; --------------------------------------------------------------------------------------
1ab6 ; Debug3 Subtable 0x33
1ab6 ; --------------------------------------------------------------------------------------
1ab6 0000 0003 | | .DBG3TAB 0x0000,0x0003
1ab8 0fbb 0001 | | .CONST 0x0fbb,0x0001
1aba 0fbd 0002 | | .CONST 0x0fbd,0x0002
1abc 0fc2 0003 | | .CONST 0x0fc2,0x0003
1abe ; --------------------------------------------------------------------------------------
1abe ; Debug3 Subtable 0x34
1abe ; --------------------------------------------------------------------------------------
1abe 0000 0002 | | .DBG3TAB 0x0000,0x0002
1ac0 0fcb 0001 | | .CONST 0x0fcb,0x0001
1ac2 0fcf 0002 | | .CONST 0x0fcf,0x0002
1ac4 0000 0000 | | .BLANK 0000[0x13c]