|
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, 5812_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_6148f2
└─⟦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 5812 |X | .CONST 0x5812 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 02c0 | | .CONST 0x02c0 ; 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 00a7 | | .CONST 0x00a7 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0039 | 9 | .CONST 0x0039 ; Number of locals 000b INIT_0008: 000b 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible ; Debug Table 0x0 = .DEBUG 0x000b,0x0362,0x0000,0x0000,0x004c,0x50d6,0x0000,0x0eaa ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 00c4 | | Action Make_Default ; Debug Table 0x0.0x1 = 0xc,0xfffe 000d 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xd,0xfffd 000f 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0xf,0xfffc 0011 629a |b | Indirect_Literal Discrete,0x2ac,{0x00000000, 0x4c50d608} ; Debug Table 0x0.0x4 = 0x11,0xfffb 0012 0129 | ) | Execute Any,Make_Visible 0013 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x13,0xfffa 0015 0007 | | Action Break_Optional ; Debug Table 0x0.0x6 = 0x15,0xfff9 0016 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x16,0xfff8 0018 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x0.0x8 = 0x18,0xfff7 0019 0129 | ) | Execute Any,Make_Visible 001a 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x1a,0xfff6 001c 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xa = 0x1c,0xfff5 001e 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xb = 0x1e,0xfff4 0020 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xc = 0x20,0xfff3 0022 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible ; Debug Table 0x0.0xd = 0x22,0xfff2 0023 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xe = 0x23,0xfff1 0025 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xf = 0x25,0xfff0 0027 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x10 = 0x27,0xffef 0029 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x11 = 0x29,0xffee 002b 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x12 = 0x2b,0xffed 002d 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x13 = 0x2d,0xffec 002f 6278 |bx | Indirect_Literal Discrete,0x2a8,{0x00000000, 0x4c50d609} ; Debug Table 0x0.0x14 = 0x2f,0xffeb 0030 0129 | ) | Execute Any,Make_Visible 0031 4804 |H | Short_Literal 0x4 ; Debug Table 0x0.0x15 = 0x31,0xffea 0032 032a | * | Declare_Type Record,Incomplete 0033 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x16 = 0x33,0xffe9 0034 02a0 | | Declare_Subprogram Null_Subprogram 0035 e20d | | Load 0x1,0xd 0036 03a3 | | Complete_Type Heap_Access,By_Defining 0037 0007 | | Action Break_Optional ; Debug Table 0x0.0x17 = 0x37,0xffe8 0038 e20d | | Load 0x1,0xd ; Debug Table 0x0.0x18 = 0x38,0xffe7 0039 0129 | ) | Execute Any,Make_Visible 003a c20e | | Store 0x1,0xe 003b 00e4 | | Load_Encached Positive_Cache ; Debug Table 0x0.0x19 = 0x3b,0xffe6 003c 00e3 | | Load_Encached Natural_Cache 003d 4800 |H | Short_Literal 0x0 003e 4802 |H | Short_Literal 0x2 003f 4802 |H | Short_Literal 0x2 0040 4807 |H | Short_Literal 0x7 0041 0318 | | Declare_Type Variant_Record,Incomplete 0042 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x1a = 0x42,0xffe5 0043 02a0 | | Declare_Subprogram Null_Subprogram 0044 e219 | | Load 0x1,0x19 0045 03a3 | | Complete_Type Heap_Access,By_Defining 0046 00bf | | Action Accept_Activation ; Debug Table 0x0.0x1b = 0x46,0xffe4 0047 03a5 | | Declare_Type Heap_Access,Indirect_Literal,Values_Relative ; Debug Table 0x1 = .DEBUG 0x0047,0x039c,0x0000,0x0000,0x004c,0x5836,0x0000,0x0004 ; Debug Table 0x1.0x0 = 0x47,0xffff 0048 e219 | | Load 0x1,0x19 0049 00d9 | | Load_Top At_Offset_1 004a 03a2 | | Complete_Type Heap_Access,By_Renaming 004b 0007 | | Action Break_Optional ; Debug Table 0x1.0x1 = 0x4b,0xfffe 004c 00e2 | | Load_Encached Integer_Cache ; Debug Table 0x1.0x2 = 0x4c,0xfffd 004d 00e3 | | Load_Encached Natural_Cache 004e 00da | | Load_Top At_Offset_2 004f 00e9 | | Load_Encached String_Cache 0050 00e9 | | Load_Encached String_Cache 0051 029f 024b | K| Declare_Subprogram INIT_0248,For_Call 0053 4800 |H | Short_Literal 0x0 0054 4802 |H | Short_Literal 0x2 0055 4803 |H | Short_Literal 0x3 0056 e222 | " | Load 0x1,0x22 0057 0307 | | Complete_Type Variant_Record,By_Defining 0058 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x3 = 0x58,0xfffc 0059 190f | | Execute Package,Field_Reference,Field_Number 0xf 005a 00c6 | | Action Check_Subprogram_Elaborated 005b 00d9 | | Load_Top At_Offset_1 005c 00d9 | | Load_Top At_Offset_1 005d 6246 |bF | Indirect_Literal Discrete,0x2a4,{0x00000000, 0x004c5836} 005e 483d |H= | Short_Literal 0x3d 005f 4800 |H | Short_Literal 0x0 0060 0007 | | Action Break_Optional 0061 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x4 = 0x61,0xfffb 0062 1910 | | Execute Package,Field_Reference,Field_Number 0x10 0063 00c6 | | Action Check_Subprogram_Elaborated 0064 e222 | " | Load 0x1,0x22 0065 e223 | # | Load 0x1,0x23 0066 623d |b= | Indirect_Literal Discrete,0x2a4,{0x00000000, 0x004c5836} 0067 4848 |HH | Short_Literal 0x48 0068 4800 |H | Short_Literal 0x0 0069 0007 | | Action Break_Optional 006a 00e2 | | Load_Encached Integer_Cache ; Debug Table 0x1.0x5 = 0x6a,0xfffa 006b e223 | # | Load 0x1,0x23 006c e002 | | Load 0x0,0x2 006d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 006e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 006f e002 | | Load 0x0,0x2 0070 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0071 029f 027b | {| Declare_Subprogram INIT_0278,For_Call 0073 e221 | ! | Load 0x1,0x21 0074 0326 | & | Complete_Type Record,By_Defining 0075 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x6 = 0x75,0xfff9 0076 190f | | Execute Package,Field_Reference,Field_Number 0xf 0077 00c6 | | Action Check_Subprogram_Elaborated 0078 e221 | ! | Load 0x1,0x21 0079 e20d | | Load 0x1,0xd 007a 6229 |b) | Indirect_Literal Discrete,0x2a4,{0x00000000, 0x004c5836} 007b 486e |Hn | Short_Literal 0x6e 007c 4800 |H | Short_Literal 0x0 007d 0007 | | Action Break_Optional 007e e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x7 = 0x7e,0xfff8 007f 1910 | | Execute Package,Field_Reference,Field_Number 0x10 0080 00c6 | | Action Check_Subprogram_Elaborated 0081 e221 | ! | Load 0x1,0x21 0082 e20d | | Load 0x1,0xd 0083 6220 |b | Indirect_Literal Discrete,0x2a4,{0x00000000, 0x004c5836} 0084 4879 |Hy | Short_Literal 0x79 0085 4800 |H | Short_Literal 0x0 0086 0007 | | Action Break_Optional 0087 029d 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call ; Debug Table 0x1.0x8 = 0x87,0xfff7 0089 029d 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call ; Debug Table 0x1.0x9 = 0x89,0xfff6 008b 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0xa = 0x8b,0xfff5 008c 00c7 | | Action Elaborate_Subprogram 008d 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0xb = 0x8d,0xfff4 008e 00c7 | | Action Elaborate_Subprogram 008f 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0xc = 0x8f,0xfff3 0090 00c7 | | Action Elaborate_Subprogram 0091 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0xd = 0x91,0xfff2 0092 00c7 | | Action Elaborate_Subprogram 0093 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0xe = 0x93,0xfff1 0094 00c7 | | Action Elaborate_Subprogram 0095 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0xf = 0x95,0xfff0 0096 00c7 | | Action Elaborate_Subprogram 0097 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x1.0x10 = 0x97,0xffef 0098 00c7 | | Action Elaborate_Subprogram 0099 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0x1.0x11 = 0x99,0xffee 009a 00c7 | | Action Elaborate_Subprogram 009b 1d1a | | Execute_Immediate Reference_Lex_1,0x1a ; Debug Table 0x1.0x12 = 0x9b,0xffed 009c 00c7 | | Action Elaborate_Subprogram 009d 1d1b | | Execute_Immediate Reference_Lex_1,0x1b ; Debug Table 0x1.0x13 = 0x9d,0xffec 009e 00c7 | | Action Elaborate_Subprogram 009f 1d1c | | Execute_Immediate Reference_Lex_1,0x1c ; Debug Table 0x1.0x14 = 0x9f,0xffeb 00a0 00c7 | | Action Elaborate_Subprogram 00a1 1d1d | | Execute_Immediate Reference_Lex_1,0x1d ; Debug Table 0x1.0x15 = 0xa1,0xffea 00a2 00c7 | | Action Elaborate_Subprogram 00a3 1d1e | | Execute_Immediate Reference_Lex_1,0x1e ; Debug Table 0x1.0x16 = 0xa3,0xffe9 00a4 00c7 | | Action Elaborate_Subprogram 00a5 1d1f | | Execute_Immediate Reference_Lex_1,0x1f ; Debug Table 0x1.0x17 = 0xa5,0xffe8 00a6 00c7 | | Action Elaborate_Subprogram 00a7 BODY_0008: 00a7 00bc | | Action Signal_Activated 00a8 00bb | | Action Signal_Completion 00a9 0000 0000 | | .BLANK 0000[0x7] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b7 | | .CONST 0x00b7 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0002 | | .CONST 0x0002 ; Number of locals 00b3 INIT_00b0: 00b3 e221 | ! | Load 0x1,0x21 ; Debug Table 0x2 = .DEBUG 0x00b3,0x03ce,0x0001,0x0000,0x004c,0x50d6,0x0000,0x0eb3 ; Debug Table 0x2.0x0 = 0xb3,0xffff 00b4 0322 | " | Declare_Variable Record 00b5 00d8 | | Load_Top At_Offset_0 00b6 1c00 | | Execute_Immediate Run_Utility,0x0 00b7 BODY_00b0: 00b7 e5fe | | Load 0x2,-0x2 ; Debug Table 0x2.0x1 = 0xb7,0x1 00b8 6809 |h | Jump_Zero 0xc2 00b9 e5fe | | Load 0x2,-0x2 00ba 0217 | | Execute Heap_Access,All_Reference 00bb 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00bc 61e3 |a | Indirect_Literal Discrete,0x2a0,{0x00000000, 0x0013e958} 00bd 027f | | Execute Discrete,Equal 00be 6803 |h | Jump_Zero 0xc2 00bf e5fe | | Load 0x2,-0x2 ; Debug Table 0x2.0x2 = 0xbf,0x2 00c0 8210 | | Call 0x1,0x10 00c1 c5fe | | Store 0x2,-0x2 00c2 00db | | Load_Top At_Offset_3 ; Debug Table 0x2.0x3 = 0xc2,0x3 00c3 00d9 | | Load_Top At_Offset_1 00c4 e22e | . | Load 0x1,0x2e 00c5 e22f | / | Load 0x1,0x2f 00c6 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 00c7 e001 | | Load 0x0,0x1 00c8 180f | | Execute Package,Field_Execute,Field_Number 0xf 00c9 a5fe | | Store_Unchecked 0x2,-0x2 00ca e5fe | | Load 0x2,-0x2 ; Debug Table 0x2.0x4 = 0xca,0x4 00cb 0219 | | Execute Heap_Access,All_Read 00cc 00d8 | | Load_Top At_Offset_0 00cd 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00ce e5ff | | Load 0x2,-0x1 00cf e002 | | Load 0x0,0x2 00d0 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00d1 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00d2 00d9 | | Load_Top At_Offset_1 00d3 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00d4 00d1 | | Pop_Control Pop_Count_1 00d5 00db | | Load_Top At_Offset_3 ; Debug Table 0x2.0x5 = 0xd5,0x5 00d6 e5fe | | Load 0x2,-0x2 00d7 0217 | | Execute Heap_Access,All_Reference 00d8 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 00d9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00da 0000 0000 | | .BLANK 0000[0x6] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e7 | | .CONST 0x00e7 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0003 | | .CONST 0x0003 ; Number of locals 00e3 INIT_00e0: 00e3 e223 | # | Load 0x1,0x23 ; Debug Table 0x3 = .DEBUG 0x00e3,0x03dc,0x0001,0x0000,0x004c,0x50d6,0x0000,0x0ebf ; Debug Table 0x3.0x0 = 0xe3,0xffff 00e4 0007 | | Action Break_Optional 00e5 e223 | # | Load 0x1,0x23 ; Debug Table 0x3.0x1 = 0xe5,0xfffe 00e6 0007 | | Action Break_Optional 00e7 BODY_00e0: 00e7 e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x2 = 0xe7,0x1 00e8 7001 |p | Jump_Nonzero 0xea 00e9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; Debug Table 0x3.0x3 = 0xe9,0x2 00ea e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x4 = 0xea,0x3 00eb 0217 | | Execute Heap_Access,All_Reference 00ec 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00ed 0032 | 2 | Store_Top Heap_Access,At_Offset_2 00ee 00cf | | Action Mark_Auxiliary 00ef 7812 |x | Jump 0x102 00f0 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x5 = 0xf0,0x5 00f1 0217 | | Execute Heap_Access,All_Reference 00f2 2c05 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5 00f3 0032 | 2 | Store_Top Heap_Access,At_Offset_2 00f4 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x6 = 0xf4,0x6 00f5 00db | | Load_Top At_Offset_3 00f6 0217 | | Execute Heap_Access,All_Reference 00f7 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 00f8 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x7 = 0xf8,0x7 00f9 e229 | ) | Load 0x1,0x29 00fa e22a | * | Load 0x1,0x2a 00fb 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b 00fc e001 | | Load 0x0,0x1 00fd 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00fe 0033 | 3 | Store_Top Heap_Access,At_Offset_3 00ff 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x8 = 0xff,0x8 0100 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0101 00c9 | | Action Pop_Auxiliary_Loop 0102 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x9 = 0x102,0x4 0103 77ec |w | Jump_Nonzero 0xf0 0104 00ce | | Action Pop_Auxiliary 0105 e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0xa = 0x105,0x9 0106 0219 | | Execute Heap_Access,All_Read 0107 00d8 | | Load_Top At_Offset_0 0108 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0109 4801 |H | Short_Literal 0x1 010a e002 | | Load 0x0,0x2 010b 1b13 | | Execute Package,Field_Read,Field_Number 0x13 010c 1812 | | Execute Package,Field_Execute,Field_Number 0x12 010d 00d9 | | Load_Top At_Offset_1 010e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 010f 00d1 | | Pop_Control Pop_Count_1 0110 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0xb = 0x110,0xa 0111 e5ff | | Load 0x2,-0x1 0112 0217 | | Execute Heap_Access,All_Reference 0113 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0114 e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0xc = 0x114,0xb 0115 e233 | 3 | Load 0x1,0x33 0116 e234 | 4 | Load 0x1,0x34 0117 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35 0118 e001 | | Load 0x0,0x1 0119 1810 | | Execute Package,Field_Execute,Field_Number 0x10 011a c5ff | | Store 0x2,-0x1 011b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 011c 0000 0000 | | .BLANK 0000[0x4] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0123 | # | .CONST 0x0123 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0001 | | .CONST 0x0001 ; Number of locals 0123 BODY_0120: 0123 INIT_0120: 0123 00da | | Load_Top At_Offset_2 ; Debug Table 0x4 = .DEBUG 0x0123,0x03f8,0x0002,0x0000,0x004c,0x50d6,0x0000,0x0eca ; Debug Table 0x4.0x0 = 0x123,0x1 0124 8238 | 8 | Call 0x1,0x38 0125 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0x1 = 0x125,0x2 0126 0217 | | Execute Heap_Access,All_Reference 0127 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0128 021d | | Execute Heap_Access,Is_Null 0129 4800 |H | Short_Literal 0x0 012a e5ff | | Load 0x2,-0x1 012b 0217 | | Execute Heap_Access,All_Reference 012c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 012d e002 | | Load 0x0,0x2 012e 1b13 | | Execute Package,Field_Read,Field_Number 0x13 012f 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0130 0279 | y | Execute Discrete,And 0131 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0132 0000 0000 | | .BLANK 0000[0x6] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 014c | L | .CONST 0x014c ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0005 | | .CONST 0x0005 ; Number of locals 013b INIT_0138: 013b e223 | # | Load 0x1,0x23 ; Debug Table 0x5 = .DEBUG 0x013b,0x03fe,0x0001,0x0000,0x004c,0x50d6,0x0000,0x0ed9 ; Debug Table 0x5.0x0 = 0x13b,0xffff 013c e5fc | | Load 0x2,-0x4 013d 0217 | | Execute Heap_Access,All_Reference 013e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 013f 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0140 e223 | # | Load 0x1,0x23 ; Debug Table 0x5.0x1 = 0x140,0xfffe 0141 0007 | | Action Break_Optional 0142 e223 | # | Load 0x1,0x23 ; Debug Table 0x5.0x2 = 0x142,0xfffd 0143 0007 | | Action Break_Optional 0144 e5ff | | Load 0x2,-0x1 ; Debug Table 0x5.0x3 = 0x144,0xfffc 0145 01db | | Execute Vector,Length 0146 e5fe | | Load 0x2,-0x2 0147 01db | | Execute Vector,Length 0148 e222 | " | Load 0x1,0x22 0149 1c08 | | Execute_Immediate Run_Utility,0x8 014a 00d8 | | Load_Top At_Offset_0 014b 1c00 | | Execute_Immediate Run_Utility,0x0 014c BODY_0138: 014c e5fc | | Load 0x2,-0x4 ; Debug Table 0x5.0x4 = 0x14c,0x1 014d 8238 | 8 | Call 0x1,0x38 014e e5ff | | Load 0x2,-0x1 ; Debug Table 0x5.0x5 = 0x14e,0x2 014f 00d9 | | Load_Top At_Offset_1 0150 2906 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x6 0151 e5fe | | Load 0x2,-0x2 ; Debug Table 0x5.0x6 = 0x151,0x3 0152 00d9 | | Load_Top At_Offset_1 0153 2907 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x7 0154 e5fd | | Load 0x2,-0x3 ; Debug Table 0x5.0x7 = 0x154,0x4 0155 00d9 | | Load_Top At_Offset_1 0156 2804 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4 0157 e5fc | | Load 0x2,-0x4 ; Debug Table 0x5.0x8 = 0x157,0x5 0158 0217 | | Execute Heap_Access,All_Reference 0159 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 015a 00d9 | | Load_Top At_Offset_1 015b e224 | $ | Load 0x1,0x24 015c e225 | % | Load 0x1,0x25 015d 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 015e e001 | | Load 0x0,0x1 015f 180f | | Execute Package,Field_Execute,Field_Number 0xf 0160 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0161 00db | | Load_Top At_Offset_3 ; Debug Table 0x5.0x9 = 0x161,0x6 0162 7005 |p | Jump_Nonzero 0x168 0163 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x5.0xa = 0x163,0x7 0164 e5fc | | Load 0x2,-0x4 0165 0217 | | Execute Heap_Access,All_Reference 0166 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0167 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; Debug Table 0x5.0xb = 0x167,0x8 0168 00cf | | Action Mark_Auxiliary 0169 7807 |x | Jump 0x171 016a e402 | | Load 0x2,0x2 ; Debug Table 0x5.0xc = 0x16a,0xa 016b a403 | | Store_Unchecked 0x2,0x3 016c e402 | | Load 0x2,0x2 ; Debug Table 0x5.0xd = 0x16c,0xb 016d 0217 | | Execute Heap_Access,All_Reference 016e 2c05 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5 016f a402 | | Store_Unchecked 0x2,0x2 0170 00c9 | | Action Pop_Auxiliary_Loop 0171 e402 | | Load 0x2,0x2 ; Debug Table 0x5.0xe = 0x171,0x9 0172 6806 |h | Jump_Zero 0x179 0173 e5fd | | Load 0x2,-0x3 0174 e402 | | Load 0x2,0x2 0175 0217 | | Execute Heap_Access,All_Reference 0176 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4 0177 027d | } | Execute Discrete,Greater 0178 77f1 |w | Jump_Nonzero 0x16a 0179 00ce | | Action Pop_Auxiliary 017a 00db | | Load_Top At_Offset_3 ; Debug Table 0x5.0xf = 0x17a,0xc 017b 7005 |p | Jump_Nonzero 0x181 017c 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x5.0x10 = 0x17c,0xd 017d 00db | | Load_Top At_Offset_3 017e 0217 | | Execute Heap_Access,All_Reference 017f 2805 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5 0180 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0181 00db | | Load_Top At_Offset_3 ; Debug Table 0x5.0x11 = 0x181,0xe 0182 00da | | Load_Top At_Offset_2 0183 0217 | | Execute Heap_Access,All_Reference 0184 2805 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5 0185 00da | | Load_Top At_Offset_2 ; Debug Table 0x5.0x12 = 0x185,0xf 0186 7005 |p | Jump_Nonzero 0x18c 0187 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x5.0x13 = 0x187,0x10 0188 e5fc | | Load 0x2,-0x4 0189 0217 | | Execute Heap_Access,All_Reference 018a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 018b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 018c 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x5.0x14 = 0x18c,0x11 018d 00db | | Load_Top At_Offset_3 018e 0217 | | Execute Heap_Access,All_Reference 018f 2805 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5 0190 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0191 0000 0000 | | .BLANK 0000[0x7] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019d | | .CONST 0x019d ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0002 | | .CONST 0x0002 ; Number of locals 019b INIT_0198: 019b e219 | | Load 0x1,0x19 ; Debug Table 0x6 = .DEBUG 0x019b,0x042a,0x0001,0x0000,0x004c,0x50d6,0x0000,0x0f04 ; Debug Table 0x6.0x0 = 0x19b,0xffff 019c 0007 | | Action Break_Optional 019d BODY_0198: 019d 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0x1 = 0x19d,0x1 019e 8238 | 8 | Call 0x1,0x38 019f e5fe | | Load 0x2,-0x2 ; Debug Table 0x6.0x2 = 0x19f,0x2 01a0 8238 | 8 | Call 0x1,0x38 01a1 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x3 = 0x1a1,0x3 01a2 e5ff | | Load 0x2,-0x1 01a3 821a | | Call 0x1,0x1a 01a4 0031 | 1 | Store_Top Heap_Access,At_Offset_1 01a5 00cf | | Action Mark_Auxiliary 01a6 780d |x | Jump 0x1b4 01a7 e5fe | | Load 0x2,-0x2 ; Debug Table 0x6.0x4 = 0x1a7,0x5 01a8 00da | | Load_Top At_Offset_2 01a9 821d | | Call 0x1,0x1d 01aa 00db | | Load_Top At_Offset_3 01ab 821c | | Call 0x1,0x1c 01ac e402 | | Load 0x2,0x2 01ad 821b | | Call 0x1,0x1b 01ae 8213 | | Call 0x1,0x13 01af c5fe | | Store 0x2,-0x2 01b0 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x6.0x5 = 0x1b0,0x6 01b1 821e | | Call 0x1,0x1e 01b2 0032 | 2 | Store_Top Heap_Access,At_Offset_2 01b3 00c9 | | Action Pop_Auxiliary_Loop 01b4 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x6.0x6 = 0x1b4,0x4 01b5 821f | | Call 0x1,0x1f 01b6 6ff0 |o | Jump_Zero 0x1a7 01b7 00ce | | Action Pop_Auxiliary 01b8 e5fe | | Load 0x2,-0x2 ; Debug Table 0x6.0x7 = 0x1b8,0x7 01b9 e5ff | | Load 0x2,-0x1 01ba 8217 | | Call 0x1,0x17 01bb 8216 | | Call 0x1,0x16 01bc c5fe | | Store 0x2,-0x2 01bd 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01be 0000 0000 | | .XXX[0x2] 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 00db | | Load_Top At_Offset_3 ; Debug Table 0x7 = .DEBUG 0x01c3,0x043c,0x0001,0x0000,0x004c,0x50d6,0x0000,0x0f10 ; Debug Table 0x7.0x0 = 0x1c3,0x1 01c4 8238 | 8 | Call 0x1,0x38 01c5 00db | | Load_Top At_Offset_3 ; Debug Table 0x7.0x1 = 0x1c5,0x2 01c6 0219 | | Execute Heap_Access,All_Read 01c7 00d8 | | Load_Top At_Offset_0 01c8 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01c9 4801 |H | Short_Literal 0x1 01ca e5ff | | Load 0x2,-0x1 01cb e002 | | Load 0x0,0x2 01cc 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01cd 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01ce 00d9 | | Load_Top At_Offset_1 01cf 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01d0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01d1 0000 0000 | | .BLANK 0000[0x7] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01db | | .CONST 0x01db ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0001 | | .CONST 0x0001 ; Number of locals 01db BODY_01d8: 01db INIT_01d8: 01db 00da | | Load_Top At_Offset_2 ; Debug Table 0x8 = .DEBUG 0x01db,0x0442,0x0002,0x0000,0x004c,0x50d6,0x0000,0x0f1e ; Debug Table 0x8.0x0 = 0x1db,0x1 01dc 8238 | 8 | Call 0x1,0x38 01dd 00da | | Load_Top At_Offset_2 ; Debug Table 0x8.0x1 = 0x1dd,0x2 01de 0217 | | Execute Heap_Access,All_Reference 01df 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01e0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01e1 0000 0000 | | .BLANK 0000[0x7] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01eb | | .CONST 0x01eb ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0001 | | .CONST 0x0001 ; Number of locals 01eb BODY_01e8: 01eb INIT_01e8: 01eb 00da | | Load_Top At_Offset_2 ; Debug Table 0x9 = .DEBUG 0x01eb,0x0448,0x0001,0x0000,0x004c,0x50d6,0x0000,0x0f29 ; Debug Table 0x9.0x0 = 0x1eb,0x1 01ec 8238 | 8 | Call 0x1,0x38 01ed 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0x1 = 0x1ed,0x2 01ee 00db | | Load_Top At_Offset_3 01ef 0217 | | Execute Heap_Access,All_Reference 01f0 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01f1 e002 | | Load 0x0,0x2 01f2 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01f3 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01f4 c5fe | | Store 0x2,-0x2 01f5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01f6 0000 0000 | | .XXX[0x2] 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 01fb | | .CONST 0x01fb ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0001 | | .CONST 0x0001 ; Number of locals 01fb BODY_01f8: 01fb INIT_01f8: 01fb 00da | | Load_Top At_Offset_2 ; Debug Table 0xa = .DEBUG 0x01fb,0x044e,0x0001,0x0000,0x004c,0x50d6,0x0000,0x0f3b ; Debug Table 0xa.0x0 = 0x1fb,0x1 01fc 8238 | 8 | Call 0x1,0x38 01fd 00da | | Load_Top At_Offset_2 ; Debug Table 0xa.0x1 = 0x1fd,0x2 01fe 0217 | | Execute Heap_Access,All_Reference 01ff 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0200 a5fe | | Store_Unchecked 0x2,-0x2 0201 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0202 0000 0000 | | .BLANK 0000[0x6] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 020b | | .CONST 0x020b ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0001 | | .CONST 0x0001 ; Number of locals 020b BODY_0208: 020b INIT_0208: 020b 00da | | Load_Top At_Offset_2 ; Debug Table 0xb = .DEBUG 0x020b,0x0454,0x0002,0x0000,0x004c,0x50d6,0x0000,0x0f47 ; Debug Table 0xb.0x0 = 0x20b,0x1 020c 8239 | 9 | Call 0x1,0x39 020d 00da | | Load_Top At_Offset_2 ; Debug Table 0xb.0x1 = 0x20d,0x2 020e 0217 | | Execute Heap_Access,All_Reference 020f 2506 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x6 0210 0335 | 5 | Declare_Variable Array,Duplicate 0211 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0212 0000 0000 | | .BLANK 0000[0x6] 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 021b | | .CONST 0x021b ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 0001 | | .CONST 0x0001 ; Number of locals 021b BODY_0218: 021b INIT_0218: 021b 00da | | Load_Top At_Offset_2 ; Debug Table 0xc = .DEBUG 0x021b,0x045a,0x0002,0x0000,0x004c,0x50d6,0x0000,0x0f50 ; Debug Table 0xc.0x0 = 0x21b,0x1 021c 8239 | 9 | Call 0x1,0x39 021d 00da | | Load_Top At_Offset_2 ; Debug Table 0xc.0x1 = 0x21d,0x2 021e 0217 | | Execute Heap_Access,All_Reference 021f 2507 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x7 0220 0335 | 5 | Declare_Variable Array,Duplicate 0221 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0222 0000 0000 | | .BLANK 0000[0x6] 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 022b | + | .CONST 0x022b ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0001 | | .CONST 0x0001 ; Number of locals 022b BODY_0228: 022b INIT_0228: 022b 00da | | Load_Top At_Offset_2 ; Debug Table 0xd = .DEBUG 0x022b,0x0460,0x0002,0x0000,0x004c,0x50d6,0x0000,0x0f59 ; Debug Table 0xd.0x0 = 0x22b,0x1 022c 0217 | | Execute Heap_Access,All_Reference 022d 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4 022e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 022f 0000 | | .XXX[0x1] 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 0233 | 3 | .CONST 0x0233 ; Address of begin 0231 0004 | | .CONST 0x0004 ; Address of exception handler 0232 0001 | | .CONST 0x0001 ; Number of locals 0233 BODY_0230: 0233 INIT_0230: 0233 00da | | Load_Top At_Offset_2 ; Debug Table 0xe = .DEBUG 0x0233,0x0464,0x0001,0x0000,0x004c,0x50d6,0x0000,0x0f62 ; Debug Table 0xe.0x0 = 0x233,0x1 0234 8239 | 9 | Call 0x1,0x39 0235 00da | | Load_Top At_Offset_2 ; Debug Table 0xe.0x1 = 0x235,0x2 0236 0217 | | Execute Heap_Access,All_Reference 0237 2c05 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5 0238 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0239 4501 |E | Exit_Suprogram New_Top_Offset 0x1 023a 0000 0000 | | .BLANK 0000[0x6] 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0243 | C | .CONST 0x0243 ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0001 | | .CONST 0x0001 ; Number of locals 0243 BODY_0240: 0243 INIT_0240: 0243 00da | | Load_Top At_Offset_2 ; Debug Table 0xf = .DEBUG 0x0243,0x046a,0x0002,0x0000,0x004c,0x50d6,0x0000,0x0f6a ; Debug Table 0xf.0x0 = 0x243,0x1 0244 021d | | Execute Heap_Access,Is_Null 0245 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0246 0000 0000 | | .XXX[0x2] 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 024b | K | .CONST 0x024b ; Address of begin 0249 0004 | | .CONST 0x0004 ; Address of exception handler 024a 0001 | | .CONST 0x0001 ; Number of locals 024b BODY_0248: 024b INIT_0248: 024b 4608 |F | Jump_Case 0x9 ; Debug Table 0x10 = .DEBUG 0x024b,0x046e,0x0005,0x0000,0x004c,0x5836,0x0000,0x000f 024c 7808 |x | Jump 0x255 ; case 0x0 024d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 024e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 024f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 0250 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 0251 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 0252 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6 0253 7805 |x | Jump 0x259 ; case 0x7 0254 7812 |x | Jump 0x267 ; case 0x8 0255 604a |`J | Indirect_Literal Discrete,0x2a0,{0x00000000, 0x0013e958} 0256 00db | | Load_Top At_Offset_3 0257 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 0258 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0259 e5fd | | Load 0x2,-0x3 025a e5fe | | Load 0x2,-0x2 025b 4801 |H | Short_Literal 0x1 025c e5fd | | Load 0x2,-0x3 025d 00e9 | | Load_Encached String_Cache 025e 035b | [ | Declare_Type Array,Constrained 025f 4801 |H | Short_Literal 0x1 0260 e5fe | | Load 0x2,-0x2 0261 00e9 | | Load_Encached String_Cache 0262 035b | [ | Declare_Type Array,Constrained 0263 4802 |H | Short_Literal 0x2 0264 e5ff | | Load 0x2,-0x1 0265 031b | | Declare_Type Variant_Record,Constrained 0266 4203 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x3 0267 e5fd | | Load 0x2,-0x3 0268 e5fe | | Load 0x2,-0x2 0269 e5ff | | Load 0x2,-0x1 026a 02fc | | Declare_Variable Variant_Record,With_Constraint 026b 4801 |H | Short_Literal 0x1 026c e5fd | | Load 0x2,-0x3 026d 00e9 | | Load_Encached String_Cache 026e 0334 | 4 | Declare_Variable Array,With_Constraint 026f 2d06 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x6 0270 4801 |H | Short_Literal 0x1 0271 e5fe | | Load 0x2,-0x2 0272 00e9 | | Load_Encached String_Cache 0273 0334 | 4 | Declare_Variable Array,With_Constraint 0274 2d07 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x7 0275 016a | j | QQ_execute Variant_Record,XXX 0276 4203 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x3 0277 0000 | | .XXX[0x1] 0278 ; -------------------------------------------------------------------------------------- 0278 ; SUBPROGRAM 0278 ; -------------------------------------------------------------------------------------- 0278 027b | { | .CONST 0x027b ; Address of begin 0279 0004 | | .CONST 0x0004 ; Address of exception handler 027a 0001 | | .CONST 0x0001 ; Number of locals 027b BODY_0278: 027b INIT_0278: 027b 4608 |F | Jump_Case 0x9 ; Debug Table 0x11 = .DEBUG 0x027b,0x0470,0x0005,0x0000,0x004c,0x5836,0x0000,0x0053 027c 7808 |x | Jump 0x285 ; case 0x0 027d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 027e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 027f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 0280 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 0281 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 0282 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6 0283 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7 0284 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8 0285 601a |` | Indirect_Literal Discrete,0x2a0,{0x00000000, 0x0013e958} 0286 00db | | Load_Top At_Offset_3 0287 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0288 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0289 0000 0000 | | .BLANK 0000[0x7] 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,0x0472,0x0001,0x0000,0x004c,0x5836,0x0000,0x0084 ; Debug Table 0x12.0x0 = 0x293,0x1 0294 e20d | | Load 0x1,0xd 0295 021f | | Execute Heap_Access,Equal 0296 7006 |p | Jump_Nonzero 0x29d 0297 00da | | Load_Top At_Offset_2 0298 0217 | | Execute Heap_Access,All_Reference 0299 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 029a 6005 |` | Indirect_Literal Discrete,0x2a0,{0x00000000, 0x0013e958} 029b 027e | ~ | Execute Discrete,Not_Equal 029c 6802 |h | Jump_Zero 0x29f 029d e211 | | Load 0x1,0x11 ; Debug Table 0x12.0x1 = 0x29d,0x2 029e 0257 | W | Execute Discrete,Raise 029f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02a0 0000 0000 | | .LITERAL {0x00000000, 0x0013e958} 02a4 0000 0000 | | .LITERAL {0x00000000, 0x004c5836} 02a8 0000 0000 | | .LITERAL {0x00000000, 0x4c50d609} 02ac 0000 0000 | | .LITERAL {0x00000000, 0x4c50d608} 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02b3 | | .CONST 0x02b3 ; Address of begin 02b1 0004 | | .CONST 0x0004 ; Address of exception handler 02b2 0001 | | .CONST 0x0001 ; Number of locals 02b3 BODY_02b0: 02b3 INIT_02b0: 02b3 00da | | Load_Top At_Offset_2 ; Debug Table 0x13 = .DEBUG 0x02b3,0x0478,0x0001,0x0000,0x004c,0x5836,0x0000,0x00a3 ; Debug Table 0x13.0x0 = 0x2b3,0x1 02b4 6806 |h | Jump_Zero 0x2bb 02b5 00da | | Load_Top At_Offset_2 02b6 0217 | | Execute Heap_Access,All_Reference 02b7 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 02b8 67e7 |g | Indirect_Literal Discrete,0x2a0,{0x00000000, 0x0013e958} 02b9 027e | ~ | Execute Discrete,Not_Equal 02ba 6802 |h | Jump_Zero 0x2bd 02bb e220 | | Load 0x1,0x20 ; Debug Table 0x13.0x1 = 0x2bb,0x2 02bc 0257 | W | Execute Discrete,Raise 02bd 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02be 0000 0000 | | .XXX[0x2] 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; Debug Table 02c0 ; -------------------------------------------------------------------------------------- 02c0 0003 0014 | | .CONST 0x0003,0x0014 02c2 000b 0362 | b| .DEBUG 0x000b,0x0362,0x0000,0x0000,0x004c,0x50d6,0x0000,0x0eaa 02ca 0047 039c | G | .DEBUG 0x0047,0x039c,0x0000,0x0000,0x004c,0x5836,0x0000,0x0004 02d2 00b3 03ce | | .DEBUG 0x00b3,0x03ce,0x0001,0x0000,0x004c,0x50d6,0x0000,0x0eb3 02da 00e3 03dc | | .DEBUG 0x00e3,0x03dc,0x0001,0x0000,0x004c,0x50d6,0x0000,0x0ebf 02e2 0123 03f8 | # | .DEBUG 0x0123,0x03f8,0x0002,0x0000,0x004c,0x50d6,0x0000,0x0eca 02ea 013b 03fe | ; | .DEBUG 0x013b,0x03fe,0x0001,0x0000,0x004c,0x50d6,0x0000,0x0ed9 02f2 019b 042a | *| .DEBUG 0x019b,0x042a,0x0001,0x0000,0x004c,0x50d6,0x0000,0x0f04 02fa 01c3 043c | <| .DEBUG 0x01c3,0x043c,0x0001,0x0000,0x004c,0x50d6,0x0000,0x0f10 0302 01db 0442 | B| .DEBUG 0x01db,0x0442,0x0002,0x0000,0x004c,0x50d6,0x0000,0x0f1e 030a 01eb 0448 | H| .DEBUG 0x01eb,0x0448,0x0001,0x0000,0x004c,0x50d6,0x0000,0x0f29 0312 01fb 044e | N| .DEBUG 0x01fb,0x044e,0x0001,0x0000,0x004c,0x50d6,0x0000,0x0f3b 031a 020b 0454 | T| .DEBUG 0x020b,0x0454,0x0002,0x0000,0x004c,0x50d6,0x0000,0x0f47 0322 021b 045a | Z| .DEBUG 0x021b,0x045a,0x0002,0x0000,0x004c,0x50d6,0x0000,0x0f50 032a 022b 0460 | + `| .DEBUG 0x022b,0x0460,0x0002,0x0000,0x004c,0x50d6,0x0000,0x0f59 0332 0233 0464 | 3 d| .DEBUG 0x0233,0x0464,0x0001,0x0000,0x004c,0x50d6,0x0000,0x0f62 033a 0243 046a | C j| .DEBUG 0x0243,0x046a,0x0002,0x0000,0x004c,0x50d6,0x0000,0x0f6a 0342 024b 046e | K n| .DEBUG 0x024b,0x046e,0x0005,0x0000,0x004c,0x5836,0x0000,0x000f 034a 027b 0470 | { p| .DEBUG 0x027b,0x0470,0x0005,0x0000,0x004c,0x5836,0x0000,0x0053 0352 0293 0472 | r| .DEBUG 0x0293,0x0472,0x0001,0x0000,0x004c,0x5836,0x0000,0x0084 035a 02b3 0478 | x| .DEBUG 0x02b3,0x0478,0x0001,0x0000,0x004c,0x5836,0x0000,0x00a3 0362 ; -------------------------------------------------------------------------------------- 0362 ; Debug3 Subtable 0x0 0362 ; -------------------------------------------------------------------------------------- 0362 001c 0000 | | .DBG3TAB 0x001c,0x0000 0364 000b ffff | | .CONST 0x000b,0xffff 0366 000c fffe | | .CONST 0x000c,0xfffe 0368 000d fffd | | .CONST 0x000d,0xfffd 036a 000f fffc | | .CONST 0x000f,0xfffc 036c 0011 fffb | | .CONST 0x0011,0xfffb 036e 0013 fffa | | .CONST 0x0013,0xfffa 0370 0015 fff9 | | .CONST 0x0015,0xfff9 0372 0016 fff8 | | .CONST 0x0016,0xfff8 0374 0018 fff7 | | .CONST 0x0018,0xfff7 0376 001a fff6 | | .CONST 0x001a,0xfff6 0378 001c fff5 | | .CONST 0x001c,0xfff5 037a 001e fff4 | | .CONST 0x001e,0xfff4 037c 0020 fff3 | | .CONST 0x0020,0xfff3 037e 0022 fff2 | " | .CONST 0x0022,0xfff2 0380 0023 fff1 | # | .CONST 0x0023,0xfff1 0382 0025 fff0 | % | .CONST 0x0025,0xfff0 0384 0027 ffef | ' | .CONST 0x0027,0xffef 0386 0029 ffee | ) | .CONST 0x0029,0xffee 0388 002b ffed | + | .CONST 0x002b,0xffed 038a 002d ffec | - | .CONST 0x002d,0xffec 038c 002f ffeb | / | .CONST 0x002f,0xffeb 038e 0031 ffea | 1 | .CONST 0x0031,0xffea 0390 0033 ffe9 | 3 | .CONST 0x0033,0xffe9 0392 0037 ffe8 | 7 | .CONST 0x0037,0xffe8 0394 0038 ffe7 | 8 | .CONST 0x0038,0xffe7 0396 003b ffe6 | ; | .CONST 0x003b,0xffe6 0398 0042 ffe5 | B | .CONST 0x0042,0xffe5 039a 0046 ffe4 | F | .CONST 0x0046,0xffe4 039c ; -------------------------------------------------------------------------------------- 039c ; Debug3 Subtable 0x1 039c ; -------------------------------------------------------------------------------------- 039c 0018 0000 | | .DBG3TAB 0x0018,0x0000 039e 0047 ffff | G | .CONST 0x0047,0xffff 03a0 004b fffe | K | .CONST 0x004b,0xfffe 03a2 004c fffd | L | .CONST 0x004c,0xfffd 03a4 0058 fffc | X | .CONST 0x0058,0xfffc 03a6 0061 fffb | a | .CONST 0x0061,0xfffb 03a8 006a fffa | j | .CONST 0x006a,0xfffa 03aa 0075 fff9 | u | .CONST 0x0075,0xfff9 03ac 007e fff8 | ~ | .CONST 0x007e,0xfff8 03ae 0087 fff7 | | .CONST 0x0087,0xfff7 03b0 0089 fff6 | | .CONST 0x0089,0xfff6 03b2 008b fff5 | | .CONST 0x008b,0xfff5 03b4 008d fff4 | | .CONST 0x008d,0xfff4 03b6 008f fff3 | | .CONST 0x008f,0xfff3 03b8 0091 fff2 | | .CONST 0x0091,0xfff2 03ba 0093 fff1 | | .CONST 0x0093,0xfff1 03bc 0095 fff0 | | .CONST 0x0095,0xfff0 03be 0097 ffef | | .CONST 0x0097,0xffef 03c0 0099 ffee | | .CONST 0x0099,0xffee 03c2 009b ffed | | .CONST 0x009b,0xffed 03c4 009d ffec | | .CONST 0x009d,0xffec 03c6 009f ffeb | | .CONST 0x009f,0xffeb 03c8 00a1 ffea | | .CONST 0x00a1,0xffea 03ca 00a3 ffe9 | | .CONST 0x00a3,0xffe9 03cc 00a5 ffe8 | | .CONST 0x00a5,0xffe8 03ce ; -------------------------------------------------------------------------------------- 03ce ; Debug3 Subtable 0x2 03ce ; -------------------------------------------------------------------------------------- 03ce 0001 0005 | | .DBG3TAB 0x0001,0x0005 03d0 00b3 ffff | | .CONST 0x00b3,0xffff 03d2 00b7 0001 | | .CONST 0x00b7,0x0001 03d4 00bf 0002 | | .CONST 0x00bf,0x0002 03d6 00c2 0003 | | .CONST 0x00c2,0x0003 03d8 00ca 0004 | | .CONST 0x00ca,0x0004 03da 00d5 0005 | | .CONST 0x00d5,0x0005 03dc ; -------------------------------------------------------------------------------------- 03dc ; Debug3 Subtable 0x3 03dc ; -------------------------------------------------------------------------------------- 03dc 0002 000b | | .DBG3TAB 0x0002,0x000b 03de 00e3 ffff | | .CONST 0x00e3,0xffff 03e0 00e5 fffe | | .CONST 0x00e5,0xfffe 03e2 00e7 0001 | | .CONST 0x00e7,0x0001 03e4 00e9 0002 | | .CONST 0x00e9,0x0002 03e6 00ea 0003 | | .CONST 0x00ea,0x0003 03e8 00f0 0005 | | .CONST 0x00f0,0x0005 03ea 00f4 0006 | | .CONST 0x00f4,0x0006 03ec 00f8 0007 | | .CONST 0x00f8,0x0007 03ee 00ff 0008 | | .CONST 0x00ff,0x0008 03f0 0102 0004 | | .CONST 0x0102,0x0004 03f2 0105 0009 | | .CONST 0x0105,0x0009 03f4 0110 000a | | .CONST 0x0110,0x000a 03f6 0114 000b | | .CONST 0x0114,0x000b 03f8 ; -------------------------------------------------------------------------------------- 03f8 ; Debug3 Subtable 0x4 03f8 ; -------------------------------------------------------------------------------------- 03f8 0000 0002 | | .DBG3TAB 0x0000,0x0002 03fa 0123 0001 | # | .CONST 0x0123,0x0001 03fc 0125 0002 | % | .CONST 0x0125,0x0002 03fe ; -------------------------------------------------------------------------------------- 03fe ; Debug3 Subtable 0x5 03fe ; -------------------------------------------------------------------------------------- 03fe 0004 0011 | | .DBG3TAB 0x0004,0x0011 0400 013b ffff | ; | .CONST 0x013b,0xffff 0402 0140 fffe | @ | .CONST 0x0140,0xfffe 0404 0142 fffd | B | .CONST 0x0142,0xfffd 0406 0144 fffc | D | .CONST 0x0144,0xfffc 0408 014c 0001 | L | .CONST 0x014c,0x0001 040a 014e 0002 | N | .CONST 0x014e,0x0002 040c 0151 0003 | Q | .CONST 0x0151,0x0003 040e 0154 0004 | T | .CONST 0x0154,0x0004 0410 0157 0005 | W | .CONST 0x0157,0x0005 0412 0161 0006 | a | .CONST 0x0161,0x0006 0414 0163 0007 | c | .CONST 0x0163,0x0007 0416 0167 0008 | g | .CONST 0x0167,0x0008 0418 016a 000a | j | .CONST 0x016a,0x000a 041a 016c 000b | l | .CONST 0x016c,0x000b 041c 0171 0009 | q | .CONST 0x0171,0x0009 041e 017a 000c | z | .CONST 0x017a,0x000c 0420 017c 000d | | | .CONST 0x017c,0x000d 0422 0181 000e | | .CONST 0x0181,0x000e 0424 0185 000f | | .CONST 0x0185,0x000f 0426 0187 0010 | | .CONST 0x0187,0x0010 0428 018c 0011 | | .CONST 0x018c,0x0011 042a ; -------------------------------------------------------------------------------------- 042a ; Debug3 Subtable 0x6 042a ; -------------------------------------------------------------------------------------- 042a 0001 0007 | | .DBG3TAB 0x0001,0x0007 042c 019b ffff | | .CONST 0x019b,0xffff 042e 019d 0001 | | .CONST 0x019d,0x0001 0430 019f 0002 | | .CONST 0x019f,0x0002 0432 01a1 0003 | | .CONST 0x01a1,0x0003 0434 01a7 0005 | | .CONST 0x01a7,0x0005 0436 01b0 0006 | | .CONST 0x01b0,0x0006 0438 01b4 0004 | | .CONST 0x01b4,0x0004 043a 01b8 0007 | | .CONST 0x01b8,0x0007 043c ; -------------------------------------------------------------------------------------- 043c ; Debug3 Subtable 0x7 043c ; -------------------------------------------------------------------------------------- 043c 0000 0002 | | .DBG3TAB 0x0000,0x0002 043e 01c3 0001 | | .CONST 0x01c3,0x0001 0440 01c5 0002 | | .CONST 0x01c5,0x0002 0442 ; -------------------------------------------------------------------------------------- 0442 ; Debug3 Subtable 0x8 0442 ; -------------------------------------------------------------------------------------- 0442 0000 0002 | | .DBG3TAB 0x0000,0x0002 0444 01db 0001 | | .CONST 0x01db,0x0001 0446 01dd 0002 | | .CONST 0x01dd,0x0002 0448 ; -------------------------------------------------------------------------------------- 0448 ; Debug3 Subtable 0x9 0448 ; -------------------------------------------------------------------------------------- 0448 0000 0002 | | .DBG3TAB 0x0000,0x0002 044a 01eb 0001 | | .CONST 0x01eb,0x0001 044c 01ed 0002 | | .CONST 0x01ed,0x0002 044e ; -------------------------------------------------------------------------------------- 044e ; Debug3 Subtable 0xa 044e ; -------------------------------------------------------------------------------------- 044e 0000 0002 | | .DBG3TAB 0x0000,0x0002 0450 01fb 0001 | | .CONST 0x01fb,0x0001 0452 01fd 0002 | | .CONST 0x01fd,0x0002 0454 ; -------------------------------------------------------------------------------------- 0454 ; Debug3 Subtable 0xb 0454 ; -------------------------------------------------------------------------------------- 0454 0000 0002 | | .DBG3TAB 0x0000,0x0002 0456 020b 0001 | | .CONST 0x020b,0x0001 0458 020d 0002 | | .CONST 0x020d,0x0002 045a ; -------------------------------------------------------------------------------------- 045a ; Debug3 Subtable 0xc 045a ; -------------------------------------------------------------------------------------- 045a 0000 0002 | | .DBG3TAB 0x0000,0x0002 045c 021b 0001 | | .CONST 0x021b,0x0001 045e 021d 0002 | | .CONST 0x021d,0x0002 0460 ; -------------------------------------------------------------------------------------- 0460 ; Debug3 Subtable 0xd 0460 ; -------------------------------------------------------------------------------------- 0460 0000 0001 | | .DBG3TAB 0x0000,0x0001 0462 022b 0001 | + | .CONST 0x022b,0x0001 0464 ; -------------------------------------------------------------------------------------- 0464 ; Debug3 Subtable 0xe 0464 ; -------------------------------------------------------------------------------------- 0464 0000 0002 | | .DBG3TAB 0x0000,0x0002 0466 0233 0001 | 3 | .CONST 0x0233,0x0001 0468 0235 0002 | 5 | .CONST 0x0235,0x0002 046a ; -------------------------------------------------------------------------------------- 046a ; Debug3 Subtable 0xf 046a ; -------------------------------------------------------------------------------------- 046a 0000 0001 | | .DBG3TAB 0x0000,0x0001 046c 0243 0001 | C | .CONST 0x0243,0x0001 046e ; -------------------------------------------------------------------------------------- 046e ; Debug3 Subtable 0x10 046e ; -------------------------------------------------------------------------------------- 046e 0000 0000 | | .DBG3TAB 0x0000,0x0000 0470 ; -------------------------------------------------------------------------------------- 0470 ; Debug3 Subtable 0x11 0470 ; -------------------------------------------------------------------------------------- 0470 0000 0000 | | .DBG3TAB 0x0000,0x0000 0472 ; -------------------------------------------------------------------------------------- 0472 ; Debug3 Subtable 0x12 0472 ; -------------------------------------------------------------------------------------- 0472 0000 0002 | | .DBG3TAB 0x0000,0x0002 0474 0293 0001 | | .CONST 0x0293,0x0001 0476 029d 0002 | | .CONST 0x029d,0x0002 0478 ; -------------------------------------------------------------------------------------- 0478 ; Debug3 Subtable 0x13 0478 ; -------------------------------------------------------------------------------------- 0478 0000 0002 | | .DBG3TAB 0x0000,0x0002 047a 02b3 0001 | | .CONST 0x02b3,0x0001 047c 02bb 0002 | | .CONST 0x02bb,0x0002 047e 0000 0000 | | .BLANK 0000[0x182]