|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 4096 (0x1000) Notes: 00_class, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0500e0
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5813 |X | .CONST 0x5813 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 04d0 | | .CONST 0x04d0 ; 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 0003 | | .CONST 0x0003 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0055 | U | .CONST 0x0055 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001e | | .CONST 0x001e ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 ; Debug Table 0x0 = .DEBUG 0x000b,0x056a,0x0000,0x0000,0x0055,0xe795,0x0000,0x0f41 ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 4802 |H | Short_Literal 0x2 000d 029f 005b | [| Declare_Subprogram INIT_0058,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0x10,0xfffe 0012 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0x12,0xfffd 0014 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x14,0xfffc 0016 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x16,0xfffb 0018 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x18,0xfffa 001a 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x1a,0xfff9 001c 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x1c,0xfff8 001e 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x1e,0xfff7 0020 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x20,0xfff6 0022 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xa = 0x22,0xfff5 0024 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xb = 0x24,0xfff4 0026 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xc = 0x26,0xfff3 0028 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0xd = 0x28,0xfff2 0029 481f |H | Short_Literal 0x1f 002a 00e3 | | Load_Encached Natural_Cache 002b 03f9 | | Declare_Type Discrete,Constrained,Visible 002c 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xe = 0x2c,0xfff1 002e 029a 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xf = 0x2e,0xfff0 0030 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x10 = 0x30,0xffef 0032 029a 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x11 = 0x32,0xffee 0034 00bf | | Action Accept_Activation 0035 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1 = .DEBUG 0x0035,0x0590,0x0000,0x0000,0x0057,0x7a35,0x0000,0x000a ; Debug Table 0x1.0x0 = 0x35,0xffff ; Debug Table 0x1.0x1 = 0x35,0xfffe ; Debug Table 0x1.0x2 = 0x35,0xfffd ; Debug Table 0x1.0x3 = 0x35,0xfffc 0036 00c7 | | Action Elaborate_Subprogram 0037 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x4 = 0x37,0xfffb 0038 00c7 | | Action Elaborate_Subprogram 0039 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x5 = 0x39,0xfffa 003a 00c7 | | Action Elaborate_Subprogram 003b 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x6 = 0x3b,0xfff9 003c 00c7 | | Action Elaborate_Subprogram 003d 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x7 = 0x3d,0xfff8 003e 00c7 | | Action Elaborate_Subprogram 003f 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x8 = 0x3f,0xfff7 0040 00c7 | | Action Elaborate_Subprogram 0041 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0x9 = 0x41,0xfff6 0042 00c7 | | Action Elaborate_Subprogram 0043 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0xa = 0x43,0xfff5 0044 00c7 | | Action Elaborate_Subprogram 0045 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0xb = 0x45,0xfff4 0046 00c7 | | Action Elaborate_Subprogram 0047 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x1.0xc = 0x47,0xfff3 0048 00c7 | | Action Elaborate_Subprogram 0049 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0x1.0xd = 0x49,0xfff2 004a 00c7 | | Action Elaborate_Subprogram 004b 1d19 | | Execute_Immediate Reference_Lex_1,0x19 ; Debug Table 0x1.0xe = 0x4b,0xfff1 004c 00c7 | | Action Elaborate_Subprogram 004d 1d1b | | Execute_Immediate Reference_Lex_1,0x1b ; Debug Table 0x1.0xf = 0x4d,0xfff0 004e 00c7 | | Action Elaborate_Subprogram 004f 1d1c | | Execute_Immediate Reference_Lex_1,0x1c ; Debug Table 0x1.0x10 = 0x4f,0xffef 0050 00c7 | | Action Elaborate_Subprogram 0051 1d1d | | Execute_Immediate Reference_Lex_1,0x1d ; Debug Table 0x1.0x11 = 0x51,0xffee 0052 00c7 | | Action Elaborate_Subprogram 0053 1d1e | | Execute_Immediate Reference_Lex_1,0x1e ; Debug Table 0x1.0x12 = 0x53,0xffed 0054 00c7 | | Action Elaborate_Subprogram 0055 BODY_0008: 0055 00bc | | Action Signal_Activated 0056 00bb | | Action Signal_Completion 0057 0000 | | .XXX[0x1] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 005b | [ | .CONST 0x005b ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0001 | | .CONST 0x0001 ; Number of locals 005b BODY_0058: 005b INIT_0058: 005b 4603 |F | Jump_Case 0x4 ; Debug Table 0x2 = .DEBUG 0x005b,0x05b8,0x0005,0x0000,0x0055,0xe795,0x0000,0x0f42 005c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 005d 7802 |x | Jump 0x60 ; case 0x1 005e 7805 |x | Jump 0x64 ; case 0x2 005f 7809 |x | Jump 0x69 ; case 0x3 0060 00da | | Load_Top At_Offset_2 0061 0091 0414 | | Action Push_String_Extended_Indexed,0x414 ; "NOT_A_LIBRARY" 0063 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0064 00db | | Load_Top At_Offset_3 0065 00db | | Load_Top At_Offset_3 0066 00e0 | | Load_Encached Standard_Cache 0067 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0068 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0069 00da | | Load_Top At_Offset_2 006a 00e0 | | Load_Encached Standard_Cache 006b 181c | | Execute Package,Field_Execute,Field_Number 0x1c 006c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 006d 0000 0000 | | .XXX[0x3] 006f 0000 | | 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 007a | z | .CONST 0x007a ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0003 | | .CONST 0x0003 ; Number of locals 0073 INIT_0070: 0073 e001 | | Load 0x0,0x1 ; Debug Table 0x3 = .DEBUG 0x0073,0x05ba,0x0002,0x0000,0x0055,0xe795,0x0000,0x0f49 ; Debug Table 0x3.0x0 = 0x73,0xffff 0074 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0075 02c7 | | Declare_Variable Any 0076 00d8 | | Load_Top At_Offset_0 0077 1c00 | | Execute_Immediate Run_Utility,0x0 0078 e001 | | Load 0x0,0x1 ; Debug Table 0x3.0x1 = 0x78,0xfffe 0079 1b0d | | Execute Package,Field_Read,Field_Number 0xd 007a BODY_0070: 007a e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x2 = 0x7a,0x1 007b e002 | | Load 0x0,0x2 007c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 007d 180f | | Execute Package,Field_Execute,Field_Number 0xf 007e 6802 |h | Jump_Zero 0x81 007f 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x3 = 0x7f,0x2 0080 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0081 e001 | | Load 0x0,0x1 ; Debug Table 0x3.0x4 = 0x81,0x3 0082 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0083 00da | | Load_Top At_Offset_2 0084 0120 | | Execute Any,Is_Value 0085 6803 |h | Jump_Zero 0x89 0086 e001 | | Load 0x0,0x1 0087 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0088 7801 |x | Jump 0x8a 0089 00da | | Load_Top At_Offset_2 008a e5ff | | Load 0x2,-0x1 008b e002 | | Load 0x0,0x2 008c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 008d 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 008e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 008f c402 | | Store 0x2,0x2 0090 0059 | Y | Store_Top Discrete,At_Offset_1 0091 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x5 = 0x91,0x4 0092 6802 |h | Jump_Zero 0x95 0093 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x6 = 0x93,0x5 0094 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0095 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x7 = 0x95,0x6 0096 e001 | | Load 0x0,0x1 0097 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 0098 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0099 7002 |p | Jump_Nonzero 0x9c 009a 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x8 = 0x9a,0x7 009b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 009c 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x9 = 0x9c,0x8 009d e001 | | Load 0x0,0x1 009e 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 009f 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00a0 6802 |h | Jump_Zero 0xa3 00a1 4802 |H | Short_Literal 0x2 ; Debug Table 0x3.0xa = 0xa1,0x9 00a2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00a3 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0xb = 0xa3,0xa 00a4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00a5 0000 0000 | | .XXX[0x3] 00a7 0000 | | 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ae | | .CONST 0x00ae ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0002 | | .CONST 0x0002 ; Number of locals 00ab INIT_00a8: 00ab e002 | | Load 0x0,0x2 ; Debug Table 0x4 = .DEBUG 0x00ab,0x05d4,0x0002,0x0000,0x0055,0xe795,0x0000,0x0f56 ; Debug Table 0x4.0x0 = 0xab,0xffff 00ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ad 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ae BODY_00a8: 00ae 4800 |H | Short_Literal 0x0 ; Debug Table 0x4.0x1 = 0xae,0x1 00af e002 | | Load 0x0,0x2 00b0 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00b1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00b2 e5ff | | Load 0x2,-0x1 00b3 e002 | | Load 0x0,0x2 00b4 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00b5 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 00b6 0031 | 1 | Store_Top Heap_Access,At_Offset_1 00b7 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x2 = 0xb7,0x2 00b8 820e | | Call 0x1,0xe 00b9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ba 0000 0000 | | .BLANK 0000[0x6] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c3 | | .CONST 0x00c3 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0001 | | .CONST 0x0001 ; Number of locals 00c3 BODY_00c0: 00c3 INIT_00c0: 00c3 00da | | Load_Top At_Offset_2 ; Debug Table 0x5 = .DEBUG 0x00c3,0x05dc,0x0002,0x0000,0x0055,0xe795,0x0000,0x0f63 ; Debug Table 0x5.0x0 = 0xc3,0x1 00c4 820e | | Call 0x1,0xe 00c5 6802 |h | Jump_Zero 0xc8 00c6 4801 |H | Short_Literal 0x1 ; Debug Table 0x5.0x1 = 0xc6,0x2 00c7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00c8 4800 |H | Short_Literal 0x0 ; Debug Table 0x5.0x2 = 0xc8,0x3 00c9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ca 0000 0000 | | .BLANK 0000[0x6] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d3 | | .CONST 0x00d3 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0001 | | .CONST 0x0001 ; Number of locals 00d3 BODY_00d0: 00d3 INIT_00d0: 00d3 00da | | Load_Top At_Offset_2 ; Debug Table 0x6 = .DEBUG 0x00d3,0x05e4,0x0002,0x0000,0x0055,0xe795,0x0000,0x0f6e ; Debug Table 0x6.0x0 = 0xd3,0x1 00d4 820f | | Call 0x1,0xf 00d5 6802 |h | Jump_Zero 0xd8 00d6 4801 |H | Short_Literal 0x1 ; Debug Table 0x6.0x1 = 0xd6,0x2 00d7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00d8 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0x2 = 0xd8,0x3 00d9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00da 0000 0000 | | .BLANK 0000[0x6] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e3 | | .CONST 0x00e3 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0001 | | .CONST 0x0001 ; Number of locals 00e3 BODY_00e0: 00e3 INIT_00e0: 00e3 00da | | Load_Top At_Offset_2 ; Debug Table 0x7 = .DEBUG 0x00e3,0x05ec,0x0002,0x0000,0x0055,0xe795,0x0000,0x0f79 ; Debug Table 0x7.0x0 = 0xe3,0x1 00e4 820e | | Call 0x1,0xe 00e5 0f02 | | Execute_Immediate Equal,0x2 00e6 6802 |h | Jump_Zero 0xe9 00e7 4801 |H | Short_Literal 0x1 ; Debug Table 0x7.0x1 = 0xe7,0x2 00e8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00e9 4800 |H | Short_Literal 0x0 ; Debug Table 0x7.0x2 = 0xe9,0x3 00ea 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00eb 0000 0000 | | .BLANK 0000[0x5] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f3 | | .CONST 0x00f3 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0001 | | .CONST 0x0001 ; Number of locals 00f3 BODY_00f0: 00f3 INIT_00f0: 00f3 00da | | Load_Top At_Offset_2 ; Debug Table 0x8 = .DEBUG 0x00f3,0x05f4,0x0002,0x0000,0x0055,0xe795,0x0000,0x0f84 ; Debug Table 0x8.0x0 = 0xf3,0x1 00f4 820f | | Call 0x1,0xf 00f5 0f02 | | Execute_Immediate Equal,0x2 00f6 6802 |h | Jump_Zero 0xf9 00f7 4801 |H | Short_Literal 0x1 ; Debug Table 0x8.0x1 = 0xf7,0x2 00f8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00f9 4800 |H | Short_Literal 0x0 ; Debug Table 0x8.0x2 = 0xf9,0x3 00fa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00fb 0000 0000 | | .BLANK 0000[0x5] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 00da | | Load_Top At_Offset_2 ; Debug Table 0x9 = .DEBUG 0x0103,0x05fc,0x0002,0x0000,0x0055,0xe795,0x0000,0x0f8f ; Debug Table 0x9.0x0 = 0x103,0x1 0104 820e | | Call 0x1,0xe 0105 0f01 | | Execute_Immediate Equal,0x1 0106 6802 |h | Jump_Zero 0x109 0107 4801 |H | Short_Literal 0x1 ; Debug Table 0x9.0x1 = 0x107,0x2 0108 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0109 4800 |H | Short_Literal 0x0 ; Debug Table 0x9.0x2 = 0x109,0x3 010a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 010b 0000 0000 | | .BLANK 0000[0x5] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0113 | | .CONST 0x0113 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0001 | | .CONST 0x0001 ; Number of locals 0113 BODY_0110: 0113 INIT_0110: 0113 00da | | Load_Top At_Offset_2 ; Debug Table 0xa = .DEBUG 0x0113,0x0604,0x0002,0x0000,0x0055,0xe795,0x0000,0x0f9a ; Debug Table 0xa.0x0 = 0x113,0x1 0114 820f | | Call 0x1,0xf 0115 0f01 | | Execute_Immediate Equal,0x1 0116 6802 |h | Jump_Zero 0x119 0117 4801 |H | Short_Literal 0x1 ; Debug Table 0xa.0x1 = 0x117,0x2 0118 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0119 4800 |H | Short_Literal 0x0 ; Debug Table 0xa.0x2 = 0x119,0x3 011a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 011b 0000 0000 | | .BLANK 0000[0x5] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 012f | / | .CONST 0x012f ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0004 | | .CONST 0x0004 ; Number of locals 0123 INIT_0120: 0123 e001 | | Load 0x0,0x1 ; Debug Table 0xb = .DEBUG 0x0123,0x060c,0x0001,0x0000,0x0055,0xe795,0x0000,0x0fa5 ; Debug Table 0xb.0x0 = 0x123,0xffff 0124 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0125 02c7 | | Declare_Variable Any 0126 00d8 | | Load_Top At_Offset_0 0127 1c00 | | Execute_Immediate Run_Utility,0x0 0128 e001 | | Load 0x0,0x1 ; Debug Table 0xb.0x1 = 0x128,0xfffe 0129 1b0f | | Execute Package,Field_Read,Field_Number 0xf 012a 02c7 | | Declare_Variable Any 012b 00d8 | | Load_Top At_Offset_0 012c 1c00 | | Execute_Immediate Run_Utility,0x0 012d e001 | | Load 0x0,0x1 ; Debug Table 0xb.0x2 = 0x12d,0xfffd 012e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 012f BODY_0120: 012f e001 | | Load 0x0,0x1 ; Debug Table 0xb.0x3 = 0x12f,0x1 0130 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0131 00db | | Load_Top At_Offset_3 0132 0120 | | Execute Any,Is_Value 0133 6803 |h | Jump_Zero 0x137 0134 e001 | | Load 0x0,0x1 0135 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0136 7801 |x | Jump 0x138 0137 00db | | Load_Top At_Offset_3 0138 e5ff | | Load 0x2,-0x1 0139 e002 | | Load 0x0,0x2 013a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 013b 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 013c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 013d c402 | | Store 0x2,0x2 013e 0059 | Y | Store_Top Discrete,At_Offset_1 013f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xb.0x4 = 0x13f,0x2 0140 6815 |h | Jump_Zero 0x156 0141 e002 | | Load 0x0,0x2 ; Debug Table 0xb.0x5 = 0x141,0x3 0142 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0143 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0144 e002 | | Load 0x0,0x2 0145 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0146 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0147 e002 | | Load 0x0,0x2 0148 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0149 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 014a 0092 0417 | | Action Push_String_Extended,0x417 ; "set_switch_object: bad library" 014c e404 | | Load 0x2,0x4 014d e002 | | Load 0x0,0x2 014e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 014f 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 0150 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0151 e002 | | Load 0x0,0x2 0152 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0153 1852 | R | Execute Package,Field_Execute,Field_Number 0x52 0154 a5fd | | Store_Unchecked 0x2,-0x3 0155 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; Debug Table 0xb.0x6 = 0x155,0x4 0156 e001 | | Load 0x0,0x1 ; Debug Table 0xb.0x7 = 0x156,0x5 0157 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0158 00da | | Load_Top At_Offset_2 0159 0120 | | Execute Any,Is_Value 015a 6803 |h | Jump_Zero 0x15e 015b e001 | | Load 0x0,0x1 015c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 015d 7801 |x | Jump 0x15f 015e 00da | | Load_Top At_Offset_2 015f e5fe | | Load 0x2,-0x2 0160 e002 | | Load 0x0,0x2 0161 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0162 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 0163 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0164 c403 | | Store 0x2,0x3 0165 0059 | Y | Store_Top Discrete,At_Offset_1 0166 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xb.0x8 = 0x166,0x6 0167 6815 |h | Jump_Zero 0x17d 0168 e002 | | Load 0x0,0x2 ; Debug Table 0xb.0x9 = 0x168,0x7 0169 1b0d | | Execute Package,Field_Read,Field_Number 0xd 016a 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 016b e002 | | Load 0x0,0x2 016c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 016d 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 016e e002 | | Load 0x0,0x2 016f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0170 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 0171 0092 0418 | | Action Push_String_Extended,0x418 ; "Set_Switch_Object: bad switch file" 0173 e404 | | Load 0x2,0x4 0174 e002 | | Load 0x0,0x2 0175 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0176 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 0177 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0178 e002 | | Load 0x0,0x2 0179 1b0d | | Execute Package,Field_Read,Field_Number 0xd 017a 1852 | R | Execute Package,Field_Execute,Field_Number 0x52 017b a5fd | | Store_Unchecked 0x2,-0x3 017c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; Debug Table 0xb.0xa = 0x17c,0x8 017d e001 | | Load 0x0,0x1 ; Debug Table 0xb.0xb = 0x17d,0x9 017e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 017f 6290 |b | Indirect_Literal Discrete,0x410,{0x00000000, 0x00004000} 0180 e5ff | | Load 0x2,-0x1 0181 e002 | | Load 0x0,0x2 0182 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0183 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 0184 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0185 e403 | | Load 0x2,0x3 0186 e402 | | Load 0x2,0x2 0187 e001 | | Load 0x0,0x1 0188 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0189 1811 | | Execute Package,Field_Execute,Field_Number 0x11 018a e001 | | Load 0x0,0x1 018b 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 018c 181e | | Execute Package,Field_Execute,Field_Number 0x1e 018d 0059 | Y | Store_Top Discrete,At_Offset_1 018e e002 | | Load 0x0,0x2 ; Debug Table 0xb.0xc = 0x18e,0xa 018f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0190 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0191 e002 | | Load 0x0,0x2 0192 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0193 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0194 e002 | | Load 0x0,0x2 0195 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0196 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 0197 0092 0419 | | Action Push_String_Extended,0x419 ; "Set_Switch_Object" 0199 e404 | | Load 0x2,0x4 019a e002 | | Load 0x0,0x2 019b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 019c 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 019d 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 019e e002 | | Load 0x0,0x2 019f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01a0 1852 | R | Execute Package,Field_Execute,Field_Number 0x52 01a1 a5fd | | Store_Unchecked 0x2,-0x3 01a2 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01a3 0000 0000 | | .BLANK 0000[0x5] 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01b1 | | .CONST 0x01b1 ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0003 | | .CONST 0x0003 ; Number of locals 01ab INIT_01a8: 01ab e002 | | Load 0x0,0x2 ; Debug Table 0xc = .DEBUG 0x01ab,0x0628,0x0001,0x0000,0x0055,0xe795,0x0000,0x0fbb ; Debug Table 0xc.0x0 = 0x1ab,0xffff 01ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01ad 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01ae e002 | | Load 0x0,0x2 ; Debug Table 0xc.0x1 = 0x1ae,0xfffe 01af 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01b0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01b1 BODY_01a8: 01b1 4801 |H | Short_Literal 0x1 ; Debug Table 0xc.0x2 = 0x1b1,0x1 01b2 e002 | | Load 0x0,0x2 01b3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01b4 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01b5 e5ff | | Load 0x2,-0x1 01b6 e002 | | Load 0x0,0x2 01b7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01b8 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 01b9 0032 | 2 | Store_Top Heap_Access,At_Offset_2 01ba 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xc.0x3 = 0x1ba,0x2 01bb e002 | | Load 0x0,0x2 01bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01bd 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 01be 6806 |h | Jump_Zero 0x1c5 01bf 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xc.0x4 = 0x1bf,0x3 01c0 e002 | | Load 0x0,0x2 01c1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01c2 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 01c3 a5fd | | Store_Unchecked 0x2,-0x3 01c4 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; Debug Table 0xc.0x5 = 0x1c4,0x4 01c5 4801 |H | Short_Literal 0x1 ; Debug Table 0xc.0x6 = 0x1c5,0x5 01c6 e002 | | Load 0x0,0x2 01c7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01c8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01c9 e5fe | | Load 0x2,-0x2 01ca e002 | | Load 0x0,0x2 01cb 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01cc 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 01cd 0031 | 1 | Store_Top Heap_Access,At_Offset_1 01ce 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xc.0x7 = 0x1ce,0x6 01cf e002 | | Load 0x0,0x2 01d0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01d1 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 01d2 6806 |h | Jump_Zero 0x1d9 01d3 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xc.0x8 = 0x1d3,0x7 01d4 e002 | | Load 0x0,0x2 01d5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01d6 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 01d7 a5fd | | Store_Unchecked 0x2,-0x3 01d8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; Debug Table 0xc.0x9 = 0x1d8,0x8 01d9 e002 | | Load 0x0,0x2 ; Debug Table 0xc.0xa = 0x1d9,0x9 01da 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01db 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 01dc 00d9 | | Load_Top At_Offset_1 01dd 00db | | Load_Top At_Offset_3 01de 8216 | | Call 0x1,0x16 01df c5fd | | Store 0x2,-0x3 01e0 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01e1 0000 0000 | | .BLANK 0000[0x7] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01f7 | | .CONST 0x01f7 ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0004 | | .CONST 0x0004 ; Number of locals 01eb INIT_01e8: 01eb e001 | | Load 0x0,0x1 ; Debug Table 0xd = .DEBUG 0x01eb,0x0640,0x0002,0x0000,0x0055,0xe795,0x0000,0x0fd1 ; Debug Table 0xd.0x0 = 0x1eb,0xffff 01ec 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01ed 02c7 | | Declare_Variable Any 01ee 00d8 | | Load_Top At_Offset_0 01ef 1c00 | | Execute_Immediate Run_Utility,0x0 01f0 e001 | | Load 0x0,0x1 ; Debug Table 0xd.0x1 = 0x1f0,0xfffe 01f1 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01f2 02c7 | | Declare_Variable Any 01f3 00d8 | | Load_Top At_Offset_0 01f4 1c00 | | Execute_Immediate Run_Utility,0x0 01f5 e001 | | Load 0x0,0x1 ; Debug Table 0xd.0x2 = 0x1f5,0xfffd 01f6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01f7 BODY_01e8: 01f7 e001 | | Load 0x0,0x1 ; Debug Table 0xd.0x3 = 0x1f7,0x1 01f8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01f9 00db | | Load_Top At_Offset_3 01fa 0120 | | Execute Any,Is_Value 01fb 6803 |h | Jump_Zero 0x1ff 01fc e001 | | Load 0x0,0x1 01fd 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01fe 7801 |x | Jump 0x200 01ff 00db | | Load_Top At_Offset_3 0200 e5ff | | Load 0x2,-0x1 0201 e002 | | Load 0x0,0x2 0202 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0203 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 0204 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0205 c402 | | Store 0x2,0x2 0206 0059 | Y | Store_Top Discrete,At_Offset_1 0207 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xd.0x4 = 0x207,0x2 0208 6825 |h% | Jump_Zero 0x22e 0209 e002 | | Load 0x0,0x2 ; Debug Table 0xd.0x5 = 0x209,0x3 020a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 020b 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 020c 180e | | Execute Package,Field_Execute,Field_Number 0xe 020d 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0xd.0x6 = 0x20d,0x401 020e 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0xd.0x7 = 0x20e,0x3 ; Debug Table 0xd.0x8 = 0x20e,0x801 020f e001 | | Load 0x0,0x1 ; Debug Table 0xd.0x9 = 0x20f,0x401 0210 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0211 e001 | | Load 0x0,0x1 0212 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0213 e001 | | Load 0x0,0x1 0214 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0215 00ea | | Load_Encached Null_String_Cache 0216 e002 | | Load 0x0,0x2 0217 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0218 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0219 e002 | | Load 0x0,0x2 021a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 021b 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 021c e002 | | Load 0x0,0x2 021d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 021e 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 021f 0092 041a | | Action Push_String_Extended,0x41a ; "Switch_Object: bad library" 0221 e404 | | Load 0x2,0x4 0222 e002 | | Load 0x0,0x2 0223 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0224 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 0225 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0226 e002 | | Load 0x0,0x2 0227 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0228 1852 | R | Execute Package,Field_Execute,Field_Number 0x52 0229 e002 | | Load 0x0,0x2 022a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 022b 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 022c 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 022d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 022e e001 | | Load 0x0,0x1 ; Debug Table 0xd.0xa = 0x22e,0x4 022f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0230 00da | | Load_Top At_Offset_2 0231 0120 | | Execute Any,Is_Value 0232 6803 |h | Jump_Zero 0x236 0233 e001 | | Load 0x0,0x1 0234 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0235 7801 |x | Jump 0x237 0236 00da | | Load_Top At_Offset_2 0237 61d8 |a | Indirect_Literal Discrete,0x410,{0x00000000, 0x00004000} 0238 e5ff | | Load 0x2,-0x1 0239 e002 | | Load 0x0,0x2 023a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 023b 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 023c 1818 | | Execute Package,Field_Execute,Field_Number 0x18 023d e402 | | Load 0x2,0x2 023e e001 | | Load 0x0,0x1 023f 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0240 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0241 e001 | | Load 0x0,0x1 0242 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 0243 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0244 c403 | | Store 0x2,0x3 0245 0059 | Y | Store_Top Discrete,At_Offset_1 0246 e002 | | Load 0x0,0x2 ; Debug Table 0xd.0xb = 0x246,0x5 0247 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0248 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 0249 180e | | Execute Package,Field_Execute,Field_Number 0xe 024a 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0xd.0xc = 0x24a,0xc01 024b 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0xd.0xd = 0x24b,0x5 ; Debug Table 0xd.0xe = 0x24b,0x1001 024c e001 | | Load 0x0,0x1 ; Debug Table 0xd.0xf = 0x24c,0xc01 024d 181e | | Execute Package,Field_Execute,Field_Number 0x1e 024e e001 | | Load 0x0,0x1 024f 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0250 e403 | | Load 0x2,0x3 0251 00ea | | Load_Encached Null_String_Cache 0252 e002 | | Load 0x0,0x2 0253 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0254 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0255 e002 | | Load 0x0,0x2 0256 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0257 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0258 e002 | | Load 0x0,0x2 0259 1b0d | | Execute Package,Field_Read,Field_Number 0xd 025a 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 025b 0092 041b | | Action Push_String_Extended,0x41b ; "Switch_Object" 025d e404 | | Load 0x2,0x4 025e e002 | | Load 0x0,0x2 025f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0260 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 0261 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0262 e002 | | Load 0x0,0x2 0263 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0264 1852 | R | Execute Package,Field_Execute,Field_Number 0x52 0265 e002 | | Load 0x0,0x2 0266 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0267 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 0268 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0269 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 026a 0000 0000 | | .BLANK 0000[0x6] 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 0279 | y | .CONST 0x0279 ; Address of begin 0271 0004 | | .CONST 0x0004 ; Address of exception handler 0272 0003 | | .CONST 0x0003 ; Number of locals 0273 INIT_0270: 0273 e002 | | Load 0x0,0x2 ; Debug Table 0xe = .DEBUG 0x0273,0x0662,0x0002,0x0000,0x0055,0xe795,0x0000,0x0fde ; Debug Table 0xe.0x0 = 0x273,0xffff 0274 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0275 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0276 e002 | | Load 0x0,0x2 ; Debug Table 0xe.0x1 = 0x276,0xfffe 0277 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0278 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0279 BODY_0270: 0279 4801 |H | Short_Literal 0x1 ; Debug Table 0xe.0x2 = 0x279,0x1 027a e002 | | Load 0x0,0x2 027b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 027c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 027d e5ff | | Load 0x2,-0x1 027e e002 | | Load 0x0,0x2 027f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0280 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0281 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0282 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xe.0x3 = 0x282,0x2 0283 8218 | | Call 0x1,0x18 0284 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0285 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xe.0x4 = 0x285,0x3 0286 e002 | | Load 0x0,0x2 0287 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0288 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 0289 680e |h | Jump_Zero 0x298 028a 0092 041c | | Action Push_String_Extended,0x41c ; "[{<" ; Debug Table 0xe.0x5 = 0x28a,0x4 028c 00d9 | | Load_Top At_Offset_1 028d e002 | | Load 0x0,0x2 028e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 028f 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0290 e002 | | Load 0x0,0x2 0291 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0292 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 0293 01cc | | Execute Vector,Catenate 0294 0092 041d | | Action Push_String_Extended,0x41d ; ">}]" 0296 01cc | | Execute Vector,Catenate 0297 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0298 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xe.0x6 = 0x298,0x5 0299 e002 | | Load 0x0,0x2 029a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 029b 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 029c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 029d 0000 0000 | | .XXX[0x3] 029f 0000 | | 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; SUBPROGRAM 02a0 ; -------------------------------------------------------------------------------------- 02a0 02a3 | | .CONST 0x02a3 ; Address of begin 02a1 0004 | | .CONST 0x0004 ; Address of exception handler 02a2 0001 | | .CONST 0x0001 ; Number of locals 02a3 BODY_02a0: 02a3 INIT_02a0: 02a3 4800 |H | Short_Literal 0x0 ; Debug Table 0xf = .DEBUG 0x02a3,0x0672,0x0002,0x0000,0x0055,0xe795,0x0000,0x0ff2 ; Debug Table 0xf.0x0 = 0x2a3,0x1 02a4 00ca | | Action Exit_Nullary_Function 02a5 0000 0000 | | .XXX[0x3] 02a7 0000 | | 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; SUBPROGRAM 02a8 ; -------------------------------------------------------------------------------------- 02a8 02ab | | .CONST 0x02ab ; Address of begin 02a9 0004 | | .CONST 0x0004 ; Address of exception handler 02aa 0001 | | .CONST 0x0001 ; Number of locals 02ab BODY_02a8: 02ab INIT_02a8: 02ab 00da | | Load_Top At_Offset_2 ; Debug Table 0x10 = .DEBUG 0x02ab,0x0676,0x0002,0x0000,0x0055,0xe795,0x0000,0x0ff9 ; Debug Table 0x10.0x0 = 0x2ab,0x1 02ac 0f00 | | Execute_Immediate Equal,0x0 02ad 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02ae 0000 0000 | | .XXX[0x2] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02ba | | .CONST 0x02ba ; Address of begin 02b1 0004 | | .CONST 0x0004 ; Address of exception handler 02b2 0003 | | .CONST 0x0003 ; Number of locals 02b3 INIT_02b0: 02b3 e001 | | Load 0x0,0x1 ; Debug Table 0x11 = .DEBUG 0x02b3,0x067a,0x0002,0x0000,0x0055,0xe795,0x0000,0x1004 ; Debug Table 0x11.0x0 = 0x2b3,0xffff 02b4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02b5 02c7 | | Declare_Variable Any 02b6 00d8 | | Load_Top At_Offset_0 02b7 1c00 | | Execute_Immediate Run_Utility,0x0 02b8 e001 | | Load 0x0,0x1 ; Debug Table 0x11.0x1 = 0x2b8,0xfffe 02b9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02ba BODY_02b0: 02ba e001 | | Load 0x0,0x1 ; Debug Table 0x11.0x2 = 0x2ba,0x1 02bb 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02bc 00da | | Load_Top At_Offset_2 02bd 0120 | | Execute Any,Is_Value 02be 6803 |h | Jump_Zero 0x2c2 02bf e001 | | Load 0x0,0x1 02c0 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02c1 7801 |x | Jump 0x2c3 02c2 00da | | Load_Top At_Offset_2 02c3 e5ff | | Load 0x2,-0x1 02c4 e002 | | Load 0x0,0x2 02c5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02c6 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 02c7 1810 | | Execute Package,Field_Execute,Field_Number 0x10 02c8 c402 | | Store 0x2,0x2 02c9 0059 | Y | Store_Top Discrete,At_Offset_1 02ca 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x11.0x3 = 0x2ca,0x2 02cb 6802 |h | Jump_Zero 0x2ce 02cc 4800 |H | Short_Literal 0x0 ; Debug Table 0x11.0x4 = 0x2cc,0x3 02cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02ce 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x11.0x5 = 0x2ce,0x4 02cf e001 | | Load 0x0,0x1 02d0 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 02d1 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02d2 e001 | | Load 0x0,0x1 02d3 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 02d4 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 02d5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02d6 0000 0000 | | .XXX[0x2] 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; SUBPROGRAM 02d8 ; -------------------------------------------------------------------------------------- 02d8 0305 | | .CONST 0x0305 ; Address of begin 02d9 0004 | | .CONST 0x0004 ; Address of exception handler 02da 000c | | .CONST 0x000c ; Number of locals 02db INIT_02d8: 02db e001 | | Load 0x0,0x1 ; Debug Table 0x12 = .DEBUG 0x02db,0x0688,0x0001,0x0000,0x0055,0xe795,0x0000,0x1011 ; Debug Table 0x12.0x0 = 0x2db,0xffff 02dc 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 02dd 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02de e001 | | Load 0x0,0x1 ; Debug Table 0x12.0x1 = 0x2de,0xfffe 02df 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 02e0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02e1 02c7 | | Declare_Variable Any 02e2 00d8 | | Load_Top At_Offset_0 02e3 1c00 | | Execute_Immediate Run_Utility,0x0 02e4 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x12.0x2 = 0x2e4,0xfffd 02e5 e001 | | Load 0x0,0x1 ; Debug Table 0x12.0x3 = 0x2e5,0xfffc 02e6 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 02e7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02e8 02c7 | | Declare_Variable Any 02e9 00d8 | | Load_Top At_Offset_0 02ea 1c00 | | Execute_Immediate Run_Utility,0x0 02eb e001 | | Load 0x0,0x1 ; Debug Table 0x12.0x4 = 0x2eb,0xfffb 02ec 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02ed e001 | | Load 0x0,0x1 ; Debug Table 0x12.0x5 = 0x2ed,0xfffa 02ee 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02ef 02c7 | | Declare_Variable Any 02f0 00d8 | | Load_Top At_Offset_0 02f1 1c00 | | Execute_Immediate Run_Utility,0x0 02f2 e001 | | Load 0x0,0x1 ; Debug Table 0x12.0x6 = 0x2f2,0xfff9 02f3 1b14 | | Execute Package,Field_Read,Field_Number 0x14 02f4 02ff | | Declare_Variable Variant_Record 02f5 00d8 | | Load_Top At_Offset_0 02f6 1c00 | | Execute_Immediate Run_Utility,0x0 02f7 e003 | | Load 0x0,0x3 ; Debug Table 0x12.0x7 = 0x2f7,0xfff8 02f8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02f9 02c7 | | Declare_Variable Any 02fa 00d8 | | Load_Top At_Offset_0 02fb 1c00 | | Execute_Immediate Run_Utility,0x0 02fc e001 | | Load 0x0,0x1 ; Debug Table 0x12.0x8 = 0x2fc,0xfff7 02fd 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 02fe 1b17 | | Execute Package,Field_Read,Field_Number 0x17 02ff 00f1 | | Load_Encached Diana_Temp_Seq ; Debug Table 0x12.0x9 = 0x2ff,0xfff6 0300 e004 | | Load 0x0,0x4 ; Debug Table 0x12.0xa = 0x300,0xfff5 0301 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0302 02c7 | | Declare_Variable Any 0303 00d8 | | Load_Top At_Offset_0 0304 1c00 | | Execute_Immediate Run_Utility,0x0 0305 BODY_02d8: 0305 e001 | | Load 0x0,0x1 ; Debug Table 0x12.0xb = 0x305,0x1 0306 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0307 00ec | | Load_Encached Diana_Tree_Cache 0308 6107 |a | Indirect_Literal Discrete,0x410,{0x00000000, 0x00004000} 0309 e003 | | Load 0x0,0x3 030a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 030b e5fc | | Load 0x2,-0x4 030c e002 | | Load 0x0,0x2 030d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 030e 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 030f 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0310 c404 | | Store 0x2,0x4 0311 c406 | | Store 0x2,0x6 0312 e406 | | Load 0x2,0x6 ; Debug Table 0x12.0xc = 0x312,0x2 0313 6815 |h | Jump_Zero 0x329 0314 e002 | | Load 0x0,0x2 ; Debug Table 0x12.0xd = 0x314,0x3 0315 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0316 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0317 e002 | | Load 0x0,0x2 0318 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0319 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 031a e002 | | Load 0x0,0x2 031b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 031c 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 031d 0092 041e | | Action Push_String_Extended,0x41e ; "create: bad context" 031f e406 | | Load 0x2,0x6 0320 e002 | | Load 0x0,0x2 0321 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0322 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 0323 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0324 e002 | | Load 0x0,0x2 0325 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0326 1852 | R | Execute Package,Field_Execute,Field_Number 0x52 0327 a5f8 | | Store_Unchecked 0x2,-0x8 0328 4507 |E | Exit_Suprogram New_Top_Offset 0x7 ; Debug Table 0x12.0xe = 0x328,0x4 0329 e5fe | | Load 0x2,-0x2 ; Debug Table 0x12.0xf = 0x329,0x5 032a 4602 |F | Jump_Case 0x3 032b 7802 |x | Jump 0x32e ; case 0x0 032c 7812 |x | Jump 0x33f ; case 0x1 032d 7814 |x | Jump 0x342 ; case 0x2 032e e002 | | Load 0x0,0x2 ; Debug Table 0x12.0x10 = 0x32e,0x6 032f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0330 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0331 e002 | | Load 0x0,0x2 0332 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0333 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0334 e002 | | Load 0x0,0x2 0335 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0336 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 0337 0092 041f | | Action Push_String_Extended,0x41f ; "create: kind isn't directory or world" 0339 4807 |H | Short_Literal 0x7 033a e002 | | Load 0x0,0x2 033b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 033c 1852 | R | Execute Package,Field_Execute,Field_Number 0x52 033d a5f8 | | Store_Unchecked 0x2,-0x8 033e 4507 |E | Exit_Suprogram New_Top_Offset 0x7 ; Debug Table 0x12.0x11 = 0x33e,0x7 033f 4801 |H | Short_Literal 0x1 ; Debug Table 0x12.0x12 = 0x33f,0x8 0340 a402 | | Store_Unchecked 0x2,0x2 0341 7802 |x | Jump 0x344 0342 4800 |H | Short_Literal 0x0 ; Debug Table 0x12.0x13 = 0x342,0x9 0343 a402 | | Store_Unchecked 0x2,0x2 0344 e001 | | Load 0x0,0x1 ; Debug Table 0x12.0x14 = 0x344,0xa 0345 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0346 e405 | | Load 0x2,0x5 0347 0120 | | Execute Any,Is_Value 0348 6804 |h | Jump_Zero 0x34d 0349 e001 | | Load 0x0,0x1 034a 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 034b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 034c 7801 |x | Jump 0x34e 034d e405 | | Load 0x2,0x5 034e e404 | | Load 0x2,0x4 034f e001 | | Load 0x0,0x1 0350 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0351 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0352 c405 | | Store 0x2,0x5 0353 c406 | | Store 0x2,0x6 0354 e406 | | Load 0x2,0x6 ; Debug Table 0x12.0x15 = 0x354,0xb 0355 6815 |h | Jump_Zero 0x36b 0356 e002 | | Load 0x0,0x2 ; Debug Table 0x12.0x16 = 0x356,0xc 0357 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0358 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0359 e002 | | Load 0x0,0x2 035a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 035b 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 035c e002 | | Load 0x0,0x2 035d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 035e 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 035f 0092 0420 | | Action Push_String_Extended,0x420 ; "create: context couldn't be translated to unit" 0361 e406 | | Load 0x2,0x6 0362 e002 | | Load 0x0,0x2 0363 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0364 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 0365 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0366 e002 | | Load 0x0,0x2 0367 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0368 1852 | R | Execute Package,Field_Execute,Field_Number 0x52 0369 a5f8 | | Store_Unchecked 0x2,-0x8 036a 4507 |E | Exit_Suprogram New_Top_Offset 0x7 ; Debug Table 0x12.0x17 = 0x36a,0xd 036b e005 | | Load 0x0,0x5 ; Debug Table 0x12.0x18 = 0x36b,0xe 036c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 036d e003 | | Load 0x0,0x3 036e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 036f c409 | | Store 0x2,0x9 0370 e001 | | Load 0x0,0x1 ; Debug Table 0x12.0x19 = 0x370,0xf 0371 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0372 e403 | | Load 0x2,0x3 0373 0120 | | Execute Any,Is_Value 0374 6804 |h | Jump_Zero 0x379 0375 e001 | | Load 0x0,0x1 0376 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 0377 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0378 7801 |x | Jump 0x37a 0379 e403 | | Load 0x2,0x3 037a 6095 |` | Indirect_Literal Discrete,0x410,{0x00000000, 0x00004000} 037b e409 | | Load 0x2,0x9 037c e001 | | Load 0x0,0x1 037d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 037e 4802 |H | Short_Literal 0x2 037f e5fb | | Load 0x2,-0x5 0380 e5fb | | Load 0x2,-0x5 0381 e5fd | | Load 0x2,-0x3 0382 e5fa | | Load 0x2,-0x6 0383 e002 | | Load 0x0,0x2 0384 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0385 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 0386 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0387 e405 | | Load 0x2,0x5 0388 e402 | | Load 0x2,0x2 0389 e5ff | | Load 0x2,-0x1 038a e001 | | Load 0x0,0x1 038b 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 038c 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 038d c403 | | Store 0x2,0x3 038e c406 | | Store 0x2,0x6 038f e406 | | Load 0x2,0x6 ; Debug Table 0x12.0x1a = 0x38f,0x10 0390 681b |h | Jump_Zero 0x3ac 0391 e002 | | Load 0x0,0x2 ; Debug Table 0x12.0x1b = 0x391,0x11 0392 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0393 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0394 e002 | | Load 0x0,0x2 0395 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0396 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0397 e002 | | Load 0x0,0x2 0398 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0399 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 039a 0092 0421 | !| Action Push_String_Extended,0x421 ; "create: library couldn't be created" 039c e406 | | Load 0x2,0x6 039d e002 | | Load 0x0,0x2 039e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 039f 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 03a0 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 03a1 e002 | | Load 0x0,0x2 03a2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03a3 1852 | R | Execute Package,Field_Execute,Field_Number 0x52 03a4 a5f8 | | Store_Unchecked 0x2,-0x8 03a5 00db | | Load_Top At_Offset_3 ; Debug Table 0x12.0x1c = 0x3a5,0x12 03a6 4801 |H | Short_Literal 0x1 03a7 4800 |H | Short_Literal 0x0 03a8 e003 | | Load 0x0,0x3 03a9 1818 | | Execute Package,Field_Execute,Field_Number 0x18 03aa c409 | | Store 0x2,0x9 03ab 4507 |E | Exit_Suprogram New_Top_Offset 0x7 ; Debug Table 0x12.0x1d = 0x3ab,0x13 03ac e403 | | Load 0x2,0x3 ; Debug Table 0x12.0x1e = 0x3ac,0x14 03ad e001 | | Load 0x0,0x1 03ae 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 03af 1812 | | Execute Package,Field_Execute,Field_Number 0x12 03b0 c407 | | Store 0x2,0x7 03b1 e001 | | Load 0x0,0x1 ; Debug Table 0x12.0x1f = 0x3b1,0x15 03b2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03b3 00f1 | | Load_Encached Diana_Temp_Seq 03b4 e001 | | Load 0x0,0x1 03b5 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 03b6 1b17 | | Execute Package,Field_Read,Field_Number 0x17 03b7 00db | | Load_Top At_Offset_3 03b8 0120 | | Execute Any,Is_Value 03b9 6803 |h | Jump_Zero 0x3bd 03ba e004 | | Load 0x0,0x4 03bb 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03bc 7801 |x | Jump 0x3be 03bd 00db | | Load_Top At_Offset_3 03be e408 | | Load 0x2,0x8 03bf 6050 |`P | Indirect_Literal Discrete,0x410,{0x00000000, 0x00004000} 03c0 e409 | | Load 0x2,0x9 03c1 4800 |H | Short_Literal 0x0 03c2 e001 | | Load 0x0,0x1 03c3 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 03c4 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03c5 e001 | | Load 0x0,0x1 03c6 1815 | | Execute Package,Field_Execute,Field_Number 0x15 03c7 4ffc |O | Short_Literal -0x4 03c8 4ffd |O | Short_Literal -0x3 03c9 e407 | | Load 0x2,0x7 03ca e001 | | Load 0x0,0x1 03cb 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b 03cc 180d | | Execute Package,Field_Execute,Field_Number 0xd 03cd 00d1 | | Pop_Control Pop_Count_1 03ce c40c | | Store 0x2,0xc 03cf c40a | | Store 0x2,0xa 03d0 0033 | 3 | Store_Top Heap_Access,At_Offset_3 03d1 c406 | | Store 0x2,0x6 03d2 e406 | | Load 0x2,0x6 ; Debug Table 0x12.0x20 = 0x3d2,0x16 03d3 681b |h | Jump_Zero 0x3ef 03d4 e002 | | Load 0x0,0x2 ; Debug Table 0x12.0x21 = 0x3d4,0x17 03d5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03d6 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 03d7 e002 | | Load 0x0,0x2 03d8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03d9 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 03da e002 | | Load 0x0,0x2 03db 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03dc 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 03dd 0092 0422 | "| Action Push_String_Extended,0x422 ; "Create:Version couldn't be created for stub" 03df e406 | | Load 0x2,0x6 03e0 e002 | | Load 0x0,0x2 03e1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03e2 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 03e3 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 03e4 e002 | | Load 0x0,0x2 03e5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03e6 1852 | R | Execute Package,Field_Execute,Field_Number 0x52 03e7 a5f8 | | Store_Unchecked 0x2,-0x8 03e8 00db | | Load_Top At_Offset_3 ; Debug Table 0x12.0x22 = 0x3e8,0x18 03e9 4801 |H | Short_Literal 0x1 03ea 4800 |H | Short_Literal 0x0 03eb e003 | | Load 0x0,0x3 03ec 1818 | | Execute Package,Field_Execute,Field_Number 0x18 03ed c409 | | Store 0x2,0x9 03ee 4507 |E | Exit_Suprogram New_Top_Offset 0x7 ; Debug Table 0x12.0x23 = 0x3ee,0x19 03ef e002 | | Load 0x0,0x2 ; Debug Table 0x12.0x24 = 0x3ef,0x1a 03f0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03f1 1854 | T | Execute Package,Field_Execute,Field_Number 0x54 03f2 a5f8 | | Store_Unchecked 0x2,-0x8 03f3 e002 | | Load 0x0,0x2 ; Debug Table 0x12.0x25 = 0x3f3,0x1b 03f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03f5 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 03f6 180e | | Execute Package,Field_Execute,Field_Number 0xe 03f7 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x12.0x26 = 0x3f7,0x401 03f8 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x12.0x27 = 0x3f8,0x1b ; Debug Table 0x12.0x28 = 0x3f8,0x801 03f9 e001 | | Load 0x0,0x1 ; Debug Table 0x12.0x29 = 0x3f9,0x401 03fa 181e | | Execute Package,Field_Execute,Field_Number 0x1e 03fb e408 | | Load 0x2,0x8 03fc e001 | | Load 0x0,0x1 03fd 1810 | | Execute Package,Field_Execute,Field_Number 0x10 03fe e5ff | | Load 0x2,-0x1 03ff e002 | | Load 0x0,0x2 0400 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0401 1854 | T | Execute Package,Field_Execute,Field_Number 0x54 0402 e002 | | Load 0x0,0x2 0403 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0404 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 0405 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0406 a5f9 | | Store_Unchecked 0x2,-0x7 0407 00db | | Load_Top At_Offset_3 ; Debug Table 0x12.0x2a = 0x407,0x1c 0408 4801 |H | Short_Literal 0x1 0409 4801 |H | Short_Literal 0x1 040a e003 | | Load 0x0,0x3 040b 1818 | | Execute Package,Field_Execute,Field_Number 0x18 040c c409 | | Store 0x2,0x9 040d 4507 |E | Exit_Suprogram New_Top_Offset 0x7 040e 0000 0000 | | .XXX[0x2] 0410 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0414 ; -------------------------------------------------------------------------------------- 0414 ; STRING TABLE 0414 ; -------------------------------------------------------------------------------------- 0414 0020 | | .STRTAB 0x0020->0x0424 ; "NOT_A_LIBRARY" 0415 002b | + | .STRTAB 0x002b->0x042a ; "DIRECTORY" 0416 0032 | 2 | .STRTAB 0x0032->0x042f ; "WORLD" 0417 0035 | 5 | .STRTAB 0x0035->0x0431 ; "set_switch_object: bad library" 0418 0051 | Q | .STRTAB 0x0051->0x0440 ; "Set_Switch_Object: bad switch file" 0419 0071 | q | .STRTAB 0x0071->0x0451 ; "Set_Switch_Object" 041a 0080 | | .STRTAB 0x0080->0x045a ; "Switch_Object: bad library" 041b 0098 | | .STRTAB 0x0098->0x0467 ; "Switch_Object" 041c 00a3 | | .STRTAB 0x00a3->0x046d ; "[{<" 041d 00a4 | | .STRTAB 0x00a4->0x046f ; ">}]" 041e 00a5 | | .STRTAB 0x00a5->0x0470 ; "create: bad context" 041f 00b6 | | .STRTAB 0x00b6->0x047a ; "create: kind isn't directory or world" 0420 00d9 | | .STRTAB 0x00d9->0x048c ; "create: context couldn't be translated to unit" 0421 0105 | | .STRTAB 0x0105->0x04a3 ; "create: library couldn't be created" 0422 0126 | & | .STRTAB 0x0126->0x04b5 ; "Create:Version couldn't be created for stub" 0423 014f | O | .STREND 0x014f->0x04ca 0424 4e4f 545f |NOT_| .STRTAB_STRINGS 04cb 0000 0000 | | .BLANK 0000[0x5] 04d0 ; -------------------------------------------------------------------------------------- 04d0 ; Debug Table 04d0 ; -------------------------------------------------------------------------------------- 04d0 0003 0013 | | .CONST 0x0003,0x0013 04d2 000b 056a | j| .DEBUG 0x000b,0x056a,0x0000,0x0000,0x0055,0xe795,0x0000,0x0f41 04da 0035 0590 | 5 | .DEBUG 0x0035,0x0590,0x0000,0x0000,0x0057,0x7a35,0x0000,0x000a 04e2 005b 05b8 | [ | .DEBUG 0x005b,0x05b8,0x0005,0x0000,0x0055,0xe795,0x0000,0x0f42 04ea 0073 05ba | s | .DEBUG 0x0073,0x05ba,0x0002,0x0000,0x0055,0xe795,0x0000,0x0f49 04f2 00ab 05d4 | | .DEBUG 0x00ab,0x05d4,0x0002,0x0000,0x0055,0xe795,0x0000,0x0f56 04fa 00c3 05dc | | .DEBUG 0x00c3,0x05dc,0x0002,0x0000,0x0055,0xe795,0x0000,0x0f63 0502 00d3 05e4 | | .DEBUG 0x00d3,0x05e4,0x0002,0x0000,0x0055,0xe795,0x0000,0x0f6e 050a 00e3 05ec | | .DEBUG 0x00e3,0x05ec,0x0002,0x0000,0x0055,0xe795,0x0000,0x0f79 0512 00f3 05f4 | | .DEBUG 0x00f3,0x05f4,0x0002,0x0000,0x0055,0xe795,0x0000,0x0f84 051a 0103 05fc | | .DEBUG 0x0103,0x05fc,0x0002,0x0000,0x0055,0xe795,0x0000,0x0f8f 0522 0113 0604 | | .DEBUG 0x0113,0x0604,0x0002,0x0000,0x0055,0xe795,0x0000,0x0f9a 052a 0123 060c | # | .DEBUG 0x0123,0x060c,0x0001,0x0000,0x0055,0xe795,0x0000,0x0fa5 0532 01ab 0628 | (| .DEBUG 0x01ab,0x0628,0x0001,0x0000,0x0055,0xe795,0x0000,0x0fbb 053a 01eb 0640 | @| .DEBUG 0x01eb,0x0640,0x0002,0x0000,0x0055,0xe795,0x0000,0x0fd1 0542 0273 0662 | s b| .DEBUG 0x0273,0x0662,0x0002,0x0000,0x0055,0xe795,0x0000,0x0fde 054a 02a3 0672 | r| .DEBUG 0x02a3,0x0672,0x0002,0x0000,0x0055,0xe795,0x0000,0x0ff2 0552 02ab 0676 | v| .DEBUG 0x02ab,0x0676,0x0002,0x0000,0x0055,0xe795,0x0000,0x0ff9 055a 02b3 067a | z| .DEBUG 0x02b3,0x067a,0x0002,0x0000,0x0055,0xe795,0x0000,0x1004 0562 02db 0688 | | .DEBUG 0x02db,0x0688,0x0001,0x0000,0x0055,0xe795,0x0000,0x1011 056a ; -------------------------------------------------------------------------------------- 056a ; Debug3 Subtable 0x0 056a ; -------------------------------------------------------------------------------------- 056a 0012 0000 | | .DBG3TAB 0x0012,0x0000 056c 000b ffff | | .CONST 0x000b,0xffff 056e 0010 fffe | | .CONST 0x0010,0xfffe 0570 0012 fffd | | .CONST 0x0012,0xfffd 0572 0014 fffc | | .CONST 0x0014,0xfffc 0574 0016 fffb | | .CONST 0x0016,0xfffb 0576 0018 fffa | | .CONST 0x0018,0xfffa 0578 001a fff9 | | .CONST 0x001a,0xfff9 057a 001c fff8 | | .CONST 0x001c,0xfff8 057c 001e fff7 | | .CONST 0x001e,0xfff7 057e 0020 fff6 | | .CONST 0x0020,0xfff6 0580 0022 fff5 | " | .CONST 0x0022,0xfff5 0582 0024 fff4 | $ | .CONST 0x0024,0xfff4 0584 0026 fff3 | & | .CONST 0x0026,0xfff3 0586 0028 fff2 | ( | .CONST 0x0028,0xfff2 0588 002c fff1 | , | .CONST 0x002c,0xfff1 058a 002e fff0 | . | .CONST 0x002e,0xfff0 058c 0030 ffef | 0 | .CONST 0x0030,0xffef 058e 0032 ffee | 2 | .CONST 0x0032,0xffee 0590 ; -------------------------------------------------------------------------------------- 0590 ; Debug3 Subtable 0x1 0590 ; -------------------------------------------------------------------------------------- 0590 0013 0000 | | .DBG3TAB 0x0013,0x0000 0592 0035 ffff | 5 | .CONST 0x0035,0xffff 0594 0035 fffe | 5 | .CONST 0x0035,0xfffe 0596 0035 fffd | 5 | .CONST 0x0035,0xfffd 0598 0035 fffc | 5 | .CONST 0x0035,0xfffc 059a 0037 fffb | 7 | .CONST 0x0037,0xfffb 059c 0039 fffa | 9 | .CONST 0x0039,0xfffa 059e 003b fff9 | ; | .CONST 0x003b,0xfff9 05a0 003d fff8 | = | .CONST 0x003d,0xfff8 05a2 003f fff7 | ? | .CONST 0x003f,0xfff7 05a4 0041 fff6 | A | .CONST 0x0041,0xfff6 05a6 0043 fff5 | C | .CONST 0x0043,0xfff5 05a8 0045 fff4 | E | .CONST 0x0045,0xfff4 05aa 0047 fff3 | G | .CONST 0x0047,0xfff3 05ac 0049 fff2 | I | .CONST 0x0049,0xfff2 05ae 004b fff1 | K | .CONST 0x004b,0xfff1 05b0 004d fff0 | M | .CONST 0x004d,0xfff0 05b2 004f ffef | O | .CONST 0x004f,0xffef 05b4 0051 ffee | Q | .CONST 0x0051,0xffee 05b6 0053 ffed | S | .CONST 0x0053,0xffed 05b8 ; -------------------------------------------------------------------------------------- 05b8 ; Debug3 Subtable 0x2 05b8 ; -------------------------------------------------------------------------------------- 05b8 0000 0000 | | .DBG3TAB 0x0000,0x0000 05ba ; -------------------------------------------------------------------------------------- 05ba ; Debug3 Subtable 0x3 05ba ; -------------------------------------------------------------------------------------- 05ba 0002 000a | | .DBG3TAB 0x0002,0x000a 05bc 0073 ffff | s | .CONST 0x0073,0xffff 05be 0078 fffe | x | .CONST 0x0078,0xfffe 05c0 007a 0001 | z | .CONST 0x007a,0x0001 05c2 007f 0002 | | .CONST 0x007f,0x0002 05c4 0081 0003 | | .CONST 0x0081,0x0003 05c6 0091 0004 | | .CONST 0x0091,0x0004 05c8 0093 0005 | | .CONST 0x0093,0x0005 05ca 0095 0006 | | .CONST 0x0095,0x0006 05cc 009a 0007 | | .CONST 0x009a,0x0007 05ce 009c 0008 | | .CONST 0x009c,0x0008 05d0 00a1 0009 | | .CONST 0x00a1,0x0009 05d2 00a3 000a | | .CONST 0x00a3,0x000a 05d4 ; -------------------------------------------------------------------------------------- 05d4 ; Debug3 Subtable 0x4 05d4 ; -------------------------------------------------------------------------------------- 05d4 0001 0002 | | .DBG3TAB 0x0001,0x0002 05d6 00ab ffff | | .CONST 0x00ab,0xffff 05d8 00ae 0001 | | .CONST 0x00ae,0x0001 05da 00b7 0002 | | .CONST 0x00b7,0x0002 05dc ; -------------------------------------------------------------------------------------- 05dc ; Debug3 Subtable 0x5 05dc ; -------------------------------------------------------------------------------------- 05dc 0000 0003 | | .DBG3TAB 0x0000,0x0003 05de 00c3 0001 | | .CONST 0x00c3,0x0001 05e0 00c6 0002 | | .CONST 0x00c6,0x0002 05e2 00c8 0003 | | .CONST 0x00c8,0x0003 05e4 ; -------------------------------------------------------------------------------------- 05e4 ; Debug3 Subtable 0x6 05e4 ; -------------------------------------------------------------------------------------- 05e4 0000 0003 | | .DBG3TAB 0x0000,0x0003 05e6 00d3 0001 | | .CONST 0x00d3,0x0001 05e8 00d6 0002 | | .CONST 0x00d6,0x0002 05ea 00d8 0003 | | .CONST 0x00d8,0x0003 05ec ; -------------------------------------------------------------------------------------- 05ec ; Debug3 Subtable 0x7 05ec ; -------------------------------------------------------------------------------------- 05ec 0000 0003 | | .DBG3TAB 0x0000,0x0003 05ee 00e3 0001 | | .CONST 0x00e3,0x0001 05f0 00e7 0002 | | .CONST 0x00e7,0x0002 05f2 00e9 0003 | | .CONST 0x00e9,0x0003 05f4 ; -------------------------------------------------------------------------------------- 05f4 ; Debug3 Subtable 0x8 05f4 ; -------------------------------------------------------------------------------------- 05f4 0000 0003 | | .DBG3TAB 0x0000,0x0003 05f6 00f3 0001 | | .CONST 0x00f3,0x0001 05f8 00f7 0002 | | .CONST 0x00f7,0x0002 05fa 00f9 0003 | | .CONST 0x00f9,0x0003 05fc ; -------------------------------------------------------------------------------------- 05fc ; Debug3 Subtable 0x9 05fc ; -------------------------------------------------------------------------------------- 05fc 0000 0003 | | .DBG3TAB 0x0000,0x0003 05fe 0103 0001 | | .CONST 0x0103,0x0001 0600 0107 0002 | | .CONST 0x0107,0x0002 0602 0109 0003 | | .CONST 0x0109,0x0003 0604 ; -------------------------------------------------------------------------------------- 0604 ; Debug3 Subtable 0xa 0604 ; -------------------------------------------------------------------------------------- 0604 0000 0003 | | .DBG3TAB 0x0000,0x0003 0606 0113 0001 | | .CONST 0x0113,0x0001 0608 0117 0002 | | .CONST 0x0117,0x0002 060a 0119 0003 | | .CONST 0x0119,0x0003 060c ; -------------------------------------------------------------------------------------- 060c ; Debug3 Subtable 0xb 060c ; -------------------------------------------------------------------------------------- 060c 0003 000a | | .DBG3TAB 0x0003,0x000a 060e 0123 ffff | # | .CONST 0x0123,0xffff 0610 0128 fffe | ( | .CONST 0x0128,0xfffe 0612 012d fffd | - | .CONST 0x012d,0xfffd 0614 012f 0001 | / | .CONST 0x012f,0x0001 0616 013f 0002 | ? | .CONST 0x013f,0x0002 0618 0141 0003 | A | .CONST 0x0141,0x0003 061a 0155 0004 | U | .CONST 0x0155,0x0004 061c 0156 0005 | V | .CONST 0x0156,0x0005 061e 0166 0006 | f | .CONST 0x0166,0x0006 0620 0168 0007 | h | .CONST 0x0168,0x0007 0622 017c 0008 | | | .CONST 0x017c,0x0008 0624 017d 0009 | } | .CONST 0x017d,0x0009 0626 018e 000a | | .CONST 0x018e,0x000a 0628 ; -------------------------------------------------------------------------------------- 0628 ; Debug3 Subtable 0xc 0628 ; -------------------------------------------------------------------------------------- 0628 0002 0009 | | .DBG3TAB 0x0002,0x0009 062a 01ab ffff | | .CONST 0x01ab,0xffff 062c 01ae fffe | | .CONST 0x01ae,0xfffe 062e 01b1 0001 | | .CONST 0x01b1,0x0001 0630 01ba 0002 | | .CONST 0x01ba,0x0002 0632 01bf 0003 | | .CONST 0x01bf,0x0003 0634 01c4 0004 | | .CONST 0x01c4,0x0004 0636 01c5 0005 | | .CONST 0x01c5,0x0005 0638 01ce 0006 | | .CONST 0x01ce,0x0006 063a 01d3 0007 | | .CONST 0x01d3,0x0007 063c 01d8 0008 | | .CONST 0x01d8,0x0008 063e 01d9 0009 | | .CONST 0x01d9,0x0009 0640 ; -------------------------------------------------------------------------------------- 0640 ; Debug3 Subtable 0xd 0640 ; -------------------------------------------------------------------------------------- 0640 0003 000d | | .DBG3TAB 0x0003,0x000d 0642 01eb ffff | | .CONST 0x01eb,0xffff 0644 01f0 fffe | | .CONST 0x01f0,0xfffe 0646 01f5 fffd | | .CONST 0x01f5,0xfffd 0648 01f7 0001 | | .CONST 0x01f7,0x0001 064a 0207 0002 | | .CONST 0x0207,0x0002 064c 0209 0003 | | .CONST 0x0209,0x0003 064e 020d 0401 | | .CONST 0x020d,0x0401 0650 020e 0003 | | .CONST 0x020e,0x0003 0652 020e 0801 | | .CONST 0x020e,0x0801 0654 020f 0401 | | .CONST 0x020f,0x0401 0656 022e 0004 | . | .CONST 0x022e,0x0004 0658 0246 0005 | F | .CONST 0x0246,0x0005 065a 024a 0c01 | J | .CONST 0x024a,0x0c01 065c 024b 0005 | K | .CONST 0x024b,0x0005 065e 024b 1001 | K | .CONST 0x024b,0x1001 0660 024c 0c01 | L | .CONST 0x024c,0x0c01 0662 ; -------------------------------------------------------------------------------------- 0662 ; Debug3 Subtable 0xe 0662 ; -------------------------------------------------------------------------------------- 0662 0002 0005 | | .DBG3TAB 0x0002,0x0005 0664 0273 ffff | s | .CONST 0x0273,0xffff 0666 0276 fffe | v | .CONST 0x0276,0xfffe 0668 0279 0001 | y | .CONST 0x0279,0x0001 066a 0282 0002 | | .CONST 0x0282,0x0002 066c 0285 0003 | | .CONST 0x0285,0x0003 066e 028a 0004 | | .CONST 0x028a,0x0004 0670 0298 0005 | | .CONST 0x0298,0x0005 0672 ; -------------------------------------------------------------------------------------- 0672 ; Debug3 Subtable 0xf 0672 ; -------------------------------------------------------------------------------------- 0672 0000 0001 | | .DBG3TAB 0x0000,0x0001 0674 02a3 0001 | | .CONST 0x02a3,0x0001 0676 ; -------------------------------------------------------------------------------------- 0676 ; Debug3 Subtable 0x10 0676 ; -------------------------------------------------------------------------------------- 0676 0000 0001 | | .DBG3TAB 0x0000,0x0001 0678 02ab 0001 | | .CONST 0x02ab,0x0001 067a ; -------------------------------------------------------------------------------------- 067a ; Debug3 Subtable 0x11 067a ; -------------------------------------------------------------------------------------- 067a 0002 0004 | | .DBG3TAB 0x0002,0x0004 067c 02b3 ffff | | .CONST 0x02b3,0xffff 067e 02b8 fffe | | .CONST 0x02b8,0xfffe 0680 02ba 0001 | | .CONST 0x02ba,0x0001 0682 02ca 0002 | | .CONST 0x02ca,0x0002 0684 02cc 0003 | | .CONST 0x02cc,0x0003 0686 02ce 0004 | | .CONST 0x02ce,0x0004 0688 ; -------------------------------------------------------------------------------------- 0688 ; Debug3 Subtable 0x12 0688 ; -------------------------------------------------------------------------------------- 0688 000b 0020 | | .DBG3TAB 0x000b,0x0020 068a 02db ffff | | .CONST 0x02db,0xffff 068c 02de fffe | | .CONST 0x02de,0xfffe 068e 02e4 fffd | | .CONST 0x02e4,0xfffd 0690 02e5 fffc | | .CONST 0x02e5,0xfffc 0692 02eb fffb | | .CONST 0x02eb,0xfffb 0694 02ed fffa | | .CONST 0x02ed,0xfffa 0696 02f2 fff9 | | .CONST 0x02f2,0xfff9 0698 02f7 fff8 | | .CONST 0x02f7,0xfff8 069a 02fc fff7 | | .CONST 0x02fc,0xfff7 069c 02ff fff6 | | .CONST 0x02ff,0xfff6 069e 0300 fff5 | | .CONST 0x0300,0xfff5 06a0 0305 0001 | | .CONST 0x0305,0x0001 06a2 0312 0002 | | .CONST 0x0312,0x0002 06a4 0314 0003 | | .CONST 0x0314,0x0003 06a6 0328 0004 | ( | .CONST 0x0328,0x0004 06a8 0329 0005 | ) | .CONST 0x0329,0x0005 06aa 032e 0006 | . | .CONST 0x032e,0x0006 06ac 033e 0007 | > | .CONST 0x033e,0x0007 06ae 033f 0008 | ? | .CONST 0x033f,0x0008 06b0 0342 0009 | B | .CONST 0x0342,0x0009 06b2 0344 000a | D | .CONST 0x0344,0x000a 06b4 0354 000b | T | .CONST 0x0354,0x000b 06b6 0356 000c | V | .CONST 0x0356,0x000c 06b8 036a 000d | j | .CONST 0x036a,0x000d 06ba 036b 000e | k | .CONST 0x036b,0x000e 06bc 0370 000f | p | .CONST 0x0370,0x000f 06be 038f 0010 | | .CONST 0x038f,0x0010 06c0 0391 0011 | | .CONST 0x0391,0x0011 06c2 03a5 0012 | | .CONST 0x03a5,0x0012 06c4 03ab 0013 | | .CONST 0x03ab,0x0013 06c6 03ac 0014 | | .CONST 0x03ac,0x0014 06c8 03b1 0015 | | .CONST 0x03b1,0x0015 06ca 03d2 0016 | | .CONST 0x03d2,0x0016 06cc 03d4 0017 | | .CONST 0x03d4,0x0017 06ce 03e8 0018 | | .CONST 0x03e8,0x0018 06d0 03ee 0019 | | .CONST 0x03ee,0x0019 06d2 03ef 001a | | .CONST 0x03ef,0x001a 06d4 03f3 001b | | .CONST 0x03f3,0x001b 06d6 03f7 0401 | | .CONST 0x03f7,0x0401 06d8 03f8 001b | | .CONST 0x03f8,0x001b 06da 03f8 0801 | | .CONST 0x03f8,0x0801 06dc 03f9 0401 | | .CONST 0x03f9,0x0401 06de 0407 001c | | .CONST 0x0407,0x001c 06e0 0000 0000 | | .BLANK 0000[0x120]