|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 15360 (0x3c00)
Notes: 00_class, 5811_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0500e0
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
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 15a0 | | .CONST 0x15a0 ; 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 000e | | .CONST 0x000e ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0115 | | .CONST 0x0115 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0042 | B | .CONST 0x0042 ; Number of locals
000b INIT_0008:
000b 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x174a,0x8000,0x0000,0x0036,0xd894,0x0000,0x0007
; Debug Table 0x0.0x0 = 0xb,0xffff
000d 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xd,0xfffe
000f 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xf,0xfffd
0011 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x11,0xfffc
0013 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x13,0xfffb
0015 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x15,0xfffa
0017 00a2 0488 | | Action Push_Discrete_Extended ; Debug Table 0x0.0x6 = 0x17,0xfff9
0019 0129 | ) | Execute Any,Make_Visible
001a 029a 0493 | | Declare_Subprogram INIT_0490,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x1a,0xfff8
001c 029a 054b | K| Declare_Subprogram INIT_0548,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x1c,0xfff7
001e 029a 05cb | | Declare_Subprogram INIT_05c8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x1e,0xfff6
0020 0007 | | Action Break_Optional ; Debug Table 0x0.0xa = 0x20,0xfff5
0021 00bf | | Action Accept_Activation ; Debug Table 0x0.0xb = 0x21,0xfff4
0022 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x0022,0x1764,0x8000,0x0000,0x0036,0xd8a4,0x0000,0x0043
; Debug Table 0x1.0x0 = 0x22,0xffff
0023 0007 | | Action Break_Optional ; Debug Table 0x1.0x1 = 0x23,0xfffe
0024 0007 | | Action Break_Optional ; Debug Table 0x1.0x2 = 0x24,0xfffd
0025 0007 | | Action Break_Optional ; Debug Table 0x1.0x3 = 0x25,0xfffc
0026 0007 | | Action Break_Optional ; Debug Table 0x1.0x4 = 0x26,0xfffb
0027 0007 | | Action Break_Optional ; Debug Table 0x1.0x5 = 0x27,0xfffa
0028 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x6 = 0x28,0xfff9
0029 1b11 | | Execute Package,Field_Read,Field_Number 0x11
002a e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x7 = 0x2a,0xfff8
002b 1b12 | | Execute Package,Field_Read,Field_Number 0x12
002c e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x8 = 0x2c,0xfff7
002d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
002e e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x9 = 0x2e,0xfff6
002f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0030 e002 | | Load 0x0,0x2 ; Debug Table 0x1.0xa = 0x30,0xfff5
0031 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0032 e003 | | Load 0x0,0x3 ; Debug Table 0x1.0xb = 0x32,0xfff4
0033 1911 | | Execute Package,Field_Reference,Field_Number 0x11
0034 0007 | | Action Break_Optional
0035 e003 | | Load 0x0,0x3 ; Debug Table 0x1.0xc = 0x35,0xfff3
0036 190f | | Execute Package,Field_Reference,Field_Number 0xf
0037 0007 | | Action Break_Optional
0038 e003 | | Load 0x0,0x3 ; Debug Table 0x1.0xd = 0x38,0xfff2
0039 190d | | Execute Package,Field_Reference,Field_Number 0xd
003a 0007 | | Action Break_Optional
003b e004 | | Load 0x0,0x4 ; Debug Table 0x1.0xe = 0x3b,0xfff1
003c 1b20 | | Execute Package,Field_Read,Field_Number 0x20
003d e005 | | Load 0x0,0x5
003e 1b15 | | Execute Package,Field_Read,Field_Number 0x15
003f 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0040 029f 06c3 | | Declare_Subprogram INIT_06c0,For_Call
0042 4802 |H | Short_Literal 0x2
0043 032d | - | Declare_Type Record,Defined
0044 4801 |H | Short_Literal 0x1 ; Debug Table 0x1.0xf = 0x44,0xfff0
0045 4812 |H | Short_Literal 0x12
0046 00e3 | | Load_Encached Natural_Cache
0047 03f8 | | Declare_Type Discrete,Constrained
0048 4801 |H | Short_Literal 0x1
0049 4811 |H | Short_Literal 0x11
004a 00e9 | | Load_Encached String_Cache
004b 035b | [ | Declare_Type Array,Constrained
004c 02a0 | | Declare_Subprogram Null_Subprogram
004d 4802 |H | Short_Literal 0x2
004e 032d | - | Declare_Type Record,Defined
004f 029b 06db | | Declare_Subprogram INIT_06d8,For_Outer_Call,Unelaborated ; Debug Table 0x1.0x10 = 0x4f,0xffef
0051 00a2 0484 | | Action Push_Discrete_Extended ; Debug Table 0x1.0x11 = 0x51,0xffee
0053 48dd |H | Short_Literal 0xdd
0054 00db | | Load_Top At_Offset_3
0055 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
0056 4820 |H | Short_Literal 0x20
0057 e006 | | Load 0x0,0x6
0058 0387 | | Declare_Variable Package
0059 00d8 | | Load_Top At_Offset_0
005a 020f | | Execute Module,Activate
005b 0007 | | Action Break_Optional ; Debug Table 0x1.0x12 = 0x5b,0xffed
005c 0007 | | Action Break_Optional ; Debug Table 0x1.0x13 = 0x5c,0xffec
005d 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 ; Debug Table 0x1.0x14 = 0x5d,0xffeb
005e 00c7 | | Action Elaborate_Subprogram
005f 029d 06e3 | | Declare_Subprogram INIT_06e0,For_Outer_Call ; Debug Table 0x1.0x15 = 0x5f,0xffea
0061 029d 06f3 | | Declare_Subprogram INIT_06f0,For_Outer_Call ; Debug Table 0x1.0x16 = 0x61,0xffe9
0063 029d 070b | | Declare_Subprogram INIT_0708,For_Outer_Call ; Debug Table 0x1.0x17 = 0x63,0xffe8
0065 029d 07db | | Declare_Subprogram INIT_07d8,For_Outer_Call ; Debug Table 0x1.0x18 = 0x65,0xffe7
0067 029d 0803 | | Declare_Subprogram INIT_0800,For_Outer_Call ; Debug Table 0x1.0x19 = 0x67,0xffe6
0069 029d 0813 | | Declare_Subprogram INIT_0810,For_Outer_Call ; Debug Table 0x1.0x1a = 0x69,0xffe5
006b 029d 0823 | #| Declare_Subprogram INIT_0820,For_Outer_Call ; Debug Table 0x1.0x1b = 0x6b,0xffe4
006d 029d 0833 | 3| Declare_Subprogram INIT_0830,For_Outer_Call ; Debug Table 0x1.0x1c = 0x6d,0xffe3
006f 029d 0843 | C| Declare_Subprogram INIT_0840,For_Outer_Call ; Debug Table 0x1.0x1d = 0x6f,0xffe2
0071 029d 0853 | S| Declare_Subprogram INIT_0850,For_Outer_Call ; Debug Table 0x1.0x1e = 0x71,0xffe1
0073 029d 0863 | c| Declare_Subprogram INIT_0860,For_Outer_Call ; Debug Table 0x1.0x1f = 0x73,0xffe0
0075 029d 0873 | s| Declare_Subprogram INIT_0870,For_Outer_Call ; Debug Table 0x1.0x20 = 0x75,0xffdf
0077 029d 0883 | | Declare_Subprogram INIT_0880,For_Outer_Call ; Debug Table 0x1.0x21 = 0x77,0xffde
0079 00a2 0484 | | Action Push_Discrete_Extended ; Debug Table 0x1.0x22 = 0x79,0xffdd
007b 00a2 0480 | | Action Push_Discrete_Extended
007d e007 | | Load 0x0,0x7
007e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
007f e008 | | Load 0x0,0x8
0080 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0081 e007 | | Load 0x0,0x7
0082 1912 | | Execute Package,Field_Reference,Field_Number 0x12
0083 e007 | | Load 0x0,0x7
0084 1913 | | Execute Package,Field_Reference,Field_Number 0x13
0085 e007 | | Load 0x0,0x7
0086 1914 | | Execute Package,Field_Reference,Field_Number 0x14
0087 e007 | | Load 0x0,0x7
0088 1915 | | Execute Package,Field_Reference,Field_Number 0x15
0089 e007 | | Load 0x0,0x7
008a 1916 | | Execute Package,Field_Reference,Field_Number 0x16
008b e007 | | Load 0x0,0x7
008c 1917 | | Execute Package,Field_Reference,Field_Number 0x17
008d e007 | | Load 0x0,0x7
008e 1918 | | Execute Package,Field_Reference,Field_Number 0x18
008f e007 | | Load 0x0,0x7
0090 1919 | | Execute Package,Field_Reference,Field_Number 0x19
0091 e007 | | Load 0x0,0x7
0092 191a | | Execute Package,Field_Reference,Field_Number 0x1a
0093 e009 | | Load 0x0,0x9
0094 191b | | Execute Package,Field_Reference,Field_Number 0x1b
0095 e004 | | Load 0x0,0x4
0096 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0097 e21f | | Load 0x1,0x1f
0098 e004 | | Load 0x0,0x4
0099 1925 | % | Execute Package,Field_Reference,Field_Number 0x25
009a 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
009b 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
009c 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
009d 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
009e 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
009f 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
00a0 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
00a1 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
00a2 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
00a3 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
00a4 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
00a5 480a |H | Short_Literal 0xa
00a6 00a2 047c | || Action Push_Discrete_Extended
00a8 481e |H | Short_Literal 0x1e
00a9 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
00aa e009 | | Load 0x0,0x9
00ab 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
00ac 0387 | | Declare_Variable Package
00ad 00d8 | | Load_Top At_Offset_0
00ae 020f | | Execute Module,Activate
00af 029d 0893 | | Declare_Subprogram INIT_0890,For_Outer_Call ; Debug Table 0x1.0x23 = 0xaf,0xffdc
00b1 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0x24 = 0xb1,0xffdb
00b2 00c7 | | Action Elaborate_Subprogram
00b3 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x25 = 0xb3,0xffda
00b4 00c7 | | Action Elaborate_Subprogram
00b5 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x26 = 0xb5,0xffd9
00b6 00c7 | | Action Elaborate_Subprogram
00b7 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x27 = 0xb7,0xffd8
00b8 00c7 | | Action Elaborate_Subprogram
00b9 029d 08ab | | Declare_Subprogram INIT_08a8,For_Outer_Call ; Debug Table 0x1.0x28 = 0xb9,0xffd7
00bb 029d 09cb | | Declare_Subprogram INIT_09c8,For_Outer_Call ; Debug Table 0x1.0x29 = 0xbb,0xffd6
00bd 029d 0a63 | c| Declare_Subprogram INIT_0a60,For_Outer_Call ; Debug Table 0x1.0x2a = 0xbd,0xffd5
00bf 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x2b = 0xbf,0xffd4
00c0 4802 |H | Short_Literal 0x2
00c1 029f 0a93 | | Declare_Subprogram INIT_0a90,For_Call
00c3 03fd | | Declare_Type Discrete,Defined
00c4 00a2 0484 | | Action Push_Discrete_Extended ; Debug Table 0x1.0x2c = 0xc4,0xffd3
00c6 63b1 |c | Indirect_Literal Discrete,0x478,{0x00000000, 0x0000088c}
00c7 00da | | Load_Top At_Offset_2
00c8 4800 |H | Short_Literal 0x0
00c9 4801 |H | Short_Literal 0x1
00ca 4802 |H | Short_Literal 0x2
00cb 0092 11f6 | | Action Push_String_Extended,0x11f6 ; "Add_New_Line => Boolean"
00cd 0092 11f7 | | Action Push_String_Extended,0x11f7 ; "Add_New_Line => True"
00cf 00ea | | Load_Encached Null_String_Cache
00d0 4801 |H | Short_Literal 0x1
00d1 4802 |H | Short_Literal 0x2
00d2 e00a | | Load 0x0,0xa
00d3 0387 | | Declare_Variable Package
00d4 00d8 | | Load_Top At_Offset_0
00d5 020f | | Execute Module,Activate
00d6 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x2d = 0xd6,0xffd2
00d7 00c7 | | Action Elaborate_Subprogram
00d8 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x2e = 0xd8,0xffd1
00d9 4806 |H | Short_Literal 0x6
00da 029f 0aab | | Declare_Subprogram INIT_0aa8,For_Call
00dc 03fd | | Declare_Type Discrete,Defined
00dd 63a6 |c | Indirect_Literal Discrete,0x484,{0x00000000, 0x0036d8a4} ; Debug Table 0x1.0x2f = 0xdd,0xffd0
00de 6395 |c | Indirect_Literal Discrete,0x474,{0x00000000, 0x00000b97}
00df 00da | | Load_Top At_Offset_2
00e0 4800 |H | Short_Literal 0x0
00e1 4801 |H | Short_Literal 0x1
00e2 4806 |H | Short_Literal 0x6
00e3 0092 11f8 | | Action Push_String_Extended,0x11f8 ; "Record_Length | Block_Length => Integer Text_Files => Boolean"
00e5 0092 11f9 | | Action Push_String_Extended,0x11f9 ; "Text_Files => True"
00e7 00ea | | Load_Encached Null_String_Cache
00e8 4801 |H | Short_Literal 0x1
00e9 4806 |H | Short_Literal 0x6
00ea e00a | | Load 0x0,0xa
00eb 0387 | | Declare_Variable Package
00ec 00d8 | | Load_Top At_Offset_0
00ed 020f | | Execute Module,Activate
00ee 6395 |c | Indirect_Literal Discrete,0x484,{0x00000000, 0x0036d8a4} ; Debug Table 0x1.0x30 = 0xee,0xffcf
00ef 6380 |c | Indirect_Literal Discrete,0x470,{0x00000000, 0x00000ba7}
00f0 e00b | | Load 0x0,0xb
00f1 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
00f2 4803 |H | Short_Literal 0x3
00f3 4804 |H | Short_Literal 0x4
00f4 4801 |H | Short_Literal 0x1
00f5 e238 | 8 | Load 0x1,0x38
00f6 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
00f7 0387 | | Declare_Variable Package
00f8 00d8 | | Load_Top At_Offset_0
00f9 020f | | Execute Module,Activate
00fa 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x31 = 0xfa,0xffce
00fb 00c7 | | Action Elaborate_Subprogram
00fc 029d 0ac3 | | Declare_Subprogram INIT_0ac0,For_Outer_Call ; Debug Table 0x1.0x32 = 0xfc,0xffcd
00fe e00c | | Load 0x0,0xc ; Debug Table 0x1.0x33 = 0xfe,0xffcc
00ff 190f | | Execute Package,Field_Reference,Field_Number 0xf
0100 00c6 | | Action Check_Subprogram_Elaborated
0101 e00d | | Load 0x0,0xd
0102 1964 | d | Execute Package,Field_Reference,Field_Number 0x64
0103 6380 |c | Indirect_Literal Discrete,0x484,{0x00000000, 0x0036d8a4}
0104 6367 |cg | Indirect_Literal Discrete,0x46c,{0x00000000, 0x0000148b}
0105 4800 |H | Short_Literal 0x0
0106 0007 | | Action Break_Optional
0107 029d 0b2b | +| Declare_Subprogram INIT_0b28,For_Outer_Call ; Debug Table 0x1.0x34 = 0x107,0xffcb
0109 029d 0b7b | {| Declare_Subprogram INIT_0b78,For_Outer_Call ; Debug Table 0x1.0x35 = 0x109,0xffca
010b 029d 0c4b | K| Declare_Subprogram INIT_0c48,For_Outer_Call ; Debug Table 0x1.0x36 = 0x10b,0xffc9
010d 029d 0c8b | | Declare_Subprogram INIT_0c88,For_Outer_Call ; Debug Table 0x1.0x37 = 0x10d,0xffc8
010f 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0x38 = 0x10f,0xffc7
0110 00c7 | | Action Elaborate_Subprogram
0111 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0x39 = 0x111,0xffc6
0112 00c7 | | Action Elaborate_Subprogram
0113 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0x3a = 0x113,0xffc5
0114 00c7 | | Action Elaborate_Subprogram
0115 BODY_0008:
0115 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x3b = 0x115,0x1
0116 00ea | | Load_Encached Null_String_Cache
0117 4805 |H | Short_Literal 0x5
0118 0092 11fa | | Action Push_String_Extended,0x11fa ; "R1000"
011a 4802 |H | Short_Literal 0x2
011b e238 | 8 | Load 0x1,0x38
011c 1819 | | Execute Package,Field_Execute,Field_Number 0x19
011d 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x3c = 0x11d,0x2
011e 00ea | | Load_Encached Null_String_Cache
011f 4805 |H | Short_Literal 0x5
0120 0092 11fb | | Action Push_String_Extended,0x11fb ; "MV"
0122 4802 |H | Short_Literal 0x2
0123 e238 | 8 | Load 0x1,0x38
0124 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0125 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x3d = 0x125,0x3
0126 00ea | | Load_Encached Null_String_Cache
0127 4805 |H | Short_Literal 0x5
0128 0092 11fc | | Action Push_String_Extended,0x11fc ; "Vax/Vms"
012a 4802 |H | Short_Literal 0x2
012b e238 | 8 | Load 0x1,0x38
012c 1819 | | Execute Package,Field_Execute,Field_Number 0x19
012d 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x3e = 0x12d,0x4
012e 00ea | | Load_Encached Null_String_Cache
012f 4805 |H | Short_Literal 0x5
0130 0092 11fa | | Action Push_String_Extended,0x11fa ; "R1000"
0132 4801 |H | Short_Literal 0x1
0133 e236 | 6 | Load 0x1,0x36
0134 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0135 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x3f = 0x135,0x5
0136 00ea | | Load_Encached Null_String_Cache
0137 4805 |H | Short_Literal 0x5
0138 0092 11fb | | Action Push_String_Extended,0x11fb ; "MV"
013a 4801 |H | Short_Literal 0x1
013b e236 | 6 | Load 0x1,0x36
013c 1819 | | Execute Package,Field_Execute,Field_Number 0x19
013d 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x40 = 0x13d,0x6
013e 00ea | | Load_Encached Null_String_Cache
013f 4805 |H | Short_Literal 0x5
0140 0092 11fc | | Action Push_String_Extended,0x11fc ; "Vax/Vms"
0142 4801 |H | Short_Literal 0x1
0143 e236 | 6 | Load 0x1,0x36
0144 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0145 00bc | | Action Signal_Activated
0146 00bb | | Action Signal_Completion
0147 0000 | | .XXX[0x1]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 0150 | P | .CONST 0x0150 ; Address of begin
0149 016a | j | .CONST 0x016a ; Address of exception handler
014a 0002 | | .CONST 0x0002 ; Number of locals
014b INIT_0148:
014b e00e | | Load 0x0,0xe ; Debug Table 0x2 = .DEBUG 0x014b,0x17e8,0x0001,0x0000,0x0036,0xd894,0x0000,0x0008
; Debug Table 0x2.0x0 = 0x14b,0xffff
014c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
014d 02c7 | | Declare_Variable Any
014e 00d8 | | Load_Top At_Offset_0
014f 1c00 | | Execute_Immediate Run_Utility,0x0
0150 BODY_0148:
0150 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x1 = 0x150,0x1
0151 e008 | | Load 0x0,0x8
0152 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0153 e00f | | Load 0x0,0xf
0154 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0155 00ea | | Load_Encached Null_String_Cache
0156 4802 |H | Short_Literal 0x2
0157 e5ff | | Load 0x2,-0x1
0158 00e0 | | Load_Encached Standard_Cache
0159 1818 | | Execute Package,Field_Execute,Field_Number 0x18
015a 01d7 | | Execute Vector,Field_Read
015b 0092 11fd | | Action Push_String_Extended,0x11fd ; "!Machine.Devices.Tape_"
015d 01cb | | Execute Vector,Append
015e 4800 |H | Short_Literal 0x0
015f e00e | | Load 0x0,0xe
0160 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0161 c402 | | Store 0x2,0x2
0162 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x2 = 0x162,0x2
0163 e010 | | Load 0x0,0x10
0164 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0165 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x3 = 0x165,0x3
0166 e00e | | Load 0x0,0xe
0167 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0168 c402 | | Store 0x2,0x2
0169 4502 |E | Exit_Suprogram New_Top_Offset 0x2
016a TRAP_0148:
016a 0007 | | Action Break_Optional
016b 0092 11fe | | Action Push_String_Extended,0x11fe ; "Unexpected exception"
; Debug Table 0x2.0x4 = 0x16b,0x4
016d 8224 | $ | Call 0x1,0x24
016e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
016f 0000 | | .XXX[0x1]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0178 | x | .CONST 0x0178 ; Address of begin
0171 018e | | .CONST 0x018e ; Address of exception handler
0172 0002 | | .CONST 0x0002 ; Number of locals
0173 INIT_0170:
0173 e00e | | Load 0x0,0xe ; Debug Table 0x3 = .DEBUG 0x0173,0x17f4,0x0001,0x0000,0x0036,0xd894,0x0000,0x0011
; Debug Table 0x3.0x0 = 0x173,0xffff
0174 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0175 02c7 | | Declare_Variable Any
0176 00d8 | | Load_Top At_Offset_0
0177 1c00 | | Execute_Immediate Run_Utility,0x0
0178 BODY_0170:
0178 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x1 = 0x178,0x1
0179 e008 | | Load 0x0,0x8
017a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
017b e00f | | Load 0x0,0xf
017c 181e | | Execute Package,Field_Execute,Field_Number 0x1e
017d 00ea | | Load_Encached Null_String_Cache
017e 4802 |H | Short_Literal 0x2
017f e5ff | | Load 0x2,-0x1
0180 00e0 | | Load_Encached Standard_Cache
0181 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0182 01d7 | | Execute Vector,Field_Read
0183 0092 11fd | | Action Push_String_Extended,0x11fd ; "!Machine.Devices.Tape_"
0185 01cb | | Execute Vector,Append
0186 4800 |H | Short_Literal 0x0
0187 e00e | | Load 0x0,0xe
0188 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0189 c402 | | Store 0x2,0x2
018a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x2 = 0x18a,0x2
018b e010 | | Load 0x0,0x10
018c 1815 | | Execute Package,Field_Execute,Field_Number 0x15
018d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
018e TRAP_0170:
018e 0007 | | Action Break_Optional
018f 0092 11fe | | Action Push_String_Extended,0x11fe ; "Unexpected exception"
; Debug Table 0x3.0x3 = 0x18f,0x3
0191 8224 | $ | Call 0x1,0x24
0192 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0193 0000 0000 | | .BLANK 0000[0x5]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 01a2 | | .CONST 0x01a2 ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b e008 | | Load 0x0,0x8 ; Debug Table 0x4 = .DEBUG 0x019b,0x17fe,0x0001,0x0000,0x0036,0xd894,0x0000,0x001a
; Debug Table 0x4.0x0 = 0x19b,0x1
019c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
019d 00db | | Load_Top At_Offset_3
019e 8231 | 1 | Call 0x1,0x31
019f e230 | 0 | Load 0x1,0x30
01a0 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
01a1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01a2 TRAP_0198:
01a2 62c5 |b | Indirect_Literal Discrete,0x468,{0x00000000, 0x36d8a401}
01a3 010f | | Execute Exception,Equal
01a4 6801 |h | Jump_Zero 0x1a6
01a5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0x4.0x1 = 0x1a5,0x2
01a6 0092 11fe | | Action Push_String_Extended,0x11fe ; "Unexpected exception"
; Debug Table 0x4.0x2 = 0x1a6,0x3
01a8 8224 | $ | Call 0x1,0x24
01a9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01aa 0000 0000 | | .BLANK 0000[0x6]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3 | | .CONST 0x01b3 ; Address of begin
01b1 01bc | | .CONST 0x01bc ; Address of exception handler
01b2 0001 | | .CONST 0x0001 ; Number of locals
01b3 BODY_01b0:
01b3 INIT_01b0:
01b3 e008 | | Load 0x0,0x8 ; Debug Table 0x5 = .DEBUG 0x01b3,0x1806,0x0001,0x0000,0x0036,0xd894,0x0000,0x0023
; Debug Table 0x5.0x0 = 0x1b3,0x1
01b4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01b5 e5fe | | Load 0x2,-0x2
01b6 e5ff | | Load 0x2,-0x1
01b7 e5fd | | Load 0x2,-0x3
01b8 8231 | 1 | Call 0x1,0x31
01b9 e230 | 0 | Load 0x1,0x30
01ba 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
01bb 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01bc TRAP_01b0:
01bc 62ab |b | Indirect_Literal Discrete,0x468,{0x00000000, 0x36d8a401}
01bd 010f | | Execute Exception,Equal
01be 6801 |h | Jump_Zero 0x1c0
01bf 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; Debug Table 0x5.0x1 = 0x1bf,0x2
01c0 0092 11fe | | Action Push_String_Extended,0x11fe ; "Unexpected exception"
; Debug Table 0x5.0x2 = 0x1c0,0x3
01c2 8224 | $ | Call 0x1,0x24
01c3 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01c4 0000 0000 | | .BLANK 0000[0x4]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01f9 | | .CONST 0x01f9 ; Address of begin
01c9 0286 | | .CONST 0x0286 ; Address of exception handler
01ca 000b | | .CONST 0x000b ; Number of locals
01cb INIT_01c8:
01cb e00b | | Load 0x0,0xb ; Debug Table 0x6 = .DEBUG 0x01cb,0x180e,0x0001,0x0000,0x0036,0xd894,0x0000,0x0035
; Debug Table 0x6.0x0 = 0x1cb,0xffff
01cc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01cd 02c7 | | Declare_Variable Any
01ce 00d8 | | Load_Top At_Offset_0
01cf 1c00 | | Execute_Immediate Run_Utility,0x0
01d0 e00e | | Load 0x0,0xe ; Debug Table 0x6.0x1 = 0x1d0,0xfffe
01d1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01d2 02c7 | | Declare_Variable Any
01d3 00d8 | | Load_Top At_Offset_0
01d4 1c00 | | Execute_Immediate Run_Utility,0x0
01d5 e236 | 6 | Load 0x1,0x36 ; Debug Table 0x6.0x2 = 0x1d5,0xfffd
01d6 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
01d7 e5fd | | Load 0x2,-0x3
01d8 e236 | 6 | Load 0x1,0x36
01d9 1820 | | Execute Package,Field_Execute,Field_Number 0x20
01da 0031 | 1 | Store_Top Heap_Access,At_Offset_1
01db 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x6.0x3 = 0x1db,0xfffc
01dc 4801 |H | Short_Literal 0x1
01dd 00da | | Load_Top At_Offset_2
01de e236 | 6 | Load 0x1,0x36
01df 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
01e0 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0x4 = 0x1e0,0xfffb
01e1 4802 |H | Short_Literal 0x2
01e2 00db | | Load_Top At_Offset_3
01e3 e236 | 6 | Load 0x1,0x36
01e4 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
01e5 00e1 | | Load_Encached Boolean_Cache
01e6 03f1 | | Declare_Variable Discrete,With_Value
01e7 e011 | | Load 0x0,0x11 ; Debug Table 0x6.0x5 = 0x1e7,0xfffa
01e8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01e9 02c7 | | Declare_Variable Any
01ea 00d8 | | Load_Top At_Offset_0
01eb 1c00 | | Execute_Immediate Run_Utility,0x0
01ec e012 | | Load 0x0,0x12 ; Debug Table 0x6.0x6 = 0x1ec,0xfff9
01ed 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01ee 02c7 | | Declare_Variable Any
01ef 00d8 | | Load_Top At_Offset_0
01f0 1c00 | | Execute_Immediate Run_Utility,0x0
01f1 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x6.0x7 = 0x1f1,0xfff8
01f2 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
01f3 0007 | | Action Break_Optional ; Debug Table 0x6.0x8 = 0x1f3,0xfff7
01f4 e5ff | | Load 0x2,-0x1 ; Debug Table 0x6.0x9 = 0x1f4,0xfff6
01f5 e013 | | Load 0x0,0x13
01f6 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01f7 029f 0cbb | | Declare_Subprogram INIT_0cb8,For_Call ; Debug Table 0x6.0xa = 0x1f7,0xfff5
01f9 BODY_01c8:
01f9 e407 | | Load 0x2,0x7 ; Debug Table 0x6.0xb = 0x1f9,0x1
01fa e408 | | Load 0x2,0x8
01fb 0120 | | Execute Any,Is_Value
01fc 6803 |h | Jump_Zero 0x200
01fd e012 | | Load 0x0,0x12
01fe 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01ff 7801 |x | Jump 0x201
0200 e408 | | Load 0x2,0x8
0201 e5fb | | Load 0x2,-0x5
0202 e012 | | Load 0x0,0x12
0203 184c | L | Execute Package,Field_Execute,Field_Number 0x4c
0204 c408 | | Store 0x2,0x8
0205 c407 | | Store 0x2,0x7
0206 e012 | | Load 0x0,0x12 ; Debug Table 0x6.0xc = 0x206,0x2
0207 180e | | Execute Package,Field_Execute,Field_Number 0xe
0208 e407 | | Load 0x2,0x7
0209 e014 | | Load 0x0,0x14
020a 1812 | | Execute Package,Field_Execute,Field_Number 0x12
020b 00cf | | Action Mark_Auxiliary
020c 7815 |x | Jump 0x222
020d 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0xd = 0x20d,0x4
020e e404 | | Load 0x2,0x4
020f e236 | 6 | Load 0x1,0x36
0210 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0211 700b |p | Jump_Nonzero 0x21d
0212 e408 | | Load 0x2,0x8 ; Debug Table 0x6.0xe = 0x212,0x5
0213 4806 |H | Short_Literal 0x6
0214 0092 11ff | | Action Push_String_Extended,0x11ff ; "Error in format parameter: "
0216 4800 |H | Short_Literal 0x0
0217 e404 | | Load 0x2,0x4
0218 e236 | 6 | Load 0x1,0x36
0219 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
021a 01cc | | Execute Vector,Catenate
021b e014 | | Load 0x0,0x14
021c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
021d e404 | | Load 0x2,0x4 ; Debug Table 0x6.0xf = 0x21d,0x6
021e e236 | 6 | Load 0x1,0x36
021f 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0220 c404 | | Store 0x2,0x4
0221 00c9 | | Action Pop_Auxiliary_Loop
0222 e404 | | Load 0x2,0x4 ; Debug Table 0x6.0x10 = 0x222,0x3
0223 e236 | 6 | Load 0x1,0x36
0224 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0225 6fe7 |o | Jump_Zero 0x20d
0226 00ce | | Action Pop_Auxiliary
0227 e402 | | Load 0x2,0x2 ; Debug Table 0x6.0x11 = 0x227,0x7
0228 0120 | | Execute Any,Is_Value
0229 6803 |h | Jump_Zero 0x22d
022a e00b | | Load 0x0,0xb
022b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
022c 7801 |x | Jump 0x22e
022d e402 | | Load 0x2,0x2
022e e408 | | Load 0x2,0x8
022f e405 | | Load 0x2,0x5
0230 8234 | 4 | Call 0x1,0x34
0231 e00b | | Load 0x0,0xb
0232 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0233 c402 | | Store 0x2,0x2
0234 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0x12 = 0x234,0x8
0235 4802 |H | Short_Literal 0x2
0236 0092 1200 | | Action Push_String_Extended,0x1200 ; "Operator has been requested to mount volume "
0238 e40a | | Load 0x2,0xa
0239 01cc | | Execute Vector,Catenate
023a 0092 1201 | | Action Push_String_Extended,0x1201 ; " for READING"
023c 01cc | | Execute Vector,Catenate
023d e014 | | Load 0x0,0x14
023e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
023f e402 | | Load 0x2,0x2 ; Debug Table 0x6.0x13 = 0x23f,0x9
0240 e5fc | | Load 0x2,-0x4
0241 00ea | | Load_Encached Null_String_Cache
0242 e40a | | Load 0x2,0xa
0243 e00b | | Load 0x0,0xb
0244 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0245 c402 | | Store 0x2,0x2
0246 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0x14 = 0x246,0xa
0247 4802 |H | Short_Literal 0x2
0248 0092 1202 | | Action Push_String_Extended,0x1202 ; "Reading from volume "
024a e402 | | Load 0x2,0x2
024b e00b | | Load 0x0,0xb
024c 181a | | Execute Package,Field_Execute,Field_Number 0x1a
024d 01cc | | Execute Vector,Catenate
024e e014 | | Load 0x0,0x14
024f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0250 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0x15 = 0x250,0xb
0251 4802 |H | Short_Literal 0x2
0252 4822 |H" | Short_Literal 0x22
0253 0092 1203 | | Action Push_String_Extended,0x1203 ; "Label is \x22"
0255 e402 | | Load 0x2,0x2
0256 e00b | | Load 0x0,0xb
0257 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0258 01cc | | Execute Vector,Catenate
0259 01cb | | Execute Vector,Append
025a e014 | | Load 0x0,0x14
025b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
025c 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0x16 = 0x25c,0xc
025d 4802 |H | Short_Literal 0x2
025e 0092 1204 | | Action Push_String_Extended,0x1204 ; "Tape format is: "
0260 e405 | | Load 0x2,0x5
0261 01cc | | Execute Vector,Catenate
0262 e014 | | Load 0x0,0x14
0263 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0264 00cf | | Action Mark_Auxiliary
0265 7806 |x | Jump 0x26c
0266 e402 | | Load 0x2,0x2 ; Debug Table 0x6.0x17 = 0x266,0xe
0267 e00b | | Load 0x0,0xb
0268 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0269 c402 | | Store 0x2,0x2
026a 840b | | Call 0x2,0xb ; Debug Table 0x6.0x18 = 0x26a,0xf
026b 00c9 | | Action Pop_Auxiliary_Loop
026c e402 | | Load 0x2,0x2 ; Debug Table 0x6.0x19 = 0x26c,0xd
026d e00b | | Load 0x0,0xb
026e 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
026f 6ff6 |o | Jump_Zero 0x266
0270 00ce | | Action Pop_Auxiliary
0271 e402 | | Load 0x2,0x2 ; Debug Table 0x6.0x1a = 0x271,0x10
0272 e00b | | Load 0x0,0xb
0273 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0274 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0x1b = 0x274,0x11
0275 4802 |H | Short_Literal 0x2
0276 0092 1205 | | Action Push_String_Extended,0x1205 ; "End of tape "
0278 e5ff | | Load 0x2,-0x1
0279 01cc | | Execute Vector,Catenate
027a e014 | | Load 0x0,0x14
027b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
027c 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x1c = 0x27c,0x12
027d 0c01 | | Execute_Immediate Greater_Equal,0x1
027e 6806 |h | Jump_Zero 0x285
027f 00db | | Load_Top At_Offset_3
0280 e012 | | Load 0x0,0x12
0281 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0282 6802 |h | Jump_Zero 0x285
0283 e213 | | Load 0x1,0x13 ; Debug Table 0x6.0x1d = 0x283,0x13
0284 0257 | W | Execute Discrete,Raise
0285 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0286 TRAP_01c8:
0286 e213 | | Load 0x1,0x13
0287 010f | | Execute Exception,Equal
0288 6802 |h | Jump_Zero 0x28b
0289 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x1e = 0x289,0x14
028a 0101 | | Execute Exception,Reraise
028b 61d8 |a | Indirect_Literal Discrete,0x464,{0x00000000, 0x36d8a403}
028c 010f | | Execute Exception,Equal
028d 7003 |p | Jump_Nonzero 0x291
028e 61d1 |a | Indirect_Literal Discrete,0x460,{0x00000000, 0x36d8a402}
028f 010f | | Execute Exception,Equal
0290 680a |h | Jump_Zero 0x29b
0291 e402 | | Load 0x2,0x2 ; Debug Table 0x6.0x1f = 0x291,0x15
0292 e00b | | Load 0x0,0xb
0293 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0294 e408 | | Load 0x2,0x8 ; Debug Table 0x6.0x20 = 0x294,0x16
0295 e012 | | Load 0x0,0x12
0296 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0297 6802 |h | Jump_Zero 0x29a
0298 e213 | | Load 0x1,0x13 ; Debug Table 0x6.0x21 = 0x298,0x17
0299 0257 | W | Execute Discrete,Raise
029a 4506 |E | Exit_Suprogram New_Top_Offset 0x6
029b e402 | | Load 0x2,0x2 ; Debug Table 0x6.0x22 = 0x29b,0x18
029c e00b | | Load 0x0,0xb
029d 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
029e 0b00 | | Execute_Immediate Case_Compare,0x0
029f 7008 |p | Jump_Nonzero 0x2a8
02a0 e408 | | Load 0x2,0x8 ; Debug Table 0x6.0x23 = 0x2a0,0x1a
02a1 4807 |H | Short_Literal 0x7
02a2 e402 | | Load 0x2,0x2
02a3 e00b | | Load 0x0,0xb
02a4 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
02a5 e014 | | Load 0x0,0x14
02a6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02a7 780e |x | Jump 0x2b6
02a8 e408 | | Load 0x2,0x8 ; Debug Table 0x6.0x24 = 0x2a8,0x19
02a9 4808 |H | Short_Literal 0x8
02aa 0092 1206 | | Action Push_String_Extended,0x1206 ; "Unexpected exception raised attempting to read "
02ac e5ff | | Load 0x2,-0x1
02ad 01cc | | Execute Vector,Catenate
02ae 0092 1207 | | Action Push_String_Extended,0x1207 ; ": "
02b0 01cc | | Execute Vector,Catenate
02b1 e015 | | Load 0x0,0x15
02b2 180d | | Execute Package,Field_Execute,Field_Number 0xd
02b3 01cc | | Execute Vector,Catenate
02b4 e014 | | Load 0x0,0x14
02b5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02b6 00d1 | | Pop_Control Pop_Count_1
02b7 e402 | | Load 0x2,0x2 ; Debug Table 0x6.0x25 = 0x2b7,0x1b
02b8 e00b | | Load 0x0,0xb
02b9 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
02ba e408 | | Load 0x2,0x8 ; Debug Table 0x6.0x26 = 0x2ba,0x1c
02bb e012 | | Load 0x0,0x12
02bc 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02bd 6802 |h | Jump_Zero 0x2c0
02be e213 | | Load 0x1,0x13 ; Debug Table 0x6.0x27 = 0x2be,0x1d
02bf 0257 | W | Execute Discrete,Raise
02c0 4506 |E | Exit_Suprogram New_Top_Offset 0x6
02c1 0000 0000 | | .BLANK 0000[0x7]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 0351 | Q | .CONST 0x0351 ; Address of begin
02c9 0425 | % | .CONST 0x0425 ; Address of exception handler
02ca 001e | | .CONST 0x001e ; Number of locals
02cb INIT_02c8:
02cb e220 | | Load 0x1,0x20 ; Debug Table 0x7 = .DEBUG 0x02cb,0x1860,0x0001,0x0000,0x0036,0xd894,0x0000,0x0051
; Debug Table 0x7.0x0 = 0x2cb,0xffff
02cc 02a0 | | Declare_Subprogram Null_Subprogram
02cd 4818 |H | Short_Literal 0x18
02ce 03d5 | | Declare_Type Access,Defined
02cf 0007 | | Action Break_Optional ; Debug Table 0x7.0x1 = 0x2cf,0xfffe
02d0 e238 | 8 | Load 0x1,0x38 ; Debug Table 0x7.0x2 = 0x2d0,0xfffd
02d1 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
02d2 e5fd | | Load 0x2,-0x3
02d3 e238 | 8 | Load 0x1,0x38
02d4 1820 | | Execute Package,Field_Execute,Field_Number 0x20
02d5 0031 | 1 | Store_Top Heap_Access,At_Offset_1
02d6 e222 | " | Load 0x1,0x22 ; Debug Table 0x7.0x3 = 0x2d6,0xfffc
02d7 1b12 | | Execute Package,Field_Read,Field_Number 0x12
02d8 e00f | | Load 0x0,0xf ; Debug Table 0x7.0x4 = 0x2d8,0xfffb
02d9 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
02da 1b17 | | Execute Package,Field_Read,Field_Number 0x17
02db e00f | | Load 0x0,0xf ; Debug Table 0x7.0x5 = 0x2db,0xfffa
02dc 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
02dd 1b17 | | Execute Package,Field_Read,Field_Number 0x17
02de e016 | | Load 0x0,0x16 ; Debug Table 0x7.0x6 = 0x2de,0xfff9
02df 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02e0 02c7 | | Declare_Variable Any
02e1 00d8 | | Load_Top At_Offset_0
02e2 1c00 | | Execute_Immediate Run_Utility,0x0
02e3 e00f | | Load 0x0,0xf ; Debug Table 0x7.0x7 = 0x2e3,0xfff8
02e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02e5 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x7.0x8 = 0x2e5,0xfff7
02e6 4802 |H | Short_Literal 0x2
02e7 e403 | | Load 0x2,0x3
02e8 e238 | 8 | Load 0x1,0x38
02e9 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
02ea e00b | | Load 0x0,0xb ; Debug Table 0x7.0x9 = 0x2ea,0xfff6
02eb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02ec 02c7 | | Declare_Variable Any
02ed 00d8 | | Load_Top At_Offset_0
02ee 1c00 | | Execute_Immediate Run_Utility,0x0
02ef e00d | | Load 0x0,0xd ; Debug Table 0x7.0xa = 0x2ef,0xfff5
02f0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02f1 02c7 | | Declare_Variable Any
02f2 00d8 | | Load_Top At_Offset_0
02f3 1c00 | | Execute_Immediate Run_Utility,0x0
02f4 0092 1208 | | Action Push_String_Extended,0x1208 ; "!Machine.Temporary.Ansi_Write_Index_"
; Debug Table 0x7.0xb = 0x2f4,0xfff4
02f6 e017 | | Load 0x0,0x17
02f7 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02f8 e017 | | Load 0x0,0x17
02f9 181c | | Execute Package,Field_Execute,Field_Number 0x1c
02fa 01cc | | Execute Vector,Catenate
02fb 0092 1209 | | Action Push_String_Extended,0x1209 ; "_"
02fd 01cc | | Execute Vector,Catenate
02fe e017 | | Load 0x0,0x17
02ff 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0300 e017 | | Load 0x0,0x17
0301 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0302 01cc | | Execute Vector,Catenate
0303 0007 | | Action Break_Optional
0304 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x7.0xc = 0x304,0xfff3
0305 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0306 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x7.0xd = 0x306,0xfff2
0307 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0308 0092 120a | | Action Push_String_Extended,0x120a ; "Written "
; Debug Table 0x7.0xe = 0x308,0xfff1
030a 4800 |H | Short_Literal 0x0
030b 4800 |H | Short_Literal 0x0
030c 4800 |H | Short_Literal 0x0
030d e018 | | Load 0x0,0x18
030e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
030f e018 | | Load 0x0,0x18
0310 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0311 01cc | | Execute Vector,Catenate
0312 4803 |H | Short_Literal 0x3
0313 e403 | | Load 0x2,0x3
0314 e238 | 8 | Load 0x1,0x38
0315 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0316 0007 | | Action Break_Optional ; Debug Table 0x7.0xf = 0x316,0xfff0
0317 4801 |H | Short_Literal 0x1 ; Debug Table 0x7.0x10 = 0x317,0xffef
0318 4801 |H | Short_Literal 0x1
0319 4804 |H | Short_Literal 0x4
031a e403 | | Load 0x2,0x3
031b e239 | 9 | Load 0x1,0x39
031c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
031d e00b | | Load 0x0,0xb
031e 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
031f 03f1 | | Declare_Variable Discrete,With_Value
0320 4a00 |J | Short_Literal 0x200 ; Debug Table 0x7.0x11 = 0x320,0xffee
0321 4805 |H | Short_Literal 0x5
0322 e403 | | Load 0x2,0x3
0323 e238 | 8 | Load 0x1,0x38
0324 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0325 00e3 | | Load_Encached Natural_Cache
0326 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0327 6134 |a4 | Indirect_Literal Discrete,0x45c,{0x00000000, 0x00000800} ; Debug Table 0x7.0x12 = 0x327,0xffed
0328 4806 |H | Short_Literal 0x6
0329 e403 | | Load 0x2,0x3
032a e238 | 8 | Load 0x1,0x38
032b 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
032c 00e3 | | Load_Encached Natural_Cache
032d 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
032e 4800 |H | Short_Literal 0x0 ; Debug Table 0x7.0x13 = 0x32e,0xffec
032f 4801 |H | Short_Literal 0x1
0330 e403 | | Load 0x2,0x3
0331 e238 | 8 | Load 0x1,0x38
0332 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0333 00e1 | | Load_Encached Boolean_Cache
0334 03f1 | | Declare_Variable Discrete,With_Value
0335 e011 | | Load 0x0,0x11 ; Debug Table 0x7.0x14 = 0x335,0xffeb
0336 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0337 02c7 | | Declare_Variable Any
0338 00d8 | | Load_Top At_Offset_0
0339 1c00 | | Execute_Immediate Run_Utility,0x0
033a e012 | | Load 0x0,0x12 ; Debug Table 0x7.0x15 = 0x33a,0xffea
033b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
033c 02c7 | | Declare_Variable Any
033d 00d8 | | Load_Top At_Offset_0
033e 1c00 | | Execute_Immediate Run_Utility,0x0
033f 029f 0d4b | K| Declare_Subprogram INIT_0d48,For_Call ; Debug Table 0x7.0x16 = 0x33f,0xffe9
0341 029f 0d83 | | Declare_Subprogram INIT_0d80,For_Call ; Debug Table 0x7.0x17 = 0x341,0xffe8
0343 029f 0dbb | | Declare_Subprogram INIT_0db8,For_Call ; Debug Table 0x7.0x18 = 0x343,0xffe7
0345 029f 0ddb | | Declare_Subprogram INIT_0dd8,For_Call ; Debug Table 0x7.0x19 = 0x345,0xffe6
0347 029f 0e33 | 3| Declare_Subprogram INIT_0e30,For_Call ; Debug Table 0x7.0x1a = 0x347,0xffe5
0349 029f 0e53 | S| Declare_Subprogram INIT_0e50,For_Call ; Debug Table 0x7.0x1b = 0x349,0xffe4
034b 029f 0eb3 | | Declare_Subprogram INIT_0eb0,For_Call ; Debug Table 0x7.0x1c = 0x34b,0xffe3
034d 029f 0f6b | k| Declare_Subprogram INIT_0f68,For_Call ; Debug Table 0x7.0x1d = 0x34d,0xffe2
034f 029f 0fcb | | Declare_Subprogram INIT_0fc8,For_Call ; Debug Table 0x7.0x1e = 0x34f,0xffe1
0351 BODY_02c8:
0351 e414 | | Load 0x2,0x14 ; Debug Table 0x7.0x1f = 0x351,0x1
0352 e415 | | Load 0x2,0x15
0353 0120 | | Execute Any,Is_Value
0354 6803 |h | Jump_Zero 0x358
0355 e012 | | Load 0x0,0x12
0356 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0357 7801 |x | Jump 0x359
0358 e415 | | Load 0x2,0x15
0359 e5fb | | Load 0x2,-0x5
035a e012 | | Load 0x0,0x12
035b 184c | L | Execute Package,Field_Execute,Field_Number 0x4c
035c c415 | | Store 0x2,0x15
035d c414 | | Store 0x2,0x14
035e e012 | | Load 0x0,0x12 ; Debug Table 0x7.0x20 = 0x35e,0x2
035f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0360 e414 | | Load 0x2,0x14
0361 e014 | | Load 0x0,0x14
0362 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0363 00cf | | Action Mark_Auxiliary
0364 7815 |x | Jump 0x37a
0365 4800 |H | Short_Literal 0x0 ; Debug Table 0x7.0x21 = 0x365,0x4
0366 e403 | | Load 0x2,0x3
0367 e238 | 8 | Load 0x1,0x38
0368 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0369 700b |p | Jump_Nonzero 0x375
036a e415 | | Load 0x2,0x15 ; Debug Table 0x7.0x22 = 0x36a,0x5
036b 4806 |H | Short_Literal 0x6
036c 0092 11ff | | Action Push_String_Extended,0x11ff ; "Error in format parameter: "
036e 4800 |H | Short_Literal 0x0
036f e403 | | Load 0x2,0x3
0370 e238 | 8 | Load 0x1,0x38
0371 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0372 01cc | | Execute Vector,Catenate
0373 e014 | | Load 0x0,0x14
0374 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0375 e403 | | Load 0x2,0x3 ; Debug Table 0x7.0x23 = 0x375,0x6
0376 e238 | 8 | Load 0x1,0x38
0377 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0378 c403 | | Store 0x2,0x3
0379 00c9 | | Action Pop_Auxiliary_Loop
037a e403 | | Load 0x2,0x3 ; Debug Table 0x7.0x24 = 0x37a,0x3
037b e238 | 8 | Load 0x1,0x38
037c 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
037d 6fe7 |o | Jump_Zero 0x365
037e 00ce | | Action Pop_Auxiliary
037f e222 | " | Load 0x1,0x22 ; Debug Table 0x7.0x25 = 0x37f,0x7
0380 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0381 e019 | | Load 0x0,0x19
0382 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0383 e01a | | Load 0x0,0x1a
0384 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0385 e222 | " | Load 0x1,0x22
0386 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0387 c404 | | Store 0x2,0x4
0388 e40a | | Load 0x2,0xa ; Debug Table 0x7.0x26 = 0x388,0x8
0389 0120 | | Execute Any,Is_Value
038a 6803 |h | Jump_Zero 0x38e
038b e00b | | Load 0x0,0xb
038c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
038d 7801 |x | Jump 0x38f
038e e40a | | Load 0x2,0xa
038f e415 | | Load 0x2,0x15
0390 e409 | | Load 0x2,0x9
0391 8234 | 4 | Call 0x1,0x34
0392 e00b | | Load 0x0,0xb
0393 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0394 c40a | | Store 0x2,0xa
0395 e40a | | Load 0x2,0xa ; Debug Table 0x7.0x27 = 0x395,0x9
0396 e5fc | | Load 0x2,-0x4
0397 00ea | | Load_Encached Null_String_Cache
0398 e40f | | Load 0x2,0xf
0399 e5fe | | Load 0x2,-0x2
039a e013 | | Load 0x0,0x13
039b 1814 | | Execute Package,Field_Execute,Field_Number 0x14
039c e00b | | Load 0x0,0xb
039d 1819 | | Execute Package,Field_Execute,Field_Number 0x19
039e c40a | | Store 0x2,0xa
039f e415 | | Load 0x2,0x15 ; Debug Table 0x7.0x28 = 0x39f,0xa
03a0 4802 |H | Short_Literal 0x2
03a1 0092 120b | | Action Push_String_Extended,0x120b ; "Volume mounted for writing: "
03a3 e40a | | Load 0x2,0xa
03a4 e00b | | Load 0x0,0xb
03a5 181a | | Execute Package,Field_Execute,Field_Number 0x1a
03a6 01cc | | Execute Vector,Catenate
03a7 0092 120c | | Action Push_String_Extended,0x120c ; " ("
03a9 01cc | | Execute Vector,Catenate
03aa e409 | | Load 0x2,0x9
03ab 01cc | | Execute Vector,Catenate
03ac 0092 120d | | Action Push_String_Extended,0x120d ; ")"
03ae 01cc | | Execute Vector,Catenate
03af e014 | | Load 0x0,0x14
03b0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03b1 e415 | | Load 0x2,0x15 ; Debug Table 0x7.0x29 = 0x3b1,0xb
03b2 4802 |H | Short_Literal 0x2
03b3 0092 120e | | Action Push_String_Extended,0x120e ; "Record Format: "
03b5 e410 | | Load 0x2,0x10
03b6 e00b | | Load 0x0,0xb
03b7 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
03b8 025e | ^ | Execute Discrete,Convert
03b9 1c01 | | Execute_Immediate Run_Utility,0x1
03ba 01cc | | Execute Vector,Catenate
03bb e014 | | Load 0x0,0x14
03bc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03bd e415 | | Load 0x2,0x15 ; Debug Table 0x7.0x2a = 0x3bd,0xc
03be 4802 |H | Short_Literal 0x2
03bf 0092 120f | | Action Push_String_Extended,0x120f ; "Record_Length: "
03c1 e411 | | Load 0x2,0x11
03c2 00e0 | | Load_Encached Standard_Cache
03c3 1818 | | Execute Package,Field_Execute,Field_Number 0x18
03c4 01cc | | Execute Vector,Catenate
03c5 e014 | | Load 0x0,0x14
03c6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03c7 e415 | | Load 0x2,0x15 ; Debug Table 0x7.0x2b = 0x3c7,0xd
03c8 4802 |H | Short_Literal 0x2
03c9 0092 1210 | | Action Push_String_Extended,0x1210 ; "Block_Length: "
03cb e412 | | Load 0x2,0x12
03cc 00e0 | | Load_Encached Standard_Cache
03cd 1818 | | Execute Package,Field_Execute,Field_Number 0x18
03ce 01cc | | Execute Vector,Catenate
03cf e014 | | Load 0x0,0x14
03d0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03d1 e40b | | Load 0x2,0xb ; Debug Table 0x7.0x2c = 0x3d1,0xe
03d2 00ea | | Load_Encached Null_String_Cache
03d3 e40c | | Load 0x2,0xc
03d4 4801 |H | Short_Literal 0x1
03d5 e00d | | Load 0x0,0xd
03d6 1814 | | Execute Package,Field_Execute,Field_Number 0x14
03d7 c40b | | Store 0x2,0xb
03d8 e5ff | | Load 0x2,-0x1 ; Debug Table 0x7.0x2d = 0x3d8,0xf
03d9 841e | | Call 0x2,0x1e
03da e40b | | Load 0x2,0xb ; Debug Table 0x7.0x2e = 0x3da,0x10
03db e00d | | Load 0x0,0xd
03dc 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03dd c40b | | Store 0x2,0xb
03de 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x7.0x2f = 0x3de,0x11
03df 0092 1211 | | Action Push_String_Extended,0x1211 ; "INDEX.MAP"
03e1 e40c | | Load 0x2,0xc
03e2 841c | | Call 0x2,0x1c
03e3 e415 | | Load 0x2,0x15 ; Debug Table 0x7.0x30 = 0x3e3,0x12
03e4 4802 |H | Short_Literal 0x2
03e5 0092 1212 | | Action Push_String_Extended,0x1212 ; "Volume "
03e7 e40a | | Load 0x2,0xa
03e8 e00b | | Load 0x0,0xb
03e9 181a | | Execute Package,Field_Execute,Field_Number 0x1a
03ea 01cc | | Execute Vector,Catenate
03eb 0092 1213 | | Action Push_String_Extended,0x1213 ; " is complete"
03ed 01cc | | Execute Vector,Catenate
03ee e014 | | Load 0x0,0x14
03ef 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03f0 e40a | | Load 0x2,0xa ; Debug Table 0x7.0x31 = 0x3f0,0x13
03f1 e00b | | Load 0x0,0xb
03f2 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
03f3 e00f | | Load 0x0,0xf ; Debug Table 0x7.0x32 = 0x3f3,0x14
03f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03f5 00f1 | | Load_Encached Diana_Temp_Seq
03f6 e00f | | Load 0x0,0xf
03f7 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
03f8 1b17 | | Execute Package,Field_Read,Field_Number 0x17
03f9 e407 | | Load 0x2,0x7
03fa 0120 | | Execute Any,Is_Value
03fb 6803 |h | Jump_Zero 0x3ff
03fc e016 | | Load 0x0,0x16
03fd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03fe 7801 |x | Jump 0x400
03ff e407 | | Load 0x2,0x7
0400 6057 |`W | Indirect_Literal Discrete,0x458,{0x00000000, 0x00004000}
0401 e008 | | Load 0x0,0x8
0402 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0403 4800 |H | Short_Literal 0x0
0404 e00f | | Load 0x0,0xf
0405 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
0406 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0407 e00f | | Load 0x0,0xf
0408 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0409 4800 |H | Short_Literal 0x0
040a e019 | | Load 0x0,0x19
040b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
040c e00f | | Load 0x0,0xf
040d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
040e 1816 | | Execute Package,Field_Execute,Field_Number 0x16
040f e40c | | Load 0x2,0xc
0410 e00f | | Load 0x0,0xf
0411 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
0412 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0413 c407 | | Store 0x2,0x7
0414 c405 | | Store 0x2,0x5
0415 c406 | | Store 0x2,0x6
0416 c408 | | Store 0x2,0x8
0417 e408 | | Load 0x2,0x8 ; Debug Table 0x7.0x33 = 0x417,0x15
0418 6802 |h | Jump_Zero 0x41b
0419 4887 |H | Short_Literal 0x87
041a 0257 | W | Execute Discrete,Raise
041b e40e | | Load 0x2,0xe ; Debug Table 0x7.0x34 = 0x41b,0x16
041c 0c01 | | Execute_Immediate Greater_Equal,0x1
041d e415 | | Load 0x2,0x15
041e e012 | | Load 0x0,0x12
041f 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0420 0279 | y | Execute Discrete,And
0421 6802 |h | Jump_Zero 0x424
0422 e213 | | Load 0x1,0x13 ; Debug Table 0x7.0x35 = 0x422,0x17
0423 0257 | W | Execute Discrete,Raise
0424 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0425 TRAP_02c8:
0425 602e |`. | Indirect_Literal Discrete,0x454,{0x00000000, 0x36d8a404}
0426 010f | | Execute Exception,Equal
0427 7003 |p | Jump_Nonzero 0x42b
0428 6037 |`7 | Indirect_Literal Discrete,0x460,{0x00000000, 0x36d8a402}
0429 010f | | Execute Exception,Equal
042a 6815 |h | Jump_Zero 0x440
042b e40a | | Load 0x2,0xa ; Debug Table 0x7.0x36 = 0x42b,0x18
042c e00b | | Load 0x0,0xb
042d 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
042e e415 | | Load 0x2,0x15 ; Debug Table 0x7.0x37 = 0x42e,0x19
042f 4805 |H | Short_Literal 0x5
0430 0092 1214 | | Action Push_String_Extended,0x1214 ; "Writing of Volume "
0432 e5fe | | Load 0x2,-0x2
0433 01cc | | Execute Vector,Catenate
0434 0092 1215 | | Action Push_String_Extended,0x1215 ; " has been abandoned"
0436 01cc | | Execute Vector,Catenate
0437 e014 | | Load 0x0,0x14
0438 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0439 e415 | | Load 0x2,0x15 ; Debug Table 0x7.0x38 = 0x439,0x1a
043a e012 | | Load 0x0,0x12
043b 1819 | | Execute Package,Field_Execute,Field_Number 0x19
043c 6802 |h | Jump_Zero 0x43f
043d e213 | | Load 0x1,0x13 ; Debug Table 0x7.0x39 = 0x43d,0x1b
043e 0257 | W | Execute Discrete,Raise
043f 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0440 e40a | | Load 0x2,0xa ; Debug Table 0x7.0x3a = 0x440,0x1c
0441 e00b | | Load 0x0,0xb
0442 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0443 e415 | | Load 0x2,0x15 ; Debug Table 0x7.0x3b = 0x443,0x1d
0444 4808 |H | Short_Literal 0x8
0445 0092 1216 | | Action Push_String_Extended,0x1216 ; "Tape.Write terminated abnormally: "
0447 e015 | | Load 0x0,0x15
0448 180d | | Execute Package,Field_Execute,Field_Number 0xd
0449 01cc | | Execute Vector,Catenate
044a e014 | | Load 0x0,0x14
044b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
044c e415 | | Load 0x2,0x15 ; Debug Table 0x7.0x3c = 0x44c,0x1e
044d e012 | | Load 0x0,0x12
044e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
044f 6802 |h | Jump_Zero 0x452
0450 e213 | | Load 0x1,0x13 ; Debug Table 0x7.0x3d = 0x450,0x1f
0451 0257 | W | Execute Discrete,Raise
0452 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0453 0000 | | .XXX[0x1]
0454 0000 0000 | | .LITERAL {0x00000000, 0x36d8a404}
0458 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
045c 0000 0000 | | .LITERAL {0x00000000, 0x00000800}
0460 0000 0000 | | .LITERAL {0x00000000, 0x36d8a402}
0464 0000 0000 | | .LITERAL {0x00000000, 0x36d8a403}
0468 0000 0000 | | .LITERAL {0x00000000, 0x36d8a401}
046c 0000 0000 | | .LITERAL {0x00000000, 0x0000148b}
0470 0000 0000 | | .LITERAL {0x00000000, 0x00000ba7}
0474 0000 0000 | | .LITERAL {0x00000000, 0x00000b97}
0478 0000 0000 | | .LITERAL {0x00000000, 0x0000088c}
047c 0000 0000 | | .XXX[0x8]
047e 0002 8000 | |
0480 0000 0000 | |
0482 0000 040a | |
0484 0000 0000 | | .LITERAL {0x00000000, 0x0036d8a4}
0488 0000 0000 | | .XXX[0x4]
048a 36d8 9401 |6 |
048c 0000 0000 | | .BLANK 0000[0x4]
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 04f5 | | .CONST 0x04f5 ; Address of begin
0491 0004 | | .CONST 0x0004 ; Address of exception handler
0492 0023 | # | .CONST 0x0023 ; Number of locals
0493 INIT_0490:
0493 e005 | | Load 0x0,0x5 ; Debug Table 0x8 = .DEBUG 0x0493,0x18de,0x0001,0x0000,0x0036,0xd894,0x0000,0x0071
; Debug Table 0x8.0x0 = 0x493,0xffff
0494 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0495 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
0496 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
0497 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0498 e01b | | Load 0x0,0x1b ; Debug Table 0x8.0x1 = 0x498,0xfffe
0499 1b0d | | Execute Package,Field_Read,Field_Number 0xd
049a 0337 | 7 | Declare_Variable Array
049b 4806 |H | Short_Literal 0x6
049c e5ff | | Load 0x2,-0x1
049d 821e | | Call 0x1,0x1e
049e e01b | | Load 0x0,0x1b
049f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04a0 01c7 | | Execute Vector,Convert
04a1 00d9 | | Load_Top At_Offset_1
04a2 01d4 | | Execute Vector,Structure_Write
04a3 e01b | | Load 0x0,0x1b ; Debug Table 0x8.0x2 = 0x4a3,0xfffd
04a4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04a5 0337 | 7 | Declare_Variable Array
04a6 484c |HL | Short_Literal 0x4c
04a7 e5fe | | Load 0x2,-0x2
04a8 821e | | Call 0x1,0x1e
04a9 e01b | | Load 0x0,0x1b
04aa 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04ab 01c7 | | Execute Vector,Convert
04ac 00d9 | | Load_Top At_Offset_1
04ad 01d4 | | Execute Vector,Structure_Write
04ae e217 | | Load 0x1,0x17 ; Debug Table 0x8.0x3 = 0x4ae,0xfffc
04af 0007 | | Action Break_Optional
04b0 e01c | | Load 0x0,0x1c ; Debug Table 0x8.0x4 = 0x4b0,0xfffb
04b1 1b16 | | Execute Package,Field_Read,Field_Number 0x16
04b2 0337 | 7 | Declare_Variable Array
04b3 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x8.0x5 = 0x4b3,0xfffa
04b4 e01c | | Load 0x0,0x1c ; Debug Table 0x8.0x6 = 0x4b4,0xfff9
04b5 1b17 | | Execute Package,Field_Read,Field_Number 0x17
04b6 0337 | 7 | Declare_Variable Array
04b7 e01c | | Load 0x0,0x1c ; Debug Table 0x8.0x7 = 0x4b7,0xfff8
04b8 1b18 | | Execute Package,Field_Read,Field_Number 0x18
04b9 0337 | 7 | Declare_Variable Array
04ba e01c | | Load 0x0,0x1c ; Debug Table 0x8.0x8 = 0x4ba,0xfff7
04bb 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
04bc e01c | | Load 0x0,0x1c ; Debug Table 0x8.0x9 = 0x4bc,0xfff6
04bd 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
04be e01c | | Load 0x0,0x1c ; Debug Table 0x8.0xa = 0x4be,0xfff5
04bf 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
04c0 e01c | | Load 0x0,0x1c ; Debug Table 0x8.0xb = 0x4c0,0xfff4
04c1 1b20 | | Execute Package,Field_Read,Field_Number 0x20
04c2 e01d | | Load 0x0,0x1d ; Debug Table 0x8.0xc = 0x4c2,0xfff3
04c3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04c4 02c7 | | Declare_Variable Any
04c5 00d8 | | Load_Top At_Offset_0
04c6 1c00 | | Execute_Immediate Run_Utility,0x0
04c7 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x8.0xd = 0x4c7,0xfff2
04c8 e01d | | Load 0x0,0x1d ; Debug Table 0x8.0xe = 0x4c8,0xfff1
04c9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04ca 02c7 | | Declare_Variable Any
04cb 00d8 | | Load_Top At_Offset_0
04cc 1c00 | | Execute_Immediate Run_Utility,0x0
04cd e01c | | Load 0x0,0x1c ; Debug Table 0x8.0xf = 0x4cd,0xfff0
04ce 1b19 | | Execute Package,Field_Read,Field_Number 0x19
04cf 0337 | 7 | Declare_Variable Array
04d0 e01c | | Load 0x0,0x1c ; Debug Table 0x8.0x10 = 0x4d0,0xffef
04d1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04d2 e219 | | Load 0x1,0x19 ; Debug Table 0x8.0x11 = 0x4d2,0xffee
04d3 0007 | | Action Break_Optional
04d4 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x8.0x12 = 0x4d4,0xffed
04d5 e01c | | Load 0x0,0x1c ; Debug Table 0x8.0x13 = 0x4d5,0xffec
04d6 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
04d7 0337 | 7 | Declare_Variable Array
04d8 e01c | | Load 0x0,0x1c ; Debug Table 0x8.0x14 = 0x4d8,0xffeb
04d9 1b20 | | Execute Package,Field_Read,Field_Number 0x20
04da 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x8.0x15 = 0x4da,0xffea
04db 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x8.0x16 = 0x4db,0xffe9
04dc 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x8.0x17 = 0x4dc,0xffe8
04dd 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x8.0x18 = 0x4dd,0xffe7
04de e01c | | Load 0x0,0x1c ; Debug Table 0x8.0x19 = 0x4de,0xffe6
04df 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
04e0 e01c | | Load 0x0,0x1c ; Debug Table 0x8.0x1a = 0x4e0,0xffe5
04e1 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
04e2 e005 | | Load 0x0,0x5 ; Debug Table 0x8.0x1b = 0x4e2,0xffe4
04e3 1b15 | | Execute Package,Field_Read,Field_Number 0x15
04e4 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
04e5 029f 103b | ;| Declare_Subprogram INIT_1038,For_Call ; Debug Table 0x8.0x1c = 0x4e5,0xffe3
04e7 e005 | | Load 0x0,0x5 ; Debug Table 0x8.0x1d = 0x4e7,0xffe2
04e8 1b16 | | Execute Package,Field_Read,Field_Number 0x16
04e9 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
04ea 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
04eb 1946 | F | Execute Package,Field_Reference,Field_Number 0x46
04ec 00c6 | | Action Check_Subprogram_Elaborated
04ed 481e |H | Short_Literal 0x1e
04ee 4802 |H | Short_Literal 0x2
04ef 0099 | | Action Reference_Dynamic
04f0 6793 |g | Indirect_Literal Discrete,0x484,{0x00000000, 0x0036d8a4}
04f1 620e |b | Indirect_Literal Discrete,0x700,{0x00000000, 0x00001887}
04f2 4822 |H" | Short_Literal 0x22
04f3 029f 105b | [| Declare_Subprogram INIT_1058,For_Call
04f5 BODY_0490:
04f5 e005 | | Load 0x0,0x5 ; Debug Table 0x8.0x1e = 0x4f5,0x1
04f6 1b16 | | Execute Package,Field_Read,Field_Number 0x16
04f7 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
04f8 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
04f9 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
04fa e019 | | Load 0x0,0x19
04fb 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04fc e01a | | Load 0x0,0x1a
04fd 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04fe e005 | | Load 0x0,0x5
04ff 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0500 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
0501 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
0502 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0503 c402 | | Store 0x2,0x2
0504 e005 | | Load 0x0,0x5 ; Debug Table 0x8.0x1f = 0x504,0x2
0505 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0506 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0507 e404 | | Load 0x2,0x4
0508 4801 |H | Short_Literal 0x1
0509 4800 |H | Short_Literal 0x0
050a e019 | | Load 0x0,0x19
050b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
050c e01a | | Load 0x0,0x1a
050d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
050e e005 | | Load 0x0,0x5
050f 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0510 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0511 c41d | | Store 0x2,0x1d
0512 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x8.0x20 = 0x512,0x3
0513 e001 | | Load 0x0,0x1
0514 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0515 e406 | | Load 0x2,0x6
0516 e403 | | Load 0x2,0x3
0517 e01c | | Load 0x0,0x1c
0518 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0519 e41d | | Load 0x2,0x1d
051a e402 | | Load 0x2,0x2
051b e005 | | Load 0x0,0x5
051c 1b16 | | Execute Package,Field_Read,Field_Number 0x16
051d 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
051e 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
051f 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0520 00d2 | | Pop_Control Pop_Count_2
0521 c405 | | Store 0x2,0x5
0522 c407 | | Store 0x2,0x7
0523 e402 | | Load 0x2,0x2 ; Debug Table 0x8.0x21 = 0x523,0x4
0524 e005 | | Load 0x0,0x5
0525 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0526 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
0527 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
0528 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0529 e406 | | Load 0x2,0x6
052a e403 | | Load 0x2,0x3
052b e405 | | Load 0x2,0x5
052c 823f | ? | Call 0x1,0x3f
052d e5fc | | Load 0x2,-0x4 ; Debug Table 0x8.0x22 = 0x52d,0x5
052e 7007 |p | Jump_Nonzero 0x536
052f 00cf | | Action Mark_Auxiliary
0530 0007 | | Action Break_Optional ; Debug Table 0x8.0x23 = 0x530,0x6
0531 8423 | # | Call 0x2,0x23 ; Debug Table 0x8.0x24 = 0x531,0x7
0532 00c9 | | Action Pop_Auxiliary_Loop
0533 7ffd | | Jump 0x531
0534 00ce | | Action Pop_Auxiliary
0535 7806 |x | Jump 0x53c
0536 e402 | | Load 0x2,0x2 ; Debug Table 0x8.0x25 = 0x536,0x8
0537 e005 | | Load 0x0,0x5
0538 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0539 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
053a 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
053b 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
053c e41d | | Load 0x2,0x1d ; Debug Table 0x8.0x26 = 0x53c,0x9
053d e005 | | Load 0x0,0x5
053e 1b15 | | Execute Package,Field_Read,Field_Number 0x15
053f 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0540 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0541 0000 0000 | | .BLANK 0000[0x7]
0548 ; --------------------------------------------------------------------------------------
0548 ; SUBPROGRAM
0548 ; --------------------------------------------------------------------------------------
0548 0582 | | .CONST 0x0582 ; Address of begin
0549 05b6 | | .CONST 0x05b6 ; Address of exception handler
054a 0007 | | .CONST 0x0007 ; Number of locals
054b INIT_0548:
054b e00e | | Load 0x0,0xe ; Debug Table 0x9 = .DEBUG 0x054b,0x192e,0x0001,0x0000,0x0036,0xd894,0x0000,0x0089
; Debug Table 0x9.0x0 = 0x54b,0xffff
054c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
054d 02c7 | | Declare_Variable Any
054e 00d8 | | Load_Top At_Offset_0
054f 1c00 | | Execute_Immediate Run_Utility,0x0
0550 e01b | | Load 0x0,0x1b ; Debug Table 0x9.0x1 = 0x550,0xfffe
0551 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0552 0337 | 7 | Declare_Variable Array
0553 4806 |H | Short_Literal 0x6
0554 e5fe | | Load 0x2,-0x2
0555 e013 | | Load 0x0,0x13
0556 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0557 821e | | Call 0x1,0x1e
0558 00d9 | | Load_Top At_Offset_1
0559 01d4 | | Execute Vector,Structure_Write
055a 480b |H | Short_Literal 0xb ; Debug Table 0x9.0x2 = 0x55a,0xfffd
055b 4825 |H% | Short_Literal 0x25
055c 00e9 | | Load_Encached String_Cache
055d 0334 | 4 | Declare_Variable Array,With_Constraint
055e 480b |H | Short_Literal 0xb
055f 4825 |H% | Short_Literal 0x25
0560 00e9 | | Load_Encached String_Cache
0561 0334 | 4 | Declare_Variable Array,With_Constraint
0562 4825 |H% | Short_Literal 0x25
0563 480b |H | Short_Literal 0xb
0564 4820 |H | Short_Literal 0x20
0565 00d9 | | Load_Top At_Offset_1
0566 e405 | | Load 0x2,0x5
0567 01d6 | | Execute Vector,Field_Write
0568 3ffb |? | Loop_Increasing 0x564
0569 00d9 | | Load_Top At_Offset_1
056a 01d4 | | Execute Vector,Structure_Write
056b 4826 |H& | Short_Literal 0x26 ; Debug Table 0x9.0x3 = 0x56b,0xfffc
056c 482a |H* | Short_Literal 0x2a
056d 00e9 | | Load_Encached String_Cache
056e 0334 | 4 | Declare_Variable Array,With_Constraint
056f 5194 |Q | Indirect_Literal Any,0x704,{0x454d5054, 0x59202020}
0570 482b |H+ | Short_Literal 0x2b ; Debug Table 0x9.0x4 = 0x570,0xfffb
0571 484f |HO | Short_Literal 0x4f
0572 00e9 | | Load_Encached String_Cache
0573 0334 | 4 | Declare_Variable Array,With_Constraint
0574 482b |H+ | Short_Literal 0x2b
0575 484f |HO | Short_Literal 0x4f
0576 00e9 | | Load_Encached String_Cache
0577 0334 | 4 | Declare_Variable Array,With_Constraint
0578 484f |HO | Short_Literal 0x4f
0579 482b |H+ | Short_Literal 0x2b
057a 4820 |H | Short_Literal 0x20
057b 00d9 | | Load_Top At_Offset_1
057c e407 | | Load 0x2,0x7
057d 01d6 | | Execute Vector,Field_Write
057e 3ffb |? | Loop_Increasing 0x57a
057f 00d9 | | Load_Top At_Offset_1
0580 01d4 | | Execute Vector,Structure_Write
0581 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x9.0x5 = 0x581,0xfffa
0582 BODY_0548:
0582 e402 | | Load 0x2,0x2 ; Debug Table 0x9.0x6 = 0x582,0x1
0583 e008 | | Load 0x0,0x8
0584 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0585 e00f | | Load 0x0,0xf
0586 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0587 00ea | | Load_Encached Null_String_Cache
0588 e5ff | | Load 0x2,-0x1
0589 e017 | | Load 0x0,0x17
058a 1b12 | | Execute Package,Field_Read,Field_Number 0x12
058b 025b | [ | Execute Discrete,Check_In_Type
058c e017 | | Load 0x0,0x17
058d 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
058e 4801 |H | Short_Literal 0x1
058f e00e | | Load 0x0,0xe
0590 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0591 c402 | | Store 0x2,0x2
0592 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x9.0x7 = 0x592,0x2
0593 4833 |H3 | Short_Literal 0x33
0594 0092 1217 | | Action Push_String_Extended,0x1217 ; "VOL1"
0596 e403 | | Load 0x2,0x3
0597 821c | | Call 0x1,0x1c
0598 01cc | | Execute Vector,Catenate
0599 e404 | | Load 0x2,0x4
059a 01cc | | Execute Vector,Catenate
059b e405 | | Load 0x2,0x5
059c 01cc | | Execute Vector,Catenate
059d e406 | | Load 0x2,0x6
059e 01cc | | Execute Vector,Catenate
059f 01cb | | Execute Vector,Append
05a0 e402 | | Load 0x2,0x2
05a1 e010 | | Load 0x0,0x10
05a2 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
05a3 0059 | Y | Store_Top Discrete,At_Offset_1
05a4 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x9.0x8 = 0x5a4,0x3
05a5 e402 | | Load 0x2,0x2
05a6 e010 | | Load 0x0,0x10
05a7 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
05a8 0059 | Y | Store_Top Discrete,At_Offset_1
05a9 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x9.0x9 = 0x5a9,0x4
05aa e402 | | Load 0x2,0x2
05ab e010 | | Load 0x0,0x10
05ac 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
05ad 0059 | Y | Store_Top Discrete,At_Offset_1
05ae e402 | | Load 0x2,0x2 ; Debug Table 0x9.0xa = 0x5ae,0x5
05af e010 | | Load 0x0,0x10
05b0 1816 | | Execute Package,Field_Execute,Field_Number 0x16
05b1 e402 | | Load 0x2,0x2 ; Debug Table 0x9.0xb = 0x5b1,0x6
05b2 e00e | | Load 0x0,0xe
05b3 1819 | | Execute Package,Field_Execute,Field_Number 0x19
05b4 c402 | | Store 0x2,0x2
05b5 4503 |E | Exit_Suprogram New_Top_Offset 0x3
05b6 TRAP_0548:
05b6 00d8 | | Load_Top At_Offset_0
05b7 0107 | | Execute Exception,Get_Name
05b8 4940 |I@ | Short_Literal 0x140
05b9 494f |IO | Short_Literal 0x14f
05ba 0262 | b | Execute Discrete,In_Range
05bb 6805 |h | Jump_Zero 0x5c1
05bc e402 | | Load 0x2,0x2 ; Debug Table 0x9.0xc = 0x5bc,0x7
05bd e010 | | Load 0x0,0x10
05be 1815 | | Execute Package,Field_Execute,Field_Number 0x15
05bf 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0xd = 0x5bf,0x8
05c0 0101 | | Execute Exception,Reraise
05c1 0100 | | Execute Exception,Raise
05c2 0000 0000 | | .BLANK 0000[0x6]
05c8 ; --------------------------------------------------------------------------------------
05c8 ; SUBPROGRAM
05c8 ; --------------------------------------------------------------------------------------
05c8 05f0 | | .CONST 0x05f0 ; Address of begin
05c9 06b3 | | .CONST 0x06b3 ; Address of exception handler
05ca 0011 | | .CONST 0x0011 ; Number of locals
05cb INIT_05c8:
05cb e00c | | Load 0x0,0xc ; Debug Table 0xa = .DEBUG 0x05cb,0x194c,0x0001,0x0000,0x0036,0xd894,0x0000,0x0095
; Debug Table 0xa.0x0 = 0x5cb,0xffff
05cc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05cd e010 | | Load 0x0,0x10 ; Debug Table 0xa.0x1 = 0x5cd,0xfffe
05ce 1b18 | | Execute Package,Field_Read,Field_Number 0x18
05cf e010 | | Load 0x0,0x10 ; Debug Table 0xa.0x2 = 0x5cf,0xfffd
05d0 1b17 | | Execute Package,Field_Read,Field_Number 0x17
05d1 e00e | | Load 0x0,0xe ; Debug Table 0xa.0x3 = 0x5d1,0xfffc
05d2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05d3 02c7 | | Declare_Variable Any
05d4 00d8 | | Load_Top At_Offset_0
05d5 1c00 | | Execute_Immediate Run_Utility,0x0
05d6 4801 |H | Short_Literal 0x1 ; Debug Table 0xa.0x4 = 0x5d6,0xfffb
05d7 e004 | | Load 0x0,0x4
05d8 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
05d9 e218 | | Load 0x1,0x18
05da 0334 | 4 | Declare_Variable Array,With_Constraint
05db 00db | | Load_Top At_Offset_3 ; Debug Table 0xa.0x5 = 0x5db,0xfffa
05dc 0007 | | Action Break_Optional
05dd 00e3 | | Load_Encached Natural_Cache ; Debug Table 0xa.0x6 = 0x5dd,0xfff9
05de e404 | | Load 0x2,0x4 ; Debug Table 0xa.0x7 = 0x5de,0xfff8
05df 0007 | | Action Break_Optional
05e0 00e3 | | Load_Encached Natural_Cache ; Debug Table 0xa.0x8 = 0x5e0,0xfff7
05e1 00e3 | | Load_Encached Natural_Cache ; Debug Table 0xa.0x9 = 0x5e1,0xfff6
05e2 00e3 | | Load_Encached Natural_Cache ; Debug Table 0xa.0xa = 0x5e2,0xfff5
05e3 0007 | | Action Break_Optional ; Debug Table 0xa.0xb = 0x5e3,0xfff4
05e4 029f 1153 | S| Declare_Subprogram INIT_1150,For_Call ; Debug Table 0xa.0xc = 0x5e4,0xfff3
05e6 e00c | | Load 0x0,0xc ; Debug Table 0xa.0xd = 0x5e6,0xfff2
05e7 190f | | Execute Package,Field_Reference,Field_Number 0xf
05e8 00c6 | | Action Check_Subprogram_Elaborated
05e9 480d |H | Short_Literal 0xd
05ea 4802 |H | Short_Literal 0x2
05eb 0099 | | Action Reference_Dynamic
05ec 6697 |f | Indirect_Literal Discrete,0x484,{0x00000000, 0x0036d8a4}
05ed 610e |a | Indirect_Literal Discrete,0x6fc,{0x00000000, 0x00001b0b}
05ee 4811 |H | Short_Literal 0x11
05ef 0007 | | Action Break_Optional
05f0 BODY_05c8:
05f0 e405 | | Load 0x2,0x5 ; Debug Table 0xa.0xe = 0x5f0,0x1
05f1 e008 | | Load 0x0,0x8
05f2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05f3 e00f | | Load 0x0,0xf
05f4 181e | | Execute Package,Field_Execute,Field_Number 0x1e
05f5 00ea | | Load_Encached Null_String_Cache
05f6 e5ff | | Load 0x2,-0x1
05f7 e017 | | Load 0x0,0x17
05f8 1b12 | | Execute Package,Field_Read,Field_Number 0x12
05f9 025b | [ | Execute Discrete,Check_In_Type
05fa e017 | | Load 0x0,0x17
05fb 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
05fc 4800 |H | Short_Literal 0x0
05fd e00e | | Load 0x0,0xe
05fe 1814 | | Execute Package,Field_Execute,Field_Number 0x14
05ff c405 | | Store 0x2,0x5
0600 00e3 | | Load_Encached Natural_Cache ; Debug Table 0xa.0xf = 0x600,0x2
0601 e010 | | Load 0x0,0x10
0602 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0603 e5fe | | Load 0x2,-0x2
0604 e405 | | Load 0x2,0x5
0605 e010 | | Load 0x0,0x10
0606 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0607 c407 | | Store 0x2,0x7
0608 c408 | | Store 0x2,0x8
0609 e407 | | Load 0x2,0x7 ; Debug Table 0xa.0x10 = 0x609,0x3
060a 4602 |F | Jump_Case 0x3
060b 7802 |x | Jump 0x60e ; case 0x0
060c 780e |x | Jump 0x61b ; case 0x1
060d 781c |x | Jump 0x62a ; case 0x2
060e e5fe | | Load 0x2,-0x2 ; Debug Table 0xa.0x11 = 0x60e,0x4
060f 0d00 | | Execute_Immediate Less,0x0
0610 6823 |h# | Jump_Zero 0x634
0611 00e3 | | Load_Encached Natural_Cache ; Debug Table 0xa.0x12 = 0x611,0x5
0612 e010 | | Load 0x0,0x10
0613 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0614 4801 |H | Short_Literal 0x1
0615 e405 | | Load 0x2,0x5
0616 e010 | | Load 0x0,0x10
0617 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0618 c407 | | Store 0x2,0x7
0619 c408 | | Store 0x2,0x8
061a 7819 |x | Jump 0x634
061b 0092 1218 | | Action Push_String_Extended,0x1218 ; "Obstacle Encountered: "
; Debug Table 0xa.0x13 = 0x61b,0x6
061d e407 | | Load 0x2,0x7
061e e403 | | Load 0x2,0x3
061f 0122 | " | Execute Any,Make_Root_Type
0620 025e | ^ | Execute Discrete,Convert
0621 1c01 | | Execute_Immediate Run_Utility,0x1
0622 01cc | | Execute Vector,Catenate
0623 e00d | | Load 0x0,0xd
0624 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0625 e405 | | Load 0x2,0x5 ; Debug Table 0xa.0x14 = 0x625,0x7
0626 e00e | | Load 0x0,0xe
0627 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0628 c405 | | Store 0x2,0x5
0629 4505 |E | Exit_Suprogram New_Top_Offset 0x5 ; Debug Table 0xa.0x15 = 0x629,0x8
062a 0092 1218 | | Action Push_String_Extended,0x1218 ; "Obstacle Encountered: "
; Debug Table 0xa.0x16 = 0x62a,0x9
062c e407 | | Load 0x2,0x7
062d e403 | | Load 0x2,0x3
062e 0122 | " | Execute Any,Make_Root_Type
062f 025e | ^ | Execute Discrete,Convert
0630 1c01 | | Execute_Immediate Run_Utility,0x1
0631 01cc | | Execute Vector,Catenate
0632 e00d | | Load 0x0,0xd
0633 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0634 00e3 | | Load_Encached Natural_Cache ; Debug Table 0xa.0x17 = 0x634,0xa
0635 e010 | | Load 0x0,0x10
0636 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0637 e5fd | | Load 0x2,-0x3
0638 e405 | | Load 0x2,0x5
0639 e010 | | Load 0x0,0x10
063a 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
063b c409 | | Store 0x2,0x9
063c c40a | | Store 0x2,0xa
063d e409 | | Load 0x2,0x9 ; Debug Table 0xa.0x18 = 0x63d,0xb
063e 4602 |F | Jump_Case 0x3
063f 7828 |x( | Jump 0x668 ; case 0x0
0640 7801 |x | Jump 0x642 ; case 0x1
0641 781c |x | Jump 0x65e ; case 0x2
0642 0092 1218 | | Action Push_String_Extended,0x1218 ; "Obstacle Encountered: "
; Debug Table 0xa.0x19 = 0x642,0xd
0644 e409 | | Load 0x2,0x9
0645 e404 | | Load 0x2,0x4
0646 0122 | " | Execute Any,Make_Root_Type
0647 025e | ^ | Execute Discrete,Convert
0648 1c01 | | Execute_Immediate Run_Utility,0x1
0649 01cc | | Execute Vector,Catenate
064a e00d | | Load 0x0,0xd
064b 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
064c e5fd | | Load 0x2,-0x3 ; Debug Table 0xa.0x1a = 0x64c,0xe
064d 0d00 | | Execute_Immediate Less,0x0
064e 680a |h | Jump_Zero 0x659
064f 00e3 | | Load_Encached Natural_Cache ; Debug Table 0xa.0x1b = 0x64f,0xf
0650 e010 | | Load 0x0,0x10
0651 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0652 4801 |H | Short_Literal 0x1
0653 e405 | | Load 0x2,0x5
0654 e010 | | Load 0x0,0x10
0655 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0656 c407 | | Store 0x2,0x7
0657 c408 | | Store 0x2,0x8
0658 780f |x | Jump 0x668
0659 e405 | | Load 0x2,0x5 ; Debug Table 0xa.0x1c = 0x659,0x10
065a e00e | | Load 0x0,0xe
065b 1819 | | Execute Package,Field_Execute,Field_Number 0x19
065c c405 | | Store 0x2,0x5
065d 4505 |E | Exit_Suprogram New_Top_Offset 0x5 ; Debug Table 0xa.0x1d = 0x65d,0x11
065e 0092 1218 | | Action Push_String_Extended,0x1218 ; "Obstacle Encountered: "
; Debug Table 0xa.0x1e = 0x65e,0x12
0660 e409 | | Load 0x2,0x9
0661 e404 | | Load 0x2,0x4
0662 0122 | " | Execute Any,Make_Root_Type
0663 025e | ^ | Execute Discrete,Convert
0664 1c01 | | Execute_Immediate Run_Utility,0x1
0665 01cc | | Execute Vector,Catenate
0666 e00d | | Load 0x0,0xd
0667 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0668 00cf | | Action Mark_Auxiliary
0669 e5fc | | Load 0x2,-0x4 ; Debug Table 0xa.0x1f = 0x669,0x13
066a 4801 |H | Short_Literal 0x1
066b 0263 | c | Execute Discrete,Above_Bound
066c 7040 |p@ | Jump_Nonzero 0x6ad
066d 00e3 | | Load_Encached Natural_Cache ; Debug Table 0xa.0x20 = 0x66d,0x14
066e e406 | | Load 0x2,0x6
066f e405 | | Load 0x2,0x5
0670 e010 | | Load 0x0,0x10
0671 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0672 00d1 | | Pop_Control Pop_Count_1
0673 c40b | | Store 0x2,0xb
0674 e40b | | Load 0x2,0xb ; Debug Table 0xa.0x21 = 0x674,0x15
0675 7006 |p | Jump_Nonzero 0x67c
0676 0092 1219 | | Action Push_String_Extended,0x1219 ; "Tape Mark Encountered"
; Debug Table 0xa.0x22 = 0x676,0x16
0678 e00d | | Load 0x0,0xd
0679 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
067a 00d2 | | Pop_Control Pop_Count_2 ; Debug Table 0xa.0x23 = 0x67a,0x17
067b 7831 |x1 | Jump 0x6ad
067c 4800 |H | Short_Literal 0x0 ; Debug Table 0xa.0x24 = 0x67c,0x18
067d a40c | | Store_Unchecked 0x2,0xc
067e 0092 121a | | Action Push_String_Extended,0x121a ; "Block"
; Debug Table 0xa.0x25 = 0x67e,0x19
0680 00d9 | | Load_Top At_Offset_1
0681 00e0 | | Load_Encached Standard_Cache
0682 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0683 01cc | | Execute Vector,Catenate
0684 0092 121b | | Action Push_String_Extended,0x121b ; ", Length"
0686 01cc | | Execute Vector,Catenate
0687 e40b | | Load 0x2,0xb
0688 00e0 | | Load_Encached Standard_Cache
0689 1818 | | Execute Package,Field_Execute,Field_Number 0x18
068a 01cc | | Execute Vector,Catenate
068b 0092 120c | | Action Push_String_Extended,0x120c ; " ("
068d 01cc | | Execute Vector,Catenate
068e 4830 |H0 | Short_Literal 0x30
068f 4800 |H | Short_Literal 0x0
0690 e40b | | Load 0x2,0xb
0691 e00c | | Load 0x0,0xc
0692 180e | | Execute Package,Field_Execute,Field_Number 0xe
0693 01cc | | Execute Vector,Catenate
0694 0092 120d | | Action Push_String_Extended,0x120d ; ")"
0696 01cc | | Execute Vector,Catenate
0697 e00d | | Load 0x0,0xd
0698 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0699 4801 |H | Short_Literal 0x1 ; Debug Table 0xa.0x26 = 0x699,0x1a
069a 4801 |H | Short_Literal 0x1
069b 4810 |H | Short_Literal 0x10
069c 4801 |H | Short_Literal 0x1
069d e40b | | Load 0x2,0xb
069e e406 | | Load 0x2,0x6
069f 01cf | | Execute Vector,Slice_Read
06a0 480e |H | Short_Literal 0xe
06a1 4802 |H | Short_Literal 0x2
06a2 0099 | | Action Reference_Dynamic
06a3 480f |H | Short_Literal 0xf
06a4 4802 |H | Short_Literal 0x2
06a5 0099 | | Action Reference_Dynamic
06a6 e00c | | Load 0x0,0xc
06a7 180f | | Execute Package,Field_Execute,Field_Number 0xf
06a8 00ea | | Load_Encached Null_String_Cache ; Debug Table 0xa.0x27 = 0x6a8,0x1b
06a9 e00d | | Load 0x0,0xd
06aa 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
06ab 00c8 | | Action Pop_Auxiliary_Range
06ac 3fc0 |? | Loop_Increasing 0x66d
06ad 00ce | | Action Pop_Auxiliary
06ae e405 | | Load 0x2,0x5 ; Debug Table 0xa.0x28 = 0x6ae,0x1c
06af e00e | | Load 0x0,0xe
06b0 1819 | | Execute Package,Field_Execute,Field_Number 0x19
06b1 c405 | | Store 0x2,0x5
06b2 4505 |E | Exit_Suprogram New_Top_Offset 0x5
06b3 TRAP_05c8:
06b3 00d8 | | Load_Top At_Offset_0
06b4 0107 | | Execute Exception,Get_Name
06b5 4940 |I@ | Short_Literal 0x140
06b6 494f |IO | Short_Literal 0x14f
06b7 0262 | b | Execute Discrete,In_Range
06b8 6805 |h | Jump_Zero 0x6be
06b9 e405 | | Load 0x2,0x5 ; Debug Table 0xa.0x29 = 0x6b9,0x1d
06ba e00e | | Load 0x0,0xe
06bb 1819 | | Execute Package,Field_Execute,Field_Number 0x19
06bc c405 | | Store 0x2,0x5
06bd 4505 |E | Exit_Suprogram New_Top_Offset 0x5
06be 0100 | | Execute Exception,Raise
06bf 0000 | | .XXX[0x1]
06c0 ; --------------------------------------------------------------------------------------
06c0 ; SUBPROGRAM
06c0 ; --------------------------------------------------------------------------------------
06c0 06c3 | | .CONST 0x06c3 ; Address of begin
06c1 0004 | | .CONST 0x0004 ; Address of exception handler
06c2 0001 | | .CONST 0x0001 ; Number of locals
06c3 BODY_06c0:
06c3 INIT_06c0:
06c3 4608 |F | Jump_Case 0x9 ; Debug Table 0xb = .DEBUG 0x06c3,0x19a2,0x0005,0x0000,0x0036,0xd8a4,0x0000,0x00ab
06c4 7808 |x | Jump 0x6cd ; case 0x0
06c5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
06c6 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
06c7 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
06c8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
06c9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
06ca 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
06cb 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7
06cc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8
06cd 00da | | Load_Top At_Offset_2
06ce 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
06cf 0125 | % | Execute Any,Set_Constraint
06d0 00da | | Load_Top At_Offset_2
06d1 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
06d2 1c00 | | Execute_Immediate Run_Utility,0x0
06d3 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
06d4 0000 0000 | | .BLANK 0000[0x4]
06d8 ; --------------------------------------------------------------------------------------
06d8 ; SUBPROGRAM
06d8 ; --------------------------------------------------------------------------------------
06d8 06db | | .CONST 0x06db ; Address of begin
06d9 0004 | | .CONST 0x0004 ; Address of exception handler
06da 0001 | | .CONST 0x0001 ; Number of locals
06db BODY_06d8:
06db INIT_06d8:
06db 00da | | Load_Top At_Offset_2 ; Debug Table 0xc = .DEBUG 0x06db,0x19a4,0x0002,0x0000,0x0036,0xd8a4,0x0000,0x00d4
; Debug Table 0xc.0x0 = 0x6db,0x1
06dc 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
06dd e013 | | Load 0x0,0x13
06de 180d | | Execute Package,Field_Execute,Field_Number 0xd
06df 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06e0 ; --------------------------------------------------------------------------------------
06e0 ; SUBPROGRAM
06e0 ; --------------------------------------------------------------------------------------
06e0 06e3 | | .CONST 0x06e3 ; Address of begin
06e1 0004 | | .CONST 0x0004 ; Address of exception handler
06e2 0001 | | .CONST 0x0001 ; Number of locals
06e3 BODY_06e0:
06e3 INIT_06e0:
06e3 00da | | Load_Top At_Offset_2 ; Debug Table 0xd = .DEBUG 0x06e3,0x19a8,0x0001,0x0000,0x0036,0xd8a4,0x0000,0x0107
; Debug Table 0xd.0x0 = 0x6e3,0x1
06e4 e00d | | Load 0x0,0xd
06e5 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
06e6 e00d | | Load 0x0,0xd
06e7 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e
06e8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
06e9 0000 0000 | | .BLANK 0000[0x7]
06f0 ; --------------------------------------------------------------------------------------
06f0 ; SUBPROGRAM
06f0 ; --------------------------------------------------------------------------------------
06f0 06f3 | | .CONST 0x06f3 ; Address of begin
06f1 0004 | | .CONST 0x0004 ; Address of exception handler
06f2 0001 | | .CONST 0x0001 ; Number of locals
06f3 BODY_06f0:
06f3 INIT_06f0:
06f3 00da | | Load_Top At_Offset_2 ; Debug Table 0xe = .DEBUG 0x06f3,0x19ac,0x0001,0x0000,0x0036,0xd8a4,0x0000,0x011c
; Debug Table 0xe.0x0 = 0x6f3,0x1
06f4 e00d | | Load 0x0,0xd
06f5 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
06f6 e00d | | Load 0x0,0xd
06f7 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
06f8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
06f9 0000 0000 | | .XXX[0x3]
06fb 0000 | |
06fc 0000 0000 | | .LITERAL {0x00000000, 0x00001b0b}
0700 0000 0000 | | .LITERAL {0x00000000, 0x00001887}
0704 454d 5054 |EMPT| .LITERAL {0x454d5054, 0x59202020}
0708 ; --------------------------------------------------------------------------------------
0708 ; SUBPROGRAM
0708 ; --------------------------------------------------------------------------------------
0708 0711 | | .CONST 0x0711 ; Address of begin
0709 0004 | | .CONST 0x0004 ; Address of exception handler
070a 0004 | | .CONST 0x0004 ; Number of locals
070b INIT_0708:
070b e01e | | Load 0x0,0x1e ; Debug Table 0xf = .DEBUG 0x070b,0x19b0,0x0001,0x0000,0x0036,0xd8a4,0x0000,0x0131
; Debug Table 0xf.0x0 = 0x70b,0xffff
070c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
070d e01b | | Load 0x0,0x1b ; Debug Table 0xf.0x1 = 0x70d,0xfffe
070e 1b17 | | Execute Package,Field_Read,Field_Number 0x17
070f e002 | | Load 0x0,0x2 ; Debug Table 0xf.0x2 = 0x70f,0xfffd
0710 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0711 BODY_0708:
0711 e5fe | | Load 0x2,-0x2 ; Debug Table 0xf.0x3 = 0x711,0x1
0712 4602 |F | Jump_Case 0x3
0713 7802 |x | Jump 0x716 ; case 0x0
0714 7817 |x | Jump 0x72c ; case 0x1
0715 782c |x, | Jump 0x742 ; case 0x2
0716 e005 | | Load 0x0,0x5 ; Debug Table 0xf.0x4 = 0x716,0x2
0717 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0718 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0719 484c |HL | Short_Literal 0x4c
071a 0092 121c | | Action Push_String_Extended,0x121c ; "READ_MT"
071c 821e | | Call 0x1,0x1e
071d e01b | | Load 0x0,0x1b
071e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
071f 01c7 | | Execute Vector,Convert
0720 4800 |H | Short_Literal 0x0
0721 e5fe | | Load 0x2,-0x2
0722 e019 | | Load 0x0,0x19
0723 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0724 e01a | | Load 0x0,0x1a
0725 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0726 e005 | | Load 0x0,0x5
0727 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0728 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0729 e5fc | | Load 0x2,-0x4
072a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
072b 782b |x+ | Jump 0x757
072c e005 | | Load 0x0,0x5 ; Debug Table 0xf.0x5 = 0x72c,0x3
072d 1b15 | | Execute Package,Field_Read,Field_Number 0x15
072e 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
072f 484c |HL | Short_Literal 0x4c
0730 0092 121d | | Action Push_String_Extended,0x121d ; "WRITE_MT"
0732 821e | | Call 0x1,0x1e
0733 e01b | | Load 0x0,0x1b
0734 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0735 01c7 | | Execute Vector,Convert
0736 4800 |H | Short_Literal 0x0
0737 e5fe | | Load 0x2,-0x2
0738 e019 | | Load 0x0,0x19
0739 1811 | | Execute Package,Field_Execute,Field_Number 0x11
073a e01a | | Load 0x0,0x1a
073b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
073c e005 | | Load 0x0,0x5
073d 1b15 | | Execute Package,Field_Read,Field_Number 0x15
073e 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
073f e5fc | | Load 0x2,-0x4
0740 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0741 7815 |x | Jump 0x757
0742 e005 | | Load 0x0,0x5 ; Debug Table 0xf.0x6 = 0x742,0x4
0743 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0744 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0745 484c |HL | Short_Literal 0x4c
0746 0092 121e | | Action Push_String_Extended,0x121e ; "UPDATE_MT"
0748 821e | | Call 0x1,0x1e
0749 e01b | | Load 0x0,0x1b
074a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
074b 01c7 | | Execute Vector,Convert
074c 4800 |H | Short_Literal 0x0
074d e5fe | | Load 0x2,-0x2
074e e019 | | Load 0x0,0x19
074f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0750 e01a | | Load 0x0,0x1a
0751 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0752 e005 | | Load 0x0,0x5
0753 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0754 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0755 e5fc | | Load 0x2,-0x4
0756 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0757 00cf | | Action Mark_Auxiliary
0758 0007 | | Action Break_Optional ; Debug Table 0xf.0x7 = 0x758,0x5
0759 e01b | | Load 0x0,0x1b ; Debug Table 0xf.0x8 = 0x759,0x6
075a 1b17 | | Execute Package,Field_Read,Field_Number 0x17
075b e002 | | Load 0x0,0x2
075c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
075d 0092 121f | | Action Push_String_Extended,0x121f ; "Use Drive"
075f e5ff | | Load 0x2,-0x1
0760 e004 | | Load 0x0,0x4
0761 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0762 00e0 | | Load_Encached Standard_Cache
0763 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0764 01cc | | Execute Vector,Catenate
0765 821d | | Call 0x1,0x1d
0766 e5fc | | Load 0x2,-0x4
0767 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0768 e005 | | Load 0x0,0x5
0769 1b15 | | Execute Package,Field_Read,Field_Number 0x15
076a 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
076b 005b | [ | Store_Top Discrete,At_Offset_3
076c 005b | [ | Store_Top Discrete,At_Offset_3
076d 00da | | Load_Top At_Offset_2 ; Debug Table 0xf.0x9 = 0x76d,0x7
076e 4604 |F | Jump_Case 0x5
076f 7804 |x | Jump 0x774 ; case 0x0
0770 785e |x^ | Jump 0x7cf ; case 0x1
0771 785d |x] | Jump 0x7cf ; case 0x2
0772 785c |x\ | Jump 0x7cf ; case 0x3
0773 785b |x[ | Jump 0x7cf ; case 0x4
0774 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xf.0xa = 0x774,0x8
0775 e5ff | | Load 0x2,-0x1
0776 e004 | | Load 0x0,0x4
0777 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0778 027f | | Execute Discrete,Equal
0779 684e |hN | Jump_Zero 0x7c8
077a e01e | | Load 0x0,0x1e ; Debug Table 0xf.0xb = 0x77a,0x9
077b 1b11 | | Execute Package,Field_Read,Field_Number 0x11
077c e004 | | Load 0x0,0x4
077d 1b13 | | Execute Package,Field_Read,Field_Number 0x13
077e e5fc | | Load 0x2,-0x4
077f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0780 0120 | | Execute Any,Is_Value
0781 6803 |h | Jump_Zero 0x785
0782 e004 | | Load 0x0,0x4
0783 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0784 7802 |x | Jump 0x787
0785 e5fc | | Load 0x2,-0x4
0786 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0787 e5fd | | Load 0x2,-0x3
0788 4800 |H | Short_Literal 0x0
0789 e5ff | | Load 0x2,-0x1
078a e004 | | Load 0x0,0x4
078b 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
078c e5fc | | Load 0x2,-0x4
078d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
078e c5fb | | Store 0x2,-0x5
078f c402 | | Store 0x2,0x2
0790 00db | | Load_Top At_Offset_3 ; Debug Table 0xf.0xc = 0x790,0xa
0791 4607 |F | Jump_Case 0x8
0792 7807 |x | Jump 0x79a ; case 0x0
0793 7815 |x | Jump 0x7a9 ; case 0x1
0794 781b |x | Jump 0x7b0 ; case 0x2
0795 781a |x | Jump 0x7b0 ; case 0x3
0796 7819 |x | Jump 0x7b0 ; case 0x4
0797 7818 |x | Jump 0x7b0 ; case 0x5
0798 7817 |x | Jump 0x7b0 ; case 0x6
0799 7816 |x | Jump 0x7b0 ; case 0x7
079a e5fe | | Load 0x2,-0x2 ; Debug Table 0xf.0xd = 0x79a,0xb
079b 0e01 | | Execute_Immediate Not_Equal,0x1
079c 7037 |p7 | Jump_Nonzero 0x7d4
079d e5fc | | Load 0x2,-0x4
079e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
079f e004 | | Load 0x0,0x4
07a0 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
07a1 7032 |p2 | Jump_Nonzero 0x7d4
07a2 4802 |H | Short_Literal 0x2 ; Debug Table 0xf.0xe = 0x7a2,0xc
07a3 e5fc | | Load 0x2,-0x4
07a4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
07a5 e005 | | Load 0x0,0x5
07a6 1b15 | | Execute Package,Field_Read,Field_Number 0x15
07a7 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
07a8 7829 |x) | Jump 0x7d2
07a9 4805 |H | Short_Literal 0x5 ; Debug Table 0xf.0xf = 0x7a9,0xd
07aa e5fc | | Load 0x2,-0x4
07ab 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
07ac e005 | | Load 0x0,0x5
07ad 1b15 | | Execute Package,Field_Read,Field_Number 0x15
07ae 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
07af 7822 |x" | Jump 0x7d2
07b0 e5fb | | Load 0x2,-0x5 ; Debug Table 0xf.0x10 = 0x7b0,0xe
07b1 4604 |F | Jump_Case 0x5
07b2 7812 |x | Jump 0x7c5 ; case 0x0
07b3 7811 |x | Jump 0x7c5 ; case 0x1
07b4 7802 |x | Jump 0x7b7 ; case 0x2
07b5 780f |x | Jump 0x7c5 ; case 0x3
07b6 7807 |x | Jump 0x7be ; case 0x4
07b7 4801 |H | Short_Literal 0x1 ; Debug Table 0xf.0x11 = 0x7b7,0xf
07b8 e5fc | | Load 0x2,-0x4
07b9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
07ba e005 | | Load 0x0,0x5
07bb 1b15 | | Execute Package,Field_Read,Field_Number 0x15
07bc 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
07bd 7814 |x | Jump 0x7d2
07be 4800 |H | Short_Literal 0x0 ; Debug Table 0xf.0x12 = 0x7be,0x10
07bf e5fc | | Load 0x2,-0x4
07c0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
07c1 e005 | | Load 0x0,0x5
07c2 1b15 | | Execute Package,Field_Read,Field_Number 0x15
07c3 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
07c4 780d |x | Jump 0x7d2
07c5 0007 | | Action Break_Optional ; Debug Table 0xf.0x13 = 0x7c5,0x11
07c6 4887 |H | Short_Literal 0x87 ; Debug Table 0xf.0x14 = 0x7c6,0x12
07c7 0257 | W | Execute Discrete,Raise
07c8 4808 |H | Short_Literal 0x8 ; Debug Table 0xf.0x15 = 0x7c8,0x13
07c9 e5fc | | Load 0x2,-0x4
07ca 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
07cb e005 | | Load 0x0,0x5
07cc 1b15 | | Execute Package,Field_Read,Field_Number 0x15
07cd 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
07ce 7803 |x | Jump 0x7d2
07cf 4802 |H | Short_Literal 0x2 ; Debug Table 0xf.0x16 = 0x7cf,0x14
07d0 a5fb | | Store_Unchecked 0x2,-0x5
07d1 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; Debug Table 0xf.0x17 = 0x7d1,0x15
07d2 00c9 | | Action Pop_Auxiliary_Loop
07d3 7f85 | | Jump 0x759
07d4 4504 |E | Exit_Suprogram New_Top_Offset 0x4
07d5 0000 0000 | | .XXX[0x3]
07d7 0000 | |
07d8 ; --------------------------------------------------------------------------------------
07d8 ; SUBPROGRAM
07d8 ; --------------------------------------------------------------------------------------
07d8 07dd | | .CONST 0x07dd ; Address of begin
07d9 0004 | | .CONST 0x0004 ; Address of exception handler
07da 0002 | | .CONST 0x0002 ; Number of locals
07db INIT_07d8:
07db e01e | | Load 0x0,0x1e ; Debug Table 0x10 = .DEBUG 0x07db,0x19e2,0x0001,0x0000,0x0036,0xd8a4,0x0000,0x02a0
; Debug Table 0x10.0x0 = 0x7db,0xffff
07dc 1b11 | | Execute Package,Field_Read,Field_Number 0x11
07dd BODY_07d8:
07dd e01e | | Load 0x0,0x1e ; Debug Table 0x10.0x1 = 0x7dd,0x1
07de 1b11 | | Execute Package,Field_Read,Field_Number 0x11
07df e004 | | Load 0x0,0x4
07e0 1b15 | | Execute Package,Field_Read,Field_Number 0x15
07e1 e5ff | | Load 0x2,-0x1
07e2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
07e3 e004 | | Load 0x0,0x4
07e4 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
07e5 e5ff | | Load 0x2,-0x1
07e6 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
07e7 c5fe | | Store 0x2,-0x2
07e8 0059 | Y | Store_Top Discrete,At_Offset_1
07e9 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x10.0x2 = 0x7e9,0x2
07ea 700a |p | Jump_Nonzero 0x7f5
07eb 0092 1220 | | Action Push_String_Extended,0x1220 ; "Tape Close Error: "
; Debug Table 0x10.0x3 = 0x7eb,0x3
07ed 8223 | # | Call 0x1,0x23
07ee 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x10.0x4 = 0x7ee,0x4
07ef e01e | | Load 0x0,0x1e
07f0 1b11 | | Execute Package,Field_Read,Field_Number 0x11
07f1 0122 | " | Execute Any,Make_Root_Type
07f2 025e | ^ | Execute Discrete,Convert
07f3 1c01 | | Execute_Immediate Run_Utility,0x1
07f4 8224 | $ | Call 0x1,0x24
07f5 4800 |H | Short_Literal 0x0 ; Debug Table 0x10.0x5 = 0x7f5,0x5
07f6 e5ff | | Load 0x2,-0x1
07f7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
07f8 e005 | | Load 0x0,0x5
07f9 1b15 | | Execute Package,Field_Read,Field_Number 0x15
07fa 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
07fb 4501 |E | Exit_Suprogram New_Top_Offset 0x1
07fc 0000 0000 | | .BLANK 0000[0x4]
0800 ; --------------------------------------------------------------------------------------
0800 ; SUBPROGRAM
0800 ; --------------------------------------------------------------------------------------
0800 0803 | | .CONST 0x0803 ; Address of begin
0801 0004 | | .CONST 0x0004 ; Address of exception handler
0802 0001 | | .CONST 0x0001 ; Number of locals
0803 BODY_0800:
0803 INIT_0800:
0803 e5fd | | Load 0x2,-0x3 ; Debug Table 0x11 = .DEBUG 0x0803,0x19f0,0x0001,0x0000,0x0036,0xd8a4,0x0000,0x02e3
; Debug Table 0x11.0x0 = 0x803,0x1
0804 e5fe | | Load 0x2,-0x2
0805 e5ff | | Load 0x2,-0x1
0806 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0807 e004 | | Load 0x0,0x4
0808 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0809 4503 |E | Exit_Suprogram New_Top_Offset 0x3
080a 0000 0000 | | .BLANK 0000[0x6]
0810 ; --------------------------------------------------------------------------------------
0810 ; SUBPROGRAM
0810 ; --------------------------------------------------------------------------------------
0810 0813 | | .CONST 0x0813 ; Address of begin
0811 0004 | | .CONST 0x0004 ; Address of exception handler
0812 0001 | | .CONST 0x0001 ; Number of locals
0813 BODY_0810:
0813 INIT_0810:
0813 e5fd | | Load 0x2,-0x3 ; Debug Table 0x12 = .DEBUG 0x0813,0x19f4,0x0001,0x0000,0x0036,0xd8a4,0x0000,0x0305
; Debug Table 0x12.0x0 = 0x813,0x1
0814 e5fe | | Load 0x2,-0x2
0815 e5ff | | Load 0x2,-0x1
0816 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0817 e004 | | Load 0x0,0x4
0818 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0819 4502 |E | Exit_Suprogram New_Top_Offset 0x2
081a 0000 0000 | | .BLANK 0000[0x6]
0820 ; --------------------------------------------------------------------------------------
0820 ; SUBPROGRAM
0820 ; --------------------------------------------------------------------------------------
0820 0823 | # | .CONST 0x0823 ; Address of begin
0821 0004 | | .CONST 0x0004 ; Address of exception handler
0822 0001 | | .CONST 0x0001 ; Number of locals
0823 BODY_0820:
0823 INIT_0820:
0823 e5fd | | Load 0x2,-0x3 ; Debug Table 0x13 = .DEBUG 0x0823,0x19f8,0x0001,0x0000,0x0036,0xd8a4,0x0000,0x0325
; Debug Table 0x13.0x0 = 0x823,0x1
0824 e5fe | | Load 0x2,-0x2
0825 e5ff | | Load 0x2,-0x1
0826 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0827 e004 | | Load 0x0,0x4
0828 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0829 4503 |E | Exit_Suprogram New_Top_Offset 0x3
082a 0000 0000 | | .BLANK 0000[0x6]
0830 ; --------------------------------------------------------------------------------------
0830 ; SUBPROGRAM
0830 ; --------------------------------------------------------------------------------------
0830 0833 | 3 | .CONST 0x0833 ; Address of begin
0831 0004 | | .CONST 0x0004 ; Address of exception handler
0832 0001 | | .CONST 0x0001 ; Number of locals
0833 BODY_0830:
0833 INIT_0830:
0833 e5fd | | Load 0x2,-0x3 ; Debug Table 0x14 = .DEBUG 0x0833,0x19fc,0x0001,0x0000,0x0036,0xd8a4,0x0000,0x0347
; Debug Table 0x14.0x0 = 0x833,0x1
0834 e5fe | | Load 0x2,-0x2
0835 e5ff | | Load 0x2,-0x1
0836 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0837 e004 | | Load 0x0,0x4
0838 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0839 4503 |E | Exit_Suprogram New_Top_Offset 0x3
083a 0000 0000 | | .BLANK 0000[0x6]
0840 ; --------------------------------------------------------------------------------------
0840 ; SUBPROGRAM
0840 ; --------------------------------------------------------------------------------------
0840 0843 | C | .CONST 0x0843 ; Address of begin
0841 0004 | | .CONST 0x0004 ; Address of exception handler
0842 0001 | | .CONST 0x0001 ; Number of locals
0843 BODY_0840:
0843 INIT_0840:
0843 00db | | Load_Top At_Offset_3 ; Debug Table 0x15 = .DEBUG 0x0843,0x1a00,0x0001,0x0000,0x0036,0xd8a4,0x0000,0x0367
; Debug Table 0x15.0x0 = 0x843,0x1
0844 00db | | Load_Top At_Offset_3
0845 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0846 e004 | | Load 0x0,0x4
0847 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
0848 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0849 0000 0000 | | .BLANK 0000[0x7]
0850 ; --------------------------------------------------------------------------------------
0850 ; SUBPROGRAM
0850 ; --------------------------------------------------------------------------------------
0850 0853 | S | .CONST 0x0853 ; Address of begin
0851 0004 | | .CONST 0x0004 ; Address of exception handler
0852 0001 | | .CONST 0x0001 ; Number of locals
0853 BODY_0850:
0853 INIT_0850:
0853 e5fc | | Load 0x2,-0x4 ; Debug Table 0x16 = .DEBUG 0x0853,0x1a04,0x0001,0x0000,0x0036,0xd8a4,0x0000,0x0382
; Debug Table 0x16.0x0 = 0x853,0x1
0854 e5fd | | Load 0x2,-0x3
0855 e5fe | | Load 0x2,-0x2
0856 e5ff | | Load 0x2,-0x1
0857 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0858 e004 | | Load 0x0,0x4
0859 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
085a 4504 |E | Exit_Suprogram New_Top_Offset 0x4
085b 0000 0000 | | .BLANK 0000[0x5]
0860 ; --------------------------------------------------------------------------------------
0860 ; SUBPROGRAM
0860 ; --------------------------------------------------------------------------------------
0860 0863 | c | .CONST 0x0863 ; Address of begin
0861 0004 | | .CONST 0x0004 ; Address of exception handler
0862 0001 | | .CONST 0x0001 ; Number of locals
0863 BODY_0860:
0863 INIT_0860:
0863 00db | | Load_Top At_Offset_3 ; Debug Table 0x17 = .DEBUG 0x0863,0x1a08,0x0001,0x0000,0x0036,0xd8a4,0x0000,0x03a9
; Debug Table 0x17.0x0 = 0x863,0x1
0864 00db | | Load_Top At_Offset_3
0865 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0866 e004 | | Load 0x0,0x4
0867 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0868 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0869 0000 0000 | | .BLANK 0000[0x7]
0870 ; --------------------------------------------------------------------------------------
0870 ; SUBPROGRAM
0870 ; --------------------------------------------------------------------------------------
0870 0873 | s | .CONST 0x0873 ; Address of begin
0871 0004 | | .CONST 0x0004 ; Address of exception handler
0872 0001 | | .CONST 0x0001 ; Number of locals
0873 BODY_0870:
0873 INIT_0870:
0873 e5fc | | Load 0x2,-0x4 ; Debug Table 0x18 = .DEBUG 0x0873,0x1a0c,0x0001,0x0000,0x0036,0xd8a4,0x0000,0x03c4
; Debug Table 0x18.0x0 = 0x873,0x1
0874 e5fd | | Load 0x2,-0x3
0875 e5fe | | Load 0x2,-0x2
0876 e5ff | | Load 0x2,-0x1
0877 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0878 e004 | | Load 0x0,0x4
0879 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
087a 4504 |E | Exit_Suprogram New_Top_Offset 0x4
087b 0000 0000 | | .BLANK 0000[0x5]
0880 ; --------------------------------------------------------------------------------------
0880 ; SUBPROGRAM
0880 ; --------------------------------------------------------------------------------------
0880 0883 | | .CONST 0x0883 ; Address of begin
0881 0004 | | .CONST 0x0004 ; Address of exception handler
0882 0001 | | .CONST 0x0001 ; Number of locals
0883 BODY_0880:
0883 INIT_0880:
0883 00db | | Load_Top At_Offset_3 ; Debug Table 0x19 = .DEBUG 0x0883,0x1a10,0x0001,0x0000,0x0036,0xd8a4,0x0000,0x03eb
; Debug Table 0x19.0x0 = 0x883,0x1
0884 00db | | Load_Top At_Offset_3
0885 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0886 e004 | | Load 0x0,0x4
0887 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0888 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0889 0000 0000 | | .BLANK 0000[0x7]
0890 ; --------------------------------------------------------------------------------------
0890 ; SUBPROGRAM
0890 ; --------------------------------------------------------------------------------------
0890 0893 | | .CONST 0x0893 ; Address of begin
0891 089a | | .CONST 0x089a ; Address of exception handler
0892 0001 | | .CONST 0x0001 ; Number of locals
0893 BODY_0890:
0893 INIT_0890:
0893 00da | | Load_Top At_Offset_2 ; Debug Table 0x1a = .DEBUG 0x0893,0x1a14,0x0002,0x0000,0x0036,0xd8a4,0x0000,0x0426
; Debug Table 0x1a.0x0 = 0x893,0x1
0894 e002 | | Load 0x0,0x2
0895 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0896 025b | [ | Execute Discrete,Check_In_Type
0897 e004 | | Load 0x0,0x4
0898 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0899 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
089a TRAP_0890:
089a 0007 | | Action Break_Optional
089b 0092 1221 | !| Action Push_String_Extended,0x1221 ; "Tape Drive"
; Debug Table 0x1a.0x1 = 0x89b,0x2
089d e5ff | | Load 0x2,-0x1
089e 00e0 | | Load_Encached Standard_Cache
089f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
08a0 01cc | | Execute Vector,Catenate
08a1 0092 1222 | "| Action Push_String_Extended,0x1222 ; " not found"
08a3 01cc | | Execute Vector,Catenate
08a4 8224 | $ | Call 0x1,0x24
08a5 611e |a | Indirect_Literal Discrete,0x9c4,{0x00000000, 0x36d8a401} ; Debug Table 0x1a.0x2 = 0x8a5,0x3
08a6 0257 | W | Execute Discrete,Raise
08a7 0000 | | .XXX[0x1]
08a8 ; --------------------------------------------------------------------------------------
08a8 ; SUBPROGRAM
08a8 ; --------------------------------------------------------------------------------------
08a8 0937 | 7 | .CONST 0x0937 ; Address of begin
08a9 0004 | | .CONST 0x0004 ; Address of exception handler
08aa 0008 | | .CONST 0x0008 ; Number of locals
08ab INIT_08a8:
08ab 00e8 | | Load_Encached Character_Cache ; Debug Table 0x1b = .DEBUG 0x08ab,0x1a1c,0x0002,0x0000,0x0036,0xd8a4,0x0000,0x0522
; Debug Table 0x1b.0x0 = 0x8ab,0xffff
08ac 0266 | f | Execute Discrete,Bounds
08ad 00e1 | | Load_Encached Boolean_Cache
08ae 02a0 | | Declare_Subprogram Null_Subprogram
08af 4801 |H | Short_Literal 0x1
08b0 035d | ] | Declare_Type Array,Defined
08b1 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1b.0x1 = 0x8b1,0xfffe
08b2 0337 | 7 | Declare_Variable Array
08b3 00d9 | | Load_Top At_Offset_1
08b4 0337 | 7 | Declare_Variable Array
08b5 4800 |H | Short_Literal 0x0
08b6 4841 |HA | Short_Literal 0x41
08b7 00da | | Load_Top At_Offset_2
08b8 01d6 | | Execute Vector,Field_Write
08b9 4800 |H | Short_Literal 0x0
08ba 4845 |HE | Short_Literal 0x45
08bb 00da | | Load_Top At_Offset_2
08bc 01d6 | | Execute Vector,Field_Write
08bd 4800 |H | Short_Literal 0x0
08be 4849 |HI | Short_Literal 0x49
08bf 00da | | Load_Top At_Offset_2
08c0 01d6 | | Execute Vector,Field_Write
08c1 4800 |H | Short_Literal 0x0
08c2 484f |HO | Short_Literal 0x4f
08c3 00da | | Load_Top At_Offset_2
08c4 01d6 | | Execute Vector,Field_Write
08c5 4800 |H | Short_Literal 0x0
08c6 4855 |HU | Short_Literal 0x55
08c7 00da | | Load_Top At_Offset_2
08c8 01d6 | | Execute Vector,Field_Write
08c9 4800 |H | Short_Literal 0x0
08ca 485f |H_ | Short_Literal 0x5f
08cb 00da | | Load_Top At_Offset_2
08cc 01d6 | | Execute Vector,Field_Write
08cd 4840 |H@ | Short_Literal 0x40
08ce 4800 |H | Short_Literal 0x0
08cf 4801 |H | Short_Literal 0x1
08d0 00d9 | | Load_Top At_Offset_1
08d1 e404 | | Load 0x2,0x4
08d2 01d6 | | Execute Vector,Field_Write
08d3 3ffb |? | Loop_Increasing 0x8cf
08d4 4844 |HD | Short_Literal 0x44
08d5 4842 |HB | Short_Literal 0x42
08d6 4801 |H | Short_Literal 0x1
08d7 00d9 | | Load_Top At_Offset_1
08d8 e404 | | Load 0x2,0x4
08d9 01d6 | | Execute Vector,Field_Write
08da 3ffb |? | Loop_Increasing 0x8d6
08db 4848 |HH | Short_Literal 0x48
08dc 4846 |HF | Short_Literal 0x46
08dd 4801 |H | Short_Literal 0x1
08de 00d9 | | Load_Top At_Offset_1
08df e404 | | Load 0x2,0x4
08e0 01d6 | | Execute Vector,Field_Write
08e1 3ffb |? | Loop_Increasing 0x8dd
08e2 484e |HN | Short_Literal 0x4e
08e3 484a |HJ | Short_Literal 0x4a
08e4 4801 |H | Short_Literal 0x1
08e5 00d9 | | Load_Top At_Offset_1
08e6 e404 | | Load 0x2,0x4
08e7 01d6 | | Execute Vector,Field_Write
08e8 3ffb |? | Loop_Increasing 0x8e4
08e9 4854 |HT | Short_Literal 0x54
08ea 4850 |HP | Short_Literal 0x50
08eb 4801 |H | Short_Literal 0x1
08ec 00d9 | | Load_Top At_Offset_1
08ed e404 | | Load 0x2,0x4
08ee 01d6 | | Execute Vector,Field_Write
08ef 3ffb |? | Loop_Increasing 0x8eb
08f0 485e |H^ | Short_Literal 0x5e
08f1 4856 |HV | Short_Literal 0x56
08f2 4801 |H | Short_Literal 0x1
08f3 00d9 | | Load_Top At_Offset_1
08f4 e404 | | Load 0x2,0x4
08f5 01d6 | | Execute Vector,Field_Write
08f6 3ffb |? | Loop_Increasing 0x8f2
08f7 487f |H | Short_Literal 0x7f
08f8 4860 |H` | Short_Literal 0x60
08f9 4801 |H | Short_Literal 0x1
08fa 00d9 | | Load_Top At_Offset_1
08fb e404 | | Load 0x2,0x4
08fc 01d6 | | Execute Vector,Field_Write
08fd 3ffb |? | Loop_Increasing 0x8f9
08fe 00da | | Load_Top At_Offset_2
08ff 01c3 | | Execute Vector,Check_In_Type
0900 00d9 | | Load_Top At_Offset_1
0901 01d4 | | Execute Vector,Structure_Write
0902 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x1b.0x2 = 0x902,0xfffd
0903 0337 | 7 | Declare_Variable Array
0904 00da | | Load_Top At_Offset_2
0905 0337 | 7 | Declare_Variable Array
0906 4800 |H | Short_Literal 0x0
0907 485f |H_ | Short_Literal 0x5f
0908 00da | | Load_Top At_Offset_2
0909 01d6 | | Execute Vector,Field_Write
090a 485e |H^ | Short_Literal 0x5e
090b 4800 |H | Short_Literal 0x0
090c 4801 |H | Short_Literal 0x1
090d 00d9 | | Load_Top At_Offset_1
090e e405 | | Load 0x2,0x5
090f 01d6 | | Execute Vector,Field_Write
0910 3ffb |? | Loop_Increasing 0x90c
0911 487f |H | Short_Literal 0x7f
0912 4860 |H` | Short_Literal 0x60
0913 4801 |H | Short_Literal 0x1
0914 00d9 | | Load_Top At_Offset_1
0915 e405 | | Load 0x2,0x5
0916 01d6 | | Execute Vector,Field_Write
0917 3ffb |? | Loop_Increasing 0x913
0918 00db | | Load_Top At_Offset_3
0919 01c3 | | Execute Vector,Check_In_Type
091a 00d9 | | Load_Top At_Offset_1
091b 01d4 | | Execute Vector,Structure_Write
091c 4801 |H | Short_Literal 0x1 ; Debug Table 0x1b.0x3 = 0x91c,0xfffc
091d e5fe | | Load 0x2,-0x2
091e 01db | | Execute Vector,Length
091f e5ff | | Load 0x2,-0x1
0920 01db | | Execute Vector,Length
0921 0273 | s | Execute Discrete,Plus
0922 0248 | H | Execute Discrete,Check_In_Integer
0923 00e9 | | Load_Encached String_Cache
0924 0334 | 4 | Declare_Variable Array,With_Constraint
0925 e5ff | | Load 0x2,-0x1
0926 e5fe | | Load 0x2,-0x2
0927 01cc | | Execute Vector,Catenate
0928 e013 | | Load 0x0,0x13
0929 1814 | | Execute Package,Field_Execute,Field_Number 0x14
092a 00d9 | | Load_Top At_Offset_1
092b 01d4 | | Execute Vector,Structure_Write
092c 0007 | | Action Break_Optional ; Debug Table 0x1b.0x4 = 0x92c,0xfffb
092d 4811 |H | Short_Literal 0x11 ; Debug Table 0x1b.0x5 = 0x92d,0xfffa
092e e5fd | | Load 0x2,-0x3
092f 01db | | Execute Vector,Length
0930 0272 | r | Execute Discrete,Minus
0931 00e3 | | Load_Encached Natural_Cache
0932 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0933 029f 116b | k| Declare_Subprogram INIT_1168,For_Call ; Debug Table 0x1b.0x6 = 0x933,0xfff9
0935 029f 1183 | | Declare_Subprogram INIT_1180,For_Call ; Debug Table 0x1b.0x7 = 0x935,0xfff8
0937 BODY_08a8:
0937 e5fc | | Load 0x2,-0x4 ; Debug Table 0x1b.0x8 = 0x937,0x1
0938 0092 11fa | | Action Push_String_Extended,0x11fa ; "R1000"
093a 01df | | Execute Vector,Equal
093b 680a |h | Jump_Zero 0x946
093c 4811 |H | Short_Literal 0x11 ; Debug Table 0x1b.0x9 = 0x93c,0x2
093d 4811 |H | Short_Literal 0x11
093e e403 | | Load 0x2,0x3
093f 4811 |H | Short_Literal 0x11
0940 e404 | | Load 0x2,0x4
0941 e405 | | Load 0x2,0x5
0942 8408 | | Call 0x2,0x8
0943 8408 | | Call 0x2,0x8
0944 8407 | | Call 0x2,0x7
0945 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0946 e5fc | | Load 0x2,-0x4 ; Debug Table 0x1b.0xa = 0x946,0x3
0947 0092 11fb | | Action Push_String_Extended,0x11fb ; "MV"
0949 01df | | Execute Vector,Equal
094a 683b |h; | Jump_Zero 0x986
094b e5fd | | Load 0x2,-0x3 ; Debug Table 0x1b.0xb = 0x94b,0x4
094c 0092 1223 | #| Action Push_String_Extended,0x1223 ; ".TXT"
094e 01df | | Execute Vector,Equal
094f 682a |h* | Jump_Zero 0x97a
0950 4800 |H | Short_Literal 0x0
0951 e5fe | | Load 0x2,-0x2
0952 485f |H_ | Short_Literal 0x5f
0953 e013 | | Load 0x0,0x13
0954 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0955 e5fe | | Load 0x2,-0x2
0956 01dc | | Execute Vector,Last
0957 0afd | | Execute_Immediate Plus,-0x3
0958 027f | | Execute Discrete,Equal
0959 6820 |h | Jump_Zero 0x97a
095a 482e |H. | Short_Literal 0x2e ; Debug Table 0x1b.0xc = 0x95a,0x5
095b 480d |H | Short_Literal 0xd
095c 480d |H | Short_Literal 0xd
095d e403 | | Load 0x2,0x3
095e 480d |H | Short_Literal 0xd
095f e404 | | Load 0x2,0x4
0960 e5fe | | Load 0x2,-0x2
0961 01dd | | Execute Vector,First
0962 e5fe | | Load 0x2,-0x2
0963 01dc | | Execute Vector,Last
0964 0afc | | Execute_Immediate Plus,-0x4
0965 0248 | H | Execute Discrete,Check_In_Integer
0966 e5fe | | Load 0x2,-0x2
0967 01cf | | Execute Vector,Slice_Read
0968 e013 | | Load 0x0,0x13
0969 1814 | | Execute Package,Field_Execute,Field_Number 0x14
096a 8408 | | Call 0x2,0x8
096b 8408 | | Call 0x2,0x8
096c 8407 | | Call 0x2,0x7
096d 01cb | | Execute Vector,Append
096e e5fe | | Load 0x2,-0x2
096f 01dc | | Execute Vector,Last
0970 0afe | | Execute_Immediate Plus,-0x2
0971 0248 | H | Execute Discrete,Check_In_Integer
0972 e5fe | | Load 0x2,-0x2
0973 01dc | | Execute Vector,Last
0974 e5fe | | Load 0x2,-0x2
0975 01cf | | Execute Vector,Slice_Read
0976 e013 | | Load 0x0,0x13
0977 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0978 01cc | | Execute Vector,Catenate
0979 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
097a 00da | | Load_Top At_Offset_2 ; Debug Table 0x1b.0xd = 0x97a,0x6
097b 00db | | Load_Top At_Offset_3
097c e403 | | Load 0x2,0x3
097d e406 | | Load 0x2,0x6
097e e404 | | Load 0x2,0x4
097f e405 | | Load 0x2,0x5
0980 8408 | | Call 0x2,0x8
0981 8408 | | Call 0x2,0x8
0982 8407 | | Call 0x2,0x7
0983 e5fd | | Load 0x2,-0x3
0984 01cc | | Execute Vector,Catenate
0985 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0986 e5fd | | Load 0x2,-0x3 ; Debug Table 0x1b.0xe = 0x986,0x7
0987 0092 1223 | #| Action Push_String_Extended,0x1223 ; ".TXT"
0989 01df | | Execute Vector,Equal
098a 682a |h* | Jump_Zero 0x9b5
098b 4800 |H | Short_Literal 0x0
098c e5fe | | Load 0x2,-0x2
098d 485f |H_ | Short_Literal 0x5f
098e e013 | | Load 0x0,0x13
098f 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0990 e5fe | | Load 0x2,-0x2
0991 01dc | | Execute Vector,Last
0992 0afd | | Execute_Immediate Plus,-0x3
0993 027f | | Execute Discrete,Equal
0994 6820 |h | Jump_Zero 0x9b5
0995 482e |H. | Short_Literal 0x2e ; Debug Table 0x1b.0xf = 0x995,0x8
0996 4809 |H | Short_Literal 0x9
0997 4809 |H | Short_Literal 0x9
0998 e403 | | Load 0x2,0x3
0999 4800 |H | Short_Literal 0x0
099a e404 | | Load 0x2,0x4
099b e5fe | | Load 0x2,-0x2
099c 01dd | | Execute Vector,First
099d e5fe | | Load 0x2,-0x2
099e 01dc | | Execute Vector,Last
099f 0afc | | Execute_Immediate Plus,-0x4
09a0 0248 | H | Execute Discrete,Check_In_Integer
09a1 e5fe | | Load 0x2,-0x2
09a2 01cf | | Execute Vector,Slice_Read
09a3 e013 | | Load 0x0,0x13
09a4 1814 | | Execute Package,Field_Execute,Field_Number 0x14
09a5 8408 | | Call 0x2,0x8
09a6 8408 | | Call 0x2,0x8
09a7 8407 | | Call 0x2,0x7
09a8 01cb | | Execute Vector,Append
09a9 e5fe | | Load 0x2,-0x2
09aa 01dc | | Execute Vector,Last
09ab 0afe | | Execute_Immediate Plus,-0x2
09ac 0248 | H | Execute Discrete,Check_In_Integer
09ad e5fe | | Load 0x2,-0x2
09ae 01dc | | Execute Vector,Last
09af e5fe | | Load 0x2,-0x2
09b0 01cf | | Execute Vector,Slice_Read
09b1 e013 | | Load 0x0,0x13
09b2 1814 | | Execute Package,Field_Execute,Field_Number 0x14
09b3 01cc | | Execute Vector,Catenate
09b4 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
09b5 4809 |H | Short_Literal 0x9 ; Debug Table 0x1b.0x10 = 0x9b5,0x9
09b6 4809 |H | Short_Literal 0x9
09b7 e403 | | Load 0x2,0x3
09b8 4800 |H | Short_Literal 0x0
09b9 e404 | | Load 0x2,0x4
09ba e405 | | Load 0x2,0x5
09bb 8408 | | Call 0x2,0x8
09bc 8408 | | Call 0x2,0x8
09bd 8407 | | Call 0x2,0x7
09be e5fd | | Load 0x2,-0x3
09bf 01cc | | Execute Vector,Catenate
09c0 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
09c1 0000 0000 | | .XXX[0x3]
09c3 0000 | |
09c4 0000 0000 | | .LITERAL {0x00000000, 0x36d8a401}
09c8 ; --------------------------------------------------------------------------------------
09c8 ; SUBPROGRAM
09c8 ; --------------------------------------------------------------------------------------
09c8 09d9 | | .CONST 0x09d9 ; Address of begin
09c9 0004 | | .CONST 0x0004 ; Address of exception handler
09ca 0004 | | .CONST 0x0004 ; Number of locals
09cb INIT_09c8:
09cb 4801 |H | Short_Literal 0x1 ; Debug Table 0x1c = .DEBUG 0x09cb,0x1a40,0x0002,0x0000,0x0036,0xd8a4,0x0000,0x0722
; Debug Table 0x1c.0x0 = 0x9cb,0xffff
09cc 00db | | Load_Top At_Offset_3
09cd 01db | | Execute Vector,Length
09ce 00e9 | | Load_Encached String_Cache
09cf 0334 | 4 | Declare_Variable Array,With_Constraint
09d0 00db | | Load_Top At_Offset_3
09d1 00d9 | | Load_Top At_Offset_1
09d2 01d4 | | Execute Vector,Structure_Write
09d3 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x1c.0x1 = 0x9d3,0xfffe
09d4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
09d5 e5ff | | Load 0x2,-0x1 ; Debug Table 0x1c.0x2 = 0x9d5,0xfffd
09d6 01db | | Execute Vector,Length
09d7 00e3 | | Load_Encached Natural_Cache
09d8 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
09d9 BODY_09c8:
09d9 00cf | | Action Mark_Auxiliary
09da e5ff | | Load 0x2,-0x1 ; Debug Table 0x1c.0x3 = 0x9da,0x1
09db 01db | | Execute Vector,Length
09dc 4801 |H | Short_Literal 0x1
09dd 0263 | c | Execute Discrete,Above_Bound
09de 7039 |p9 | Jump_Nonzero 0xa18
09df 00db | | Load_Top At_Offset_3 ; Debug Table 0x1c.0x4 = 0x9df,0x2
09e0 480d |H | Short_Literal 0xd
09e1 0271 | q | Execute Discrete,Times
09e2 00d9 | | Load_Top At_Offset_1
09e3 e5ff | | Load 0x2,-0x1
09e4 01d7 | | Execute Vector,Field_Read
09e5 0273 | s | Execute Discrete,Plus
09e6 0248 | H | Execute Discrete,Check_In_Integer
09e7 48ff |H | Short_Literal 0xff
09e8 0279 | y | Execute Discrete,And
09e9 c404 | | Store 0x2,0x4
09ea 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1c.0x5 = 0x9ea,0x3
09eb e5ff | | Load 0x2,-0x1
09ec 01d7 | | Execute Vector,Field_Read
09ed 00d8 | | Load_Top At_Offset_0
09ee 4841 |HA | Short_Literal 0x41
09ef 485a |HZ | Short_Literal 0x5a
09f0 0262 | b | Execute Discrete,In_Range
09f1 701a |p | Jump_Nonzero 0xa0c
09f2 00d8 | | Load_Top At_Offset_0
09f3 4861 |Ha | Short_Literal 0x61
09f4 487a |Hz | Short_Literal 0x7a
09f5 0262 | b | Execute Discrete,In_Range
09f6 7015 |p | Jump_Nonzero 0xa0c
09f7 00d8 | | Load_Top At_Offset_0
09f8 4830 |H0 | Short_Literal 0x30
09f9 4839 |H9 | Short_Literal 0x39
09fa 0262 | b | Execute Discrete,In_Range
09fb 7010 |p | Jump_Nonzero 0xa0c
09fc e403 | | Load 0x2,0x3 ; Debug Table 0x1c.0x6 = 0x9fc,0x6
09fd 0c01 | | Execute_Immediate Greater_Equal,0x1
09fe 6816 |h | Jump_Zero 0xa15
09ff e403 | | Load 0x2,0x3
0a00 e402 | | Load 0x2,0x2
0a01 01d7 | | Execute Vector,Field_Read
0a02 0e5f | _ | Execute_Immediate Not_Equal,0x5f
0a03 6811 |h | Jump_Zero 0xa15
0a04 e403 | | Load 0x2,0x3 ; Debug Table 0x1c.0x7 = 0xa04,0x7
0a05 0a01 | | Execute_Immediate Plus,0x1
0a06 c403 | | Store 0x2,0x3
0a07 485f |H_ | Short_Literal 0x5f ; Debug Table 0x1c.0x8 = 0xa07,0x8
0a08 e403 | | Load 0x2,0x3
0a09 e402 | | Load 0x2,0x2
0a0a 01d6 | | Execute Vector,Field_Write
0a0b 7809 |x | Jump 0xa15
0a0c e403 | | Load 0x2,0x3 ; Debug Table 0x1c.0x9 = 0xa0c,0x4
0a0d 0a01 | | Execute_Immediate Plus,0x1
0a0e c403 | | Store 0x2,0x3
0a0f 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x1c.0xa = 0xa0f,0x5
0a10 e5ff | | Load 0x2,-0x1
0a11 01d7 | | Execute Vector,Field_Read
0a12 e403 | | Load 0x2,0x3
0a13 e402 | | Load 0x2,0x2
0a14 01d6 | | Execute Vector,Field_Write
0a15 00d1 | | Pop_Control Pop_Count_1
0a16 00c8 | | Action Pop_Auxiliary_Range
0a17 3fc7 |? | Loop_Increasing 0x9df
0a18 00ce | | Action Pop_Auxiliary
0a19 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x1c.0xb = 0xa19,0x9
0a1a 0c01 | | Execute_Immediate Greater_Equal,0x1
0a1b 6824 |h$ | Jump_Zero 0xa40
0a1c 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x1c.0xc = 0xa1c,0xa
0a1d 00db | | Load_Top At_Offset_3
0a1e 01d7 | | Execute Vector,Field_Read
0a1f 0f5f | _ | Execute_Immediate Equal,0x5f
0a20 681a |h | Jump_Zero 0xa3b
0a21 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x1c.0xd = 0xa21,0xb
0a22 0c02 | | Execute_Immediate Greater_Equal,0x2
0a23 6810 |h | Jump_Zero 0xa34
0a24 00d9 | | Load_Top At_Offset_1
0a25 0aff | | Execute_Immediate Plus,-0x1
0a26 0248 | H | Execute Discrete,Check_In_Integer
0a27 00db | | Load_Top At_Offset_3
0a28 01d7 | | Execute Vector,Field_Read
0a29 0f5f | _ | Execute_Immediate Equal,0x5f
0a2a 6809 |h | Jump_Zero 0xa34
0a2b 4842 |HB | Short_Literal 0x42 ; Debug Table 0x1c.0xe = 0xa2b,0xc
0a2c 00da | | Load_Top At_Offset_2
0a2d e402 | | Load 0x2,0x2
0a2e 01d6 | | Execute Vector,Field_Write
0a2f 4801 |H | Short_Literal 0x1 ; Debug Table 0x1c.0xf = 0xa2f,0xd
0a30 00da | | Load_Top At_Offset_2
0a31 e402 | | Load 0x2,0x2
0a32 01cf | | Execute Vector,Slice_Read
0a33 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0a34 4801 |H | Short_Literal 0x1 ; Debug Table 0x1c.0x10 = 0xa34,0xe
0a35 00da | | Load_Top At_Offset_2
0a36 0aff | | Execute_Immediate Plus,-0x1
0a37 0248 | H | Execute Discrete,Check_In_Integer
0a38 e402 | | Load 0x2,0x2
0a39 01cf | | Execute Vector,Slice_Read
0a3a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0a3b 4801 |H | Short_Literal 0x1 ; Debug Table 0x1c.0x11 = 0xa3b,0xf
0a3c 00da | | Load_Top At_Offset_2
0a3d e402 | | Load 0x2,0x2
0a3e 01cf | | Execute Vector,Slice_Read
0a3f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0a40 485f |H_ | Short_Literal 0x5f ; Debug Table 0x1c.0x12 = 0xa40,0x10
0a41 485f |H_ | Short_Literal 0x5f
0a42 485f |H_ | Short_Literal 0x5f
0a43 e017 | | Load 0x0,0x17
0a44 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0a45 e017 | | Load 0x0,0x17
0a46 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0a47 01cb | | Execute Vector,Append
0a48 e017 | | Load 0x0,0x17
0a49 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0a4a e017 | | Load 0x0,0x17
0a4b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0a4c 01cc | | Execute Vector,Catenate
0a4d 01cb | | Execute Vector,Append
0a4e 4800 |H | Short_Literal 0x0
0a4f 4803 |H | Short_Literal 0x3
0a50 4804 |H | Short_Literal 0x4
0a51 e018 | | Load 0x0,0x18
0a52 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0a53 e018 | | Load 0x0,0x18
0a54 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0a55 01cc | | Execute Vector,Catenate
0a56 01cb | | Execute Vector,Append
0a57 4820 |H | Short_Literal 0x20
0a58 4800 |H | Short_Literal 0x0
0a59 480a |H | Short_Literal 0xa
0a5a e404 | | Load 0x2,0x4
0a5b e013 | | Load 0x0,0x13
0a5c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0a5d 01cc | | Execute Vector,Catenate
0a5e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0a5f 0000 | | .XXX[0x1]
0a60 ; --------------------------------------------------------------------------------------
0a60 ; SUBPROGRAM
0a60 ; --------------------------------------------------------------------------------------
0a60 0a66 | f | .CONST 0x0a66 ; Address of begin
0a61 0004 | | .CONST 0x0004 ; Address of exception handler
0a62 0002 | | .CONST 0x0002 ; Number of locals
0a63 INIT_0a60:
0a63 00da | | Load_Top At_Offset_2 ; Debug Table 0x1d = .DEBUG 0x0a63,0x1a68,0x0002,0x0000,0x0036,0xd8a4,0x0000,0x082d
; Debug Table 0x1d.0x0 = 0xa63,0xffff
0a64 e013 | | Load 0x0,0x13
0a65 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0a66 BODY_0a60:
0a66 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1d.0x1 = 0xa66,0x1
0a67 0092 11fa | | Action Push_String_Extended,0x11fa ; "R1000"
0a69 01de | | Execute Vector,Not_Equal
0a6a 681e |h | Jump_Zero 0xa89
0a6b 00d8 | | Load_Top At_Offset_0
0a6c 0092 11fb | | Action Push_String_Extended,0x11fb ; "MV"
0a6e 01de | | Execute Vector,Not_Equal
0a6f 6819 |h | Jump_Zero 0xa89
0a70 00d8 | | Load_Top At_Offset_0
0a71 0092 1224 | $| Action Push_String_Extended,0x1224 ; "VAX/VMS"
0a73 01de | | Execute Vector,Not_Equal
0a74 6814 |h | Jump_Zero 0xa89
0a75 e5fe | | Load 0x2,-0x2 ; Debug Table 0x1d.0x2 = 0xa75,0x2
0a76 4806 |H | Short_Literal 0x6
0a77 0092 1225 | %| Action Push_String_Extended,0x1225 ; "Format "
0a79 00db | | Load_Top At_Offset_3
0a7a 01cc | | Execute Vector,Catenate
0a7b 0092 1226 | &| Action Push_String_Extended,0x1226 ; " is illegal; 'VAX/VMS' is assumed"
0a7d 01cc | | Execute Vector,Catenate
0a7e e014 | | Load 0x0,0x14
0a7f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0a80 e5fe | | Load 0x2,-0x2 ; Debug Table 0x1d.0x3 = 0xa80,0x3
0a81 e012 | | Load 0x0,0x12
0a82 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0a83 6803 |h | Jump_Zero 0xa87
0a84 0092 1224 | $| Action Push_String_Extended,0x1224 ; "VAX/VMS"
; Debug Table 0x1d.0x4 = 0xa84,0x4
0a86 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0a87 61f4 |a | Indirect_Literal Discrete,0xc7c,{0x00000000, 0x36d8a402} ; Debug Table 0x1d.0x5 = 0xa87,0x5
0a88 0257 | W | Execute Discrete,Raise
0a89 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1d.0x6 = 0xa89,0x6
0a8a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0a8b 0000 0000 | | .BLANK 0000[0x5]
0a90 ; --------------------------------------------------------------------------------------
0a90 ; SUBPROGRAM
0a90 ; --------------------------------------------------------------------------------------
0a90 0a93 | | .CONST 0x0a93 ; Address of begin
0a91 0004 | | .CONST 0x0004 ; Address of exception handler
0a92 0001 | | .CONST 0x0001 ; Number of locals
0a93 BODY_0a90:
0a93 INIT_0a90:
0a93 4603 |F | Jump_Case 0x4 ; Debug Table 0x1e = .DEBUG 0x0a93,0x1a78,0x0005,0x0000,0x0036,0xd8a4,0x0000,0x0885
0a94 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0a95 7802 |x | Jump 0xa98 ; case 0x1
0a96 7805 |x | Jump 0xa9c ; case 0x2
0a97 7809 |x | Jump 0xaa1 ; case 0x3
0a98 00da | | Load_Top At_Offset_2
0a99 0091 11ec | | Action Push_String_Extended_Indexed,0x11ec ; "NIL"
0a9b 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0a9c 00db | | Load_Top At_Offset_3
0a9d 00db | | Load_Top At_Offset_3
0a9e 00e0 | | Load_Encached Standard_Cache
0a9f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0aa0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0aa1 00da | | Load_Top At_Offset_2
0aa2 00e0 | | Load_Encached Standard_Cache
0aa3 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0aa4 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0aa5 0000 0000 | | .XXX[0x3]
0aa7 0000 | |
0aa8 ; --------------------------------------------------------------------------------------
0aa8 ; SUBPROGRAM
0aa8 ; --------------------------------------------------------------------------------------
0aa8 0aab | | .CONST 0x0aab ; Address of begin
0aa9 0004 | | .CONST 0x0004 ; Address of exception handler
0aaa 0001 | | .CONST 0x0001 ; Number of locals
0aab BODY_0aa8:
0aab INIT_0aa8:
0aab 4603 |F | Jump_Case 0x4 ; Debug Table 0x1f = .DEBUG 0x0aab,0x1a7a,0x0005,0x0000,0x0036,0xd8a4,0x0000,0x0b8c
0aac 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0aad 7802 |x | Jump 0xab0 ; case 0x1
0aae 7805 |x | Jump 0xab4 ; case 0x2
0aaf 7809 |x | Jump 0xab9 ; case 0x3
0ab0 00da | | Load_Top At_Offset_2
0ab1 0091 11ef | | Action Push_String_Extended_Indexed,0x11ef ; "NIL"
0ab3 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0ab4 00db | | Load_Top At_Offset_3
0ab5 00db | | Load_Top At_Offset_3
0ab6 00e0 | | Load_Encached Standard_Cache
0ab7 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0ab8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0ab9 00da | | Load_Top At_Offset_2
0aba 00e0 | | Load_Encached Standard_Cache
0abb 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0abc 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0abd 0000 0000 | | .XXX[0x3]
0abf 0000 | |
0ac0 ; --------------------------------------------------------------------------------------
0ac0 ; SUBPROGRAM
0ac0 ; --------------------------------------------------------------------------------------
0ac0 0acf | | .CONST 0x0acf ; Address of begin
0ac1 0004 | | .CONST 0x0004 ; Address of exception handler
0ac2 0006 | | .CONST 0x0006 ; Number of locals
0ac3 INIT_0ac0:
0ac3 4801 |H | Short_Literal 0x1 ; Debug Table 0x20 = .DEBUG 0x0ac3,0x1a7c,0x0002,0x0000,0x0036,0xd8a4,0x0000,0x13cb
; Debug Table 0x20.0x0 = 0xac3,0xffff
0ac4 4808 |H | Short_Literal 0x8
0ac5 00e9 | | Load_Encached String_Cache
0ac6 0334 | 4 | Declare_Variable Array,With_Constraint
0ac7 51b8 |Q | Indirect_Literal Any,0xc80,{0x30302f30, 0x302f3030}
0ac8 00e2 | | Load_Encached Integer_Cache ; Debug Table 0x20.0x1 = 0xac8,0xfffe
0ac9 e01d | | Load 0x0,0x1d ; Debug Table 0x20.0x2 = 0xac9,0xfffd
0aca 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0acb e01d | | Load 0x0,0x1d ; Debug Table 0x20.0x3 = 0xacb,0xfffc
0acc 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0acd e01d | | Load 0x0,0x1d ; Debug Table 0x20.0x4 = 0xacd,0xfffb
0ace 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0acf BODY_0ac0:
0acf e01d | | Load 0x0,0x1d ; Debug Table 0x20.0x5 = 0xacf,0x1
0ad0 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0ad1 e01d | | Load 0x0,0x1d
0ad2 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0ad3 e01d | | Load 0x0,0x1d
0ad4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0ad5 e01d | | Load 0x0,0x1d
0ad6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0ad7 e5ff | | Load 0x2,-0x1
0ad8 e01d | | Load 0x0,0x1d
0ad9 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0ada c403 | | Store 0x2,0x3
0adb c404 | | Store 0x2,0x4
0adc 005b | [ | Store_Top Discrete,At_Offset_3
0add 0059 | Y | Store_Top Discrete,At_Offset_1
0ade 00db | | Load_Top At_Offset_3 ; Debug Table 0x20.0x6 = 0xade,0x2
0adf 6198 |a | Indirect_Literal Discrete,0xc78,{0xffffffff, 0xfffff894}
0ae0 0273 | s | Execute Discrete,Plus
0ae1 0248 | H | Execute Discrete,Check_In_Integer
0ae2 a403 | | Store_Unchecked 0x2,0x3
0ae3 00da | | Load_Top At_Offset_2 ; Debug Table 0x20.0x7 = 0xae3,0x3
0ae4 0d0a | | Execute_Immediate Less,0xa
0ae5 6809 |h | Jump_Zero 0xaef
0ae6 4802 |H | Short_Literal 0x2 ; Debug Table 0x20.0x8 = 0xae6,0x4
0ae7 00db | | Load_Top At_Offset_3
0ae8 00e0 | | Load_Encached Standard_Cache
0ae9 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0aea 01d7 | | Execute Vector,Field_Read
0aeb 4802 |H | Short_Literal 0x2
0aec e402 | | Load 0x2,0x2
0aed 01d6 | | Execute Vector,Field_Write
0aee 780a |x | Jump 0xaf9
0aef 4802 |H | Short_Literal 0x2 ; Debug Table 0x20.0x9 = 0xaef,0x5
0af0 4803 |H | Short_Literal 0x3
0af1 e404 | | Load 0x2,0x4
0af2 00e0 | | Load_Encached Standard_Cache
0af3 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0af4 01cf | | Execute Vector,Slice_Read
0af5 4801 |H | Short_Literal 0x1
0af6 4802 |H | Short_Literal 0x2
0af7 e402 | | Load 0x2,0x2
0af8 01ce | | Execute Vector,Slice_Write
0af9 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x20.0xa = 0xaf9,0x6
0afa 0d0a | | Execute_Immediate Less,0xa
0afb 6809 |h | Jump_Zero 0xb05
0afc 4802 |H | Short_Literal 0x2 ; Debug Table 0x20.0xb = 0xafc,0x7
0afd 00da | | Load_Top At_Offset_2
0afe 00e0 | | Load_Encached Standard_Cache
0aff 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0b00 01d7 | | Execute Vector,Field_Read
0b01 4805 |H | Short_Literal 0x5
0b02 e402 | | Load 0x2,0x2
0b03 01d6 | | Execute Vector,Field_Write
0b04 780a |x | Jump 0xb0f
0b05 4802 |H | Short_Literal 0x2 ; Debug Table 0x20.0xc = 0xb05,0x8
0b06 4803 |H | Short_Literal 0x3
0b07 00db | | Load_Top At_Offset_3
0b08 00e0 | | Load_Encached Standard_Cache
0b09 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0b0a 01cf | | Execute Vector,Slice_Read
0b0b 4804 |H | Short_Literal 0x4
0b0c 4805 |H | Short_Literal 0x5
0b0d e402 | | Load 0x2,0x2
0b0e 01ce | | Execute Vector,Slice_Write
0b0f 00db | | Load_Top At_Offset_3 ; Debug Table 0x20.0xd = 0xb0f,0x9
0b10 0d0a | | Execute_Immediate Less,0xa
0b11 6809 |h | Jump_Zero 0xb1b
0b12 4802 |H | Short_Literal 0x2 ; Debug Table 0x20.0xe = 0xb12,0xa
0b13 e403 | | Load 0x2,0x3
0b14 00e0 | | Load_Encached Standard_Cache
0b15 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0b16 01d7 | | Execute Vector,Field_Read
0b17 4808 |H | Short_Literal 0x8
0b18 e402 | | Load 0x2,0x2
0b19 01d6 | | Execute Vector,Field_Write
0b1a 780a |x | Jump 0xb25
0b1b 4802 |H | Short_Literal 0x2 ; Debug Table 0x20.0xf = 0xb1b,0xb
0b1c 4803 |H | Short_Literal 0x3
0b1d e403 | | Load 0x2,0x3
0b1e 00e0 | | Load_Encached Standard_Cache
0b1f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0b20 01cf | | Execute Vector,Slice_Read
0b21 4807 |H | Short_Literal 0x7
0b22 4808 |H | Short_Literal 0x8
0b23 e402 | | Load 0x2,0x2
0b24 01ce | | Execute Vector,Slice_Write
0b25 e402 | | Load 0x2,0x2 ; Debug Table 0x20.0x10 = 0xb25,0xc
0b26 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0b27 0000 | | .XXX[0x1]
0b28 ; --------------------------------------------------------------------------------------
0b28 ; SUBPROGRAM
0b28 ; --------------------------------------------------------------------------------------
0b28 0b2b | + | .CONST 0x0b2b ; Address of begin
0b29 0004 | | .CONST 0x0004 ; Address of exception handler
0b2a 0001 | | .CONST 0x0001 ; Number of locals
0b2b BODY_0b28:
0b2b INIT_0b28:
0b2b 0092 1227 | '| Action Push_String_Extended,0x1227 ; "Volume Labels"
; Debug Table 0x21 = .DEBUG 0x0b2b,0x1aa0,0x0001,0x0000,0x0036,0xd8a4,0x0000,0x1499
; Debug Table 0x21.0x0 = 0xb2b,0x1
0b2d e00d | | Load 0x0,0xd
0b2e 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0b2f 0092 1228 | (| Action Push_String_Extended,0x1228 ; " Volume Id: "
; Debug Table 0x21.0x1 = 0xb2f,0x2
0b31 e5fe | | Load 0x2,-0x2
0b32 821c | | Call 0x1,0x1c
0b33 01cc | | Execute Vector,Catenate
0b34 e00d | | Load 0x0,0xd
0b35 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0b36 0092 1229 | )| Action Push_String_Extended,0x1229 ; " Accessibility: "
; Debug Table 0x21.0x2 = 0xb36,0x3
0b38 00db | | Load_Top At_Offset_3
0b39 00d8 | | Load_Top At_Offset_0
0b3a 00e8 | | Load_Encached Character_Cache
0b3b 0260 | ` | Execute Discrete,In_Type
0b3c 7002 |p | Jump_Nonzero 0xb3f
0b3d 48e0 |H | Short_Literal 0xe0
0b3e 0257 | W | Execute Discrete,Raise
0b3f 00e8 | | Load_Encached Character_Cache
0b40 025e | ^ | Execute Discrete,Convert
0b41 1c01 | | Execute_Immediate Run_Utility,0x1
0b42 01cc | | Execute Vector,Catenate
0b43 e00d | | Load 0x0,0xd
0b44 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0b45 0092 122a | *| Action Push_String_Extended,0x122a ; " Owner_Id:"
; Debug Table 0x21.0x3 = 0xb45,0x4
0b47 e00d | | Load 0x0,0xd
0b48 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0b49 4801 |H | Short_Literal 0x1 ; Debug Table 0x21.0x4 = 0xb49,0x5
0b4a 4800 |H | Short_Literal 0x0
0b4b 4810 |H | Short_Literal 0x10
0b4c e5fd | | Load 0x2,-0x3
0b4d 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b
0b4e 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c
0b4f e00c | | Load 0x0,0xc
0b50 180f | | Execute Package,Field_Execute,Field_Number 0xf
0b51 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x21.0x5 = 0xb51,0x6
0b52 e00d | | Load 0x0,0xd
0b53 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0b54 00cf | | Action Mark_Auxiliary
0b55 e5fc | | Load 0x2,-0x4 ; Debug Table 0x21.0x6 = 0xb55,0x7
0b56 01d9 | | Execute Vector,Reverse_Bounds
0b57 0263 | c | Execute Discrete,Above_Bound
0b58 7017 |p | Jump_Nonzero 0xb70
0b59 0092 122b | +| Action Push_String_Extended,0x122b ; " User Volume Label"
; Debug Table 0x21.0x7 = 0xb59,0x8
0b5b 00d9 | | Load_Top At_Offset_1
0b5c 00e0 | | Load_Encached Standard_Cache
0b5d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0b5e 01cc | | Execute Vector,Catenate
0b5f e00d | | Load 0x0,0xd
0b60 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0b61 4801 |H | Short_Literal 0x1 ; Debug Table 0x21.0x8 = 0xb61,0x9
0b62 4800 |H | Short_Literal 0x0
0b63 4810 |H | Short_Literal 0x10
0b64 00db | | Load_Top At_Offset_3
0b65 e5fc | | Load 0x2,-0x4
0b66 01d5 | | Execute Vector,Field_Reference
0b67 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b
0b68 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c
0b69 e00c | | Load 0x0,0xc
0b6a 180f | | Execute Package,Field_Execute,Field_Number 0xf
0b6b 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x21.0x9 = 0xb6b,0xa
0b6c e00d | | Load 0x0,0xd
0b6d 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0b6e 00c8 | | Action Pop_Auxiliary_Range
0b6f 3fe9 |? | Loop_Increasing 0xb59
0b70 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0b71 0000 0000 | | .BLANK 0000[0x7]
0b78 ; --------------------------------------------------------------------------------------
0b78 ; SUBPROGRAM
0b78 ; --------------------------------------------------------------------------------------
0b78 0b7b | { | .CONST 0x0b7b ; Address of begin
0b79 0004 | | .CONST 0x0004 ; Address of exception handler
0b7a 0001 | | .CONST 0x0001 ; Number of locals
0b7b BODY_0b78:
0b7b INIT_0b78:
0b7b 0092 122c | ,| Action Push_String_Extended,0x122c ; "File Labels"
; Debug Table 0x22 = .DEBUG 0x0b7b,0x1ab6,0x0001,0x0000,0x0036,0xd8a4,0x0000,0x1516
; Debug Table 0x22.0x0 = 0xb7b,0x1
0b7d e00d | | Load 0x0,0xd
0b7e 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0b7f 0092 122d | -| Action Push_String_Extended,0x122d ; " File Identifier: "
; Debug Table 0x22.0x1 = 0xb7f,0x2
0b81 00db | | Load_Top At_Offset_3
0b82 821c | | Call 0x1,0x1c
0b83 01cc | | Execute Vector,Catenate
0b84 e00d | | Load 0x0,0xd
0b85 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0b86 0092 122e | .| Action Push_String_Extended,0x122e ; " File Set Identifier: "
; Debug Table 0x22.0x2 = 0xb86,0x3
0b88 e5fe | | Load 0x2,-0x2
0b89 821c | | Call 0x1,0x1c
0b8a 01cc | | Execute Vector,Catenate
0b8b e00d | | Load 0x0,0xd
0b8c 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0b8d 0092 122f | /| Action Push_String_Extended,0x122f ; " File Sequence Number:"
; Debug Table 0x22.0x3 = 0xb8d,0x4
0b8f e5fc | | Load 0x2,-0x4
0b90 00e0 | | Load_Encached Standard_Cache
0b91 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0b92 01cc | | Execute Vector,Catenate
0b93 0092 1230 | 0| Action Push_String_Extended,0x1230 ; " File Section Number:"
0b95 01cc | | Execute Vector,Catenate
0b96 e5fd | | Load 0x2,-0x3
0b97 00e0 | | Load_Encached Standard_Cache
0b98 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0b99 01cc | | Execute Vector,Catenate
0b9a e00d | | Load 0x0,0xd
0b9b 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0b9c 0092 1231 | 1| Action Push_String_Extended,0x1231 ; " Generation Number:"
; Debug Table 0x22.0x4 = 0xb9c,0x5
0b9e e5fb | | Load 0x2,-0x5
0b9f 00e0 | | Load_Encached Standard_Cache
0ba0 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0ba1 01cc | | Execute Vector,Catenate
0ba2 0092 1232 | 2| Action Push_String_Extended,0x1232 ; " Generation Version Number:"
0ba4 01cc | | Execute Vector,Catenate
0ba5 e5fa | | Load 0x2,-0x6
0ba6 00e0 | | Load_Encached Standard_Cache
0ba7 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0ba8 01cc | | Execute Vector,Catenate
0ba9 e00d | | Load 0x0,0xd
0baa 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0bab 0092 1233 | 3| Action Push_String_Extended,0x1233 ; " Creation Date: "
; Debug Table 0x22.0x5 = 0xbab,0x6
0bad e5f9 | | Load 0x2,-0x7
0bae 823a | : | Call 0x1,0x3a
0baf 01cc | | Execute Vector,Catenate
0bb0 e00d | | Load 0x0,0xd
0bb1 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0bb2 e5f8 | | Load 0x2,-0x8 ; Debug Table 0x22.0x6 = 0xbb2,0x7
0bb3 6805 |h | Jump_Zero 0xbb9
0bb4 0092 1234 | 4| Action Push_String_Extended,0x1234 ; " Expiration Date: None"
; Debug Table 0x22.0x7 = 0xbb4,0x8
0bb6 e00d | | Load 0x0,0xd
0bb7 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0bb8 7807 |x | Jump 0xbc0
0bb9 0092 1235 | 5| Action Push_String_Extended,0x1235 ; " Expiration Date: "
; Debug Table 0x22.0x8 = 0xbb9,0x9
0bbb e5f7 | | Load 0x2,-0x9
0bbc 823a | : | Call 0x1,0x3a
0bbd 01cc | | Execute Vector,Catenate
0bbe e00d | | Load 0x0,0xd
0bbf 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0bc0 0092 1229 | )| Action Push_String_Extended,0x1229 ; " Accessibility: "
; Debug Table 0x22.0x9 = 0xbc0,0xa
0bc2 e5f6 | | Load 0x2,-0xa
0bc3 00d8 | | Load_Top At_Offset_0
0bc4 00e8 | | Load_Encached Character_Cache
0bc5 0260 | ` | Execute Discrete,In_Type
0bc6 7002 |p | Jump_Nonzero 0xbc9
0bc7 48e0 |H | Short_Literal 0xe0
0bc8 0257 | W | Execute Discrete,Raise
0bc9 00e8 | | Load_Encached Character_Cache
0bca 025e | ^ | Execute Discrete,Convert
0bcb 1c01 | | Execute_Immediate Run_Utility,0x1
0bcc 01cc | | Execute Vector,Catenate
0bcd e00d | | Load 0x0,0xd
0bce 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0bcf 0092 1236 | 6| Action Push_String_Extended,0x1236 ; " System Code: "
; Debug Table 0x22.0xa = 0xbcf,0xb
0bd1 e5f5 | | Load 0x2,-0xb
0bd2 821c | | Call 0x1,0x1c
0bd3 01cc | | Execute Vector,Catenate
0bd4 e00d | | Load 0x0,0xd
0bd5 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0bd6 0092 1237 | 7| Action Push_String_Extended,0x1237 ; " Record Format: "
; Debug Table 0x22.0xb = 0xbd6,0xc
0bd8 e5f4 | | Load 0x2,-0xc
0bd9 e01c | | Load 0x0,0x1c
0bda 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0bdb 025e | ^ | Execute Discrete,Convert
0bdc 1c01 | | Execute_Immediate Run_Utility,0x1
0bdd 01cc | | Execute Vector,Catenate
0bde e00d | | Load 0x0,0xd
0bdf 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0be0 0092 1238 | 8| Action Push_String_Extended,0x1238 ; " Block Length:"
; Debug Table 0x22.0xc = 0xbe0,0xd
0be2 e5f3 | | Load 0x2,-0xd
0be3 00e0 | | Load_Encached Standard_Cache
0be4 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0be5 01cc | | Execute Vector,Catenate
0be6 e00d | | Load 0x0,0xd
0be7 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0be8 0092 1239 | 9| Action Push_String_Extended,0x1239 ; " Record Length:"
; Debug Table 0x22.0xd = 0xbe8,0xe
0bea e5f2 | | Load 0x2,-0xe
0beb 00e0 | | Load_Encached Standard_Cache
0bec 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0bed 01cc | | Execute Vector,Catenate
0bee e00d | | Load 0x0,0xd
0bef 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0bf0 0092 123a | :| Action Push_String_Extended,0x123a ; " Reserved Field:"
; Debug Table 0x22.0xe = 0xbf0,0xf
0bf2 e00d | | Load 0x0,0xd
0bf3 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0bf4 4801 |H | Short_Literal 0x1 ; Debug Table 0x22.0xf = 0xbf4,0x10
0bf5 4800 |H | Short_Literal 0x0
0bf6 4810 |H | Short_Literal 0x10
0bf7 e5f1 | | Load 0x2,-0xf
0bf8 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b
0bf9 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c
0bfa e00c | | Load 0x0,0xc
0bfb 180f | | Execute Package,Field_Execute,Field_Number 0xf
0bfc 0092 123b | ;| Action Push_String_Extended,0x123b ; " Buffer Offset:"
; Debug Table 0x22.0x10 = 0xbfc,0x11
0bfe e5f0 | | Load 0x2,-0x10
0bff 00e0 | | Load_Encached Standard_Cache
0c00 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0c01 01cc | | Execute Vector,Catenate
0c02 e00d | | Load 0x0,0xd
0c03 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0c04 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x22.0x11 = 0xc04,0x12
0c05 e00d | | Load 0x0,0xd
0c06 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0c07 00cf | | Action Mark_Auxiliary
0c08 e5ef | | Load 0x2,-0x11 ; Debug Table 0x22.0x12 = 0xc08,0x13
0c09 01d9 | | Execute Vector,Reverse_Bounds
0c0a 0263 | c | Execute Discrete,Above_Bound
0c0b 7017 |p | Jump_Nonzero 0xc23
0c0c 0092 123c | <| Action Push_String_Extended,0x123c ; " File Header Label"
; Debug Table 0x22.0x13 = 0xc0c,0x14
0c0e 00d9 | | Load_Top At_Offset_1
0c0f 00e0 | | Load_Encached Standard_Cache
0c10 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0c11 01cc | | Execute Vector,Catenate
0c12 e00d | | Load 0x0,0xd
0c13 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0c14 4801 |H | Short_Literal 0x1 ; Debug Table 0x22.0x14 = 0xc14,0x15
0c15 4800 |H | Short_Literal 0x0
0c16 4810 |H | Short_Literal 0x10
0c17 00db | | Load_Top At_Offset_3
0c18 e5ef | | Load 0x2,-0x11
0c19 01d5 | | Execute Vector,Field_Reference
0c1a 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b
0c1b 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c
0c1c e00c | | Load 0x0,0xc
0c1d 180f | | Execute Package,Field_Execute,Field_Number 0xf
0c1e 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x22.0x15 = 0xc1e,0x16
0c1f e00d | | Load 0x0,0xd
0c20 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0c21 00c8 | | Action Pop_Auxiliary_Range
0c22 3fe9 |? | Loop_Increasing 0xc0c
0c23 00c9 | | Action Pop_Auxiliary_Loop
0c24 e5ee | | Load 0x2,-0x12 ; Debug Table 0x22.0x16 = 0xc24,0x17
0c25 01d9 | | Execute Vector,Reverse_Bounds
0c26 0263 | c | Execute Discrete,Above_Bound
0c27 701b |p | Jump_Nonzero 0xc43
0c28 0092 123d | =| Action Push_String_Extended,0x123d ; " User Header Label"
; Debug Table 0x22.0x17 = 0xc28,0x18
0c2a 00d9 | | Load_Top At_Offset_1
0c2b e5ee | | Load 0x2,-0x12
0c2c 01d5 | | Execute Vector,Field_Reference
0c2d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0c2e 00e0 | | Load_Encached Standard_Cache
0c2f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0c30 01cc | | Execute Vector,Catenate
0c31 e00d | | Load 0x0,0xd
0c32 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0c33 4801 |H | Short_Literal 0x1 ; Debug Table 0x22.0x18 = 0xc33,0x19
0c34 4800 |H | Short_Literal 0x0
0c35 4810 |H | Short_Literal 0x10
0c36 00db | | Load_Top At_Offset_3
0c37 e5ee | | Load 0x2,-0x12
0c38 01d5 | | Execute Vector,Field_Reference
0c39 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0c3a 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b
0c3b 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c
0c3c e00c | | Load 0x0,0xc
0c3d 180f | | Execute Package,Field_Execute,Field_Number 0xf
0c3e 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x22.0x19 = 0xc3e,0x1a
0c3f e00d | | Load 0x0,0xd
0c40 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0c41 00c8 | | Action Pop_Auxiliary_Range
0c42 3fe5 |? | Loop_Increasing 0xc28
0c43 4513 |E | Exit_Suprogram New_Top_Offset 0x13
0c44 0000 0000 | | .BLANK 0000[0x4]
0c48 ; --------------------------------------------------------------------------------------
0c48 ; SUBPROGRAM
0c48 ; --------------------------------------------------------------------------------------
0c48 0c4b | K | .CONST 0x0c4b ; Address of begin
0c49 0004 | | .CONST 0x0004 ; Address of exception handler
0c4a 0001 | | .CONST 0x0001 ; Number of locals
0c4b BODY_0c48:
0c4b INIT_0c48:
0c4b 0092 123e | >| Action Push_String_Extended,0x123e ; "End Of File Labels"
; Debug Table 0x23 = .DEBUG 0x0c4b,0x1aec,0x0001,0x0000,0x0036,0xd8a4,0x0000,0x16c6
; Debug Table 0x23.0x0 = 0xc4b,0x1
0c4d e00d | | Load 0x0,0xd
0c4e 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0c4f 0092 123f | ?| Action Push_String_Extended,0x123f ; " Block Count:"
; Debug Table 0x23.0x1 = 0xc4f,0x2
0c51 00db | | Load_Top At_Offset_3
0c52 00e0 | | Load_Encached Standard_Cache
0c53 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0c54 01cc | | Execute Vector,Catenate
0c55 e00d | | Load 0x0,0xd
0c56 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0c57 00cf | | Action Mark_Auxiliary
0c58 e5fe | | Load 0x2,-0x2 ; Debug Table 0x23.0x2 = 0xc58,0x3
0c59 01d9 | | Execute Vector,Reverse_Bounds
0c5a 0263 | c | Execute Discrete,Above_Bound
0c5b 701b |p | Jump_Nonzero 0xc77
0c5c 0092 1240 | @| Action Push_String_Extended,0x1240 ; " User Trailer Label"
; Debug Table 0x23.0x3 = 0xc5c,0x4
0c5e 00d9 | | Load_Top At_Offset_1
0c5f e5fe | | Load 0x2,-0x2
0c60 01d5 | | Execute Vector,Field_Reference
0c61 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0c62 00e0 | | Load_Encached Standard_Cache
0c63 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0c64 01cc | | Execute Vector,Catenate
0c65 e00d | | Load 0x0,0xd
0c66 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0c67 4801 |H | Short_Literal 0x1 ; Debug Table 0x23.0x4 = 0xc67,0x5
0c68 4800 |H | Short_Literal 0x0
0c69 4810 |H | Short_Literal 0x10
0c6a 00db | | Load_Top At_Offset_3
0c6b e5fe | | Load 0x2,-0x2
0c6c 01d5 | | Execute Vector,Field_Reference
0c6d 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0c6e 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b
0c6f 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c
0c70 e00c | | Load 0x0,0xc
0c71 180f | | Execute Package,Field_Execute,Field_Number 0xf
0c72 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x23.0x5 = 0xc72,0x6
0c73 e00d | | Load 0x0,0xd
0c74 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0c75 00c8 | | Action Pop_Auxiliary_Range
0c76 3fe5 |? | Loop_Increasing 0xc5c
0c77 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0c78 ffff ffff | | .LITERAL {0xffffffff, 0xfffff894}
0c7c 0000 0000 | | .LITERAL {0x00000000, 0x36d8a402}
0c80 3030 2f30 |00/0| .LITERAL {0x30302f30, 0x302f3030}
0c84 0000 0000 | | .BLANK 0000[0x4]
0c88 ; --------------------------------------------------------------------------------------
0c88 ; SUBPROGRAM
0c88 ; --------------------------------------------------------------------------------------
0c88 0c8b | | .CONST 0x0c8b ; Address of begin
0c89 0004 | | .CONST 0x0004 ; Address of exception handler
0c8a 0001 | | .CONST 0x0001 ; Number of locals
0c8b BODY_0c88:
0c8b INIT_0c88:
0c8b 0092 1241 | A| Action Push_String_Extended,0x1241 ; "End Of Vol Labels"
; Debug Table 0x24 = .DEBUG 0x0c8b,0x1afa,0x0001,0x0000,0x0036,0xd8a4,0x0000,0x1719
; Debug Table 0x24.0x0 = 0xc8b,0x1
0c8d e00d | | Load 0x0,0xd
0c8e 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0c8f 0092 123f | ?| Action Push_String_Extended,0x123f ; " Block Count:"
; Debug Table 0x24.0x1 = 0xc8f,0x2
0c91 00db | | Load_Top At_Offset_3
0c92 00e0 | | Load_Encached Standard_Cache
0c93 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0c94 01cc | | Execute Vector,Catenate
0c95 e00d | | Load 0x0,0xd
0c96 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0c97 00cf | | Action Mark_Auxiliary
0c98 e5fe | | Load 0x2,-0x2 ; Debug Table 0x24.0x2 = 0xc98,0x3
0c99 01d9 | | Execute Vector,Reverse_Bounds
0c9a 0263 | c | Execute Discrete,Above_Bound
0c9b 701b |p | Jump_Nonzero 0xcb7
0c9c 0092 1240 | @| Action Push_String_Extended,0x1240 ; " User Trailer Label"
; Debug Table 0x24.0x3 = 0xc9c,0x4
0c9e 00d9 | | Load_Top At_Offset_1
0c9f e5fe | | Load 0x2,-0x2
0ca0 01d5 | | Execute Vector,Field_Reference
0ca1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0ca2 00e0 | | Load_Encached Standard_Cache
0ca3 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0ca4 01cc | | Execute Vector,Catenate
0ca5 e00d | | Load 0x0,0xd
0ca6 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0ca7 4801 |H | Short_Literal 0x1 ; Debug Table 0x24.0x4 = 0xca7,0x5
0ca8 4800 |H | Short_Literal 0x0
0ca9 4810 |H | Short_Literal 0x10
0caa 00db | | Load_Top At_Offset_3
0cab e5fe | | Load 0x2,-0x2
0cac 01d5 | | Execute Vector,Field_Reference
0cad 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0cae 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b
0caf 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c
0cb0 e00c | | Load 0x0,0xc
0cb1 180f | | Execute Package,Field_Execute,Field_Number 0xf
0cb2 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x24.0x5 = 0xcb2,0x6
0cb3 e00d | | Load 0x0,0xd
0cb4 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0cb5 00c8 | | Action Pop_Auxiliary_Range
0cb6 3fe5 |? | Loop_Increasing 0xc9c
0cb7 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0cb8 ; --------------------------------------------------------------------------------------
0cb8 ; SUBPROGRAM
0cb8 ; --------------------------------------------------------------------------------------
0cb8 0cc5 | | .CONST 0x0cc5 ; Address of begin
0cb9 0d15 | | .CONST 0x0d15 ; Address of exception handler
0cba 0004 | | .CONST 0x0004 ; Number of locals
0cbb INIT_0cb8:
0cbb e402 | | Load 0x2,0x2 ; Debug Table 0x25 = .DEBUG 0x0cbb,0x1b08,0x0004,0x0000,0x0036,0xd8a4,0x0000,0x0ae6
; Debug Table 0x25.0x0 = 0xcbb,0xffff
0cbc e00b | | Load 0x0,0xb
0cbd 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0cbe 4801 |H | Short_Literal 0x1 ; Debug Table 0x25.0x1 = 0xcbe,0xfffe
0cbf e402 | | Load 0x2,0x2
0cc0 e00b | | Load 0x0,0xb
0cc1 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0cc2 e218 | | Load 0x1,0x18
0cc3 0334 | 4 | Declare_Variable Array,With_Constraint
0cc4 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x25.0x2 = 0xcc4,0xfffd
0cc5 BODY_0cb8:
0cc5 e408 | | Load 0x2,0x8 ; Debug Table 0x25.0x3 = 0xcc5,0x1
0cc6 4802 |H | Short_Literal 0x2
0cc7 0092 1242 | B| Action Push_String_Extended,0x1242 ; "Reading tape file "
0cc9 e602 | | Load 0x3,0x2
0cca 01cc | | Execute Vector,Catenate
0ccb e014 | | Load 0x0,0x14
0ccc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0ccd e403 | | Load 0x2,0x3 ; Debug Table 0x25.0x4 = 0xccd,0x2
0cce e008 | | Load 0x0,0x8
0ccf 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0cd0 e00f | | Load 0x0,0xf
0cd1 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0cd2 e00f | | Load 0x0,0xf
0cd3 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0cd4 00ea | | Load_Encached Null_String_Cache
0cd5 482e |H. | Short_Literal 0x2e
0cd6 e5fe | | Load 0x2,-0x2
0cd7 01cb | | Execute Vector,Append
0cd8 e602 | | Load 0x3,0x2
0cd9 8233 | 3 | Call 0x1,0x33
0cda 01cc | | Execute Vector,Catenate
0cdb 4801 |H | Short_Literal 0x1
0cdc e00e | | Load 0x0,0xe
0cdd 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0cde c403 | | Store 0x2,0x3
0cdf e408 | | Load 0x2,0x8 ; Debug Table 0x25.0x5 = 0xcdf,0x3
0ce0 4802 |H | Short_Literal 0x2
0ce1 0092 1243 | C| Action Push_String_Extended,0x1243 ; "Writing text file "
0ce3 e403 | | Load 0x2,0x3
0ce4 e00e | | Load 0x0,0xe
0ce5 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0ce6 01cc | | Execute Vector,Catenate
0ce7 e014 | | Load 0x0,0x14
0ce8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0ce9 e406 | | Load 0x2,0x6 ; Debug Table 0x25.0x6 = 0xce9,0x4
0cea 6806 |h | Jump_Zero 0xcf1
0ceb e408 | | Load 0x2,0x8 ; Debug Table 0x25.0x7 = 0xceb,0x5
0cec 4802 |H | Short_Literal 0x2
0ced 0092 1244 | D| Action Push_String_Extended,0x1244 ; "Line terminators will be inserted after each tape record."
0cef e014 | | Load 0x0,0x14
0cf0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0cf1 00cf | | Action Mark_Auxiliary
0cf2 7815 |x | Jump 0xd08
0cf3 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x25.0x8 = 0xcf3,0x7
0cf4 00db | | Load_Top At_Offset_3
0cf5 e402 | | Load 0x2,0x2
0cf6 e00b | | Load 0x0,0xb
0cf7 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0cf8 00d1 | | Pop_Control Pop_Count_1
0cf9 005a | Z | Store_Top Discrete,At_Offset_2
0cfa 4801 |H | Short_Literal 0x1 ; Debug Table 0x25.0x9 = 0xcfa,0x8
0cfb 00da | | Load_Top At_Offset_2
0cfc e603 | | Load 0x3,0x3
0cfd 01cf | | Execute Vector,Slice_Read
0cfe e403 | | Load 0x2,0x3
0cff e00e | | Load 0x0,0xe
0d00 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0d01 e406 | | Load 0x2,0x6 ; Debug Table 0x25.0xa = 0xd01,0x9
0d02 6804 |h | Jump_Zero 0xd07
0d03 480a |H | Short_Literal 0xa ; Debug Table 0x25.0xb = 0xd03,0xa
0d04 e403 | | Load 0x2,0x3
0d05 e00e | | Load 0x0,0xe
0d06 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0d07 00c9 | | Action Pop_Auxiliary_Loop
0d08 e402 | | Load 0x2,0x2 ; Debug Table 0x25.0xc = 0xd08,0x6
0d09 e00b | | Load 0x0,0xb
0d0a 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
0d0b 6fe7 |o | Jump_Zero 0xcf3
0d0c 00ce | | Action Pop_Auxiliary
0d0d e403 | | Load 0x2,0x3 ; Debug Table 0x25.0xd = 0xd0d,0xb
0d0e e00e | | Load 0x0,0xe
0d0f 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0d10 c403 | | Store 0x2,0x3
0d11 e402 | | Load 0x2,0x2 ; Debug Table 0x25.0xe = 0xd11,0xc
0d12 e00b | | Load 0x0,0xb
0d13 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0d14 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0d15 TRAP_0cb8:
0d15 0007 | | Action Break_Optional
0d16 e403 | | Load 0x2,0x3 ; Debug Table 0x25.0xf = 0xd16,0xd
0d17 e00e | | Load 0x0,0xe
0d18 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0d19 6804 |h | Jump_Zero 0xd1e
0d1a e403 | | Load 0x2,0x3 ; Debug Table 0x25.0x10 = 0xd1a,0xe
0d1b e00e | | Load 0x0,0xe
0d1c 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0d1d c403 | | Store 0x2,0x3
0d1e e402 | | Load 0x2,0x2 ; Debug Table 0x25.0x11 = 0xd1e,0xf
0d1f e00b | | Load 0x0,0xb
0d20 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0d21 0b00 | | Execute_Immediate Case_Compare,0x0
0d22 7008 |p | Jump_Nonzero 0xd2b
0d23 e408 | | Load 0x2,0x8 ; Debug Table 0x25.0x12 = 0xd23,0x11
0d24 4807 |H | Short_Literal 0x7
0d25 e402 | | Load 0x2,0x2
0d26 e00b | | Load 0x0,0xb
0d27 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0d28 e014 | | Load 0x0,0x14
0d29 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0d2a 7806 |x | Jump 0xd31
0d2b e408 | | Load 0x2,0x8 ; Debug Table 0x25.0x13 = 0xd2b,0x10
0d2c 4808 |H | Short_Literal 0x8
0d2d 0092 1245 | E| Action Push_String_Extended,0x1245 ; "Read terminated abnormally"
0d2f e014 | | Load 0x0,0x14
0d30 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0d31 00d1 | | Pop_Control Pop_Count_1
0d32 e402 | | Load 0x2,0x2 ; Debug Table 0x25.0x14 = 0xd32,0x12
0d33 e00b | | Load 0x0,0xb
0d34 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
0d35 700c |p | Jump_Nonzero 0xd42
0d36 e408 | | Load 0x2,0x8
0d37 e012 | | Load 0x0,0x12
0d38 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0d39 6808 |h | Jump_Zero 0xd42
0d3a 4801 |H | Short_Literal 0x1 ; Debug Table 0x25.0x15 = 0xd3a,0x13
0d3b e402 | | Load 0x2,0x2
0d3c e00b | | Load 0x0,0xb
0d3d 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0d3e e409 | | Load 0x2,0x9 ; Debug Table 0x25.0x16 = 0xd3e,0x14
0d3f 0a01 | | Execute_Immediate Plus,0x1
0d40 c409 | | Store 0x2,0x9
0d41 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0d42 621d |b | Indirect_Literal Discrete,0xf60,{0x00000000, 0x36d8a403} ; Debug Table 0x25.0x17 = 0xd42,0x15
0d43 0257 | W | Execute Discrete,Raise
0d44 0000 0000 | | .BLANK 0000[0x4]
0d48 ; --------------------------------------------------------------------------------------
0d48 ; SUBPROGRAM
0d48 ; --------------------------------------------------------------------------------------
0d48 0d5c | \ | .CONST 0x0d5c ; Address of begin
0d49 0004 | | .CONST 0x0004 ; Address of exception handler
0d4a 0003 | | .CONST 0x0003 ; Number of locals
0d4b INIT_0d48:
0d4b 00da | | Load_Top At_Offset_2 ; Debug Table 0x26 = .DEBUG 0x0d4b,0x1b3a,0x0002,0x0000,0x0036,0xd8a4,0x0000,0x0ce7
; Debug Table 0x26.0x0 = 0xd4b,0xffff
0d4c 01dc | | Execute Vector,Last
0d4d 00db | | Load_Top At_Offset_3
0d4e 01d7 | | Execute Vector,Field_Read
0d4f 00e8 | | Load_Encached Character_Cache
0d50 03f1 | | Declare_Variable Discrete,With_Value
0d51 00db | | Load_Top At_Offset_3 ; Debug Table 0x26.0x1 = 0xd51,0xfffe
0d52 01dd | | Execute Vector,First
0d53 e7ff | | Load 0x3,-0x1
0d54 01dc | | Execute Vector,Last
0d55 0aff | | Execute_Immediate Plus,-0x1
0d56 0248 | H | Execute Discrete,Check_In_Integer
0d57 e7ff | | Load 0x3,-0x1
0d58 01cf | | Execute Vector,Slice_Read
0d59 0335 | 5 | Declare_Variable Array,Duplicate
0d5a 00d0 | | Action Swap_Control
0d5b 00d1 | | Pop_Control Pop_Count_1
0d5c BODY_0d48:
0d5c 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x26.0x2 = 0xd5c,0x1
0d5d 00d8 | | Load_Top At_Offset_0
0d5e 4841 |HA | Short_Literal 0x41
0d5f 4859 |HY | Short_Literal 0x59
0d60 0262 | b | Execute Discrete,In_Range
0d61 7007 |p | Jump_Nonzero 0xd69
0d62 0b5a | Z | Execute_Immediate Case_Compare,0x5a
0d63 7010 |p | Jump_Nonzero 0xd74
0d64 00da | | Load_Top At_Offset_2 ; Debug Table 0x26.0x3 = 0xd64,0x4
0d65 00da | | Load_Top At_Offset_2
0d66 8416 | | Call 0x2,0x16
0d67 01cb | | Execute Vector,Append
0d68 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0d69 00da | | Load_Top At_Offset_2 ; Debug Table 0x26.0x4 = 0xd69,0x2
0d6a 0a01 | | Execute_Immediate Plus,0x1
0d6b 00d8 | | Load_Top At_Offset_0
0d6c 00e8 | | Load_Encached Character_Cache
0d6d 0260 | ` | Execute Discrete,In_Type
0d6e 7002 |p | Jump_Nonzero 0xd71
0d6f 48e0 |H | Short_Literal 0xe0
0d70 0257 | W | Execute Discrete,Raise
0d71 00da | | Load_Top At_Offset_2
0d72 01cb | | Execute Vector,Append
0d73 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0d74 4841 |HA | Short_Literal 0x41 ; Debug Table 0x26.0x5 = 0xd74,0x3
0d75 00da | | Load_Top At_Offset_2
0d76 8416 | | Call 0x2,0x16
0d77 01cb | | Execute Vector,Append
0d78 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0d79 0000 0000 | | .BLANK 0000[0x7]
0d80 ; --------------------------------------------------------------------------------------
0d80 ; SUBPROGRAM
0d80 ; --------------------------------------------------------------------------------------
0d80 0d8d | | .CONST 0x0d8d ; Address of begin
0d81 0004 | | .CONST 0x0004 ; Address of exception handler
0d82 0004 | | .CONST 0x0004 ; Number of locals
0d83 INIT_0d80:
0d83 e01f | | Load 0x0,0x1f ; Debug Table 0x27 = .DEBUG 0x0d83,0x1b48,0x0002,0x0000,0x0036,0xd8a4,0x0000,0x0d46
; Debug Table 0x27.0x0 = 0xd83,0xffff
0d84 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0d85 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0d86 e00f | | Load 0x0,0xf ; Debug Table 0x27.0x1 = 0xd86,0xfffe
0d87 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0d88 e00f | | Load 0x0,0xf ; Debug Table 0x27.0x2 = 0xd88,0xfffd
0d89 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0d8a 02ff | | Declare_Variable Variant_Record
0d8b 00d8 | | Load_Top At_Offset_0
0d8c 1c00 | | Execute_Immediate Run_Utility,0x0
0d8d BODY_0d80:
0d8d e7ff | | Load 0x3,-0x1 ; Debug Table 0x27.0x3 = 0xd8d,0x1
0d8e e00f | | Load 0x0,0xf
0d8f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0d90 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0d91 e00f | | Load 0x0,0xf
0d92 1b40 | @ | Execute Package,Field_Read,Field_Number 0x40
0d93 180f | | Execute Package,Field_Execute,Field_Number 0xf
0d94 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0d95 00da | | Load_Top At_Offset_2 ; Debug Table 0x27.0x4 = 0xd95,0x2
0d96 e020 | | Load 0x0,0x20
0d97 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0d98 027f | | Execute Discrete,Equal
0d99 6817 |h | Jump_Zero 0xdb1
0d9a e00f | | Load 0x0,0xf ; Debug Table 0x27.0x5 = 0xd9a,0x3
0d9b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0d9c 00d9 | | Load_Top At_Offset_1
0d9d 61be |a | Indirect_Literal Discrete,0xf5c,{0x00000000, 0x00004000}
0d9e e008 | | Load 0x0,0x8
0d9f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0da0 e7ff | | Load 0x3,-0x1
0da1 e00f | | Load 0x0,0xf
0da2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0da3 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0da4 00d1 | | Pop_Control Pop_Count_1
0da5 005a | Z | Store_Top Discrete,At_Offset_2
0da6 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x27.0x6 = 0xda6,0x4
0da7 e00f | | Load 0x0,0xf
0da8 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
0da9 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0daa 6803 |h | Jump_Zero 0xdae
0dab 0092 1246 | F| Action Push_String_Extended,0x1246 ; "V_"
; Debug Table 0x27.0x7 = 0xdab,0x5
0dad 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0dae 0092 1247 | G| Action Push_String_Extended,0x1247 ; "B_"
; Debug Table 0x27.0x8 = 0xdae,0x6
0db0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0db1 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x27.0x9 = 0xdb1,0x7
0db2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0db3 0000 0000 | | .BLANK 0000[0x5]
0db8 ; --------------------------------------------------------------------------------------
0db8 ; SUBPROGRAM
0db8 ; --------------------------------------------------------------------------------------
0db8 0dbe | | .CONST 0x0dbe ; Address of begin
0db9 0004 | | .CONST 0x0004 ; Address of exception handler
0dba 0002 | | .CONST 0x0002 ; Number of locals
0dbb INIT_0db8:
0dbb e01f | | Load 0x0,0x1f ; Debug Table 0x28 = .DEBUG 0x0dbb,0x1b5e,0x0002,0x0000,0x0036,0xd8a4,0x0000,0x0da4
; Debug Table 0x28.0x0 = 0xdbb,0xffff
0dbc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0dbd 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0dbe BODY_0db8:
0dbe 00db | | Load_Top At_Offset_3 ; Debug Table 0x28.0x1 = 0xdbe,0x1
0dbf e00f | | Load 0x0,0xf
0dc0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0dc1 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0dc2 e00f | | Load 0x0,0xf
0dc3 1b40 | @ | Execute Package,Field_Read,Field_Number 0x40
0dc4 180f | | Execute Package,Field_Execute,Field_Number 0xf
0dc5 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0dc6 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x28.0x2 = 0xdc6,0x2
0dc7 e020 | | Load 0x0,0x20
0dc8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0dc9 027f | | Execute Discrete,Equal
0dca 6803 |h | Jump_Zero 0xdce
0dcb 0092 1248 | H| Action Push_String_Extended,0x1248 ; ".ADA"
; Debug Table 0x28.0x3 = 0xdcb,0x3
0dcd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0dce 0092 1223 | #| Action Push_String_Extended,0x1223 ; ".TXT"
; Debug Table 0x28.0x4 = 0xdce,0x4
0dd0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0dd1 0000 0000 | | .BLANK 0000[0x7]
0dd8 ; --------------------------------------------------------------------------------------
0dd8 ; SUBPROGRAM
0dd8 ; --------------------------------------------------------------------------------------
0dd8 0de6 | | .CONST 0x0de6 ; Address of begin
0dd9 0004 | | .CONST 0x0004 ; Address of exception handler
0dda 0002 | | .CONST 0x0002 ; Number of locals
0ddb INIT_0dd8:
0ddb 4800 |H | Short_Literal 0x0 ; Debug Table 0x29 = .DEBUG 0x0ddb,0x1b6a,0x0001,0x0000,0x0036,0xd8a4,0x0000,0x0ddd
; Debug Table 0x29.0x0 = 0xddb,0xffff
0ddc 00db | | Load_Top At_Offset_3
0ddd 0227 | ' | Execute Access,All_Reference
0dde 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0ddf 482e |H. | Short_Literal 0x2e
0de0 e013 | | Load 0x0,0x13
0de1 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0de2 0aff | | Execute_Immediate Plus,-0x1
0de3 0248 | H | Execute Discrete,Check_In_Integer
0de4 00e2 | | Load_Encached Integer_Cache
0de5 03f1 | | Declare_Variable Discrete,With_Value
0de6 BODY_0dd8:
0de6 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x29.0x1 = 0xde6,0x1
0de7 0d00 | | Execute_Immediate Less,0x0
0de8 6802 |h | Jump_Zero 0xdeb
0de9 4811 |H | Short_Literal 0x11 ; Debug Table 0x29.0x2 = 0xde9,0x2
0dea 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0deb 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x29.0x3 = 0xdeb,0x3
0dec e7ff | | Load 0x3,-0x1
0ded 0227 | ' | Execute Access,All_Reference
0dee 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0def 0272 | r | Execute Discrete,Minus
0df0 0248 | H | Execute Discrete,Check_In_Integer
0df1 0a01 | | Execute_Immediate Plus,0x1
0df2 e7fe | | Load 0x3,-0x2
0df3 027b | { | Execute Discrete,Greater_Equal
0df4 7005 |p | Jump_Nonzero 0xdfa
0df5 00db | | Load_Top At_Offset_3
0df6 0227 | ' | Execute Access,All_Reference
0df7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0df8 0f01 | | Execute_Immediate Equal,0x1
0df9 6812 |h | Jump_Zero 0xe0c
0dfa 00db | | Load_Top At_Offset_3 ; Debug Table 0x29.0x4 = 0xdfa,0x4
0dfb 0227 | ' | Execute Access,All_Reference
0dfc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0dfd 00d9 | | Load_Top At_Offset_1
0dfe e7ff | | Load 0x3,-0x1
0dff 0227 | ' | Execute Access,All_Reference
0e00 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0e01 01cf | | Execute Vector,Slice_Read
0e02 8416 | | Call 0x2,0x16
0e03 e7ff | | Load 0x3,-0x1
0e04 0227 | ' | Execute Access,All_Reference
0e05 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0e06 00da | | Load_Top At_Offset_2
0e07 e7ff | | Load 0x3,-0x1
0e08 0229 | ) | Execute Access,All_Read
0e09 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0e0a 01ce | | Execute Vector,Slice_Write
0e0b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0e0c 00db | | Load_Top At_Offset_3 ; Debug Table 0x29.0x5 = 0xe0c,0x5
0e0d 0227 | ' | Execute Access,All_Reference
0e0e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0e0f 00d9 | | Load_Top At_Offset_1
0e10 e7ff | | Load 0x3,-0x1
0e11 0227 | ' | Execute Access,All_Reference
0e12 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0e13 01cf | | Execute Vector,Slice_Read
0e14 e7ff | | Load 0x3,-0x1
0e15 0227 | ' | Execute Access,All_Reference
0e16 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0e17 0aff | | Execute_Immediate Plus,-0x1
0e18 0248 | H | Execute Discrete,Check_In_Integer
0e19 00da | | Load_Top At_Offset_2
0e1a 0aff | | Execute_Immediate Plus,-0x1
0e1b 0248 | H | Execute Discrete,Check_In_Integer
0e1c e7ff | | Load 0x3,-0x1
0e1d 0229 | ) | Execute Access,All_Read
0e1e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0e1f 01ce | | Execute Vector,Slice_Write
0e20 00db | | Load_Top At_Offset_3 ; Debug Table 0x29.0x6 = 0xe20,0x6
0e21 0227 | ' | Execute Access,All_Reference
0e22 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0e23 0aff | | Execute_Immediate Plus,-0x1
0e24 e7ff | | Load 0x3,-0x1
0e25 0227 | ' | Execute Access,All_Reference
0e26 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0e27 4841 |HA | Short_Literal 0x41 ; Debug Table 0x29.0x7 = 0xe27,0x7
0e28 00d9 | | Load_Top At_Offset_1
0e29 e7ff | | Load 0x3,-0x1
0e2a 0227 | ' | Execute Access,All_Reference
0e2b 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0e2c 01d6 | | Execute Vector,Field_Write
0e2d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0e2e 0000 0000 | | .XXX[0x2]
0e30 ; --------------------------------------------------------------------------------------
0e30 ; SUBPROGRAM
0e30 ; --------------------------------------------------------------------------------------
0e30 0e3a | : | .CONST 0x0e3a ; Address of begin
0e31 0004 | | .CONST 0x0004 ; Address of exception handler
0e32 0003 | | .CONST 0x0003 ; Number of locals
0e33 INIT_0e30:
0e33 e00f | | Load 0x0,0xf ; Debug Table 0x2a = .DEBUG 0x0e33,0x1b7c,0x0002,0x0000,0x0036,0xd8a4,0x0000,0x0e6f
; Debug Table 0x2a.0x0 = 0xe33,0xffff
0e34 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0e35 02c7 | | Declare_Variable Any
0e36 00d8 | | Load_Top At_Offset_0
0e37 1c00 | | Execute_Immediate Run_Utility,0x0
0e38 e00f | | Load 0x0,0xf ; Debug Table 0x2a.0x1 = 0xe38,0xfffe
0e39 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0e3a BODY_0e30:
0e3a e00f | | Load 0x0,0xf ; Debug Table 0x2a.0x2 = 0xe3a,0x1
0e3b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0e3c 00da | | Load_Top At_Offset_2
0e3d 0120 | | Execute Any,Is_Value
0e3e 6803 |h | Jump_Zero 0xe42
0e3f e00f | | Load 0x0,0xf
0e40 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0e41 7801 |x | Jump 0xe43
0e42 00da | | Load_Top At_Offset_2
0e43 e7ff | | Load 0x3,-0x1
0e44 e00f | | Load 0x0,0xf
0e45 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0e46 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0e47 c602 | | Store 0x3,0x2
0e48 0059 | Y | Store_Top Discrete,At_Offset_1
0e49 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2a.0x3 = 0xe49,0x2
0e4a e00f | | Load 0x0,0xf
0e4b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0e4c 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0e4d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0e4e 0000 0000 | | .XXX[0x2]
0e50 ; --------------------------------------------------------------------------------------
0e50 ; SUBPROGRAM
0e50 ; --------------------------------------------------------------------------------------
0e50 0e78 | x | .CONST 0x0e78 ; Address of begin
0e51 0004 | | .CONST 0x0004 ; Address of exception handler
0e52 0005 | | .CONST 0x0005 ; Number of locals
0e53 INIT_0e50:
0e53 00da | | Load_Top At_Offset_2 ; Debug Table 0x2b = .DEBUG 0x0e53,0x1b86,0x0002,0x0000,0x0036,0xd8a4,0x0000,0x0e9b
; Debug Table 0x2b.0x0 = 0xe53,0xffff
0e54 8417 | | Call 0x2,0x17
0e55 00db | | Load_Top At_Offset_3 ; Debug Table 0x2b.0x1 = 0xe55,0xfffe
0e56 841a | | Call 0x2,0x1a
0e57 e409 | | Load 0x2,0x9 ; Debug Table 0x2b.0x2 = 0xe57,0xfffd
0e58 e7ff | | Load 0x3,-0x1
0e59 8418 | | Call 0x2,0x18
0e5a 00da | | Load_Top At_Offset_2
0e5b e602 | | Load 0x3,0x2
0e5c 8232 | 2 | Call 0x1,0x32
0e5d e402 | | Load 0x2,0x2 ; Debug Table 0x2b.0x3 = 0xe5d,0xfffc
0e5e e220 | | Load 0x1,0x20
0e5f 0322 | " | Declare_Variable Record
0e60 4812 |H | Short_Literal 0x12
0e61 00d9 | | Load_Top At_Offset_1
0e62 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0e63 4801 |H | Short_Literal 0x1
0e64 4811 |H | Short_Literal 0x11
0e65 00e9 | | Load_Encached String_Cache
0e66 035b | [ | Declare_Type Array,Constrained
0e67 0337 | 7 | Declare_Variable Array
0e68 4811 |H | Short_Literal 0x11
0e69 4801 |H | Short_Literal 0x1
0e6a 4820 |H | Short_Literal 0x20
0e6b 00d9 | | Load_Top At_Offset_1
0e6c e607 | | Load 0x3,0x7
0e6d 01d6 | | Execute Vector,Field_Write
0e6e 3ffb |? | Loop_Increasing 0xe6a
0e6f e220 | | Load 0x1,0x20
0e70 3001 |0 | Execute Record,Field_Type,Field_Number 0x1
0e71 0119 | | Execute Any,Check_In_Formal_Type
0e72 00d9 | | Load_Top At_Offset_1
0e73 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0e74 e402 | | Load 0x2,0x2
0e75 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0e76 0039 | 9 | Store_Top Access,At_Offset_1
0e77 0007 | | Action Break_Optional ; Debug Table 0x2b.0x4 = 0xe77,0xfffb
0e78 BODY_0e50:
0e78 4811 |H | Short_Literal 0x11 ; Debug Table 0x2b.0x5 = 0xe78,0x1
0e79 00da | | Load_Top At_Offset_2
0e7a 01db | | Execute Vector,Length
0e7b 0272 | r | Execute Discrete,Minus
0e7c 0248 | H | Execute Discrete,Check_In_Integer
0e7d 0a01 | | Execute_Immediate Plus,0x1
0e7e 00d9 | | Load_Top At_Offset_1
0e7f 0227 | ' | Execute Access,All_Reference
0e80 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0e81 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2b.0x6 = 0xe81,0x2
0e82 00d9 | | Load_Top At_Offset_1
0e83 0227 | ' | Execute Access,All_Reference
0e84 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0e85 4811 |H | Short_Literal 0x11
0e86 00db | | Load_Top At_Offset_3
0e87 0229 | ) | Execute Access,All_Read
0e88 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0e89 01ce | | Execute Vector,Slice_Write
0e8a 00cf | | Action Mark_Auxiliary
0e8b 780d |x | Jump 0xe99
0e8c e409 | | Load 0x2,0x9 ; Debug Table 0x2b.0x7 = 0xe8c,0x4
0e8d 0092 1224 | $| Action Push_String_Extended,0x1224 ; "VAX/VMS"
0e8f 01df | | Execute Vector,Equal
0e90 6804 |h | Jump_Zero 0xe95
0e91 4809 |H | Short_Literal 0x9 ; Debug Table 0x2b.0x8 = 0xe91,0x5
0e92 00da | | Load_Top At_Offset_2
0e93 8419 | | Call 0x2,0x19
0e94 7803 |x | Jump 0xe98
0e95 4811 |H | Short_Literal 0x11 ; Debug Table 0x2b.0x9 = 0xe95,0x6
0e96 00da | | Load_Top At_Offset_2
0e97 8419 | | Call 0x2,0x19
0e98 00c9 | | Action Pop_Auxiliary_Loop
0e99 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2b.0xa = 0xe99,0x3
0e9a 0227 | ' | Execute Access,All_Reference
0e9b e404 | | Load 0x2,0x4
0e9c e222 | " | Load 0x1,0x22
0e9d 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0e9e 77ed |w | Jump_Nonzero 0xe8c
0e9f 00ce | | Action Pop_Auxiliary
0ea0 e404 | | Load 0x2,0x4 ; Debug Table 0x2b.0xb = 0xea0,0x7
0ea1 00d9 | | Load_Top At_Offset_1
0ea2 0227 | ' | Execute Access,All_Reference
0ea3 e222 | " | Load 0x1,0x22
0ea4 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0ea5 c404 | | Store 0x2,0x4
0ea6 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2b.0xc = 0xea6,0x8
0ea7 0227 | ' | Execute Access,All_Reference
0ea8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0ea9 4811 |H | Short_Literal 0x11
0eaa 00da | | Load_Top At_Offset_2
0eab 0227 | ' | Execute Access,All_Reference
0eac 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0ead 01cf | | Execute Vector,Slice_Read
0eae 0335 | 5 | Declare_Variable Array,Duplicate
0eaf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0eb0 ; --------------------------------------------------------------------------------------
0eb0 ; SUBPROGRAM
0eb0 ; --------------------------------------------------------------------------------------
0eb0 0ebf | | .CONST 0x0ebf ; Address of begin
0eb1 0f20 | | .CONST 0x0f20 ; Address of exception handler
0eb2 0004 | | .CONST 0x0004 ; Number of locals
0eb3 INIT_0eb0:
0eb3 e00d | | Load 0x0,0xd ; Debug Table 0x2c = .DEBUG 0x0eb3,0x1ba2,0x0001,0x0000,0x0036,0xd8a4,0x0000,0x0f2f
; Debug Table 0x2c.0x0 = 0xeb3,0xffff
0eb4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0eb5 02c7 | | Declare_Variable Any
0eb6 00d8 | | Load_Top At_Offset_0
0eb7 1c00 | | Execute_Immediate Run_Utility,0x0
0eb8 e00e | | Load 0x0,0xe ; Debug Table 0x2c.0x1 = 0xeb8,0xfffe
0eb9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0eba 02c7 | | Declare_Variable Any
0ebb 00d8 | | Load_Top At_Offset_0
0ebc 1c00 | | Execute_Immediate Run_Utility,0x0
0ebd 029f 11bb | | Declare_Subprogram INIT_11b8,For_Call
0ebf BODY_0eb0:
0ebf e40d | | Load 0x2,0xd ; Debug Table 0x2c.0x2 = 0xebf,0x1
0ec0 0a01 | | Execute_Immediate Plus,0x1
0ec1 c40d | | Store 0x2,0xd
0ec2 e415 | | Load 0x2,0x15 ; Debug Table 0x2c.0x3 = 0xec2,0x2
0ec3 4802 |H | Short_Literal 0x2
0ec4 0092 1249 | I| Action Push_String_Extended,0x1249 ; "File No. "
0ec6 e40d | | Load 0x2,0xd
0ec7 00e0 | | Load_Encached Standard_Cache
0ec8 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0ec9 01cc | | Execute Vector,Catenate
0eca e014 | | Load 0x0,0x14
0ecb 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0ecc e413 | | Load 0x2,0x13 ; Debug Table 0x2c.0x4 = 0xecc,0x3
0ecd 680c |h | Jump_Zero 0xeda
0ece e415 | | Load 0x2,0x15 ; Debug Table 0x2c.0x5 = 0xece,0x4
0ecf 4802 |H | Short_Literal 0x2
0ed0 0092 124a | J| Action Push_String_Extended,0x124a ; "Source : "
0ed2 e7ff | | Load 0x3,-0x1
0ed3 01cc | | Execute Vector,Catenate
0ed4 0092 124b | K| Action Push_String_Extended,0x124b ; " (text file)"
0ed6 01cc | | Execute Vector,Catenate
0ed7 e014 | | Load 0x0,0x14
0ed8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0ed9 780b |x | Jump 0xee5
0eda e415 | | Load 0x2,0x15 ; Debug Table 0x2c.0x6 = 0xeda,0x5
0edb 4802 |H | Short_Literal 0x2
0edc 0092 124a | J| Action Push_String_Extended,0x124a ; "Source : "
0ede e7ff | | Load 0x3,-0x1
0edf 01cc | | Execute Vector,Catenate
0ee0 0092 124c | L| Action Push_String_Extended,0x124c ; " (byte file)"
0ee2 01cc | | Execute Vector,Catenate
0ee3 e014 | | Load 0x0,0x14
0ee4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0ee5 e415 | | Load 0x2,0x15 ; Debug Table 0x2c.0x7 = 0xee5,0x6
0ee6 4802 |H | Short_Literal 0x2
0ee7 0092 124d | M| Action Push_String_Extended,0x124d ; "File Id: "
0ee9 e7fe | | Load 0x3,-0x2
0eea 01cc | | Execute Vector,Catenate
0eeb e014 | | Load 0x0,0x14
0eec 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0eed e412 | | Load 0x2,0x12 ; Debug Table 0x2c.0x8 = 0xeed,0x7
0eee e411 | | Load 0x2,0x11
0eef e410 | | Load 0x2,0x10
0ef0 e40a | | Load 0x2,0xa
0ef1 e00b | | Load 0x0,0xb
0ef2 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0ef3 e40a | | Load 0x2,0xa ; Debug Table 0x2c.0x9 = 0xef3,0x8
0ef4 e7fd | | Load 0x3,-0x3
0ef5 e7fe | | Load 0x3,-0x2
0ef6 e00b | | Load 0x0,0xb
0ef7 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0ef8 c40a | | Store 0x2,0xa
0ef9 e413 | | Load 0x2,0x13 ; Debug Table 0x2c.0xa = 0xef9,0x9
0efa 681a |h | Jump_Zero 0xf15
0efb 00da | | Load_Top At_Offset_2 ; Debug Table 0x2c.0xb = 0xefb,0xa
0efc 00ea | | Load_Encached Null_String_Cache
0efd e7ff | | Load 0x3,-0x1
0efe 4800 |H | Short_Literal 0x0
0eff e00d | | Load 0x0,0xd
0f00 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0f01 c602 | | Store 0x3,0x2
0f02 00cf | | Action Mark_Auxiliary
0f03 7807 |x | Jump 0xf0b
0f04 00db | | Load_Top At_Offset_3 ; Debug Table 0x2c.0xc = 0xf04,0xc
0f05 e00d | | Load 0x0,0xd
0f06 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0f07 e40a | | Load 0x2,0xa
0f08 e00b | | Load 0x0,0xb
0f09 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0f0a 00c9 | | Action Pop_Auxiliary_Loop
0f0b 00db | | Load_Top At_Offset_3 ; Debug Table 0x2c.0xd = 0xf0b,0xb
0f0c e00d | | Load 0x0,0xd
0f0d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0f0e 6ff5 |o | Jump_Zero 0xf04
0f0f 00ce | | Action Pop_Auxiliary
0f10 00da | | Load_Top At_Offset_2 ; Debug Table 0x2c.0xe = 0xf10,0xd
0f11 e00d | | Load 0x0,0xd
0f12 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0f13 c602 | | Store 0x3,0x2
0f14 7801 |x | Jump 0xf16
0f15 8604 | | Call 0x3,0x4 ; Debug Table 0x2c.0xf = 0xf15,0xe
0f16 e40a | | Load 0x2,0xa ; Debug Table 0x2c.0x10 = 0xf16,0xf
0f17 e00b | | Load 0x0,0xb
0f18 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0f19 e415 | | Load 0x2,0x15 ; Debug Table 0x2c.0x11 = 0xf19,0x10
0f1a 4802 |H | Short_Literal 0x2
0f1b 0092 124e | N| Action Push_String_Extended,0x124e ; "Status : Written"
0f1d e014 | | Load 0x0,0x14
0f1e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0f1f 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0f20 TRAP_0eb0:
0f20 0007 | | Action Break_Optional
0f21 e40a | | Load 0x2,0xa ; Debug Table 0x2c.0x12 = 0xf21,0x11
0f22 e00b | | Load 0x0,0xb
0f23 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0f24 0b00 | | Execute_Immediate Case_Compare,0x0
0f25 700b |p | Jump_Nonzero 0xf31
0f26 e415 | | Load 0x2,0x15 ; Debug Table 0x2c.0x13 = 0xf26,0x13
0f27 4805 |H | Short_Literal 0x5
0f28 0092 124f | O| Action Push_String_Extended,0x124f ; "Status : "
0f2a e40a | | Load 0x2,0xa
0f2b e00b | | Load 0x0,0xb
0f2c 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0f2d 01cc | | Execute Vector,Catenate
0f2e e014 | | Load 0x0,0x14
0f2f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0f30 7806 |x | Jump 0xf37
0f31 e415 | | Load 0x2,0x15 ; Debug Table 0x2c.0x14 = 0xf31,0x12
0f32 4805 |H | Short_Literal 0x5
0f33 0092 1250 | P| Action Push_String_Extended,0x1250 ; "Status : Error"
0f35 e014 | | Load 0x0,0x14
0f36 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0f37 00d1 | | Pop_Control Pop_Count_1
0f38 e40a | | Load 0x2,0xa ; Debug Table 0x2c.0x15 = 0xf38,0x14
0f39 e00b | | Load 0x0,0xb
0f3a 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0f3b 00db | | Load_Top At_Offset_3 ; Debug Table 0x2c.0x16 = 0xf3b,0x15
0f3c e00d | | Load 0x0,0xd
0f3d 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0f3e 6804 |h | Jump_Zero 0xf43
0f3f 00db | | Load_Top At_Offset_3 ; Debug Table 0x2c.0x17 = 0xf3f,0x16
0f40 e00d | | Load 0x0,0xd
0f41 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0f42 c602 | | Store 0x3,0x2
0f43 00da | | Load_Top At_Offset_2 ; Debug Table 0x2c.0x18 = 0xf43,0x17
0f44 e00e | | Load 0x0,0xe
0f45 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0f46 6804 |h | Jump_Zero 0xf4b
0f47 00da | | Load_Top At_Offset_2 ; Debug Table 0x2c.0x19 = 0xf47,0x18
0f48 e00e | | Load 0x0,0xe
0f49 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0f4a c603 | | Store 0x3,0x3
0f4b e415 | | Load 0x2,0x15 ; Debug Table 0x2c.0x1a = 0xf4b,0x19
0f4c e012 | | Load 0x0,0x12
0f4d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0f4e 6804 |h | Jump_Zero 0xf53
0f4f e40e | | Load 0x2,0xe ; Debug Table 0x2c.0x1b = 0xf4f,0x1a
0f50 0a01 | | Execute_Immediate Plus,0x1
0f51 c40e | | Store 0x2,0xe
0f52 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0f53 6004 |` | Indirect_Literal Discrete,0xf58,{0x00000000, 0x36d8a404} ; Debug Table 0x2c.0x1c = 0xf53,0x1b
0f54 0257 | W | Execute Discrete,Raise
0f55 0000 0000 | | .XXX[0x3]
0f57 0000 | |
0f58 0000 0000 | | .LITERAL {0x00000000, 0x36d8a404}
0f5c 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0f60 0000 0000 | | .LITERAL {0x00000000, 0x36d8a403}
0f64 0000 0000 | | .BLANK 0000[0x4]
0f68 ; --------------------------------------------------------------------------------------
0f68 ; SUBPROGRAM
0f68 ; --------------------------------------------------------------------------------------
0f68 0f76 | v | .CONST 0x0f76 ; Address of begin
0f69 0fa7 | | .CONST 0x0fa7 ; Address of exception handler
0f6a 0005 | | .CONST 0x0005 ; Number of locals
0f6b INIT_0f68:
0f6b 00da | | Load_Top At_Offset_2 ; Debug Table 0x2d = .DEBUG 0x0f6b,0x1bde,0x0001,0x0000,0x0036,0xd8a4,0x0000,0x10ba
; Debug Table 0x2d.0x0 = 0xf6b,0xffff
0f6c e00f | | Load 0x0,0xf
0f6d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0f6e 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0f6f 00db | | Load_Top At_Offset_3 ; Debug Table 0x2d.0x1 = 0xf6f,0xfffe
0f70 841a | | Call 0x2,0x1a
0f71 e7ff | | Load 0x3,-0x1 ; Debug Table 0x2d.0x2 = 0xf71,0xfffd
0f72 841b | | Call 0x2,0x1b
0f73 e01f | | Load 0x0,0x1f ; Debug Table 0x2d.0x3 = 0xf73,0xfffc
0f74 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0f75 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0f76 BODY_0f68:
0f76 e7ff | | Load 0x3,-0x1 ; Debug Table 0x2d.0x4 = 0xf76,0x1
0f77 e00f | | Load 0x0,0xf
0f78 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0f79 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0f7a e00f | | Load 0x0,0xf
0f7b 1b40 | @ | Execute Package,Field_Read,Field_Number 0x40
0f7c 180f | | Execute Package,Field_Execute,Field_Number 0xf
0f7d 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0f7e 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2d.0x5 = 0xf7e,0x2
0f7f e021 | ! | Load 0x0,0x21
0f80 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0f81 027f | | Execute Discrete,Equal
0f82 7005 |p | Jump_Nonzero 0xf88
0f83 00d8 | | Load_Top At_Offset_0
0f84 e020 | | Load 0x0,0x20
0f85 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0f86 027f | | Execute Discrete,Equal
0f87 680d |h | Jump_Zero 0xf95
0f88 00da | | Load_Top At_Offset_2 ; Debug Table 0x2d.0x6 = 0xf88,0x3
0f89 00da | | Load_Top At_Offset_2
0f8a e602 | | Load 0x3,0x2
0f8b 841c | | Call 0x2,0x1c
0f8c 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2d.0x7 = 0xf8c,0x4
0f8d e40b | | Load 0x2,0xb
0f8e e00d | | Load 0x0,0xd
0f8f 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
0f90 00db | | Load_Top At_Offset_3 ; Debug Table 0x2d.0x8 = 0xf90,0x5
0f91 e40b | | Load 0x2,0xb
0f92 e00d | | Load 0x0,0xd
0f93 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
0f94 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0f95 e415 | | Load 0x2,0x15 ; Debug Table 0x2d.0x9 = 0xf95,0x6
0f96 4805 |H | Short_Literal 0x5
0f97 e602 | | Load 0x3,0x2
0f98 0092 1251 | Q| Action Push_String_Extended,0x1251 ; " is not an object that can be saved on tape."
0f9a 01cc | | Execute Vector,Catenate
0f9b e014 | | Load 0x0,0x14
0f9c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0f9d e415 | | Load 0x2,0x15 ; Debug Table 0x2d.0xa = 0xf9d,0x7
0f9e e012 | | Load 0x0,0x12
0f9f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0fa0 6804 |h | Jump_Zero 0xfa5
0fa1 e40e | | Load 0x2,0xe ; Debug Table 0x2d.0xb = 0xfa1,0x8
0fa2 0a01 | | Execute_Immediate Plus,0x1
0fa3 c40e | | Store 0x2,0xe
0fa4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0fa5 67b2 |g | Indirect_Literal Discrete,0xf58,{0x00000000, 0x36d8a404} ; Debug Table 0x2d.0xc = 0xfa5,0x9
0fa6 0257 | W | Execute Discrete,Raise
0fa7 TRAP_0f68:
0fa7 67b0 |g | Indirect_Literal Discrete,0xf58,{0x00000000, 0x36d8a404}
0fa8 010f | | Execute Exception,Equal
0fa9 6802 |h | Jump_Zero 0xfac
0faa 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2d.0xd = 0xfaa,0xa
0fab 0101 | | Execute Exception,Reraise
0fac e40a | | Load 0x2,0xa ; Debug Table 0x2d.0xe = 0xfac,0xb
0fad e00b | | Load 0x0,0xb
0fae 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0faf 0b00 | | Execute_Immediate Case_Compare,0x0
0fb0 700b |p | Jump_Nonzero 0xfbc
0fb1 e415 | | Load 0x2,0x15 ; Debug Table 0x2d.0xf = 0xfb1,0xd
0fb2 4805 |H | Short_Literal 0x5
0fb3 0092 124f | O| Action Push_String_Extended,0x124f ; "Status : "
0fb5 e40a | | Load 0x2,0xa
0fb6 e00b | | Load 0x0,0xb
0fb7 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0fb8 01cc | | Execute Vector,Catenate
0fb9 e014 | | Load 0x0,0x14
0fba 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0fbb 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0fbc e415 | | Load 0x2,0x15 ; Debug Table 0x2d.0x10 = 0xfbc,0xc
0fbd 4805 |H | Short_Literal 0x5
0fbe 0092 1252 | R| Action Push_String_Extended,0x1252 ; "Unexpected exception: "
0fc0 e015 | | Load 0x0,0x15
0fc1 180d | | Execute Package,Field_Execute,Field_Number 0xd
0fc2 01cc | | Execute Vector,Catenate
0fc3 e014 | | Load 0x0,0x14
0fc4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0fc5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0fc6 0000 0000 | | .XXX[0x2]
0fc8 ; --------------------------------------------------------------------------------------
0fc8 ; SUBPROGRAM
0fc8 ; --------------------------------------------------------------------------------------
0fc8 0fd4 | | .CONST 0x0fd4 ; Address of begin
0fc9 0004 | | .CONST 0x0004 ; Address of exception handler
0fca 0003 | | .CONST 0x0003 ; Number of locals
0fcb INIT_0fc8:
0fcb e00f | | Load 0x0,0xf ; Debug Table 0x2e = .DEBUG 0x0fcb,0x1c02,0x0001,0x0000,0x0036,0xd8a4,0x0000,0x118e
; Debug Table 0x2e.0x0 = 0xfcb,0xffff
0fcc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0fcd 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0fce e00f | | Load 0x0,0xf ; Debug Table 0x2e.0x1 = 0xfce,0xfffe
0fcf 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0fd0 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0fd1 02c7 | | Declare_Variable Any
0fd2 00d8 | | Load_Top At_Offset_0
0fd3 1c00 | | Execute_Immediate Run_Utility,0x0
0fd4 BODY_0fc8:
0fd4 e00f | | Load 0x0,0xf ; Debug Table 0x2e.0x2 = 0xfd4,0x1
0fd5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0fd6 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0fd7 00d9 | | Load_Top At_Offset_1
0fd8 6783 |g | Indirect_Literal Discrete,0xf5c,{0x00000000, 0x00004000}
0fd9 e008 | | Load 0x0,0x8
0fda 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0fdb e019 | | Load 0x0,0x19
0fdc 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0fdd e01a | | Load 0x0,0x1a
0fde 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0fdf 4801 |H | Short_Literal 0x1
0fe0 4800 |H | Short_Literal 0x0
0fe1 e019 | | Load 0x0,0x19
0fe2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0fe3 e00f | | Load 0x0,0xf
0fe4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0fe5 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0fe6 e7ff | | Load 0x3,-0x1
0fe7 e00f | | Load 0x0,0xf
0fe8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0fe9 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0fea c603 | | Store 0x3,0x3
0feb 005a | Z | Store_Top Discrete,At_Offset_2
0fec 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2e.0x3 = 0xfec,0x2
0fed 0b00 | | Execute_Immediate Case_Compare,0x0
0fee 7021 |p! | Jump_Nonzero 0x1010
0fef 0b02 | | Execute_Immediate Case_Compare,0x2
0ff0 7030 |p0 | Jump_Nonzero 0x1021
0ff1 e415 | | Load 0x2,0x15 ; Debug Table 0x2e.0x4 = 0xff1,0xb
0ff2 4805 |H | Short_Literal 0x5
0ff3 0092 1253 | S| Action Push_String_Extended,0x1253 ; "Can't open "
0ff5 e7ff | | Load 0x3,-0x1
0ff6 01cc | | Execute Vector,Catenate
0ff7 0092 120c | | Action Push_String_Extended,0x120c ; " ("
0ff9 01cc | | Execute Vector,Catenate
0ffa e602 | | Load 0x3,0x2
0ffb e00f | | Load 0x0,0xf
0ffc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0ffd 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0ffe 025e | ^ | Execute Discrete,Convert
0fff 1c01 | | Execute_Immediate Run_Utility,0x1
1000 01cc | | Execute Vector,Catenate
1001 0092 120d | | Action Push_String_Extended,0x120d ; ")"
1003 01cc | | Execute Vector,Catenate
1004 e014 | | Load 0x0,0x14
1005 1813 | | Execute Package,Field_Execute,Field_Number 0x13
1006 e415 | | Load 0x2,0x15 ; Debug Table 0x2e.0x5 = 0x1006,0xc
1007 e012 | | Load 0x0,0x12
1008 1818 | | Execute Package,Field_Execute,Field_Number 0x18
1009 6804 |h | Jump_Zero 0x100e
100a e40e | | Load 0x2,0xe ; Debug Table 0x2e.0x6 = 0x100a,0xd
100b 0a01 | | Execute_Immediate Plus,0x1
100c c40e | | Store 0x2,0xe
100d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
100e 6749 |gI | Indirect_Literal Discrete,0xf58,{0x00000000, 0x36d8a404} ; Debug Table 0x2e.0x7 = 0x100e,0xe
100f 0257 | W | Execute Discrete,Raise
1010 00cf | | Action Mark_Auxiliary
1011 7808 |x | Jump 0x101a
1012 00da | | Load_Top At_Offset_2 ; Debug Table 0x2e.0x8 = 0x1012,0x4
1013 841d | | Call 0x2,0x1d
1014 00da | | Load_Top At_Offset_2 ; Debug Table 0x2e.0x9 = 0x1014,0x5
1015 e00f | | Load 0x0,0xf
1016 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1017 181d | | Execute Package,Field_Execute,Field_Number 0x1d
1018 c603 | | Store 0x3,0x3
1019 00c9 | | Action Pop_Auxiliary_Loop
101a 00da | | Load_Top At_Offset_2 ; Debug Table 0x2e.0xa = 0x101a,0x3
101b e00f | | Load 0x0,0xf
101c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
101d 181e | | Execute Package,Field_Execute,Field_Number 0x1e
101e 6ff3 |o | Jump_Zero 0x1012
101f 00ce | | Action Pop_Auxiliary
1020 4502 |E | Exit_Suprogram New_Top_Offset 0x2
1021 e7ff | | Load 0x3,-0x1 ; Debug Table 0x2e.0xb = 0x1021,0x6
1022 01db | | Execute Vector,Length
1023 0c01 | | Execute_Immediate Greater_Equal,0x1
1024 6812 |h | Jump_Zero 0x1037
1025 e415 | | Load 0x2,0x15 ; Debug Table 0x2e.0xc = 0x1025,0x7
1026 4805 |H | Short_Literal 0x5
1027 0092 1254 | T| Action Push_String_Extended,0x1254 ; "Ill-formed name: "
1029 e7ff | | Load 0x3,-0x1
102a 01cc | | Execute Vector,Catenate
102b e014 | | Load 0x0,0x14
102c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
102d e415 | | Load 0x2,0x15 ; Debug Table 0x2e.0xd = 0x102d,0x8
102e e012 | | Load 0x0,0x12
102f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
1030 6804 |h | Jump_Zero 0x1035
1031 e40e | | Load 0x2,0xe ; Debug Table 0x2e.0xe = 0x1031,0x9
1032 0a01 | | Execute_Immediate Plus,0x1
1033 c40e | | Store 0x2,0xe
1034 4502 |E | Exit_Suprogram New_Top_Offset 0x2
1035 6722 |g" | Indirect_Literal Discrete,0xf58,{0x00000000, 0x36d8a404} ; Debug Table 0x2e.0xf = 0x1035,0xa
1036 0257 | W | Execute Discrete,Raise
1037 4502 |E | Exit_Suprogram New_Top_Offset 0x2
1038 ; --------------------------------------------------------------------------------------
1038 ; SUBPROGRAM
1038 ; --------------------------------------------------------------------------------------
1038 103b | ; | .CONST 0x103b ; Address of begin
1039 0004 | | .CONST 0x0004 ; Address of exception handler
103a 0001 | | .CONST 0x0001 ; Number of locals
103b BODY_1038:
103b INIT_1038:
103b 0092 1255 | U| Action Push_String_Extended,0x1255 ; "*** "
; Debug Table 0x2f = .DEBUG 0x103b,0x1c24,0x0001,0x0000,0x0036,0xd8a4,0x0000,0x1851
; Debug Table 0x2f.0x0 = 0x103b,0x1
103d 00db | | Load_Top At_Offset_3
103e 01cc | | Execute Vector,Catenate
103f 0092 1256 | V| Action Push_String_Extended,0x1256 ; " ***"
1041 01cc | | Execute Vector,Catenate
1042 e00d | | Load 0x0,0xd
1043 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
1044 00db | | Load_Top At_Offset_3 ; Debug Table 0x2f.0x1 = 0x1044,0x2
1045 01db | | Execute Vector,Length
1046 0c01 | | Execute_Immediate Greater_Equal,0x1
1047 680c |h | Jump_Zero 0x1054
1048 0092 1257 | W| Action Push_String_Extended,0x1257 ; "*** Tape Data => "
; Debug Table 0x2f.0x2 = 0x1048,0x3
104a e00d | | Load 0x0,0xd
104b 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
104c 4801 |H | Short_Literal 0x1 ; Debug Table 0x2f.0x3 = 0x104c,0x4
104d 4800 |H | Short_Literal 0x0
104e 4810 |H | Short_Literal 0x10
104f e7fe | | Load 0x3,-0x2
1050 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b
1051 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c
1052 e00c | | Load 0x0,0xc
1053 180f | | Execute Package,Field_Execute,Field_Number 0xf
1054 4503 |E | Exit_Suprogram New_Top_Offset 0x3
1055 0000 0000 | | .XXX[0x3]
1057 0000 | |
1058 ; --------------------------------------------------------------------------------------
1058 ; SUBPROGRAM
1058 ; --------------------------------------------------------------------------------------
1058 105b | [ | .CONST 0x105b ; Address of begin
1059 10ee | | .CONST 0x10ee ; Address of exception handler
105a 0001 | | .CONST 0x0001 ; Number of locals
105b BODY_1058:
105b INIT_1058:
105b 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x30 = .DEBUG 0x105b,0x1c2e,0x0004,0x0000,0x0036,0xd8a4,0x0000,0x19bd
; Debug Table 0x30.0x0 = 0x105b,0x1
105c 00e3 | | Load_Encached Natural_Cache
105d e01c | | Load 0x0,0x1c
105e 1b20 | | Execute Package,Field_Read,Field_Number 0x20
105f e415 | | Load 0x2,0x15
1060 e01c | | Load 0x0,0x1c
1061 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
1062 e002 | | Load 0x0,0x2
1063 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1064 e01c | | Load 0x0,0x1c
1065 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1066 e411 | | Load 0x2,0x11
1067 e001 | | Load 0x0,0x1
1068 1b11 | | Execute Package,Field_Read,Field_Number 0x11
1069 e410 | | Load 0x2,0x10
106a 0120 | | Execute Any,Is_Value
106b 6803 |h | Jump_Zero 0x106f
106c e01d | | Load 0x0,0x1d
106d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
106e 7801 |x | Jump 0x1070
106f e410 | | Load 0x2,0x10
1070 00e1 | | Load_Encached Boolean_Cache
1071 e40e | | Load 0x2,0xe
1072 0120 | | Execute Any,Is_Value
1073 6803 |h | Jump_Zero 0x1077
1074 e01d | | Load 0x0,0x1d
1075 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1076 7801 |x | Jump 0x1078
1077 e40e | | Load 0x2,0xe
1078 e01c | | Load 0x0,0x1c
1079 1b20 | | Execute Package,Field_Read,Field_Number 0x20
107a e01c | | Load 0x0,0x1c
107b 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
107c e01c | | Load 0x0,0x1c
107d 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
107e e01c | | Load 0x0,0x1c
107f 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
1080 e409 | | Load 0x2,0x9
1081 e408 | | Load 0x2,0x8
1082 4801 |H | Short_Literal 0x1
1083 e402 | | Load 0x2,0x2
1084 e005 | | Load 0x0,0x5
1085 1b16 | | Execute Package,Field_Read,Field_Number 0x16
1086 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
1087 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
1088 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
1089 00d2 | | Pop_Control Pop_Count_2
108a c40a | | Store 0x2,0xa
108b c40b | | Store 0x2,0xb
108c c40c | | Store 0x2,0xc
108d c40d | | Store 0x2,0xd
108e c40e | | Store 0x2,0xe
108f c40f | | Store 0x2,0xf
1090 c410 | | Store 0x2,0x10
1091 c405 | | Store 0x2,0x5
1092 00d1 | | Pop_Control Pop_Count_1
1093 c412 | | Store 0x2,0x12
1094 c413 | | Store 0x2,0x13
1095 c414 | | Store 0x2,0x14
1096 00d1 | | Pop_Control Pop_Count_1
1097 c416 | | Store 0x2,0x16
1098 c417 | | Store 0x2,0x17
1099 c418 | | Store 0x2,0x18
109a e402 | | Load 0x2,0x2 ; Debug Table 0x30.0x1 = 0x109a,0x2
109b e005 | | Load 0x0,0x5
109c 1b16 | | Execute Package,Field_Read,Field_Number 0x16
109d 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
109e 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
109f 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
10a0 e402 | | Load 0x2,0x2
10a1 e005 | | Load 0x0,0x5
10a2 1b16 | | Execute Package,Field_Read,Field_Number 0x16
10a3 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
10a4 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
10a5 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
10a6 e416 | | Load 0x2,0x16
10a7 e415 | | Load 0x2,0x15
10a8 e414 | | Load 0x2,0x14
10a9 e413 | | Load 0x2,0x13
10aa e412 | | Load 0x2,0x12
10ab e411 | | Load 0x2,0x11
10ac e405 | | Load 0x2,0x5
10ad e410 | | Load 0x2,0x10
10ae e40f | | Load 0x2,0xf
10af e40e | | Load 0x2,0xe
10b0 e40d | | Load 0x2,0xd
10b1 e40c | | Load 0x2,0xc
10b2 e40b | | Load 0x2,0xb
10b3 e40a | | Load 0x2,0xa
10b4 e409 | | Load 0x2,0x9
10b5 e408 | | Load 0x2,0x8
10b6 8240 | @ | Call 0x1,0x40
10b7 e01c | | Load 0x0,0x1c ; Debug Table 0x30.0x2 = 0x10b7,0x3
10b8 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
10b9 612e |a. | Indirect_Literal Discrete,0x11e8,{0x00000000, 0x7fffffff}
10ba e402 | | Load 0x2,0x2
10bb e005 | | Load 0x0,0x5
10bc 1b16 | | Execute Package,Field_Read,Field_Number 0x16
10bd 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
10be 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
10bf 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
10c0 c41c | | Store 0x2,0x1c
10c1 e41c | | Load 0x2,0x1c ; Debug Table 0x30.0x3 = 0x10c1,0x4
10c2 4602 |F | Jump_Case 0x3
10c3 7802 |x | Jump 0x10c6 ; case 0x0
10c4 7801 |x | Jump 0x10c6 ; case 0x1
10c5 7813 |x | Jump 0x10d9 ; case 0x2
10c6 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x30.0x4 = 0x10c6,0x5
10c7 00e3 | | Load_Encached Natural_Cache
10c8 e402 | | Load 0x2,0x2
10c9 e005 | | Load 0x0,0x5
10ca 1b16 | | Execute Package,Field_Read,Field_Number 0x16
10cb 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
10cc 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
10cd 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
10ce c41a | | Store 0x2,0x1a
10cf c419 | | Store 0x2,0x19
10d0 e402 | | Load 0x2,0x2 ; Debug Table 0x30.0x5 = 0x10d0,0x6
10d1 e005 | | Load 0x0,0x5
10d2 1b16 | | Execute Package,Field_Read,Field_Number 0x16
10d3 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
10d4 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
10d5 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
10d6 e41a | | Load 0x2,0x1a
10d7 8241 | A | Call 0x1,0x41
10d8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
10d9 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x30.0x6 = 0x10d9,0x7
10da 00e3 | | Load_Encached Natural_Cache
10db e402 | | Load 0x2,0x2
10dc e005 | | Load 0x0,0x5
10dd 1b16 | | Execute Package,Field_Read,Field_Number 0x16
10de 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
10df 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
10e0 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
10e1 c41a | | Store 0x2,0x1a
10e2 c419 | | Store 0x2,0x19
10e3 e402 | | Load 0x2,0x2 ; Debug Table 0x30.0x7 = 0x10e3,0x8
10e4 e005 | | Load 0x0,0x5
10e5 1b16 | | Execute Package,Field_Read,Field_Number 0x16
10e6 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
10e7 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
10e8 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
10e9 e41a | | Load 0x2,0x1a
10ea 8242 | B | Call 0x1,0x42
10eb 00cc | | Action Pop_Block ; Debug Table 0x30.0x8 = 0x10eb,0x9
10ec 00a7 0534 | 4| Action Jump_Extended,0x534
10ee TRAP_1058:
10ee e01c | | Load 0x0,0x1c
10ef 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
10f0 010f | | Execute Exception,Equal
10f1 6809 |h | Jump_Zero 0x10fb
10f2 e402 | | Load 0x2,0x2 ; Debug Table 0x30.0x9 = 0x10f2,0xc
10f3 e005 | | Load 0x0,0x5
10f4 1b16 | | Execute Package,Field_Read,Field_Number 0x16
10f5 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
10f6 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
10f7 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
10f8 00cc | | Action Pop_Block ; Debug Table 0x30.0xa = 0x10f8,0xd
10f9 00a7 0534 | 4| Action Jump_Extended,0x534
10fb e01c | | Load 0x0,0x1c
10fc 1b3c | < | Execute Package,Field_Read,Field_Number 0x3c
10fd 010f | | Execute Exception,Equal
10fe 7004 |p | Jump_Nonzero 0x1103
10ff e01c | | Load 0x0,0x1c
1100 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
1101 010f | | Execute Exception,Equal
1102 682a |h* | Jump_Zero 0x112d
1103 e01c | | Load 0x0,0x1c ; Debug Table 0x30.0xb = 0x1103,0xe
1104 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1105 4801 |H | Short_Literal 0x1
1106 e402 | | Load 0x2,0x2
1107 e005 | | Load 0x0,0x5
1108 1b16 | | Execute Package,Field_Read,Field_Number 0x16
1109 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
110a 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
110b 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
110c c41b | | Store 0x2,0x1b
110d e41b | | Load 0x2,0x1b ; Debug Table 0x30.0xc = 0x110d,0xf
110e 4603 |F | Jump_Case 0x4
110f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x0
1110 7802 |x | Jump 0x1113 ; case 0x1
1111 7804 |x | Jump 0x1116 ; case 0x2
1112 7818 |x | Jump 0x112b ; case 0x3
1113 00cc | | Action Pop_Block ; Debug Table 0x30.0xd = 0x1113,0x11
1114 00a7 0534 | 4| Action Jump_Extended,0x534
1116 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x30.0xe = 0x1116,0x12
1117 00e3 | | Load_Encached Natural_Cache
1118 e402 | | Load 0x2,0x2
1119 e005 | | Load 0x0,0x5
111a 1b16 | | Execute Package,Field_Read,Field_Number 0x16
111b 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
111c 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
111d 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
111e c41a | | Store 0x2,0x1a
111f c419 | | Store 0x2,0x19
1120 e402 | | Load 0x2,0x2 ; Debug Table 0x30.0xf = 0x1120,0x13
1121 e005 | | Load 0x0,0x5
1122 1b16 | | Execute Package,Field_Read,Field_Number 0x16
1123 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
1124 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
1125 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
1126 e41a | | Load 0x2,0x1a
1127 8242 | B | Call 0x1,0x42
1128 00cc | | Action Pop_Block ; Debug Table 0x30.0x10 = 0x1128,0x14
1129 00a7 0534 | 4| Action Jump_Extended,0x534
112b 4887 |H | Short_Literal 0x87 ; Debug Table 0x30.0x11 = 0x112b,0x15
112c 0257 | W | Execute Discrete,Raise
112d 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x30.0x12 = 0x112d,0x17
112e e00d | | Load 0x0,0xd
112f 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
1130 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x30.0x13 = 0x1130,0x18
1131 e00d | | Load 0x0,0xd
1132 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
1133 0092 1258 | X| Action Push_String_Extended,0x1258 ; "*** Labelled Tape Error ***"
; Debug Table 0x30.0x14 = 0x1133,0x19
1135 e00d | | Load 0x0,0xd
1136 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
1137 e402 | | Load 0x2,0x2 ; Debug Table 0x30.0x15 = 0x1137,0x1a
1138 481f |H | Short_Literal 0x1f
1139 4802 |H | Short_Literal 0x2
113a 0099 | | Action Reference_Dynamic
113b 4820 |H | Short_Literal 0x20
113c 4802 |H | Short_Literal 0x2
113d 0099 | | Action Reference_Dynamic
113e e005 | | Load 0x0,0x5
113f 1b16 | | Execute Package,Field_Read,Field_Number 0x16
1140 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
1141 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
1142 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
1143 e402 | | Load 0x2,0x2 ; Debug Table 0x30.0x16 = 0x1143,0x1b
1144 e005 | | Load 0x0,0x5
1145 1b16 | | Execute Package,Field_Read,Field_Number 0x16
1146 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
1147 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
1148 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
1149 00cc | | Action Pop_Block ; Debug Table 0x30.0x17 = 0x1149,0x1c
114a 00a7 0534 | 4| Action Jump_Extended,0x534
114c 0000 0000 | | .BLANK 0000[0x4]
1150 ; --------------------------------------------------------------------------------------
1150 ; SUBPROGRAM
1150 ; --------------------------------------------------------------------------------------
1150 1153 | S | .CONST 0x1153 ; Address of begin
1151 0004 | | .CONST 0x0004 ; Address of exception handler
1152 0001 | | .CONST 0x0001 ; Number of locals
1153 BODY_1150:
1153 INIT_1150:
1153 4820 |H | Short_Literal 0x20 ; Debug Table 0x31 = .DEBUG 0x1153,0x1c60,0x0001,0x0000,0x0036,0xd8a4,0x0000,0x1ae0
; Debug Table 0x31.0x0 = 0x1153,0x1
1154 4820 |H | Short_Literal 0x20
1155 4804 |H | Short_Literal 0x4
1156 e40c | | Load 0x2,0xc
1157 e00c | | Load 0x0,0xc
1158 180e | | Execute Package,Field_Execute,Field_Number 0xe
1159 01ca | | Execute Vector,Prepend
115a 00db | | Load_Top At_Offset_3
115b 01cc | | Execute Vector,Catenate
115c e00d | | Load 0x0,0xd
115d 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
115e e40c | | Load 0x2,0xc ; Debug Table 0x31.0x1 = 0x115e,0x2
115f 0a10 | | Execute_Immediate Plus,0x10
1160 c40c | | Store 0x2,0xc
1161 4502 |E | Exit_Suprogram New_Top_Offset 0x2
1162 0000 0000 | | .BLANK 0000[0x6]
1168 ; --------------------------------------------------------------------------------------
1168 ; SUBPROGRAM
1168 ; --------------------------------------------------------------------------------------
1168 116b | k | .CONST 0x116b ; Address of begin
1169 0004 | | .CONST 0x0004 ; Address of exception handler
116a 0001 | | .CONST 0x0001 ; Number of locals
116b BODY_1168:
116b INIT_1168:
116b 00da | | Load_Top At_Offset_2 ; Debug Table 0x32 = .DEBUG 0x116b,0x1c66,0x0002,0x0000,0x0036,0xd8a4,0x0000,0x058b
; Debug Table 0x32.0x0 = 0x116b,0x1
116c 01db | | Execute Vector,Length
116d e7fe | | Load 0x3,-0x2
116e 027d | } | Execute Discrete,Greater
116f 680b |h | Jump_Zero 0x117b
1170 00da | | Load_Top At_Offset_2 ; Debug Table 0x32.0x1 = 0x1170,0x2
1171 01dd | | Execute Vector,First
1172 00db | | Load_Top At_Offset_3
1173 01dd | | Execute Vector,First
1174 e7fe | | Load 0x3,-0x2
1175 0273 | s | Execute Discrete,Plus
1176 0aff | | Execute_Immediate Plus,-0x1
1177 0248 | H | Execute Discrete,Check_In_Integer
1178 e7ff | | Load 0x3,-0x1
1179 01cf | | Execute Vector,Slice_Read
117a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
117b 00da | | Load_Top At_Offset_2 ; Debug Table 0x32.0x2 = 0x117b,0x3
117c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
117d 0000 0000 | | .XXX[0x3]
117f 0000 | |
1180 ; --------------------------------------------------------------------------------------
1180 ; SUBPROGRAM
1180 ; --------------------------------------------------------------------------------------
1180 1183 | | .CONST 0x1183 ; Address of begin
1181 0004 | | .CONST 0x0004 ; Address of exception handler
1182 0001 | | .CONST 0x0001 ; Number of locals
1183 BODY_1180:
1183 INIT_1180:
1183 00da | | Load_Top At_Offset_2 ; Debug Table 0x33 = .DEBUG 0x1183,0x1c6e,0x0002,0x0000,0x0036,0xd8a4,0x0000,0x05bc
; Debug Table 0x33.0x0 = 0x1183,0x1
1184 01db | | Execute Vector,Length
1185 e7fd | | Load 0x3,-0x3
1186 027d | } | Execute Discrete,Greater
1187 6827 |h' | Jump_Zero 0x11af
1188 00cf | | Action Mark_Auxiliary
1189 00db | | Load_Top At_Offset_3 ; Debug Table 0x33.0x1 = 0x1189,0x2
118a 01da | | Execute Vector,Bounds
118b 0264 | d | Execute Discrete,Below_Bound
118c 7021 |p! | Jump_Nonzero 0x11ae
118d 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x33.0x2 = 0x118d,0x3
118e e7ff | | Load 0x3,-0x1
118f 01d7 | | Execute Vector,Field_Read
1190 e7fe | | Load 0x3,-0x2
1191 01d7 | | Execute Vector,Field_Read
1192 7019 |p | Jump_Nonzero 0x11ac
1193 e7fd | | Load 0x3,-0x3 ; Debug Table 0x33.0x3 = 0x1193,0x4
1194 e7ff | | Load 0x3,-0x1
1195 01dc | | Execute Vector,Last
1196 00da | | Load_Top At_Offset_2
1197 0272 | r | Execute Discrete,Minus
1198 0272 | r | Execute Discrete,Minus
1199 0248 | H | Execute Discrete,Check_In_Integer
119a e7fe | | Load 0x3,-0x2
119b e7ff | | Load 0x3,-0x1
119c 01dd | | Execute Vector,First
119d 00db | | Load_Top At_Offset_3
119e 0aff | | Execute_Immediate Plus,-0x1
119f 0248 | H | Execute Discrete,Check_In_Integer
11a0 e7ff | | Load 0x3,-0x1
11a1 01cf | | Execute Vector,Slice_Read
11a2 8408 | | Call 0x2,0x8
11a3 00d9 | | Load_Top At_Offset_1
11a4 0a01 | | Execute_Immediate Plus,0x1
11a5 0248 | H | Execute Discrete,Check_In_Integer
11a6 e7ff | | Load 0x3,-0x1
11a7 01dc | | Execute Vector,Last
11a8 e7ff | | Load 0x3,-0x1
11a9 01cf | | Execute Vector,Slice_Read
11aa 01cc | | Execute Vector,Catenate
11ab 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
11ac 00c8 | | Action Pop_Auxiliary_Range
11ad 37df |7 | Loop_Decreasing 0x118d
11ae 00ce | | Action Pop_Auxiliary
11af 00da | | Load_Top At_Offset_2 ; Debug Table 0x33.0x4 = 0x11af,0x5
11b0 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
11b1 0000 0000 | | .BLANK 0000[0x7]
11b8 ; --------------------------------------------------------------------------------------
11b8 ; SUBPROGRAM
11b8 ; --------------------------------------------------------------------------------------
11b8 11c2 | | .CONST 0x11c2 ; Address of begin
11b9 0004 | | .CONST 0x0004 ; Address of exception handler
11ba 0003 | | .CONST 0x0003 ; Number of locals
11bb INIT_11b8:
11bb 4801 |H | Short_Literal 0x1 ; Debug Table 0x34 = .DEBUG 0x11bb,0x1c7a,0x0004,0x0000,0x0036,0xd8a4,0x0000,0x1037
; Debug Table 0x34.0x0 = 0x11bb,0xffff
11bc e40a | | Load 0x2,0xa
11bd e00b | | Load 0x0,0xb
11be 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
11bf e218 | | Load 0x1,0x18
11c0 0334 | 4 | Declare_Variable Array,With_Constraint
11c1 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x34.0x1 = 0x11c1,0xfffe
11c2 BODY_11b8:
11c2 e603 | | Load 0x3,0x3 ; Debug Table 0x34.0x2 = 0x11c2,0x1
11c3 e008 | | Load 0x0,0x8
11c4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
11c5 e00f | | Load 0x0,0xf
11c6 181e | | Execute Package,Field_Execute,Field_Number 0x1e
11c7 00ea | | Load_Encached Null_String_Cache
11c8 e7ff | | Load 0x3,-0x1
11c9 4800 |H | Short_Literal 0x0
11ca e00e | | Load 0x0,0xe
11cb 1814 | | Execute Package,Field_Execute,Field_Number 0x14
11cc c603 | | Store 0x3,0x3
11cd 00cf | | Action Mark_Auxiliary
11ce 780f |x | Jump 0x11de
11cf 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x34.0x3 = 0x11cf,0x3
11d0 00db | | Load_Top At_Offset_3
11d1 e603 | | Load 0x3,0x3
11d2 e00e | | Load 0x0,0xe
11d3 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
11d4 00d1 | | Pop_Control Pop_Count_1
11d5 005a | Z | Store_Top Discrete,At_Offset_2
11d6 4801 |H | Short_Literal 0x1 ; Debug Table 0x34.0x4 = 0x11d6,0x4
11d7 00da | | Load_Top At_Offset_2
11d8 e802 | | Load 0x4,0x2
11d9 01cf | | Execute Vector,Slice_Read
11da e40a | | Load 0x2,0xa
11db e00b | | Load 0x0,0xb
11dc 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
11dd 00c9 | | Action Pop_Auxiliary_Loop
11de e603 | | Load 0x3,0x3 ; Debug Table 0x34.0x5 = 0x11de,0x2
11df e00e | | Load 0x0,0xe
11e0 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
11e1 6fed |o | Jump_Zero 0x11cf
11e2 00ce | | Action Pop_Auxiliary
11e3 e603 | | Load 0x3,0x3 ; Debug Table 0x34.0x6 = 0x11e3,0x5
11e4 e00e | | Load 0x0,0xe
11e5 1819 | | Execute Package,Field_Execute,Field_Number 0x19
11e6 c603 | | Store 0x3,0x3
11e7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
11e8 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
11ec ; --------------------------------------------------------------------------------------
11ec ; STRING TABLE
11ec ; --------------------------------------------------------------------------------------
11ec 00dc | | .STRTAB 0x00dc->0x125a ; "NIL"
11ed 00dd | | .STRTAB 0x00dd->0x125b ; "FORMAT"
11ee 00e1 | | .STRTAB 0x00e1->0x125e ; "ADD_NEW_LINE"
11ef 00eb | | .STRTAB 0x00eb->0x1264 ; "NIL"
11f0 00ec | | .STRTAB 0x00ec->0x1266 ; "TEXT_FILES"
11f1 00f4 | | .STRTAB 0x00f4->0x126b ; "FORMAT"
11f2 00f8 | | .STRTAB 0x00f8->0x126e ; "LABEL"
11f3 00fb | | .STRTAB 0x00fb->0x1270 ; "RECORD_FORMAT"
11f4 0106 | | .STRTAB 0x0106->0x1277 ; "RECORD_LENGTH"
11f5 0111 | | .STRTAB 0x0111->0x127d ; "BLOCK_LENGTH"
11f6 011b | | .STRTAB 0x011b->0x1283 ; "Add_New_Line => Boolean"
11f7 0130 | 0 | .STRTAB 0x0130->0x128f ; "Add_New_Line => True"
11f8 0142 | B | .STRTAB 0x0142->0x1299 ; "Record_Length | Block_Length => Integer Text_Files => Boolean"
11f9 017d | } | .STRTAB 0x017d->0x12b7 ; "Text_Files => True"
11fa 018d | | .STRTAB 0x018d->0x12c0 ; "R1000"
11fb 0190 | | .STRTAB 0x0190->0x12c3 ; "MV"
11fc 0190 | | .STRTAB 0x0190->0x12c4 ; "Vax/Vms"
11fd 0195 | | .STRTAB 0x0195->0x12c7 ; "!Machine.Devices.Tape_"
11fe 01a9 | | .STRTAB 0x01a9->0x12d2 ; "Unexpected exception"
11ff 01bb | | .STRTAB 0x01bb->0x12dc ; "Error in format parameter: "
1200 01d4 | | .STRTAB 0x01d4->0x12ea ; "Operator has been requested to mount volume "
1201 01fe | | .STRTAB 0x01fe->0x1300 ; " for READING"
1202 0208 | | .STRTAB 0x0208->0x1306 ; "Reading from volume "
1203 021a | | .STRTAB 0x021a->0x1310 ; "Label is \x22"
1204 0222 | " | .STRTAB 0x0222->0x1315 ; "Tape format is: "
1205 0230 | 0 | .STRTAB 0x0230->0x131d ; "End of tape "
1206 023a | : | .STRTAB 0x023a->0x1323 ; "Unexpected exception raised attempting to read "
1207 0267 | g | .STRTAB 0x0267->0x133a ; ": "
1208 0267 | g | .STRTAB 0x0267->0x133b ; "!Machine.Temporary.Ansi_Write_Index_"
1209 0289 | | .STRTAB 0x0289->0x134d ; "_"
120a 0288 | | .STRTAB 0x0288->0x134e ; "Written "
120b 028e | | .STRTAB 0x028e->0x1352 ; "Volume mounted for writing: "
120c 02a8 | | .STRTAB 0x02a8->0x1360 ; " ("
120d 02a8 | | .STRTAB 0x02a8->0x1361 ; ")"
120e 02a7 | | .STRTAB 0x02a7->0x1361 ; "Record Format: "
120f 02b4 | | .STRTAB 0x02b4->0x1369 ; "Record_Length: "
1210 02c1 | | .STRTAB 0x02c1->0x1370 ; "Block_Length: "
1211 02cd | | .STRTAB 0x02cd->0x1377 ; "INDEX.MAP"
1212 02d4 | | .STRTAB 0x02d4->0x137c ; "Volume "
1213 02d9 | | .STRTAB 0x02d9->0x137f ; " is complete"
1214 02e3 | | .STRTAB 0x02e3->0x1385 ; "Writing of Volume "
1215 02f3 | | .STRTAB 0x02f3->0x138e ; " has been abandoned"
1216 0304 | | .STRTAB 0x0304->0x1398 ; "Tape.Write terminated abnormally: "
1217 0324 | $ | .STRTAB 0x0324->0x13a9 ; "VOL1"
1218 0326 | & | .STRTAB 0x0326->0x13ab ; "Obstacle Encountered: "
1219 033a | : | .STRTAB 0x033a->0x13b6 ; "Tape Mark Encountered"
121a 034d | M | .STRTAB 0x034d->0x13c0 ; "Block"
121b 0350 | P | .STRTAB 0x0350->0x13c3 ; ", Length"
121c 0357 | W | .STRTAB 0x0357->0x13c7 ; "READ_MT"
121d 035c | \ | .STRTAB 0x035c->0x13cb ; "WRITE_MT"
121e 0362 | b | .STRTAB 0x0362->0x13cf ; "UPDATE_MT"
121f 0369 | i | .STRTAB 0x0369->0x13d3 ; "Use Drive"
1220 0370 | p | .STRTAB 0x0370->0x13d8 ; "Tape Close Error: "
1221 0380 | | .STRTAB 0x0380->0x13e1 ; "Tape Drive"
1222 0388 | | .STRTAB 0x0388->0x13e6 ; " not found"
1223 0390 | | .STRTAB 0x0390->0x13eb ; ".TXT"
1224 0392 | | .STRTAB 0x0392->0x13ed ; "VAX/VMS"
1225 0397 | | .STRTAB 0x0397->0x13f0 ; "Format "
1226 039c | | .STRTAB 0x039c->0x13f4 ; " is illegal; 'VAX/VMS' is assumed"
1227 03bb | | .STRTAB 0x03bb->0x1404 ; "Volume Labels"
1228 03c6 | | .STRTAB 0x03c6->0x140b ; " Volume Id: "
1229 03d0 | | .STRTAB 0x03d0->0x1411 ; " Accessibility: "
122a 03de | | .STRTAB 0x03de->0x1419 ; " Owner_Id:"
122b 03e6 | | .STRTAB 0x03e6->0x141e ; " User Volume Label"
122c 03f6 | | .STRTAB 0x03f6->0x1427 ; "File Labels"
122d 03ff | | .STRTAB 0x03ff->0x142c ; " File Identifier: "
122e 040f | | .STRTAB 0x040f->0x1435 ; " File Set Identifier: "
122f 0423 | # | .STRTAB 0x0423->0x1440 ; " File Sequence Number:"
1230 0437 | 7 | .STRTAB 0x0437->0x144b ; " File Section Number:"
1231 044a | J | .STRTAB 0x044a->0x1456 ; " Generation Number:"
1232 045b | [ | .STRTAB 0x045b->0x145f ; " Generation Version Number:"
1233 0474 | t | .STRTAB 0x0474->0x146d ; " Creation Date: "
1234 0482 | | .STRTAB 0x0482->0x1475 ; " Expiration Date: None"
1235 0496 | | .STRTAB 0x0496->0x1480 ; " Expiration Date: "
1236 04a6 | | .STRTAB 0x04a6->0x1489 ; " System Code: "
1237 04b2 | | .STRTAB 0x04b2->0x1490 ; " Record Format: "
1238 04c0 | | .STRTAB 0x04c0->0x1498 ; " Block Length:"
1239 04cc | | .STRTAB 0x04cc->0x149f ; " Record Length:"
123a 04d9 | | .STRTAB 0x04d9->0x14a6 ; " Reserved Field:"
123b 04e7 | | .STRTAB 0x04e7->0x14ae ; " Buffer Offset:"
123c 04f4 | | .STRTAB 0x04f4->0x14b6 ; " File Header Label"
123d 0504 | | .STRTAB 0x0504->0x14bf ; " User Header Label"
123e 0514 | | .STRTAB 0x0514->0x14c8 ; "End Of File Labels"
123f 0524 | $ | .STRTAB 0x0524->0x14d1 ; " Block Count:"
1240 052f | / | .STRTAB 0x052f->0x14d7 ; " User Trailer Label"
1241 0540 | @ | .STRTAB 0x0540->0x14e1 ; "End Of Vol Labels"
1242 054f | O | .STRTAB 0x054f->0x14e9 ; "Reading tape file "
1243 055f | _ | .STRTAB 0x055f->0x14f2 ; "Writing text file "
1244 056f | o | .STRTAB 0x056f->0x14fb ; "Line terminators will be inserted after each tape record."
1245 05a6 | | .STRTAB 0x05a6->0x1518 ; "Read terminated abnormally"
1246 05be | | .STRTAB 0x05be->0x1525 ; "V_"
1247 05be | | .STRTAB 0x05be->0x1526 ; "B_"
1248 05be | | .STRTAB 0x05be->0x1527 ; ".ADA"
1249 05c0 | | .STRTAB 0x05c0->0x1529 ; "File No. "
124a 05c7 | | .STRTAB 0x05c7->0x152d ; "Source : "
124b 05ce | | .STRTAB 0x05ce->0x1532 ; " (text file)"
124c 05d8 | | .STRTAB 0x05d8->0x1538 ; " (byte file)"
124d 05e2 | | .STRTAB 0x05e2->0x153e ; "File Id: "
124e 05e9 | | .STRTAB 0x05e9->0x1542 ; "Status : Written"
124f 05f7 | | .STRTAB 0x05f7->0x154a ; "Status : "
1250 05fe | | .STRTAB 0x05fe->0x154f ; "Status : Error"
1251 060a | | .STRTAB 0x060a->0x1556 ; " is not an object that can be saved on tape."
1252 0634 | 4 | .STRTAB 0x0634->0x156c ; "Unexpected exception: "
1253 0648 | H | .STRTAB 0x0648->0x1577 ; "Can't open "
1254 0651 | Q | .STRTAB 0x0651->0x157c ; "Ill-formed name: "
1255 0660 | ` | .STRTAB 0x0660->0x1585 ; "*** "
1256 0662 | b | .STRTAB 0x0662->0x1587 ; " ***"
1257 0664 | d | .STRTAB 0x0664->0x1589 ; "*** Tape Data => "
1258 0673 | s | .STRTAB 0x0673->0x1591 ; "*** Labelled Tape Error ***"
1259 068c | | .STREND 0x068c->0x159f
125a 4e49 4c46 |NILF| .STRTAB_STRINGS
159f 0000 | | .XXX[0x1]
15a0 ; --------------------------------------------------------------------------------------
15a0 ; Debug Table
15a0 ; --------------------------------------------------------------------------------------
15a0 0003 0035 | 5| .CONST 0x0003,0x0035
15a2 000b 174a | J| .DEBUG 0x000b,0x174a,0x8000,0x0000,0x0036,0xd894,0x0000,0x0007
15aa 0022 1764 | " d| .DEBUG 0x0022,0x1764,0x8000,0x0000,0x0036,0xd8a4,0x0000,0x0043
15b2 014b 17e8 | K | .DEBUG 0x014b,0x17e8,0x0001,0x0000,0x0036,0xd894,0x0000,0x0008
15ba 0173 17f4 | s | .DEBUG 0x0173,0x17f4,0x0001,0x0000,0x0036,0xd894,0x0000,0x0011
15c2 019b 17fe | | .DEBUG 0x019b,0x17fe,0x0001,0x0000,0x0036,0xd894,0x0000,0x001a
15ca 01b3 1806 | | .DEBUG 0x01b3,0x1806,0x0001,0x0000,0x0036,0xd894,0x0000,0x0023
15d2 01cb 180e | | .DEBUG 0x01cb,0x180e,0x0001,0x0000,0x0036,0xd894,0x0000,0x0035
15da 02cb 1860 | `| .DEBUG 0x02cb,0x1860,0x0001,0x0000,0x0036,0xd894,0x0000,0x0051
15e2 0493 18de | | .DEBUG 0x0493,0x18de,0x0001,0x0000,0x0036,0xd894,0x0000,0x0071
15ea 054b 192e | K .| .DEBUG 0x054b,0x192e,0x0001,0x0000,0x0036,0xd894,0x0000,0x0089
15f2 05cb 194c | L| .DEBUG 0x05cb,0x194c,0x0001,0x0000,0x0036,0xd894,0x0000,0x0095
15fa 06c3 19a2 | | .DEBUG 0x06c3,0x19a2,0x0005,0x0000,0x0036,0xd8a4,0x0000,0x00ab
1602 06db 19a4 | | .DEBUG 0x06db,0x19a4,0x0002,0x0000,0x0036,0xd8a4,0x0000,0x00d4
160a 06e3 19a8 | | .DEBUG 0x06e3,0x19a8,0x0001,0x0000,0x0036,0xd8a4,0x0000,0x0107
1612 06f3 19ac | | .DEBUG 0x06f3,0x19ac,0x0001,0x0000,0x0036,0xd8a4,0x0000,0x011c
161a 070b 19b0 | | .DEBUG 0x070b,0x19b0,0x0001,0x0000,0x0036,0xd8a4,0x0000,0x0131
1622 07db 19e2 | | .DEBUG 0x07db,0x19e2,0x0001,0x0000,0x0036,0xd8a4,0x0000,0x02a0
162a 0803 19f0 | | .DEBUG 0x0803,0x19f0,0x0001,0x0000,0x0036,0xd8a4,0x0000,0x02e3
1632 0813 19f4 | | .DEBUG 0x0813,0x19f4,0x0001,0x0000,0x0036,0xd8a4,0x0000,0x0305
163a 0823 19f8 | # | .DEBUG 0x0823,0x19f8,0x0001,0x0000,0x0036,0xd8a4,0x0000,0x0325
1642 0833 19fc | 3 | .DEBUG 0x0833,0x19fc,0x0001,0x0000,0x0036,0xd8a4,0x0000,0x0347
164a 0843 1a00 | C | .DEBUG 0x0843,0x1a00,0x0001,0x0000,0x0036,0xd8a4,0x0000,0x0367
1652 0853 1a04 | S | .DEBUG 0x0853,0x1a04,0x0001,0x0000,0x0036,0xd8a4,0x0000,0x0382
165a 0863 1a08 | c | .DEBUG 0x0863,0x1a08,0x0001,0x0000,0x0036,0xd8a4,0x0000,0x03a9
1662 0873 1a0c | s | .DEBUG 0x0873,0x1a0c,0x0001,0x0000,0x0036,0xd8a4,0x0000,0x03c4
166a 0883 1a10 | | .DEBUG 0x0883,0x1a10,0x0001,0x0000,0x0036,0xd8a4,0x0000,0x03eb
1672 0893 1a14 | | .DEBUG 0x0893,0x1a14,0x0002,0x0000,0x0036,0xd8a4,0x0000,0x0426
167a 08ab 1a1c | | .DEBUG 0x08ab,0x1a1c,0x0002,0x0000,0x0036,0xd8a4,0x0000,0x0522
1682 09cb 1a40 | @| .DEBUG 0x09cb,0x1a40,0x0002,0x0000,0x0036,0xd8a4,0x0000,0x0722
168a 0a63 1a68 | c h| .DEBUG 0x0a63,0x1a68,0x0002,0x0000,0x0036,0xd8a4,0x0000,0x082d
1692 0a93 1a78 | x| .DEBUG 0x0a93,0x1a78,0x0005,0x0000,0x0036,0xd8a4,0x0000,0x0885
169a 0aab 1a7a | z| .DEBUG 0x0aab,0x1a7a,0x0005,0x0000,0x0036,0xd8a4,0x0000,0x0b8c
16a2 0ac3 1a7c | || .DEBUG 0x0ac3,0x1a7c,0x0002,0x0000,0x0036,0xd8a4,0x0000,0x13cb
16aa 0b2b 1aa0 | + | .DEBUG 0x0b2b,0x1aa0,0x0001,0x0000,0x0036,0xd8a4,0x0000,0x1499
16b2 0b7b 1ab6 | { | .DEBUG 0x0b7b,0x1ab6,0x0001,0x0000,0x0036,0xd8a4,0x0000,0x1516
16ba 0c4b 1aec | K | .DEBUG 0x0c4b,0x1aec,0x0001,0x0000,0x0036,0xd8a4,0x0000,0x16c6
16c2 0c8b 1afa | | .DEBUG 0x0c8b,0x1afa,0x0001,0x0000,0x0036,0xd8a4,0x0000,0x1719
16ca 0cbb 1b08 | | .DEBUG 0x0cbb,0x1b08,0x0004,0x0000,0x0036,0xd8a4,0x0000,0x0ae6
16d2 0d4b 1b3a | K :| .DEBUG 0x0d4b,0x1b3a,0x0002,0x0000,0x0036,0xd8a4,0x0000,0x0ce7
16da 0d83 1b48 | H| .DEBUG 0x0d83,0x1b48,0x0002,0x0000,0x0036,0xd8a4,0x0000,0x0d46
16e2 0dbb 1b5e | ^| .DEBUG 0x0dbb,0x1b5e,0x0002,0x0000,0x0036,0xd8a4,0x0000,0x0da4
16ea 0ddb 1b6a | j| .DEBUG 0x0ddb,0x1b6a,0x0001,0x0000,0x0036,0xd8a4,0x0000,0x0ddd
16f2 0e33 1b7c | 3 || .DEBUG 0x0e33,0x1b7c,0x0002,0x0000,0x0036,0xd8a4,0x0000,0x0e6f
16fa 0e53 1b86 | S | .DEBUG 0x0e53,0x1b86,0x0002,0x0000,0x0036,0xd8a4,0x0000,0x0e9b
1702 0eb3 1ba2 | | .DEBUG 0x0eb3,0x1ba2,0x0001,0x0000,0x0036,0xd8a4,0x0000,0x0f2f
170a 0f6b 1bde | k | .DEBUG 0x0f6b,0x1bde,0x0001,0x0000,0x0036,0xd8a4,0x0000,0x10ba
1712 0fcb 1c02 | | .DEBUG 0x0fcb,0x1c02,0x0001,0x0000,0x0036,0xd8a4,0x0000,0x118e
171a 103b 1c24 | ; $| .DEBUG 0x103b,0x1c24,0x0001,0x0000,0x0036,0xd8a4,0x0000,0x1851
1722 105b 1c2e | [ .| .DEBUG 0x105b,0x1c2e,0x0004,0x0000,0x0036,0xd8a4,0x0000,0x19bd
172a 1153 1c60 | S `| .DEBUG 0x1153,0x1c60,0x0001,0x0000,0x0036,0xd8a4,0x0000,0x1ae0
1732 116b 1c66 | k f| .DEBUG 0x116b,0x1c66,0x0002,0x0000,0x0036,0xd8a4,0x0000,0x058b
173a 1183 1c6e | n| .DEBUG 0x1183,0x1c6e,0x0002,0x0000,0x0036,0xd8a4,0x0000,0x05bc
1742 11bb 1c7a | z| .DEBUG 0x11bb,0x1c7a,0x0004,0x0000,0x0036,0xd8a4,0x0000,0x1037
174a ; --------------------------------------------------------------------------------------
174a ; Debug3 Subtable 0x0
174a ; --------------------------------------------------------------------------------------
174a 000c 0000 | | .DBG3TAB 0x000c,0x0000
174c 000b ffff | | .CONST 0x000b,0xffff
174e 000d fffe | | .CONST 0x000d,0xfffe
1750 000f fffd | | .CONST 0x000f,0xfffd
1752 0011 fffc | | .CONST 0x0011,0xfffc
1754 0013 fffb | | .CONST 0x0013,0xfffb
1756 0015 fffa | | .CONST 0x0015,0xfffa
1758 0017 fff9 | | .CONST 0x0017,0xfff9
175a 001a fff8 | | .CONST 0x001a,0xfff8
175c 001c fff7 | | .CONST 0x001c,0xfff7
175e 001e fff6 | | .CONST 0x001e,0xfff6
1760 0020 fff5 | | .CONST 0x0020,0xfff5
1762 0021 fff4 | ! | .CONST 0x0021,0xfff4
1764 ; --------------------------------------------------------------------------------------
1764 ; Debug3 Subtable 0x1
1764 ; --------------------------------------------------------------------------------------
1764 003b 0006 | ; | .DBG3TAB 0x003b,0x0006
1766 0022 ffff | " | .CONST 0x0022,0xffff
1768 0023 fffe | # | .CONST 0x0023,0xfffe
176a 0024 fffd | $ | .CONST 0x0024,0xfffd
176c 0025 fffc | % | .CONST 0x0025,0xfffc
176e 0026 fffb | & | .CONST 0x0026,0xfffb
1770 0027 fffa | ' | .CONST 0x0027,0xfffa
1772 0028 fff9 | ( | .CONST 0x0028,0xfff9
1774 002a fff8 | * | .CONST 0x002a,0xfff8
1776 002c fff7 | , | .CONST 0x002c,0xfff7
1778 002e fff6 | . | .CONST 0x002e,0xfff6
177a 0030 fff5 | 0 | .CONST 0x0030,0xfff5
177c 0032 fff4 | 2 | .CONST 0x0032,0xfff4
177e 0035 fff3 | 5 | .CONST 0x0035,0xfff3
1780 0038 fff2 | 8 | .CONST 0x0038,0xfff2
1782 003b fff1 | ; | .CONST 0x003b,0xfff1
1784 0044 fff0 | D | .CONST 0x0044,0xfff0
1786 004f ffef | O | .CONST 0x004f,0xffef
1788 0051 ffee | Q | .CONST 0x0051,0xffee
178a 005b ffed | [ | .CONST 0x005b,0xffed
178c 005c ffec | \ | .CONST 0x005c,0xffec
178e 005d ffeb | ] | .CONST 0x005d,0xffeb
1790 005f ffea | _ | .CONST 0x005f,0xffea
1792 0061 ffe9 | a | .CONST 0x0061,0xffe9
1794 0063 ffe8 | c | .CONST 0x0063,0xffe8
1796 0065 ffe7 | e | .CONST 0x0065,0xffe7
1798 0067 ffe6 | g | .CONST 0x0067,0xffe6
179a 0069 ffe5 | i | .CONST 0x0069,0xffe5
179c 006b ffe4 | k | .CONST 0x006b,0xffe4
179e 006d ffe3 | m | .CONST 0x006d,0xffe3
17a0 006f ffe2 | o | .CONST 0x006f,0xffe2
17a2 0071 ffe1 | q | .CONST 0x0071,0xffe1
17a4 0073 ffe0 | s | .CONST 0x0073,0xffe0
17a6 0075 ffdf | u | .CONST 0x0075,0xffdf
17a8 0077 ffde | w | .CONST 0x0077,0xffde
17aa 0079 ffdd | y | .CONST 0x0079,0xffdd
17ac 00af ffdc | | .CONST 0x00af,0xffdc
17ae 00b1 ffdb | | .CONST 0x00b1,0xffdb
17b0 00b3 ffda | | .CONST 0x00b3,0xffda
17b2 00b5 ffd9 | | .CONST 0x00b5,0xffd9
17b4 00b7 ffd8 | | .CONST 0x00b7,0xffd8
17b6 00b9 ffd7 | | .CONST 0x00b9,0xffd7
17b8 00bb ffd6 | | .CONST 0x00bb,0xffd6
17ba 00bd ffd5 | | .CONST 0x00bd,0xffd5
17bc 00bf ffd4 | | .CONST 0x00bf,0xffd4
17be 00c4 ffd3 | | .CONST 0x00c4,0xffd3
17c0 00d6 ffd2 | | .CONST 0x00d6,0xffd2
17c2 00d8 ffd1 | | .CONST 0x00d8,0xffd1
17c4 00dd ffd0 | | .CONST 0x00dd,0xffd0
17c6 00ee ffcf | | .CONST 0x00ee,0xffcf
17c8 00fa ffce | | .CONST 0x00fa,0xffce
17ca 00fc ffcd | | .CONST 0x00fc,0xffcd
17cc 00fe ffcc | | .CONST 0x00fe,0xffcc
17ce 0107 ffcb | | .CONST 0x0107,0xffcb
17d0 0109 ffca | | .CONST 0x0109,0xffca
17d2 010b ffc9 | | .CONST 0x010b,0xffc9
17d4 010d ffc8 | | .CONST 0x010d,0xffc8
17d6 010f ffc7 | | .CONST 0x010f,0xffc7
17d8 0111 ffc6 | | .CONST 0x0111,0xffc6
17da 0113 ffc5 | | .CONST 0x0113,0xffc5
17dc 0115 0001 | | .CONST 0x0115,0x0001
17de 011d 0002 | | .CONST 0x011d,0x0002
17e0 0125 0003 | % | .CONST 0x0125,0x0003
17e2 012d 0004 | - | .CONST 0x012d,0x0004
17e4 0135 0005 | 5 | .CONST 0x0135,0x0005
17e6 013d 0006 | = | .CONST 0x013d,0x0006
17e8 ; --------------------------------------------------------------------------------------
17e8 ; Debug3 Subtable 0x2
17e8 ; --------------------------------------------------------------------------------------
17e8 0001 0004 | | .DBG3TAB 0x0001,0x0004
17ea 014b ffff | K | .CONST 0x014b,0xffff
17ec 0150 0001 | P | .CONST 0x0150,0x0001
17ee 0162 0002 | b | .CONST 0x0162,0x0002
17f0 0165 0003 | e | .CONST 0x0165,0x0003
17f2 016b 0004 | k | .CONST 0x016b,0x0004
17f4 ; --------------------------------------------------------------------------------------
17f4 ; Debug3 Subtable 0x3
17f4 ; --------------------------------------------------------------------------------------
17f4 0001 0003 | | .DBG3TAB 0x0001,0x0003
17f6 0173 ffff | s | .CONST 0x0173,0xffff
17f8 0178 0001 | x | .CONST 0x0178,0x0001
17fa 018a 0002 | | .CONST 0x018a,0x0002
17fc 018f 0003 | | .CONST 0x018f,0x0003
17fe ; --------------------------------------------------------------------------------------
17fe ; Debug3 Subtable 0x4
17fe ; --------------------------------------------------------------------------------------
17fe 0000 0003 | | .DBG3TAB 0x0000,0x0003
1800 019b 0001 | | .CONST 0x019b,0x0001
1802 01a5 0002 | | .CONST 0x01a5,0x0002
1804 01a6 0003 | | .CONST 0x01a6,0x0003
1806 ; --------------------------------------------------------------------------------------
1806 ; Debug3 Subtable 0x5
1806 ; --------------------------------------------------------------------------------------
1806 0000 0003 | | .DBG3TAB 0x0000,0x0003
1808 01b3 0001 | | .CONST 0x01b3,0x0001
180a 01bf 0002 | | .CONST 0x01bf,0x0002
180c 01c0 0003 | | .CONST 0x01c0,0x0003
180e ; --------------------------------------------------------------------------------------
180e ; Debug3 Subtable 0x6
180e ; --------------------------------------------------------------------------------------
180e 000b 001d | | .DBG3TAB 0x000b,0x001d
1810 01cb ffff | | .CONST 0x01cb,0xffff
1812 01d0 fffe | | .CONST 0x01d0,0xfffe
1814 01d5 fffd | | .CONST 0x01d5,0xfffd
1816 01db fffc | | .CONST 0x01db,0xfffc
1818 01e0 fffb | | .CONST 0x01e0,0xfffb
181a 01e7 fffa | | .CONST 0x01e7,0xfffa
181c 01ec fff9 | | .CONST 0x01ec,0xfff9
181e 01f1 fff8 | | .CONST 0x01f1,0xfff8
1820 01f3 fff7 | | .CONST 0x01f3,0xfff7
1822 01f4 fff6 | | .CONST 0x01f4,0xfff6
1824 01f7 fff5 | | .CONST 0x01f7,0xfff5
1826 01f9 0001 | | .CONST 0x01f9,0x0001
1828 0206 0002 | | .CONST 0x0206,0x0002
182a 020d 0004 | | .CONST 0x020d,0x0004
182c 0212 0005 | | .CONST 0x0212,0x0005
182e 021d 0006 | | .CONST 0x021d,0x0006
1830 0222 0003 | " | .CONST 0x0222,0x0003
1832 0227 0007 | ' | .CONST 0x0227,0x0007
1834 0234 0008 | 4 | .CONST 0x0234,0x0008
1836 023f 0009 | ? | .CONST 0x023f,0x0009
1838 0246 000a | F | .CONST 0x0246,0x000a
183a 0250 000b | P | .CONST 0x0250,0x000b
183c 025c 000c | \ | .CONST 0x025c,0x000c
183e 0266 000e | f | .CONST 0x0266,0x000e
1840 026a 000f | j | .CONST 0x026a,0x000f
1842 026c 000d | l | .CONST 0x026c,0x000d
1844 0271 0010 | q | .CONST 0x0271,0x0010
1846 0274 0011 | t | .CONST 0x0274,0x0011
1848 027c 0012 | | | .CONST 0x027c,0x0012
184a 0283 0013 | | .CONST 0x0283,0x0013
184c 0289 0014 | | .CONST 0x0289,0x0014
184e 0291 0015 | | .CONST 0x0291,0x0015
1850 0294 0016 | | .CONST 0x0294,0x0016
1852 0298 0017 | | .CONST 0x0298,0x0017
1854 029b 0018 | | .CONST 0x029b,0x0018
1856 02a0 001a | | .CONST 0x02a0,0x001a
1858 02a8 0019 | | .CONST 0x02a8,0x0019
185a 02b7 001b | | .CONST 0x02b7,0x001b
185c 02ba 001c | | .CONST 0x02ba,0x001c
185e 02be 001d | | .CONST 0x02be,0x001d
1860 ; --------------------------------------------------------------------------------------
1860 ; Debug3 Subtable 0x7
1860 ; --------------------------------------------------------------------------------------
1860 001f 001f | | .DBG3TAB 0x001f,0x001f
1862 02cb ffff | | .CONST 0x02cb,0xffff
1864 02cf fffe | | .CONST 0x02cf,0xfffe
1866 02d0 fffd | | .CONST 0x02d0,0xfffd
1868 02d6 fffc | | .CONST 0x02d6,0xfffc
186a 02d8 fffb | | .CONST 0x02d8,0xfffb
186c 02db fffa | | .CONST 0x02db,0xfffa
186e 02de fff9 | | .CONST 0x02de,0xfff9
1870 02e3 fff8 | | .CONST 0x02e3,0xfff8
1872 02e5 fff7 | | .CONST 0x02e5,0xfff7
1874 02ea fff6 | | .CONST 0x02ea,0xfff6
1876 02ef fff5 | | .CONST 0x02ef,0xfff5
1878 02f4 fff4 | | .CONST 0x02f4,0xfff4
187a 0304 fff3 | | .CONST 0x0304,0xfff3
187c 0306 fff2 | | .CONST 0x0306,0xfff2
187e 0308 fff1 | | .CONST 0x0308,0xfff1
1880 0316 fff0 | | .CONST 0x0316,0xfff0
1882 0317 ffef | | .CONST 0x0317,0xffef
1884 0320 ffee | | .CONST 0x0320,0xffee
1886 0327 ffed | ' | .CONST 0x0327,0xffed
1888 032e ffec | . | .CONST 0x032e,0xffec
188a 0335 ffeb | 5 | .CONST 0x0335,0xffeb
188c 033a ffea | : | .CONST 0x033a,0xffea
188e 033f ffe9 | ? | .CONST 0x033f,0xffe9
1890 0341 ffe8 | A | .CONST 0x0341,0xffe8
1892 0343 ffe7 | C | .CONST 0x0343,0xffe7
1894 0345 ffe6 | E | .CONST 0x0345,0xffe6
1896 0347 ffe5 | G | .CONST 0x0347,0xffe5
1898 0349 ffe4 | I | .CONST 0x0349,0xffe4
189a 034b ffe3 | K | .CONST 0x034b,0xffe3
189c 034d ffe2 | M | .CONST 0x034d,0xffe2
189e 034f ffe1 | O | .CONST 0x034f,0xffe1
18a0 0351 0001 | Q | .CONST 0x0351,0x0001
18a2 035e 0002 | ^ | .CONST 0x035e,0x0002
18a4 0365 0004 | e | .CONST 0x0365,0x0004
18a6 036a 0005 | j | .CONST 0x036a,0x0005
18a8 0375 0006 | u | .CONST 0x0375,0x0006
18aa 037a 0003 | z | .CONST 0x037a,0x0003
18ac 037f 0007 | | .CONST 0x037f,0x0007
18ae 0388 0008 | | .CONST 0x0388,0x0008
18b0 0395 0009 | | .CONST 0x0395,0x0009
18b2 039f 000a | | .CONST 0x039f,0x000a
18b4 03b1 000b | | .CONST 0x03b1,0x000b
18b6 03bd 000c | | .CONST 0x03bd,0x000c
18b8 03c7 000d | | .CONST 0x03c7,0x000d
18ba 03d1 000e | | .CONST 0x03d1,0x000e
18bc 03d8 000f | | .CONST 0x03d8,0x000f
18be 03da 0010 | | .CONST 0x03da,0x0010
18c0 03de 0011 | | .CONST 0x03de,0x0011
18c2 03e3 0012 | | .CONST 0x03e3,0x0012
18c4 03f0 0013 | | .CONST 0x03f0,0x0013
18c6 03f3 0014 | | .CONST 0x03f3,0x0014
18c8 0417 0015 | | .CONST 0x0417,0x0015
18ca 041b 0016 | | .CONST 0x041b,0x0016
18cc 0422 0017 | " | .CONST 0x0422,0x0017
18ce 042b 0018 | + | .CONST 0x042b,0x0018
18d0 042e 0019 | . | .CONST 0x042e,0x0019
18d2 0439 001a | 9 | .CONST 0x0439,0x001a
18d4 043d 001b | = | .CONST 0x043d,0x001b
18d6 0440 001c | @ | .CONST 0x0440,0x001c
18d8 0443 001d | C | .CONST 0x0443,0x001d
18da 044c 001e | L | .CONST 0x044c,0x001e
18dc 0450 001f | P | .CONST 0x0450,0x001f
18de ; --------------------------------------------------------------------------------------
18de ; Debug3 Subtable 0x8
18de ; --------------------------------------------------------------------------------------
18de 001e 0009 | | .DBG3TAB 0x001e,0x0009
18e0 0493 ffff | | .CONST 0x0493,0xffff
18e2 0498 fffe | | .CONST 0x0498,0xfffe
18e4 04a3 fffd | | .CONST 0x04a3,0xfffd
18e6 04ae fffc | | .CONST 0x04ae,0xfffc
18e8 04b0 fffb | | .CONST 0x04b0,0xfffb
18ea 04b3 fffa | | .CONST 0x04b3,0xfffa
18ec 04b4 fff9 | | .CONST 0x04b4,0xfff9
18ee 04b7 fff8 | | .CONST 0x04b7,0xfff8
18f0 04ba fff7 | | .CONST 0x04ba,0xfff7
18f2 04bc fff6 | | .CONST 0x04bc,0xfff6
18f4 04be fff5 | | .CONST 0x04be,0xfff5
18f6 04c0 fff4 | | .CONST 0x04c0,0xfff4
18f8 04c2 fff3 | | .CONST 0x04c2,0xfff3
18fa 04c7 fff2 | | .CONST 0x04c7,0xfff2
18fc 04c8 fff1 | | .CONST 0x04c8,0xfff1
18fe 04cd fff0 | | .CONST 0x04cd,0xfff0
1900 04d0 ffef | | .CONST 0x04d0,0xffef
1902 04d2 ffee | | .CONST 0x04d2,0xffee
1904 04d4 ffed | | .CONST 0x04d4,0xffed
1906 04d5 ffec | | .CONST 0x04d5,0xffec
1908 04d8 ffeb | | .CONST 0x04d8,0xffeb
190a 04da ffea | | .CONST 0x04da,0xffea
190c 04db ffe9 | | .CONST 0x04db,0xffe9
190e 04dc ffe8 | | .CONST 0x04dc,0xffe8
1910 04dd ffe7 | | .CONST 0x04dd,0xffe7
1912 04de ffe6 | | .CONST 0x04de,0xffe6
1914 04e0 ffe5 | | .CONST 0x04e0,0xffe5
1916 04e2 ffe4 | | .CONST 0x04e2,0xffe4
1918 04e5 ffe3 | | .CONST 0x04e5,0xffe3
191a 04e7 ffe2 | | .CONST 0x04e7,0xffe2
191c 04f5 0001 | | .CONST 0x04f5,0x0001
191e 0504 0002 | | .CONST 0x0504,0x0002
1920 0512 0003 | | .CONST 0x0512,0x0003
1922 0523 0004 | # | .CONST 0x0523,0x0004
1924 052d 0005 | - | .CONST 0x052d,0x0005
1926 0530 0006 | 0 | .CONST 0x0530,0x0006
1928 0531 0007 | 1 | .CONST 0x0531,0x0007
192a 0536 0008 | 6 | .CONST 0x0536,0x0008
192c 053c 0009 | < | .CONST 0x053c,0x0009
192e ; --------------------------------------------------------------------------------------
192e ; Debug3 Subtable 0x9
192e ; --------------------------------------------------------------------------------------
192e 0006 0008 | | .DBG3TAB 0x0006,0x0008
1930 054b ffff | K | .CONST 0x054b,0xffff
1932 0550 fffe | P | .CONST 0x0550,0xfffe
1934 055a fffd | Z | .CONST 0x055a,0xfffd
1936 056b fffc | k | .CONST 0x056b,0xfffc
1938 0570 fffb | p | .CONST 0x0570,0xfffb
193a 0581 fffa | | .CONST 0x0581,0xfffa
193c 0582 0001 | | .CONST 0x0582,0x0001
193e 0592 0002 | | .CONST 0x0592,0x0002
1940 05a4 0003 | | .CONST 0x05a4,0x0003
1942 05a9 0004 | | .CONST 0x05a9,0x0004
1944 05ae 0005 | | .CONST 0x05ae,0x0005
1946 05b1 0006 | | .CONST 0x05b1,0x0006
1948 05bc 0007 | | .CONST 0x05bc,0x0007
194a 05bf 0008 | | .CONST 0x05bf,0x0008
194c ; --------------------------------------------------------------------------------------
194c ; Debug3 Subtable 0xa
194c ; --------------------------------------------------------------------------------------
194c 000e 001c | | .DBG3TAB 0x000e,0x001c
194e 05cb ffff | | .CONST 0x05cb,0xffff
1950 05cd fffe | | .CONST 0x05cd,0xfffe
1952 05cf fffd | | .CONST 0x05cf,0xfffd
1954 05d1 fffc | | .CONST 0x05d1,0xfffc
1956 05d6 fffb | | .CONST 0x05d6,0xfffb
1958 05db fffa | | .CONST 0x05db,0xfffa
195a 05dd fff9 | | .CONST 0x05dd,0xfff9
195c 05de fff8 | | .CONST 0x05de,0xfff8
195e 05e0 fff7 | | .CONST 0x05e0,0xfff7
1960 05e1 fff6 | | .CONST 0x05e1,0xfff6
1962 05e2 fff5 | | .CONST 0x05e2,0xfff5
1964 05e3 fff4 | | .CONST 0x05e3,0xfff4
1966 05e4 fff3 | | .CONST 0x05e4,0xfff3
1968 05e6 fff2 | | .CONST 0x05e6,0xfff2
196a 05f0 0001 | | .CONST 0x05f0,0x0001
196c 0600 0002 | | .CONST 0x0600,0x0002
196e 0609 0003 | | .CONST 0x0609,0x0003
1970 060e 0004 | | .CONST 0x060e,0x0004
1972 0611 0005 | | .CONST 0x0611,0x0005
1974 061b 0006 | | .CONST 0x061b,0x0006
1976 0625 0007 | % | .CONST 0x0625,0x0007
1978 0629 0008 | ) | .CONST 0x0629,0x0008
197a 062a 0009 | * | .CONST 0x062a,0x0009
197c 0634 000a | 4 | .CONST 0x0634,0x000a
197e 063d 000b | = | .CONST 0x063d,0x000b
1980 0642 000d | B | .CONST 0x0642,0x000d
1982 064c 000e | L | .CONST 0x064c,0x000e
1984 064f 000f | O | .CONST 0x064f,0x000f
1986 0659 0010 | Y | .CONST 0x0659,0x0010
1988 065d 0011 | ] | .CONST 0x065d,0x0011
198a 065e 0012 | ^ | .CONST 0x065e,0x0012
198c 0669 0013 | i | .CONST 0x0669,0x0013
198e 066d 0014 | m | .CONST 0x066d,0x0014
1990 0674 0015 | t | .CONST 0x0674,0x0015
1992 0676 0016 | v | .CONST 0x0676,0x0016
1994 067a 0017 | z | .CONST 0x067a,0x0017
1996 067c 0018 | | | .CONST 0x067c,0x0018
1998 067e 0019 | ~ | .CONST 0x067e,0x0019
199a 0699 001a | | .CONST 0x0699,0x001a
199c 06a8 001b | | .CONST 0x06a8,0x001b
199e 06ae 001c | | .CONST 0x06ae,0x001c
19a0 06b9 001d | | .CONST 0x06b9,0x001d
19a2 ; --------------------------------------------------------------------------------------
19a2 ; Debug3 Subtable 0xb
19a2 ; --------------------------------------------------------------------------------------
19a2 0000 0000 | | .DBG3TAB 0x0000,0x0000
19a4 ; --------------------------------------------------------------------------------------
19a4 ; Debug3 Subtable 0xc
19a4 ; --------------------------------------------------------------------------------------
19a4 0000 0001 | | .DBG3TAB 0x0000,0x0001
19a6 06db 0001 | | .CONST 0x06db,0x0001
19a8 ; --------------------------------------------------------------------------------------
19a8 ; Debug3 Subtable 0xd
19a8 ; --------------------------------------------------------------------------------------
19a8 0000 0001 | | .DBG3TAB 0x0000,0x0001
19aa 06e3 0001 | | .CONST 0x06e3,0x0001
19ac ; --------------------------------------------------------------------------------------
19ac ; Debug3 Subtable 0xe
19ac ; --------------------------------------------------------------------------------------
19ac 0000 0001 | | .DBG3TAB 0x0000,0x0001
19ae 06f3 0001 | | .CONST 0x06f3,0x0001
19b0 ; --------------------------------------------------------------------------------------
19b0 ; Debug3 Subtable 0xf
19b0 ; --------------------------------------------------------------------------------------
19b0 0003 0015 | | .DBG3TAB 0x0003,0x0015
19b2 070b ffff | | .CONST 0x070b,0xffff
19b4 070d fffe | | .CONST 0x070d,0xfffe
19b6 070f fffd | | .CONST 0x070f,0xfffd
19b8 0711 0001 | | .CONST 0x0711,0x0001
19ba 0716 0002 | | .CONST 0x0716,0x0002
19bc 072c 0003 | , | .CONST 0x072c,0x0003
19be 0742 0004 | B | .CONST 0x0742,0x0004
19c0 0758 0005 | X | .CONST 0x0758,0x0005
19c2 0759 0006 | Y | .CONST 0x0759,0x0006
19c4 076d 0007 | m | .CONST 0x076d,0x0007
19c6 0774 0008 | t | .CONST 0x0774,0x0008
19c8 077a 0009 | z | .CONST 0x077a,0x0009
19ca 0790 000a | | .CONST 0x0790,0x000a
19cc 079a 000b | | .CONST 0x079a,0x000b
19ce 07a2 000c | | .CONST 0x07a2,0x000c
19d0 07a9 000d | | .CONST 0x07a9,0x000d
19d2 07b0 000e | | .CONST 0x07b0,0x000e
19d4 07b7 000f | | .CONST 0x07b7,0x000f
19d6 07be 0010 | | .CONST 0x07be,0x0010
19d8 07c5 0011 | | .CONST 0x07c5,0x0011
19da 07c6 0012 | | .CONST 0x07c6,0x0012
19dc 07c8 0013 | | .CONST 0x07c8,0x0013
19de 07cf 0014 | | .CONST 0x07cf,0x0014
19e0 07d1 0015 | | .CONST 0x07d1,0x0015
19e2 ; --------------------------------------------------------------------------------------
19e2 ; Debug3 Subtable 0x10
19e2 ; --------------------------------------------------------------------------------------
19e2 0001 0005 | | .DBG3TAB 0x0001,0x0005
19e4 07db ffff | | .CONST 0x07db,0xffff
19e6 07dd 0001 | | .CONST 0x07dd,0x0001
19e8 07e9 0002 | | .CONST 0x07e9,0x0002
19ea 07eb 0003 | | .CONST 0x07eb,0x0003
19ec 07ee 0004 | | .CONST 0x07ee,0x0004
19ee 07f5 0005 | | .CONST 0x07f5,0x0005
19f0 ; --------------------------------------------------------------------------------------
19f0 ; Debug3 Subtable 0x11
19f0 ; --------------------------------------------------------------------------------------
19f0 0000 0001 | | .DBG3TAB 0x0000,0x0001
19f2 0803 0001 | | .CONST 0x0803,0x0001
19f4 ; --------------------------------------------------------------------------------------
19f4 ; Debug3 Subtable 0x12
19f4 ; --------------------------------------------------------------------------------------
19f4 0000 0001 | | .DBG3TAB 0x0000,0x0001
19f6 0813 0001 | | .CONST 0x0813,0x0001
19f8 ; --------------------------------------------------------------------------------------
19f8 ; Debug3 Subtable 0x13
19f8 ; --------------------------------------------------------------------------------------
19f8 0000 0001 | | .DBG3TAB 0x0000,0x0001
19fa 0823 0001 | # | .CONST 0x0823,0x0001
19fc ; --------------------------------------------------------------------------------------
19fc ; Debug3 Subtable 0x14
19fc ; --------------------------------------------------------------------------------------
19fc 0000 0001 | | .DBG3TAB 0x0000,0x0001
19fe 0833 0001 | 3 | .CONST 0x0833,0x0001
1a00 ; --------------------------------------------------------------------------------------
1a00 ; Debug3 Subtable 0x15
1a00 ; --------------------------------------------------------------------------------------
1a00 0000 0001 | | .DBG3TAB 0x0000,0x0001
1a02 0843 0001 | C | .CONST 0x0843,0x0001
1a04 ; --------------------------------------------------------------------------------------
1a04 ; Debug3 Subtable 0x16
1a04 ; --------------------------------------------------------------------------------------
1a04 0000 0001 | | .DBG3TAB 0x0000,0x0001
1a06 0853 0001 | S | .CONST 0x0853,0x0001
1a08 ; --------------------------------------------------------------------------------------
1a08 ; Debug3 Subtable 0x17
1a08 ; --------------------------------------------------------------------------------------
1a08 0000 0001 | | .DBG3TAB 0x0000,0x0001
1a0a 0863 0001 | c | .CONST 0x0863,0x0001
1a0c ; --------------------------------------------------------------------------------------
1a0c ; Debug3 Subtable 0x18
1a0c ; --------------------------------------------------------------------------------------
1a0c 0000 0001 | | .DBG3TAB 0x0000,0x0001
1a0e 0873 0001 | s | .CONST 0x0873,0x0001
1a10 ; --------------------------------------------------------------------------------------
1a10 ; Debug3 Subtable 0x19
1a10 ; --------------------------------------------------------------------------------------
1a10 0000 0001 | | .DBG3TAB 0x0000,0x0001
1a12 0883 0001 | | .CONST 0x0883,0x0001
1a14 ; --------------------------------------------------------------------------------------
1a14 ; Debug3 Subtable 0x1a
1a14 ; --------------------------------------------------------------------------------------
1a14 0000 0003 | | .DBG3TAB 0x0000,0x0003
1a16 0893 0001 | | .CONST 0x0893,0x0001
1a18 089b 0002 | | .CONST 0x089b,0x0002
1a1a 08a5 0003 | | .CONST 0x08a5,0x0003
1a1c ; --------------------------------------------------------------------------------------
1a1c ; Debug3 Subtable 0x1b
1a1c ; --------------------------------------------------------------------------------------
1a1c 0008 0009 | | .DBG3TAB 0x0008,0x0009
1a1e 08ab ffff | | .CONST 0x08ab,0xffff
1a20 08b1 fffe | | .CONST 0x08b1,0xfffe
1a22 0902 fffd | | .CONST 0x0902,0xfffd
1a24 091c fffc | | .CONST 0x091c,0xfffc
1a26 092c fffb | , | .CONST 0x092c,0xfffb
1a28 092d fffa | - | .CONST 0x092d,0xfffa
1a2a 0933 fff9 | 3 | .CONST 0x0933,0xfff9
1a2c 0935 fff8 | 5 | .CONST 0x0935,0xfff8
1a2e 0937 0001 | 7 | .CONST 0x0937,0x0001
1a30 093c 0002 | < | .CONST 0x093c,0x0002
1a32 0946 0003 | F | .CONST 0x0946,0x0003
1a34 094b 0004 | K | .CONST 0x094b,0x0004
1a36 095a 0005 | Z | .CONST 0x095a,0x0005
1a38 097a 0006 | z | .CONST 0x097a,0x0006
1a3a 0986 0007 | | .CONST 0x0986,0x0007
1a3c 0995 0008 | | .CONST 0x0995,0x0008
1a3e 09b5 0009 | | .CONST 0x09b5,0x0009
1a40 ; --------------------------------------------------------------------------------------
1a40 ; Debug3 Subtable 0x1c
1a40 ; --------------------------------------------------------------------------------------
1a40 0003 0010 | | .DBG3TAB 0x0003,0x0010
1a42 09cb ffff | | .CONST 0x09cb,0xffff
1a44 09d3 fffe | | .CONST 0x09d3,0xfffe
1a46 09d5 fffd | | .CONST 0x09d5,0xfffd
1a48 09da 0001 | | .CONST 0x09da,0x0001
1a4a 09df 0002 | | .CONST 0x09df,0x0002
1a4c 09ea 0003 | | .CONST 0x09ea,0x0003
1a4e 09fc 0006 | | .CONST 0x09fc,0x0006
1a50 0a04 0007 | | .CONST 0x0a04,0x0007
1a52 0a07 0008 | | .CONST 0x0a07,0x0008
1a54 0a0c 0004 | | .CONST 0x0a0c,0x0004
1a56 0a0f 0005 | | .CONST 0x0a0f,0x0005
1a58 0a19 0009 | | .CONST 0x0a19,0x0009
1a5a 0a1c 000a | | .CONST 0x0a1c,0x000a
1a5c 0a21 000b | ! | .CONST 0x0a21,0x000b
1a5e 0a2b 000c | + | .CONST 0x0a2b,0x000c
1a60 0a2f 000d | / | .CONST 0x0a2f,0x000d
1a62 0a34 000e | 4 | .CONST 0x0a34,0x000e
1a64 0a3b 000f | ; | .CONST 0x0a3b,0x000f
1a66 0a40 0010 | @ | .CONST 0x0a40,0x0010
1a68 ; --------------------------------------------------------------------------------------
1a68 ; Debug3 Subtable 0x1d
1a68 ; --------------------------------------------------------------------------------------
1a68 0001 0006 | | .DBG3TAB 0x0001,0x0006
1a6a 0a63 ffff | c | .CONST 0x0a63,0xffff
1a6c 0a66 0001 | f | .CONST 0x0a66,0x0001
1a6e 0a75 0002 | u | .CONST 0x0a75,0x0002
1a70 0a80 0003 | | .CONST 0x0a80,0x0003
1a72 0a84 0004 | | .CONST 0x0a84,0x0004
1a74 0a87 0005 | | .CONST 0x0a87,0x0005
1a76 0a89 0006 | | .CONST 0x0a89,0x0006
1a78 ; --------------------------------------------------------------------------------------
1a78 ; Debug3 Subtable 0x1e
1a78 ; --------------------------------------------------------------------------------------
1a78 0000 0000 | | .DBG3TAB 0x0000,0x0000
1a7a ; --------------------------------------------------------------------------------------
1a7a ; Debug3 Subtable 0x1f
1a7a ; --------------------------------------------------------------------------------------
1a7a 0000 0000 | | .DBG3TAB 0x0000,0x0000
1a7c ; --------------------------------------------------------------------------------------
1a7c ; Debug3 Subtable 0x20
1a7c ; --------------------------------------------------------------------------------------
1a7c 0005 000c | | .DBG3TAB 0x0005,0x000c
1a7e 0ac3 ffff | | .CONST 0x0ac3,0xffff
1a80 0ac8 fffe | | .CONST 0x0ac8,0xfffe
1a82 0ac9 fffd | | .CONST 0x0ac9,0xfffd
1a84 0acb fffc | | .CONST 0x0acb,0xfffc
1a86 0acd fffb | | .CONST 0x0acd,0xfffb
1a88 0acf 0001 | | .CONST 0x0acf,0x0001
1a8a 0ade 0002 | | .CONST 0x0ade,0x0002
1a8c 0ae3 0003 | | .CONST 0x0ae3,0x0003
1a8e 0ae6 0004 | | .CONST 0x0ae6,0x0004
1a90 0aef 0005 | | .CONST 0x0aef,0x0005
1a92 0af9 0006 | | .CONST 0x0af9,0x0006
1a94 0afc 0007 | | .CONST 0x0afc,0x0007
1a96 0b05 0008 | | .CONST 0x0b05,0x0008
1a98 0b0f 0009 | | .CONST 0x0b0f,0x0009
1a9a 0b12 000a | | .CONST 0x0b12,0x000a
1a9c 0b1b 000b | | .CONST 0x0b1b,0x000b
1a9e 0b25 000c | % | .CONST 0x0b25,0x000c
1aa0 ; --------------------------------------------------------------------------------------
1aa0 ; Debug3 Subtable 0x21
1aa0 ; --------------------------------------------------------------------------------------
1aa0 0000 000a | | .DBG3TAB 0x0000,0x000a
1aa2 0b2b 0001 | + | .CONST 0x0b2b,0x0001
1aa4 0b2f 0002 | / | .CONST 0x0b2f,0x0002
1aa6 0b36 0003 | 6 | .CONST 0x0b36,0x0003
1aa8 0b45 0004 | E | .CONST 0x0b45,0x0004
1aaa 0b49 0005 | I | .CONST 0x0b49,0x0005
1aac 0b51 0006 | Q | .CONST 0x0b51,0x0006
1aae 0b55 0007 | U | .CONST 0x0b55,0x0007
1ab0 0b59 0008 | Y | .CONST 0x0b59,0x0008
1ab2 0b61 0009 | a | .CONST 0x0b61,0x0009
1ab4 0b6b 000a | k | .CONST 0x0b6b,0x000a
1ab6 ; --------------------------------------------------------------------------------------
1ab6 ; Debug3 Subtable 0x22
1ab6 ; --------------------------------------------------------------------------------------
1ab6 0000 001a | | .DBG3TAB 0x0000,0x001a
1ab8 0b7b 0001 | { | .CONST 0x0b7b,0x0001
1aba 0b7f 0002 | | .CONST 0x0b7f,0x0002
1abc 0b86 0003 | | .CONST 0x0b86,0x0003
1abe 0b8d 0004 | | .CONST 0x0b8d,0x0004
1ac0 0b9c 0005 | | .CONST 0x0b9c,0x0005
1ac2 0bab 0006 | | .CONST 0x0bab,0x0006
1ac4 0bb2 0007 | | .CONST 0x0bb2,0x0007
1ac6 0bb4 0008 | | .CONST 0x0bb4,0x0008
1ac8 0bb9 0009 | | .CONST 0x0bb9,0x0009
1aca 0bc0 000a | | .CONST 0x0bc0,0x000a
1acc 0bcf 000b | | .CONST 0x0bcf,0x000b
1ace 0bd6 000c | | .CONST 0x0bd6,0x000c
1ad0 0be0 000d | | .CONST 0x0be0,0x000d
1ad2 0be8 000e | | .CONST 0x0be8,0x000e
1ad4 0bf0 000f | | .CONST 0x0bf0,0x000f
1ad6 0bf4 0010 | | .CONST 0x0bf4,0x0010
1ad8 0bfc 0011 | | .CONST 0x0bfc,0x0011
1ada 0c04 0012 | | .CONST 0x0c04,0x0012
1adc 0c08 0013 | | .CONST 0x0c08,0x0013
1ade 0c0c 0014 | | .CONST 0x0c0c,0x0014
1ae0 0c14 0015 | | .CONST 0x0c14,0x0015
1ae2 0c1e 0016 | | .CONST 0x0c1e,0x0016
1ae4 0c24 0017 | $ | .CONST 0x0c24,0x0017
1ae6 0c28 0018 | ( | .CONST 0x0c28,0x0018
1ae8 0c33 0019 | 3 | .CONST 0x0c33,0x0019
1aea 0c3e 001a | > | .CONST 0x0c3e,0x001a
1aec ; --------------------------------------------------------------------------------------
1aec ; Debug3 Subtable 0x23
1aec ; --------------------------------------------------------------------------------------
1aec 0000 0006 | | .DBG3TAB 0x0000,0x0006
1aee 0c4b 0001 | K | .CONST 0x0c4b,0x0001
1af0 0c4f 0002 | O | .CONST 0x0c4f,0x0002
1af2 0c58 0003 | X | .CONST 0x0c58,0x0003
1af4 0c5c 0004 | \ | .CONST 0x0c5c,0x0004
1af6 0c67 0005 | g | .CONST 0x0c67,0x0005
1af8 0c72 0006 | r | .CONST 0x0c72,0x0006
1afa ; --------------------------------------------------------------------------------------
1afa ; Debug3 Subtable 0x24
1afa ; --------------------------------------------------------------------------------------
1afa 0000 0006 | | .DBG3TAB 0x0000,0x0006
1afc 0c8b 0001 | | .CONST 0x0c8b,0x0001
1afe 0c8f 0002 | | .CONST 0x0c8f,0x0002
1b00 0c98 0003 | | .CONST 0x0c98,0x0003
1b02 0c9c 0004 | | .CONST 0x0c9c,0x0004
1b04 0ca7 0005 | | .CONST 0x0ca7,0x0005
1b06 0cb2 0006 | | .CONST 0x0cb2,0x0006
1b08 ; --------------------------------------------------------------------------------------
1b08 ; Debug3 Subtable 0x25
1b08 ; --------------------------------------------------------------------------------------
1b08 0003 0015 | | .DBG3TAB 0x0003,0x0015
1b0a 0cbb ffff | | .CONST 0x0cbb,0xffff
1b0c 0cbe fffe | | .CONST 0x0cbe,0xfffe
1b0e 0cc4 fffd | | .CONST 0x0cc4,0xfffd
1b10 0cc5 0001 | | .CONST 0x0cc5,0x0001
1b12 0ccd 0002 | | .CONST 0x0ccd,0x0002
1b14 0cdf 0003 | | .CONST 0x0cdf,0x0003
1b16 0ce9 0004 | | .CONST 0x0ce9,0x0004
1b18 0ceb 0005 | | .CONST 0x0ceb,0x0005
1b1a 0cf3 0007 | | .CONST 0x0cf3,0x0007
1b1c 0cfa 0008 | | .CONST 0x0cfa,0x0008
1b1e 0d01 0009 | | .CONST 0x0d01,0x0009
1b20 0d03 000a | | .CONST 0x0d03,0x000a
1b22 0d08 0006 | | .CONST 0x0d08,0x0006
1b24 0d0d 000b | | .CONST 0x0d0d,0x000b
1b26 0d11 000c | | .CONST 0x0d11,0x000c
1b28 0d16 000d | | .CONST 0x0d16,0x000d
1b2a 0d1a 000e | | .CONST 0x0d1a,0x000e
1b2c 0d1e 000f | | .CONST 0x0d1e,0x000f
1b2e 0d23 0011 | # | .CONST 0x0d23,0x0011
1b30 0d2b 0010 | + | .CONST 0x0d2b,0x0010
1b32 0d32 0012 | 2 | .CONST 0x0d32,0x0012
1b34 0d3a 0013 | : | .CONST 0x0d3a,0x0013
1b36 0d3e 0014 | > | .CONST 0x0d3e,0x0014
1b38 0d42 0015 | B | .CONST 0x0d42,0x0015
1b3a ; --------------------------------------------------------------------------------------
1b3a ; Debug3 Subtable 0x26
1b3a ; --------------------------------------------------------------------------------------
1b3a 0002 0004 | | .DBG3TAB 0x0002,0x0004
1b3c 0d4b ffff | K | .CONST 0x0d4b,0xffff
1b3e 0d51 fffe | Q | .CONST 0x0d51,0xfffe
1b40 0d5c 0001 | \ | .CONST 0x0d5c,0x0001
1b42 0d64 0004 | d | .CONST 0x0d64,0x0004
1b44 0d69 0002 | i | .CONST 0x0d69,0x0002
1b46 0d74 0003 | t | .CONST 0x0d74,0x0003
1b48 ; --------------------------------------------------------------------------------------
1b48 ; Debug3 Subtable 0x27
1b48 ; --------------------------------------------------------------------------------------
1b48 0003 0007 | | .DBG3TAB 0x0003,0x0007
1b4a 0d83 ffff | | .CONST 0x0d83,0xffff
1b4c 0d86 fffe | | .CONST 0x0d86,0xfffe
1b4e 0d88 fffd | | .CONST 0x0d88,0xfffd
1b50 0d8d 0001 | | .CONST 0x0d8d,0x0001
1b52 0d95 0002 | | .CONST 0x0d95,0x0002
1b54 0d9a 0003 | | .CONST 0x0d9a,0x0003
1b56 0da6 0004 | | .CONST 0x0da6,0x0004
1b58 0dab 0005 | | .CONST 0x0dab,0x0005
1b5a 0dae 0006 | | .CONST 0x0dae,0x0006
1b5c 0db1 0007 | | .CONST 0x0db1,0x0007
1b5e ; --------------------------------------------------------------------------------------
1b5e ; Debug3 Subtable 0x28
1b5e ; --------------------------------------------------------------------------------------
1b5e 0001 0004 | | .DBG3TAB 0x0001,0x0004
1b60 0dbb ffff | | .CONST 0x0dbb,0xffff
1b62 0dbe 0001 | | .CONST 0x0dbe,0x0001
1b64 0dc6 0002 | | .CONST 0x0dc6,0x0002
1b66 0dcb 0003 | | .CONST 0x0dcb,0x0003
1b68 0dce 0004 | | .CONST 0x0dce,0x0004
1b6a ; --------------------------------------------------------------------------------------
1b6a ; Debug3 Subtable 0x29
1b6a ; --------------------------------------------------------------------------------------
1b6a 0001 0007 | | .DBG3TAB 0x0001,0x0007
1b6c 0ddb ffff | | .CONST 0x0ddb,0xffff
1b6e 0de6 0001 | | .CONST 0x0de6,0x0001
1b70 0de9 0002 | | .CONST 0x0de9,0x0002
1b72 0deb 0003 | | .CONST 0x0deb,0x0003
1b74 0dfa 0004 | | .CONST 0x0dfa,0x0004
1b76 0e0c 0005 | | .CONST 0x0e0c,0x0005
1b78 0e20 0006 | | .CONST 0x0e20,0x0006
1b7a 0e27 0007 | ' | .CONST 0x0e27,0x0007
1b7c ; --------------------------------------------------------------------------------------
1b7c ; Debug3 Subtable 0x2a
1b7c ; --------------------------------------------------------------------------------------
1b7c 0002 0002 | | .DBG3TAB 0x0002,0x0002
1b7e 0e33 ffff | 3 | .CONST 0x0e33,0xffff
1b80 0e38 fffe | 8 | .CONST 0x0e38,0xfffe
1b82 0e3a 0001 | : | .CONST 0x0e3a,0x0001
1b84 0e49 0002 | I | .CONST 0x0e49,0x0002
1b86 ; --------------------------------------------------------------------------------------
1b86 ; Debug3 Subtable 0x2b
1b86 ; --------------------------------------------------------------------------------------
1b86 0005 0008 | | .DBG3TAB 0x0005,0x0008
1b88 0e53 ffff | S | .CONST 0x0e53,0xffff
1b8a 0e55 fffe | U | .CONST 0x0e55,0xfffe
1b8c 0e57 fffd | W | .CONST 0x0e57,0xfffd
1b8e 0e5d fffc | ] | .CONST 0x0e5d,0xfffc
1b90 0e77 fffb | w | .CONST 0x0e77,0xfffb
1b92 0e78 0001 | x | .CONST 0x0e78,0x0001
1b94 0e81 0002 | | .CONST 0x0e81,0x0002
1b96 0e8c 0004 | | .CONST 0x0e8c,0x0004
1b98 0e91 0005 | | .CONST 0x0e91,0x0005
1b9a 0e95 0006 | | .CONST 0x0e95,0x0006
1b9c 0e99 0003 | | .CONST 0x0e99,0x0003
1b9e 0ea0 0007 | | .CONST 0x0ea0,0x0007
1ba0 0ea6 0008 | | .CONST 0x0ea6,0x0008
1ba2 ; --------------------------------------------------------------------------------------
1ba2 ; Debug3 Subtable 0x2c
1ba2 ; --------------------------------------------------------------------------------------
1ba2 0002 001b | | .DBG3TAB 0x0002,0x001b
1ba4 0eb3 ffff | | .CONST 0x0eb3,0xffff
1ba6 0eb8 fffe | | .CONST 0x0eb8,0xfffe
1ba8 0ebf 0001 | | .CONST 0x0ebf,0x0001
1baa 0ec2 0002 | | .CONST 0x0ec2,0x0002
1bac 0ecc 0003 | | .CONST 0x0ecc,0x0003
1bae 0ece 0004 | | .CONST 0x0ece,0x0004
1bb0 0eda 0005 | | .CONST 0x0eda,0x0005
1bb2 0ee5 0006 | | .CONST 0x0ee5,0x0006
1bb4 0eed 0007 | | .CONST 0x0eed,0x0007
1bb6 0ef3 0008 | | .CONST 0x0ef3,0x0008
1bb8 0ef9 0009 | | .CONST 0x0ef9,0x0009
1bba 0efb 000a | | .CONST 0x0efb,0x000a
1bbc 0f04 000c | | .CONST 0x0f04,0x000c
1bbe 0f0b 000b | | .CONST 0x0f0b,0x000b
1bc0 0f10 000d | | .CONST 0x0f10,0x000d
1bc2 0f15 000e | | .CONST 0x0f15,0x000e
1bc4 0f16 000f | | .CONST 0x0f16,0x000f
1bc6 0f19 0010 | | .CONST 0x0f19,0x0010
1bc8 0f21 0011 | ! | .CONST 0x0f21,0x0011
1bca 0f26 0013 | & | .CONST 0x0f26,0x0013
1bcc 0f31 0012 | 1 | .CONST 0x0f31,0x0012
1bce 0f38 0014 | 8 | .CONST 0x0f38,0x0014
1bd0 0f3b 0015 | ; | .CONST 0x0f3b,0x0015
1bd2 0f3f 0016 | ? | .CONST 0x0f3f,0x0016
1bd4 0f43 0017 | C | .CONST 0x0f43,0x0017
1bd6 0f47 0018 | G | .CONST 0x0f47,0x0018
1bd8 0f4b 0019 | K | .CONST 0x0f4b,0x0019
1bda 0f4f 001a | O | .CONST 0x0f4f,0x001a
1bdc 0f53 001b | S | .CONST 0x0f53,0x001b
1bde ; --------------------------------------------------------------------------------------
1bde ; Debug3 Subtable 0x2d
1bde ; --------------------------------------------------------------------------------------
1bde 0004 000d | | .DBG3TAB 0x0004,0x000d
1be0 0f6b ffff | k | .CONST 0x0f6b,0xffff
1be2 0f6f fffe | o | .CONST 0x0f6f,0xfffe
1be4 0f71 fffd | q | .CONST 0x0f71,0xfffd
1be6 0f73 fffc | s | .CONST 0x0f73,0xfffc
1be8 0f76 0001 | v | .CONST 0x0f76,0x0001
1bea 0f7e 0002 | ~ | .CONST 0x0f7e,0x0002
1bec 0f88 0003 | | .CONST 0x0f88,0x0003
1bee 0f8c 0004 | | .CONST 0x0f8c,0x0004
1bf0 0f90 0005 | | .CONST 0x0f90,0x0005
1bf2 0f95 0006 | | .CONST 0x0f95,0x0006
1bf4 0f9d 0007 | | .CONST 0x0f9d,0x0007
1bf6 0fa1 0008 | | .CONST 0x0fa1,0x0008
1bf8 0fa5 0009 | | .CONST 0x0fa5,0x0009
1bfa 0faa 000a | | .CONST 0x0faa,0x000a
1bfc 0fac 000b | | .CONST 0x0fac,0x000b
1bfe 0fb1 000d | | .CONST 0x0fb1,0x000d
1c00 0fbc 000c | | .CONST 0x0fbc,0x000c
1c02 ; --------------------------------------------------------------------------------------
1c02 ; Debug3 Subtable 0x2e
1c02 ; --------------------------------------------------------------------------------------
1c02 0002 000e | | .DBG3TAB 0x0002,0x000e
1c04 0fcb ffff | | .CONST 0x0fcb,0xffff
1c06 0fce fffe | | .CONST 0x0fce,0xfffe
1c08 0fd4 0001 | | .CONST 0x0fd4,0x0001
1c0a 0fec 0002 | | .CONST 0x0fec,0x0002
1c0c 0ff1 000b | | .CONST 0x0ff1,0x000b
1c0e 1006 000c | | .CONST 0x1006,0x000c
1c10 100a 000d | | .CONST 0x100a,0x000d
1c12 100e 000e | | .CONST 0x100e,0x000e
1c14 1012 0004 | | .CONST 0x1012,0x0004
1c16 1014 0005 | | .CONST 0x1014,0x0005
1c18 101a 0003 | | .CONST 0x101a,0x0003
1c1a 1021 0006 | ! | .CONST 0x1021,0x0006
1c1c 1025 0007 | % | .CONST 0x1025,0x0007
1c1e 102d 0008 | - | .CONST 0x102d,0x0008
1c20 1031 0009 | 1 | .CONST 0x1031,0x0009
1c22 1035 000a | 5 | .CONST 0x1035,0x000a
1c24 ; --------------------------------------------------------------------------------------
1c24 ; Debug3 Subtable 0x2f
1c24 ; --------------------------------------------------------------------------------------
1c24 0000 0004 | | .DBG3TAB 0x0000,0x0004
1c26 103b 0001 | ; | .CONST 0x103b,0x0001
1c28 1044 0002 | D | .CONST 0x1044,0x0002
1c2a 1048 0003 | H | .CONST 0x1048,0x0003
1c2c 104c 0004 | L | .CONST 0x104c,0x0004
1c2e ; --------------------------------------------------------------------------------------
1c2e ; Debug3 Subtable 0x30
1c2e ; --------------------------------------------------------------------------------------
1c2e 0000 0018 | | .DBG3TAB 0x0000,0x0018
1c30 105b 0001 | [ | .CONST 0x105b,0x0001
1c32 109a 0002 | | .CONST 0x109a,0x0002
1c34 10b7 0003 | | .CONST 0x10b7,0x0003
1c36 10c1 0004 | | .CONST 0x10c1,0x0004
1c38 10c6 0005 | | .CONST 0x10c6,0x0005
1c3a 10d0 0006 | | .CONST 0x10d0,0x0006
1c3c 10d9 0007 | | .CONST 0x10d9,0x0007
1c3e 10e3 0008 | | .CONST 0x10e3,0x0008
1c40 10eb 0009 | | .CONST 0x10eb,0x0009
1c42 10f2 000c | | .CONST 0x10f2,0x000c
1c44 10f8 000d | | .CONST 0x10f8,0x000d
1c46 1103 000e | | .CONST 0x1103,0x000e
1c48 110d 000f | | .CONST 0x110d,0x000f
1c4a 1113 0011 | | .CONST 0x1113,0x0011
1c4c 1116 0012 | | .CONST 0x1116,0x0012
1c4e 1120 0013 | | .CONST 0x1120,0x0013
1c50 1128 0014 | ( | .CONST 0x1128,0x0014
1c52 112b 0015 | + | .CONST 0x112b,0x0015
1c54 112d 0017 | - | .CONST 0x112d,0x0017
1c56 1130 0018 | 0 | .CONST 0x1130,0x0018
1c58 1133 0019 | 3 | .CONST 0x1133,0x0019
1c5a 1137 001a | 7 | .CONST 0x1137,0x001a
1c5c 1143 001b | C | .CONST 0x1143,0x001b
1c5e 1149 001c | I | .CONST 0x1149,0x001c
1c60 ; --------------------------------------------------------------------------------------
1c60 ; Debug3 Subtable 0x31
1c60 ; --------------------------------------------------------------------------------------
1c60 0000 0002 | | .DBG3TAB 0x0000,0x0002
1c62 1153 0001 | S | .CONST 0x1153,0x0001
1c64 115e 0002 | ^ | .CONST 0x115e,0x0002
1c66 ; --------------------------------------------------------------------------------------
1c66 ; Debug3 Subtable 0x32
1c66 ; --------------------------------------------------------------------------------------
1c66 0000 0003 | | .DBG3TAB 0x0000,0x0003
1c68 116b 0001 | k | .CONST 0x116b,0x0001
1c6a 1170 0002 | p | .CONST 0x1170,0x0002
1c6c 117b 0003 | { | .CONST 0x117b,0x0003
1c6e ; --------------------------------------------------------------------------------------
1c6e ; Debug3 Subtable 0x33
1c6e ; --------------------------------------------------------------------------------------
1c6e 0000 0005 | | .DBG3TAB 0x0000,0x0005
1c70 1183 0001 | | .CONST 0x1183,0x0001
1c72 1189 0002 | | .CONST 0x1189,0x0002
1c74 118d 0003 | | .CONST 0x118d,0x0003
1c76 1193 0004 | | .CONST 0x1193,0x0004
1c78 11af 0005 | | .CONST 0x11af,0x0005
1c7a ; --------------------------------------------------------------------------------------
1c7a ; Debug3 Subtable 0x34
1c7a ; --------------------------------------------------------------------------------------
1c7a 0002 0005 | | .DBG3TAB 0x0002,0x0005
1c7c 11bb ffff | | .CONST 0x11bb,0xffff
1c7e 11c1 fffe | | .CONST 0x11c1,0xfffe
1c80 11c2 0001 | | .CONST 0x11c2,0x0001
1c82 11cf 0003 | | .CONST 0x11cf,0x0003
1c84 11d6 0004 | | .CONST 0x11d6,0x0004
1c86 11de 0002 | | .CONST 0x11de,0x0002
1c88 11e3 0005 | | .CONST 0x11e3,0x0005
1c8a 0000 0000 | | .BLANK 0000[0x176]