|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800)
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 0150 | P | .CONST 0x0150 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0018 | | .CONST 0x0018 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000f | | .CONST 0x000f ; Number of locals 000b INIT_0008: 000b 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x017a,0x8000,0x0000,0x0057,0x3c05,0x0000,0x0005 ; Debug Table 0x0.0x0 = 0xb,0xffff 000d 00bf | | Action Accept_Activation 000e 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x000e,0x017e,0x8000,0x0000,0x0058,0xc4d5,0x0000,0x001d ; Debug Table 0x1.0x0 = 0xe,0xffff 000f 0007 | | Action Break_Optional ; Debug Table 0x1.0x1 = 0xf,0xfffe 0010 0007 | | Action Break_Optional ; Debug Table 0x1.0x2 = 0x10,0xfffd 0011 0007 | | Action Break_Optional ; Debug Table 0x1.0x3 = 0x11,0xfffc 0012 029d 008b | | Declare_Subprogram INIT_0088,For_Outer_Call ; Debug Table 0x1.0x4 = 0x12,0xfffb 0014 029d 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call ; Debug Table 0x1.0x5 = 0x14,0xfffa 0016 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0x6 = 0x16,0xfff9 0017 00c7 | | Action Elaborate_Subprogram 0018 BODY_0008: 0018 00bc | | Action Signal_Activated 0019 00bb | | Action Signal_Completion 001a 0000 0000 | | .BLANK 0000[0x6] 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 0039 | 9 | .CONST 0x0039 ; Address of begin 0021 0004 | | .CONST 0x0004 ; Address of exception handler 0022 0006 | | .CONST 0x0006 ; Number of locals 0023 INIT_0020: 0023 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x2 = .DEBUG 0x0023,0x018e,0x0001,0x0000,0x0057,0x3c05,0x0000,0x0006 ; Debug Table 0x2.0x0 = 0x23,0xffff 0024 00db | | Load_Top At_Offset_3 0025 00eb | | Load_Encached Diana_Cache 0026 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 0027 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0028 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x2.0x1 = 0x28,0xfffe 0029 e5ff | | Load 0x2,-0x1 002a 00eb | | Load_Encached Diana_Cache 002b 18c5 | | Execute Package,Field_Execute,Field_Number 0xc5 002c 0031 | 1 | Store_Top Heap_Access,At_Offset_1 002d 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2.0x2 = 0x2d,0xfffd 002e e001 | | Load 0x0,0x1 002f 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0030 00e1 | | Load_Encached Boolean_Cache 0031 03f1 | | Declare_Variable Discrete,With_Value 0032 e5ff | | Load 0x2,-0x1 ; Debug Table 0x2.0x3 = 0x32,0xfffc 0033 820e | | Call 0x1,0xe 0034 00e1 | | Load_Encached Boolean_Cache 0035 03f1 | | Declare_Variable Discrete,With_Value 0036 00f1 | | Load_Encached Diana_Temp_Seq ; Debug Table 0x2.0x4 = 0x36,0xfffb 0037 00f1 | | Load_Encached Diana_Temp_Seq ; Debug Table 0x2.0x5 = 0x37,0x401 0038 0031 | 1 | Store_Top Heap_Access,At_Offset_1 ; Debug Table 0x2.0x6 = 0x38,0xfffb 0039 BODY_0020: 0039 00da | | Load_Top At_Offset_2 ; Debug Table 0x2.0x7 = 0x39,0x1 003a 0f00 | | Execute_Immediate Equal,0x0 003b 00da | | Load_Top At_Offset_2 003c 0f00 | | Execute_Immediate Equal,0x0 003d 0279 | y | Execute Discrete,And 003e 6809 |h | Jump_Zero 0x48 003f 4800 |H | Short_Literal 0x0 ; Debug Table 0x2.0x8 = 0x3f,0x2 0040 e403 | | Load 0x2,0x3 0041 e002 | | Load 0x0,0x2 0042 180d | | Execute Package,Field_Execute,Field_Number 0xd 0043 00db | | Load_Top At_Offset_3 ; Debug Table 0x2.0x9 = 0x43,0x3 0044 e402 | | Load 0x2,0x2 0045 e001 | | Load 0x0,0x1 0046 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0047 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0048 e001 | | Load 0x0,0x1 ; Debug Table 0x2.0xa = 0x48,0x4 0049 1b0d | | Execute Package,Field_Read,Field_Number 0xd 004a e402 | | Load 0x2,0x2 004b e001 | | Load 0x0,0x1 004c 1815 | | Execute Package,Field_Execute,Field_Number 0x15 004d 0031 | 1 | Store_Top Heap_Access,At_Offset_1 004e e402 | | Load 0x2,0x2 ; Debug Table 0x2.0xb = 0x4e,0x5 004f e001 | | Load 0x0,0x1 0050 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0051 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2.0xc = 0x51,0x6 0052 6817 |h | Jump_Zero 0x6a 0053 e402 | | Load 0x2,0x2 ; Debug Table 0x2.0xd = 0x53,0x7 0054 e001 | | Load 0x0,0x1 0055 180f | | Execute Package,Field_Execute,Field_Number 0xf 0056 e5ff | | Load 0x2,-0x1 ; Debug Table 0x2.0xe = 0x56,0x8 0057 820f | | Call 0x1,0xf 0058 e402 | | Load 0x2,0x2 ; Debug Table 0x2.0xf = 0x58,0x9 0059 00eb | | Load_Encached Diana_Cache 005a 18fc | | Execute Package,Field_Execute,Field_Number 0xfc 005b 4801 |H | Short_Literal 0x1 005c e003 | | Load 0x0,0x3 005d 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 005e e403 | | Load 0x2,0x3 005f 00eb | | Load_Encached Diana_Cache 0060 18fc | | Execute Package,Field_Execute,Field_Number 0xfc 0061 e004 | | Load 0x0,0x4 0062 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0063 e403 | | Load 0x2,0x3 0064 e005 | | Load 0x0,0x5 0065 180e | | Execute Package,Field_Execute,Field_Number 0xe 0066 4801 |H | Short_Literal 0x1 ; Debug Table 0x2.0x10 = 0x66,0xa 0067 e006 | | Load 0x0,0x6 0068 1854 | T | Execute Package,Field_Execute,Field_Number 0x54 0069 7804 |x | Jump 0x6e 006a 4800 |H | Short_Literal 0x0 ; Debug Table 0x2.0x11 = 0x6a,0xb 006b e403 | | Load 0x2,0x3 006c e002 | | Load 0x0,0x2 006d 180d | | Execute Package,Field_Execute,Field_Number 0xd 006e 0007 | | Action Break_Optional ; Debug Table 0x2.0x12 = 0x6e,0xc 006f 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x2.0x13 = 0x6f,0x801 0070 e402 | | Load 0x2,0x2 ; Debug Table 0x2.0x14 = 0x70,0xc 0071 e001 | | Load 0x0,0x1 0072 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0073 e402 | | Load 0x2,0x2 ; Debug Table 0x2.0x15 = 0x73,0xd 0074 e001 | | Load 0x0,0x1 0075 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0076 e402 | | Load 0x2,0x2 ; Debug Table 0x2.0x16 = 0x76,0xe 0077 e007 | | Load 0x0,0x7 0078 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0079 6806 |h | Jump_Zero 0x80 007a e006 | | Load 0x0,0x6 ; Debug Table 0x2.0x17 = 0x7a,0xf 007b 1853 | S | Execute Package,Field_Execute,Field_Number 0x53 007c 0092 0145 | E| Action Push_String_Extended,0x145 ; "name prefix" ; Debug Table 0x2.0x18 = 0x7c,0x10 007e e006 | | Load 0x0,0x6 007f 1874 | t | Execute Package,Field_Execute,Field_Number 0x74 0080 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x19 = 0x80,0x11 0081 e001 | | Load 0x0,0x1 0082 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0083 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0084 0000 0000 | | .BLANK 0000[0x4] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 0092 | | .CONST 0x0092 ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0004 | | .CONST 0x0004 ; Number of locals 008b INIT_0088: 008b 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x3 = .DEBUG 0x008b,0x01c4,0x0002,0x0000,0x0058,0xc4d5,0x0000,0x002e ; Debug Table 0x3.0x0 = 0x8b,0xffff 008c 00db | | Load_Top At_Offset_3 008d 00eb | | Load_Encached Diana_Cache 008e 18c5 | | Execute Package,Field_Execute,Field_Number 0xc5 008f 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0090 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x3.0x1 = 0x90,0xfffe 0091 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x3.0x2 = 0x91,0xfffd 0092 BODY_0088: 0092 0007 | | Action Break_Optional ; Debug Table 0x3.0x3 = 0x92,0x1 0093 e402 | | Load 0x2,0x2 ; Debug Table 0x3.0x4 = 0x93,0x401 0094 0007 | | Action Break_Optional 0095 0145 | E | Execute Heap_Access,Diana_Tree_Kind ; Debug Table 0x3.0x5 = 0x95,0x402 0096 0007 | | Action Break_Optional ; Debug Table 0x3.0x6 = 0x96,0x403 0097 0007 | | Action Break_Optional ; Debug Table 0x3.0x7 = 0x97,0x404 0098 0b01 | | Execute_Immediate Case_Compare,0x1 ; Debug Table 0x3.0x8 = 0x98,0x1 0099 7004 |p | Jump_Nonzero 0x9e 009a 0b0b | | Execute_Immediate Case_Compare,0xb 009b 7099 |p | Jump_Nonzero 0x135 009c 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x9 = 0x9c,0xc 009d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 009e 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0xa = 0x9e,0x2 009f 00eb | | Load_Encached Diana_Cache 00a0 18fc | | Execute Package,Field_Execute,Field_Number 0xfc 00a1 e004 | | Load 0x0,0x4 00a2 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 00a3 0033 | 3 | Store_Top Heap_Access,At_Offset_3 00a4 0007 | | Action Break_Optional ; Debug Table 0x3.0xb = 0xa4,0x3 00a5 e403 | | Load 0x2,0x3 ; Debug Table 0x3.0xc = 0xa5,0x801 00a6 0007 | | Action Break_Optional 00a7 0145 | E | Execute Heap_Access,Diana_Tree_Kind ; Debug Table 0x3.0xd = 0xa7,0x802 00a8 0007 | | Action Break_Optional ; Debug Table 0x3.0xe = 0xa8,0x803 00a9 0007 | | Action Break_Optional ; Debug Table 0x3.0xf = 0xa9,0x804 00aa 0f6c | l | Execute_Immediate Equal,0x6c ; Debug Table 0x3.0x10 = 0xaa,0x3 00ab 7002 |p | Jump_Nonzero 0xae 00ac 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x11 = 0xac,0x4 00ad 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ae 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x12 = 0xae,0x5 00af e008 | | Load 0x0,0x8 00b0 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00b1 0c02 | | Execute_Immediate Greater_Equal,0x2 00b2 6802 |h | Jump_Zero 0xb5 00b3 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0x13 = 0xb3,0x6 00b4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00b5 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x14 = 0xb5,0x7 00b6 00eb | | Load_Encached Diana_Cache 00b7 1888 | | Execute Package,Field_Execute,Field_Number 0x88 00b8 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x15 = 0xb8,0xc01 00b9 7002 |p | Jump_Nonzero 0xbc 00ba 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x3.0x16 = 0xba,0xc02 00bb 782c |x, | Jump 0xe8 00bc 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x17 = 0xbc,0xc03 00bd 0217 | | Execute Heap_Access,All_Reference 00be 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00bf 6804 |h | Jump_Zero 0xc4 00c0 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x18 = 0xc0,0xc04 00c1 0217 | | Execute Heap_Access,All_Reference 00c2 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00c3 7824 |x$ | Jump 0xe8 00c4 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x19 = 0xc4,0xc05 00c5 0007 | | Action Break_Optional 00c6 e407 | | Load 0x2,0x7 ; Debug Table 0x3.0x1a = 0xc6,0x1001 00c7 0007 | | Action Break_Optional 00c8 0148 | H | Execute Heap_Access,Get_Offset ; Debug Table 0x3.0x1b = 0xc8,0x1002 00c9 0007 | | Action Break_Optional ; Debug Table 0x3.0x1c = 0xc9,0x1003 00ca 00d0 | | Action Swap_Control ; Debug Table 0x3.0x1d = 0xca,0x1004 00cb 00d1 | | Pop_Control Pop_Count_1 00cc 49bb |I | Short_Literal 0x1bb ; Debug Table 0x3.0x1e = 0xcc,0xc05 00cd 00eb | | Load_Encached Diana_Cache 00ce 0098 | | Execute Package,Field_Read_Dynamic 00cf 012c | , | Execute Any,Size 00d0 e009 | | Load 0x0,0x9 00d1 1b17 | | Execute Package,Field_Read,Field_Number 0x17 00d2 025b | [ | Execute Discrete,Check_In_Type 00d3 0273 | s | Execute Discrete,Plus 00d4 00d9 | | Load_Top At_Offset_1 00d5 0007 | | Action Break_Optional 00d6 e408 | | Load 0x2,0x8 ; Debug Table 0x3.0x1f = 0xd6,0x1401 00d7 0007 | | Action Break_Optional 00d8 0210 | | Execute Heap_Access,Get_Segment ; Debug Table 0x3.0x20 = 0xd8,0x1402 00d9 0007 | | Action Break_Optional ; Debug Table 0x3.0x21 = 0xd9,0x1403 00da 00d0 | | Action Swap_Control ; Debug Table 0x3.0x22 = 0xda,0x1404 00db 00d1 | | Pop_Control Pop_Count_1 00dc 49c8 |I | Short_Literal 0x1c8 ; Debug Table 0x3.0x23 = 0xdc,0x1004 00dd 00eb | | Load_Encached Diana_Cache 00de 0098 | | Execute Package,Field_Read_Dynamic 00df 49c9 |I | Short_Literal 0x1c9 00e0 00eb | | Load_Encached Diana_Cache 00e1 0098 | | Execute Package,Field_Read_Dynamic 00e2 49ca |I | Short_Literal 0x1ca 00e3 00eb | | Load_Encached Diana_Cache 00e4 0095 | | Execute Package,Field_Reference_Dynamic 00e5 e00a | | Load 0x0,0xa 00e6 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00e7 7800 |x | Jump 0xe8 00e8 00d0 | | Action Swap_Control 00e9 00d1 | | Pop_Control Pop_Count_1 00ea 0032 | 2 | Store_Top Heap_Access,At_Offset_2 ; Debug Table 0x3.0x24 = 0xea,0x7 00eb 0007 | | Action Break_Optional ; Debug Table 0x3.0x25 = 0xeb,0x8 00ec e404 | | Load 0x2,0x4 ; Debug Table 0x3.0x26 = 0xec,0x1801 00ed 0007 | | Action Break_Optional 00ee 0145 | E | Execute Heap_Access,Diana_Tree_Kind ; Debug Table 0x3.0x27 = 0xee,0x1802 00ef 0007 | | Action Break_Optional ; Debug Table 0x3.0x28 = 0xef,0x1803 00f0 0007 | | Action Break_Optional ; Debug Table 0x3.0x29 = 0xf0,0x1804 00f1 0fa7 | | Execute_Immediate Equal,-0x59 ; Debug Table 0x3.0x2a = 0xf1,0x8 00f2 6840 |h@ | Jump_Zero 0x133 00f3 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x2b = 0xf3,0x9 00f4 00eb | | Load_Encached Diana_Cache 00f5 18b7 | | Execute Package,Field_Execute,Field_Number 0xb7 00f6 00eb | | Load_Encached Diana_Cache 00f7 1888 | | Execute Package,Field_Execute,Field_Number 0x88 00f8 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x2c = 0xf8,0x1c01 00f9 7002 |p | Jump_Nonzero 0xfc 00fa 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x3.0x2d = 0xfa,0x1c02 00fb 782c |x, | Jump 0x128 00fc 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x2e = 0xfc,0x1c03 00fd 0217 | | Execute Heap_Access,All_Reference 00fe 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00ff 6804 |h | Jump_Zero 0x104 0100 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x2f = 0x100,0x1c04 0101 0217 | | Execute Heap_Access,All_Reference 0102 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0103 7824 |x$ | Jump 0x128 0104 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x30 = 0x104,0x1c05 0105 0007 | | Action Break_Optional 0106 e407 | | Load 0x2,0x7 ; Debug Table 0x3.0x31 = 0x106,0x2001 0107 0007 | | Action Break_Optional 0108 0148 | H | Execute Heap_Access,Get_Offset ; Debug Table 0x3.0x32 = 0x108,0x2002 0109 0007 | | Action Break_Optional ; Debug Table 0x3.0x33 = 0x109,0x2003 010a 00d0 | | Action Swap_Control ; Debug Table 0x3.0x34 = 0x10a,0x2004 010b 00d1 | | Pop_Control Pop_Count_1 010c 49bb |I | Short_Literal 0x1bb ; Debug Table 0x3.0x35 = 0x10c,0x1c05 010d 00eb | | Load_Encached Diana_Cache 010e 0098 | | Execute Package,Field_Read_Dynamic 010f 012c | , | Execute Any,Size 0110 e009 | | Load 0x0,0x9 0111 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0112 025b | [ | Execute Discrete,Check_In_Type 0113 0273 | s | Execute Discrete,Plus 0114 00d9 | | Load_Top At_Offset_1 0115 0007 | | Action Break_Optional 0116 e408 | | Load 0x2,0x8 ; Debug Table 0x3.0x36 = 0x116,0x2401 0117 0007 | | Action Break_Optional 0118 0210 | | Execute Heap_Access,Get_Segment ; Debug Table 0x3.0x37 = 0x118,0x2402 0119 0007 | | Action Break_Optional ; Debug Table 0x3.0x38 = 0x119,0x2403 011a 00d0 | | Action Swap_Control ; Debug Table 0x3.0x39 = 0x11a,0x2404 011b 00d1 | | Pop_Control Pop_Count_1 011c 49c8 |I | Short_Literal 0x1c8 ; Debug Table 0x3.0x3a = 0x11c,0x2004 011d 00eb | | Load_Encached Diana_Cache 011e 0098 | | Execute Package,Field_Read_Dynamic 011f 49c9 |I | Short_Literal 0x1c9 0120 00eb | | Load_Encached Diana_Cache 0121 0098 | | Execute Package,Field_Read_Dynamic 0122 49ca |I | Short_Literal 0x1ca 0123 00eb | | Load_Encached Diana_Cache 0124 0095 | | Execute Package,Field_Reference_Dynamic 0125 e00a | | Load 0x0,0xa 0126 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0127 7800 |x | Jump 0x128 0128 00d0 | | Action Swap_Control 0129 00d1 | | Pop_Control Pop_Count_1 012a 0007 | | Action Break_Optional ; Debug Table 0x3.0x3b = 0x12a,0x9 012b e406 | | Load 0x2,0x6 ; Debug Table 0x3.0x3c = 0x12b,0x2801 012c 0007 | | Action Break_Optional 012d 0145 | E | Execute Heap_Access,Diana_Tree_Kind ; Debug Table 0x3.0x3d = 0x12d,0x2802 012e 0007 | | Action Break_Optional ; Debug Table 0x3.0x3e = 0x12e,0x2803 012f 00d0 | | Action Swap_Control ; Debug Table 0x3.0x3f = 0x12f,0x2804 0130 00d1 | | Pop_Control Pop_Count_1 0131 0fa4 | | Execute_Immediate Equal,-0x5c ; Debug Table 0x3.0x40 = 0x131,0x9 0132 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0133 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0x41 = 0x133,0xa 0134 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0135 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0x42 = 0x135,0xb 0136 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0137 0000 | | .XXX[0x1] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 0140 | @ | .CONST 0x0140 ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0002 | | .CONST 0x0002 ; Number of locals 013b INIT_0138: 013b 4801 |H | Short_Literal 0x1 ; Debug Table 0x4 = .DEBUG 0x013b,0x024c,0x0001,0x0000,0x0058,0xc4d5,0x0000,0x00dd ; Debug Table 0x4.0x0 = 0x13b,0xffff 013c e003 | | Load 0x0,0x3 013d 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 013e 00e2 | | Load_Encached Integer_Cache 013f 03f1 | | Declare_Variable Discrete,With_Value 0140 BODY_0138: 0140 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x1 = 0x140,0x1 0141 e5ff | | Load 0x2,-0x1 0142 e007 | | Load 0x0,0x7 0143 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0144 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0145 ; -------------------------------------------------------------------------------------- 0145 ; STRING TABLE 0145 ; -------------------------------------------------------------------------------------- 0145 0004 | | .STRTAB 0x0004->0x0147 ; "name prefix" 0146 000d | | .STREND 0x000d->0x014c 0147 6e61 6d65 |name| .STRTAB_STRINGS 014d 0000 0000 | | .XXX[0x3] 014f 0000 | | 0150 ; -------------------------------------------------------------------------------------- 0150 ; Debug Table 0150 ; -------------------------------------------------------------------------------------- 0150 0003 0005 | | .CONST 0x0003,0x0005 0152 000b 017a | z| .DEBUG 0x000b,0x017a,0x8000,0x0000,0x0057,0x3c05,0x0000,0x0005 015a 000e 017e | ~| .DEBUG 0x000e,0x017e,0x8000,0x0000,0x0058,0xc4d5,0x0000,0x001d 0162 0023 018e | # | .DEBUG 0x0023,0x018e,0x0001,0x0000,0x0057,0x3c05,0x0000,0x0006 016a 008b 01c4 | | .DEBUG 0x008b,0x01c4,0x0002,0x0000,0x0058,0xc4d5,0x0000,0x002e 0172 013b 024c | ; L| .DEBUG 0x013b,0x024c,0x0001,0x0000,0x0058,0xc4d5,0x0000,0x00dd 017a ; -------------------------------------------------------------------------------------- 017a ; Debug3 Subtable 0x0 017a ; -------------------------------------------------------------------------------------- 017a 0001 0000 | | .DBG3TAB 0x0001,0x0000 017c 000b ffff | | .CONST 0x000b,0xffff 017e ; -------------------------------------------------------------------------------------- 017e ; Debug3 Subtable 0x1 017e ; -------------------------------------------------------------------------------------- 017e 0007 0000 | | .DBG3TAB 0x0007,0x0000 0180 000e ffff | | .CONST 0x000e,0xffff 0182 000f fffe | | .CONST 0x000f,0xfffe 0184 0010 fffd | | .CONST 0x0010,0xfffd 0186 0011 fffc | | .CONST 0x0011,0xfffc 0188 0012 fffb | | .CONST 0x0012,0xfffb 018a 0014 fffa | | .CONST 0x0014,0xfffa 018c 0016 fff9 | | .CONST 0x0016,0xfff9 018e ; -------------------------------------------------------------------------------------- 018e ; Debug3 Subtable 0x2 018e ; -------------------------------------------------------------------------------------- 018e 0006 0014 | | .DBG3TAB 0x0006,0x0014 0190 0023 ffff | # | .CONST 0x0023,0xffff 0192 0028 fffe | ( | .CONST 0x0028,0xfffe 0194 002d fffd | - | .CONST 0x002d,0xfffd 0196 0032 fffc | 2 | .CONST 0x0032,0xfffc 0198 0036 fffb | 6 | .CONST 0x0036,0xfffb 019a 0037 0401 | 7 | .CONST 0x0037,0x0401 019c 0038 fffb | 8 | .CONST 0x0038,0xfffb 019e 0039 0001 | 9 | .CONST 0x0039,0x0001 01a0 003f 0002 | ? | .CONST 0x003f,0x0002 01a2 0043 0003 | C | .CONST 0x0043,0x0003 01a4 0048 0004 | H | .CONST 0x0048,0x0004 01a6 004e 0005 | N | .CONST 0x004e,0x0005 01a8 0051 0006 | Q | .CONST 0x0051,0x0006 01aa 0053 0007 | S | .CONST 0x0053,0x0007 01ac 0056 0008 | V | .CONST 0x0056,0x0008 01ae 0058 0009 | X | .CONST 0x0058,0x0009 01b0 0066 000a | f | .CONST 0x0066,0x000a 01b2 006a 000b | j | .CONST 0x006a,0x000b 01b4 006e 000c | n | .CONST 0x006e,0x000c 01b6 006f 0801 | o | .CONST 0x006f,0x0801 01b8 0070 000c | p | .CONST 0x0070,0x000c 01ba 0073 000d | s | .CONST 0x0073,0x000d 01bc 0076 000e | v | .CONST 0x0076,0x000e 01be 007a 000f | z | .CONST 0x007a,0x000f 01c0 007c 0010 | | | .CONST 0x007c,0x0010 01c2 0080 0011 | | .CONST 0x0080,0x0011 01c4 ; -------------------------------------------------------------------------------------- 01c4 ; Debug3 Subtable 0x3 01c4 ; -------------------------------------------------------------------------------------- 01c4 0003 0040 | @| .DBG3TAB 0x0003,0x0040 01c6 008b ffff | | .CONST 0x008b,0xffff 01c8 0090 fffe | | .CONST 0x0090,0xfffe 01ca 0091 fffd | | .CONST 0x0091,0xfffd 01cc 0092 0001 | | .CONST 0x0092,0x0001 01ce 0093 0401 | | .CONST 0x0093,0x0401 01d0 0095 0402 | | .CONST 0x0095,0x0402 01d2 0096 0403 | | .CONST 0x0096,0x0403 01d4 0097 0404 | | .CONST 0x0097,0x0404 01d6 0098 0001 | | .CONST 0x0098,0x0001 01d8 009c 000c | | .CONST 0x009c,0x000c 01da 009e 0002 | | .CONST 0x009e,0x0002 01dc 00a4 0003 | | .CONST 0x00a4,0x0003 01de 00a5 0801 | | .CONST 0x00a5,0x0801 01e0 00a7 0802 | | .CONST 0x00a7,0x0802 01e2 00a8 0803 | | .CONST 0x00a8,0x0803 01e4 00a9 0804 | | .CONST 0x00a9,0x0804 01e6 00aa 0003 | | .CONST 0x00aa,0x0003 01e8 00ac 0004 | | .CONST 0x00ac,0x0004 01ea 00ae 0005 | | .CONST 0x00ae,0x0005 01ec 00b3 0006 | | .CONST 0x00b3,0x0006 01ee 00b5 0007 | | .CONST 0x00b5,0x0007 01f0 00b8 0c01 | | .CONST 0x00b8,0x0c01 01f2 00ba 0c02 | | .CONST 0x00ba,0x0c02 01f4 00bc 0c03 | | .CONST 0x00bc,0x0c03 01f6 00c0 0c04 | | .CONST 0x00c0,0x0c04 01f8 00c4 0c05 | | .CONST 0x00c4,0x0c05 01fa 00c6 1001 | | .CONST 0x00c6,0x1001 01fc 00c8 1002 | | .CONST 0x00c8,0x1002 01fe 00c9 1003 | | .CONST 0x00c9,0x1003 0200 00ca 1004 | | .CONST 0x00ca,0x1004 0202 00cc 0c05 | | .CONST 0x00cc,0x0c05 0204 00d6 1401 | | .CONST 0x00d6,0x1401 0206 00d8 1402 | | .CONST 0x00d8,0x1402 0208 00d9 1403 | | .CONST 0x00d9,0x1403 020a 00da 1404 | | .CONST 0x00da,0x1404 020c 00dc 1004 | | .CONST 0x00dc,0x1004 020e 00ea 0007 | | .CONST 0x00ea,0x0007 0210 00eb 0008 | | .CONST 0x00eb,0x0008 0212 00ec 1801 | | .CONST 0x00ec,0x1801 0214 00ee 1802 | | .CONST 0x00ee,0x1802 0216 00ef 1803 | | .CONST 0x00ef,0x1803 0218 00f0 1804 | | .CONST 0x00f0,0x1804 021a 00f1 0008 | | .CONST 0x00f1,0x0008 021c 00f3 0009 | | .CONST 0x00f3,0x0009 021e 00f8 1c01 | | .CONST 0x00f8,0x1c01 0220 00fa 1c02 | | .CONST 0x00fa,0x1c02 0222 00fc 1c03 | | .CONST 0x00fc,0x1c03 0224 0100 1c04 | | .CONST 0x0100,0x1c04 0226 0104 1c05 | | .CONST 0x0104,0x1c05 0228 0106 2001 | | .CONST 0x0106,0x2001 022a 0108 2002 | | .CONST 0x0108,0x2002 022c 0109 2003 | | .CONST 0x0109,0x2003 022e 010a 2004 | | .CONST 0x010a,0x2004 0230 010c 1c05 | | .CONST 0x010c,0x1c05 0232 0116 2401 | $ | .CONST 0x0116,0x2401 0234 0118 2402 | $ | .CONST 0x0118,0x2402 0236 0119 2403 | $ | .CONST 0x0119,0x2403 0238 011a 2404 | $ | .CONST 0x011a,0x2404 023a 011c 2004 | | .CONST 0x011c,0x2004 023c 012a 0009 | * | .CONST 0x012a,0x0009 023e 012b 2801 | +( | .CONST 0x012b,0x2801 0240 012d 2802 | -( | .CONST 0x012d,0x2802 0242 012e 2803 | .( | .CONST 0x012e,0x2803 0244 012f 2804 | /( | .CONST 0x012f,0x2804 0246 0131 0009 | 1 | .CONST 0x0131,0x0009 0248 0133 000a | 3 | .CONST 0x0133,0x000a 024a 0135 000b | 5 | .CONST 0x0135,0x000b 024c ; -------------------------------------------------------------------------------------- 024c ; Debug3 Subtable 0x4 024c ; -------------------------------------------------------------------------------------- 024c 0001 0001 | | .DBG3TAB 0x0001,0x0001 024e 013b ffff | ; | .CONST 0x013b,0xffff 0250 0140 0001 | @ | .CONST 0x0140,0x0001 0252 0000 0000 | | .BLANK 0000[0x1ae]