|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 DFS Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 DFS Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 10240 (0x2800) Types: SEG Notes: 5811_R1K_CODE Names: »796691.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293 └─ ⟦this⟧ »796691.SEG« └─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3 └─ ⟦this⟧ »796691.SEG« └─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288 └─ ⟦this⟧ »796691.SEG« └─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5 └─ ⟦this⟧ »796691.SEG« └─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000 └─ ⟦this⟧ »796691.SEG«
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5811 |X | .CONST 0x5811 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0d38 | 8 | .CONST 0x0d38 ; 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 0009 | | .CONST 0x0009 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 006b | k | .CONST 0x006b ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0021 | ! | .CONST 0x0021 ; Number of locals 000b INIT_0008: 000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x0f3a,0x8000,0x0000,0x0036,0xba64,0x0000,0x000d ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 0007 | | Action Break_Optional ; Debug Table 0x0.0x1 = 0xc,0xfffe 000d e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x2 = 0xd,0xfffd 000e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 000f 0129 | ) | Execute Any,Make_Visible 0010 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x3 = 0x10,0xfffc 0011 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0012 0129 | ) | Execute Any,Make_Visible 0013 4801 |H | Short_Literal 0x1 ; Debug Table 0x0.0x4 = 0x13,0xfffb 0014 60cb |` | Indirect_Literal Discrete,0xe0,{0x00000000, 0x00000400} 0015 00da | | Load_Top At_Offset_2 0016 035c | \ | Declare_Type Array,Constrained,Visible 0017 e002 | | Load 0x0,0x2 ; Debug Table 0x0.0x5 = 0x17,0xfffa 0018 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0019 0129 | ) | Execute Any,Make_Visible 001a e002 | | Load 0x0,0x2 ; Debug Table 0x0.0x6 = 0x1a,0xfff9 001b 1b15 | | Execute Package,Field_Read,Field_Number 0x15 001c 0129 | ) | Execute Any,Make_Visible 001d e002 | | Load 0x0,0x2 ; Debug Table 0x0.0x7 = 0x1d,0xfff8 001e 1b18 | | Execute Package,Field_Read,Field_Number 0x18 001f 0129 | ) | Execute Any,Make_Visible 0020 e002 | | Load 0x0,0x2 ; Debug Table 0x0.0x8 = 0x20,0xfff7 0021 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0022 0129 | ) | Execute Any,Make_Visible 0023 e002 | | Load 0x0,0x2 ; Debug Table 0x0.0x9 = 0x23,0xfff6 0024 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0025 0129 | ) | Execute Any,Make_Visible 0026 e002 | | Load 0x0,0x2 ; Debug Table 0x0.0xa = 0x26,0xfff5 0027 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0028 0129 | ) | Execute Any,Make_Visible 0029 e002 | | Load 0x0,0x2 ; Debug Table 0x0.0xb = 0x29,0xfff4 002a 1b14 | | Execute Package,Field_Read,Field_Number 0x14 002b 0129 | ) | Execute Any,Make_Visible 002c 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x0.0xc = 0x2c,0xfff3 002d 0129 | ) | Execute Any,Make_Visible 002e 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0xd = 0x2e,0xfff2 002f 4803 |H | Short_Literal 0x3 0030 029f 0073 | s| Declare_Subprogram INIT_0070,For_Call 0032 03fe | | Declare_Type Discrete,Defined,Visible 0033 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0xe = 0x33,0xfff1 0034 60a7 |` | Indirect_Literal Discrete,0xdc,{0x000c2813, 0x0000b130} ; 0xc2813 = EEDB_BOOTSTRAP 0035 02a0 | | Declare_Subprogram Null_Subprogram 0036 038f | | Declare_Type Package,Defined,Visible 0037 0386 | | Declare_Variable Package,Visible 0038 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0xf = 0x38,0xfff0 0039 609e |` | Indirect_Literal Discrete,0xd8,{0x000c2813, 0x0000a9b0} ; 0xc2813 = EEDB_BOOTSTRAP 003a 02a0 | | Declare_Subprogram Null_Subprogram 003b 038f | | Declare_Type Package,Defined,Visible 003c 0386 | | Declare_Variable Package,Visible 003d 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x10 = 0x3d,0xffef 003f 4820 |H | Short_Literal 0x20 ; Debug Table 0x0.0x11 = 0x3f,0xffee 0040 6093 |` | Indirect_Literal Discrete,0xd4,{0x000c2813, 0x00000eb0} ; 0xc2813 = EEDB_BOOTSTRAP 0041 02a0 | | Declare_Subprogram Null_Subprogram 0042 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated 0043 00bf | | Action Accept_Activation 0044 0092 0b3e | >| Action Push_String_Extended,0xb3e ; ".MLOAD" ; Debug Table 0x1 = .DEBUG 0x0044,0x0f60,0x8000,0x0000,0x0036,0xbef4,0x0000,0x0007 ; Debug Table 0x1.0x0 = 0x44,0xffff 0046 0092 0b3f | ?| Action Push_String_Extended,0xb3f ; ".SEG" ; Debug Table 0x1.0x1 = 0x46,0xfffe 0048 0092 0b40 | @| Action Push_String_Extended,0xb40 ; ".EEDB" ; Debug Table 0x1.0x2 = 0x48,0xfffd 004a e003 | | Load 0x0,0x3 ; Debug Table 0x1.0x3 = 0x4a,0xfffc 004b 1914 | | Execute Package,Field_Reference,Field_Number 0x14 004c 0007 | | Action Break_Optional 004d e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x4 = 0x4d,0xfffb 004e e004 | | Load 0x0,0x4 004f 4802 |H | Short_Literal 0x2 0050 e219 | | Load 0x1,0x19 0051 020e | | Execute Module,Augment_Imports 0052 e219 | | Load 0x1,0x19 0053 020f | | Execute Module,Activate 0054 e21a | | Load 0x1,0x1a ; Debug Table 0x1.0x5 = 0x54,0xfffa 0055 020f | | Execute Module,Activate 0056 029d 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call ; Debug Table 0x1.0x6 = 0x56,0xfff9 0058 1d1b | | Execute_Immediate Reference_Lex_1,0x1b ; Debug Table 0x1.0x7 = 0x58,0xfff8 0059 00c7 | | Action Elaborate_Subprogram 005a e005 | | Load 0x0,0x5 ; Debug Table 0x1.0x8 = 0x5a,0xfff7 005b 00b6 | | Action Make_Scope 005c e001 | | Load 0x0,0x1 005d e002 | | Load 0x0,0x2 005e e004 | | Load 0x0,0x4 005f e006 | | Load 0x0,0x6 0060 e007 | | Load 0x0,0x7 0061 e008 | | Load 0x0,0x8 0062 e009 | | Load 0x0,0x9 0063 e00a | | Load 0x0,0xa 0064 e00b | | Load 0x0,0xb 0065 e00c | | Load 0x0,0xc 0066 480c |H | Short_Literal 0xc 0067 e21c | | Load 0x1,0x1c 0068 020e | | Execute Module,Augment_Imports 0069 e21c | | Load 0x1,0x1c 006a 020d | | Execute Module,Elaborate 006b BODY_0008: 006b 00bc | | Action Signal_Activated 006c 00bb | | Action Signal_Completion 006d 0000 0000 | | .XXX[0x3] 006f 0000 | | 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0073 | s | .CONST 0x0073 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0001 | | .CONST 0x0001 ; Number of locals 0073 BODY_0070: 0073 INIT_0070: 0073 4603 |F | Jump_Case 0x4 ; Debug Table 0x2 = .DEBUG 0x0073,0x0f74,0x0005,0x0000,0x0036,0xba64,0x0000,0x005d 0074 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0075 7802 |x | Jump 0x78 ; case 0x1 0076 7805 |x | Jump 0x7c ; case 0x2 0077 7809 |x | Jump 0x81 ; case 0x3 0078 00da | | Load_Top At_Offset_2 0079 0091 0b3a | :| Action Push_String_Extended_Indexed,0xb3a ; "ORDINARY" 007b 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 007c 00db | | Load_Top At_Offset_3 007d 00db | | Load_Top At_Offset_3 007e 00e0 | | Load_Encached Standard_Cache 007f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0080 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0081 00da | | Load_Top At_Offset_2 0082 00e0 | | Load_Encached Standard_Cache 0083 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0084 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0085 0000 0000 | | .XXX[0x3] 0087 0000 | | 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 008d | | .CONST 0x008d ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0002 | | .CONST 0x0002 ; Number of locals 008b INIT_0088: 008b 00da | | Load_Top At_Offset_2 ; Debug Table 0x3 = .DEBUG 0x008b,0x0f76,0x0002,0x0000,0x0036,0xba64,0x0000,0x010a ; Debug Table 0x3.0x0 = 0x8b,0xffff 008c 8220 | | Call 0x1,0x20 008d BODY_0088: 008d e21e | | Load 0x1,0x1e ; Debug Table 0x3.0x1 = 0x8d,0x1 008e 00d9 | | Load_Top At_Offset_1 008f 8221 | ! | Call 0x1,0x21 0090 6802 |h | Jump_Zero 0x93 0091 4802 |H | Short_Literal 0x2 ; Debug Table 0x3.0x2 = 0x91,0x2 0092 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0093 e21d | | Load 0x1,0x1d ; Debug Table 0x3.0x3 = 0x93,0x3 0094 00d9 | | Load_Top At_Offset_1 0095 8221 | ! | Call 0x1,0x21 0096 6802 |h | Jump_Zero 0x99 0097 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0x4 = 0x97,0x4 0098 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0099 e21f | | Load 0x1,0x1f ; Debug Table 0x3.0x5 = 0x99,0x5 009a 00d9 | | Load_Top At_Offset_1 009b 8221 | ! | Call 0x1,0x21 009c 6802 |h | Jump_Zero 0x9f 009d 4803 |H | Short_Literal 0x3 ; Debug Table 0x3.0x6 = 0x9d,0x6 009e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 009f 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x7 = 0x9f,0x7 00a0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00a1 0000 0000 | | .BLANK 0000[0x7] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00b3 | | .CONST 0x00b3 ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0002 | | .CONST 0x0002 ; Number of locals 00ab INIT_00a8: 00ab 00da | | Load_Top At_Offset_2 ; Debug Table 0x4 = .DEBUG 0x00ab,0x0f88,0x0002,0x0000,0x0036,0xbef4,0x0000,0x0124 ; Debug Table 0x4.0x0 = 0xab,0xffff 00ac 01dc | | Execute Vector,Last 00ad e5fe | | Load 0x2,-0x2 00ae 01dc | | Execute Vector,Last 00af 0272 | r | Execute Discrete,Minus 00b0 0248 | H | Execute Discrete,Check_In_Integer 00b1 00e2 | | Load_Encached Integer_Cache 00b2 03f1 | | Declare_Variable Discrete,With_Value 00b3 BODY_00a8: 00b3 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0x1 = 0xb3,0x1 00b4 01db | | Execute Vector,Length 00b5 e5fe | | Load 0x2,-0x2 00b6 01db | | Execute Vector,Length 00b7 027d | } | Execute Discrete,Greater 00b8 6817 |h | Jump_Zero 0xd0 00b9 00cf | | Action Mark_Auxiliary 00ba e5fe | | Load 0x2,-0x2 ; Debug Table 0x4.0x2 = 0xba,0x2 00bb 01d9 | | Execute Vector,Reverse_Bounds 00bc 0263 | c | Execute Discrete,Above_Bound 00bd 700f |p | Jump_Nonzero 0xcd 00be 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0x3 = 0xbe,0x3 00bf 00d9 | | Load_Top At_Offset_1 00c0 0273 | s | Execute Discrete,Plus 00c1 0248 | H | Execute Discrete,Check_In_Integer 00c2 e5ff | | Load 0x2,-0x1 00c3 01d7 | | Execute Vector,Field_Read 00c4 00d9 | | Load_Top At_Offset_1 00c5 e5fe | | Load 0x2,-0x2 00c6 01d7 | | Execute Vector,Field_Read 00c7 027e | ~ | Execute Discrete,Not_Equal 00c8 6802 |h | Jump_Zero 0xcb 00c9 4800 |H | Short_Literal 0x0 ; Debug Table 0x4.0x4 = 0xc9,0x4 00ca 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00cb 00c8 | | Action Pop_Auxiliary_Range 00cc 3ff1 |? | Loop_Increasing 0xbe 00cd 00ce | | Action Pop_Auxiliary 00ce 4801 |H | Short_Literal 0x1 ; Debug Table 0x4.0x5 = 0xce,0x5 00cf 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00d0 4800 |H | Short_Literal 0x0 ; Debug Table 0x4.0x6 = 0xd0,0x6 00d1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00d2 0000 0000 | | .XXX[0x2] 00d4 000c 2813 | ( | .LITERAL {0x000c2813, 0x00000eb0} 00d8 000c 2813 | ( | .LITERAL {0x000c2813, 0x0000a9b0} 00dc 000c 2813 | ( | .LITERAL {0x000c2813, 0x0000b130} 00e0 0000 0000 | | .LITERAL {0x00000000, 0x00000400} 00e4 0000 0000 | | .BLANK 0000[0x4] 00e8 01e9 0004 | | .XXX[0x3] 00ea 0092 | | 00eb 62c8 |b | Indirect_Literal Discrete,0x3b4,{0x00000000, 0x36ba6401} ; Debug Table 0x5 = .DEBUG 0x00eb,0x0f98,0x4000,0x0000,0x0036,0xba64,0x0000,0x0113 ; Debug Table 0x5.0x0 = 0xeb,0xffff 00ec 0129 | ) | Execute Any,Make_Visible 00ed 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x5.0x1 = 0xed,0xfffe 00ef 029a 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x5.0x2 = 0xef,0xfffd 00f1 00bf | | Action Accept_Activation 00f2 0007 | | Action Break_Optional ; Debug Table 0x6 = .DEBUG 0x00f2,0x0fa0,0x4000,0x0000,0x0036,0xbf04,0x0000,0x0008 ; Debug Table 0x6.0x0 = 0xf2,0xffff 00f3 0007 | | Action Break_Optional ; Debug Table 0x6.0x1 = 0xf3,0xfffe 00f4 0007 | | Action Break_Optional ; Debug Table 0x6.0x2 = 0xf4,0xfffd 00f5 481e |H | Short_Literal 0x1e ; Debug Table 0x6.0x3 = 0xf5,0xfffc 00f6 e001 | | Load 0x0,0x1 00f7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00f8 1c07 | | Execute_Immediate Run_Utility,0x7 00f9 4801 |H | Short_Literal 0x1 ; Debug Table 0x6.0x4 = 0xf9,0xfffb 00fa 4840 |H@ | Short_Literal 0x40 00fb e002 | | Load 0x0,0x2 00fc 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00fd 035b | [ | Declare_Type Array,Constrained 00fe e002 | | Load 0x0,0x2 ; Debug Table 0x6.0x5 = 0xfe,0xfffa 00ff 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0100 4801 |H | Short_Literal 0x1 ; Debug Table 0x6.0x6 = 0x100,0xfff9 0101 481e |H | Short_Literal 0x1e 0102 00e3 | | Load_Encached Natural_Cache 0103 03f8 | | Declare_Type Discrete,Constrained 0104 481f |H | Short_Literal 0x1f ; Debug Table 0x6.0x7 = 0x104,0xfff8 0105 4820 |H | Short_Literal 0x20 0106 00e3 | | Load_Encached Natural_Cache 0107 03f8 | | Declare_Type Discrete,Constrained 0108 4821 |H! | Short_Literal 0x21 ; Debug Table 0x6.0x8 = 0x108,0xfff7 0109 4822 |H" | Short_Literal 0x22 010a 00e3 | | Load_Encached Natural_Cache 010b 03f8 | | Declare_Type Discrete,Constrained 010c 4823 |H# | Short_Literal 0x23 ; Debug Table 0x6.0x9 = 0x10c,0xfff6 010d 4823 |H# | Short_Literal 0x23 010e 00e3 | | Load_Encached Natural_Cache 010f 03f8 | | Declare_Type Discrete,Constrained 0110 4824 |H$ | Short_Literal 0x24 ; Debug Table 0x6.0xa = 0x110,0xfff5 0111 4824 |H$ | Short_Literal 0x24 0112 00e3 | | Load_Encached Natural_Cache 0113 03f8 | | Declare_Type Discrete,Constrained 0114 4825 |H% | Short_Literal 0x25 ; Debug Table 0x6.0xb = 0x114,0xfff4 0115 4826 |H& | Short_Literal 0x26 0116 00e3 | | Load_Encached Natural_Cache 0117 03f8 | | Declare_Type Discrete,Constrained 0118 4827 |H' | Short_Literal 0x27 ; Debug Table 0x6.0xc = 0x118,0xfff3 0119 4828 |H( | Short_Literal 0x28 011a 00e3 | | Load_Encached Natural_Cache 011b 03f8 | | Declare_Type Discrete,Constrained 011c 4829 |H) | Short_Literal 0x29 ; Debug Table 0x6.0xd = 0x11c,0xfff2 011d 482a |H* | Short_Literal 0x2a 011e 00e3 | | Load_Encached Natural_Cache 011f 03f8 | | Declare_Type Discrete,Constrained 0120 482b |H+ | Short_Literal 0x2b ; Debug Table 0x6.0xe = 0x120,0xfff1 0121 4840 |H@ | Short_Literal 0x40 0122 00e3 | | Load_Encached Natural_Cache 0123 03f8 | | Declare_Type Discrete,Constrained 0124 0007 | | Action Break_Optional ; Debug Table 0x6.0xf = 0x124,0xfff0 0125 0007 | | Action Break_Optional ; Debug Table 0x6.0x10 = 0x125,0xffef 0126 e231 | 1 | Load 0x1,0x31 ; Debug Table 0x6.0x11 = 0x126,0xffee 0127 0337 | 7 | Declare_Variable Array 0128 4801 |H | Short_Literal 0x1 0129 4840 |H@ | Short_Literal 0x40 012a e003 | | Load 0x0,0x3 012b 1b12 | | Execute Package,Field_Read,Field_Number 0x12 012c 035b | [ | Declare_Type Array,Constrained 012d 0337 | 7 | Declare_Variable Array 012e 4840 |H@ | Short_Literal 0x40 012f 4801 |H | Short_Literal 0x1 0130 4800 |H | Short_Literal 0x0 0131 00d9 | | Load_Top At_Offset_1 0132 e23d | = | Load 0x1,0x3d 0133 01d6 | | Execute Vector,Field_Write 0134 3ffb |? | Loop_Increasing 0x130 0135 e231 | 1 | Load 0x1,0x31 0136 01c3 | | Execute Vector,Check_In_Type 0137 00d9 | | Load_Top At_Offset_1 0138 01d4 | | Execute Vector,Structure_Write 0139 0092 0b41 | A| Action Push_String_Extended,0xb41 ; "read " ; Debug Table 0x6.0x12 = 0x139,0xffed 013b 0092 0b42 | B| Action Push_String_Extended,0xb42 ; "write " ; Debug Table 0x6.0x13 = 0x13b,0xffec 013d 0092 0b43 | C| Action Push_String_Extended,0xb43 ; "Name_Error" ; Debug Table 0x6.0x14 = 0x13d,0xffeb 013f 0092 0b44 | D| Action Push_String_Extended,0xb44 ; "Use_Error" ; Debug Table 0x6.0x15 = 0x13f,0xffea 0141 0092 0b45 | E| Action Push_String_Extended,0xb45 ; "End_Error" ; Debug Table 0x6.0x16 = 0x141,0xffe9 0143 0092 0b46 | F| Action Push_String_Extended,0xb46 ; "Unexpected exception" ; Debug Table 0x6.0x17 = 0x143,0xffe8 0145 0092 0b47 | G| Action Push_String_Extended,0xb47 ; "Status_Error" ; Debug Table 0x6.0x18 = 0x145,0xffe7 0147 029b 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call,Unelaborated ; Debug Table 0x6.0x19 = 0x147,0xffff 0149 029b 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call,Unelaborated ; Debug Table 0x6.0x1a = 0x149,0xffff 014b 029b 03bb | | Declare_Subprogram INIT_03b8,For_Outer_Call,Unelaborated ; Debug Table 0x6.0x1b = 0x14b,0xffe4 014d 029b 03d3 | | Declare_Subprogram INIT_03d0,For_Outer_Call,Unelaborated ; Debug Table 0x6.0x1c = 0x14d,0xffe3 014f 029d 03e3 | | Declare_Subprogram INIT_03e0,For_Outer_Call ; Debug Table 0x6.0x1d = 0x14f,0xffe2 0151 029d 040b | | Declare_Subprogram INIT_0408,For_Outer_Call ; Debug Table 0x6.0x1e = 0x151,0xffe1 0153 029d 042b | +| Declare_Subprogram INIT_0428,For_Outer_Call ; Debug Table 0x6.0x1f = 0x153,0xffe0 0155 029d 0443 | C| Declare_Subprogram INIT_0440,For_Outer_Call ; Debug Table 0x6.0x20 = 0x155,0xffdf 0157 029d 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call ; Debug Table 0x6.0x21 = 0x157,0xffde 0159 029d 0483 | | Declare_Subprogram INIT_0480,For_Outer_Call ; Debug Table 0x6.0x22 = 0x159,0xffdd 015b 029d 04a3 | | Declare_Subprogram INIT_04a0,For_Outer_Call ; Debug Table 0x6.0x23 = 0x15b,0xffdc 015d 029d 04b3 | | Declare_Subprogram INIT_04b0,For_Outer_Call ; Debug Table 0x6.0x24 = 0x15d,0xffdb 015f 1d46 | F | Execute_Immediate Reference_Lex_1,0x46 ; Debug Table 0x6.0x25 = 0x15f,0xffda 0160 00c7 | | Action Elaborate_Subprogram 0161 1d47 | G | Execute_Immediate Reference_Lex_1,0x47 ; Debug Table 0x6.0x26 = 0x161,0xffd9 0162 00c7 | | Action Elaborate_Subprogram 0163 1d46 | F | Execute_Immediate Reference_Lex_1,0x46 ; Debug Table 0x6.0x27 = 0x163,0xffd8 0164 00c6 | | Action Check_Subprogram_Elaborated 0165 e002 | | Load 0x0,0x2 0166 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0167 6248 |bH | Indirect_Literal Discrete,0x3b0,{0x00000000, 0x0036bf04} 0168 4af9 |J | Short_Literal 0x2f9 0169 4800 |H | Short_Literal 0x0 016a 0007 | | Action Break_Optional 016b 1d46 | F | Execute_Immediate Reference_Lex_1,0x46 ; Debug Table 0x6.0x28 = 0x16b,0xffd7 016c 00c6 | | Action Check_Subprogram_Elaborated 016d e002 | | Load 0x0,0x2 016e 1b14 | | Execute Package,Field_Read,Field_Number 0x14 016f 6240 |b@ | Indirect_Literal Discrete,0x3b0,{0x00000000, 0x0036bf04} 0170 4b01 |K | Short_Literal 0x301 0171 4800 |H | Short_Literal 0x0 0172 0007 | | Action Break_Optional 0173 1d46 | F | Execute_Immediate Reference_Lex_1,0x46 ; Debug Table 0x6.0x29 = 0x173,0xffd6 0174 00c6 | | Action Check_Subprogram_Elaborated 0175 e004 | | Load 0x0,0x4 0176 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0177 6238 |b8 | Indirect_Literal Discrete,0x3b0,{0x00000000, 0x0036bf04} 0178 4b09 |K | Short_Literal 0x309 0179 4800 |H | Short_Literal 0x0 017a 0007 | | Action Break_Optional 017b 029d 04cb | | Declare_Subprogram INIT_04c8,For_Outer_Call ; Debug Table 0x6.0x2a = 0x17b,0xffd5 017d 1d47 | G | Execute_Immediate Reference_Lex_1,0x47 017e 00c6 | | Action Check_Subprogram_Elaborated 017f e002 | | Load 0x0,0x2 0180 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0181 4800 |H | Short_Literal 0x0 0182 1d5c | \ | Execute_Immediate Reference_Lex_1,0x5c 0183 622c |b, | Indirect_Literal Discrete,0x3b0,{0x00000000, 0x0036bf04} 0184 4b13 |K | Short_Literal 0x313 0185 4800 |H | Short_Literal 0x0 0186 0007 | | Action Break_Optional 0187 029d 04db | | Declare_Subprogram INIT_04d8,For_Outer_Call ; Debug Table 0x6.0x2b = 0x187,0xffd4 0189 1d47 | G | Execute_Immediate Reference_Lex_1,0x47 018a 00c6 | | Action Check_Subprogram_Elaborated 018b e002 | | Load 0x0,0x2 018c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 018d 4800 |H | Short_Literal 0x0 018e 1d63 | c | Execute_Immediate Reference_Lex_1,0x63 018f 6220 |b | Indirect_Literal Discrete,0x3b0,{0x00000000, 0x0036bf04} 0190 4b1f |K | Short_Literal 0x31f 0191 4800 |H | Short_Literal 0x0 0192 0007 | | Action Break_Optional 0193 029d 04eb | | Declare_Subprogram INIT_04e8,For_Outer_Call ; Debug Table 0x6.0x2c = 0x193,0xffd3 0195 1d47 | G | Execute_Immediate Reference_Lex_1,0x47 0196 00c6 | | Action Check_Subprogram_Elaborated 0197 e004 | | Load 0x0,0x4 0198 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0199 4800 |H | Short_Literal 0x0 019a 1d6a | j | Execute_Immediate Reference_Lex_1,0x6a 019b 6214 |b | Indirect_Literal Discrete,0x3b0,{0x00000000, 0x0036bf04} 019c 4b2b |K+ | Short_Literal 0x32b 019d 4800 |H | Short_Literal 0x0 019e 0007 | | Action Break_Optional 019f 029d 04fb | | Declare_Subprogram INIT_04f8,For_Outer_Call ; Debug Table 0x6.0x2d = 0x19f,0xffd2 01a1 1d47 | G | Execute_Immediate Reference_Lex_1,0x47 01a2 00c6 | | Action Check_Subprogram_Elaborated 01a3 e004 | | Load 0x0,0x4 01a4 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01a5 4805 |H | Short_Literal 0x5 01a6 1d71 | q | Execute_Immediate Reference_Lex_1,0x71 01a7 6208 |b | Indirect_Literal Discrete,0x3b0,{0x00000000, 0x0036bf04} 01a8 4b39 |K9 | Short_Literal 0x339 01a9 4800 |H | Short_Literal 0x0 01aa 0007 | | Action Break_Optional 01ab 0007 | | Action Break_Optional ; Debug Table 0x6.0x2e = 0x1ab,0xffff 01ac 0007 | | Action Break_Optional ; Debug Table 0x6.0x2f = 0x1ac,0xfffe 01ad 0092 0b48 | H| Action Push_String_Extended,0xb48 ; "Tape to File System " ; Debug Table 0x6.0x30 = 0x1ad,0xfffd 01af 029b 050b | | Declare_Subprogram INIT_0508,For_Outer_Call,Unelaborated ; Debug Table 0x6.0x31 = 0x1af,0xfffc 01b1 1d79 | y | Execute_Immediate Reference_Lex_1,0x79 ; Debug Table 0x6.0x32 = 0x1b1,0xfffb 01b2 00c7 | | Action Elaborate_Subprogram 01b3 029d 058b | | Declare_Subprogram INIT_0588,For_Outer_Call ; Debug Table 0x6.0x33 = 0x1b3,0xfffa 01b5 1d79 | y | Execute_Immediate Reference_Lex_1,0x79 ; Debug Table 0x6.0x34 = 0x1b5,0xfff9 01b6 00c6 | | Action Check_Subprogram_Elaborated 01b7 e20f | | Load 0x1,0xf 01b8 1d11 | | Execute_Immediate Reference_Lex_1,0x11 01b9 1d19 | | Execute_Immediate Reference_Lex_1,0x19 01ba 1d12 | | Execute_Immediate Reference_Lex_1,0x12 01bb 61f0 |a | Indirect_Literal Discrete,0x3ac,{0x00000000, 0x0036bf94} 01bc 4939 |I9 | Short_Literal 0x139 01bd 4800 |H | Short_Literal 0x0 01be 0007 | | Action Break_Optional 01bf 029d 05b3 | | Declare_Subprogram INIT_05b0,For_Outer_Call ; Debug Table 0x6.0x35 = 0x1bf,0xfff8 01c1 029d 05cb | | Declare_Subprogram INIT_05c8,For_Outer_Call ; Debug Table 0x6.0x36 = 0x1c1,0xfff7 01c3 029d 0643 | C| Declare_Subprogram INIT_0640,For_Outer_Call ; Debug Table 0x6.0x37 = 0x1c3,0xfff6 01c5 029d 067b | {| Declare_Subprogram INIT_0678,For_Outer_Call ; Debug Table 0x6.0x38 = 0x1c5,0xfff5 01c7 029d 068b | | Declare_Subprogram INIT_0688,For_Outer_Call ; Debug Table 0x6.0x39 = 0x1c7,0xfff4 01c9 029d 070b | | Declare_Subprogram INIT_0708,For_Outer_Call ; Debug Table 0x6.0x3a = 0x1c9,0xfff3 01cb 029d 0773 | s| Declare_Subprogram INIT_0770,For_Outer_Call ; Debug Table 0x6.0x3b = 0x1cb,0xfff2 01cd 1d44 | D | Execute_Immediate Reference_Lex_1,0x44 ; Debug Table 0x6.0x3c = 0x1cd,0xfff1 01ce 00c7 | | Action Elaborate_Subprogram 01cf 029d 07cb | | Declare_Subprogram INIT_07c8,For_Outer_Call ; Debug Table 0x6.0x3d = 0x1cf,0xffff 01d1 029d 07fb | | Declare_Subprogram INIT_07f8,For_Outer_Call ; Debug Table 0x6.0x3e = 0x1d1,0xfffe 01d3 029d 080b | | Declare_Subprogram INIT_0808,For_Outer_Call ; Debug Table 0x6.0x3f = 0x1d3,0xfffd 01d5 029d 084b | K| Declare_Subprogram INIT_0848,For_Outer_Call ; Debug Table 0x6.0x40 = 0x1d5,0xfffc 01d7 029d 08fb | | Declare_Subprogram INIT_08f8,For_Outer_Call ; Debug Table 0x6.0x41 = 0x1d7,0xfffb 01d9 029d 0913 | | Declare_Subprogram INIT_0910,For_Outer_Call ; Debug Table 0x6.0x42 = 0x1d9,0xfffa 01db 029d 0923 | #| Declare_Subprogram INIT_0920,For_Outer_Call ; Debug Table 0x6.0x43 = 0x1db,0xfff9 01dd 029d 093b | ;| Declare_Subprogram INIT_0938,For_Outer_Call ; Debug Table 0x6.0x44 = 0x1dd,0xfff8 01df 1d45 | E | Execute_Immediate Reference_Lex_1,0x45 ; Debug Table 0x6.0x45 = 0x1df,0xfff7 01e0 00c7 | | Action Elaborate_Subprogram 01e1 029d 0973 | s| Declare_Subprogram INIT_0970,For_Outer_Call ; Debug Table 0x6.0x46 = 0x1e1,0xffcf 01e3 029d 09cb | | Declare_Subprogram INIT_09c8,For_Outer_Call ; Debug Table 0x6.0x47 = 0x1e3,0xffce 01e5 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e ; Debug Table 0x6.0x48 = 0x1e5,0xffcd 01e6 00c7 | | Action Elaborate_Subprogram 01e7 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f ; Debug Table 0x6.0x49 = 0x1e7,0xffcc 01e8 00c7 | | Action Elaborate_Subprogram 01e9 e23c | < | Load 0x1,0x3c ; Debug Table 0x6.0x4a = 0x1e9,0x1 01ea 4829 |H) | Short_Literal 0x29 01eb 482a |H* | Short_Literal 0x2a 01ec 00da | | Load_Top At_Offset_2 01ed 035b | [ | Declare_Type Array,Constrained 01ee 00d0 | | Action Swap_Control 01ef 01cd | | Execute Vector,Slice_Reference 01f0 4801 |H | Short_Literal 0x1 01f1 8249 | I | Call 0x1,0x49 01f2 00d1 | | Pop_Control Pop_Count_1 01f3 e23c | < | Load 0x1,0x3c ; Debug Table 0x6.0x4b = 0x1f3,0x2 01f4 4827 |H' | Short_Literal 0x27 01f5 4828 |H( | Short_Literal 0x28 01f6 00da | | Load_Top At_Offset_2 01f7 035b | [ | Declare_Type Array,Constrained 01f8 00d0 | | Action Swap_Control 01f9 01cd | | Execute Vector,Slice_Reference 01fa 61ad |a | Indirect_Literal Discrete,0x3a8,{0x00000000, 0x0000a621} 01fb 8249 | I | Call 0x1,0x49 01fc 00d1 | | Pop_Control Pop_Count_1 01fd 00bc | | Action Signal_Activated 01fe 00bb | | Action Signal_Completion 01ff 0000 | | .XXX[0x1] 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 020e | | .CONST 0x020e ; Address of begin 0201 0252 | R | .CONST 0x0252 ; Address of exception handler 0202 0005 | | .CONST 0x0005 ; Number of locals 0203 INIT_0200: 0203 e21c | | Load 0x1,0x1c ; Debug Table 0x7 = .DEBUG 0x0203,0x103a,0x1001,0x0000,0x0036,0xba64,0x0000,0x0294 ; Debug Table 0x7.0x0 = 0x203,0xffff 0204 02c7 | | Declare_Variable Any 0205 00d8 | | Load_Top At_Offset_0 0206 1c00 | | Execute_Immediate Run_Utility,0x0 0207 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x7.0x1 = 0x207,0xfffe 0208 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0209 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x7.0x2 = 0x209,0xfffd 020a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 020b e002 | | Load 0x0,0x2 ; Debug Table 0x7.0x3 = 0x20b,0xfffc 020c 1b16 | | Execute Package,Field_Read,Field_Number 0x16 020d 0322 | " | Declare_Variable Record 020e BODY_0200: 020e 00db | | Load_Top At_Offset_3 ; Debug Table 0x7.0x4 = 0x20e,0x1 020f 0120 | | Execute Any,Is_Value 0210 6802 |h | Jump_Zero 0x213 0211 e21c | | Load 0x1,0x1c 0212 7803 |x | Jump 0x216 0213 00db | | Load_Top At_Offset_3 0214 e21c | | Load 0x1,0x1c 0215 0119 | | Execute Any,Check_In_Formal_Type 0216 e5fe | | Load 0x2,-0x2 0217 e210 | | Load 0x1,0x10 0218 0119 | | Execute Any,Check_In_Formal_Type 0219 4800 |H | Short_Literal 0x0 021a e5ff | | Load 0x2,-0x1 021b e21b | | Load 0x1,0x1b 021c 0119 | | Execute Any,Check_In_Formal_Type 021d 8291 | | Call 0x1,0x91 021e c402 | | Store 0x2,0x2 021f 4801 |H | Short_Literal 0x1 ; Debug Table 0x7.0x5 = 0x21f,0x2 0220 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0221 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x6 = 0x221,0x3 0222 e005 | | Load 0x0,0x5 0223 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0224 66bb |f | Indirect_Literal Discrete,0xe0,{0x00000000, 0x00000400} 0225 e402 | | Load 0x2,0x2 0226 e21c | | Load 0x1,0x1c 0227 0119 | | Execute Any,Check_In_Formal_Type 0228 8225 | % | Call 0x1,0x25 0229 00d1 | | Pop_Control Pop_Count_1 022a 4801 |H | Short_Literal 0x1 ; Debug Table 0x7.0x7 = 0x22a,0x4 022b 0092 0b49 | I| Action Push_String_Extended,0xb49 ; "Begin_Streaming_Read" 022d 00da | | Load_Top At_Offset_2 022e 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 022f e26b | k | Load 0x1,0x6b 0230 e26c | l | Load 0x1,0x6c 0231 1d6d | m | Execute_Immediate Reference_Lex_1,0x6d 0232 1d6e | n | Execute_Immediate Reference_Lex_1,0x6e 0233 8247 | G | Call 0x1,0x47 0234 4801 |H | Short_Literal 0x1 ; Debug Table 0x7.0x8 = 0x234,0x5 0235 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0236 00db | | Load_Top At_Offset_3 ; Debug Table 0x7.0x9 = 0x236,0x6 0237 e5fe | | Load 0x2,-0x2 0238 e210 | | Load 0x1,0x10 0239 0119 | | Execute Any,Check_In_Formal_Type 023a 8244 | D | Call 0x1,0x44 023b c402 | | Store 0x2,0x2 023c 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0xa = 0x23c,0x7 023d e402 | | Load 0x2,0x2 023e e21c | | Load 0x1,0x1c 023f 0119 | | Execute Any,Check_In_Formal_Type 0240 8226 | & | Call 0x1,0x26 0241 00d1 | | Pop_Control Pop_Count_1 0242 4801 |H | Short_Literal 0x1 ; Debug Table 0x7.0xb = 0x242,0x8 0243 0092 0b4a | J| Action Push_String_Extended,0xb4a ; "End_Streaming_Read" 0245 00da | | Load_Top At_Offset_2 0246 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0247 e26b | k | Load 0x1,0x6b 0248 e26c | l | Load 0x1,0x6c 0249 1d6d | m | Execute_Immediate Reference_Lex_1,0x6d 024a 1d6e | n | Execute_Immediate Reference_Lex_1,0x6e 024b 8247 | G | Call 0x1,0x47 024c 4800 |H | Short_Literal 0x0 ; Debug Table 0x7.0xc = 0x24c,0x9 024d 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 024e 00db | | Load_Top At_Offset_3 ; Debug Table 0x7.0xd = 0x24e,0xa 024f 8292 | | Call 0x1,0x92 0250 c402 | | Store 0x2,0x2 0251 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0252 TRAP_0200: 0252 e22d | - | Load 0x1,0x2d 0253 010f | | Execute Exception,Equal 0254 6819 |h | Jump_Zero 0x26e 0255 00da | | Load_Top At_Offset_2 ; Debug Table 0x7.0xe = 0x255,0xb 0256 6810 |h | Jump_Zero 0x267 0257 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0xf = 0x257,0xc 0258 e402 | | Load 0x2,0x2 0259 e21c | | Load 0x1,0x1c 025a 0119 | | Execute Any,Check_In_Formal_Type 025b 8226 | & | Call 0x1,0x26 025c 00d1 | | Pop_Control Pop_Count_1 025d 4800 |H | Short_Literal 0x0 ; Debug Table 0x7.0x10 = 0x25d,0xd 025e 0092 0b4a | J| Action Push_String_Extended,0xb4a ; "End_Streaming_Read" 0260 00db | | Load_Top At_Offset_3 0261 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0262 e26b | k | Load 0x1,0x6b 0263 e26c | l | Load 0x1,0x6c 0264 1d6d | m | Execute_Immediate Reference_Lex_1,0x6d 0265 1d6e | n | Execute_Immediate Reference_Lex_1,0x6e 0266 8247 | G | Call 0x1,0x47 0267 00db | | Load_Top At_Offset_3 ; Debug Table 0x7.0x11 = 0x267,0xe 0268 6803 |h | Jump_Zero 0x26c 0269 e402 | | Load 0x2,0x2 ; Debug Table 0x7.0x12 = 0x269,0xf 026a 8292 | | Call 0x1,0x92 026b c402 | | Store 0x2,0x2 026c 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x13 = 0x26c,0x10 026d 0101 | | Execute Exception,Reraise 026e 4800 |H | Short_Literal 0x0 ; Debug Table 0x7.0x14 = 0x26e,0x11 026f 0092 0b4b | K| Action Push_String_Extended,0xb4b ; "Unexpected tape read exception" 0271 824e | N | Call 0x1,0x4e 0272 00da | | Load_Top At_Offset_2 ; Debug Table 0x7.0x15 = 0x272,0x12 0273 6810 |h | Jump_Zero 0x284 0274 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0x16 = 0x274,0x13 0275 e402 | | Load 0x2,0x2 0276 e21c | | Load 0x1,0x1c 0277 0119 | | Execute Any,Check_In_Formal_Type 0278 8226 | & | Call 0x1,0x26 0279 00d1 | | Pop_Control Pop_Count_1 027a 4800 |H | Short_Literal 0x0 ; Debug Table 0x7.0x17 = 0x27a,0x14 027b 0092 0b4a | J| Action Push_String_Extended,0xb4a ; "End_Streaming_Read" 027d 00db | | Load_Top At_Offset_3 027e 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 027f e26b | k | Load 0x1,0x6b 0280 e26c | l | Load 0x1,0x6c 0281 1d6d | m | Execute_Immediate Reference_Lex_1,0x6d 0282 1d6e | n | Execute_Immediate Reference_Lex_1,0x6e 0283 8247 | G | Call 0x1,0x47 0284 00db | | Load_Top At_Offset_3 ; Debug Table 0x7.0x18 = 0x284,0x15 0285 6803 |h | Jump_Zero 0x289 0286 e402 | | Load 0x2,0x2 ; Debug Table 0x7.0x19 = 0x286,0x16 0287 8292 | | Call 0x1,0x92 0288 c402 | | Store 0x2,0x2 0289 e22d | - | Load 0x1,0x2d ; Debug Table 0x7.0x1a = 0x289,0x17 028a 0257 | W | Execute Discrete,Raise 028b 0000 0000 | | .BLANK 0000[0x5] 0290 ; -------------------------------------------------------------------------------------- 0290 ; SUBPROGRAM 0290 ; -------------------------------------------------------------------------------------- 0290 029e | | .CONST 0x029e ; Address of begin 0291 02e4 | | .CONST 0x02e4 ; Address of exception handler 0292 0005 | | .CONST 0x0005 ; Number of locals 0293 INIT_0290: 0293 e21c | | Load 0x1,0x1c ; Debug Table 0x8 = .DEBUG 0x0293,0x1072,0x1001,0x0000,0x0036,0xba64,0x0000,0x02a0 ; Debug Table 0x8.0x0 = 0x293,0xffff 0294 02c7 | | Declare_Variable Any 0295 00d8 | | Load_Top At_Offset_0 0296 1c00 | | Execute_Immediate Run_Utility,0x0 0297 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x8.0x1 = 0x297,0xfffe 0298 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0299 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x8.0x2 = 0x299,0xfffd 029a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 029b e002 | | Load 0x0,0x2 ; Debug Table 0x8.0x3 = 0x29b,0xfffc 029c 1b16 | | Execute Package,Field_Read,Field_Number 0x16 029d 0322 | " | Declare_Variable Record 029e BODY_0290: 029e 00db | | Load_Top At_Offset_3 ; Debug Table 0x8.0x4 = 0x29e,0x1 029f 0120 | | Execute Any,Is_Value 02a0 6802 |h | Jump_Zero 0x2a3 02a1 e21c | | Load 0x1,0x1c 02a2 7803 |x | Jump 0x2a6 02a3 00db | | Load_Top At_Offset_3 02a4 e21c | | Load 0x1,0x1c 02a5 0119 | | Execute Any,Check_In_Formal_Type 02a6 e5fc | | Load 0x2,-0x4 02a7 e210 | | Load 0x1,0x10 02a8 0119 | | Execute Any,Check_In_Formal_Type 02a9 4801 |H | Short_Literal 0x1 02aa e5ff | | Load 0x2,-0x1 02ab e21b | | Load 0x1,0x1b 02ac 0119 | | Execute Any,Check_In_Formal_Type 02ad 8291 | | Call 0x1,0x91 02ae c402 | | Store 0x2,0x2 02af 4801 |H | Short_Literal 0x1 ; Debug Table 0x8.0x5 = 0x2af,0x2 02b0 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 02b1 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x8.0x6 = 0x2b1,0x3 02b2 e005 | | Load 0x0,0x5 02b3 181c | | Execute Package,Field_Execute,Field_Number 0x1c 02b4 662b |f+ | Indirect_Literal Discrete,0xe0,{0x00000000, 0x00000400} 02b5 e402 | | Load 0x2,0x2 02b6 e21c | | Load 0x1,0x1c 02b7 0119 | | Execute Any,Check_In_Formal_Type 02b8 8227 | ' | Call 0x1,0x27 02b9 00d1 | | Pop_Control Pop_Count_1 02ba 4801 |H | Short_Literal 0x1 ; Debug Table 0x8.0x7 = 0x2ba,0x4 02bb 0092 0b4c | L| Action Push_String_Extended,0xb4c ; "Begin_Streaming_Write" 02bd 00da | | Load_Top At_Offset_2 02be 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 02bf e26b | k | Load 0x1,0x6b 02c0 e26c | l | Load 0x1,0x6c 02c1 1d6d | m | Execute_Immediate Reference_Lex_1,0x6d 02c2 1d6e | n | Execute_Immediate Reference_Lex_1,0x6e 02c3 8247 | G | Call 0x1,0x47 02c4 4801 |H | Short_Literal 0x1 ; Debug Table 0x8.0x8 = 0x2c4,0x5 02c5 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 02c6 00db | | Load_Top At_Offset_3 ; Debug Table 0x8.0x9 = 0x2c6,0x6 02c7 e5fc | | Load 0x2,-0x4 02c8 e210 | | Load 0x1,0x10 02c9 0119 | | Execute Any,Check_In_Formal_Type 02ca e5fd | | Load 0x2,-0x3 02cb e5fe | | Load 0x2,-0x2 02cc 8245 | E | Call 0x1,0x45 02cd c402 | | Store 0x2,0x2 02ce 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x8.0xa = 0x2ce,0x7 02cf e402 | | Load 0x2,0x2 02d0 e21c | | Load 0x1,0x1c 02d1 0119 | | Execute Any,Check_In_Formal_Type 02d2 8228 | ( | Call 0x1,0x28 02d3 00d1 | | Pop_Control Pop_Count_1 02d4 4801 |H | Short_Literal 0x1 ; Debug Table 0x8.0xb = 0x2d4,0x8 02d5 0092 0b4d | M| Action Push_String_Extended,0xb4d ; "End_Streaming_Write" 02d7 00da | | Load_Top At_Offset_2 02d8 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 02d9 e26b | k | Load 0x1,0x6b 02da e26c | l | Load 0x1,0x6c 02db 1d6d | m | Execute_Immediate Reference_Lex_1,0x6d 02dc 1d6e | n | Execute_Immediate Reference_Lex_1,0x6e 02dd 8247 | G | Call 0x1,0x47 02de 4800 |H | Short_Literal 0x0 ; Debug Table 0x8.0xc = 0x2de,0x9 02df 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 02e0 00db | | Load_Top At_Offset_3 ; Debug Table 0x8.0xd = 0x2e0,0xa 02e1 8292 | | Call 0x1,0x92 02e2 c402 | | Store 0x2,0x2 02e3 4505 |E | Exit_Suprogram New_Top_Offset 0x5 02e4 TRAP_0290: 02e4 e22d | - | Load 0x1,0x2d 02e5 010f | | Execute Exception,Equal 02e6 6819 |h | Jump_Zero 0x300 02e7 00da | | Load_Top At_Offset_2 ; Debug Table 0x8.0xe = 0x2e7,0xb 02e8 6810 |h | Jump_Zero 0x2f9 02e9 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x8.0xf = 0x2e9,0xc 02ea e402 | | Load 0x2,0x2 02eb e21c | | Load 0x1,0x1c 02ec 0119 | | Execute Any,Check_In_Formal_Type 02ed 8228 | ( | Call 0x1,0x28 02ee 00d1 | | Pop_Control Pop_Count_1 02ef 4800 |H | Short_Literal 0x0 ; Debug Table 0x8.0x10 = 0x2ef,0xd 02f0 0092 0b4d | M| Action Push_String_Extended,0xb4d ; "End_Streaming_Write" 02f2 00db | | Load_Top At_Offset_3 02f3 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 02f4 e26b | k | Load 0x1,0x6b 02f5 e26c | l | Load 0x1,0x6c 02f6 1d6d | m | Execute_Immediate Reference_Lex_1,0x6d 02f7 1d6e | n | Execute_Immediate Reference_Lex_1,0x6e 02f8 8247 | G | Call 0x1,0x47 02f9 00db | | Load_Top At_Offset_3 ; Debug Table 0x8.0x11 = 0x2f9,0xe 02fa 6803 |h | Jump_Zero 0x2fe 02fb e402 | | Load 0x2,0x2 ; Debug Table 0x8.0x12 = 0x2fb,0xf 02fc 8292 | | Call 0x1,0x92 02fd c402 | | Store 0x2,0x2 02fe 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x8.0x13 = 0x2fe,0x10 02ff 0101 | | Execute Exception,Reraise 0300 4800 |H | Short_Literal 0x0 ; Debug Table 0x8.0x14 = 0x300,0x11 0301 0092 0b4e | N| Action Push_String_Extended,0xb4e ; "Unexpected tape write exception" 0303 824e | N | Call 0x1,0x4e 0304 00da | | Load_Top At_Offset_2 ; Debug Table 0x8.0x15 = 0x304,0x12 0305 6810 |h | Jump_Zero 0x316 0306 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x8.0x16 = 0x306,0x13 0307 e402 | | Load 0x2,0x2 0308 e21c | | Load 0x1,0x1c 0309 0119 | | Execute Any,Check_In_Formal_Type 030a 8228 | ( | Call 0x1,0x28 030b 00d1 | | Pop_Control Pop_Count_1 030c 4800 |H | Short_Literal 0x0 ; Debug Table 0x8.0x17 = 0x30c,0x14 030d 0092 0b4d | M| Action Push_String_Extended,0xb4d ; "End_Streaming_Write" 030f 00db | | Load_Top At_Offset_3 0310 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0311 e26b | k | Load 0x1,0x6b 0312 e26c | l | Load 0x1,0x6c 0313 1d6d | m | Execute_Immediate Reference_Lex_1,0x6d 0314 1d6e | n | Execute_Immediate Reference_Lex_1,0x6e 0315 8247 | G | Call 0x1,0x47 0316 00db | | Load_Top At_Offset_3 ; Debug Table 0x8.0x18 = 0x316,0x15 0317 6803 |h | Jump_Zero 0x31b 0318 e402 | | Load 0x2,0x2 ; Debug Table 0x8.0x19 = 0x318,0x16 0319 8292 | | Call 0x1,0x92 031a c402 | | Store 0x2,0x2 031b e22d | - | Load 0x1,0x2d ; Debug Table 0x8.0x1a = 0x31b,0x17 031c 0257 | W | Execute Discrete,Raise 031d 0000 0000 | | .XXX[0x3] 031f 0000 | | 0320 ; -------------------------------------------------------------------------------------- 0320 ; SUBPROGRAM 0320 ; -------------------------------------------------------------------------------------- 0320 032d | - | .CONST 0x032d ; Address of begin 0321 0004 | | .CONST 0x0004 ; Address of exception handler 0322 0006 | | .CONST 0x0006 ; Number of locals 0323 INIT_0320: 0323 e230 | 0 | Load 0x1,0x30 ; Debug Table 0x9 = .DEBUG 0x0323,0x10aa,0x1001,0x0000,0x0036,0xbf04,0x0000,0x00c6 ; Debug Table 0x9.0x0 = 0x323,0xffff 0324 02ff | | Declare_Variable Variant_Record 0325 00d8 | | Load_Top At_Offset_0 0326 1c00 | | Execute_Immediate Run_Utility,0x0 0327 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x9.0x1 = 0x327,0xfffe 0328 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x9.0x2 = 0x328,0xfffd 0329 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x9.0x3 = 0x329,0xfffc 032a e002 | | Load 0x0,0x2 ; Debug Table 0x9.0x4 = 0x32a,0xfffb 032b 1b16 | | Execute Package,Field_Read,Field_Number 0x16 032c 0322 | " | Declare_Variable Record 032d BODY_0320: 032d 00cf | | Action Mark_Auxiliary 032e 0007 | | Action Break_Optional ; Debug Table 0x9.0x5 = 0x32e,0x1 032f 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x9.0x6 = 0x32f,0x2 0330 00e3 | | Load_Encached Natural_Cache 0331 00e3 | | Load_Encached Natural_Cache 0332 e402 | | Load 0x2,0x2 0333 e5fe | | Load 0x2,-0x2 0334 e21c | | Load 0x1,0x1c 0335 0119 | | Execute Any,Check_In_Formal_Type 0336 8288 | | Call 0x1,0x88 0337 00d1 | | Pop_Control Pop_Count_1 0338 c403 | | Store 0x2,0x3 0339 c404 | | Store 0x2,0x4 033a 005b | [ | Store_Top Discrete,At_Offset_3 033b 00da | | Load_Top At_Offset_2 ; Debug Table 0x9.0x7 = 0x33b,0x3 033c 700e |p | Jump_Nonzero 0x34b 033d e5ff | | Load 0x2,-0x1 ; Debug Table 0x9.0x8 = 0x33d,0x4 033e e210 | | Load 0x1,0x10 033f 0119 | | Execute Any,Check_In_Formal_Type 0340 e402 | | Load 0x2,0x2 0341 e001 | | Load 0x0,0x1 0342 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0343 e404 | | Load 0x2,0x4 0344 e403 | | Load 0x2,0x3 0345 e5fe | | Load 0x2,-0x2 0346 e21c | | Load 0x1,0x1c 0347 0119 | | Execute Any,Check_In_Formal_Type 0348 8287 | | Call 0x1,0x87 0349 00c9 | | Action Pop_Auxiliary_Loop 034a 7fe4 | | Jump 0x32f 034b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 034c 0000 0000 | | .BLANK 0000[0x4] 0350 ; -------------------------------------------------------------------------------------- 0350 ; SUBPROGRAM 0350 ; -------------------------------------------------------------------------------------- 0350 035a | Z | .CONST 0x035a ; Address of begin 0351 0004 | | .CONST 0x0004 ; Address of exception handler 0352 0003 | | .CONST 0x0003 ; Number of locals 0353 INIT_0350: 0353 e20f | | Load 0x1,0xf ; Debug Table 0xa = .DEBUG 0x0353,0x10be,0x1001,0x0000,0x0036,0xbf04,0x0000,0x00d7 ; Debug Table 0xa.0x0 = 0x353,0xffff 0354 02c7 | | Declare_Variable Any 0355 00d8 | | Load_Top At_Offset_0 0356 1c00 | | Execute_Immediate Run_Utility,0x0 0357 e002 | | Load 0x0,0x2 ; Debug Table 0xa.0x1 = 0x357,0xfffe 0358 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0359 0322 | " | Declare_Variable Record 035a BODY_0350: 035a e5fe | | Load 0x2,-0x2 ; Debug Table 0xa.0x2 = 0x35a,0x1 035b 6824 |h$ | Jump_Zero 0x380 035c 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xa.0x3 = 0x35c,0x2 035d 0120 | | Execute Any,Is_Value 035e 6802 |h | Jump_Zero 0x361 035f e20f | | Load 0x1,0xf 0360 7803 |x | Jump 0x364 0361 00d9 | | Load_Top At_Offset_1 0362 e20f | | Load 0x1,0xf 0363 0119 | | Execute Any,Check_In_Formal_Type 0364 e5fd | | Load 0x2,-0x3 0365 e210 | | Load 0x1,0x10 0366 0119 | | Execute Any,Check_In_Formal_Type 0367 4801 |H | Short_Literal 0x1 0368 e5ff | | Load 0x2,-0x1 0369 8211 | | Call 0x1,0x11 036a c402 | | Store 0x2,0x2 036b 00cf | | Action Mark_Auxiliary 036c 7809 |x | Jump 0x376 036d 00da | | Load_Top At_Offset_2 ; Debug Table 0xa.0x4 = 0x36d,0x4 036e e5fc | | Load 0x2,-0x4 036f e5fd | | Load 0x2,-0x3 0370 e210 | | Load 0x1,0x10 0371 0119 | | Execute Any,Check_In_Formal_Type 0372 8290 | | Call 0x1,0x90 0373 c5fc | | Store 0x2,-0x4 0374 c402 | | Store 0x2,0x2 0375 00c9 | | Action Pop_Auxiliary_Loop 0376 00da | | Load_Top At_Offset_2 ; Debug Table 0xa.0x5 = 0x376,0x3 0377 e20f | | Load 0x1,0xf 0378 0119 | | Execute Any,Check_In_Formal_Type 0379 8213 | | Call 0x1,0x13 037a 6ff2 |o | Jump_Zero 0x36d 037b 00ce | | Action Pop_Auxiliary 037c 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xa.0x6 = 0x37c,0x5 037d 8212 | | Call 0x1,0x12 037e c402 | | Store 0x2,0x2 037f 7807 |x | Jump 0x387 0380 e5fc | | Load 0x2,-0x4 ; Debug Table 0xa.0x7 = 0x380,0x6 0381 e5fd | | Load 0x2,-0x3 0382 e210 | | Load 0x1,0x10 0383 0119 | | Execute Any,Check_In_Formal_Type 0384 e5ff | | Load 0x2,-0x1 0385 828c | | Call 0x1,0x8c 0386 c5fc | | Store 0x2,-0x4 0387 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0x8 = 0x387,0x7 0388 e5fc | | Load 0x2,-0x4 0389 8289 | | Call 0x1,0x89 038a c5fc | | Store 0x2,-0x4 038b 00d1 | | Pop_Control Pop_Count_1 038c 4801 |H | Short_Literal 0x1 ; Debug Table 0xa.0x9 = 0x38c,0x8 038d 0092 0b4f | O| Action Push_String_Extended,0xb4f ; "Write Tape Mark (end of tape)" 038f 00da | | Load_Top At_Offset_2 0390 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0391 e26b | k | Load 0x1,0x6b 0392 e26c | l | Load 0x1,0x6c 0393 1d6d | m | Execute_Immediate Reference_Lex_1,0x6d 0394 1d6e | n | Execute_Immediate Reference_Lex_1,0x6e 0395 8247 | G | Call 0x1,0x47 0396 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0xa = 0x396,0x9 0397 e5fc | | Load 0x2,-0x4 0398 8289 | | Call 0x1,0x89 0399 c5fc | | Store 0x2,-0x4 039a 00d1 | | Pop_Control Pop_Count_1 039b 4801 |H | Short_Literal 0x1 ; Debug Table 0xa.0xb = 0x39b,0xa 039c 0092 0b4f | O| Action Push_String_Extended,0xb4f ; "Write Tape Mark (end of tape)" 039e 00da | | Load_Top At_Offset_2 039f 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 03a0 e26b | k | Load 0x1,0x6b 03a1 e26c | l | Load 0x1,0x6c 03a2 1d6d | m | Execute_Immediate Reference_Lex_1,0x6d 03a3 1d6e | n | Execute_Immediate Reference_Lex_1,0x6e 03a4 8247 | G | Call 0x1,0x47 03a5 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03a6 0000 0000 | | .XXX[0x2] 03a8 0000 0000 | | .LITERAL {0x00000000, 0x0000a621} 03ac 0000 0000 | | .LITERAL {0x00000000, 0x0036bf94} 03b0 0000 0000 | | .LITERAL {0x00000000, 0x0036bf04} 03b4 0000 0000 | | .LITERAL {0x00000000, 0x36ba6401} 03b8 ; -------------------------------------------------------------------------------------- 03b8 ; SUBPROGRAM 03b8 ; -------------------------------------------------------------------------------------- 03b8 03bb | | .CONST 0x03bb ; Address of begin 03b9 0004 | | .CONST 0x0004 ; Address of exception handler 03ba 0001 | | .CONST 0x0001 ; Number of locals 03bb BODY_03b8: 03bb INIT_03b8: 03bb e5fb | | Load 0x2,-0x5 ; Debug Table 0xb = .DEBUG 0x03bb,0x10d8,0x3801,0x0002,0x0036,0xbf04,0x0000,0x00ef ; Debug Table 0xb.0x0 = 0x3bb,0x1 03bc 0092 0b50 | P| Action Push_String_Extended,0xb50 ; "Error from " 03be e5fc | | Load 0x2,-0x4 03bf 01cc | | Execute Vector,Catenate 03c0 0092 0b51 | Q| Action Push_String_Extended,0xb51 ; ": " 03c2 01cc | | Execute Vector,Catenate 03c3 e5fd | | Load 0x2,-0x3 03c4 e5fe | | Load 0x2,-0x2 03c5 0122 | " | Execute Any,Make_Root_Type 03c6 025e | ^ | Execute Discrete,Convert 03c7 1c01 | | Execute_Immediate Run_Utility,0x1 03c8 01cc | | Execute Vector,Catenate 03c9 824e | N | Call 0x1,0x4e 03ca 4506 |E | Exit_Suprogram New_Top_Offset 0x6 03cb 0000 0000 | | .BLANK 0000[0x5] 03d0 ; -------------------------------------------------------------------------------------- 03d0 ; SUBPROGRAM 03d0 ; -------------------------------------------------------------------------------------- 03d0 03d3 | | .CONST 0x03d3 ; Address of begin 03d1 0004 | | .CONST 0x0004 ; Address of exception handler 03d2 0001 | | .CONST 0x0001 ; Number of locals 03d3 BODY_03d0: 03d3 INIT_03d0: 03d3 e5fb | | Load 0x2,-0x5 ; Debug Table 0xc = .DEBUG 0x03d3,0x10dc,0x3801,0x0002,0x0036,0xbf04,0x0000,0x0105 ; Debug Table 0xc.0x0 = 0x3d3,0x1 03d4 e5fd | | Load 0x2,-0x3 03d5 027e | ~ | Execute Discrete,Not_Equal 03d6 6806 |h | Jump_Zero 0x3dd 03d7 e5f9 | | Load 0x2,-0x7 ; Debug Table 0xc.0x1 = 0x3d7,0x2 03d8 e5fa | | Load 0x2,-0x6 03d9 e5fb | | Load 0x2,-0x5 03da e5fc | | Load 0x2,-0x4 03db 025b | [ | Execute Discrete,Check_In_Type 03dc 85fe | | Call 0x2,-0x2 03dd 4508 |E | Exit_Suprogram New_Top_Offset 0x8 03de 0000 0000 | | .XXX[0x2] 03e0 ; -------------------------------------------------------------------------------------- 03e0 ; SUBPROGRAM 03e0 ; -------------------------------------------------------------------------------------- 03e0 03e7 | | .CONST 0x03e7 ; Address of begin 03e1 0004 | | .CONST 0x0004 ; Address of exception handler 03e2 0002 | | .CONST 0x0002 ; Number of locals 03e3 INIT_03e0: 03e3 00da | | Load_Top At_Offset_2 ; Debug Table 0xd = .DEBUG 0x03e3,0x10e2,0x1001,0x0000,0x0036,0xbf04,0x0000,0x0130 ; Debug Table 0xd.0x0 = 0x3e3,0xffff 03e4 01dd | | Execute Vector,First 03e5 00e3 | | Load_Encached Natural_Cache 03e6 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 03e7 BODY_03e0: 03e7 00cf | | Action Mark_Auxiliary 03e8 e5fe | | Load 0x2,-0x2 ; Debug Table 0xd.0x1 = 0x3e8,0x1 03e9 01d9 | | Execute Vector,Reverse_Bounds 03ea 0263 | c | Execute Discrete,Above_Bound 03eb 7018 |p | Jump_Nonzero 0x404 03ec 00db | | Load_Top At_Offset_3 ; Debug Table 0xd.0x2 = 0x3ec,0x2 03ed e5ff | | Load 0x2,-0x1 03ee 01dc | | Execute Vector,Last 03ef 027a | z | Execute Discrete,Less_Equal 03f0 680d |h | Jump_Zero 0x3fe 03f1 00db | | Load_Top At_Offset_3 ; Debug Table 0xd.0x3 = 0x3f1,0x3 03f2 e5ff | | Load 0x2,-0x1 03f3 01d7 | | Execute Vector,Field_Read 03f4 e003 | | Load 0x0,0x3 03f5 1b11 | | Execute Package,Field_Read,Field_Number 0x11 03f6 025b | [ | Execute Discrete,Check_In_Type 03f7 00d9 | | Load_Top At_Offset_1 03f8 e5fe | | Load 0x2,-0x2 03f9 01d6 | | Execute Vector,Field_Write 03fa 00db | | Load_Top At_Offset_3 ; Debug Table 0xd.0x4 = 0x3fa,0x4 03fb 0a01 | | Execute_Immediate Plus,0x1 03fc c402 | | Store 0x2,0x2 03fd 7804 |x | Jump 0x402 03fe 4800 |H | Short_Literal 0x0 ; Debug Table 0xd.0x5 = 0x3fe,0x5 03ff 00d9 | | Load_Top At_Offset_1 0400 e5fe | | Load 0x2,-0x2 0401 01d6 | | Execute Vector,Field_Write 0402 00c8 | | Action Pop_Auxiliary_Range 0403 3fe8 |? | Loop_Increasing 0x3ec 0404 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0405 0000 0000 | | .XXX[0x3] 0407 0000 | | 0408 ; -------------------------------------------------------------------------------------- 0408 ; SUBPROGRAM 0408 ; -------------------------------------------------------------------------------------- 0408 040e | | .CONST 0x040e ; Address of begin 0409 0004 | | .CONST 0x0004 ; Address of exception handler 040a 0002 | | .CONST 0x0002 ; Number of locals 040b INIT_0408: 040b 00da | | Load_Top At_Offset_2 ; Debug Table 0xe = .DEBUG 0x040b,0x10f0,0x1001,0x0000,0x0036,0xbf04,0x0000,0x0178 ; Debug Table 0xe.0x0 = 0x40b,0xffff 040c 00e3 | | Load_Encached Natural_Cache 040d 03f1 | | Declare_Variable Discrete,With_Value 040e BODY_0408: 040e 00cf | | Action Mark_Auxiliary 040f e5fe | | Load 0x2,-0x2 ; Debug Table 0xe.0x1 = 0x40f,0x1 0410 01da | | Execute Vector,Bounds 0411 0264 | d | Execute Discrete,Below_Bound 0412 700e |p | Jump_Nonzero 0x421 0413 00db | | Load_Top At_Offset_3 ; Debug Table 0xe.0x2 = 0x413,0x2 0414 48ff |H | Short_Literal 0xff 0415 0279 | y | Execute Discrete,And 0416 e003 | | Load 0x0,0x3 0417 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0418 025b | [ | Execute Discrete,Check_In_Type 0419 00d9 | | Load_Top At_Offset_1 041a e5fe | | Load 0x2,-0x2 041b 01d6 | | Execute Vector,Field_Write 041c 00db | | Load_Top At_Offset_3 ; Debug Table 0xe.0x3 = 0x41c,0x3 041d 09f8 | | Execute_Immediate Binary_Scale,-0x8 041e c402 | | Store 0x2,0x2 041f 00c8 | | Action Pop_Auxiliary_Range 0420 37f2 |7 | Loop_Decreasing 0x413 0421 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0422 0000 0000 | | .BLANK 0000[0x6] 0428 ; -------------------------------------------------------------------------------------- 0428 ; SUBPROGRAM 0428 ; -------------------------------------------------------------------------------------- 0428 042e | . | .CONST 0x042e ; Address of begin 0429 0004 | | .CONST 0x0004 ; Address of exception handler 042a 0002 | | .CONST 0x0002 ; Number of locals 042b INIT_0428: 042b 0007 | | Action Break_Optional ; Debug Table 0xf = .DEBUG 0x042b,0x10fa,0x1002,0x0000,0x0036,0xbf04,0x0000,0x01a9 ; Debug Table 0xf.0x0 = 0x42b,0xffff 042c 00e3 | | Load_Encached Natural_Cache ; Debug Table 0xf.0x1 = 0x42c,0xfffe 042d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 042e BODY_0428: 042e 00cf | | Action Mark_Auxiliary 042f e5ff | | Load 0x2,-0x1 ; Debug Table 0xf.0x2 = 0x42f,0x1 0430 01d9 | | Execute Vector,Reverse_Bounds 0431 0263 | c | Execute Discrete,Above_Bound 0432 700a |p | Jump_Nonzero 0x43d 0433 00db | | Load_Top At_Offset_3 ; Debug Table 0xf.0x3 = 0x433,0x2 0434 0908 | | Execute_Immediate Binary_Scale,0x8 0435 0248 | H | Execute Discrete,Check_In_Integer 0436 00d9 | | Load_Top At_Offset_1 0437 e5ff | | Load 0x2,-0x1 0438 01d7 | | Execute Vector,Field_Read 0439 0273 | s | Execute Discrete,Plus 043a c402 | | Store 0x2,0x2 043b 00c8 | | Action Pop_Auxiliary_Range 043c 3ff6 |? | Loop_Increasing 0x433 043d 00ce | | Action Pop_Auxiliary 043e 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xf.0x4 = 0x43e,0x3 043f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0440 ; -------------------------------------------------------------------------------------- 0440 ; SUBPROGRAM 0440 ; -------------------------------------------------------------------------------------- 0440 0448 | H | .CONST 0x0448 ; Address of begin 0441 0004 | | .CONST 0x0004 ; Address of exception handler 0442 0002 | | .CONST 0x0002 ; Number of locals 0443 INIT_0440: 0443 00da | | Load_Top At_Offset_2 ; Debug Table 0x10 = .DEBUG 0x0443,0x1106,0x1002,0x0000,0x0036,0xbf04,0x0000,0x01dc ; Debug Table 0x10.0x0 = 0x443,0xffff 0444 01da | | Execute Vector,Bounds 0445 00e9 | | Load_Encached String_Cache 0446 035b | [ | Declare_Type Array,Constrained 0447 0337 | 7 | Declare_Variable Array 0448 BODY_0440: 0448 00cf | | Action Mark_Auxiliary 0449 e5ff | | Load 0x2,-0x1 ; Debug Table 0x10.0x1 = 0x449,0x1 044a 01d9 | | Execute Vector,Reverse_Bounds 044b 0263 | c | Execute Discrete,Above_Bound 044c 700e |p | Jump_Nonzero 0x45b 044d 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x10.0x2 = 0x44d,0x2 044e e5ff | | Load 0x2,-0x1 044f 01d7 | | Execute Vector,Field_Read 0450 00d8 | | Load_Top At_Offset_0 0451 00e8 | | Load_Encached Character_Cache 0452 0260 | ` | Execute Discrete,In_Type 0453 7002 |p | Jump_Nonzero 0x456 0454 48e0 |H | Short_Literal 0xe0 0455 0257 | W | Execute Discrete,Raise 0456 00d9 | | Load_Top At_Offset_1 0457 e402 | | Load 0x2,0x2 0458 01d6 | | Execute Vector,Field_Write 0459 00c8 | | Action Pop_Auxiliary_Range 045a 3ff2 |? | Loop_Increasing 0x44d 045b 00ce | | Action Pop_Auxiliary 045c 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x10.0x3 = 0x45c,0x3 045d 00e9 | | Load_Encached String_Cache 045e 01c6 | | Execute Vector,Convert_To_Formal 045f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0460 ; -------------------------------------------------------------------------------------- 0460 ; SUBPROGRAM 0460 ; -------------------------------------------------------------------------------------- 0460 0463 | c | .CONST 0x0463 ; Address of begin 0461 0004 | | .CONST 0x0004 ; Address of exception handler 0462 0001 | | .CONST 0x0001 ; Number of locals 0463 BODY_0460: 0463 INIT_0460: 0463 00cf | | Action Mark_Auxiliary ; Debug Table 0x11 = .DEBUG 0x0463,0x1110,0x1002,0x0000,0x0036,0xbf04,0x0000,0x020b 0464 00db | | Load_Top At_Offset_3 ; Debug Table 0x11.0x0 = 0x464,0x1 0465 01da | | Execute Vector,Bounds 0466 0264 | d | Execute Discrete,Below_Bound 0467 7011 |p | Jump_Nonzero 0x479 0468 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x11.0x1 = 0x468,0x2 0469 e5ff | | Load 0x2,-0x1 046a 01d7 | | Execute Vector,Field_Read 046b 0e20 | | Execute_Immediate Not_Equal,0x20 046c 680a |h | Jump_Zero 0x477 046d 00d8 | | Load_Top At_Offset_0 046e e5ff | | Load 0x2,-0x1 046f 01d7 | | Execute Vector,Field_Read 0470 6806 |h | Jump_Zero 0x477 0471 e5ff | | Load 0x2,-0x1 ; Debug Table 0x11.0x2 = 0x471,0x3 0472 01dd | | Execute Vector,First 0473 00d9 | | Load_Top At_Offset_1 0474 e5ff | | Load 0x2,-0x1 0475 01cf | | Execute Vector,Slice_Read 0476 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0477 00c8 | | Action Pop_Auxiliary_Range 0478 37ef |7 | Loop_Decreasing 0x468 0479 00ce | | Action Pop_Auxiliary 047a 4831 |H1 | Short_Literal 0x31 047b 0257 | W | Execute Discrete,Raise 047c 0000 0000 | | .BLANK 0000[0x4] 0480 ; -------------------------------------------------------------------------------------- 0480 ; SUBPROGRAM 0480 ; -------------------------------------------------------------------------------------- 0480 0483 | | .CONST 0x0483 ; Address of begin 0481 0004 | | .CONST 0x0004 ; Address of exception handler 0482 0001 | | .CONST 0x0001 ; Number of locals 0483 BODY_0480: 0483 INIT_0480: 0483 00cf | | Action Mark_Auxiliary ; Debug Table 0x12 = .DEBUG 0x0483,0x1118,0x1002,0x0000,0x0036,0xbf04,0x0000,0x023e 0484 00db | | Load_Top At_Offset_3 ; Debug Table 0x12.0x0 = 0x484,0x1 0485 01da | | Execute Vector,Bounds 0486 0264 | d | Execute Discrete,Below_Bound 0487 700f |p | Jump_Nonzero 0x497 0488 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x12.0x1 = 0x488,0x2 0489 e5ff | | Load 0x2,-0x1 048a 01d7 | | Execute Vector,Field_Read 048b 0f2e | . | Execute_Immediate Equal,0x2e 048c 6808 |h | Jump_Zero 0x495 048d e5ff | | Load 0x2,-0x1 ; Debug Table 0x12.0x2 = 0x48d,0x3 048e 01dd | | Execute Vector,First 048f 00d9 | | Load_Top At_Offset_1 0490 0aff | | Execute_Immediate Plus,-0x1 0491 0248 | H | Execute Discrete,Check_In_Integer 0492 e5ff | | Load 0x2,-0x1 0493 01cf | | Execute Vector,Slice_Read 0494 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0495 00c8 | | Action Pop_Auxiliary_Range 0496 37f1 |7 | Loop_Decreasing 0x488 0497 00ce | | Action Pop_Auxiliary 0498 00da | | Load_Top At_Offset_2 ; Debug Table 0x12.0x3 = 0x498,0x4 0499 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 049a 0000 0000 | | .BLANK 0000[0x6] 04a0 ; -------------------------------------------------------------------------------------- 04a0 ; SUBPROGRAM 04a0 ; -------------------------------------------------------------------------------------- 04a0 04a3 | | .CONST 0x04a3 ; Address of begin 04a1 0004 | | .CONST 0x0004 ; Address of exception handler 04a2 0001 | | .CONST 0x0001 ; Number of locals 04a3 BODY_04a0: 04a3 INIT_04a0: 04a3 00da | | Load_Top At_Offset_2 ; Debug Table 0x13 = .DEBUG 0x04a3,0x1122,0x1001,0x0000,0x0036,0xbf04,0x0000,0x026b ; Debug Table 0x13.0x0 = 0x4a3,0x1 04a4 822c | , | Call 0x1,0x2c 04a5 00db | | Load_Top At_Offset_3 ; Debug Table 0x13.0x1 = 0x4a5,0x2 04a6 6802 |h | Jump_Zero 0x4a9 04a7 e22d | - | Load 0x1,0x2d ; Debug Table 0x13.0x2 = 0x4a7,0x3 04a8 0257 | W | Execute Discrete,Raise 04a9 4503 |E | Exit_Suprogram New_Top_Offset 0x3 04aa 0000 0000 | | .BLANK 0000[0x6] 04b0 ; -------------------------------------------------------------------------------------- 04b0 ; SUBPROGRAM 04b0 ; -------------------------------------------------------------------------------------- 04b0 04b3 | | .CONST 0x04b3 ; Address of begin 04b1 0004 | | .CONST 0x0004 ; Address of exception handler 04b2 0001 | | .CONST 0x0001 ; Number of locals 04b3 BODY_04b0: 04b3 INIT_04b0: 04b3 4822 |H" | Short_Literal 0x22 ; Debug Table 0x14 = .DEBUG 0x04b3,0x112a,0x1001,0x0000,0x0036,0xbf04,0x0000,0x0286 ; Debug Table 0x14.0x0 = 0x4b3,0x1 04b4 00db | | Load_Top At_Offset_3 04b5 0092 0b52 | R| Action Push_String_Extended,0xb52 ; " raised trying to " 04b7 01cc | | Execute Vector,Catenate 04b8 e5fe | | Load 0x2,-0x2 04b9 01cc | | Execute Vector,Catenate 04ba 01cb | | Execute Vector,Append 04bb e5fd | | Load 0x2,-0x3 04bc 01cc | | Execute Vector,Catenate 04bd 0092 0b53 | S| Action Push_String_Extended,0xb53 ; "\x22." 04bf 01cc | | Execute Vector,Catenate 04c0 822c | , | Call 0x1,0x2c 04c1 4504 |E | Exit_Suprogram New_Top_Offset 0x4 04c2 0000 0000 | | .BLANK 0000[0x6] 04c8 ; -------------------------------------------------------------------------------------- 04c8 ; SUBPROGRAM 04c8 ; -------------------------------------------------------------------------------------- 04c8 04cb | | .CONST 0x04cb ; Address of begin 04c9 0004 | | .CONST 0x0004 ; Address of exception handler 04ca 0001 | | .CONST 0x0001 ; Number of locals 04cb BODY_04c8: 04cb INIT_04c8: 04cb e5fd | | Load 0x2,-0x3 ; Debug Table 0x15 = .DEBUG 0x04cb,0x112e,0x1006,0x0000,0x0036,0xbf04,0x0000,0x02f9 04cc e5fe | | Load 0x2,-0x2 04cd e5ff | | Load 0x2,-0x1 04ce e250 | P | Load 0x1,0x50 04cf 1d51 | Q | Execute_Immediate Reference_Lex_1,0x51 04d0 8246 | F | Call 0x1,0x46 04d1 4504 |E | Exit_Suprogram New_Top_Offset 0x4 04d2 0000 0000 | | .BLANK 0000[0x6] 04d8 ; -------------------------------------------------------------------------------------- 04d8 ; SUBPROGRAM 04d8 ; -------------------------------------------------------------------------------------- 04d8 04db | | .CONST 0x04db ; Address of begin 04d9 0004 | | .CONST 0x0004 ; Address of exception handler 04da 0001 | | .CONST 0x0001 ; Number of locals 04db BODY_04d8: 04db INIT_04d8: 04db e5fd | | Load 0x2,-0x3 ; Debug Table 0x16 = .DEBUG 0x04db,0x1130,0x1006,0x0000,0x0036,0xbf04,0x0000,0x0301 04dc e5fe | | Load 0x2,-0x2 04dd e5ff | | Load 0x2,-0x1 04de e254 | T | Load 0x1,0x54 04df 1d55 | U | Execute_Immediate Reference_Lex_1,0x55 04e0 8246 | F | Call 0x1,0x46 04e1 4504 |E | Exit_Suprogram New_Top_Offset 0x4 04e2 0000 0000 | | .BLANK 0000[0x6] 04e8 ; -------------------------------------------------------------------------------------- 04e8 ; SUBPROGRAM 04e8 ; -------------------------------------------------------------------------------------- 04e8 04eb | | .CONST 0x04eb ; Address of begin 04e9 0004 | | .CONST 0x0004 ; Address of exception handler 04ea 0001 | | .CONST 0x0001 ; Number of locals 04eb BODY_04e8: 04eb INIT_04e8: 04eb e5fd | | Load 0x2,-0x3 ; Debug Table 0x17 = .DEBUG 0x04eb,0x1132,0x1006,0x0000,0x0036,0xbf04,0x0000,0x0309 04ec e5fe | | Load 0x2,-0x2 04ed e5ff | | Load 0x2,-0x1 04ee e258 | X | Load 0x1,0x58 04ef 1d59 | Y | Execute_Immediate Reference_Lex_1,0x59 04f0 8246 | F | Call 0x1,0x46 04f1 4504 |E | Exit_Suprogram New_Top_Offset 0x4 04f2 0000 0000 | | .BLANK 0000[0x6] 04f8 ; -------------------------------------------------------------------------------------- 04f8 ; SUBPROGRAM 04f8 ; -------------------------------------------------------------------------------------- 04f8 04fb | | .CONST 0x04fb ; Address of begin 04f9 0004 | | .CONST 0x0004 ; Address of exception handler 04fa 0001 | | .CONST 0x0001 ; Number of locals 04fb BODY_04f8: 04fb INIT_04f8: 04fb e5fd | | Load 0x2,-0x3 ; Debug Table 0x18 = .DEBUG 0x04fb,0x1134,0x1006,0x0000,0x0036,0xbf04,0x0000,0x0309 04fc e5fe | | Load 0x2,-0x2 04fd e5ff | | Load 0x2,-0x1 04fe e258 | X | Load 0x1,0x58 04ff 1d59 | Y | Execute_Immediate Reference_Lex_1,0x59 0500 8246 | F | Call 0x1,0x46 0501 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0502 0000 0000 | | .BLANK 0000[0x6] 0508 ; -------------------------------------------------------------------------------------- 0508 ; SUBPROGRAM 0508 ; -------------------------------------------------------------------------------------- 0508 0514 | | .CONST 0x0514 ; Address of begin 0509 0551 | Q | .CONST 0x0551 ; Address of exception handler 050a 0004 | | .CONST 0x0004 ; Number of locals 050b INIT_0508: 050b e002 | | Load 0x0,0x2 ; Debug Table 0x19 = .DEBUG 0x050b,0x1136,0x3801,0x0002,0x0036,0xbf94,0x0000,0x0023 ; Debug Table 0x19.0x0 = 0x50b,0xffff 050c 1b16 | | Execute Package,Field_Read,Field_Number 0x16 050d 0322 | " | Declare_Variable Record 050e e232 | 2 | Load 0x1,0x32 ; Debug Table 0x19.0x1 = 0x50e,0xfffe 050f 0337 | 7 | Declare_Variable Array 0510 e5fb | | Load 0x2,-0x5 ; Debug Table 0x19.0x2 = 0x510,0xfffd 0511 02c7 | | Declare_Variable Any 0512 00d8 | | Load_Top At_Offset_0 0513 1c00 | | Execute_Immediate Run_Utility,0x0 0514 BODY_0508: 0514 00be | | Action Activate_Tasks 0515 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x19.0x3 = 0x515,0x1 0516 0120 | | Execute Any,Is_Value 0517 6802 |h | Jump_Zero 0x51a 0518 e5fb | | Load 0x2,-0x5 0519 7803 |x | Jump 0x51d 051a 00d8 | | Load_Top At_Offset_0 051b e5fb | | Load 0x2,-0x5 051c 0119 | | Execute Any,Check_In_Formal_Type 051d e5f6 | | Load 0x2,-0xa 051e e210 | | Load 0x1,0x10 051f 0119 | | Execute Any,Check_In_Formal_Type 0520 4800 |H | Short_Literal 0x0 0521 e5f7 | | Load 0x2,-0x9 0522 85fc | | Call 0x2,-0x4 0523 c404 | | Store 0x2,0x4 0524 00cf | | Action Mark_Auxiliary 0525 e5f9 | | Load 0x2,-0x7 ; Debug Table 0x19.0x4 = 0x525,0x2 0526 4801 |H | Short_Literal 0x1 0527 0263 | c | Execute Discrete,Above_Bound 0528 7023 |p# | Jump_Nonzero 0x54c 0529 e403 | | Load 0x2,0x3 ; Debug Table 0x19.0x5 = 0x529,0x3 052a e402 | | Load 0x2,0x2 052b e5fa | | Load 0x2,-0x6 052c e21c | | Load 0x1,0x1c 052d 0119 | | Execute Any,Check_In_Formal_Type 052e 8221 | ! | Call 0x1,0x21 052f 00d2 | | Pop_Control Pop_Count_2 0530 4801 |H | Short_Literal 0x1 ; Debug Table 0x19.0x6 = 0x530,0x4 0531 0092 0b54 | T| Action Push_String_Extended,0xb54 ; "Read of Data Block" 0533 e402 | | Load 0x2,0x2 0534 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0535 e26b | k | Load 0x1,0x6b 0536 e26c | l | Load 0x1,0x6c 0537 1d6d | m | Execute_Immediate Reference_Lex_1,0x6d 0538 1d6e | n | Execute_Immediate Reference_Lex_1,0x6e 0539 8247 | G | Call 0x1,0x47 053a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x19.0x7 = 0x53a,0x5 053b e5f9 | | Load 0x2,-0x7 053c 027c | | | Execute Discrete,Less 053d 6805 |h | Jump_Zero 0x543 053e 00db | | Load_Top At_Offset_3 ; Debug Table 0x19.0x8 = 0x53e,0x6 053f e403 | | Load 0x2,0x3 0540 85fd | | Call 0x2,-0x3 0541 c404 | | Store 0x2,0x4 0542 7807 |x | Jump 0x54a 0543 00db | | Load_Top At_Offset_3 ; Debug Table 0x19.0x9 = 0x543,0x7 0544 4801 |H | Short_Literal 0x1 0545 e5f8 | | Load 0x2,-0x8 0546 e403 | | Load 0x2,0x3 0547 01cf | | Execute Vector,Slice_Read 0548 85fd | | Call 0x2,-0x3 0549 c404 | | Store 0x2,0x4 054a 00c8 | | Action Pop_Auxiliary_Range 054b 3fdd |? | Loop_Increasing 0x529 054c 00ce | | Action Pop_Auxiliary 054d 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x19.0xa = 0x54d,0x8 054e 85fe | | Call 0x2,-0x2 054f c404 | | Store 0x2,0x4 0550 450b |E | Exit_Suprogram New_Top_Offset 0xb 0551 TRAP_0508: 0551 00d8 | | Load_Top At_Offset_0 0552 0107 | | Execute Exception,Get_Name 0553 4920 |I | Short_Literal 0x120 0554 492f |I/ | Short_Literal 0x12f 0555 0262 | b | Execute Discrete,In_Range 0556 6805 |h | Jump_Zero 0x55c 0557 e5f7 | | Load 0x2,-0x9 ; Debug Table 0x19.0xb = 0x557,0x9 0558 e23e | > | Load 0x1,0x3e 0559 e23f | ? | Load 0x1,0x3f 055a 824f | O | Call 0x1,0x4f 055b 450b |E | Exit_Suprogram New_Top_Offset 0xb 055c 00d8 | | Load_Top At_Offset_0 055d 0107 | | Execute Exception,Get_Name 055e 4930 |I0 | Short_Literal 0x130 055f 493f |I? | Short_Literal 0x13f 0560 0262 | b | Execute Discrete,In_Range 0561 6805 |h | Jump_Zero 0x567 0562 e5f7 | | Load 0x2,-0x9 ; Debug Table 0x19.0xc = 0x562,0xa 0563 e23e | > | Load 0x1,0x3e 0564 e240 | @ | Load 0x1,0x40 0565 824f | O | Call 0x1,0x4f 0566 450b |E | Exit_Suprogram New_Top_Offset 0xb 0567 00d8 | | Load_Top At_Offset_0 0568 0107 | | Execute Exception,Get_Name 0569 4950 |IP | Short_Literal 0x150 056a 495f |I_ | Short_Literal 0x15f 056b 0262 | b | Execute Discrete,In_Range 056c 6805 |h | Jump_Zero 0x572 056d e5f7 | | Load 0x2,-0x9 ; Debug Table 0x19.0xd = 0x56d,0xb 056e e23e | > | Load 0x1,0x3e 056f e241 | A | Load 0x1,0x41 0570 824f | O | Call 0x1,0x4f 0571 450b |E | Exit_Suprogram New_Top_Offset 0xb 0572 00d8 | | Load_Top At_Offset_0 0573 0107 | | Execute Exception,Get_Name 0574 4900 |I | Short_Literal 0x100 0575 490f |I | Short_Literal 0x10f 0576 0262 | b | Execute Discrete,In_Range 0577 6805 |h | Jump_Zero 0x57d 0578 e5f7 | | Load 0x2,-0x9 ; Debug Table 0x19.0xe = 0x578,0xc 0579 e23e | > | Load 0x1,0x3e 057a e243 | C | Load 0x1,0x43 057b 824f | O | Call 0x1,0x4f 057c 450b |E | Exit_Suprogram New_Top_Offset 0xb 057d e5f7 | | Load 0x2,-0x9 ; Debug Table 0x19.0xf = 0x57d,0xd 057e e23e | > | Load 0x1,0x3e 057f e242 | B | Load 0x1,0x42 0580 824f | O | Call 0x1,0x4f 0581 450b |E | Exit_Suprogram New_Top_Offset 0xb 0582 0000 0000 | | .BLANK 0000[0x6] 0588 ; -------------------------------------------------------------------------------------- 0588 ; SUBPROGRAM 0588 ; -------------------------------------------------------------------------------------- 0588 0590 | | .CONST 0x0590 ; Address of begin 0589 0004 | | .CONST 0x0004 ; Address of exception handler 058a 0003 | | .CONST 0x0003 ; Number of locals 058b INIT_0588: 058b e002 | | Load 0x0,0x2 ; Debug Table 0x1a = .DEBUG 0x058b,0x1158,0x1001,0x0000,0x0036,0xbf94,0x0000,0x010b ; Debug Table 0x1a.0x0 = 0x58b,0xffff 058c 1b16 | | Execute Package,Field_Read,Field_Number 0x16 058d 0322 | " | Declare_Variable Record 058e e232 | 2 | Load 0x1,0x32 ; Debug Table 0x1a.0x1 = 0x58e,0xfffe 058f 0337 | 7 | Declare_Variable Array 0590 BODY_0588: 0590 00cf | | Action Mark_Auxiliary 0591 e5fe | | Load 0x2,-0x2 ; Debug Table 0x1a.0x2 = 0x591,0x1 0592 4801 |H | Short_Literal 0x1 0593 0263 | c | Execute Discrete,Above_Bound 0594 7013 |p | Jump_Nonzero 0x5a8 0595 00db | | Load_Top At_Offset_3 ; Debug Table 0x1a.0x3 = 0x595,0x2 0596 e402 | | Load 0x2,0x2 0597 e5ff | | Load 0x2,-0x1 0598 e21c | | Load 0x1,0x1c 0599 0119 | | Execute Any,Check_In_Formal_Type 059a 8221 | ! | Call 0x1,0x21 059b 00d2 | | Pop_Control Pop_Count_2 059c 4801 |H | Short_Literal 0x1 ; Debug Table 0x1a.0x4 = 0x59c,0x3 059d 0092 0b55 | U| Action Push_String_Extended,0xb55 ; "Null Read of Data Block" 059f e402 | | Load 0x2,0x2 05a0 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 05a1 e26b | k | Load 0x1,0x6b 05a2 e26c | l | Load 0x1,0x6c 05a3 1d6d | m | Execute_Immediate Reference_Lex_1,0x6d 05a4 1d6e | n | Execute_Immediate Reference_Lex_1,0x6e 05a5 8247 | G | Call 0x1,0x47 05a6 00c8 | | Action Pop_Auxiliary_Range 05a7 3fed |? | Loop_Increasing 0x595 05a8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 05a9 0000 0000 | | .BLANK 0000[0x7] 05b0 ; -------------------------------------------------------------------------------------- 05b0 ; SUBPROGRAM 05b0 ; -------------------------------------------------------------------------------------- 05b0 05b8 | | .CONST 0x05b8 ; Address of begin 05b1 0004 | | .CONST 0x0004 ; Address of exception handler 05b2 0002 | | .CONST 0x0002 ; Number of locals 05b3 INIT_05b0: 05b3 e006 | | Load 0x0,0x6 ; Debug Table 0x1b = .DEBUG 0x05b3,0x1164,0x1001,0x0000,0x0036,0xbf94,0x0000,0x0144 ; Debug Table 0x1b.0x0 = 0x5b3,0xffff 05b4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05b5 0322 | " | Declare_Variable Record 05b6 00d8 | | Load_Top At_Offset_0 05b7 1c00 | | Execute_Immediate Run_Utility,0x0 05b8 BODY_05b0: 05b8 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1b.0x1 = 0x5b8,0x1 05b9 e5ff | | Load 0x2,-0x1 05ba e006 | | Load 0x0,0x6 05bb 180f | | Execute Package,Field_Execute,Field_Number 0xf 05bc 00d1 | | Pop_Control Pop_Count_1 05bd 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1b.0x2 = 0x5bd,0x2 05be e5fc | | Load 0x2,-0x4 05bf 017d | } | Execute Record,Structure_Write 05c0 4504 |E | Exit_Suprogram New_Top_Offset 0x4 05c1 0000 0000 | | .BLANK 0000[0x7] 05c8 ; -------------------------------------------------------------------------------------- 05c8 ; SUBPROGRAM 05c8 ; -------------------------------------------------------------------------------------- 05c8 05d7 | | .CONST 0x05d7 ; Address of begin 05c9 062f | / | .CONST 0x062f ; Address of exception handler 05ca 0005 | | .CONST 0x0005 ; Number of locals 05cb INIT_05c8: 05cb e007 | | Load 0x0,0x7 ; Debug Table 0x1c = .DEBUG 0x05cb,0x116c,0x1001,0x0000,0x0036,0xbf94,0x0000,0x016f ; Debug Table 0x1c.0x0 = 0x5cb,0xffff 05cc 1b0e | | Execute Package,Field_Read,Field_Number 0xe 05cd 0322 | " | Declare_Variable Record 05ce 4801 |H | Short_Literal 0x1 ; Debug Table 0x1c.0x1 = 0x5ce,0xfffe 05cf 4801 |H | Short_Literal 0x1 05d0 e002 | | Load 0x0,0x2 05d1 1b12 | | Execute Package,Field_Read,Field_Number 0x12 05d2 0334 | 4 | Declare_Variable Array,With_Constraint 05d3 e002 | | Load 0x0,0x2 ; Debug Table 0x1c.0x2 = 0x5d3,0xfffd 05d4 1b16 | | Execute Package,Field_Read,Field_Number 0x16 05d5 0322 | " | Declare_Variable Record 05d6 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x1c.0x3 = 0x5d6,0xfffc 05d7 BODY_05c8: 05d7 00db | | Load_Top At_Offset_3 ; Debug Table 0x1c.0x4 = 0x5d7,0x1 05d8 e5fb | | Load 0x2,-0x5 05d9 e5fc | | Load 0x2,-0x4 05da e003 | | Load 0x0,0x3 05db 1b16 | | Execute Package,Field_Read,Field_Number 0x16 05dc 025b | [ | Execute Discrete,Check_In_Type 05dd e007 | | Load 0x0,0x7 05de 180f | | Execute Package,Field_Execute,Field_Number 0xf 05df 00d1 | | Pop_Control Pop_Count_1 05e0 00cf | | Action Mark_Auxiliary 05e1 e5fe | | Load 0x2,-0x2 ; Debug Table 0x1c.0x5 = 0x5e1,0x2 05e2 4801 |H | Short_Literal 0x1 05e3 0263 | c | Execute Discrete,Above_Bound 05e4 701a |p | Jump_Nonzero 0x5ff 05e5 4801 |H | Short_Literal 0x1 ; Debug Table 0x1c.0x6 = 0x5e5,0x3 05e6 e403 | | Load 0x2,0x3 05e7 01d7 | | Execute Vector,Field_Read 05e8 e402 | | Load 0x2,0x2 05e9 e007 | | Load 0x0,0x7 05ea 1810 | | Execute Package,Field_Execute,Field_Number 0x10 05eb 00d2 | | Pop_Control Pop_Count_2 05ec e404 | | Load 0x2,0x4 ; Debug Table 0x1c.0x7 = 0x5ec,0x4 05ed e403 | | Load 0x2,0x3 05ee e5ff | | Load 0x2,-0x1 05ef e21c | | Load 0x1,0x1c 05f0 0119 | | Execute Any,Check_In_Formal_Type 05f1 8222 | " | Call 0x1,0x22 05f2 00d1 | | Pop_Control Pop_Count_1 05f3 4801 |H | Short_Literal 0x1 ; Debug Table 0x1c.0x8 = 0x5f3,0x5 05f4 0092 0b56 | V| Action Push_String_Extended,0xb56 ; "Read of Code Segment Page" 05f6 e404 | | Load 0x2,0x4 05f7 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 05f8 e26b | k | Load 0x1,0x6b 05f9 e26c | l | Load 0x1,0x6c 05fa 1d6d | m | Execute_Immediate Reference_Lex_1,0x6d 05fb 1d6e | n | Execute_Immediate Reference_Lex_1,0x6e 05fc 8247 | G | Call 0x1,0x47 05fd 00c8 | | Action Pop_Auxiliary_Range 05fe 3fe6 |? | Loop_Increasing 0x5e5 05ff 00ce | | Action Pop_Auxiliary 0600 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x1c.0x9 = 0x600,0x6 0601 e402 | | Load 0x2,0x2 0602 e007 | | Load 0x0,0x7 0603 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0604 00d1 | | Pop_Control Pop_Count_1 0605 0059 | Y | Store_Top Discrete,At_Offset_1 0606 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1c.0xa = 0x606,0x7 0607 6826 |h& | Jump_Zero 0x62e 0608 e5fb | | Load 0x2,-0x5 ; Debug Table 0x1c.0xb = 0x608,0x8 0609 680b |h | Jump_Zero 0x615 060a 0092 0b57 | W| Action Push_String_Extended,0xb57 ; "+++ Code segment" ; Debug Table 0x1c.0xc = 0x60a,0x9 060c e5fc | | Load 0x2,-0x4 060d 00e0 | | Load_Encached Standard_Cache 060e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 060f 01cc | | Execute Vector,Catenate 0610 0092 0b58 | X| Action Push_String_Extended,0xb58 ; " has been modified." 0612 01cc | | Execute Vector,Catenate 0613 822c | , | Call 0x1,0x2c 0614 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0615 0092 0b59 | Y| Action Push_String_Extended,0xb59 ; "*** Code segment" ; Debug Table 0x1c.0xd = 0x615,0xa 0617 e5fc | | Load 0x2,-0x4 0618 00e0 | | Load_Encached Standard_Cache 0619 1818 | | Execute Package,Field_Execute,Field_Number 0x18 061a 01cc | | Execute Vector,Catenate 061b 0092 0b5a | Z| Action Push_String_Extended,0xb5a ; " differs from what is on tape." 061d 01cc | | Execute Vector,Catenate 061e 822c | , | Call 0x1,0x2c 061f 0092 0b5b | [| Action Push_String_Extended,0xb5b ; "Tape differs from stored version, but can't be changed because the subsystem containing it is currently elaborated," ; Debug Table 0x1c.0xe = 0x61f,0xb 0621 e5fc | | Load 0x2,-0x4 0622 00e0 | | Load_Encached Standard_Cache 0623 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0624 01cc | | Execute Vector,Catenate 0625 4802 |H | Short_Literal 0x2 0626 0092 0b5c | \| Action Push_String_Extended,0xb5c ; "Code_Segment_Corrupted" 0628 e008 | | Load 0x0,0x8 0629 1810 | | Execute Package,Field_Execute,Field_Number 0x10 062a 0092 0b5d | ]| Action Push_String_Extended,0xb5d ; "EEDB" 062c e008 | | Load 0x0,0x8 062d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 062e 4506 |E | Exit_Suprogram New_Top_Offset 0x6 062f TRAP_05c8: 062f 6040 |`@ | Indirect_Literal Discrete,0x670,{0x00000000, 0x36bf6402} 0630 010f | | Execute Exception,Equal 0631 6806 |h | Jump_Zero 0x638 0632 e5fe | | Load 0x2,-0x2 ; Debug Table 0x1c.0xf = 0x632,0xc 0633 e5ff | | Load 0x2,-0x1 0634 e21c | | Load 0x1,0x1c 0635 0119 | | Execute Any,Check_In_Formal_Type 0636 827a | z | Call 0x1,0x7a 0637 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0638 0100 | | Execute Exception,Raise 0639 0000 0000 | | .BLANK 0000[0x7] 0640 ; -------------------------------------------------------------------------------------- 0640 ; SUBPROGRAM 0640 ; -------------------------------------------------------------------------------------- 0640 0648 | H | .CONST 0x0648 ; Address of begin 0641 0004 | | .CONST 0x0004 ; Address of exception handler 0642 0003 | | .CONST 0x0003 ; Number of locals 0643 INIT_0640: 0643 e002 | | Load 0x0,0x2 ; Debug Table 0x1d = .DEBUG 0x0643,0x118e,0x1002,0x0000,0x0036,0xbf94,0x0000,0x022a ; Debug Table 0x1d.0x0 = 0x643,0xffff 0644 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0645 0322 | " | Declare_Variable Record 0646 e232 | 2 | Load 0x1,0x32 ; Debug Table 0x1d.0x1 = 0x646,0xfffe 0647 0337 | 7 | Declare_Variable Array 0648 BODY_0640: 0648 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1d.0x2 = 0x648,0x1 0649 00da | | Load_Top At_Offset_2 064a e5ff | | Load 0x2,-0x1 064b e21c | | Load 0x1,0x1c 064c 0119 | | Execute Any,Check_In_Formal_Type 064d 8221 | ! | Call 0x1,0x21 064e 00d2 | | Pop_Control Pop_Count_2 064f 4801 |H | Short_Literal 0x1 ; Debug Table 0x1d.0x3 = 0x64f,0x2 0650 0092 0b54 | T| Action Push_String_Extended,0xb54 ; "Read of Data Block" 0652 00db | | Load_Top At_Offset_3 0653 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0654 e26b | k | Load 0x1,0x6b 0655 e26c | l | Load 0x1,0x6c 0656 1d6d | m | Execute_Immediate Reference_Lex_1,0x6d 0657 1d6e | n | Execute_Immediate Reference_Lex_1,0x6e 0658 8247 | G | Call 0x1,0x47 0659 e5fe | | Load 0x2,-0x2 ; Debug Table 0x1d.0x4 = 0x659,0x3 065a 0f01 | | Execute_Immediate Equal,0x1 065b 6806 |h | Jump_Zero 0x662 065c 4801 |H | Short_Literal 0x1 ; Debug Table 0x1d.0x5 = 0x65c,0x4 065d e5fd | | Load 0x2,-0x3 065e 00da | | Load_Top At_Offset_2 065f 01cf | | Execute Vector,Slice_Read 0660 824b | K | Call 0x1,0x4b 0661 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0662 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1d.0x6 = 0x662,0x5 0663 824b | K | Call 0x1,0x4b 0664 e5fd | | Load 0x2,-0x3 0665 e5fe | | Load 0x2,-0x2 0666 0aff | | Execute_Immediate Plus,-0x1 0667 00e3 | | Load_Encached Natural_Cache 0668 025b | [ | Execute Discrete,Check_In_Type 0669 e5ff | | Load 0x2,-0x1 066a e21c | | Load 0x1,0x1c 066b 0119 | | Execute Any,Check_In_Formal_Type 066c 8284 | | Call 0x1,0x84 066d 01cc | | Execute Vector,Catenate 066e 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 066f 0000 | | .XXX[0x1] 0670 0000 0000 | | .LITERAL {0x00000000, 0x36bf6402} 0674 0000 0000 | | .BLANK 0000[0x4] 0678 ; -------------------------------------------------------------------------------------- 0678 ; SUBPROGRAM 0678 ; -------------------------------------------------------------------------------------- 0678 067b | { | .CONST 0x067b ; Address of begin 0679 0004 | | .CONST 0x0004 ; Address of exception handler 067a 0001 | | .CONST 0x0001 ; Number of locals 067b BODY_0678: 067b INIT_0678: 067b 00da | | Load_Top At_Offset_2 ; Debug Table 0x1e = .DEBUG 0x067b,0x119e,0x1002,0x0000,0x0036,0xbf94,0x0000,0x027b ; Debug Table 0x1e.0x0 = 0x67b,0x1 067c e5fe | | Load 0x2,-0x2 067d 027d | } | Execute Discrete,Greater 067e 6802 |h | Jump_Zero 0x681 067f 00da | | Load_Top At_Offset_2 ; Debug Table 0x1e.0x1 = 0x67f,0x2 0680 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0681 00db | | Load_Top At_Offset_3 ; Debug Table 0x1e.0x2 = 0x681,0x3 0682 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0683 0000 0000 | | .BLANK 0000[0x5] 0688 ; -------------------------------------------------------------------------------------- 0688 ; SUBPROGRAM 0688 ; -------------------------------------------------------------------------------------- 0688 06f7 | | .CONST 0x06f7 ; Address of begin 0689 0004 | | .CONST 0x0004 ; Address of exception handler 068a 0009 | | .CONST 0x0009 ; Number of locals 068b INIT_0688: 068b 0092 0b5e | ^| Action Push_String_Extended,0xb5e ; "Quit" ; Debug Table 0x1f = .DEBUG 0x068b,0x11a6,0x1001,0x0000,0x0036,0xbf94,0x0000,0x0297 ; Debug Table 0x1f.0x0 = 0x68b,0xffff 068d e5fd | | Load 0x2,-0x3 ; Debug Table 0x1f.0x1 = 0x68d,0xfffe 068e e5fe | | Load 0x2,-0x2 068f e5ff | | Load 0x2,-0x1 0690 e21c | | Load 0x1,0x1c 0691 0119 | | Execute Any,Check_In_Formal_Type 0692 8284 | | Call 0x1,0x84 0693 4804 |H | Short_Literal 0x4 ; Debug Table 0x1f.0x2 = 0x693,0xfffd 0694 00d9 | | Load_Top At_Offset_1 0695 01db | | Execute Vector,Length 0696 00e3 | | Load_Encached Natural_Cache 0697 025b | [ | Execute Discrete,Check_In_Type 0698 8285 | | Call 0x1,0x85 0699 00e3 | | Load_Encached Natural_Cache 069a 03f1 | | Declare_Variable Discrete,With_Value 069b e009 | | Load 0x0,0x9 ; Debug Table 0x1f.0x3 = 0x69b,0xfffc 069c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 069d 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 069e 00e1 | | Load_Encached Boolean_Cache 069f 03f1 | | Declare_Variable Discrete,With_Value 06a0 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x1f.0x4 = 0x6a0,0xfffb 06a1 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 06a2 029f 09fb | | Declare_Subprogram INIT_09f8,For_Call ; Debug Table 0x1f.0x5 = 0x6a2,0xfffa 06a4 6263 |bc | Indirect_Literal Discrete,0x908,{0x00000000, 0x0036bf94} ; Debug Table 0x1f.0x6 = 0x6a4,0xfff9 06a5 4af7 |J | Short_Literal 0x2f7 06a6 4807 |H | Short_Literal 0x7 06a7 4802 |H | Short_Literal 0x2 06a8 0099 | | Action Reference_Dynamic 06a9 e009 | | Load 0x0,0x9 06aa 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06ab 191c | | Execute Package,Field_Reference,Field_Number 0x1c 06ac e404 | | Load 0x2,0x4 06ad e00a | | Load 0x0,0xa 06ae 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06af e00a | | Load 0x0,0xa 06b0 1b0e | | Execute Package,Field_Read,Field_Number 0xe 06b1 0387 | | Declare_Variable Package 06b2 00d8 | | Load_Top At_Offset_0 06b3 020f | | Execute Module,Activate 06b4 6253 |bS | Indirect_Literal Discrete,0x908,{0x00000000, 0x0036bf94} ; Debug Table 0x1f.0x7 = 0x6b4,0xfff8 06b5 4b10 |K | Short_Literal 0x310 06b6 e278 | x | Load 0x1,0x78 06b7 4801 |H | Short_Literal 0x1 06b8 4800 |H | Short_Literal 0x0 06b9 e408 | | Load 0x2,0x8 06ba 1913 | | Execute Package,Field_Reference,Field_Number 0x13 06bb 4807 |H | Short_Literal 0x7 06bc 4802 |H | Short_Literal 0x2 06bd 0099 | | Action Reference_Dynamic 06be e408 | | Load 0x2,0x8 06bf 1915 | | Execute Package,Field_Reference,Field_Number 0x15 06c0 e009 | | Load 0x0,0x9 06c1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06c2 1918 | | Execute Package,Field_Reference,Field_Number 0x18 06c3 e009 | | Load 0x0,0x9 06c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06c5 1919 | | Execute Package,Field_Reference,Field_Number 0x19 06c6 e009 | | Load 0x0,0x9 06c7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06c8 191a | | Execute Package,Field_Reference,Field_Number 0x1a 06c9 e009 | | Load 0x0,0x9 06ca 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06cb 191b | | Execute Package,Field_Reference,Field_Number 0x1b 06cc e009 | | Load 0x0,0x9 06cd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06ce 191c | | Execute Package,Field_Reference,Field_Number 0x1c 06cf e009 | | Load 0x0,0x9 06d0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06d1 191d | | Execute Package,Field_Reference,Field_Number 0x1d 06d2 e009 | | Load 0x0,0x9 06d3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06d4 191e | | Execute Package,Field_Reference,Field_Number 0x1e 06d5 e009 | | Load 0x0,0x9 06d6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06d7 191f | | Execute Package,Field_Reference,Field_Number 0x1f 06d8 e009 | | Load 0x0,0x9 06d9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06da 1920 | | Execute Package,Field_Reference,Field_Number 0x20 06db e009 | | Load 0x0,0x9 06dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06dd 1921 | ! | Execute Package,Field_Reference,Field_Number 0x21 06de e009 | | Load 0x0,0x9 06df 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06e0 1922 | " | Execute Package,Field_Reference,Field_Number 0x22 06e1 e009 | | Load 0x0,0x9 06e2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06e3 1923 | # | Execute Package,Field_Reference,Field_Number 0x23 06e4 e009 | | Load 0x0,0x9 06e5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06e6 1924 | $ | Execute Package,Field_Reference,Field_Number 0x24 06e7 e009 | | Load 0x0,0x9 06e8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06e9 1925 | % | Execute Package,Field_Reference,Field_Number 0x25 06ea e009 | | Load 0x0,0x9 06eb 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06ec 1926 | & | Execute Package,Field_Reference,Field_Number 0x26 06ed e009 | | Load 0x0,0x9 06ee 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06ef 1927 | ' | Execute Package,Field_Reference,Field_Number 0x27 06f0 e009 | | Load 0x0,0x9 06f1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06f2 1928 | ( | Execute Package,Field_Reference,Field_Number 0x28 06f3 e00b | | Load 0x0,0xb 06f4 0387 | | Declare_Variable Package 06f5 00d8 | | Load_Top At_Offset_0 06f6 020f | | Execute Module,Activate 06f7 BODY_0688: 06f7 4800 |H | Short_Literal 0x0 ; Debug Table 0x1f.0x8 = 0x6f7,0x1 06f8 e009 | | Load 0x0,0x9 06f9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06fa 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 06fb 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1f.0x9 = 0x6fb,0x2 06fc 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 06fd e405 | | Load 0x2,0x5 ; Debug Table 0x1f.0xa = 0x6fd,0x3 06fe e009 | | Load 0x0,0x9 06ff 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0700 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0701 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0702 0000 0000 | | .BLANK 0000[0x6] 0708 ; -------------------------------------------------------------------------------------- 0708 ; SUBPROGRAM 0708 ; -------------------------------------------------------------------------------------- 0708 0720 | | .CONST 0x0720 ; Address of begin 0709 0004 | | .CONST 0x0004 ; Address of exception handler 070a 000b | | .CONST 0x000b ; Number of locals 070b INIT_0708: 070b 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x20 = .DEBUG 0x070b,0x11be,0x1001,0x0000,0x0036,0xbf94,0x0000,0x0338 ; Debug Table 0x20.0x0 = 0x70b,0xffff 070c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 070d 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x20.0x1 = 0x70d,0xfffe 070e 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 070f 0007 | | Action Break_Optional ; Debug Table 0x20.0x2 = 0x70f,0xfffd 0710 029f 0a0b | | Declare_Subprogram INIT_0a08,For_Call ; Debug Table 0x20.0x3 = 0x710,0xfffc 0712 1d79 | y | Execute_Immediate Reference_Lex_1,0x79 ; Debug Table 0x20.0x4 = 0x712,0xfffb 0713 00c6 | | Action Check_Subprogram_Elaborated 0714 e006 | | Load 0x0,0x6 0715 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0716 1d82 | | Execute_Immediate Reference_Lex_1,0x82 0717 e006 | | Load 0x0,0x6 0718 1911 | | Execute Package,Field_Reference,Field_Number 0x11 0719 4804 |H | Short_Literal 0x4 071a 4802 |H | Short_Literal 0x2 071b 0099 | | Action Reference_Dynamic 071c 61eb |a | Indirect_Literal Discrete,0x908,{0x00000000, 0x0036bf94} 071d 4b96 |K | Short_Literal 0x396 071e 480b |H | Short_Literal 0xb 071f 0007 | | Action Break_Optional 0720 BODY_0708: 0720 e5fc | | Load 0x2,-0x4 ; Debug Table 0x20.0x5 = 0x720,0x1 0721 821a | | Call 0x1,0x1a 0722 4603 |F | Jump_Case 0x4 0723 7803 |x | Jump 0x727 ; case 0x0 0724 7812 |x | Jump 0x737 ; case 0x1 0725 782a |x* | Jump 0x750 ; case 0x2 0726 7841 |xA | Jump 0x768 ; case 0x3 0727 e5fb | | Load 0x2,-0x5 ; Debug Table 0x20.0x6 = 0x727,0x2 0728 e210 | | Load 0x1,0x10 0729 0119 | | Execute Any,Check_In_Formal_Type 072a e5fc | | Load 0x2,-0x4 072b e5fd | | Load 0x2,-0x3 072c e5fe | | Load 0x2,-0x2 072d e5ff | | Load 0x2,-0x1 072e e21c | | Load 0x1,0x1c 072f 0119 | | Execute Any,Check_In_Formal_Type 0730 e27b | { | Load 0x1,0x7b 0731 1d7c | | | Execute_Immediate Reference_Lex_1,0x7c 0732 1d7d | } | Execute_Immediate Reference_Lex_1,0x7d 0733 1d7e | ~ | Execute_Immediate Reference_Lex_1,0x7e 0734 1d7f | | Execute_Immediate Reference_Lex_1,0x7f 0735 8279 | y | Call 0x1,0x79 0736 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0737 e5fb | | Load 0x2,-0x5 ; Debug Table 0x20.0x7 = 0x737,0x3 0738 e210 | | Load 0x1,0x10 0739 0119 | | Execute Any,Check_In_Formal_Type 073a e5fc | | Load 0x2,-0x4 073b 824d | M | Call 0x1,0x4d 073c e5fd | | Load 0x2,-0x3 073d e5fe | | Load 0x2,-0x2 073e e5ff | | Load 0x2,-0x1 073f e21c | | Load 0x1,0x1c 0740 0119 | | Execute Any,Check_In_Formal_Type 0741 e405 | | Load 0x2,0x5 0742 4806 |H | Short_Literal 0x6 0743 4802 |H | Short_Literal 0x2 0744 0099 | | Action Reference_Dynamic 0745 4807 |H | Short_Literal 0x7 0746 4802 |H | Short_Literal 0x2 0747 0099 | | Action Reference_Dynamic 0748 4808 |H | Short_Literal 0x8 0749 4802 |H | Short_Literal 0x2 074a 0099 | | Action Reference_Dynamic 074b 4809 |H | Short_Literal 0x9 074c 4802 |H | Short_Literal 0x2 074d 0099 | | Action Reference_Dynamic 074e 8279 | y | Call 0x1,0x79 074f 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0750 e402 | | Load 0x2,0x2 ; Debug Table 0x20.0x8 = 0x750,0x4 0751 6806 |h | Jump_Zero 0x758 0752 e5fe | | Load 0x2,-0x2 ; Debug Table 0x20.0x9 = 0x752,0x5 0753 e5ff | | Load 0x2,-0x1 0754 e21c | | Load 0x1,0x1c 0755 0119 | | Execute Any,Check_In_Formal_Type 0756 827a | z | Call 0x1,0x7a 0757 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0758 e403 | | Load 0x2,0x3 ; Debug Table 0x20.0xa = 0x758,0x6 0759 e5fc | | Load 0x2,-0x4 075a 824d | M | Call 0x1,0x4d 075b 00e3 | | Load_Encached Natural_Cache 075c 0122 | " | Execute Any,Make_Root_Type 075d 00e0 | | Load_Encached Standard_Cache 075e 1819 | | Execute Package,Field_Execute,Field_Number 0x19 075f 00e3 | | Load_Encached Natural_Cache 0760 025b | [ | Execute Discrete,Check_In_Type 0761 e5fd | | Load 0x2,-0x3 0762 e5fe | | Load 0x2,-0x2 0763 e5ff | | Load 0x2,-0x1 0764 e21c | | Load 0x1,0x1c 0765 0119 | | Execute Any,Check_In_Formal_Type 0766 8283 | | Call 0x1,0x83 0767 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0768 e5fd | | Load 0x2,-0x3 ; Debug Table 0x20.0xb = 0x768,0x7 0769 e5fe | | Load 0x2,-0x2 076a e5ff | | Load 0x2,-0x1 076b e21c | | Load 0x1,0x1c 076c 0119 | | Execute Any,Check_In_Formal_Type 076d 8286 | | Call 0x1,0x86 076e 4506 |E | Exit_Suprogram New_Top_Offset 0x6 076f 0000 | | .XXX[0x1] 0770 ; -------------------------------------------------------------------------------------- 0770 ; SUBPROGRAM 0770 ; -------------------------------------------------------------------------------------- 0770 077e | ~ | .CONST 0x077e ; Address of begin 0771 0004 | | .CONST 0x0004 ; Address of exception handler 0772 0006 | | .CONST 0x0006 ; Number of locals 0773 INIT_0770: 0773 e231 | 1 | Load 0x1,0x31 ; Debug Table 0x21 = .DEBUG 0x0773,0x11d8,0x1001,0x0000,0x0036,0xbf94,0x0000,0x03f3 ; Debug Table 0x21.0x0 = 0x773,0xffff 0774 0337 | 7 | Declare_Variable Array 0775 e002 | | Load 0x0,0x2 ; Debug Table 0x21.0x1 = 0x775,0xfffe 0776 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0777 0322 | " | Declare_Variable Record 0778 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x21.0x2 = 0x778,0xfffd 0779 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 077a 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x21.0x3 = 0x77a,0xfffc 077b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 077c 029f 0a23 | #| Declare_Subprogram INIT_0a20,For_Call ; Debug Table 0x21.0x4 = 0x77c,0xfffb 077e BODY_0770: 077e 00cf | | Action Mark_Auxiliary 077f 7843 |xC | Jump 0x7c3 0780 4801 |H | Short_Literal 0x1 ; Debug Table 0x21.0x5 = 0x780,0x2 0781 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0782 e402 | | Load 0x2,0x2 ; Debug Table 0x21.0x6 = 0x782,0x3 0783 e403 | | Load 0x2,0x3 0784 e5ff | | Load 0x2,-0x1 0785 e21c | | Load 0x1,0x1c 0786 0119 | | Execute Any,Check_In_Formal_Type 0787 8221 | ! | Call 0x1,0x21 0788 00d2 | | Pop_Control Pop_Count_2 0789 e403 | | Load 0x2,0x3 ; Debug Table 0x21.0x7 = 0x789,0x4 078a 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 078b 460e |F | Jump_Case 0xf 078c 780e |x | Jump 0x79b ; case 0x0 078d 782c |x, | Jump 0x7ba ; case 0x1 078e 782b |x+ | Jump 0x7ba ; case 0x2 078f 782a |x* | Jump 0x7ba ; case 0x3 0790 7829 |x) | Jump 0x7ba ; case 0x4 0791 781a |x | Jump 0x7ac ; case 0x5 0792 7827 |x' | Jump 0x7ba ; case 0x6 0793 7809 |x | Jump 0x79d ; case 0x7 0794 7825 |x% | Jump 0x7ba ; case 0x8 0795 7824 |x$ | Jump 0x7ba ; case 0x9 0796 7823 |x# | Jump 0x7ba ; case 0xa 0797 7822 |x" | Jump 0x7ba ; case 0xb 0798 7821 |x! | Jump 0x7ba ; case 0xc 0799 7820 |x | Jump 0x7ba ; case 0xd 079a 781f |x | Jump 0x7ba ; case 0xe 079b 8406 | | Call 0x2,0x6 ; Debug Table 0x21.0x8 = 0x79b,0x5 079c 7825 |x% | Jump 0x7c2 079d e403 | | Load 0x2,0x3 ; Debug Table 0x21.0x9 = 0x79d,0x6 079e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 079f 0f40 | @ | Execute_Immediate Equal,0x40 07a0 6802 |h | Jump_Zero 0x7a3 07a1 8406 | | Call 0x2,0x6 ; Debug Table 0x21.0xa = 0x7a1,0x7 07a2 781f |x | Jump 0x7c2 07a3 4801 |H | Short_Literal 0x1 ; Debug Table 0x21.0xb = 0x7a3,0x8 07a4 0092 0b5f | _| Action Push_String_Extended,0xb5f ; "Read of File Header" 07a6 e403 | | Load 0x2,0x3 07a7 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 07a8 e258 | X | Load 0x1,0x58 07a9 1d59 | Y | Execute_Immediate Reference_Lex_1,0x59 07aa 8246 | F | Call 0x1,0x46 07ab 7816 |x | Jump 0x7c2 07ac 00db | | Load_Top At_Offset_3 ; Debug Table 0x21.0xc = 0x7ac,0x9 07ad 6807 |h | Jump_Zero 0x7b5 07ae 4801 |H | Short_Literal 0x1 ; Debug Table 0x21.0xd = 0x7ae,0xa 07af a5fb | | Store_Unchecked 0x2,-0x5 07b0 4800 |H | Short_Literal 0x0 ; Debug Table 0x21.0xe = 0x7b0,0xb 07b1 a5fc | | Store_Unchecked 0x2,-0x4 07b2 4800 |H | Short_Literal 0x0 ; Debug Table 0x21.0xf = 0x7b2,0xc 07b3 a5fd | | Store_Unchecked 0x2,-0x3 07b4 780d |x | Jump 0x7c2 07b5 4801 |H | Short_Literal 0x1 ; Debug Table 0x21.0x10 = 0x7b5,0xd 07b6 a404 | | Store_Unchecked 0x2,0x4 07b7 4800 |H | Short_Literal 0x0 ; Debug Table 0x21.0x11 = 0x7b7,0xe 07b8 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 07b9 7808 |x | Jump 0x7c2 07ba 4801 |H | Short_Literal 0x1 ; Debug Table 0x21.0x12 = 0x7ba,0xf 07bb 0092 0b5f | _| Action Push_String_Extended,0xb5f ; "Read of File Header" 07bd e403 | | Load 0x2,0x3 07be 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 07bf e258 | X | Load 0x1,0x58 07c0 1d59 | Y | Execute_Immediate Reference_Lex_1,0x59 07c1 8246 | F | Call 0x1,0x46 07c2 00c9 | | Action Pop_Auxiliary_Loop 07c3 00da | | Load_Top At_Offset_2 ; Debug Table 0x21.0x13 = 0x7c3,0x1 07c4 6fbb |o | Jump_Zero 0x780 07c5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 07c6 0000 0000 | | .XXX[0x2] 07c8 ; -------------------------------------------------------------------------------------- 07c8 ; SUBPROGRAM 07c8 ; -------------------------------------------------------------------------------------- 07c8 07ce | | .CONST 0x07ce ; Address of begin 07c9 0004 | | .CONST 0x0004 ; Address of exception handler 07ca 0002 | | .CONST 0x0002 ; Number of locals 07cb INIT_07c8: 07cb e002 | | Load 0x0,0x2 ; Debug Table 0x22 = .DEBUG 0x07cb,0x1202,0x1001,0x0000,0x0036,0xbf14,0x0000,0x0007 ; Debug Table 0x22.0x0 = 0x7cb,0xffff 07cc 1b16 | | Execute Package,Field_Read,Field_Number 0x16 07cd 0322 | " | Declare_Variable Record 07ce BODY_07c8: 07ce 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x22.0x1 = 0x7ce,0x1 07cf e5ff | | Load 0x2,-0x1 07d0 e21c | | Load 0x1,0x1c 07d1 0119 | | Execute Any,Check_In_Formal_Type 07d2 8228 | ( | Call 0x1,0x28 07d3 00d1 | | Pop_Control Pop_Count_1 07d4 4801 |H | Short_Literal 0x1 ; Debug Table 0x22.0x2 = 0x7d4,0x2 07d5 0092 0b60 | `| Action Push_String_Extended,0xb60 ; "Tape_Mark: End_Streaming_Write" 07d7 00da | | Load_Top At_Offset_2 07d8 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 07d9 e26b | k | Load 0x1,0x6b 07da e26c | l | Load 0x1,0x6c 07db 1d6d | m | Execute_Immediate Reference_Lex_1,0x6d 07dc 1d6e | n | Execute_Immediate Reference_Lex_1,0x6e 07dd 8247 | G | Call 0x1,0x47 07de e5fe | | Load 0x2,-0x2 ; Debug Table 0x22.0x3 = 0x7de,0x3 07df e5ff | | Load 0x2,-0x1 07e0 e21c | | Load 0x1,0x1c 07e1 0119 | | Execute Any,Check_In_Formal_Type 07e2 8224 | $ | Call 0x1,0x24 07e3 00d1 | | Pop_Control Pop_Count_1 07e4 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x22.0x4 = 0x7e4,0x4 07e5 e005 | | Load 0x0,0x5 07e6 181c | | Execute Package,Field_Execute,Field_Number 0x1c 07e7 611c |a | Indirect_Literal Discrete,0x904,{0x00000000, 0x00000400} 07e8 e5ff | | Load 0x2,-0x1 07e9 e21c | | Load 0x1,0x1c 07ea 0119 | | Execute Any,Check_In_Formal_Type 07eb 8227 | ' | Call 0x1,0x27 07ec 00d1 | | Pop_Control Pop_Count_1 07ed 4801 |H | Short_Literal 0x1 ; Debug Table 0x22.0x5 = 0x7ed,0x5 07ee 0092 0b61 | a| Action Push_String_Extended,0xb61 ; "Tape_Mark: Begin_Streaming_Write" 07f0 00da | | Load_Top At_Offset_2 07f1 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 07f2 e26b | k | Load 0x1,0x6b 07f3 e26c | l | Load 0x1,0x6c 07f4 1d6d | m | Execute_Immediate Reference_Lex_1,0x6d 07f5 1d6e | n | Execute_Immediate Reference_Lex_1,0x6e 07f6 8247 | G | Call 0x1,0x47 07f7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 07f8 ; -------------------------------------------------------------------------------------- 07f8 ; SUBPROGRAM 07f8 ; -------------------------------------------------------------------------------------- 07f8 07ff | | .CONST 0x07ff ; Address of begin 07f9 0004 | | .CONST 0x0004 ; Address of exception handler 07fa 0003 | | .CONST 0x0003 ; Number of locals 07fb INIT_07f8: 07fb 029f 0a43 | C| Declare_Subprogram INIT_0a40,For_Call ; Debug Table 0x23 = .DEBUG 0x07fb,0x1210,0x1002,0x0000,0x0036,0xbf14,0x0000,0x003f ; Debug Table 0x23.0x0 = 0x7fb,0xffff 07fd 029f 0a7b | {| Declare_Subprogram INIT_0a78,For_Call ; Debug Table 0x23.0x1 = 0x7fd,0xfffe 07ff BODY_07f8: 07ff e5ff | | Load 0x2,-0x1 ; Debug Table 0x23.0x2 = 0x7ff,0x1 0800 8402 | | Call 0x2,0x2 0801 8403 | | Call 0x2,0x3 0802 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0803 0000 0000 | | .BLANK 0000[0x5] 0808 ; -------------------------------------------------------------------------------------- 0808 ; SUBPROGRAM 0808 ; -------------------------------------------------------------------------------------- 0808 0813 | | .CONST 0x0813 ; Address of begin 0809 0004 | | .CONST 0x0004 ; Address of exception handler 080a 0003 | | .CONST 0x0003 ; Number of locals 080b INIT_0808: 080b e231 | 1 | Load 0x1,0x31 ; Debug Table 0x24 = .DEBUG 0x080b,0x1218,0x1001,0x0000,0x0036,0xbf14,0x0000,0x00c3 ; Debug Table 0x24.0x0 = 0x80b,0xffff 080c 0337 | 7 | Declare_Variable Array 080d e23c | < | Load 0x1,0x3c 080e 00d9 | | Load_Top At_Offset_1 080f 01d4 | | Execute Vector,Structure_Write 0810 e002 | | Load 0x0,0x2 ; Debug Table 0x24.0x1 = 0x810,0xfffe 0811 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0812 0322 | " | Declare_Variable Record 0813 BODY_0808: 0813 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x24.0x2 = 0x813,0x1 0814 4801 |H | Short_Literal 0x1 0815 481e |H | Short_Literal 0x1e 0816 00da | | Load_Top At_Offset_2 0817 035b | [ | Declare_Type Array,Constrained 0818 00d0 | | Action Swap_Control 0819 01cd | | Execute Vector,Slice_Reference 081a e5ff | | Load 0x2,-0x1 081b 828a | | Call 0x1,0x8a 081c 8248 | H | Call 0x1,0x48 081d 00d1 | | Pop_Control Pop_Count_1 081e 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x24.0x3 = 0x81e,0x2 081f 481f |H | Short_Literal 0x1f 0820 4820 |H | Short_Literal 0x20 0821 00da | | Load_Top At_Offset_2 0822 035b | [ | Declare_Type Array,Constrained 0823 00d0 | | Action Swap_Control 0824 01cd | | Execute Vector,Slice_Reference 0825 e5fe | | Load 0x2,-0x2 0826 8249 | I | Call 0x1,0x49 0827 00d1 | | Pop_Control Pop_Count_1 0828 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x24.0x4 = 0x828,0x3 0829 4821 |H! | Short_Literal 0x21 082a 4822 |H" | Short_Literal 0x22 082b 00da | | Load_Top At_Offset_2 082c 035b | [ | Declare_Type Array,Constrained 082d 00d0 | | Action Swap_Control 082e 01cd | | Execute Vector,Slice_Reference 082f e5fd | | Load 0x2,-0x3 0830 8249 | I | Call 0x1,0x49 0831 00d1 | | Pop_Control Pop_Count_1 0832 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x24.0x5 = 0x832,0x4 0833 00da | | Load_Top At_Offset_2 0834 e5fc | | Load 0x2,-0x4 0835 e21c | | Load 0x1,0x1c 0836 0119 | | Execute Any,Check_In_Formal_Type 0837 8223 | # | Call 0x1,0x23 0838 00d1 | | Pop_Control Pop_Count_1 0839 4801 |H | Short_Literal 0x1 ; Debug Table 0x24.0x6 = 0x839,0x5 083a 0092 0b62 | b| Action Push_String_Extended,0xb62 ; "Write_File_Header" 083c 00da | | Load_Top At_Offset_2 083d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 083e e26b | k | Load 0x1,0x6b 083f e26c | l | Load 0x1,0x6c 0840 1d6d | m | Execute_Immediate Reference_Lex_1,0x6d 0841 1d6e | n | Execute_Immediate Reference_Lex_1,0x6e 0842 8247 | G | Call 0x1,0x47 0843 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0844 0000 0000 | | .BLANK 0000[0x4] 0848 ; -------------------------------------------------------------------------------------- 0848 ; SUBPROGRAM 0848 ; -------------------------------------------------------------------------------------- 0848 0856 | V | .CONST 0x0856 ; Address of begin 0849 08c1 | | .CONST 0x08c1 ; Address of exception handler 084a 0006 | | .CONST 0x0006 ; Number of locals 084b INIT_0848: 084b e20f | | Load 0x1,0xf ; Debug Table 0x25 = .DEBUG 0x084b,0x1228,0x1001,0x0000,0x0036,0xbf14,0x0000,0x010e ; Debug Table 0x25.0x0 = 0x84b,0xffff 084c 02c7 | | Declare_Variable Any 084d 00d8 | | Load_Top At_Offset_0 084e 1c00 | | Execute_Immediate Run_Utility,0x0 084f e232 | 2 | Load 0x1,0x32 ; Debug Table 0x25.0x1 = 0x84f,0xfffe 0850 0337 | 7 | Declare_Variable Array 0851 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x25.0x2 = 0x851,0xfffd 0852 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x25.0x3 = 0x852,0xfffc 0853 e002 | | Load 0x0,0x2 ; Debug Table 0x25.0x4 = 0x853,0xfffb 0854 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0855 0322 | " | Declare_Variable Record 0856 BODY_0848: 0856 4800 |H | Short_Literal 0x0 ; Debug Table 0x25.0x5 = 0x856,0x1 0857 00d9 | | Load_Top At_Offset_1 0858 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0859 e402 | | Load 0x2,0x2 ; Debug Table 0x25.0x6 = 0x859,0x2 085a 0120 | | Execute Any,Is_Value 085b 6802 |h | Jump_Zero 0x85e 085c e20f | | Load 0x1,0xf 085d 7803 |x | Jump 0x861 085e e402 | | Load 0x2,0x2 085f e20f | | Load 0x1,0xf 0860 0119 | | Execute Any,Check_In_Formal_Type 0861 e5fe | | Load 0x2,-0x2 0862 e210 | | Load 0x1,0x10 0863 0119 | | Execute Any,Check_In_Formal_Type 0864 4801 |H | Short_Literal 0x1 0865 e5ff | | Load 0x2,-0x1 0866 8211 | | Call 0x1,0x11 0867 c402 | | Store 0x2,0x2 0868 e402 | | Load 0x2,0x2 ; Debug Table 0x25.0x7 = 0x868,0x3 0869 e20f | | Load 0x1,0xf 086a 0119 | | Execute Any,Check_In_Formal_Type 086b 8215 | | Call 0x1,0x15 086c 09f6 | | Execute_Immediate Binary_Scale,-0xa 086d 005b | [ | Store_Top Discrete,At_Offset_3 086e e402 | | Load 0x2,0x2 ; Debug Table 0x25.0x8 = 0x86e,0x4 086f e20f | | Load 0x1,0xf 0870 0119 | | Execute Any,Check_In_Formal_Type 0871 8215 | | Call 0x1,0x15 0872 4bff |K | Short_Literal 0x3ff 0873 0279 | y | Execute Discrete,And 0874 005a | Z | Store_Top Discrete,At_Offset_2 0875 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x25.0x9 = 0x875,0x5 0876 7003 |p | Jump_Nonzero 0x87a 0877 608c |` | Indirect_Literal Discrete,0x904,{0x00000000, 0x00000400} ; Debug Table 0x25.0xa = 0x877,0x6 0878 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0879 7803 |x | Jump 0x87d 087a 00da | | Load_Top At_Offset_2 ; Debug Table 0x25.0xb = 0x87a,0x7 087b 0a01 | | Execute_Immediate Plus,0x1 087c 005b | [ | Store_Top Discrete,At_Offset_3 087d e5fd | | Load 0x2,-0x3 ; Debug Table 0x25.0xc = 0x87d,0x8 087e 00da | | Load_Top At_Offset_2 087f e404 | | Load 0x2,0x4 0880 e5ff | | Load 0x2,-0x1 0881 828b | | Call 0x1,0x8b 0882 c5fd | | Store 0x2,-0x3 0883 00cf | | Action Mark_Auxiliary 0884 00db | | Load_Top At_Offset_3 ; Debug Table 0x25.0xd = 0x884,0x9 0885 4801 |H | Short_Literal 0x1 0886 0263 | c | Execute Discrete,Above_Bound 0887 7034 |p4 | Jump_Nonzero 0x8bc 0888 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x25.0xe = 0x888,0xa 0889 e404 | | Load 0x2,0x4 088a 027c | | | Execute Discrete,Less 088b 6806 |h | Jump_Zero 0x892 088c e403 | | Load 0x2,0x3 ; Debug Table 0x25.0xf = 0x88c,0xb 088d e402 | | Load 0x2,0x2 088e 8216 | | Call 0x1,0x16 088f c402 | | Store 0x2,0x2 0890 00d1 | | Pop_Control Pop_Count_1 0891 7817 |x | Jump 0x8a9 0892 00cf | | Action Mark_Auxiliary 0893 e405 | | Load 0x2,0x5 ; Debug Table 0x25.0x10 = 0x893,0xc 0894 4801 |H | Short_Literal 0x1 0895 0263 | c | Execute Discrete,Above_Bound 0896 7011 |p | Jump_Nonzero 0x8a8 0897 e403 | | Load 0x2,0x3 ; Debug Table 0x25.0x11 = 0x897,0xd 0898 00d9 | | Load_Top At_Offset_1 0899 e002 | | Load 0x0,0x2 089a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 089b 00d9 | | Load_Top At_Offset_1 089c 00db | | Load_Top At_Offset_3 089d 01d7 | | Execute Vector,Field_Read 089e 00d1 | | Pop_Control Pop_Count_1 089f e402 | | Load 0x2,0x2 08a0 8217 | | Call 0x1,0x17 08a1 c402 | | Store 0x2,0x2 08a2 00d9 | | Load_Top At_Offset_1 08a3 00db | | Load_Top At_Offset_3 08a4 01d6 | | Execute Vector,Field_Write 08a5 00d2 | | Pop_Control Pop_Count_2 08a6 00c8 | | Action Pop_Auxiliary_Range 08a7 3fef |? | Loop_Increasing 0x897 08a8 00ce | | Action Pop_Auxiliary 08a9 00db | | Load_Top At_Offset_3 ; Debug Table 0x25.0x12 = 0x8a9,0xe 08aa e403 | | Load 0x2,0x3 08ab e5fd | | Load 0x2,-0x3 08ac e21c | | Load 0x1,0x1c 08ad 0119 | | Execute Any,Check_In_Formal_Type 08ae 8223 | # | Call 0x1,0x23 08af 00d1 | | Pop_Control Pop_Count_1 08b0 4801 |H | Short_Literal 0x1 ; Debug Table 0x25.0x13 = 0x8b0,0xf 08b1 0092 0b63 | c| Action Push_String_Extended,0xb63 ; "Write Data Block" 08b3 e406 | | Load 0x2,0x6 08b4 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 08b5 e26b | k | Load 0x1,0x6b 08b6 e26c | l | Load 0x1,0x6c 08b7 1d6d | m | Execute_Immediate Reference_Lex_1,0x6d 08b8 1d6e | n | Execute_Immediate Reference_Lex_1,0x6e 08b9 8247 | G | Call 0x1,0x47 08ba 00c8 | | Action Pop_Auxiliary_Range 08bb 3fcc |? | Loop_Increasing 0x888 08bc 00ce | | Action Pop_Auxiliary 08bd e402 | | Load 0x2,0x2 ; Debug Table 0x25.0x14 = 0x8bd,0x10 08be 8212 | | Call 0x1,0x12 08bf c402 | | Store 0x2,0x2 08c0 4503 |E | Exit_Suprogram New_Top_Offset 0x3 08c1 TRAP_0848: 08c1 00d8 | | Load_Top At_Offset_0 08c2 0107 | | Execute Exception,Get_Name 08c3 4920 |I | Short_Literal 0x120 08c4 492f |I/ | Short_Literal 0x12f 08c5 0262 | b | Execute Discrete,In_Range 08c6 6805 |h | Jump_Zero 0x8cc 08c7 e5ff | | Load 0x2,-0x1 ; Debug Table 0x25.0x15 = 0x8c7,0x11 08c8 e23d | = | Load 0x1,0x3d 08c9 e23f | ? | Load 0x1,0x3f 08ca 824f | O | Call 0x1,0x4f 08cb 4503 |E | Exit_Suprogram New_Top_Offset 0x3 08cc 00d8 | | Load_Top At_Offset_0 08cd 0107 | | Execute Exception,Get_Name 08ce 4930 |I0 | Short_Literal 0x130 08cf 493f |I? | Short_Literal 0x13f 08d0 0262 | b | Execute Discrete,In_Range 08d1 6805 |h | Jump_Zero 0x8d7 08d2 e5ff | | Load 0x2,-0x1 ; Debug Table 0x25.0x16 = 0x8d2,0x12 08d3 e23d | = | Load 0x1,0x3d 08d4 e240 | @ | Load 0x1,0x40 08d5 824f | O | Call 0x1,0x4f 08d6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 08d7 00d8 | | Load_Top At_Offset_0 08d8 0107 | | Execute Exception,Get_Name 08d9 4950 |IP | Short_Literal 0x150 08da 495f |I_ | Short_Literal 0x15f 08db 0262 | b | Execute Discrete,In_Range 08dc 6805 |h | Jump_Zero 0x8e2 08dd e5ff | | Load 0x2,-0x1 ; Debug Table 0x25.0x17 = 0x8dd,0x13 08de e23d | = | Load 0x1,0x3d 08df e241 | A | Load 0x1,0x41 08e0 824f | O | Call 0x1,0x4f 08e1 4503 |E | Exit_Suprogram New_Top_Offset 0x3 08e2 00d8 | | Load_Top At_Offset_0 08e3 0107 | | Execute Exception,Get_Name 08e4 4900 |I | Short_Literal 0x100 08e5 490f |I | Short_Literal 0x10f 08e6 0262 | b | Execute Discrete,In_Range 08e7 6805 |h | Jump_Zero 0x8ed 08e8 e5ff | | Load 0x2,-0x1 ; Debug Table 0x25.0x18 = 0x8e8,0x14 08e9 e23d | = | Load 0x1,0x3d 08ea e243 | C | Load 0x1,0x43 08eb 824f | O | Call 0x1,0x4f 08ec 4503 |E | Exit_Suprogram New_Top_Offset 0x3 08ed e5ff | | Load 0x2,-0x1 ; Debug Table 0x25.0x19 = 0x8ed,0x15 08ee e23d | = | Load 0x1,0x3d 08ef e242 | B | Load 0x1,0x42 08f0 824f | O | Call 0x1,0x4f 08f1 4503 |E | Exit_Suprogram New_Top_Offset 0x3 08f2 0000 0000 | | .BLANK 0000[0x6] 08f8 ; -------------------------------------------------------------------------------------- 08f8 ; SUBPROGRAM 08f8 ; -------------------------------------------------------------------------------------- 08f8 08fb | | .CONST 0x08fb ; Address of begin 08f9 0004 | | .CONST 0x0004 ; Address of exception handler 08fa 0001 | | .CONST 0x0001 ; Number of locals 08fb BODY_08f8: 08fb INIT_08f8: 08fb 00da | | Load_Top At_Offset_2 ; Debug Table 0x26 = .DEBUG 0x08fb,0x125e,0x1002,0x0000,0x0036,0xbf14,0x0000,0x01ee ; Debug Table 0x26.0x0 = 0x8fb,0x1 08fc 0f0a | | Execute_Immediate Equal,0xa 08fd 7003 |p | Jump_Nonzero 0x901 08fe 00da | | Load_Top At_Offset_2 08ff 0f0d | | Execute_Immediate Equal,0xd 0900 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0901 4801 |H | Short_Literal 0x1 0902 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0903 0000 | | .XXX[0x1] 0904 0000 0000 | | .LITERAL {0x00000000, 0x00000400} 0908 0000 0000 | | .LITERAL {0x00000000, 0x0036bf94} 090c 0000 0000 | | .BLANK 0000[0x4] 0910 ; -------------------------------------------------------------------------------------- 0910 ; SUBPROGRAM 0910 ; -------------------------------------------------------------------------------------- 0910 0913 | | .CONST 0x0913 ; Address of begin 0911 0004 | | .CONST 0x0004 ; Address of exception handler 0912 0001 | | .CONST 0x0001 ; Number of locals 0913 BODY_0910: 0913 INIT_0910: 0913 00da | | Load_Top At_Offset_2 ; Debug Table 0x27 = .DEBUG 0x0913,0x1262,0x1002,0x0000,0x0036,0xbf14,0x0000,0x020c ; Debug Table 0x27.0x0 = 0x913,0x1 0914 0f20 | | Execute_Immediate Equal,0x20 0915 7003 |p | Jump_Nonzero 0x919 0916 00da | | Load_Top At_Offset_2 0917 0f09 | | Execute_Immediate Equal,0x9 0918 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0919 4801 |H | Short_Literal 0x1 091a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 091b 0000 0000 | | .BLANK 0000[0x5] 0920 ; -------------------------------------------------------------------------------------- 0920 ; SUBPROGRAM 0920 ; -------------------------------------------------------------------------------------- 0920 0923 | # | .CONST 0x0923 ; Address of begin 0921 0004 | | .CONST 0x0004 ; Address of exception handler 0922 0001 | | .CONST 0x0001 ; Number of locals 0923 BODY_0920: 0923 INIT_0920: 0923 00db | | Load_Top At_Offset_3 ; Debug Table 0x28 = .DEBUG 0x0923,0x1266,0x1001,0x0000,0x0036,0xbf14,0x0000,0x0228 ; Debug Table 0x28.0x0 = 0x923,0x1 0924 e001 | | Load 0x0,0x1 0925 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0926 e5fe | | Load 0x2,-0x2 0927 e001 | | Load 0x0,0x1 0928 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0929 027c | | | Execute Discrete,Less 092a 6805 |h | Jump_Zero 0x930 092b 00db | | Load_Top At_Offset_3 ; Debug Table 0x28.0x1 = 0x92b,0x2 092c 00db | | Load_Top At_Offset_3 092d e001 | | Load 0x0,0x1 092e 1819 | | Execute Package,Field_Execute,Field_Number 0x19 092f 00d1 | | Pop_Control Pop_Count_1 0930 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0931 0000 0000 | | .BLANK 0000[0x7] 0938 ; -------------------------------------------------------------------------------------- 0938 ; SUBPROGRAM 0938 ; -------------------------------------------------------------------------------------- 0938 0942 | B | .CONST 0x0942 ; Address of begin 0939 0004 | | .CONST 0x0004 ; Address of exception handler 093a 0003 | | .CONST 0x0003 ; Number of locals 093b INIT_0938: 093b 49ff |I | Short_Literal 0x1ff ; Debug Table 0x29 = .DEBUG 0x093b,0x126c,0x1001,0x0000,0x0036,0xbf14,0x0000,0x0253 ; Debug Table 0x29.0x0 = 0x93b,0xffff 093c e001 | | Load 0x0,0x1 093d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 093e 1c08 | | Execute_Immediate Run_Utility,0x8 093f 00d8 | | Load_Top At_Offset_0 0940 1c00 | | Execute_Immediate Run_Utility,0x0 0941 00e8 | | Load_Encached Character_Cache ; Debug Table 0x29.0x1 = 0x941,0xfffe 0942 BODY_0938: 0942 00cf | | Action Mark_Auxiliary 0943 7810 |x | Jump 0x954 0944 00e8 | | Load_Encached Character_Cache ; Debug Table 0x29.0x2 = 0x944,0x2 0945 e5fd | | Load 0x2,-0x3 0946 8218 | | Call 0x1,0x18 0947 c5fd | | Store 0x2,-0x3 0948 005a | Z | Store_Top Discrete,At_Offset_2 0949 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x29.0x3 = 0x949,0x3 094a 828d | | Call 0x1,0x8d 094b 700d |p | Jump_Nonzero 0x959 094c 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x29.0x4 = 0x94c,0x4 094d 828e | | Call 0x1,0x8e 094e 7004 |p | Jump_Nonzero 0x953 094f 00da | | Load_Top At_Offset_2 ; Debug Table 0x29.0x5 = 0x94f,0x5 0950 00da | | Load_Top At_Offset_2 0951 828f | | Call 0x1,0x8f 0952 00d1 | | Pop_Control Pop_Count_1 0953 00c9 | | Action Pop_Auxiliary_Loop 0954 e5fd | | Load 0x2,-0x3 ; Debug Table 0x29.0x6 = 0x954,0x1 0955 e20f | | Load 0x1,0xf 0956 0119 | | Execute Any,Check_In_Formal_Type 0957 8213 | | Call 0x1,0x13 0958 6feb |o | Jump_Zero 0x944 0959 00ce | | Action Pop_Auxiliary 095a 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x29.0x7 = 0x95a,0x6 095b e001 | | Load 0x0,0x1 095c 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 095d 0c01 | | Execute_Immediate Greater_Equal,0x1 095e 6809 |h | Jump_Zero 0x968 095f e5fe | | Load 0x2,-0x2 ; Debug Table 0x29.0x8 = 0x95f,0x7 0960 e5ff | | Load 0x2,-0x1 0961 e210 | | Load 0x1,0x10 0962 0119 | | Execute Any,Check_In_Formal_Type 0963 00db | | Load_Top At_Offset_3 0964 e001 | | Load 0x0,0x1 0965 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0966 828c | | Call 0x1,0x8c 0967 c5fe | | Store 0x2,-0x2 0968 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0969 0000 0000 | | .BLANK 0000[0x7] 0970 ; -------------------------------------------------------------------------------------- 0970 ; SUBPROGRAM 0970 ; -------------------------------------------------------------------------------------- 0970 0975 | u | .CONST 0x0975 ; Address of begin 0971 0004 | | .CONST 0x0004 ; Address of exception handler 0972 0002 | | .CONST 0x0002 ; Number of locals 0973 INIT_0970: 0973 e002 | | Load 0x0,0x2 ; Debug Table 0x2a = .DEBUG 0x0973,0x1280,0x1001,0x0000,0x0036,0xbf04,0x0000,0x034d ; Debug Table 0x2a.0x0 = 0x973,0xffff 0974 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0975 BODY_0970: 0975 00db | | Load_Top At_Offset_3 ; Debug Table 0x2a.0x1 = 0x975,0x1 0976 e21b | | Load 0x1,0x1b 0977 0119 | | Execute Any,Check_In_Formal_Type 0978 821d | | Call 0x1,0x1d 0979 6845 |hE | Jump_Zero 0x9bf 097a 00cf | | Action Mark_Auxiliary 097b e229 | ) | Load 0x1,0x29 ; Debug Table 0x2a.0x2 = 0x97b,0x2 097c 4801 |H | Short_Literal 0x1 097d 0263 | c | Execute Discrete,Above_Bound 097e 703a |p: | Jump_Nonzero 0x9b9 097f e002 | | Load 0x0,0x2 ; Debug Table 0x2a.0x3 = 0x97f,0x3 0980 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0981 e5fc | | Load 0x2,-0x4 0982 0120 | | Execute Any,Is_Value 0983 6802 |h | Jump_Zero 0x986 0984 e21c | | Load 0x1,0x1c 0985 7803 |x | Jump 0x989 0986 e5fc | | Load 0x2,-0x4 0987 e21c | | Load 0x1,0x1c 0988 0119 | | Execute Any,Check_In_Formal_Type 0989 e5fd | | Load 0x2,-0x3 098a e210 | | Load 0x1,0x10 098b 0119 | | Execute Any,Check_In_Formal_Type 098c e5fe | | Load 0x2,-0x2 098d e5ff | | Load 0x2,-0x1 098e e21b | | Load 0x1,0x1b 098f 0119 | | Execute Any,Check_In_Formal_Type 0990 821e | | Call 0x1,0x1e 0991 c5fc | | Store 0x2,-0x4 0992 c402 | | Store 0x2,0x2 0993 00db | | Load_Top At_Offset_3 ; Debug Table 0x2a.0x4 = 0x993,0x4 0994 4604 |F | Jump_Case 0x5 0995 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x0 0996 7811 |x | Jump 0x9a8 ; case 0x1 0997 7818 |x | Jump 0x9b0 ; case 0x2 0998 7817 |x | Jump 0x9b0 ; case 0x3 0999 7800 |x | Jump 0x99a ; case 0x4 099a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2a.0x5 = 0x99a,0x6 099b e229 | ) | Load 0x1,0x29 099c 027c | | | Execute Discrete,Less 099d 6819 |h | Jump_Zero 0x9b7 099e 4800 |H | Short_Literal 0x0 ; Debug Table 0x2a.0x6 = 0x99e,0x7 099f 0092 0b64 | d| Action Push_String_Extended,0xb64 ; "Open Tape (will retry)" 09a1 e402 | | Load 0x2,0x2 09a2 e250 | P | Load 0x1,0x50 09a3 1d51 | Q | Execute_Immediate Reference_Lex_1,0x51 09a4 8246 | F | Call 0x1,0x46 09a5 e22a | * | Load 0x1,0x2a ; Debug Table 0x2a.0x7 = 0x9a5,0x8 09a6 00ba | | Action Initiate_Delay 09a7 780f |x | Jump 0x9b7 09a8 4801 |H | Short_Literal 0x1 ; Debug Table 0x2a.0x8 = 0x9a8,0x9 09a9 0092 0b65 | e| Action Push_String_Extended,0xb65 ; "Open Tape" 09ab e402 | | Load 0x2,0x2 09ac e250 | P | Load 0x1,0x50 09ad 1d51 | Q | Execute_Immediate Reference_Lex_1,0x51 09ae 8246 | F | Call 0x1,0x46 09af 7807 |x | Jump 0x9b7 09b0 4801 |H | Short_Literal 0x1 ; Debug Table 0x2a.0x9 = 0x9b0,0xa 09b1 0092 0b66 | f| Action Push_String_Extended,0xb66 ; "Other Error" 09b3 e402 | | Load 0x2,0x2 09b4 e250 | P | Load 0x1,0x50 09b5 1d51 | Q | Execute_Immediate Reference_Lex_1,0x51 09b6 8246 | F | Call 0x1,0x46 09b7 00c8 | | Action Pop_Auxiliary_Range 09b8 3fc6 |? | Loop_Increasing 0x97f 09b9 00ce | | Action Pop_Auxiliary 09ba 4801 |H | Short_Literal 0x1 ; Debug Table 0x2a.0xa = 0x9ba,0xb 09bb 0092 0b67 | g| Action Push_String_Extended,0xb67 ; "Too many retries in Opening Tape Drive" 09bd 824e | N | Call 0x1,0x4e 09be 4504 |E | Exit_Suprogram New_Top_Offset 0x4 09bf 4801 |H | Short_Literal 0x1 ; Debug Table 0x2a.0xb = 0x9bf,0xc 09c0 0092 0b68 | h| Action Push_String_Extended,0xb68 ; "Non-Existent Tape Drive Specified" 09c2 824e | N | Call 0x1,0x4e 09c3 4504 |E | Exit_Suprogram New_Top_Offset 0x4 09c4 0000 0000 | | .BLANK 0000[0x4] 09c8 ; -------------------------------------------------------------------------------------- 09c8 ; SUBPROGRAM 09c8 ; -------------------------------------------------------------------------------------- 09c8 09d0 | | .CONST 0x09d0 ; Address of begin 09c9 0004 | | .CONST 0x0004 ; Address of exception handler 09ca 0003 | | .CONST 0x0003 ; Number of locals 09cb INIT_09c8: 09cb e002 | | Load 0x0,0x2 ; Debug Table 0x2b = .DEBUG 0x09cb,0x129a,0x1001,0x0000,0x0036,0xbf04,0x0000,0x03c0 ; Debug Table 0x2b.0x0 = 0x9cb,0xffff 09cc 1b16 | | Execute Package,Field_Read,Field_Number 0x16 09cd 0322 | " | Declare_Variable Record 09ce e002 | | Load 0x0,0x2 ; Debug Table 0x2b.0x1 = 0x9ce,0xfffe 09cf 1b14 | | Execute Package,Field_Read,Field_Number 0x14 09d0 BODY_09c8: 09d0 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2b.0x2 = 0x9d0,0x1 09d1 4801 |H | Short_Literal 0x1 09d2 e5ff | | Load 0x2,-0x1 09d3 e21c | | Load 0x1,0x1c 09d4 0119 | | Execute Any,Check_In_Formal_Type 09d5 8220 | | Call 0x1,0x20 09d6 00d1 | | Pop_Control Pop_Count_1 09d7 4800 |H | Short_Literal 0x0 ; Debug Table 0x2b.0x3 = 0x9d7,0x2 09d8 0092 0b69 | i| Action Push_String_Extended,0xb69 ; "Positioning Tape" 09da 00db | | Load_Top At_Offset_3 09db 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 09dc e26b | k | Load 0x1,0x6b 09dd e26c | l | Load 0x1,0x6c 09de 1d6d | m | Execute_Immediate Reference_Lex_1,0x6d 09df 1d6e | n | Execute_Immediate Reference_Lex_1,0x6e 09e0 8247 | G | Call 0x1,0x47 09e1 e002 | | Load 0x0,0x2 ; Debug Table 0x2b.0x4 = 0x9e1,0x3 09e2 1b14 | | Execute Package,Field_Read,Field_Number 0x14 09e3 e5ff | | Load 0x2,-0x1 09e4 821f | | Call 0x1,0x1f 09e5 c5ff | | Store 0x2,-0x1 09e6 0059 | Y | Store_Top Discrete,At_Offset_1 09e7 4801 |H | Short_Literal 0x1 ; Debug Table 0x2b.0x5 = 0x9e7,0x4 09e8 0092 0b6a | j| Action Push_String_Extended,0xb6a ; "Closing Tape" 09ea 00da | | Load_Top At_Offset_2 09eb e264 | d | Load 0x1,0x64 09ec e265 | e | Load 0x1,0x65 09ed 1d66 | f | Execute_Immediate Reference_Lex_1,0x66 09ee 1d67 | g | Execute_Immediate Reference_Lex_1,0x67 09ef 8247 | G | Call 0x1,0x47 09f0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 09f1 0000 0000 | | .BLANK 0000[0x7] 09f8 ; -------------------------------------------------------------------------------------- 09f8 ; SUBPROGRAM 09f8 ; -------------------------------------------------------------------------------------- 09f8 09fb | | .CONST 0x09fb ; Address of begin 09f9 0004 | | .CONST 0x0004 ; Address of exception handler 09fa 0001 | | .CONST 0x0001 ; Number of locals 09fb BODY_09f8: 09fb INIT_09f8: 09fb e406 | | Load 0x2,0x6 ; Debug Table 0x2c = .DEBUG 0x09fb,0x12a8,0x1002,0x0000,0x0036,0xbf94,0x0000,0x02d5 ; Debug Table 0x2c.0x0 = 0x9fb,0x1 09fc 0a01 | | Execute_Immediate Plus,0x1 09fd c406 | | Store 0x2,0x6 09fe e406 | | Load 0x2,0x6 ; Debug Table 0x2c.0x1 = 0x9fe,0x2 09ff 0f01 | | Execute_Immediate Equal,0x1 0a00 6802 |h | Jump_Zero 0xa03 0a01 e403 | | Load 0x2,0x3 ; Debug Table 0x2c.0x2 = 0xa01,0x3 0a02 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a03 e402 | | Load 0x2,0x2 ; Debug Table 0x2c.0x3 = 0xa03,0x4 0a04 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a05 0000 0000 | | .XXX[0x3] 0a07 0000 | | 0a08 ; -------------------------------------------------------------------------------------- 0a08 ; SUBPROGRAM 0a08 ; -------------------------------------------------------------------------------------- 0a08 0a0b | | .CONST 0x0a0b ; Address of begin 0a09 0004 | | .CONST 0x0004 ; Address of exception handler 0a0a 0001 | | .CONST 0x0001 ; Number of locals 0a0b BODY_0a08: 0a0b INIT_0a08: 0a0b 00da | | Load_Top At_Offset_2 ; Debug Table 0x2d = .DEBUG 0x0a0b,0x12b2,0x1001,0x0000,0x0036,0xbf94,0x0000,0x035f ; Debug Table 0x2d.0x0 = 0xa0b,0x1 0a0c e006 | | Load 0x0,0x6 0a0d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0a0e e00c | | Load 0x0,0xc 0a0f 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0a10 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0a11 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0a12 a402 | | Store_Unchecked 0x2,0x2 0a13 00da | | Load_Top At_Offset_2 ; Debug Table 0x2d.0x1 = 0xa13,0x2 0a14 e006 | | Load 0x0,0x6 0a15 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0a16 e00c | | Load 0x0,0xc 0a17 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0a18 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0a19 0f00 | | Execute_Immediate Equal,0x0 0a1a a403 | | Store_Unchecked 0x2,0x3 0a1b 00da | | Load_Top At_Offset_2 ; Debug Table 0x2d.0x2 = 0xa1b,0x3 0a1c e006 | | Load 0x0,0x6 0a1d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0a1e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0a1f 0000 | | .XXX[0x1] 0a20 ; -------------------------------------------------------------------------------------- 0a20 ; SUBPROGRAM 0a20 ; -------------------------------------------------------------------------------------- 0a20 0a23 | # | .CONST 0x0a23 ; Address of begin 0a21 0004 | | .CONST 0x0004 ; Address of exception handler 0a22 0001 | | .CONST 0x0001 ; Number of locals 0a23 BODY_0a20: 0a23 INIT_0a20: 0a23 e5fe | | Load 0x2,-0x2 ; Debug Table 0x2e = .DEBUG 0x0a23,0x12ba,0x1001,0x0000,0x0036,0xbf94,0x0000,0x0420 ; Debug Table 0x2e.0x0 = 0xa23,0x1 0a24 4801 |H | Short_Literal 0x1 0a25 481e |H | Short_Literal 0x1e 0a26 e402 | | Load 0x2,0x2 0a27 01cf | | Execute Vector,Slice_Read 0a28 824b | K | Call 0x1,0x4b 0a29 824c | L | Call 0x1,0x4c 0a2a e001 | | Load 0x0,0x1 0a2b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0a2c 00d1 | | Pop_Control Pop_Count_1 0a2d 481f |H | Short_Literal 0x1f ; Debug Table 0x2e.0x1 = 0xa2d,0x2 0a2e 4820 |H | Short_Literal 0x20 0a2f e402 | | Load 0x2,0x2 0a30 01cf | | Execute Vector,Slice_Read 0a31 824a | J | Call 0x1,0x4a 0a32 a5fd | | Store_Unchecked 0x2,-0x3 0a33 4821 |H! | Short_Literal 0x21 ; Debug Table 0x2e.0x2 = 0xa33,0x3 0a34 4822 |H" | Short_Literal 0x22 0a35 e402 | | Load 0x2,0x2 0a36 01cf | | Execute Vector,Slice_Read 0a37 824a | J | Call 0x1,0x4a 0a38 a5fc | | Store_Unchecked 0x2,-0x4 0a39 4800 |H | Short_Literal 0x0 ; Debug Table 0x2e.0x3 = 0xa39,0x4 0a3a a5fb | | Store_Unchecked 0x2,-0x5 0a3b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0a3c 0000 0000 | | .BLANK 0000[0x4] 0a40 ; -------------------------------------------------------------------------------------- 0a40 ; SUBPROGRAM 0a40 ; -------------------------------------------------------------------------------------- 0a40 0a43 | C | .CONST 0x0a43 ; Address of begin 0a41 0004 | | .CONST 0x0004 ; Address of exception handler 0a42 0001 | | .CONST 0x0001 ; Number of locals 0a43 BODY_0a40: 0a43 INIT_0a40: 0a43 00cf | | Action Mark_Auxiliary ; Debug Table 0x2f = .DEBUG 0x0a43,0x12c4,0x1002,0x0000,0x0036,0xbf14,0x0000,0x0047 0a44 00db | | Load_Top At_Offset_3 ; Debug Table 0x2f.0x0 = 0xa44,0x1 0a45 01da | | Execute Vector,Bounds 0a46 0264 | d | Execute Discrete,Below_Bound 0a47 7027 |p' | Jump_Nonzero 0xa6f 0a48 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2f.0x1 = 0xa48,0x2 0a49 e7ff | | Load 0x3,-0x1 0a4a 01d7 | | Execute Vector,Field_Read 0a4b 0b5f | _ | Execute_Immediate Case_Compare,0x5f 0a4c 701f |p | Jump_Nonzero 0xa6c 0a4d 00d8 | | Load_Top At_Offset_0 0a4e 4841 |HA | Short_Literal 0x41 0a4f 485a |HZ | Short_Literal 0x5a 0a50 0262 | b | Execute Discrete,In_Range 0a51 701a |p | Jump_Nonzero 0xa6c 0a52 00d8 | | Load_Top At_Offset_0 0a53 4861 |Ha | Short_Literal 0x61 0a54 487a |Hz | Short_Literal 0x7a 0a55 0262 | b | Execute Discrete,In_Range 0a56 7015 |p | Jump_Nonzero 0xa6c 0a57 00d8 | | Load_Top At_Offset_0 0a58 4830 |H0 | Short_Literal 0x30 0a59 4839 |H9 | Short_Literal 0x39 0a5a 0262 | b | Execute Discrete,In_Range 0a5b 7010 |p | Jump_Nonzero 0xa6c 0a5c 0b28 | ( | Execute_Immediate Case_Compare,0x28 0a5d 700e |p | Jump_Nonzero 0xa6c 0a5e 0b2c | , | Execute_Immediate Case_Compare,0x2c 0a5f 700c |p | Jump_Nonzero 0xa6c 0a60 0b29 | ) | Execute_Immediate Case_Compare,0x29 0a61 700a |p | Jump_Nonzero 0xa6c 0a62 0b27 | ' | Execute_Immediate Case_Compare,0x27 0a63 7008 |p | Jump_Nonzero 0xa6c 0a64 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2f.0x2 = 0xa64,0x4 0a65 0a01 | | Execute_Immediate Plus,0x1 0a66 0248 | H | Execute Discrete,Check_In_Integer 0a67 e7ff | | Load 0x3,-0x1 0a68 01dc | | Execute Vector,Last 0a69 e7ff | | Load 0x3,-0x1 0a6a 01cf | | Execute Vector,Slice_Read 0a6b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a6c 00d1 | | Pop_Control Pop_Count_1 0a6d 00c8 | | Action Pop_Auxiliary_Range 0a6e 37d9 |7 | Loop_Decreasing 0xa48 0a6f 00ce | | Action Pop_Auxiliary 0a70 00da | | Load_Top At_Offset_2 ; Debug Table 0x2f.0x3 = 0xa70,0x5 0a71 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a72 0000 0000 | | .BLANK 0000[0x6] 0a78 ; -------------------------------------------------------------------------------------- 0a78 ; SUBPROGRAM 0a78 ; -------------------------------------------------------------------------------------- 0a78 0a83 | | .CONST 0x0a83 ; Address of begin 0a79 0004 | | .CONST 0x0004 ; Address of exception handler 0a7a 0002 | | .CONST 0x0002 ; Number of locals 0a7b INIT_0a78: 0a7b 00da | | Load_Top At_Offset_2 ; Debug Table 0x30 = .DEBUG 0x0a7b,0x12ce,0x1002,0x0000,0x0036,0xbf14,0x0000,0x0085 ; Debug Table 0x30.0x0 = 0xa7b,0xffff 0a7c 01da | | Execute Vector,Bounds 0a7d 00e9 | | Load_Encached String_Cache 0a7e 035b | [ | Declare_Type Array,Constrained 0a7f 0337 | 7 | Declare_Variable Array 0a80 00db | | Load_Top At_Offset_3 0a81 00d9 | | Load_Top At_Offset_1 0a82 01d4 | | Execute Vector,Structure_Write 0a83 BODY_0a78: 0a83 00cf | | Action Mark_Auxiliary 0a84 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x30.0x1 = 0xa84,0x1 0a85 01d9 | | Execute Vector,Reverse_Bounds 0a86 0263 | c | Execute Discrete,Above_Bound 0a87 700b |p | Jump_Nonzero 0xa93 0a88 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x30.0x2 = 0xa88,0x2 0a89 e602 | | Load 0x3,0x2 0a8a 01d7 | | Execute Vector,Field_Read 0a8b 0f27 | ' | Execute_Immediate Equal,0x27 0a8c 6804 |h | Jump_Zero 0xa91 0a8d 485f |H_ | Short_Literal 0x5f ; Debug Table 0x30.0x3 = 0xa8d,0x3 0a8e 00d9 | | Load_Top At_Offset_1 0a8f e602 | | Load 0x3,0x2 0a90 01d6 | | Execute Vector,Field_Write 0a91 00c8 | | Action Pop_Auxiliary_Range 0a92 3ff5 |? | Loop_Increasing 0xa88 0a93 00ce | | Action Pop_Auxiliary 0a94 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x30.0x4 = 0xa94,0x4 0a95 00e9 | | Load_Encached String_Cache 0a96 01c6 | | Execute Vector,Convert_To_Formal 0a97 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a98 0ac2 0004 | | .XXX[0x3] 0a9a 0016 | | 0a9b 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x31 = .DEBUG 0x0a9b,0x12da,0x0000,0x0000,0x0036,0xba64,0x0000,0x0096 ; Debug Table 0x31.0x0 = 0xa9b,0xffff 0a9c 0129 | ) | Execute Any,Make_Visible 0a9d 029a 0acb | | Declare_Subprogram INIT_0ac8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x31.0x1 = 0xa9d,0xfffe 0a9f 029a 0ad3 | | Declare_Subprogram INIT_0ad0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x31.0x2 = 0xa9f,0xfffd 0aa1 029a 0adb | | Declare_Subprogram INIT_0ad8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x31.0x3 = 0xaa1,0xfffc 0aa3 029a 0ae3 | | Declare_Subprogram INIT_0ae0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x31.0x4 = 0xaa3,0xfffb 0aa5 029a 0aeb | | Declare_Subprogram INIT_0ae8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x31.0x5 = 0xaa5,0xfffa 0aa7 029a 0af3 | | Declare_Subprogram INIT_0af0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x31.0x6 = 0xaa7,0xfff9 0aa9 029a 0afb | | Declare_Subprogram INIT_0af8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x31.0x7 = 0xaa9,0xfff8 0aab 029a 0b03 | | Declare_Subprogram INIT_0b00,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x31.0x8 = 0xaab,0xfff7 0aad 029a 0b0b | | Declare_Subprogram INIT_0b08,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x31.0x9 = 0xaad,0xfff6 0aaf 00bf | | Action Accept_Activation 0ab0 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x32 = .DEBUG 0x0ab0,0x12f0,0x0000,0x0000,0x0036,0xbef4,0x0000,0x0078 ; Debug Table 0x32.0x0 = 0xab0,0xffff 0ab1 00c7 | | Action Elaborate_Subprogram 0ab2 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x32.0x1 = 0xab2,0xfffe 0ab3 00c7 | | Action Elaborate_Subprogram 0ab4 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x32.0x2 = 0xab4,0xfffd 0ab5 00c7 | | Action Elaborate_Subprogram 0ab6 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x32.0x3 = 0xab6,0xfffc 0ab7 00c7 | | Action Elaborate_Subprogram 0ab8 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x32.0x4 = 0xab8,0xfffb 0ab9 00c7 | | Action Elaborate_Subprogram 0aba 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x32.0x5 = 0xaba,0xfffa 0abb 00c7 | | Action Elaborate_Subprogram 0abc 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x32.0x6 = 0xabc,0xfff9 0abd 00c7 | | Action Elaborate_Subprogram 0abe 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x32.0x7 = 0xabe,0xfff8 0abf 00c7 | | Action Elaborate_Subprogram 0ac0 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x32.0x8 = 0xac0,0xfff7 0ac1 00c7 | | Action Elaborate_Subprogram 0ac2 00bc | | Action Signal_Activated 0ac3 00bb | | Action Signal_Completion 0ac4 0000 0000 | | .BLANK 0000[0x4] 0ac8 ; -------------------------------------------------------------------------------------- 0ac8 ; SUBPROGRAM 0ac8 ; -------------------------------------------------------------------------------------- 0ac8 0acb | | .CONST 0x0acb ; Address of begin 0ac9 0004 | | .CONST 0x0004 ; Address of exception handler 0aca 0001 | | .CONST 0x0001 ; Number of locals 0acb BODY_0ac8: 0acb INIT_0ac8: 0acb 4801 |H | Short_Literal 0x1 ; Debug Table 0x33 = .DEBUG 0x0acb,0x1304,0x0001,0x0000,0x0036,0xba64,0x0000,0x009b ; Debug Table 0x33.0x0 = 0xacb,0x1 0acc a5fc | | Store_Unchecked 0x2,-0x4 0acd 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0ace 0000 0000 | | .XXX[0x2] 0ad0 ; -------------------------------------------------------------------------------------- 0ad0 ; SUBPROGRAM 0ad0 ; -------------------------------------------------------------------------------------- 0ad0 0ad3 | | .CONST 0x0ad3 ; Address of begin 0ad1 0004 | | .CONST 0x0004 ; Address of exception handler 0ad2 0001 | | .CONST 0x0001 ; Number of locals 0ad3 BODY_0ad0: 0ad3 INIT_0ad0: 0ad3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; Debug Table 0x34 = .DEBUG 0x0ad3,0x1308,0x0001,0x0000,0x0036,0xba64,0x0000,0x00af ; Debug Table 0x34.0x0 = 0xad3,0x1 0ad4 0000 0000 | | .BLANK 0000[0x4] 0ad8 ; -------------------------------------------------------------------------------------- 0ad8 ; SUBPROGRAM 0ad8 ; -------------------------------------------------------------------------------------- 0ad8 0adb | | .CONST 0x0adb ; Address of begin 0ad9 0004 | | .CONST 0x0004 ; Address of exception handler 0ada 0001 | | .CONST 0x0001 ; Number of locals 0adb BODY_0ad8: 0adb INIT_0ad8: 0adb 4801 |H | Short_Literal 0x1 ; Debug Table 0x35 = .DEBUG 0x0adb,0x130c,0x0002,0x0000,0x0036,0xba64,0x0000,0x00b7 ; Debug Table 0x35.0x0 = 0xadb,0x1 0adc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0add 0000 0000 | | .XXX[0x3] 0adf 0000 | | 0ae0 ; -------------------------------------------------------------------------------------- 0ae0 ; SUBPROGRAM 0ae0 ; -------------------------------------------------------------------------------------- 0ae0 0ae3 | | .CONST 0x0ae3 ; Address of begin 0ae1 0004 | | .CONST 0x0004 ; Address of exception handler 0ae2 0001 | | .CONST 0x0001 ; Number of locals 0ae3 BODY_0ae0: 0ae3 INIT_0ae0: 0ae3 4801 |H | Short_Literal 0x1 ; Debug Table 0x36 = .DEBUG 0x0ae3,0x1310,0x0002,0x0000,0x0036,0xba64,0x0000,0x00c0 ; Debug Table 0x36.0x0 = 0xae3,0x1 0ae4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0ae5 0000 0000 | | .XXX[0x3] 0ae7 0000 | | 0ae8 ; -------------------------------------------------------------------------------------- 0ae8 ; SUBPROGRAM 0ae8 ; -------------------------------------------------------------------------------------- 0ae8 0aeb | | .CONST 0x0aeb ; Address of begin 0ae9 0004 | | .CONST 0x0004 ; Address of exception handler 0aea 0001 | | .CONST 0x0001 ; Number of locals 0aeb BODY_0ae8: 0aeb INIT_0ae8: 0aeb 4800 |H | Short_Literal 0x0 ; Debug Table 0x37 = .DEBUG 0x0aeb,0x1314,0x0002,0x0000,0x0036,0xba64,0x0000,0x00cd ; Debug Table 0x37.0x0 = 0xaeb,0x1 0aec 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0aed 0000 0000 | | .XXX[0x3] 0aef 0000 | | 0af0 ; -------------------------------------------------------------------------------------- 0af0 ; SUBPROGRAM 0af0 ; -------------------------------------------------------------------------------------- 0af0 0af3 | | .CONST 0x0af3 ; Address of begin 0af1 0004 | | .CONST 0x0004 ; Address of exception handler 0af2 0001 | | .CONST 0x0001 ; Number of locals 0af3 BODY_0af0: 0af3 INIT_0af0: 0af3 4950 |IP | Short_Literal 0x150 ; Debug Table 0x38 = .DEBUG 0x0af3,0x1318,0x0001,0x0000,0x0036,0xba64,0x0000,0x00d6 ; Debug Table 0x38.0x0 = 0xaf3,0x1 0af4 0257 | W | Execute Discrete,Raise 0af5 0000 0000 | | .XXX[0x3] 0af7 0000 | | 0af8 ; -------------------------------------------------------------------------------------- 0af8 ; SUBPROGRAM 0af8 ; -------------------------------------------------------------------------------------- 0af8 0afb | | .CONST 0x0afb ; Address of begin 0af9 0004 | | .CONST 0x0004 ; Address of exception handler 0afa 0001 | | .CONST 0x0001 ; Number of locals 0afb BODY_0af8: 0afb INIT_0af8: 0afb 4950 |IP | Short_Literal 0x150 ; Debug Table 0x39 = .DEBUG 0x0afb,0x131c,0x0001,0x0000,0x0036,0xba64,0x0000,0x00e2 ; Debug Table 0x39.0x0 = 0xafb,0x1 0afc 0257 | W | Execute Discrete,Raise 0afd 0000 0000 | | .XXX[0x3] 0aff 0000 | | 0b00 ; -------------------------------------------------------------------------------------- 0b00 ; SUBPROGRAM 0b00 ; -------------------------------------------------------------------------------------- 0b00 0b03 | | .CONST 0x0b03 ; Address of begin 0b01 0004 | | .CONST 0x0004 ; Address of exception handler 0b02 0001 | | .CONST 0x0001 ; Number of locals 0b03 BODY_0b00: 0b03 INIT_0b00: 0b03 4950 |IP | Short_Literal 0x150 ; Debug Table 0x3a = .DEBUG 0x0b03,0x1320,0x0001,0x0000,0x0036,0xba64,0x0000,0x00ee ; Debug Table 0x3a.0x0 = 0xb03,0x1 0b04 0257 | W | Execute Discrete,Raise 0b05 0000 0000 | | .XXX[0x3] 0b07 0000 | | 0b08 ; -------------------------------------------------------------------------------------- 0b08 ; SUBPROGRAM 0b08 ; -------------------------------------------------------------------------------------- 0b08 0b0b | | .CONST 0x0b0b ; Address of begin 0b09 0004 | | .CONST 0x0004 ; Address of exception handler 0b0a 0001 | | .CONST 0x0001 ; Number of locals 0b0b BODY_0b08: 0b0b INIT_0b08: 0b0b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0x3b = .DEBUG 0x0b0b,0x1324,0x0001,0x0000,0x0036,0xba64,0x0000,0x00fa ; Debug Table 0x3b.0x0 = 0xb0b,0x1 0b0c 0000 0000 | | .BLANK 0000[0x4] 0b10 0b1c 0004 | | .XXX[0x3] 0b12 000e | | 0b13 029a 0b23 | #| Declare_Subprogram INIT_0b20,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x3c = .DEBUG 0x0b13,0x1328,0x0000,0x0000,0x0036,0xba64,0x0000,0x0065 ; Debug Table 0x3c.0x0 = 0xb13,0xffff 0b15 029a 0b33 | 3| Declare_Subprogram INIT_0b30,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x3c.0x1 = 0xb15,0xfffe 0b17 00bf | | Action Accept_Activation 0b18 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x3d = .DEBUG 0x0b18,0x132e,0x0000,0x0000,0x0036,0xbef4,0x0000,0x0027 ; Debug Table 0x3d.0x0 = 0xb18,0xffff 0b19 00c7 | | Action Elaborate_Subprogram 0b1a 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x3d.0x1 = 0xb1a,0xfffe 0b1b 00c7 | | Action Elaborate_Subprogram 0b1c 00bc | | Action Signal_Activated 0b1d 00bb | | Action Signal_Completion 0b1e 0000 0000 | | .XXX[0x2] 0b20 ; -------------------------------------------------------------------------------------- 0b20 ; SUBPROGRAM 0b20 ; -------------------------------------------------------------------------------------- 0b20 0b24 | $ | .CONST 0x0b24 ; Address of begin 0b21 0004 | | .CONST 0x0004 ; Address of exception handler 0b22 0002 | | .CONST 0x0002 ; Number of locals 0b23 INIT_0b20: 0b23 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x3e = .DEBUG 0x0b23,0x1334,0x0001,0x0000,0x0036,0xba64,0x0000,0x0066 ; Debug Table 0x3e.0x0 = 0xb23,0xffff 0b24 BODY_0b20: 0b24 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x3e.0x1 = 0xb24,0x1 0b25 e001 | | Load 0x0,0x1 0b26 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0b27 e5ff | | Load 0x2,-0x1 0b28 e002 | | Load 0x0,0x2 0b29 180f | | Execute Package,Field_Execute,Field_Number 0xf 0b2a c5fb | | Store 0x2,-0x5 0b2b 0059 | Y | Store_Top Discrete,At_Offset_1 0b2c 00db | | Load_Top At_Offset_3 ; Debug Table 0x3e.0x2 = 0xb2c,0x2 0b2d a5fc | | Store_Unchecked 0x2,-0x4 0b2e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0b2f 0000 | | .XXX[0x1] 0b30 ; -------------------------------------------------------------------------------------- 0b30 ; SUBPROGRAM 0b30 ; -------------------------------------------------------------------------------------- 0b30 0b33 | 3 | .CONST 0x0b33 ; Address of begin 0b31 0004 | | .CONST 0x0004 ; Address of exception handler 0b32 0001 | | .CONST 0x0001 ; Number of locals 0b33 BODY_0b30: 0b33 INIT_0b30: 0b33 e001 | | Load 0x0,0x1 ; Debug Table 0x3f = .DEBUG 0x0b33,0x133c,0x0001,0x0000,0x0036,0xba64,0x0000,0x0084 ; Debug Table 0x3f.0x0 = 0xb33,0x1 0b34 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0b35 00db | | Load_Top At_Offset_3 0b36 e002 | | Load 0x0,0x2 0b37 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0b38 c5fe | | Store 0x2,-0x2 0b39 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0b3a ; -------------------------------------------------------------------------------------- 0b3a ; STRING TABLE 0b3a ; -------------------------------------------------------------------------------------- 0b3a 0064 | d | .STRTAB 0x0064->0x0b6c ; "ORDINARY" 0b3b 006a | j | .STRTAB 0x006a->0x0b70 ; "SUBSYSTEM_DESCRIPTION" 0b3c 007d | } | .STRTAB 0x007d->0x0b7a ; "CODE_SEGMENT" 0b3d 0087 | | .STRTAB 0x0087->0x0b80 ; "ELABORATOR_DATABASE" 0b3e 0098 | | .STRTAB 0x0098->0x0b8a ; ".MLOAD" 0b3f 009c | | .STRTAB 0x009c->0x0b8d ; ".SEG" 0b40 009e | | .STRTAB 0x009e->0x0b8f ; ".EEDB" 0b41 00a1 | | .STRTAB 0x00a1->0x0b91 ; "read " 0b42 00a4 | | .STRTAB 0x00a4->0x0b94 ; "write " 0b43 00a8 | | .STRTAB 0x00a8->0x0b97 ; "Name_Error" 0b44 00b0 | | .STRTAB 0x00b0->0x0b9c ; "Use_Error" 0b45 00b7 | | .STRTAB 0x00b7->0x0ba0 ; "End_Error" 0b46 00be | | .STRTAB 0x00be->0x0ba5 ; "Unexpected exception" 0b47 00d0 | | .STRTAB 0x00d0->0x0baf ; "Status_Error" 0b48 00da | | .STRTAB 0x00da->0x0bb5 ; "Tape to File System " 0b49 00ec | | .STRTAB 0x00ec->0x0bbf ; "Begin_Streaming_Read" 0b4a 00fe | | .STRTAB 0x00fe->0x0bc9 ; "End_Streaming_Read" 0b4b 010e | | .STRTAB 0x010e->0x0bd2 ; "Unexpected tape read exception" 0b4c 012a | * | .STRTAB 0x012a->0x0be1 ; "Begin_Streaming_Write" 0b4d 013d | = | .STRTAB 0x013d->0x0beb ; "End_Streaming_Write" 0b4e 014e | N | .STRTAB 0x014e->0x0bf5 ; "Unexpected tape write exception" 0b4f 016b | k | .STRTAB 0x016b->0x0c04 ; "Write Tape Mark (end of tape)" 0b50 0186 | | .STRTAB 0x0186->0x0c13 ; "Error from " 0b51 018f | | .STRTAB 0x018f->0x0c18 ; ": " 0b52 018f | | .STRTAB 0x018f->0x0c19 ; " raised trying to " 0b53 019f | | .STRTAB 0x019f->0x0c22 ; "\x22." 0b54 019f | | .STRTAB 0x019f->0x0c23 ; "Read of Data Block" 0b55 01af | | .STRTAB 0x01af->0x0c2c ; "Null Read of Data Block" 0b56 01c4 | | .STRTAB 0x01c4->0x0c38 ; "Read of Code Segment Page" 0b57 01db | | .STRTAB 0x01db->0x0c44 ; "+++ Code segment" 0b58 01e9 | | .STRTAB 0x01e9->0x0c4c ; " has been modified." 0b59 01fa | | .STRTAB 0x01fa->0x0c56 ; "*** Code segment" 0b5a 0208 | | .STRTAB 0x0208->0x0c5e ; " differs from what is on tape." 0b5b 0224 | $ | .STRTAB 0x0224->0x0c6d ; "Tape differs from stored version, but can't be changed because the subsystem containing it is currently elaborated," 0b5c 0295 | | .STRTAB 0x0295->0x0ca6 ; "Code_Segment_Corrupted" 0b5d 02a9 | | .STRTAB 0x02a9->0x0cb1 ; "EEDB" 0b5e 02ab | | .STRTAB 0x02ab->0x0cb3 ; "Quit" 0b5f 02ad | | .STRTAB 0x02ad->0x0cb5 ; "Read of File Header" 0b60 02be | | .STRTAB 0x02be->0x0cbf ; "Tape_Mark: End_Streaming_Write" 0b61 02da | | .STRTAB 0x02da->0x0cce ; "Tape_Mark: Begin_Streaming_Write" 0b62 02f8 | | .STRTAB 0x02f8->0x0cde ; "Write_File_Header" 0b63 0307 | | .STRTAB 0x0307->0x0ce6 ; "Write Data Block" 0b64 0315 | | .STRTAB 0x0315->0x0cee ; "Open Tape (will retry)" 0b65 0329 | ) | .STRTAB 0x0329->0x0cf9 ; "Open Tape" 0b66 0330 | 0 | .STRTAB 0x0330->0x0cfe ; "Other Error" 0b67 0339 | 9 | .STRTAB 0x0339->0x0d03 ; "Too many retries in Opening Tape Drive" 0b68 035d | ] | .STRTAB 0x035d->0x0d16 ; "Non-Existent Tape Drive Specified" 0b69 037c | | | .STRTAB 0x037c->0x0d27 ; "Positioning Tape" 0b6a 038a | | .STRTAB 0x038a->0x0d2f ; "Closing Tape" 0b6b 0394 | | .STREND 0x0394->0x0d35 0b6c 4f52 4449 |ORDI| .STRTAB_STRINGS 0d35 0000 0000 | | .XXX[0x3] 0d37 0000 | | 0d38 ; -------------------------------------------------------------------------------------- 0d38 ; Debug Table 0d38 ; -------------------------------------------------------------------------------------- 0d38 0003 0040 | @| .CONST 0x0003,0x0040 0d3a 000b 0f3a | :| .DEBUG 0x000b,0x0f3a,0x8000,0x0000,0x0036,0xba64,0x0000,0x000d 0d42 0044 0f60 | D `| .DEBUG 0x0044,0x0f60,0x8000,0x0000,0x0036,0xbef4,0x0000,0x0007 0d4a 0073 0f74 | s t| .DEBUG 0x0073,0x0f74,0x0005,0x0000,0x0036,0xba64,0x0000,0x005d 0d52 008b 0f76 | v| .DEBUG 0x008b,0x0f76,0x0002,0x0000,0x0036,0xba64,0x0000,0x010a 0d5a 00ab 0f88 | | .DEBUG 0x00ab,0x0f88,0x0002,0x0000,0x0036,0xbef4,0x0000,0x0124 0d62 00eb 0f98 | | .DEBUG 0x00eb,0x0f98,0x4000,0x0000,0x0036,0xba64,0x0000,0x0113 0d6a 00f2 0fa0 | | .DEBUG 0x00f2,0x0fa0,0x4000,0x0000,0x0036,0xbf04,0x0000,0x0008 0d72 0203 103a | :| .DEBUG 0x0203,0x103a,0x1001,0x0000,0x0036,0xba64,0x0000,0x0294 0d7a 0293 1072 | r| .DEBUG 0x0293,0x1072,0x1001,0x0000,0x0036,0xba64,0x0000,0x02a0 0d82 0323 10aa | # | .DEBUG 0x0323,0x10aa,0x1001,0x0000,0x0036,0xbf04,0x0000,0x00c6 0d8a 0353 10be | S | .DEBUG 0x0353,0x10be,0x1001,0x0000,0x0036,0xbf04,0x0000,0x00d7 0d92 03bb 10d8 | | .DEBUG 0x03bb,0x10d8,0x3801,0x0002,0x0036,0xbf04,0x0000,0x00ef 0d9a 03d3 10dc | | .DEBUG 0x03d3,0x10dc,0x3801,0x0002,0x0036,0xbf04,0x0000,0x0105 0da2 03e3 10e2 | | .DEBUG 0x03e3,0x10e2,0x1001,0x0000,0x0036,0xbf04,0x0000,0x0130 0daa 040b 10f0 | | .DEBUG 0x040b,0x10f0,0x1001,0x0000,0x0036,0xbf04,0x0000,0x0178 0db2 042b 10fa | + | .DEBUG 0x042b,0x10fa,0x1002,0x0000,0x0036,0xbf04,0x0000,0x01a9 0dba 0443 1106 | C | .DEBUG 0x0443,0x1106,0x1002,0x0000,0x0036,0xbf04,0x0000,0x01dc 0dc2 0463 1110 | c | .DEBUG 0x0463,0x1110,0x1002,0x0000,0x0036,0xbf04,0x0000,0x020b 0dca 0483 1118 | | .DEBUG 0x0483,0x1118,0x1002,0x0000,0x0036,0xbf04,0x0000,0x023e 0dd2 04a3 1122 | "| .DEBUG 0x04a3,0x1122,0x1001,0x0000,0x0036,0xbf04,0x0000,0x026b 0dda 04b3 112a | *| .DEBUG 0x04b3,0x112a,0x1001,0x0000,0x0036,0xbf04,0x0000,0x0286 0de2 04cb 112e | .| .DEBUG 0x04cb,0x112e,0x1006,0x0000,0x0036,0xbf04,0x0000,0x02f9 0dea 04db 1130 | 0| .DEBUG 0x04db,0x1130,0x1006,0x0000,0x0036,0xbf04,0x0000,0x0301 0df2 04eb 1132 | 2| .DEBUG 0x04eb,0x1132,0x1006,0x0000,0x0036,0xbf04,0x0000,0x0309 0dfa 04fb 1134 | 4| .DEBUG 0x04fb,0x1134,0x1006,0x0000,0x0036,0xbf04,0x0000,0x0309 0e02 050b 1136 | 6| .DEBUG 0x050b,0x1136,0x3801,0x0002,0x0036,0xbf94,0x0000,0x0023 0e0a 058b 1158 | X| .DEBUG 0x058b,0x1158,0x1001,0x0000,0x0036,0xbf94,0x0000,0x010b 0e12 05b3 1164 | d| .DEBUG 0x05b3,0x1164,0x1001,0x0000,0x0036,0xbf94,0x0000,0x0144 0e1a 05cb 116c | l| .DEBUG 0x05cb,0x116c,0x1001,0x0000,0x0036,0xbf94,0x0000,0x016f 0e22 0643 118e | C | .DEBUG 0x0643,0x118e,0x1002,0x0000,0x0036,0xbf94,0x0000,0x022a 0e2a 067b 119e | { | .DEBUG 0x067b,0x119e,0x1002,0x0000,0x0036,0xbf94,0x0000,0x027b 0e32 068b 11a6 | | .DEBUG 0x068b,0x11a6,0x1001,0x0000,0x0036,0xbf94,0x0000,0x0297 0e3a 070b 11be | | .DEBUG 0x070b,0x11be,0x1001,0x0000,0x0036,0xbf94,0x0000,0x0338 0e42 0773 11d8 | s | .DEBUG 0x0773,0x11d8,0x1001,0x0000,0x0036,0xbf94,0x0000,0x03f3 0e4a 07cb 1202 | | .DEBUG 0x07cb,0x1202,0x1001,0x0000,0x0036,0xbf14,0x0000,0x0007 0e52 07fb 1210 | | .DEBUG 0x07fb,0x1210,0x1002,0x0000,0x0036,0xbf14,0x0000,0x003f 0e5a 080b 1218 | | .DEBUG 0x080b,0x1218,0x1001,0x0000,0x0036,0xbf14,0x0000,0x00c3 0e62 084b 1228 | K (| .DEBUG 0x084b,0x1228,0x1001,0x0000,0x0036,0xbf14,0x0000,0x010e 0e6a 08fb 125e | ^| .DEBUG 0x08fb,0x125e,0x1002,0x0000,0x0036,0xbf14,0x0000,0x01ee 0e72 0913 1262 | b| .DEBUG 0x0913,0x1262,0x1002,0x0000,0x0036,0xbf14,0x0000,0x020c 0e7a 0923 1266 | # f| .DEBUG 0x0923,0x1266,0x1001,0x0000,0x0036,0xbf14,0x0000,0x0228 0e82 093b 126c | ; l| .DEBUG 0x093b,0x126c,0x1001,0x0000,0x0036,0xbf14,0x0000,0x0253 0e8a 0973 1280 | s | .DEBUG 0x0973,0x1280,0x1001,0x0000,0x0036,0xbf04,0x0000,0x034d 0e92 09cb 129a | | .DEBUG 0x09cb,0x129a,0x1001,0x0000,0x0036,0xbf04,0x0000,0x03c0 0e9a 09fb 12a8 | | .DEBUG 0x09fb,0x12a8,0x1002,0x0000,0x0036,0xbf94,0x0000,0x02d5 0ea2 0a0b 12b2 | | .DEBUG 0x0a0b,0x12b2,0x1001,0x0000,0x0036,0xbf94,0x0000,0x035f 0eaa 0a23 12ba | # | .DEBUG 0x0a23,0x12ba,0x1001,0x0000,0x0036,0xbf94,0x0000,0x0420 0eb2 0a43 12c4 | C | .DEBUG 0x0a43,0x12c4,0x1002,0x0000,0x0036,0xbf14,0x0000,0x0047 0eba 0a7b 12ce | { | .DEBUG 0x0a7b,0x12ce,0x1002,0x0000,0x0036,0xbf14,0x0000,0x0085 0ec2 0a9b 12da | | .DEBUG 0x0a9b,0x12da,0x0000,0x0000,0x0036,0xba64,0x0000,0x0096 0eca 0ab0 12f0 | | .DEBUG 0x0ab0,0x12f0,0x0000,0x0000,0x0036,0xbef4,0x0000,0x0078 0ed2 0acb 1304 | | .DEBUG 0x0acb,0x1304,0x0001,0x0000,0x0036,0xba64,0x0000,0x009b 0eda 0ad3 1308 | | .DEBUG 0x0ad3,0x1308,0x0001,0x0000,0x0036,0xba64,0x0000,0x00af 0ee2 0adb 130c | | .DEBUG 0x0adb,0x130c,0x0002,0x0000,0x0036,0xba64,0x0000,0x00b7 0eea 0ae3 1310 | | .DEBUG 0x0ae3,0x1310,0x0002,0x0000,0x0036,0xba64,0x0000,0x00c0 0ef2 0aeb 1314 | | .DEBUG 0x0aeb,0x1314,0x0002,0x0000,0x0036,0xba64,0x0000,0x00cd 0efa 0af3 1318 | | .DEBUG 0x0af3,0x1318,0x0001,0x0000,0x0036,0xba64,0x0000,0x00d6 0f02 0afb 131c | | .DEBUG 0x0afb,0x131c,0x0001,0x0000,0x0036,0xba64,0x0000,0x00e2 0f0a 0b03 1320 | | .DEBUG 0x0b03,0x1320,0x0001,0x0000,0x0036,0xba64,0x0000,0x00ee 0f12 0b0b 1324 | $| .DEBUG 0x0b0b,0x1324,0x0001,0x0000,0x0036,0xba64,0x0000,0x00fa 0f1a 0b13 1328 | (| .DEBUG 0x0b13,0x1328,0x0000,0x0000,0x0036,0xba64,0x0000,0x0065 0f22 0b18 132e | .| .DEBUG 0x0b18,0x132e,0x0000,0x0000,0x0036,0xbef4,0x0000,0x0027 0f2a 0b23 1334 | # 4| .DEBUG 0x0b23,0x1334,0x0001,0x0000,0x0036,0xba64,0x0000,0x0066 0f32 0b33 133c | 3 <| .DEBUG 0x0b33,0x133c,0x0001,0x0000,0x0036,0xba64,0x0000,0x0084 0f3a ; -------------------------------------------------------------------------------------- 0f3a ; Debug3 Subtable 0x0 0f3a ; -------------------------------------------------------------------------------------- 0f3a 0012 0000 | | .DBG3TAB 0x0012,0x0000 0f3c 000b ffff | | .CONST 0x000b,0xffff 0f3e 000c fffe | | .CONST 0x000c,0xfffe 0f40 000d fffd | | .CONST 0x000d,0xfffd 0f42 0010 fffc | | .CONST 0x0010,0xfffc 0f44 0013 fffb | | .CONST 0x0013,0xfffb 0f46 0017 fffa | | .CONST 0x0017,0xfffa 0f48 001a fff9 | | .CONST 0x001a,0xfff9 0f4a 001d fff8 | | .CONST 0x001d,0xfff8 0f4c 0020 fff7 | | .CONST 0x0020,0xfff7 0f4e 0023 fff6 | # | .CONST 0x0023,0xfff6 0f50 0026 fff5 | & | .CONST 0x0026,0xfff5 0f52 0029 fff4 | ) | .CONST 0x0029,0xfff4 0f54 002c fff3 | , | .CONST 0x002c,0xfff3 0f56 002e fff2 | . | .CONST 0x002e,0xfff2 0f58 0033 fff1 | 3 | .CONST 0x0033,0xfff1 0f5a 0038 fff0 | 8 | .CONST 0x0038,0xfff0 0f5c 003d ffef | = | .CONST 0x003d,0xffef 0f5e 003f ffee | ? | .CONST 0x003f,0xffee 0f60 ; -------------------------------------------------------------------------------------- 0f60 ; Debug3 Subtable 0x1 0f60 ; -------------------------------------------------------------------------------------- 0f60 0009 0000 | | .DBG3TAB 0x0009,0x0000 0f62 0044 ffff | D | .CONST 0x0044,0xffff 0f64 0046 fffe | F | .CONST 0x0046,0xfffe 0f66 0048 fffd | H | .CONST 0x0048,0xfffd 0f68 004a fffc | J | .CONST 0x004a,0xfffc 0f6a 004d fffb | M | .CONST 0x004d,0xfffb 0f6c 0054 fffa | T | .CONST 0x0054,0xfffa 0f6e 0056 fff9 | V | .CONST 0x0056,0xfff9 0f70 0058 fff8 | X | .CONST 0x0058,0xfff8 0f72 005a fff7 | Z | .CONST 0x005a,0xfff7 0f74 ; -------------------------------------------------------------------------------------- 0f74 ; Debug3 Subtable 0x2 0f74 ; -------------------------------------------------------------------------------------- 0f74 0000 0000 | | .DBG3TAB 0x0000,0x0000 0f76 ; -------------------------------------------------------------------------------------- 0f76 ; Debug3 Subtable 0x3 0f76 ; -------------------------------------------------------------------------------------- 0f76 0001 0007 | | .DBG3TAB 0x0001,0x0007 0f78 008b ffff | | .CONST 0x008b,0xffff 0f7a 008d 0001 | | .CONST 0x008d,0x0001 0f7c 0091 0002 | | .CONST 0x0091,0x0002 0f7e 0093 0003 | | .CONST 0x0093,0x0003 0f80 0097 0004 | | .CONST 0x0097,0x0004 0f82 0099 0005 | | .CONST 0x0099,0x0005 0f84 009d 0006 | | .CONST 0x009d,0x0006 0f86 009f 0007 | | .CONST 0x009f,0x0007 0f88 ; -------------------------------------------------------------------------------------- 0f88 ; Debug3 Subtable 0x4 0f88 ; -------------------------------------------------------------------------------------- 0f88 0001 0006 | | .DBG3TAB 0x0001,0x0006 0f8a 00ab ffff | | .CONST 0x00ab,0xffff 0f8c 00b3 0001 | | .CONST 0x00b3,0x0001 0f8e 00ba 0002 | | .CONST 0x00ba,0x0002 0f90 00be 0003 | | .CONST 0x00be,0x0003 0f92 00c9 0004 | | .CONST 0x00c9,0x0004 0f94 00ce 0005 | | .CONST 0x00ce,0x0005 0f96 00d0 0006 | | .CONST 0x00d0,0x0006 0f98 ; -------------------------------------------------------------------------------------- 0f98 ; Debug3 Subtable 0x5 0f98 ; -------------------------------------------------------------------------------------- 0f98 0003 0000 | | .DBG3TAB 0x0003,0x0000 0f9a 00eb ffff | | .CONST 0x00eb,0xffff 0f9c 00ed fffe | | .CONST 0x00ed,0xfffe 0f9e 00ef fffd | | .CONST 0x00ef,0xfffd 0fa0 ; -------------------------------------------------------------------------------------- 0fa0 ; Debug3 Subtable 0x6 0fa0 ; -------------------------------------------------------------------------------------- 0fa0 004a 0002 | J | .DBG3TAB 0x004a,0x0002 0fa2 00f2 ffff | | .CONST 0x00f2,0xffff 0fa4 00f3 fffe | | .CONST 0x00f3,0xfffe 0fa6 00f4 fffd | | .CONST 0x00f4,0xfffd 0fa8 00f5 fffc | | .CONST 0x00f5,0xfffc 0faa 00f9 fffb | | .CONST 0x00f9,0xfffb 0fac 00fe fffa | | .CONST 0x00fe,0xfffa 0fae 0100 fff9 | | .CONST 0x0100,0xfff9 0fb0 0104 fff8 | | .CONST 0x0104,0xfff8 0fb2 0108 fff7 | | .CONST 0x0108,0xfff7 0fb4 010c fff6 | | .CONST 0x010c,0xfff6 0fb6 0110 fff5 | | .CONST 0x0110,0xfff5 0fb8 0114 fff4 | | .CONST 0x0114,0xfff4 0fba 0118 fff3 | | .CONST 0x0118,0xfff3 0fbc 011c fff2 | | .CONST 0x011c,0xfff2 0fbe 0120 fff1 | | .CONST 0x0120,0xfff1 0fc0 0124 fff0 | $ | .CONST 0x0124,0xfff0 0fc2 0125 ffef | % | .CONST 0x0125,0xffef 0fc4 0126 ffee | & | .CONST 0x0126,0xffee 0fc6 0139 ffed | 9 | .CONST 0x0139,0xffed 0fc8 013b ffec | ; | .CONST 0x013b,0xffec 0fca 013d ffeb | = | .CONST 0x013d,0xffeb 0fcc 013f ffea | ? | .CONST 0x013f,0xffea 0fce 0141 ffe9 | A | .CONST 0x0141,0xffe9 0fd0 0143 ffe8 | C | .CONST 0x0143,0xffe8 0fd2 0145 ffe7 | E | .CONST 0x0145,0xffe7 0fd4 0147 ffff | G | .CONST 0x0147,0xffff 0fd6 0149 ffff | I | .CONST 0x0149,0xffff 0fd8 014b ffe4 | K | .CONST 0x014b,0xffe4 0fda 014d ffe3 | M | .CONST 0x014d,0xffe3 0fdc 014f ffe2 | O | .CONST 0x014f,0xffe2 0fde 0151 ffe1 | Q | .CONST 0x0151,0xffe1 0fe0 0153 ffe0 | S | .CONST 0x0153,0xffe0 0fe2 0155 ffdf | U | .CONST 0x0155,0xffdf 0fe4 0157 ffde | W | .CONST 0x0157,0xffde 0fe6 0159 ffdd | Y | .CONST 0x0159,0xffdd 0fe8 015b ffdc | [ | .CONST 0x015b,0xffdc 0fea 015d ffdb | ] | .CONST 0x015d,0xffdb 0fec 015f ffda | _ | .CONST 0x015f,0xffda 0fee 0161 ffd9 | a | .CONST 0x0161,0xffd9 0ff0 0163 ffd8 | c | .CONST 0x0163,0xffd8 0ff2 016b ffd7 | k | .CONST 0x016b,0xffd7 0ff4 0173 ffd6 | s | .CONST 0x0173,0xffd6 0ff6 017b ffd5 | { | .CONST 0x017b,0xffd5 0ff8 0187 ffd4 | | .CONST 0x0187,0xffd4 0ffa 0193 ffd3 | | .CONST 0x0193,0xffd3 0ffc 019f ffd2 | | .CONST 0x019f,0xffd2 0ffe 01ab ffff | | .CONST 0x01ab,0xffff 1000 01ac fffe | | .CONST 0x01ac,0xfffe 1002 01ad fffd | | .CONST 0x01ad,0xfffd 1004 01af fffc | | .CONST 0x01af,0xfffc 1006 01b1 fffb | | .CONST 0x01b1,0xfffb 1008 01b3 fffa | | .CONST 0x01b3,0xfffa 100a 01b5 fff9 | | .CONST 0x01b5,0xfff9 100c 01bf fff8 | | .CONST 0x01bf,0xfff8 100e 01c1 fff7 | | .CONST 0x01c1,0xfff7 1010 01c3 fff6 | | .CONST 0x01c3,0xfff6 1012 01c5 fff5 | | .CONST 0x01c5,0xfff5 1014 01c7 fff4 | | .CONST 0x01c7,0xfff4 1016 01c9 fff3 | | .CONST 0x01c9,0xfff3 1018 01cb fff2 | | .CONST 0x01cb,0xfff2 101a 01cd fff1 | | .CONST 0x01cd,0xfff1 101c 01cf ffff | | .CONST 0x01cf,0xffff 101e 01d1 fffe | | .CONST 0x01d1,0xfffe 1020 01d3 fffd | | .CONST 0x01d3,0xfffd 1022 01d5 fffc | | .CONST 0x01d5,0xfffc 1024 01d7 fffb | | .CONST 0x01d7,0xfffb 1026 01d9 fffa | | .CONST 0x01d9,0xfffa 1028 01db fff9 | | .CONST 0x01db,0xfff9 102a 01dd fff8 | | .CONST 0x01dd,0xfff8 102c 01df fff7 | | .CONST 0x01df,0xfff7 102e 01e1 ffcf | | .CONST 0x01e1,0xffcf 1030 01e3 ffce | | .CONST 0x01e3,0xffce 1032 01e5 ffcd | | .CONST 0x01e5,0xffcd 1034 01e7 ffcc | | .CONST 0x01e7,0xffcc 1036 01e9 0001 | | .CONST 0x01e9,0x0001 1038 01f3 0002 | | .CONST 0x01f3,0x0002 103a ; -------------------------------------------------------------------------------------- 103a ; Debug3 Subtable 0x7 103a ; -------------------------------------------------------------------------------------- 103a 0004 0017 | | .DBG3TAB 0x0004,0x0017 103c 0203 ffff | | .CONST 0x0203,0xffff 103e 0207 fffe | | .CONST 0x0207,0xfffe 1040 0209 fffd | | .CONST 0x0209,0xfffd 1042 020b fffc | | .CONST 0x020b,0xfffc 1044 020e 0001 | | .CONST 0x020e,0x0001 1046 021f 0002 | | .CONST 0x021f,0x0002 1048 0221 0003 | ! | .CONST 0x0221,0x0003 104a 022a 0004 | * | .CONST 0x022a,0x0004 104c 0234 0005 | 4 | .CONST 0x0234,0x0005 104e 0236 0006 | 6 | .CONST 0x0236,0x0006 1050 023c 0007 | < | .CONST 0x023c,0x0007 1052 0242 0008 | B | .CONST 0x0242,0x0008 1054 024c 0009 | L | .CONST 0x024c,0x0009 1056 024e 000a | N | .CONST 0x024e,0x000a 1058 0255 000b | U | .CONST 0x0255,0x000b 105a 0257 000c | W | .CONST 0x0257,0x000c 105c 025d 000d | ] | .CONST 0x025d,0x000d 105e 0267 000e | g | .CONST 0x0267,0x000e 1060 0269 000f | i | .CONST 0x0269,0x000f 1062 026c 0010 | l | .CONST 0x026c,0x0010 1064 026e 0011 | n | .CONST 0x026e,0x0011 1066 0272 0012 | r | .CONST 0x0272,0x0012 1068 0274 0013 | t | .CONST 0x0274,0x0013 106a 027a 0014 | z | .CONST 0x027a,0x0014 106c 0284 0015 | | .CONST 0x0284,0x0015 106e 0286 0016 | | .CONST 0x0286,0x0016 1070 0289 0017 | | .CONST 0x0289,0x0017 1072 ; -------------------------------------------------------------------------------------- 1072 ; Debug3 Subtable 0x8 1072 ; -------------------------------------------------------------------------------------- 1072 0004 0017 | | .DBG3TAB 0x0004,0x0017 1074 0293 ffff | | .CONST 0x0293,0xffff 1076 0297 fffe | | .CONST 0x0297,0xfffe 1078 0299 fffd | | .CONST 0x0299,0xfffd 107a 029b fffc | | .CONST 0x029b,0xfffc 107c 029e 0001 | | .CONST 0x029e,0x0001 107e 02af 0002 | | .CONST 0x02af,0x0002 1080 02b1 0003 | | .CONST 0x02b1,0x0003 1082 02ba 0004 | | .CONST 0x02ba,0x0004 1084 02c4 0005 | | .CONST 0x02c4,0x0005 1086 02c6 0006 | | .CONST 0x02c6,0x0006 1088 02ce 0007 | | .CONST 0x02ce,0x0007 108a 02d4 0008 | | .CONST 0x02d4,0x0008 108c 02de 0009 | | .CONST 0x02de,0x0009 108e 02e0 000a | | .CONST 0x02e0,0x000a 1090 02e7 000b | | .CONST 0x02e7,0x000b 1092 02e9 000c | | .CONST 0x02e9,0x000c 1094 02ef 000d | | .CONST 0x02ef,0x000d 1096 02f9 000e | | .CONST 0x02f9,0x000e 1098 02fb 000f | | .CONST 0x02fb,0x000f 109a 02fe 0010 | | .CONST 0x02fe,0x0010 109c 0300 0011 | | .CONST 0x0300,0x0011 109e 0304 0012 | | .CONST 0x0304,0x0012 10a0 0306 0013 | | .CONST 0x0306,0x0013 10a2 030c 0014 | | .CONST 0x030c,0x0014 10a4 0316 0015 | | .CONST 0x0316,0x0015 10a6 0318 0016 | | .CONST 0x0318,0x0016 10a8 031b 0017 | | .CONST 0x031b,0x0017 10aa ; -------------------------------------------------------------------------------------- 10aa ; Debug3 Subtable 0x9 10aa ; -------------------------------------------------------------------------------------- 10aa 0005 0004 | | .DBG3TAB 0x0005,0x0004 10ac 0323 ffff | # | .CONST 0x0323,0xffff 10ae 0327 fffe | ' | .CONST 0x0327,0xfffe 10b0 0328 fffd | ( | .CONST 0x0328,0xfffd 10b2 0329 fffc | ) | .CONST 0x0329,0xfffc 10b4 032a fffb | * | .CONST 0x032a,0xfffb 10b6 032e 0001 | . | .CONST 0x032e,0x0001 10b8 032f 0002 | / | .CONST 0x032f,0x0002 10ba 033b 0003 | ; | .CONST 0x033b,0x0003 10bc 033d 0004 | = | .CONST 0x033d,0x0004 10be ; -------------------------------------------------------------------------------------- 10be ; Debug3 Subtable 0xa 10be ; -------------------------------------------------------------------------------------- 10be 0002 000a | | .DBG3TAB 0x0002,0x000a 10c0 0353 ffff | S | .CONST 0x0353,0xffff 10c2 0357 fffe | W | .CONST 0x0357,0xfffe 10c4 035a 0001 | Z | .CONST 0x035a,0x0001 10c6 035c 0002 | \ | .CONST 0x035c,0x0002 10c8 036d 0004 | m | .CONST 0x036d,0x0004 10ca 0376 0003 | v | .CONST 0x0376,0x0003 10cc 037c 0005 | | | .CONST 0x037c,0x0005 10ce 0380 0006 | | .CONST 0x0380,0x0006 10d0 0387 0007 | | .CONST 0x0387,0x0007 10d2 038c 0008 | | .CONST 0x038c,0x0008 10d4 0396 0009 | | .CONST 0x0396,0x0009 10d6 039b 000a | | .CONST 0x039b,0x000a 10d8 ; -------------------------------------------------------------------------------------- 10d8 ; Debug3 Subtable 0xb 10d8 ; -------------------------------------------------------------------------------------- 10d8 0000 0001 | | .DBG3TAB 0x0000,0x0001 10da 03bb 0001 | | .CONST 0x03bb,0x0001 10dc ; -------------------------------------------------------------------------------------- 10dc ; Debug3 Subtable 0xc 10dc ; -------------------------------------------------------------------------------------- 10dc 0000 0002 | | .DBG3TAB 0x0000,0x0002 10de 03d3 0001 | | .CONST 0x03d3,0x0001 10e0 03d7 0002 | | .CONST 0x03d7,0x0002 10e2 ; -------------------------------------------------------------------------------------- 10e2 ; Debug3 Subtable 0xd 10e2 ; -------------------------------------------------------------------------------------- 10e2 0001 0005 | | .DBG3TAB 0x0001,0x0005 10e4 03e3 ffff | | .CONST 0x03e3,0xffff 10e6 03e8 0001 | | .CONST 0x03e8,0x0001 10e8 03ec 0002 | | .CONST 0x03ec,0x0002 10ea 03f1 0003 | | .CONST 0x03f1,0x0003 10ec 03fa 0004 | | .CONST 0x03fa,0x0004 10ee 03fe 0005 | | .CONST 0x03fe,0x0005 10f0 ; -------------------------------------------------------------------------------------- 10f0 ; Debug3 Subtable 0xe 10f0 ; -------------------------------------------------------------------------------------- 10f0 0001 0003 | | .DBG3TAB 0x0001,0x0003 10f2 040b ffff | | .CONST 0x040b,0xffff 10f4 040f 0001 | | .CONST 0x040f,0x0001 10f6 0413 0002 | | .CONST 0x0413,0x0002 10f8 041c 0003 | | .CONST 0x041c,0x0003 10fa ; -------------------------------------------------------------------------------------- 10fa ; Debug3 Subtable 0xf 10fa ; -------------------------------------------------------------------------------------- 10fa 0002 0003 | | .DBG3TAB 0x0002,0x0003 10fc 042b ffff | + | .CONST 0x042b,0xffff 10fe 042c fffe | , | .CONST 0x042c,0xfffe 1100 042f 0001 | / | .CONST 0x042f,0x0001 1102 0433 0002 | 3 | .CONST 0x0433,0x0002 1104 043e 0003 | > | .CONST 0x043e,0x0003 1106 ; -------------------------------------------------------------------------------------- 1106 ; Debug3 Subtable 0x10 1106 ; -------------------------------------------------------------------------------------- 1106 0001 0003 | | .DBG3TAB 0x0001,0x0003 1108 0443 ffff | C | .CONST 0x0443,0xffff 110a 0449 0001 | I | .CONST 0x0449,0x0001 110c 044d 0002 | M | .CONST 0x044d,0x0002 110e 045c 0003 | \ | .CONST 0x045c,0x0003 1110 ; -------------------------------------------------------------------------------------- 1110 ; Debug3 Subtable 0x11 1110 ; -------------------------------------------------------------------------------------- 1110 0000 0003 | | .DBG3TAB 0x0000,0x0003 1112 0464 0001 | d | .CONST 0x0464,0x0001 1114 0468 0002 | h | .CONST 0x0468,0x0002 1116 0471 0003 | q | .CONST 0x0471,0x0003 1118 ; -------------------------------------------------------------------------------------- 1118 ; Debug3 Subtable 0x12 1118 ; -------------------------------------------------------------------------------------- 1118 0000 0004 | | .DBG3TAB 0x0000,0x0004 111a 0484 0001 | | .CONST 0x0484,0x0001 111c 0488 0002 | | .CONST 0x0488,0x0002 111e 048d 0003 | | .CONST 0x048d,0x0003 1120 0498 0004 | | .CONST 0x0498,0x0004 1122 ; -------------------------------------------------------------------------------------- 1122 ; Debug3 Subtable 0x13 1122 ; -------------------------------------------------------------------------------------- 1122 0000 0003 | | .DBG3TAB 0x0000,0x0003 1124 04a3 0001 | | .CONST 0x04a3,0x0001 1126 04a5 0002 | | .CONST 0x04a5,0x0002 1128 04a7 0003 | | .CONST 0x04a7,0x0003 112a ; -------------------------------------------------------------------------------------- 112a ; Debug3 Subtable 0x14 112a ; -------------------------------------------------------------------------------------- 112a 0000 0001 | | .DBG3TAB 0x0000,0x0001 112c 04b3 0001 | | .CONST 0x04b3,0x0001 112e ; -------------------------------------------------------------------------------------- 112e ; Debug3 Subtable 0x15 112e ; -------------------------------------------------------------------------------------- 112e 0000 0000 | | .DBG3TAB 0x0000,0x0000 1130 ; -------------------------------------------------------------------------------------- 1130 ; Debug3 Subtable 0x16 1130 ; -------------------------------------------------------------------------------------- 1130 0000 0000 | | .DBG3TAB 0x0000,0x0000 1132 ; -------------------------------------------------------------------------------------- 1132 ; Debug3 Subtable 0x17 1132 ; -------------------------------------------------------------------------------------- 1132 0000 0000 | | .DBG3TAB 0x0000,0x0000 1134 ; -------------------------------------------------------------------------------------- 1134 ; Debug3 Subtable 0x18 1134 ; -------------------------------------------------------------------------------------- 1134 0000 0000 | | .DBG3TAB 0x0000,0x0000 1136 ; -------------------------------------------------------------------------------------- 1136 ; Debug3 Subtable 0x19 1136 ; -------------------------------------------------------------------------------------- 1136 0003 000d | | .DBG3TAB 0x0003,0x000d 1138 050b ffff | | .CONST 0x050b,0xffff 113a 050e fffe | | .CONST 0x050e,0xfffe 113c 0510 fffd | | .CONST 0x0510,0xfffd 113e 0515 0001 | | .CONST 0x0515,0x0001 1140 0525 0002 | % | .CONST 0x0525,0x0002 1142 0529 0003 | ) | .CONST 0x0529,0x0003 1144 0530 0004 | 0 | .CONST 0x0530,0x0004 1146 053a 0005 | : | .CONST 0x053a,0x0005 1148 053e 0006 | > | .CONST 0x053e,0x0006 114a 0543 0007 | C | .CONST 0x0543,0x0007 114c 054d 0008 | M | .CONST 0x054d,0x0008 114e 0557 0009 | W | .CONST 0x0557,0x0009 1150 0562 000a | b | .CONST 0x0562,0x000a 1152 056d 000b | m | .CONST 0x056d,0x000b 1154 0578 000c | x | .CONST 0x0578,0x000c 1156 057d 000d | } | .CONST 0x057d,0x000d 1158 ; -------------------------------------------------------------------------------------- 1158 ; Debug3 Subtable 0x1a 1158 ; -------------------------------------------------------------------------------------- 1158 0002 0003 | | .DBG3TAB 0x0002,0x0003 115a 058b ffff | | .CONST 0x058b,0xffff 115c 058e fffe | | .CONST 0x058e,0xfffe 115e 0591 0001 | | .CONST 0x0591,0x0001 1160 0595 0002 | | .CONST 0x0595,0x0002 1162 059c 0003 | | .CONST 0x059c,0x0003 1164 ; -------------------------------------------------------------------------------------- 1164 ; Debug3 Subtable 0x1b 1164 ; -------------------------------------------------------------------------------------- 1164 0001 0002 | | .DBG3TAB 0x0001,0x0002 1166 05b3 ffff | | .CONST 0x05b3,0xffff 1168 05b8 0001 | | .CONST 0x05b8,0x0001 116a 05bd 0002 | | .CONST 0x05bd,0x0002 116c ; -------------------------------------------------------------------------------------- 116c ; Debug3 Subtable 0x1c 116c ; -------------------------------------------------------------------------------------- 116c 0004 000c | | .DBG3TAB 0x0004,0x000c 116e 05cb ffff | | .CONST 0x05cb,0xffff 1170 05ce fffe | | .CONST 0x05ce,0xfffe 1172 05d3 fffd | | .CONST 0x05d3,0xfffd 1174 05d6 fffc | | .CONST 0x05d6,0xfffc 1176 05d7 0001 | | .CONST 0x05d7,0x0001 1178 05e1 0002 | | .CONST 0x05e1,0x0002 117a 05e5 0003 | | .CONST 0x05e5,0x0003 117c 05ec 0004 | | .CONST 0x05ec,0x0004 117e 05f3 0005 | | .CONST 0x05f3,0x0005 1180 0600 0006 | | .CONST 0x0600,0x0006 1182 0606 0007 | | .CONST 0x0606,0x0007 1184 0608 0008 | | .CONST 0x0608,0x0008 1186 060a 0009 | | .CONST 0x060a,0x0009 1188 0615 000a | | .CONST 0x0615,0x000a 118a 061f 000b | | .CONST 0x061f,0x000b 118c 0632 000c | 2 | .CONST 0x0632,0x000c 118e ; -------------------------------------------------------------------------------------- 118e ; Debug3 Subtable 0x1d 118e ; -------------------------------------------------------------------------------------- 118e 0002 0005 | | .DBG3TAB 0x0002,0x0005 1190 0643 ffff | C | .CONST 0x0643,0xffff 1192 0646 fffe | F | .CONST 0x0646,0xfffe 1194 0648 0001 | H | .CONST 0x0648,0x0001 1196 064f 0002 | O | .CONST 0x064f,0x0002 1198 0659 0003 | Y | .CONST 0x0659,0x0003 119a 065c 0004 | \ | .CONST 0x065c,0x0004 119c 0662 0005 | b | .CONST 0x0662,0x0005 119e ; -------------------------------------------------------------------------------------- 119e ; Debug3 Subtable 0x1e 119e ; -------------------------------------------------------------------------------------- 119e 0000 0003 | | .DBG3TAB 0x0000,0x0003 11a0 067b 0001 | { | .CONST 0x067b,0x0001 11a2 067f 0002 | | .CONST 0x067f,0x0002 11a4 0681 0003 | | .CONST 0x0681,0x0003 11a6 ; -------------------------------------------------------------------------------------- 11a6 ; Debug3 Subtable 0x1f 11a6 ; -------------------------------------------------------------------------------------- 11a6 0008 0003 | | .DBG3TAB 0x0008,0x0003 11a8 068b ffff | | .CONST 0x068b,0xffff 11aa 068d fffe | | .CONST 0x068d,0xfffe 11ac 0693 fffd | | .CONST 0x0693,0xfffd 11ae 069b fffc | | .CONST 0x069b,0xfffc 11b0 06a0 fffb | | .CONST 0x06a0,0xfffb 11b2 06a2 fffa | | .CONST 0x06a2,0xfffa 11b4 06a4 fff9 | | .CONST 0x06a4,0xfff9 11b6 06b4 fff8 | | .CONST 0x06b4,0xfff8 11b8 06f7 0001 | | .CONST 0x06f7,0x0001 11ba 06fb 0002 | | .CONST 0x06fb,0x0002 11bc 06fd 0003 | | .CONST 0x06fd,0x0003 11be ; -------------------------------------------------------------------------------------- 11be ; Debug3 Subtable 0x20 11be ; -------------------------------------------------------------------------------------- 11be 0005 0007 | | .DBG3TAB 0x0005,0x0007 11c0 070b ffff | | .CONST 0x070b,0xffff 11c2 070d fffe | | .CONST 0x070d,0xfffe 11c4 070f fffd | | .CONST 0x070f,0xfffd 11c6 0710 fffc | | .CONST 0x0710,0xfffc 11c8 0712 fffb | | .CONST 0x0712,0xfffb 11ca 0720 0001 | | .CONST 0x0720,0x0001 11cc 0727 0002 | ' | .CONST 0x0727,0x0002 11ce 0737 0003 | 7 | .CONST 0x0737,0x0003 11d0 0750 0004 | P | .CONST 0x0750,0x0004 11d2 0752 0005 | R | .CONST 0x0752,0x0005 11d4 0758 0006 | X | .CONST 0x0758,0x0006 11d6 0768 0007 | h | .CONST 0x0768,0x0007 11d8 ; -------------------------------------------------------------------------------------- 11d8 ; Debug3 Subtable 0x21 11d8 ; -------------------------------------------------------------------------------------- 11d8 0005 000f | | .DBG3TAB 0x0005,0x000f 11da 0773 ffff | s | .CONST 0x0773,0xffff 11dc 0775 fffe | u | .CONST 0x0775,0xfffe 11de 0778 fffd | x | .CONST 0x0778,0xfffd 11e0 077a fffc | z | .CONST 0x077a,0xfffc 11e2 077c fffb | | | .CONST 0x077c,0xfffb 11e4 0780 0002 | | .CONST 0x0780,0x0002 11e6 0782 0003 | | .CONST 0x0782,0x0003 11e8 0789 0004 | | .CONST 0x0789,0x0004 11ea 079b 0005 | | .CONST 0x079b,0x0005 11ec 079d 0006 | | .CONST 0x079d,0x0006 11ee 07a1 0007 | | .CONST 0x07a1,0x0007 11f0 07a3 0008 | | .CONST 0x07a3,0x0008 11f2 07ac 0009 | | .CONST 0x07ac,0x0009 11f4 07ae 000a | | .CONST 0x07ae,0x000a 11f6 07b0 000b | | .CONST 0x07b0,0x000b 11f8 07b2 000c | | .CONST 0x07b2,0x000c 11fa 07b5 000d | | .CONST 0x07b5,0x000d 11fc 07b7 000e | | .CONST 0x07b7,0x000e 11fe 07ba 000f | | .CONST 0x07ba,0x000f 1200 07c3 0001 | | .CONST 0x07c3,0x0001 1202 ; -------------------------------------------------------------------------------------- 1202 ; Debug3 Subtable 0x22 1202 ; -------------------------------------------------------------------------------------- 1202 0001 0005 | | .DBG3TAB 0x0001,0x0005 1204 07cb ffff | | .CONST 0x07cb,0xffff 1206 07ce 0001 | | .CONST 0x07ce,0x0001 1208 07d4 0002 | | .CONST 0x07d4,0x0002 120a 07de 0003 | | .CONST 0x07de,0x0003 120c 07e4 0004 | | .CONST 0x07e4,0x0004 120e 07ed 0005 | | .CONST 0x07ed,0x0005 1210 ; -------------------------------------------------------------------------------------- 1210 ; Debug3 Subtable 0x23 1210 ; -------------------------------------------------------------------------------------- 1210 0002 0001 | | .DBG3TAB 0x0002,0x0001 1212 07fb ffff | | .CONST 0x07fb,0xffff 1214 07fd fffe | | .CONST 0x07fd,0xfffe 1216 07ff 0001 | | .CONST 0x07ff,0x0001 1218 ; -------------------------------------------------------------------------------------- 1218 ; Debug3 Subtable 0x24 1218 ; -------------------------------------------------------------------------------------- 1218 0002 0005 | | .DBG3TAB 0x0002,0x0005 121a 080b ffff | | .CONST 0x080b,0xffff 121c 0810 fffe | | .CONST 0x0810,0xfffe 121e 0813 0001 | | .CONST 0x0813,0x0001 1220 081e 0002 | | .CONST 0x081e,0x0002 1222 0828 0003 | ( | .CONST 0x0828,0x0003 1224 0832 0004 | 2 | .CONST 0x0832,0x0004 1226 0839 0005 | 9 | .CONST 0x0839,0x0005 1228 ; -------------------------------------------------------------------------------------- 1228 ; Debug3 Subtable 0x25 1228 ; -------------------------------------------------------------------------------------- 1228 0005 0015 | | .DBG3TAB 0x0005,0x0015 122a 084b ffff | K | .CONST 0x084b,0xffff 122c 084f fffe | O | .CONST 0x084f,0xfffe 122e 0851 fffd | Q | .CONST 0x0851,0xfffd 1230 0852 fffc | R | .CONST 0x0852,0xfffc 1232 0853 fffb | S | .CONST 0x0853,0xfffb 1234 0856 0001 | V | .CONST 0x0856,0x0001 1236 0859 0002 | Y | .CONST 0x0859,0x0002 1238 0868 0003 | h | .CONST 0x0868,0x0003 123a 086e 0004 | n | .CONST 0x086e,0x0004 123c 0875 0005 | u | .CONST 0x0875,0x0005 123e 0877 0006 | w | .CONST 0x0877,0x0006 1240 087a 0007 | z | .CONST 0x087a,0x0007 1242 087d 0008 | } | .CONST 0x087d,0x0008 1244 0884 0009 | | .CONST 0x0884,0x0009 1246 0888 000a | | .CONST 0x0888,0x000a 1248 088c 000b | | .CONST 0x088c,0x000b 124a 0893 000c | | .CONST 0x0893,0x000c 124c 0897 000d | | .CONST 0x0897,0x000d 124e 08a9 000e | | .CONST 0x08a9,0x000e 1250 08b0 000f | | .CONST 0x08b0,0x000f 1252 08bd 0010 | | .CONST 0x08bd,0x0010 1254 08c7 0011 | | .CONST 0x08c7,0x0011 1256 08d2 0012 | | .CONST 0x08d2,0x0012 1258 08dd 0013 | | .CONST 0x08dd,0x0013 125a 08e8 0014 | | .CONST 0x08e8,0x0014 125c 08ed 0015 | | .CONST 0x08ed,0x0015 125e ; -------------------------------------------------------------------------------------- 125e ; Debug3 Subtable 0x26 125e ; -------------------------------------------------------------------------------------- 125e 0000 0001 | | .DBG3TAB 0x0000,0x0001 1260 08fb 0001 | | .CONST 0x08fb,0x0001 1262 ; -------------------------------------------------------------------------------------- 1262 ; Debug3 Subtable 0x27 1262 ; -------------------------------------------------------------------------------------- 1262 0000 0001 | | .DBG3TAB 0x0000,0x0001 1264 0913 0001 | | .CONST 0x0913,0x0001 1266 ; -------------------------------------------------------------------------------------- 1266 ; Debug3 Subtable 0x28 1266 ; -------------------------------------------------------------------------------------- 1266 0000 0002 | | .DBG3TAB 0x0000,0x0002 1268 0923 0001 | # | .CONST 0x0923,0x0001 126a 092b 0002 | + | .CONST 0x092b,0x0002 126c ; -------------------------------------------------------------------------------------- 126c ; Debug3 Subtable 0x29 126c ; -------------------------------------------------------------------------------------- 126c 0002 0007 | | .DBG3TAB 0x0002,0x0007 126e 093b ffff | ; | .CONST 0x093b,0xffff 1270 0941 fffe | A | .CONST 0x0941,0xfffe 1272 0944 0002 | D | .CONST 0x0944,0x0002 1274 0949 0003 | I | .CONST 0x0949,0x0003 1276 094c 0004 | L | .CONST 0x094c,0x0004 1278 094f 0005 | O | .CONST 0x094f,0x0005 127a 0954 0001 | T | .CONST 0x0954,0x0001 127c 095a 0006 | Z | .CONST 0x095a,0x0006 127e 095f 0007 | _ | .CONST 0x095f,0x0007 1280 ; -------------------------------------------------------------------------------------- 1280 ; Debug3 Subtable 0x2a 1280 ; -------------------------------------------------------------------------------------- 1280 0001 000b | | .DBG3TAB 0x0001,0x000b 1282 0973 ffff | s | .CONST 0x0973,0xffff 1284 0975 0001 | u | .CONST 0x0975,0x0001 1286 097b 0002 | { | .CONST 0x097b,0x0002 1288 097f 0003 | | .CONST 0x097f,0x0003 128a 0993 0004 | | .CONST 0x0993,0x0004 128c 099a 0006 | | .CONST 0x099a,0x0006 128e 099e 0007 | | .CONST 0x099e,0x0007 1290 09a5 0008 | | .CONST 0x09a5,0x0008 1292 09a8 0009 | | .CONST 0x09a8,0x0009 1294 09b0 000a | | .CONST 0x09b0,0x000a 1296 09ba 000b | | .CONST 0x09ba,0x000b 1298 09bf 000c | | .CONST 0x09bf,0x000c 129a ; -------------------------------------------------------------------------------------- 129a ; Debug3 Subtable 0x2b 129a ; -------------------------------------------------------------------------------------- 129a 0002 0004 | | .DBG3TAB 0x0002,0x0004 129c 09cb ffff | | .CONST 0x09cb,0xffff 129e 09ce fffe | | .CONST 0x09ce,0xfffe 12a0 09d0 0001 | | .CONST 0x09d0,0x0001 12a2 09d7 0002 | | .CONST 0x09d7,0x0002 12a4 09e1 0003 | | .CONST 0x09e1,0x0003 12a6 09e7 0004 | | .CONST 0x09e7,0x0004 12a8 ; -------------------------------------------------------------------------------------- 12a8 ; Debug3 Subtable 0x2c 12a8 ; -------------------------------------------------------------------------------------- 12a8 0000 0004 | | .DBG3TAB 0x0000,0x0004 12aa 09fb 0001 | | .CONST 0x09fb,0x0001 12ac 09fe 0002 | | .CONST 0x09fe,0x0002 12ae 0a01 0003 | | .CONST 0x0a01,0x0003 12b0 0a03 0004 | | .CONST 0x0a03,0x0004 12b2 ; -------------------------------------------------------------------------------------- 12b2 ; Debug3 Subtable 0x2d 12b2 ; -------------------------------------------------------------------------------------- 12b2 0000 0003 | | .DBG3TAB 0x0000,0x0003 12b4 0a0b 0001 | | .CONST 0x0a0b,0x0001 12b6 0a13 0002 | | .CONST 0x0a13,0x0002 12b8 0a1b 0003 | | .CONST 0x0a1b,0x0003 12ba ; -------------------------------------------------------------------------------------- 12ba ; Debug3 Subtable 0x2e 12ba ; -------------------------------------------------------------------------------------- 12ba 0000 0004 | | .DBG3TAB 0x0000,0x0004 12bc 0a23 0001 | # | .CONST 0x0a23,0x0001 12be 0a2d 0002 | - | .CONST 0x0a2d,0x0002 12c0 0a33 0003 | 3 | .CONST 0x0a33,0x0003 12c2 0a39 0004 | 9 | .CONST 0x0a39,0x0004 12c4 ; -------------------------------------------------------------------------------------- 12c4 ; Debug3 Subtable 0x2f 12c4 ; -------------------------------------------------------------------------------------- 12c4 0000 0004 | | .DBG3TAB 0x0000,0x0004 12c6 0a44 0001 | D | .CONST 0x0a44,0x0001 12c8 0a48 0002 | H | .CONST 0x0a48,0x0002 12ca 0a64 0004 | d | .CONST 0x0a64,0x0004 12cc 0a70 0005 | p | .CONST 0x0a70,0x0005 12ce ; -------------------------------------------------------------------------------------- 12ce ; Debug3 Subtable 0x30 12ce ; -------------------------------------------------------------------------------------- 12ce 0001 0004 | | .DBG3TAB 0x0001,0x0004 12d0 0a7b ffff | { | .CONST 0x0a7b,0xffff 12d2 0a84 0001 | | .CONST 0x0a84,0x0001 12d4 0a88 0002 | | .CONST 0x0a88,0x0002 12d6 0a8d 0003 | | .CONST 0x0a8d,0x0003 12d8 0a94 0004 | | .CONST 0x0a94,0x0004 12da ; -------------------------------------------------------------------------------------- 12da ; Debug3 Subtable 0x31 12da ; -------------------------------------------------------------------------------------- 12da 000a 0000 | | .DBG3TAB 0x000a,0x0000 12dc 0a9b ffff | | .CONST 0x0a9b,0xffff 12de 0a9d fffe | | .CONST 0x0a9d,0xfffe 12e0 0a9f fffd | | .CONST 0x0a9f,0xfffd 12e2 0aa1 fffc | | .CONST 0x0aa1,0xfffc 12e4 0aa3 fffb | | .CONST 0x0aa3,0xfffb 12e6 0aa5 fffa | | .CONST 0x0aa5,0xfffa 12e8 0aa7 fff9 | | .CONST 0x0aa7,0xfff9 12ea 0aa9 fff8 | | .CONST 0x0aa9,0xfff8 12ec 0aab fff7 | | .CONST 0x0aab,0xfff7 12ee 0aad fff6 | | .CONST 0x0aad,0xfff6 12f0 ; -------------------------------------------------------------------------------------- 12f0 ; Debug3 Subtable 0x32 12f0 ; -------------------------------------------------------------------------------------- 12f0 0009 0000 | | .DBG3TAB 0x0009,0x0000 12f2 0ab0 ffff | | .CONST 0x0ab0,0xffff 12f4 0ab2 fffe | | .CONST 0x0ab2,0xfffe 12f6 0ab4 fffd | | .CONST 0x0ab4,0xfffd 12f8 0ab6 fffc | | .CONST 0x0ab6,0xfffc 12fa 0ab8 fffb | | .CONST 0x0ab8,0xfffb 12fc 0aba fffa | | .CONST 0x0aba,0xfffa 12fe 0abc fff9 | | .CONST 0x0abc,0xfff9 1300 0abe fff8 | | .CONST 0x0abe,0xfff8 1302 0ac0 fff7 | | .CONST 0x0ac0,0xfff7 1304 ; -------------------------------------------------------------------------------------- 1304 ; Debug3 Subtable 0x33 1304 ; -------------------------------------------------------------------------------------- 1304 0000 0001 | | .DBG3TAB 0x0000,0x0001 1306 0acb 0001 | | .CONST 0x0acb,0x0001 1308 ; -------------------------------------------------------------------------------------- 1308 ; Debug3 Subtable 0x34 1308 ; -------------------------------------------------------------------------------------- 1308 0000 0001 | | .DBG3TAB 0x0000,0x0001 130a 0ad3 0001 | | .CONST 0x0ad3,0x0001 130c ; -------------------------------------------------------------------------------------- 130c ; Debug3 Subtable 0x35 130c ; -------------------------------------------------------------------------------------- 130c 0000 0001 | | .DBG3TAB 0x0000,0x0001 130e 0adb 0001 | | .CONST 0x0adb,0x0001 1310 ; -------------------------------------------------------------------------------------- 1310 ; Debug3 Subtable 0x36 1310 ; -------------------------------------------------------------------------------------- 1310 0000 0001 | | .DBG3TAB 0x0000,0x0001 1312 0ae3 0001 | | .CONST 0x0ae3,0x0001 1314 ; -------------------------------------------------------------------------------------- 1314 ; Debug3 Subtable 0x37 1314 ; -------------------------------------------------------------------------------------- 1314 0000 0001 | | .DBG3TAB 0x0000,0x0001 1316 0aeb 0001 | | .CONST 0x0aeb,0x0001 1318 ; -------------------------------------------------------------------------------------- 1318 ; Debug3 Subtable 0x38 1318 ; -------------------------------------------------------------------------------------- 1318 0000 0001 | | .DBG3TAB 0x0000,0x0001 131a 0af3 0001 | | .CONST 0x0af3,0x0001 131c ; -------------------------------------------------------------------------------------- 131c ; Debug3 Subtable 0x39 131c ; -------------------------------------------------------------------------------------- 131c 0000 0001 | | .DBG3TAB 0x0000,0x0001 131e 0afb 0001 | | .CONST 0x0afb,0x0001 1320 ; -------------------------------------------------------------------------------------- 1320 ; Debug3 Subtable 0x3a 1320 ; -------------------------------------------------------------------------------------- 1320 0000 0001 | | .DBG3TAB 0x0000,0x0001 1322 0b03 0001 | | .CONST 0x0b03,0x0001 1324 ; -------------------------------------------------------------------------------------- 1324 ; Debug3 Subtable 0x3b 1324 ; -------------------------------------------------------------------------------------- 1324 0000 0001 | | .DBG3TAB 0x0000,0x0001 1326 0b0b 0001 | | .CONST 0x0b0b,0x0001 1328 ; -------------------------------------------------------------------------------------- 1328 ; Debug3 Subtable 0x3c 1328 ; -------------------------------------------------------------------------------------- 1328 0002 0000 | | .DBG3TAB 0x0002,0x0000 132a 0b13 ffff | | .CONST 0x0b13,0xffff 132c 0b15 fffe | | .CONST 0x0b15,0xfffe 132e ; -------------------------------------------------------------------------------------- 132e ; Debug3 Subtable 0x3d 132e ; -------------------------------------------------------------------------------------- 132e 0002 0000 | | .DBG3TAB 0x0002,0x0000 1330 0b18 ffff | | .CONST 0x0b18,0xffff 1332 0b1a fffe | | .CONST 0x0b1a,0xfffe 1334 ; -------------------------------------------------------------------------------------- 1334 ; Debug3 Subtable 0x3e 1334 ; -------------------------------------------------------------------------------------- 1334 0001 0002 | | .DBG3TAB 0x0001,0x0002 1336 0b23 ffff | # | .CONST 0x0b23,0xffff 1338 0b24 0001 | $ | .CONST 0x0b24,0x0001 133a 0b2c 0002 | , | .CONST 0x0b2c,0x0002 133c ; -------------------------------------------------------------------------------------- 133c ; Debug3 Subtable 0x3f 133c ; -------------------------------------------------------------------------------------- 133c 0000 0001 | | .DBG3TAB 0x0000,0x0001 133e 0b33 0001 | 3 | .CONST 0x0b33,0x0001 1340 0000 0000 | | .BLANK 0000[0xc0]