|
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: 3072 (0xc00) Notes: 00_class, 5811_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_07b4f8
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5811 |X | .CONST 0x5811 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 02f8 | | .CONST 0x02f8 ; 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 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0064 | d | .CONST 0x0064 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001a | | .CONST 0x001a ; Number of locals 000b INIT_0008: 000b 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x03aa,0xc000,0x0000,0x0033,0x70d4,0x0000,0x0010 ; Debug Table 0x0.0x0 = 0xb,0xffff 000d 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xd,0xfffe 000f 4803 |H | Short_Literal 0x3 ; Debug Table 0x0.0x2 = 0xf,0xfffd 0010 032b | + | Declare_Type Record,Incomplete,Visible 0011 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x11,0xfffc 0013 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x13,0xfffb 0015 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x15,0xfffa 0017 0007 | | Action Break_Optional ; Debug Table 0x0.0x6 = 0x17,0xfff9 0018 6167 |ag | Indirect_Literal Discrete,0x180,{0x00000000, 0x003370d4} ; Debug Table 0x0.0x7 = 0x18,0xfff8 0019 4861 |Ha | Short_Literal 0x61 001a e001 | | Load 0x0,0x1 001b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 001c e001 | | Load 0x0,0x1 001d 1911 | | Execute Package,Field_Reference,Field_Number 0x11 001e e001 | | Load 0x0,0x1 001f 1912 | | Execute Package,Field_Reference,Field_Number 0x12 0020 e001 | | Load 0x0,0x1 0021 1913 | | Execute Package,Field_Reference,Field_Number 0x13 0022 e001 | | Load 0x0,0x1 0023 191b | | Execute Package,Field_Reference,Field_Number 0x1b 0024 e001 | | Load 0x0,0x1 0025 1918 | | Execute Package,Field_Reference,Field_Number 0x18 0026 e001 | | Load 0x0,0x1 0027 191c | | Execute Package,Field_Reference,Field_Number 0x1c 0028 e001 | | Load 0x0,0x1 0029 191d | | Execute Package,Field_Reference,Field_Number 0x1d 002a e002 | | Load 0x0,0x2 002b 0387 | | Declare_Variable Package 002c 00d8 | | Load_Top At_Offset_0 002d 020f | | Execute Module,Activate 002e 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x8 = 0x2e,0xfff7 002f 614c |aL | Indirect_Literal Discrete,0x17c,{0x00622008, 0x000018b0} 0030 02a0 | | Declare_Subprogram Null_Subprogram 0031 037a | z | Declare_Type Task,Defined,Not_Elaborated 0032 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x9 = 0x32,0xfff6 0033 02a0 | | Declare_Subprogram Null_Subprogram 0034 4818 |H | Short_Literal 0x18 0035 03d3 | | Declare_Type Access,Defined,Accesses_Protected 0036 e003 | | Load 0x0,0x3 ; Debug Table 0x0.0xa = 0x36,0xfff5 0037 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0038 00db | | Load_Top At_Offset_3 0039 1b17 | | Execute Package,Field_Read,Field_Number 0x17 003a 00da | | Load_Top At_Offset_2 003b 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call 003d e212 | | Load 0x1,0x12 003e 0326 | & | Complete_Type Record,By_Defining 003f 00bf | | Action Accept_Activation 0040 4801 |H | Short_Literal 0x1 ; Debug Table 0x1 = .DEBUG 0x0040,0x03c2,0xc000,0x0000,0x0033,0x70f4,0x0000,0x0009 ; Debug Table 0x1.0x0 = 0x40,0xffff 0041 4800 |H | Short_Literal 0x0 0042 e004 | | Load 0x0,0x4 0043 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0044 0334 | 4 | Declare_Variable Array,With_Constraint 0045 4801 |H | Short_Literal 0x1 0046 4800 |H | Short_Literal 0x0 0047 e004 | | Load 0x0,0x4 0048 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0049 0334 | 4 | Declare_Variable Array,With_Constraint 004a 00d9 | | Load_Top At_Offset_1 004b 01d4 | | Execute Vector,Structure_Write 004c 029b 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Unelaborated ; Debug Table 0x1.0x1 = 0x4c,0xfffe 004e 1d1a | | Execute_Immediate Reference_Lex_1,0x1a ; Debug Table 0x1.0x2 = 0x4e,0xfffd 004f 00c7 | | Action Elaborate_Subprogram 0050 e004 | | Load 0x0,0x4 ; Debug Table 0x1.0x3 = 0x50,0xfffc 0051 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0052 00b6 | | Action Make_Scope 0053 e005 | | Load 0x0,0x5 0054 4804 |H | Short_Literal 0x4 0055 e217 | | Load 0x1,0x17 0056 020e | | Execute Module,Augment_Imports 0057 00db | | Load_Top At_Offset_3 0058 020d | | Execute Module,Elaborate 0059 0007 | | Action Break_Optional 005a 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x4 = 0x5a,0xfffb 005b 00c7 | | Action Elaborate_Subprogram 005c 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x5 = 0x5c,0xfffa 005d 00c7 | | Action Elaborate_Subprogram 005e 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x6 = 0x5e,0xfff9 005f 00c7 | | Action Elaborate_Subprogram 0060 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0x7 = 0x60,0xfff8 0061 00c7 | | Action Elaborate_Subprogram 0062 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0x8 = 0x62,0xfff7 0063 00c7 | | Action Elaborate_Subprogram 0064 BODY_0008: 0064 00bc | | Action Signal_Activated 0065 00bb | | Action Signal_Completion 0066 0000 0000 | | .XXX[0x2] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 006b | k | .CONST 0x006b ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0001 | | .CONST 0x0001 ; Number of locals 006b BODY_0068: 006b INIT_0068: 006b 00da | | Load_Top At_Offset_2 ; Debug Table 0x2 = .DEBUG 0x006b,0x03d6,0x1002,0x0000,0x0033,0x70d4,0x0000,0x001b ; Debug Table 0x2.0x0 = 0x6b,0x1 006c e003 | | Load 0x0,0x3 006d 181b | | Execute Package,Field_Execute,Field_Number 0x1b 006e 0f02 | | Execute_Immediate Equal,0x2 006f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0073 | s | .CONST 0x0073 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0001 | | .CONST 0x0001 ; Number of locals 0073 BODY_0070: 0073 INIT_0070: 0073 00da | | Load_Top At_Offset_2 ; Debug Table 0x3 = .DEBUG 0x0073,0x03da,0x1002,0x0000,0x0033,0x70d4,0x0000,0x0024 ; Debug Table 0x3.0x0 = 0x73,0x1 0074 e216 | | Load 0x1,0x16 0075 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0076 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0077 0000 | | .XXX[0x1] 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 007b | { | .CONST 0x007b ; Address of begin 0079 0004 | | .CONST 0x0004 ; Address of exception handler 007a 0001 | | .CONST 0x0001 ; Number of locals 007b BODY_0078: 007b INIT_0078: 007b 00da | | Load_Top At_Offset_2 ; Debug Table 0x4 = .DEBUG 0x007b,0x03de,0x1001,0x0000,0x0033,0x70d4,0x0000,0x0031 ; Debug Table 0x4.0x0 = 0x7b,0x1 007c 8211 | | Call 0x1,0x11 007d 7002 |p | Jump_Nonzero 0x80 007e 4930 |I0 | Short_Literal 0x130 ; Debug Table 0x4.0x1 = 0x7e,0x2 007f 0257 | W | Execute Discrete,Raise 0080 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0x2 = 0x80,0x3 0081 e003 | | Load 0x0,0x3 0082 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0083 e5fe | | Load 0x2,-0x2 0084 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0085 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0x3 = 0x85,0x4 0086 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0087 4603 |F | Jump_Case 0x4 0088 780b |x | Jump 0x94 ; case 0x0 0089 780a |x | Jump 0x94 ; case 0x1 008a 7809 |x | Jump 0x94 ; case 0x2 008b 7800 |x | Jump 0x8c ; case 0x3 008c e218 | | Load 0x1,0x18 ; Debug Table 0x4.0x4 = 0x8c,0x5 008d 03bc | | Declare_Variable Access,By_Allocation 008e 00d8 | | Load_Top At_Offset_0 008f 00e0 | | Load_Encached Standard_Cache 0090 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0091 e5fe | | Load 0x2,-0x2 0092 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0093 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0094 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0x5 = 0x94,0x6 0095 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0096 4800 |H | Short_Literal 0x0 0097 4800 |H | Short_Literal 0x0 0098 e5ff | | Load 0x2,-0x1 0099 e216 | | Load 0x1,0x16 009a 181e | | Execute Package,Field_Execute,Field_Number 0x1e 009b 00d1 | | Pop_Control Pop_Count_1 009c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 009d 0000 0000 | | .XXX[0x3] 009f 0000 | | 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a4 | | .CONST 0x00a4 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0002 | | .CONST 0x0002 ; Number of locals 00a3 INIT_00a0: 00a3 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x5 = .DEBUG 0x00a3,0x03ec,0x1001,0x0000,0x0033,0x70d4,0x0000,0x003d ; Debug Table 0x5.0x0 = 0xa3,0xffff 00a4 BODY_00a0: 00a4 00db | | Load_Top At_Offset_3 ; Debug Table 0x5.0x1 = 0xa4,0x1 00a5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00a6 4603 |F | Jump_Case 0x4 00a7 780e |x | Jump 0xb6 ; case 0x0 00a8 780d |x | Jump 0xb6 ; case 0x1 00a9 780c |x | Jump 0xb6 ; case 0x2 00aa 7800 |x | Jump 0xab ; case 0x3 00ab 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x5.0x2 = 0xab,0x2 00ac e219 | | Load 0x1,0x19 00ad 4802 |H | Short_Literal 0x2 00ae e5ff | | Load 0x2,-0x1 00af 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00b0 0229 | ) | Execute Access,All_Read 00b1 170d | | Execute Task,Entry_Call,Field_Number 0xd 00b2 0059 | Y | Store_Top Discrete,At_Offset_1 00b3 4800 |H | Short_Literal 0x0 ; Debug Table 0x5.0x3 = 0xb3,0x3 00b4 a5fe | | Store_Unchecked 0x2,-0x2 00b5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00b6 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x5.0x4 = 0xb6,0x4 00b7 e5ff | | Load 0x2,-0x1 00b8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00b9 e216 | | Load 0x1,0x16 00ba 181f | | Execute Package,Field_Execute,Field_Number 0x1f 00bb 00d1 | | Pop_Control Pop_Count_1 00bc c5fe | | Store 0x2,-0x2 00bd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00be 0000 0000 | | .XXX[0x2] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c5 | | .CONST 0x00c5 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0003 | | .CONST 0x0003 ; Number of locals 00c3 INIT_00c0: 00c3 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x6 = .DEBUG 0x00c3,0x03f8,0x1001,0x0000,0x0033,0x70d4,0x0000,0x0049 ; Debug Table 0x6.0x0 = 0xc3,0xffff 00c4 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x6.0x1 = 0xc4,0xfffe 00c5 BODY_00c0: 00c5 e5fe | | Load 0x2,-0x2 ; Debug Table 0x6.0x2 = 0xc5,0x1 00c6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00c7 4603 |F | Jump_Case 0x4 00c8 7826 |x& | Jump 0xef ; case 0x0 00c9 7825 |x% | Jump 0xef ; case 0x1 00ca 7824 |x$ | Jump 0xef ; case 0x2 00cb 7800 |x | Jump 0xcc ; case 0x3 00cc 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x6.0x3 = 0xcc,0x2 00cd e5ff | | Load 0x2,-0x1 00ce 4802 |H | Short_Literal 0x2 00cf e5fe | | Load 0x2,-0x2 00d0 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00d1 0229 | ) | Execute Access,All_Read 00d2 170d | | Execute Task,Entry_Call,Field_Number 0xd 00d3 005a | Z | Store_Top Discrete,At_Offset_2 00d4 7814 |x | Jump 0xe9 00d5 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x6.0x4 = 0xd5,0x4 00d6 e5ff | | Load 0x2,-0x1 00d7 01dd | | Execute Vector,First 00d8 00db | | Load_Top At_Offset_3 00d9 0273 | s | Execute Discrete,Plus 00da 0248 | H | Execute Discrete,Check_In_Integer 00db e5ff | | Load 0x2,-0x1 00dc 01dc | | Execute Vector,Last 00dd e5ff | | Load 0x2,-0x1 00de 01cf | | Execute Vector,Slice_Read 00df 4802 |H | Short_Literal 0x2 00e0 e5fe | | Load 0x2,-0x2 00e1 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00e2 0229 | ) | Execute Access,All_Read 00e3 170d | | Execute Task,Entry_Call,Field_Number 0xd 00e4 0059 | Y | Store_Top Discrete,At_Offset_1 00e5 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x6.0x5 = 0xe5,0x5 00e6 00d9 | | Load_Top At_Offset_1 00e7 0273 | s | Execute Discrete,Plus 00e8 005a | Z | Store_Top Discrete,At_Offset_2 00e9 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x6.0x6 = 0xe9,0x3 00ea e5ff | | Load 0x2,-0x1 00eb 01db | | Execute Vector,Length 00ec 027c | | | Execute Discrete,Less 00ed 77e7 |w | Jump_Nonzero 0xd5 00ee 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00ef e5fe | | Load 0x2,-0x2 ; Debug Table 0x6.0x7 = 0xef,0x6 00f0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00f1 e5ff | | Load 0x2,-0x1 00f2 e216 | | Load 0x1,0x16 00f3 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 00f4 00d1 | | Pop_Control Pop_Count_1 00f5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00f6 0000 0000 | | .XXX[0x2] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00fb | | .CONST 0x00fb ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0001 | | .CONST 0x0001 ; Number of locals 00fb BODY_00f8: 00fb INIT_00f8: 00fb 4608 |F | Jump_Case 0x9 ; Debug Table 0x7 = .DEBUG 0x00fb,0x040a,0x1005,0x0000,0x0033,0x70d4,0x0000,0x0092 00fc 7808 |x | Jump 0x105 ; case 0x0 00fd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 00fe 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 00ff 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 0100 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 0101 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 0102 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6 0103 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7 0104 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8 0105 00da | | Load_Top At_Offset_2 0106 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0107 1c00 | | Execute_Immediate Run_Utility,0x0 0108 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0109 0000 0000 | | .BLANK 0000[0x7] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 016d | m | .CONST 0x016d ; Address of begin 0111 0172 | r | .CONST 0x0172 ; Address of exception handler 0112 0004 | | .CONST 0x0004 ; Number of locals 0113 INIT_0110: 0113 6064 |`d | Indirect_Literal Discrete,0x178,{0x00000000, 0x003370f4} ; Debug Table 0x8 = .DEBUG 0x0113,0x040c,0x3801,0x0002,0x0033,0x70f4,0x0000,0x001a ; Debug Table 0x8.0x0 = 0x113,0xffff 0114 483a |H: | Short_Literal 0x3a 0115 4ffc |O | Short_Literal -0x4 0116 4802 |H | Short_Literal 0x2 0117 0099 | | Action Reference_Dynamic 0118 4ffd |O | Short_Literal -0x3 0119 4802 |H | Short_Literal 0x2 011a 0099 | | Action Reference_Dynamic 011b 4818 |H | Short_Literal 0x18 011c 484f |HO | Short_Literal 0x4f 011d 4800 |H | Short_Literal 0x0 011e 4800 |H | Short_Literal 0x0 011f 48ff |H | Short_Literal 0xff 0120 4804 |H | Short_Literal 0x4 0121 e006 | | Load 0x0,0x6 0122 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0123 e006 | | Load 0x0,0x6 0124 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0125 0387 | | Declare_Variable Package 0126 00d8 | | Load_Top At_Offset_0 0127 020f | | Execute Module,Activate 0128 604f |`O | Indirect_Literal Discrete,0x178,{0x00000000, 0x003370f4} ; Debug Table 0x8.0x1 = 0x128,0xfffe 0129 484a |HJ | Short_Literal 0x4a 012a 4ffc |O | Short_Literal -0x4 012b 4802 |H | Short_Literal 0x2 012c 0099 | | Action Reference_Dynamic 012d 00db | | Load_Top At_Offset_3 012e 191c | | Execute Package,Field_Reference,Field_Number 0x1c 012f 48ff |H | Short_Literal 0xff 0130 e006 | | Load 0x0,0x6 0131 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0132 e006 | | Load 0x0,0x6 0133 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0134 0387 | | Declare_Variable Package 0135 00d8 | | Load_Top At_Offset_0 0136 020f | | Execute Module,Activate 0137 6040 |`@ | Indirect_Literal Discrete,0x178,{0x00000000, 0x003370f4} ; Debug Table 0x8.0x2 = 0x137,0xfffd 0138 485c |H\ | Short_Literal 0x5c 0139 e5fe | | Load 0x2,-0x2 013a 0335 | 5 | Declare_Variable Array,Duplicate 013b 00d0 | | Action Swap_Control 013c 00d1 | | Pop_Control Pop_Count_1 013d 4801 |H | Short_Literal 0x1 013e 4801 |H | Short_Literal 0x1 013f e403 | | Load 0x2,0x3 0140 1913 | | Execute Package,Field_Reference,Field_Number 0x13 0141 4ffc |O | Short_Literal -0x4 0142 4802 |H | Short_Literal 0x2 0143 0099 | | Action Reference_Dynamic 0144 e403 | | Load 0x2,0x3 0145 1915 | | Execute Package,Field_Reference,Field_Number 0x15 0146 4ffd |O | Short_Literal -0x3 0147 4802 |H | Short_Literal 0x2 0148 0099 | | Action Reference_Dynamic 0149 e402 | | Load 0x2,0x2 014a 1919 | | Execute Package,Field_Reference,Field_Number 0x19 014b e402 | | Load 0x2,0x2 014c 191a | | Execute Package,Field_Reference,Field_Number 0x1a 014d e402 | | Load 0x2,0x2 014e 191b | | Execute Package,Field_Reference,Field_Number 0x1b 014f e402 | | Load 0x2,0x2 0150 191c | | Execute Package,Field_Reference,Field_Number 0x1c 0151 e402 | | Load 0x2,0x2 0152 191d | | Execute Package,Field_Reference,Field_Number 0x1d 0153 e402 | | Load 0x2,0x2 0154 191e | | Execute Package,Field_Reference,Field_Number 0x1e 0155 e402 | | Load 0x2,0x2 0156 191f | | Execute Package,Field_Reference,Field_Number 0x1f 0157 e402 | | Load 0x2,0x2 0158 1920 | | Execute Package,Field_Reference,Field_Number 0x20 0159 e402 | | Load 0x2,0x2 015a 1921 | ! | Execute Package,Field_Reference,Field_Number 0x21 015b e402 | | Load 0x2,0x2 015c 1922 | " | Execute Package,Field_Reference,Field_Number 0x22 015d e402 | | Load 0x2,0x2 015e 1923 | # | Execute Package,Field_Reference,Field_Number 0x23 015f e402 | | Load 0x2,0x2 0160 1924 | $ | Execute Package,Field_Reference,Field_Number 0x24 0161 e402 | | Load 0x2,0x2 0162 1925 | % | Execute Package,Field_Reference,Field_Number 0x25 0163 e402 | | Load 0x2,0x2 0164 1926 | & | Execute Package,Field_Reference,Field_Number 0x26 0165 e402 | | Load 0x2,0x2 0166 1927 | ' | Execute Package,Field_Reference,Field_Number 0x27 0167 e402 | | Load 0x2,0x2 0168 1928 | ( | Execute Package,Field_Reference,Field_Number 0x28 0169 e007 | | Load 0x0,0x7 016a 0387 | | Declare_Variable Package 016b 00d8 | | Load_Top At_Offset_0 016c 020f | | Execute Module,Activate 016d BODY_0110: 016d 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x8.0x3 = 0x16d,0x1 016e 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 016f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x8.0x4 = 0x16f,0x2 0170 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0171 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0172 TRAP_0110: 0172 0007 | | Action Break_Optional 0173 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x8.0x5 = 0x173,0x3 0174 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0175 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x8.0x6 = 0x175,0x4 0176 0101 | | Execute Exception,Reraise 0177 0000 | | .XXX[0x1] 0178 0000 0000 | | .LITERAL {0x00000000, 0x003370f4} 017c 0062 2008 | b | .LITERAL {0x00622008, 0x000018b0} 0180 0000 0000 | | .LITERAL {0x00000000, 0x003370d4} 0184 0000 0000 | | .BLANK 0000[0x4] 0188 01ab 0004 | | .XXX[0x3] 018a 0013 | | 018b 4802 |H | Short_Literal 0x2 ; Debug Table 0x9 = .DEBUG 0x018b,0x041c,0x0000,0x0000,0x0033,0x70d4,0x0000,0x006b 018c 02cb | | Declare_Variable Entry 018d 4802 |H | Short_Literal 0x2 018e 02cb | | Declare_Variable Entry 018f 00bf | | Action Accept_Activation 0190 4801 |H | Short_Literal 0x1 ; Debug Table 0xa = .DEBUG 0x0190,0x041e,0x0000,0x0000,0x0033,0x71f4,0x0000,0x0008 ; Debug Table 0xa.0x0 = 0x190,0xffff 0191 609a |` | Indirect_Literal Discrete,0x22c,{0x00000000, 0x00000400} 0192 e001 | | Load 0x0,0x1 0193 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0194 0334 | 4 | Declare_Variable Array,With_Constraint 0195 00e3 | | Load_Encached Natural_Cache ; Debug Table 0xa.0x1 = 0x195,0xfffe 0196 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0197 4800 |H | Short_Literal 0x0 ; Debug Table 0xa.0x2 = 0x197,0xfffd 0198 608f |` | Indirect_Literal Discrete,0x228,{0x00622008, 0x00002330} 0199 02a0 | | Declare_Subprogram Null_Subprogram 019a 037d | } | Declare_Type Task,Defined 019b 036f | o | Declare_Variable Task 019c a002 | | Store_Unchecked 0x0,0x2 ; Debug Table 0xa.0x3 = 0x19c,0xfffc 019d e003 | | Load 0x0,0x3 019e e001 | | Load 0x0,0x1 019f 00b6 | | Action Make_Scope 01a0 e004 | | Load 0x0,0x4 01a1 4805 |H | Short_Literal 0x5 01a2 e211 | | Load 0x1,0x11 01a3 020e | | Execute Module,Augment_Imports 01a4 480d |H | Short_Literal 0xd 01a5 0299 01c3 | | Declare_Subprogram INIT_01c0,For_Accept 01a7 480e |H | Short_Literal 0xe 01a8 0299 01f3 | | Declare_Subprogram INIT_01f0,For_Accept 01aa 00bc | | Action Signal_Activated 01ab 00be | | Action Activate_Tasks 01ac 0007 | | Action Break_Optional ; Debug Table 0xa.0x4 = 0x1ac,0x1 01ad 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0xa.0x5 = 0x1ad,0x2 01ae 1d0d | | Execute_Immediate Reference_Lex_1,0xd 01af 0137 | 7 | Execute Entry,Rendezvous 01b0 00db | | Load_Top At_Offset_3 ; Debug Table 0xa.0x6 = 0x1b0,0x3 01b1 6807 |h | Jump_Zero 0x1b9 01b2 0007 | | Action Break_Optional ; Debug Table 0xa.0x7 = 0x1b2,0x4 01b3 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0xa.0x8 = 0x1b3,0x5 01b4 1d0e | | Execute_Immediate Reference_Lex_1,0xe 01b5 0137 | 7 | Execute Entry,Rendezvous 01b6 00db | | Load_Top At_Offset_3 ; Debug Table 0xa.0x9 = 0x1b6,0x6 01b7 6ff5 |o | Jump_Zero 0x1ad 01b8 7ffa | | Jump 0x1b3 01b9 00bb | | Action Signal_Completion 01ba 0000 0000 | | .BLANK 0000[0x6] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c3 | | .CONST 0x01c3 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0001 | | .CONST 0x0001 ; Number of locals 01c3 BODY_01c0: 01c3 INIT_01c0: 01c3 480e |H | Short_Literal 0xe ; Debug Table 0xb = .DEBUG 0x01c3,0x0434,0x0003,0x0000,0x0033,0x71f4,0x0000,0x0181 01c4 0299 0223 | #| Declare_Subprogram INIT_0220,For_Accept 01c6 e5fe | | Load 0x2,-0x2 ; Debug Table 0xb.0x0 = 0x1c6,0x1 01c7 01db | | Execute Vector,Length 01c8 7008 |p | Jump_Nonzero 0x1d1 01c9 4800 |H | Short_Literal 0x0 ; Debug Table 0xb.0x1 = 0x1c9,0x2 01ca a210 | | Store_Unchecked 0x1,0x10 01cb 4802 |H | Short_Literal 0x2 ; Debug Table 0xb.0x2 = 0x1cb,0x3 01cc 4802 |H | Short_Literal 0x2 01cd 0099 | | Action Reference_Dynamic 01ce 1d0e | | Execute_Immediate Reference_Lex_1,0xe 01cf 0137 | 7 | Execute Entry,Rendezvous 01d0 781c |x | Jump 0x1ed 01d1 e5fe | | Load 0x2,-0x2 ; Debug Table 0xb.0x3 = 0x1d1,0x4 01d2 01db | | Execute Vector,Length 01d3 6058 |`X | Indirect_Literal Discrete,0x22c,{0x00000000, 0x00000400} 01d4 027a | z | Execute Discrete,Less_Equal 01d5 6809 |h | Jump_Zero 0x1df 01d6 e5fe | | Load 0x2,-0x2 ; Debug Table 0xb.0x4 = 0x1d6,0x5 01d7 01db | | Execute Vector,Length 01d8 c210 | | Store 0x1,0x10 01d9 e5fe | | Load 0x2,-0x2 ; Debug Table 0xb.0x5 = 0x1d9,0x6 01da 4801 |H | Short_Literal 0x1 01db e210 | | Load 0x1,0x10 01dc e20f | | Load 0x1,0xf 01dd 01ce | | Execute Vector,Slice_Write 01de 780e |x | Jump 0x1ed 01df 604c |`L | Indirect_Literal Discrete,0x22c,{0x00000000, 0x00000400} ; Debug Table 0xb.0x6 = 0x1df,0x7 01e0 a210 | | Store_Unchecked 0x1,0x10 01e1 e5fe | | Load 0x2,-0x2 ; Debug Table 0xb.0x7 = 0x1e1,0x8 01e2 01dd | | Execute Vector,First 01e3 e5fe | | Load 0x2,-0x2 01e4 01dd | | Execute Vector,First 01e5 e210 | | Load 0x1,0x10 01e6 0273 | s | Execute Discrete,Plus 01e7 0aff | | Execute_Immediate Plus,-0x1 01e8 0248 | H | Execute Discrete,Check_In_Integer 01e9 e5fe | | Load 0x2,-0x2 01ea 01cf | | Execute Vector,Slice_Read 01eb e20f | | Load 0x1,0xf 01ec 01d4 | | Execute Vector,Structure_Write 01ed e210 | | Load 0x1,0x10 ; Debug Table 0xb.0x8 = 0x1ed,0x9 01ee a5fd | | Store_Unchecked 0x2,-0x3 01ef 4101 |A | End_Rendezvous 0x1 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01f3 | | .CONST 0x01f3 ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0001 | | .CONST 0x0001 ; Number of locals 01f3 BODY_01f0: 01f3 INIT_01f0: 01f3 00db | | Load_Top At_Offset_3 ; Debug Table 0xc = .DEBUG 0x01f3,0x0448,0x0003,0x0000,0x0033,0x71f4,0x0000,0x01d5 ; Debug Table 0xc.0x0 = 0x1f3,0x1 01f4 01db | | Execute Vector,Length 01f5 e210 | | Load 0x1,0x10 01f6 027a | z | Execute Discrete,Less_Equal 01f7 6810 |h | Jump_Zero 0x208 01f8 4801 |H | Short_Literal 0x1 ; Debug Table 0xc.0x1 = 0x1f8,0x2 01f9 e5fe | | Load 0x2,-0x2 01fa 01db | | Execute Vector,Length 01fb e20f | | Load 0x1,0xf 01fc 01cf | | Execute Vector,Slice_Read 01fd e5fe | | Load 0x2,-0x2 01fe 01d4 | | Execute Vector,Structure_Write 01ff 00db | | Load_Top At_Offset_3 ; Debug Table 0xc.0x2 = 0x1ff,0x3 0200 01db | | Execute Vector,Length 0201 c5fd | | Store 0x2,-0x3 0202 e210 | | Load 0x1,0x10 ; Debug Table 0xc.0x3 = 0x202,0x4 0203 e5fe | | Load 0x2,-0x2 0204 01db | | Execute Vector,Length 0205 0272 | r | Execute Discrete,Minus 0206 c210 | | Store 0x1,0x10 0207 4102 |A | End_Rendezvous 0x2 0208 4801 |H | Short_Literal 0x1 ; Debug Table 0xc.0x4 = 0x208,0x5 0209 e210 | | Load 0x1,0x10 020a e20f | | Load 0x1,0xf 020b 01cf | | Execute Vector,Slice_Read 020c e5fe | | Load 0x2,-0x2 020d 01dd | | Execute Vector,First 020e e5fe | | Load 0x2,-0x2 020f 01dd | | Execute Vector,First 0210 e210 | | Load 0x1,0x10 0211 0273 | s | Execute Discrete,Plus 0212 0aff | | Execute_Immediate Plus,-0x1 0213 0248 | H | Execute Discrete,Check_In_Integer 0214 e5fe | | Load 0x2,-0x2 0215 01ce | | Execute Vector,Slice_Write 0216 e210 | | Load 0x1,0x10 ; Debug Table 0xc.0x5 = 0x216,0x6 0217 a5fd | | Store_Unchecked 0x2,-0x3 0218 4800 |H | Short_Literal 0x0 ; Debug Table 0xc.0x6 = 0x218,0x7 0219 a210 | | Store_Unchecked 0x1,0x10 021a 4102 |A | End_Rendezvous 0x2 021b 0000 0000 | | .BLANK 0000[0x5] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0223 | # | .CONST 0x0223 ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0001 | | .CONST 0x0001 ; Number of locals 0223 BODY_0220: 0223 INIT_0220: 0223 4800 |H | Short_Literal 0x0 ; Debug Table 0xd = .DEBUG 0x0223,0x0458,0x0003,0x0000,0x0033,0x71f4,0x0000,0x0142 ; Debug Table 0xd.0x0 = 0x223,0x1 0224 a7fd | | Store_Unchecked 0x3,-0x3 0225 4102 |A | End_Rendezvous 0x2 0226 0000 0000 | | .XXX[0x2] 0228 0062 2008 | b | .LITERAL {0x00622008, 0x00002330} 022c 0000 0000 | | .LITERAL {0x00000000, 0x00000400} 0230 024b 0251 | K Q| .XXX[0x3] 0232 0017 | | 0233 00bf | | Action Accept_Activation ; Debug Table 0xe = .DEBUG 0x0233,0x045c,0x0000,0x0000,0x0033,0x71f4,0x0000,0x001a 0234 4801 |H | Short_Literal 0x1 ; Debug Table 0xf = .DEBUG 0x0234,0x045e,0x0000,0x0000,0x0033,0x71f4,0x0000,0x001e ; Debug Table 0xf.0x0 = 0x234,0xffff 0235 67f6 |g | Indirect_Literal Discrete,0x22c,{0x00000000, 0x00000400} 0236 00e9 | | Load_Encached String_Cache 0237 0334 | 4 | Declare_Variable Array,With_Constraint 0238 00e3 | | Load_Encached Natural_Cache ; Debug Table 0xf.0x1 = 0x238,0xffff 0239 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 023a 0007 | | Action Break_Optional ; Debug Table 0xf.0x2 = 0x23a,0xffff 023b 029d 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call ; Debug Table 0xf.0x3 = 0x23b,0xffff 023d 029d 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call ; Debug Table 0xf.0x4 = 0x23d,0xffff 023f 029d 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call ; Debug Table 0xf.0x5 = 0x23f,0xffff 0241 a001 | | Store_Unchecked 0x0,0x1 ; Debug Table 0xf.0x6 = 0x241,0xffff 0242 00c6 | | Action Check_Subprogram_Elaborated 0243 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0244 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0245 0092 02f0 | | Action Push_String_Extended,0x2f0 ; "EEDB" 0247 60a4 |` | Indirect_Literal Discrete,0x2ec,{0x00000000, 0x003371f4} 0248 4901 |I | Short_Literal 0x101 0249 4800 |H | Short_Literal 0x0 024a 00bc | | Action Signal_Activated 024b 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0xf.0x7 = 0x24b,0x1 024c 1d13 | | Execute_Immediate Reference_Lex_1,0x13 024d e214 | | Load 0x1,0x14 024e 1d15 | | Execute_Immediate Reference_Lex_1,0x15 024f 8001 | | Call 0x0,0x1 0250 00bb | | Action Signal_Completion 0251 00d8 0107 | | .XXX[0x6] 0253 4950 495f |IPI_| 0255 0262 6801 | bh | 0257 00bb | | Action Signal_Completion ; Debug Table 0xf.0x8 = 0x257,0x1 0258 0100 | | .XXX[0x1] 0259 0000 0000 | | .BLANK 0000[0x7] 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 0269 | i | .CONST 0x0269 ; Address of begin 0261 0004 | | .CONST 0x0004 ; Address of exception handler 0262 0004 | | .CONST 0x0004 ; Number of locals 0263 INIT_0260: 0263 029f 029b | | Declare_Subprogram INIT_0298,For_Call ; Debug Table 0x10 = .DEBUG 0x0263,0x0472,0x0002,0x0000,0x0033,0x71f4,0x0000,0x0035 ; Debug Table 0x10.0x0 = 0x263,0xffff 0265 029f 02bb | | Declare_Subprogram INIT_02b8,For_Call 0267 029f 02db | | Declare_Subprogram INIT_02d8,For_Call 0269 BODY_0260: 0269 e20e | | Load 0x1,0xe ; Debug Table 0x10.0x1 = 0x269,0x1 026a 7001 |p | Jump_Nonzero 0x26c 026b 8402 | | Call 0x2,0x2 ; Debug Table 0x10.0x2 = 0x26b,0x1 026c e20e | | Load 0x1,0xe ; Debug Table 0x10.0x3 = 0x26c,0x1 026d 4801 |H | Short_Literal 0x1 026e 0263 | c | Execute Discrete,Above_Bound 026f 7007 |p | Jump_Nonzero 0x277 0270 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x10.0x4 = 0x270,0x1 0271 e20d | | Load 0x1,0xd 0272 01d7 | | Execute Vector,Field_Read 0273 0f0a | | Execute_Immediate Equal,0xa 0274 6801 |h | Jump_Zero 0x276 0275 8403 | | Call 0x2,0x3 ; Debug Table 0x10.0x5 = 0x275,0x1 0276 3ff9 |? | Loop_Increasing 0x270 0277 8404 | | Call 0x2,0x4 ; Debug Table 0x10.0x6 = 0x277,0x1 0278 4831 |H1 | Short_Literal 0x31 0279 0257 | W | Execute Discrete,Raise 027a 0000 0000 | | .BLANK 0000[0x6] 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 0284 | | .CONST 0x0284 ; Address of begin 0281 0004 | | .CONST 0x0004 ; Address of exception handler 0282 0002 | | .CONST 0x0002 ; Number of locals 0283 INIT_0280: 0283 820f | | Call 0x1,0xf ; Debug Table 0x11 = .DEBUG 0x0283,0x0482,0x0002,0x0000,0x0033,0x71f4,0x0000,0x00d3 ; Debug Table 0x11.0x0 = 0x283,0xffff 0284 BODY_0280: 0284 00db | | Load_Top At_Offset_3 ; Debug Table 0x11.0x1 = 0x284,0x1 0285 00d9 | | Load_Top At_Offset_1 0286 01cc | | Execute Vector,Catenate 0287 e002 | | Load 0x0,0x2 0288 180f | | Execute Package,Field_Execute,Field_Number 0xf 0289 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x11.0x2 = 0x289,0x1 028a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 028b 0000 0000 | | .BLANK 0000[0x5] 0290 ; -------------------------------------------------------------------------------------- 0290 ; SUBPROGRAM 0290 ; -------------------------------------------------------------------------------------- 0290 0293 | | .CONST 0x0293 ; Address of begin 0291 0004 | | .CONST 0x0004 ; Address of exception handler 0292 0001 | | .CONST 0x0001 ; Number of locals 0293 BODY_0290: 0293 INIT_0290: 0293 00da | | Load_Top At_Offset_2 ; Debug Table 0x12 = .DEBUG 0x0293,0x048a,0x0001,0x0000,0x0033,0x71f4,0x0000,0x00f0 ; Debug Table 0x12.0x0 = 0x293,0x1 0294 e002 | | Load 0x0,0x2 0295 180f | | Execute Package,Field_Execute,Field_Number 0xf 0296 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0x12.0x1 = 0x296,0x1 0297 0000 | | .XXX[0x1] 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 02a1 | | .CONST 0x02a1 ; Address of begin 0299 0004 | | .CONST 0x0004 ; Address of exception handler 029a 0002 | | .CONST 0x0002 ; Number of locals 029b INIT_0298: 029b e20d | | Load 0x1,0xd ; Debug Table 0x13 = .DEBUG 0x029b,0x0490,0x0004,0x0000,0x0033,0x71f4,0x0000,0x0074 ; Debug Table 0x13.0x0 = 0x29b,0xffff 029c 01da | | Execute Vector,Bounds 029d e003 | | Load 0x0,0x3 029e 1b12 | | Execute Package,Field_Read,Field_Number 0x12 029f 035b | [ | Declare_Type Array,Constrained 02a0 0337 | 7 | Declare_Variable Array 02a1 BODY_0298: 02a1 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x13.0x1 = 0x2a1,0x1 02a2 00d9 | | Load_Top At_Offset_1 02a3 4802 |H | Short_Literal 0x2 02a4 e004 | | Load 0x0,0x4 02a5 170e | | Execute Task,Entry_Call,Field_Number 0xe 02a6 00d1 | | Pop_Control Pop_Count_1 02a7 c20e | | Store 0x1,0xe 02a8 e20e | | Load 0x1,0xe ; Debug Table 0x13.0x2 = 0x2a8,0x1 02a9 7002 |p | Jump_Nonzero 0x2ac 02aa 4950 |IP | Short_Literal 0x150 ; Debug Table 0x13.0x3 = 0x2aa,0x1 02ab 0257 | W | Execute Discrete,Raise 02ac 4801 |H | Short_Literal 0x1 ; Debug Table 0x13.0x4 = 0x2ac,0x1 02ad e20e | | Load 0x1,0xe 02ae 00da | | Load_Top At_Offset_2 02af 01cf | | Execute Vector,Slice_Read 02b0 e005 | | Load 0x0,0x5 02b1 180d | | Execute Package,Field_Execute,Field_Number 0xd 02b2 4801 |H | Short_Literal 0x1 02b3 e20e | | Load 0x1,0xe 02b4 e20d | | Load 0x1,0xd 02b5 01ce | | Execute Vector,Slice_Write 02b6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02b7 0000 | | .XXX[0x1] 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; SUBPROGRAM 02b8 ; -------------------------------------------------------------------------------------- 02b8 02c4 | | .CONST 0x02c4 ; Address of begin 02b9 0004 | | .CONST 0x0004 ; Address of exception handler 02ba 0002 | | .CONST 0x0002 ; Number of locals 02bb INIT_02b8: 02bb 4801 |H | Short_Literal 0x1 ; Debug Table 0x14 = .DEBUG 0x02bb,0x049c,0x0004,0x0000,0x0033,0x71f4,0x0000,0x00b2 ; Debug Table 0x14.0x0 = 0x2bb,0xffff 02bc e406 | | Load 0x2,0x6 02bd 0aff | | Execute_Immediate Plus,-0x1 02be 0248 | H | Execute Discrete,Check_In_Integer 02bf e20d | | Load 0x1,0xd 02c0 01cf | | Execute Vector,Slice_Read 02c1 0335 | 5 | Declare_Variable Array,Duplicate 02c2 00d0 | | Action Swap_Control 02c3 00d1 | | Pop_Control Pop_Count_1 02c4 BODY_02b8: 02c4 e406 | | Load 0x2,0x6 ; Debug Table 0x14.0x1 = 0x2c4,0x1 02c5 0a01 | | Execute_Immediate Plus,0x1 02c6 0248 | H | Execute Discrete,Check_In_Integer 02c7 e20e | | Load 0x1,0xe 02c8 e20d | | Load 0x1,0xd 02c9 01cf | | Execute Vector,Slice_Read 02ca 4801 |H | Short_Literal 0x1 02cb e20e | | Load 0x1,0xe 02cc e406 | | Load 0x2,0x6 02cd 0272 | r | Execute Discrete,Minus 02ce 0248 | H | Execute Discrete,Check_In_Integer 02cf e20d | | Load 0x1,0xd 02d0 01ce | | Execute Vector,Slice_Write 02d1 e20e | | Load 0x1,0xe ; Debug Table 0x14.0x2 = 0x2d1,0x1 02d2 e406 | | Load 0x2,0x6 02d3 0272 | r | Execute Discrete,Minus 02d4 c20e | | Store 0x1,0xe 02d5 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x14.0x3 = 0x2d5,0x1 02d6 00cb | | Action Pop_Block_With_Result 02d7 00ca | | Action Exit_Nullary_Function 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; SUBPROGRAM 02d8 ; -------------------------------------------------------------------------------------- 02d8 02e2 | | .CONST 0x02e2 ; Address of begin 02d9 0004 | | .CONST 0x0004 ; Address of exception handler 02da 0002 | | .CONST 0x0002 ; Number of locals 02db INIT_02d8: 02db 4801 |H | Short_Literal 0x1 ; Debug Table 0x15 = .DEBUG 0x02db,0x04a6,0x0004,0x0000,0x0033,0x71f4,0x0000,0x00ce ; Debug Table 0x15.0x0 = 0x2db,0xffff 02dc e20e | | Load 0x1,0xe 02dd e20d | | Load 0x1,0xd 02de 01cf | | Execute Vector,Slice_Read 02df 0335 | 5 | Declare_Variable Array,Duplicate 02e0 00d0 | | Action Swap_Control 02e1 00d1 | | Pop_Control Pop_Count_1 02e2 BODY_02d8: 02e2 4800 |H | Short_Literal 0x0 ; Debug Table 0x15.0x1 = 0x2e2,0x1 02e3 a20e | | Store_Unchecked 0x1,0xe 02e4 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x15.0x2 = 0x2e4,0x1 02e5 820f | | Call 0x1,0xf 02e6 01cc | | Execute Vector,Catenate 02e7 00cb | | Action Pop_Block_With_Result 02e8 00ca | | Action Exit_Nullary_Function 02e9 0000 0000 | | .XXX[0x3] 02eb 0000 | | 02ec 0000 0000 | | .LITERAL {0x00000000, 0x003371f4} 02f0 ; -------------------------------------------------------------------------------------- 02f0 ; STRING TABLE 02f0 ; -------------------------------------------------------------------------------------- 02f0 0004 | | .STRTAB 0x0004->0x02f2 ; "EEDB" 02f1 0006 | | .STREND 0x0006->0x02f4 02f2 4545 4442 |EEDB| .STRTAB_STRINGS 02f4 0000 0000 | | .BLANK 0000[0x4] 02f8 ; -------------------------------------------------------------------------------------- 02f8 ; Debug Table 02f8 ; -------------------------------------------------------------------------------------- 02f8 0003 0016 | | .CONST 0x0003,0x0016 02fa 000b 03aa | | .DEBUG 0x000b,0x03aa,0xc000,0x0000,0x0033,0x70d4,0x0000,0x0010 0302 0040 03c2 | @ | .DEBUG 0x0040,0x03c2,0xc000,0x0000,0x0033,0x70f4,0x0000,0x0009 030a 006b 03d6 | k | .DEBUG 0x006b,0x03d6,0x1002,0x0000,0x0033,0x70d4,0x0000,0x001b 0312 0073 03da | s | .DEBUG 0x0073,0x03da,0x1002,0x0000,0x0033,0x70d4,0x0000,0x0024 031a 007b 03de | { | .DEBUG 0x007b,0x03de,0x1001,0x0000,0x0033,0x70d4,0x0000,0x0031 0322 00a3 03ec | | .DEBUG 0x00a3,0x03ec,0x1001,0x0000,0x0033,0x70d4,0x0000,0x003d 032a 00c3 03f8 | | .DEBUG 0x00c3,0x03f8,0x1001,0x0000,0x0033,0x70d4,0x0000,0x0049 0332 00fb 040a | | .DEBUG 0x00fb,0x040a,0x1005,0x0000,0x0033,0x70d4,0x0000,0x0092 033a 0113 040c | | .DEBUG 0x0113,0x040c,0x3801,0x0002,0x0033,0x70f4,0x0000,0x001a 0342 018b 041c | | .DEBUG 0x018b,0x041c,0x0000,0x0000,0x0033,0x70d4,0x0000,0x006b 034a 0190 041e | | .DEBUG 0x0190,0x041e,0x0000,0x0000,0x0033,0x71f4,0x0000,0x0008 0352 01c3 0434 | 4| .DEBUG 0x01c3,0x0434,0x0003,0x0000,0x0033,0x71f4,0x0000,0x0181 035a 01f3 0448 | H| .DEBUG 0x01f3,0x0448,0x0003,0x0000,0x0033,0x71f4,0x0000,0x01d5 0362 0223 0458 | # X| .DEBUG 0x0223,0x0458,0x0003,0x0000,0x0033,0x71f4,0x0000,0x0142 036a 0233 045c | 3 \| .DEBUG 0x0233,0x045c,0x0000,0x0000,0x0033,0x71f4,0x0000,0x001a 0372 0234 045e | 4 ^| .DEBUG 0x0234,0x045e,0x0000,0x0000,0x0033,0x71f4,0x0000,0x001e 037a 0263 0472 | c r| .DEBUG 0x0263,0x0472,0x0002,0x0000,0x0033,0x71f4,0x0000,0x0035 0382 0283 0482 | | .DEBUG 0x0283,0x0482,0x0002,0x0000,0x0033,0x71f4,0x0000,0x00d3 038a 0293 048a | | .DEBUG 0x0293,0x048a,0x0001,0x0000,0x0033,0x71f4,0x0000,0x00f0 0392 029b 0490 | | .DEBUG 0x029b,0x0490,0x0004,0x0000,0x0033,0x71f4,0x0000,0x0074 039a 02bb 049c | | .DEBUG 0x02bb,0x049c,0x0004,0x0000,0x0033,0x71f4,0x0000,0x00b2 03a2 02db 04a6 | | .DEBUG 0x02db,0x04a6,0x0004,0x0000,0x0033,0x71f4,0x0000,0x00ce 03aa ; -------------------------------------------------------------------------------------- 03aa ; Debug3 Subtable 0x0 03aa ; -------------------------------------------------------------------------------------- 03aa 000b 0000 | | .DBG3TAB 0x000b,0x0000 03ac 000b ffff | | .CONST 0x000b,0xffff 03ae 000d fffe | | .CONST 0x000d,0xfffe 03b0 000f fffd | | .CONST 0x000f,0xfffd 03b2 0011 fffc | | .CONST 0x0011,0xfffc 03b4 0013 fffb | | .CONST 0x0013,0xfffb 03b6 0015 fffa | | .CONST 0x0015,0xfffa 03b8 0017 fff9 | | .CONST 0x0017,0xfff9 03ba 0018 fff8 | | .CONST 0x0018,0xfff8 03bc 002e fff7 | . | .CONST 0x002e,0xfff7 03be 0032 fff6 | 2 | .CONST 0x0032,0xfff6 03c0 0036 fff5 | 6 | .CONST 0x0036,0xfff5 03c2 ; -------------------------------------------------------------------------------------- 03c2 ; Debug3 Subtable 0x1 03c2 ; -------------------------------------------------------------------------------------- 03c2 0009 0000 | | .DBG3TAB 0x0009,0x0000 03c4 0040 ffff | @ | .CONST 0x0040,0xffff 03c6 004c fffe | L | .CONST 0x004c,0xfffe 03c8 004e fffd | N | .CONST 0x004e,0xfffd 03ca 0050 fffc | P | .CONST 0x0050,0xfffc 03cc 005a fffb | Z | .CONST 0x005a,0xfffb 03ce 005c fffa | \ | .CONST 0x005c,0xfffa 03d0 005e fff9 | ^ | .CONST 0x005e,0xfff9 03d2 0060 fff8 | ` | .CONST 0x0060,0xfff8 03d4 0062 fff7 | b | .CONST 0x0062,0xfff7 03d6 ; -------------------------------------------------------------------------------------- 03d6 ; Debug3 Subtable 0x2 03d6 ; -------------------------------------------------------------------------------------- 03d6 0000 0001 | | .DBG3TAB 0x0000,0x0001 03d8 006b 0001 | k | .CONST 0x006b,0x0001 03da ; -------------------------------------------------------------------------------------- 03da ; Debug3 Subtable 0x3 03da ; -------------------------------------------------------------------------------------- 03da 0000 0001 | | .DBG3TAB 0x0000,0x0001 03dc 0073 0001 | s | .CONST 0x0073,0x0001 03de ; -------------------------------------------------------------------------------------- 03de ; Debug3 Subtable 0x4 03de ; -------------------------------------------------------------------------------------- 03de 0000 0006 | | .DBG3TAB 0x0000,0x0006 03e0 007b 0001 | { | .CONST 0x007b,0x0001 03e2 007e 0002 | ~ | .CONST 0x007e,0x0002 03e4 0080 0003 | | .CONST 0x0080,0x0003 03e6 0085 0004 | | .CONST 0x0085,0x0004 03e8 008c 0005 | | .CONST 0x008c,0x0005 03ea 0094 0006 | | .CONST 0x0094,0x0006 03ec ; -------------------------------------------------------------------------------------- 03ec ; Debug3 Subtable 0x5 03ec ; -------------------------------------------------------------------------------------- 03ec 0001 0004 | | .DBG3TAB 0x0001,0x0004 03ee 00a3 ffff | | .CONST 0x00a3,0xffff 03f0 00a4 0001 | | .CONST 0x00a4,0x0001 03f2 00ab 0002 | | .CONST 0x00ab,0x0002 03f4 00b3 0003 | | .CONST 0x00b3,0x0003 03f6 00b6 0004 | | .CONST 0x00b6,0x0004 03f8 ; -------------------------------------------------------------------------------------- 03f8 ; Debug3 Subtable 0x6 03f8 ; -------------------------------------------------------------------------------------- 03f8 0002 0006 | | .DBG3TAB 0x0002,0x0006 03fa 00c3 ffff | | .CONST 0x00c3,0xffff 03fc 00c4 fffe | | .CONST 0x00c4,0xfffe 03fe 00c5 0001 | | .CONST 0x00c5,0x0001 0400 00cc 0002 | | .CONST 0x00cc,0x0002 0402 00d5 0004 | | .CONST 0x00d5,0x0004 0404 00e5 0005 | | .CONST 0x00e5,0x0005 0406 00e9 0003 | | .CONST 0x00e9,0x0003 0408 00ef 0006 | | .CONST 0x00ef,0x0006 040a ; -------------------------------------------------------------------------------------- 040a ; Debug3 Subtable 0x7 040a ; -------------------------------------------------------------------------------------- 040a 0000 0000 | | .DBG3TAB 0x0000,0x0000 040c ; -------------------------------------------------------------------------------------- 040c ; Debug3 Subtable 0x8 040c ; -------------------------------------------------------------------------------------- 040c 0003 0004 | | .DBG3TAB 0x0003,0x0004 040e 0113 ffff | | .CONST 0x0113,0xffff 0410 0128 fffe | ( | .CONST 0x0128,0xfffe 0412 0137 fffd | 7 | .CONST 0x0137,0xfffd 0414 016d 0001 | m | .CONST 0x016d,0x0001 0416 016f 0002 | o | .CONST 0x016f,0x0002 0418 0173 0003 | s | .CONST 0x0173,0x0003 041a 0175 0004 | u | .CONST 0x0175,0x0004 041c ; -------------------------------------------------------------------------------------- 041c ; Debug3 Subtable 0x9 041c ; -------------------------------------------------------------------------------------- 041c 0000 0000 | | .DBG3TAB 0x0000,0x0000 041e ; -------------------------------------------------------------------------------------- 041e ; Debug3 Subtable 0xa 041e ; -------------------------------------------------------------------------------------- 041e 0004 0006 | | .DBG3TAB 0x0004,0x0006 0420 0190 ffff | | .CONST 0x0190,0xffff 0422 0195 fffe | | .CONST 0x0195,0xfffe 0424 0197 fffd | | .CONST 0x0197,0xfffd 0426 019c fffc | | .CONST 0x019c,0xfffc 0428 01ac 0001 | | .CONST 0x01ac,0x0001 042a 01ad 0002 | | .CONST 0x01ad,0x0002 042c 01b0 0003 | | .CONST 0x01b0,0x0003 042e 01b2 0004 | | .CONST 0x01b2,0x0004 0430 01b3 0005 | | .CONST 0x01b3,0x0005 0432 01b6 0006 | | .CONST 0x01b6,0x0006 0434 ; -------------------------------------------------------------------------------------- 0434 ; Debug3 Subtable 0xb 0434 ; -------------------------------------------------------------------------------------- 0434 0000 0009 | | .DBG3TAB 0x0000,0x0009 0436 01c6 0001 | | .CONST 0x01c6,0x0001 0438 01c9 0002 | | .CONST 0x01c9,0x0002 043a 01cb 0003 | | .CONST 0x01cb,0x0003 043c 01d1 0004 | | .CONST 0x01d1,0x0004 043e 01d6 0005 | | .CONST 0x01d6,0x0005 0440 01d9 0006 | | .CONST 0x01d9,0x0006 0442 01df 0007 | | .CONST 0x01df,0x0007 0444 01e1 0008 | | .CONST 0x01e1,0x0008 0446 01ed 0009 | | .CONST 0x01ed,0x0009 0448 ; -------------------------------------------------------------------------------------- 0448 ; Debug3 Subtable 0xc 0448 ; -------------------------------------------------------------------------------------- 0448 0000 0007 | | .DBG3TAB 0x0000,0x0007 044a 01f3 0001 | | .CONST 0x01f3,0x0001 044c 01f8 0002 | | .CONST 0x01f8,0x0002 044e 01ff 0003 | | .CONST 0x01ff,0x0003 0450 0202 0004 | | .CONST 0x0202,0x0004 0452 0208 0005 | | .CONST 0x0208,0x0005 0454 0216 0006 | | .CONST 0x0216,0x0006 0456 0218 0007 | | .CONST 0x0218,0x0007 0458 ; -------------------------------------------------------------------------------------- 0458 ; Debug3 Subtable 0xd 0458 ; -------------------------------------------------------------------------------------- 0458 0000 0001 | | .DBG3TAB 0x0000,0x0001 045a 0223 0001 | # | .CONST 0x0223,0x0001 045c ; -------------------------------------------------------------------------------------- 045c ; Debug3 Subtable 0xe 045c ; -------------------------------------------------------------------------------------- 045c 0000 0000 | | .DBG3TAB 0x0000,0x0000 045e ; -------------------------------------------------------------------------------------- 045e ; Debug3 Subtable 0xf 045e ; -------------------------------------------------------------------------------------- 045e 0007 0002 | | .DBG3TAB 0x0007,0x0002 0460 0234 ffff | 4 | .CONST 0x0234,0xffff 0462 0238 ffff | 8 | .CONST 0x0238,0xffff 0464 023a ffff | : | .CONST 0x023a,0xffff 0466 023b ffff | ; | .CONST 0x023b,0xffff 0468 023d ffff | = | .CONST 0x023d,0xffff 046a 023f ffff | ? | .CONST 0x023f,0xffff 046c 0241 ffff | A | .CONST 0x0241,0xffff 046e 024b 0001 | K | .CONST 0x024b,0x0001 0470 0257 0001 | W | .CONST 0x0257,0x0001 0472 ; -------------------------------------------------------------------------------------- 0472 ; Debug3 Subtable 0x10 0472 ; -------------------------------------------------------------------------------------- 0472 0001 0006 | | .DBG3TAB 0x0001,0x0006 0474 0263 ffff | c | .CONST 0x0263,0xffff 0476 0269 0001 | i | .CONST 0x0269,0x0001 0478 026b 0001 | k | .CONST 0x026b,0x0001 047a 026c 0001 | l | .CONST 0x026c,0x0001 047c 0270 0001 | p | .CONST 0x0270,0x0001 047e 0275 0001 | u | .CONST 0x0275,0x0001 0480 0277 0001 | w | .CONST 0x0277,0x0001 0482 ; -------------------------------------------------------------------------------------- 0482 ; Debug3 Subtable 0x11 0482 ; -------------------------------------------------------------------------------------- 0482 0001 0002 | | .DBG3TAB 0x0001,0x0002 0484 0283 ffff | | .CONST 0x0283,0xffff 0486 0284 0001 | | .CONST 0x0284,0x0001 0488 0289 0001 | | .CONST 0x0289,0x0001 048a ; -------------------------------------------------------------------------------------- 048a ; Debug3 Subtable 0x12 048a ; -------------------------------------------------------------------------------------- 048a 0000 0002 | | .DBG3TAB 0x0000,0x0002 048c 0293 0001 | | .CONST 0x0293,0x0001 048e 0296 0001 | | .CONST 0x0296,0x0001 0490 ; -------------------------------------------------------------------------------------- 0490 ; Debug3 Subtable 0x13 0490 ; -------------------------------------------------------------------------------------- 0490 0001 0004 | | .DBG3TAB 0x0001,0x0004 0492 029b ffff | | .CONST 0x029b,0xffff 0494 02a1 0001 | | .CONST 0x02a1,0x0001 0496 02a8 0001 | | .CONST 0x02a8,0x0001 0498 02aa 0001 | | .CONST 0x02aa,0x0001 049a 02ac 0001 | | .CONST 0x02ac,0x0001 049c ; -------------------------------------------------------------------------------------- 049c ; Debug3 Subtable 0x14 049c ; -------------------------------------------------------------------------------------- 049c 0001 0003 | | .DBG3TAB 0x0001,0x0003 049e 02bb ffff | | .CONST 0x02bb,0xffff 04a0 02c4 0001 | | .CONST 0x02c4,0x0001 04a2 02d1 0001 | | .CONST 0x02d1,0x0001 04a4 02d5 0001 | | .CONST 0x02d5,0x0001 04a6 ; -------------------------------------------------------------------------------------- 04a6 ; Debug3 Subtable 0x15 04a6 ; -------------------------------------------------------------------------------------- 04a6 0001 0002 | | .DBG3TAB 0x0001,0x0002 04a8 02db ffff | | .CONST 0x02db,0xffff 04aa 02e2 0001 | | .CONST 0x02e2,0x0001 04ac 02e4 0001 | | .CONST 0x02e4,0x0001 04ae 0000 0000 | | .BLANK 0000[0x152]