|
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: 5120 (0x1400)
Notes: 00_class, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0500e0
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5813 |X | .CONST 0x5813 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0710 | | .CONST 0x0710 ; 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 0004 | | .CONST 0x0004 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0077 | w | .CONST 0x0077 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0022 | " | .CONST 0x0022 ; Number of locals
000b INIT_0008:
000b 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x07aa,0x0000,0x0000,0x0057,0x9795,0x0000,0x0784
; Debug Table 0x0.0x0 = 0xb,0xffff
000d 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xd,0xfffe
000f 00bf | | Action Accept_Activation
0010 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x0010,0x07b0,0x0000,0x0000,0x0057,0x9985,0x0000,0x0008
; Debug Table 0x1.0x0 = 0x10,0xffff
0011 0007 | | Action Break_Optional ; Debug Table 0x1.0x1 = 0x11,0xfffe
0012 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x2 = 0x12,0xfffd
0013 4802 |H | Short_Literal 0x2
0014 029f 013b | ;| Declare_Subprogram INIT_0138,For_Call
0016 03fd | | Declare_Type Discrete,Defined
0017 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x3 = 0x17,0xfffc
0018 4801 |H | Short_Literal 0x1
0019 e001 | | Load 0x0,0x1
001a 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
001b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
001c 029f 0153 | S| Declare_Subprogram INIT_0150,For_Call
001e 4801 |H | Short_Literal 0x1
001f 4800 |H | Short_Literal 0x0
0020 4801 |H | Short_Literal 0x1
0021 4800 |H | Short_Literal 0x0
0022 4801 |H | Short_Literal 0x1
0023 031d | | Declare_Type Variant_Record,Defined
0024 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x4 = 0x24,0xfffb
0025 00d9 | | Load_Top At_Offset_1
0026 1c08 | | Execute_Immediate Run_Utility,0x8
0027 4802 |H | Short_Literal 0x2 ; Debug Table 0x1.0x5 = 0x27,0xfffa
0028 00da | | Load_Top At_Offset_2
0029 1c08 | | Execute_Immediate Run_Utility,0x8
002a 4801 |H | Short_Literal 0x1 ; Debug Table 0x1.0x6 = 0x2a,0xfff9
002b 00db | | Load_Top At_Offset_3
002c 1c08 | | Execute_Immediate Run_Utility,0x8
002d 4803 |H | Short_Literal 0x3
002e 00d9 | | Load_Top At_Offset_1
002f 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0030 4801 |H | Short_Literal 0x1 ; Debug Table 0x1.0x7 = 0x30,0xfff8
0031 e210 | | Load 0x1,0x10
0032 1c08 | | Execute_Immediate Run_Utility,0x8
0033 4804 |H | Short_Literal 0x4
0034 00d9 | | Load_Top At_Offset_1
0035 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0036 e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x8 = 0x36,0xfff7
0037 0266 | f | Execute Discrete,Bounds
0038 e210 | | Load 0x1,0x10
0039 029f 0193 | | Declare_Subprogram INIT_0190,For_Call
003b 4801 |H | Short_Literal 0x1
003c 035d | ] | Declare_Type Array,Defined
003d 00d8 | | Load_Top At_Offset_0
003e 0337 | 7 | Declare_Variable Array
003f 00d8 | | Load_Top At_Offset_0
0040 0337 | 7 | Declare_Variable Array
0041 e211 | | Load 0x1,0x11
0042 4800 |H | Short_Literal 0x0
0043 00da | | Load_Top At_Offset_2
0044 01d6 | | Execute Vector,Field_Write
0045 e213 | | Load 0x1,0x13
0046 4801 |H | Short_Literal 0x1
0047 00da | | Load_Top At_Offset_2
0048 01d6 | | Execute Vector,Field_Write
0049 00db | | Load_Top At_Offset_3
004a 4802 |H | Short_Literal 0x2
004b 00da | | Load_Top At_Offset_2
004c 01d6 | | Execute Vector,Field_Write
004d e212 | | Load 0x1,0x12
004e 4803 |H | Short_Literal 0x3
004f 00da | | Load_Top At_Offset_2
0050 01d6 | | Execute Vector,Field_Write
0051 00d9 | | Load_Top At_Offset_1
0052 01d4 | | Execute Vector,Structure_Write
0053 e210 | | Load 0x1,0x10 ; Debug Table 0x1.0x9 = 0x53,0xfff6
0054 00e1 | | Load_Encached Boolean_Cache
0055 00e1 | | Load_Encached Boolean_Cache
0056 00e1 | | Load_Encached Boolean_Cache
0057 e003 | | Load 0x0,0x3
0058 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0059 029f 01ab | | Declare_Subprogram INIT_01a8,For_Call
005b 4805 |H | Short_Literal 0x5
005c 032d | - | Declare_Type Record,Defined
005d 029d 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call ; Debug Table 0x1.0xa = 0x5d,0xfff5
005f 029d 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call ; Debug Table 0x1.0xb = 0x5f,0xfff4
0061 029d 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call ; Debug Table 0x1.0xc = 0x61,0xfff3
0063 029d 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call ; Debug Table 0x1.0xd = 0x63,0xfff2
0065 029d 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call ; Debug Table 0x1.0xe = 0x65,0xfff1
0067 029d 036b | k| Declare_Subprogram INIT_0368,For_Outer_Call ; Debug Table 0x1.0xf = 0x67,0xfff0
0069 029d 03c3 | | Declare_Subprogram INIT_03c0,For_Outer_Call ; Debug Table 0x1.0x10 = 0x69,0xffef
006b 029d 0473 | s| Declare_Subprogram INIT_0470,For_Outer_Call ; Debug Table 0x1.0x11 = 0x6b,0xffee
006d 029d 04eb | | Declare_Subprogram INIT_04e8,For_Outer_Call ; Debug Table 0x1.0x12 = 0x6d,0xffed
006f 029d 0523 | #| Declare_Subprogram INIT_0520,For_Outer_Call ; Debug Table 0x1.0x13 = 0x6f,0xffec
0071 029d 05c3 | | Declare_Subprogram INIT_05c0,For_Outer_Call ; Debug Table 0x1.0x14 = 0x71,0xffeb
0073 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x15 = 0x73,0xffea
0074 00c7 | | Action Elaborate_Subprogram
0075 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0x16 = 0x75,0xffe9
0076 00c7 | | Action Elaborate_Subprogram
0077 BODY_0008:
0077 00bc | | Action Signal_Activated
0078 00bb | | Action Signal_Completion
0079 0000 0000 | | .BLANK 0000[0x7]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0085 | | .CONST 0x0085 ; Address of begin
0081 0094 | | .CONST 0x0094 ; Address of exception handler
0082 0002 | | .CONST 0x0002 ; Number of locals
0083 INIT_0080:
0083 e004 | | Load 0x0,0x4 ; Debug Table 0x2 = .DEBUG 0x0083,0x07e0,0x0001,0x0000,0x0057,0x9795,0x0000,0x0785
; Debug Table 0x2.0x0 = 0x83,0xffff
0084 0007 | | Action Break_Optional
0085 BODY_0080:
0085 e004 | | Load 0x0,0x4 ; Debug Table 0x2.0x1 = 0x85,0x1
0086 4801 |H | Short_Literal 0x1
0087 e5ff | | Load 0x2,-0x1
0088 e005 | | Load 0x0,0x5
0089 181e | | Execute Package,Field_Execute,Field_Number 0x1e
008a 0031 | 1 | Store_Top Heap_Access,At_Offset_1
008b e5fc | | Load 0x2,-0x4 ; Debug Table 0x2.0x2 = 0x8b,0x2
008c e5fd | | Load 0x2,-0x3
008d e5fe | | Load 0x2,-0x2
008e 00db | | Load_Top At_Offset_3
008f 820e | | Call 0x1,0xe
0090 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x3 = 0x90,0x3
0091 e005 | | Load 0x0,0x5
0092 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0093 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0094 TRAP_0080:
0094 6277 |bw | Indirect_Literal Discrete,0x30c,{0x00000000, 0x57979503}
0095 010f | | Execute Exception,Equal
0096 6801 |h | Jump_Zero 0x98
0097 4505 |E | Exit_Suprogram New_Top_Offset 0x5 ; Debug Table 0x2.0x4 = 0x97,0x4
0098 626f |bo | Indirect_Literal Discrete,0x308,{0x00000000, 0x57979501}
0099 010f | | Execute Exception,Equal
009a 6808 |h | Jump_Zero 0xa3
009b 0092 064e | N| Action Push_String_Extended,0x64e ; "doe_error"
; Debug Table 0x2.0x5 = 0x9b,0x5
009d 0092 064f | O| Action Push_String_Extended,0x64f ; "Promote"
009f 00db | | Load_Top At_Offset_3
00a0 e006 | | Load 0x0,0x6
00a1 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00a2 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00a3 e007 | | Load 0x0,0x7 ; Debug Table 0x2.0x6 = 0xa3,0x6
00a4 180d | | Execute Package,Field_Execute,Field_Number 0xd
00a5 0092 064f | O| Action Push_String_Extended,0x64f ; "Promote"
00a7 00db | | Load_Top At_Offset_3
00a8 e006 | | Load 0x0,0x6
00a9 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00aa 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00ab 0000 0000 | | .BLANK 0000[0x5]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00bb | | .CONST 0x00bb ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0004 | | .CONST 0x0004 ; Number of locals
00b3 INIT_00b0:
00b3 e008 | | Load 0x0,0x8 ; Debug Table 0x3 = .DEBUG 0x00b3,0x07f0,0x0001,0x0000,0x0057,0x9795,0x0000,0x07a2
; Debug Table 0x3.0x0 = 0xb3,0xffff
00b4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00b5 e008 | | Load 0x0,0x8 ; Debug Table 0x3.0x1 = 0xb5,0xfffe
00b6 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00b7 e217 | | Load 0x1,0x17 ; Debug Table 0x3.0x2 = 0xb7,0xfffd
00b8 0322 | " | Declare_Variable Record
00b9 00d8 | | Load_Top At_Offset_0
00ba 1c00 | | Execute_Immediate Run_Utility,0x0
00bb BODY_00b0:
00bb 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0x3 = 0xbb,0x1
00bc e5ff | | Load 0x2,-0x1
00bd 0217 | | Execute Heap_Access,All_Reference
00be 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
00bf e009 | | Load 0x0,0x9
00c0 01a7 | | Execute Matrix,Field_Read
00c1 7003 |p | Jump_Nonzero 0xc5
00c2 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0x4 = 0xc2,0x2
00c3 800a | | Call 0x0,0xa
00c4 4505 |E | Exit_Suprogram New_Top_Offset 0x5 ; Debug Table 0x3.0x5 = 0xc4,0x3
00c5 e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x6 = 0xc5,0x4
00c6 0217 | | Execute Heap_Access,All_Reference
00c7 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
00c8 460d |F | Jump_Case 0xe
00c9 780d |x | Jump 0xd7 ; case 0x0
00ca 780c |x | Jump 0xd7 ; case 0x1
00cb 7810 |x | Jump 0xdc ; case 0x2
00cc 780a |x | Jump 0xd7 ; case 0x3
00cd 780e |x | Jump 0xdc ; case 0x4
00ce 780d |x | Jump 0xdc ; case 0x5
00cf 780c |x | Jump 0xdc ; case 0x6
00d0 780b |x | Jump 0xdc ; case 0x7
00d1 7805 |x | Jump 0xd7 ; case 0x8
00d2 7809 |x | Jump 0xdc ; case 0x9
00d3 7808 |x | Jump 0xdc ; case 0xa
00d4 7807 |x | Jump 0xdc ; case 0xb
00d5 7806 |x | Jump 0xdc ; case 0xc
00d6 7805 |x | Jump 0xdc ; case 0xd
00d7 0092 0650 | P| Action Push_String_Extended,0x650 ; "promote is not allowed here"
; Debug Table 0x3.0x7 = 0xd7,0x5
00d9 e00b | | Load 0x0,0xb
00da 180d | | Execute Package,Field_Execute,Field_Number 0xd
00db 4505 |E | Exit_Suprogram New_Top_Offset 0x5 ; Debug Table 0x3.0x8 = 0xdb,0x6
00dc e5fd | | Load 0x2,-0x3 ; Debug Table 0x3.0x9 = 0xdc,0x8
00dd e216 | | Load 0x1,0x16
00de 01d5 | | Execute Vector,Field_Reference
00df 00d9 | | Load_Top At_Offset_1
00e0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00e1 e5fd | | Load 0x2,-0x3 ; Debug Table 0x3.0xa = 0xe1,0x9
00e2 4801 |H | Short_Literal 0x1
00e3 4803 |H | Short_Literal 0x3
00e4 0262 | b | Execute Discrete,In_Range
00e5 00d9 | | Load_Top At_Offset_1
00e6 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00e7 e5fc | | Load 0x2,-0x4 ; Debug Table 0x3.0xb = 0xe7,0xa
00e8 00d9 | | Load_Top At_Offset_1
00e9 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
00ea e5fe | | Load 0x2,-0x2 ; Debug Table 0x3.0xc = 0xea,0xb
00eb e00c | | Load 0x0,0xc
00ec 1881 | | Execute Package,Field_Execute,Field_Number 0x81
00ed 4603 |F | Jump_Case 0x4
00ee 7828 |x( | Jump 0x117 ; case 0x0
00ef 7802 |x | Jump 0xf2 ; case 0x1
00f0 780c |x | Jump 0xfd ; case 0x2
00f1 7836 |x6 | Jump 0x128 ; case 0x3
00f2 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0xd = 0xf2,0xc
00f3 e5ff | | Load 0x2,-0x1
00f4 0217 | | Execute Heap_Access,All_Reference
00f5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00f6 e00c | | Load 0x0,0xc
00f7 1869 | i | Execute Package,Field_Execute,Field_Number 0x69
00f8 4801 |H | Short_Literal 0x1
00f9 e5ff | | Load 0x2,-0x1
00fa 8221 | ! | Call 0x1,0x21
00fb 00d1 | | Pop_Control Pop_Count_1
00fc 782f |x/ | Jump 0x12c
00fd e5fe | | Load 0x2,-0x2 ; Debug Table 0x3.0xe = 0xfd,0xd
00fe e006 | | Load 0x0,0x6
00ff 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0100 6811 |h | Jump_Zero 0x112
0101 e008 | | Load 0x0,0x8 ; Debug Table 0x3.0xf = 0x101,0xe
0102 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0103 e008 | | Load 0x0,0x8
0104 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0105 e5fe | | Load 0x2,-0x2
0106 e5ff | | Load 0x2,-0x1
0107 e006 | | Load 0x0,0x6
0108 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0109 c402 | | Store 0x2,0x2
010a 005a | Z | Store_Top Discrete,At_Offset_2
010b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x10 = 0x10b,0xf
010c 00da | | Load_Top At_Offset_2
010d e402 | | Load 0x2,0x2
010e e5ff | | Load 0x2,-0x1
010f 8221 | ! | Call 0x1,0x21
0110 00d1 | | Pop_Control Pop_Count_1
0111 781a |x | Jump 0x12c
0112 0092 0651 | Q| Action Push_String_Extended,0x651 ; "promote failed - cursor must be in the selection"
; Debug Table 0x3.0x11 = 0x112,0x10
0114 e00b | | Load 0x0,0xb
0115 180d | | Execute Package,Field_Execute,Field_Number 0xd
0116 7815 |x | Jump 0x12c
0117 e5fe | | Load 0x2,-0x2 ; Debug Table 0x3.0x12 = 0x117,0x11
0118 e00c | | Load 0x0,0xc
0119 1857 | W | Execute Package,Field_Execute,Field_Number 0x57
011a e00c | | Load 0x0,0xc
011b 1882 | | Execute Package,Field_Execute,Field_Number 0x82
011c 6806 |h | Jump_Zero 0x123
011d 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x13 = 0x11d,0x12
011e e5fe | | Load 0x2,-0x2
011f e5ff | | Load 0x2,-0x1
0120 8222 | " | Call 0x1,0x22
0121 00d1 | | Pop_Control Pop_Count_1
0122 7809 |x | Jump 0x12c
0123 0092 0651 | Q| Action Push_String_Extended,0x651 ; "promote failed - cursor must be in the selection"
; Debug Table 0x3.0x14 = 0x123,0x13
0125 e00b | | Load 0x0,0xb
0126 180d | | Execute Package,Field_Execute,Field_Number 0xd
0127 7804 |x | Jump 0x12c
0128 0092 0652 | R| Action Push_String_Extended,0x652 ; "promote failed - there must be a selection"
; Debug Table 0x3.0x15 = 0x128,0x14
012a e00b | | Load 0x0,0xb
012b 180d | | Execute Package,Field_Execute,Field_Number 0xd
012c e5fe | | Load 0x2,-0x2 ; Debug Table 0x3.0x16 = 0x12c,0x15
012d e5ff | | Load 0x2,-0x1
012e e00d | | Load 0x0,0xd
012f 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0130 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0131 0000 0000 | | .BLANK 0000[0x7]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b | ; | .CONST 0x013b ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0001 | | .CONST 0x0001 ; Number of locals
013b BODY_0138:
013b INIT_0138:
013b 4603 |F | Jump_Case 0x4 ; Debug Table 0x4 = .DEBUG 0x013b,0x0820,0x0005,0x0000,0x0057,0x9985,0x0000,0x0013
013c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
013d 7802 |x | Jump 0x140 ; case 0x1
013e 7805 |x | Jump 0x144 ; case 0x2
013f 7809 |x | Jump 0x149 ; case 0x3
0140 00da | | Load_Top At_Offset_2
0141 0091 064b | K| Action Push_String_Extended_Indexed,0x64b ; "NEXT"
0143 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0144 00db | | Load_Top At_Offset_3
0145 00db | | Load_Top At_Offset_3
0146 00e0 | | Load_Encached Standard_Cache
0147 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0148 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0149 00da | | Load_Top At_Offset_2
014a 00e0 | | Load_Encached Standard_Cache
014b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
014c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
014d 0000 0000 | | .XXX[0x3]
014f 0000 | |
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153 | S | .CONST 0x0153 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0001 | | .CONST 0x0001 ; Number of locals
0153 BODY_0150:
0153 INIT_0150:
0153 4608 |F | Jump_Case 0x9 ; Debug Table 0x5 = .DEBUG 0x0153,0x0822,0x0005,0x0000,0x0057,0x9985,0x0000,0x001a
0154 7808 |x | Jump 0x15d ; case 0x0
0155 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0156 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
0157 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0158 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0159 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
015a 7814 |x | Jump 0x16f ; case 0x6
015b 781c |x | Jump 0x178 ; case 0x7
015c 7827 |x' | Jump 0x184 ; case 0x8
015d 00da | | Load_Top At_Offset_2
015e 016c | l | Execute Variant_Record,Is_Constrained
015f 7009 |p | Jump_Nonzero 0x169
0160 00cf | | Action Mark_Auxiliary
0161 4800 |H | Short_Literal 0x0
0162 e5ff | | Load 0x2,-0x1
0163 1c08 | | Execute_Immediate Run_Utility,0x8
0164 00d8 | | Load_Top At_Offset_0
0165 1c00 | | Execute_Immediate Run_Utility,0x0
0166 c5ff | | Store 0x2,-0x1
0167 00ce | | Action Pop_Auxiliary
0168 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0169 00da | | Load_Top At_Offset_2
016a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
016b 4602 |F | Jump_Case 0x3
016c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
016d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
016e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
016f 00db | | Load_Top At_Offset_3
0170 4602 |F | Jump_Case 0x3
0171 7804 |x | Jump 0x176 ; case 0x0
0172 7801 |x | Jump 0x174 ; case 0x1
0173 7802 |x | Jump 0x176 ; case 0x2
0174 4801 |H | Short_Literal 0x1
0175 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0176 48ff |H | Short_Literal 0xff
0177 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0178 00db | | Load_Top At_Offset_3
0179 e5fe | | Load 0x2,-0x2
017a 4602 |F | Jump_Case 0x3
017b 7804 |x | Jump 0x180 ; case 0x0
017c 7801 |x | Jump 0x17e ; case 0x1
017d 7802 |x | Jump 0x180 ; case 0x2
017e 4801 |H | Short_Literal 0x1
017f 7801 |x | Jump 0x181
0180 48ff |H | Short_Literal 0xff
0181 e5ff | | Load 0x2,-0x1
0182 031b | | Declare_Type Variant_Record,Constrained
0183 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0184 00db | | Load_Top At_Offset_3
0185 e5fe | | Load 0x2,-0x2
0186 e5ff | | Load 0x2,-0x1
0187 1c06 | | Execute_Immediate Run_Utility,0x6
0188 e5ff | | Load 0x2,-0x1
0189 02fc | | Declare_Variable Variant_Record,With_Constraint
018a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
018b 0000 0000 | | .BLANK 0000[0x5]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193 | | .CONST 0x0193 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0001 | | .CONST 0x0001 ; Number of locals
0193 BODY_0190:
0193 INIT_0190:
0193 00d1 | | Pop_Control Pop_Count_1 ; Debug Table 0x6 = .DEBUG 0x0193,0x0824,0x0005,0x0000,0x0057,0x9985,0x0000,0x0065
0194 00da | | Load_Top At_Offset_2
0195 01d8 | | Execute Vector,Element_Type
0196 02ff | | Declare_Variable Variant_Record
0197 00d8 | | Load_Top At_Offset_0
0198 1c00 | | Execute_Immediate Run_Utility,0x0
0199 00db | | Load_Top At_Offset_3
019a 01dc | | Execute Vector,Last
019b e5ff | | Load 0x2,-0x1
019c 01dd | | Execute Vector,First
019d 0263 | c | Execute Discrete,Above_Bound
019e 7006 |p | Jump_Nonzero 0x1a5
019f 00da | | Load_Top At_Offset_2
01a0 00d9 | | Load_Top At_Offset_1
01a1 e5ff | | Load 0x2,-0x1
01a2 01d6 | | Execute Vector,Field_Write
01a3 0a01 | | Execute_Immediate Plus,0x1
01a4 7ff8 | | Jump 0x19d
01a5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01a6 0000 0000 | | .XXX[0x2]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab | | .CONST 0x01ab ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0001 | | .CONST 0x0001 ; Number of locals
01ab BODY_01a8:
01ab INIT_01a8:
01ab 4608 |F | Jump_Case 0x9 ; Debug Table 0x7 = .DEBUG 0x01ab,0x0826,0x0005,0x0000,0x0057,0x9985,0x0000,0x0078
01ac 7808 |x | Jump 0x1b5 ; case 0x0
01ad 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
01ae 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
01af 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
01b0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
01b1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
01b2 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
01b3 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7
01b4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8
01b5 00da | | Load_Top At_Offset_2
01b6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01b7 1c00 | | Execute_Immediate Run_Utility,0x0
01b8 4801 |H | Short_Literal 0x1
01b9 00db | | Load_Top At_Offset_3
01ba 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01bb 4800 |H | Short_Literal 0x0
01bc 00db | | Load_Top At_Offset_3
01bd 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01be 4800 |H | Short_Literal 0x0
01bf 00db | | Load_Top At_Offset_3
01c0 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01c1 00da | | Load_Top At_Offset_2
01c2 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
01c3 0125 | % | Execute Any,Set_Constraint
01c4 e003 | | Load 0x0,0x3
01c5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01c6 00db | | Load_Top At_Offset_3
01c7 00d9 | | Load_Top At_Offset_1
01c8 00d9 | | Load_Top At_Offset_1
01c9 3004 |0 | Execute Record,Field_Type,Field_Number 0x4
01ca 0119 | | Execute Any,Check_In_Formal_Type
01cb 00d1 | | Pop_Control Pop_Count_1
01cc 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
01cd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01ce 0000 0000 | | .XXX[0x2]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d9 | | .CONST 0x01d9 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0003 | | .CONST 0x0003 ; Number of locals
01d3 INIT_01d0:
01d3 0007 | | Action Break_Optional ; Debug Table 0x8 = .DEBUG 0x01d3,0x0828,0x0002,0x0000,0x0057,0x9985,0x0000,0x009d
; Debug Table 0x8.0x0 = 0x1d3,0xffff
01d4 e001 | | Load 0x0,0x1 ; Debug Table 0x8.0x1 = 0x1d4,0xfffe
01d5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01d6 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x8.0x2 = 0x1d6,0xfffd
01d7 e5fe | | Load 0x2,-0x2
01d8 0031 | 1 | Store_Top Heap_Access,At_Offset_1
01d9 BODY_01d0:
01d9 0007 | | Action Break_Optional ; Debug Table 0x8.0x3 = 0x1d9,0x1
01da e5fe | | Load 0x2,-0x2 ; Debug Table 0x8.0x4 = 0x1da,0x401
01db 0007 | | Action Break_Optional
01dc 0210 | | Execute Heap_Access,Get_Segment ; Debug Table 0x8.0x5 = 0x1dc,0x402
01dd 0007 | | Action Break_Optional ; Debug Table 0x8.0x6 = 0x1dd,0x403
01de 0007 | | Action Break_Optional ; Debug Table 0x8.0x7 = 0x1de,0x404
01df e5ff | | Load 0x2,-0x1 ; Debug Table 0x8.0x8 = 0x1df,0x1
01e0 e001 | | Load 0x0,0x1
01e1 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
01e2 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
01e3 021f | | Execute Heap_Access,Equal
01e4 700b |p | Jump_Nonzero 0x1f0
01e5 e5fe | | Load 0x2,-0x2 ; Debug Table 0x8.0x9 = 0x1e5,0x801
01e6 0007 | | Action Break_Optional
01e7 0210 | | Execute Heap_Access,Get_Segment ; Debug Table 0x8.0xa = 0x1e7,0x802
01e8 0007 | | Action Break_Optional ; Debug Table 0x8.0xb = 0x1e8,0x803
01e9 0007 | | Action Break_Optional ; Debug Table 0x8.0xc = 0x1e9,0x804
01ea e5ff | | Load 0x2,-0x1 ; Debug Table 0x8.0xd = 0x1ea,0x404
01eb e001 | | Load 0x0,0x1
01ec 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
01ed 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
01ee 021f | | Execute Heap_Access,Equal
01ef 680a |h | Jump_Zero 0x1fa
01f0 e001 | | Load 0x0,0x1 ; Debug Table 0x8.0xe = 0x1f0,0x2
01f1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01f2 00ec | | Load_Encached Diana_Tree_Cache
01f3 e5ff | | Load 0x2,-0x1
01f4 e5fe | | Load 0x2,-0x2
01f5 e001 | | Load 0x0,0x1
01f6 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
01f7 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
01f8 0032 | 2 | Store_Top Heap_Access,At_Offset_2
01f9 005a | Z | Store_Top Discrete,At_Offset_2
01fa 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x8.0xf = 0x1fa,0x3
01fb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01fc 0000 0000 | | .BLANK 0000[0x4]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0214 | | .CONST 0x0214 ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0004 | | .CONST 0x0004 ; Number of locals
0203 INIT_0200:
0203 e00e | | Load 0x0,0xe ; Debug Table 0x9 = .DEBUG 0x0203,0x084a,0x0002,0x0000,0x0057,0x9985,0x0000,0x0112
; Debug Table 0x9.0x0 = 0x203,0xffff
0204 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0205 02c7 | | Declare_Variable Any
0206 e5fe | | Load 0x2,-0x2
0207 c402 | | Store 0x2,0x2
0208 e00e | | Load 0x0,0xe ; Debug Table 0x9.0x1 = 0x208,0xfffe
0209 1b0d | | Execute Package,Field_Read,Field_Number 0xd
020a 02c7 | | Declare_Variable Any
020b e00e | | Load 0x0,0xe
020c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
020d c403 | | Store 0x2,0x3
020e 00f0 | | Load_Encached Segment_Cache ; Debug Table 0x9.0x2 = 0x20e,0xfffd
020f e00f | | Load 0x0,0xf
0210 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0211 e010 | | Load 0x0,0x10
0212 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0213 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0214 BODY_0200:
0214 7826 |x& | Jump 0x23b
0215 00da | | Load_Top At_Offset_2 ; Debug Table 0x9.0x3 = 0x215,0x2
0216 e00e | | Load 0x0,0xe
0217 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
0218 00db | | Load_Top At_Offset_3
0219 e00e | | Load 0x0,0xe
021a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
021b e5ff | | Load 0x2,-0x1
021c 8218 | | Call 0x1,0x18
021d e402 | | Load 0x2,0x2
021e e00e | | Load 0x0,0xe
021f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0220 e5ff | | Load 0x2,-0x1
0221 8218 | | Call 0x1,0x18
0222 00db | | Load_Top At_Offset_3
0223 e402 | | Load 0x2,0x2
0224 e00e | | Load 0x0,0xe
0225 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0226 e5ff | | Load 0x2,-0x1
0227 8218 | | Call 0x1,0x18
0228 e402 | | Load 0x2,0x2
0229 e00e | | Load 0x0,0xe
022a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
022b e5ff | | Load 0x2,-0x1
022c 8218 | | Call 0x1,0x18
022d e402 | | Load 0x2,0x2
022e e00e | | Load 0x0,0xe
022f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0230 e402 | | Load 0x2,0x2
0231 e00e | | Load 0x0,0xe
0232 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0233 e403 | | Load 0x2,0x3
0234 e00e | | Load 0x0,0xe
0235 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0236 c403 | | Store 0x2,0x3
0237 00da | | Load_Top At_Offset_2 ; Debug Table 0x9.0x4 = 0x237,0x3
0238 e00e | | Load 0x0,0xe
0239 1819 | | Execute Package,Field_Execute,Field_Number 0x19
023a c402 | | Store 0x2,0x2
023b 00da | | Load_Top At_Offset_2 ; Debug Table 0x9.0x5 = 0x23b,0x1
023c e00e | | Load 0x0,0xe
023d 181a | | Execute Package,Field_Execute,Field_Number 0x1a
023e 6fd6 |o | Jump_Zero 0x215
023f 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x9.0x6 = 0x23f,0x4
0240 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0241 0000 0000 | | .BLANK 0000[0x7]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 0255 | U | .CONST 0x0255 ; Address of begin
0249 026a | j | .CONST 0x026a ; Address of exception handler
024a 0003 | | .CONST 0x0003 ; Number of locals
024b INIT_0248:
024b e001 | | Load 0x0,0x1 ; Debug Table 0xa = .DEBUG 0x024b,0x085a,0x0001,0x0000,0x0057,0x9985,0x0000,0x01b2
; Debug Table 0xa.0x0 = 0x24b,0xffff
024c 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
024d 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
024e 02c7 | | Declare_Variable Any
024f e001 | | Load 0x0,0x1
0250 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0251 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0252 c402 | | Store 0x2,0x2
0253 e001 | | Load 0x0,0x1 ; Debug Table 0xa.0x1 = 0x253,0xfffe
0254 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0255 BODY_0248:
0255 e001 | | Load 0x0,0x1 ; Debug Table 0xa.0x2 = 0x255,0x1
0256 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0257 4800 |H | Short_Literal 0x0
0258 4800 |H | Short_Literal 0x0
0259 00ea | | Load_Encached Null_String_Cache
025a e5ff | | Load 0x2,-0x1
025b e001 | | Load 0x0,0x1
025c 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
025d 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
025e 0059 | Y | Store_Top Discrete,At_Offset_1
025f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0x3 = 0x25f,0x2
0260 7008 |p | Jump_Nonzero 0x269
0261 e5fe | | Load 0x2,-0x2 ; Debug Table 0xa.0x4 = 0x261,0x3
0262 e5ff | | Load 0x2,-0x1
0263 e00e | | Load 0x0,0xe
0264 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0265 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xa.0x5 = 0x265,0x4
0266 e001 | | Load 0x0,0x1
0267 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0268 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0269 4503 |E | Exit_Suprogram New_Top_Offset 0x3
026a TRAP_0248:
026a 0007 | | Action Break_Optional
026b 00da | | Load_Top At_Offset_2 ; Debug Table 0xa.0x6 = 0x26b,0x5
026c e001 | | Load 0x0,0x1
026d 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
026e 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
026f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0x7 = 0x26f,0x6
0270 0101 | | Execute Exception,Reraise
0271 0000 0000 | | .BLANK 0000[0x7]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 028c | | .CONST 0x028c ; Address of begin
0279 02fb | | .CONST 0x02fb ; Address of exception handler
027a 0006 | | .CONST 0x0006 ; Number of locals
027b INIT_0278:
027b e001 | | Load 0x0,0x1 ; Debug Table 0xb = .DEBUG 0x027b,0x086c,0x0001,0x0000,0x0057,0x9985,0x0000,0x01fd
; Debug Table 0xb.0x0 = 0x27b,0xffff
027c 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
027d 1b16 | | Execute Package,Field_Read,Field_Number 0x16
027e e001 | | Load 0x0,0x1 ; Debug Table 0xb.0x1 = 0x27e,0xfffe
027f 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0280 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0281 02c7 | | Declare_Variable Any
0282 00d8 | | Load_Top At_Offset_0
0283 1c00 | | Execute_Immediate Run_Utility,0x0
0284 e001 | | Load 0x0,0x1 ; Debug Table 0xb.0x2 = 0x284,0xfffd
0285 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0286 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0xb.0x3 = 0x286,0xfffc
0287 e003 | | Load 0x0,0x3 ; Debug Table 0xb.0x4 = 0x287,0xfffb
0288 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0289 02c7 | | Declare_Variable Any
028a 00d8 | | Load_Top At_Offset_0
028b 1c00 | | Execute_Immediate Run_Utility,0x0
028c BODY_0278:
028c e011 | | Load 0x0,0x11 ; Debug Table 0xb.0x5 = 0x28c,0x1
028d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
028e e003 | | Load 0x0,0x3
028f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0290 c406 | | Store 0x2,0x6
0291 e001 | | Load 0x0,0x1 ; Debug Table 0xb.0x6 = 0x291,0x2
0292 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0293 00e1 | | Load_Encached Boolean_Cache
0294 606f |`o | Indirect_Literal Discrete,0x304,{0x00000000, 0x00004000}
0295 00db | | Load_Top At_Offset_3
0296 e5ff | | Load 0x2,-0x1
0297 e001 | | Load 0x0,0x1
0298 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
0299 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
029a 005b | [ | Store_Top Discrete,At_Offset_3
029b 005b | [ | Store_Top Discrete,At_Offset_3
029c 00da | | Load_Top At_Offset_2 ; Debug Table 0xb.0x7 = 0x29c,0x3
029d 700c |p | Jump_Nonzero 0x2aa
029e 00d9 | | Load_Top At_Offset_1
029f 680a |h | Jump_Zero 0x2aa
02a0 e001 | | Load 0x0,0x1 ; Debug Table 0xb.0x8 = 0x2a0,0x4
02a1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02a2 6061 |`a | Indirect_Literal Discrete,0x304,{0x00000000, 0x00004000}
02a3 00da | | Load_Top At_Offset_2
02a4 4800 |H | Short_Literal 0x0
02a5 e5ff | | Load 0x2,-0x1
02a6 e001 | | Load 0x0,0x1
02a7 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
02a8 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
02a9 005b | [ | Store_Top Discrete,At_Offset_3
02aa e001 | | Load 0x0,0x1 ; Debug Table 0xb.0x9 = 0x2aa,0x5
02ab 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02ac e403 | | Load 0x2,0x3
02ad 0120 | | Execute Any,Is_Value
02ae 6804 |h | Jump_Zero 0x2b3
02af e001 | | Load 0x0,0x1
02b0 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
02b1 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
02b2 7801 |x | Jump 0x2b4
02b3 e403 | | Load 0x2,0x3
02b4 e001 | | Load 0x0,0x1
02b5 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
02b6 1b16 | | Execute Package,Field_Read,Field_Number 0x16
02b7 604c |`L | Indirect_Literal Discrete,0x304,{0x00000000, 0x00004000}
02b8 4801 |H | Short_Literal 0x1
02b9 4800 |H | Short_Literal 0x0
02ba 4800 |H | Short_Literal 0x0
02bb e406 | | Load 0x2,0x6
02bc 4802 |H | Short_Literal 0x2
02bd e5ff | | Load 0x2,-0x1
02be e001 | | Load 0x0,0x1
02bf 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
02c0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02c1 e001 | | Load 0x0,0x1
02c2 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
02c3 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
02c4 c402 | | Store 0x2,0x2
02c5 c403 | | Store 0x2,0x3
02c6 005b | [ | Store_Top Discrete,At_Offset_3
02c7 00da | | Load_Top At_Offset_2 ; Debug Table 0xb.0xa = 0x2c7,0x6
02c8 7022 |p" | Jump_Nonzero 0x2eb
02c9 e5fd | | Load 0x2,-0x3 ; Debug Table 0xb.0xb = 0x2c9,0x7
02ca e403 | | Load 0x2,0x3
02cb 8219 | | Call 0x1,0x19
02cc e402 | | Load 0x2,0x2
02cd 821a | | Call 0x1,0x1a
02ce 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xb.0xc = 0x2ce,0x8
02cf 680a |h | Jump_Zero 0x2da
02d0 e001 | | Load 0x0,0x1 ; Debug Table 0xb.0xd = 0x2d0,0x9
02d1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02d2 6031 |`1 | Indirect_Literal Discrete,0x304,{0x00000000, 0x00004000}
02d3 00da | | Load_Top At_Offset_2
02d4 4801 |H | Short_Literal 0x1
02d5 e5ff | | Load 0x2,-0x1
02d6 e001 | | Load 0x0,0x1
02d7 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
02d8 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
02d9 005b | [ | Store_Top Discrete,At_Offset_3
02da e001 | | Load 0x0,0x1 ; Debug Table 0xb.0xe = 0x2da,0xa
02db 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02dc 4800 |H | Short_Literal 0x0
02dd 4801 |H | Short_Literal 0x1
02de 00db | | Load_Top At_Offset_3
02df e402 | | Load 0x2,0x2
02e0 e001 | | Load 0x0,0x1
02e1 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
02e2 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
02e3 005b | [ | Store_Top Discrete,At_Offset_3
02e4 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xb.0xf = 0x2e4,0xb
02e5 4801 |H | Short_Literal 0x1
02e6 4801 |H | Short_Literal 0x1
02e7 e003 | | Load 0x0,0x3
02e8 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02e9 c406 | | Store 0x2,0x6
02ea 4504 |E | Exit_Suprogram New_Top_Offset 0x4
02eb 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xb.0x10 = 0x2eb,0xc
02ec 4801 |H | Short_Literal 0x1
02ed 4800 |H | Short_Literal 0x0
02ee e003 | | Load 0x0,0x3
02ef 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02f0 c406 | | Store 0x2,0x6
02f1 0092 0653 | S| Action Push_String_Extended,0x653 ; "can't open "
; Debug Table 0xb.0x11 = 0x2f1,0xd
02f3 e5fe | | Load 0x2,-0x2
02f4 01cc | | Execute Vector,Catenate
02f5 0092 0654 | T| Action Push_String_Extended,0x654 ; " to attach error messages"
02f7 01cc | | Execute Vector,Catenate
02f8 e00b | | Load 0x0,0xb
02f9 180d | | Execute Package,Field_Execute,Field_Number 0xd
02fa 4504 |E | Exit_Suprogram New_Top_Offset 0x4
02fb TRAP_0278:
02fb 0007 | | Action Break_Optional
02fc 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xb.0x12 = 0x2fc,0xe
02fd 4801 |H | Short_Literal 0x1
02fe 4800 |H | Short_Literal 0x0
02ff e003 | | Load 0x0,0x3
0300 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0301 c406 | | Store 0x2,0x6
0302 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0303 0000 | | .XXX[0x1]
0304 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0308 0000 0000 | | .LITERAL {0x00000000, 0x57979501}
030c 0000 0000 | | .LITERAL {0x00000000, 0x57979503}
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0316 | | .CONST 0x0316 ; Address of begin
0311 0004 | | .CONST 0x0004 ; Address of exception handler
0312 0002 | | .CONST 0x0002 ; Number of locals
0313 INIT_0310:
0313 e001 | | Load 0x0,0x1 ; Debug Table 0xc = .DEBUG 0x0313,0x0894,0x0001,0x0000,0x0057,0x9985,0x0000,0x02cb
; Debug Table 0xc.0x0 = 0x313,0xffff
0314 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
0315 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0316 BODY_0310:
0316 4801 |H | Short_Literal 0x1 ; Debug Table 0xc.0x1 = 0x316,0x1
0317 a5f8 | | Store_Unchecked 0x2,-0x8
0318 e5fb | | Load 0x2,-0x5 ; Debug Table 0xc.0x2 = 0x318,0x2
0319 6811 |h | Jump_Zero 0x32b
031a e5fc | | Load 0x2,-0x4 ; Debug Table 0xc.0x3 = 0x31a,0x3
031b e012 | | Load 0x0,0x12
031c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
031d 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
031e 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xc.0x4 = 0x31e,0x4
031f 0f04 | | Execute_Immediate Equal,0x4
0320 6803 |h | Jump_Zero 0x324
0321 4804 |H | Short_Literal 0x4 ; Debug Table 0xc.0x5 = 0x321,0x5
0322 a5f7 | | Store_Unchecked 0x2,-0x9
0323 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0324 e001 | | Load 0x0,0x1 ; Debug Table 0xc.0x6 = 0x324,0x6
0325 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
0326 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0327 e5fa | | Load 0x2,-0x6
0328 0268 | h | Execute Discrete,Successor
0329 a5f7 | | Store_Unchecked 0x2,-0x9
032a 4508 |E | Exit_Suprogram New_Top_Offset 0x8
032b e5f9 | | Load 0x2,-0x7 ; Debug Table 0xc.0x7 = 0x32b,0x7
032c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
032d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
032e 4602 |F | Jump_Case 0x3
032f 7812 |x | Jump 0x342 ; case 0x0
0330 7801 |x | Jump 0x332 ; case 0x1
0331 7817 |x | Jump 0x349 ; case 0x2
0332 e5f9 | | Load 0x2,-0x7 ; Debug Table 0xc.0x8 = 0x332,0x8
0333 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0334 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0335 e5fa | | Load 0x2,-0x6
0336 027a | z | Execute Discrete,Less_Equal
0337 6805 |h | Jump_Zero 0x33d
0338 4802 |H | Short_Literal 0x2 ; Debug Table 0xc.0x9 = 0x338,0x9
0339 a5f7 | | Store_Unchecked 0x2,-0x9
033a 4800 |H | Short_Literal 0x0 ; Debug Table 0xc.0xa = 0x33a,0xa
033b a5f8 | | Store_Unchecked 0x2,-0x8
033c 4508 |E | Exit_Suprogram New_Top_Offset 0x8
033d e5f9 | | Load 0x2,-0x7 ; Debug Table 0xc.0xb = 0x33d,0xb
033e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
033f 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0340 a5f7 | | Store_Unchecked 0x2,-0x9
0341 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0342 e001 | | Load 0x0,0x1 ; Debug Table 0xc.0xc = 0x342,0xc
0343 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
0344 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0345 e5fa | | Load 0x2,-0x6
0346 0268 | h | Execute Discrete,Successor
0347 a5f7 | | Store_Unchecked 0x2,-0x9
0348 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0349 e5fd | | Load 0x2,-0x3 ; Debug Table 0xc.0xd = 0x349,0xd
034a 0f01 | | Execute_Immediate Equal,0x1
034b 6807 |h | Jump_Zero 0x353
034c 00db | | Load_Top At_Offset_3 ; Debug Table 0xc.0xe = 0x34c,0xe
034d 0217 | | Execute Heap_Access,All_Reference
034e 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
034f e013 | | Load 0x0,0x13
0350 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0351 a5f7 | | Store_Unchecked 0x2,-0x9
0352 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0353 e5fe | | Load 0x2,-0x2 ; Debug Table 0xc.0xf = 0x353,0xf
0354 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
0355 e013 | | Load 0x0,0x13
0356 1842 | B | Execute Package,Field_Execute,Field_Number 0x42
0357 6807 |h | Jump_Zero 0x35f
0358 e001 | | Load 0x0,0x1 ; Debug Table 0xc.0x10 = 0x358,0x10
0359 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
035a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
035b e5fa | | Load 0x2,-0x6
035c 0268 | h | Execute Discrete,Successor
035d a5f7 | | Store_Unchecked 0x2,-0x9
035e 4508 |E | Exit_Suprogram New_Top_Offset 0x8
035f e5fe | | Load 0x2,-0x2 ; Debug Table 0xc.0x11 = 0x35f,0x11
0360 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
0361 e013 | | Load 0x0,0x13
0362 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0363 a5f7 | | Store_Unchecked 0x2,-0x9
0364 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0365 0000 0000 | | .XXX[0x3]
0367 0000 | |
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 036b | k | .CONST 0x036b ; Address of begin
0369 0004 | | .CONST 0x0004 ; Address of exception handler
036a 0001 | | .CONST 0x0001 ; Number of locals
036b BODY_0368:
036b INIT_0368:
036b e5fd | | Load 0x2,-0x3 ; Debug Table 0xd = .DEBUG 0x036b,0x08ba,0x0001,0x0000,0x0057,0x9985,0x0000,0x039f
; Debug Table 0xd.0x0 = 0x36b,0x1
036c e012 | | Load 0x0,0x12
036d 180d | | Execute Package,Field_Execute,Field_Number 0xd
036e 6808 |h | Jump_Zero 0x377
036f e5fb | | Load 0x2,-0x5
0370 6804 |h | Jump_Zero 0x375
0371 e5fa | | Load 0x2,-0x6
0372 e014 | | Load 0x0,0x14
0373 180d | | Execute Package,Field_Execute,Field_Number 0xd
0374 7801 |x | Jump 0x376
0375 4800 |H | Short_Literal 0x0
0376 682f |h/ | Jump_Zero 0x3a6
0377 4800 |H | Short_Literal 0x0 ; Debug Table 0xd.0x1 = 0x377,0x2
0378 e015 | | Load 0x0,0x15
0379 1c08 | | Execute_Immediate Run_Utility,0x8
037a e5fa | | Load 0x2,-0x6
037b 00d9 | | Load_Top At_Offset_1
037c 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
037d e5f9 | | Load 0x2,-0x7
037e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
037f 00db | | Load_Top At_Offset_3 ; Debug Table 0xd.0x2 = 0x37f,0x3
0380 00db | | Load_Top At_Offset_3
0381 0217 | | Execute Heap_Access,All_Reference
0382 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0383 027b | { | Execute Discrete,Greater_Equal
0384 6807 |h | Jump_Zero 0x38c
0385 e5fa | | Load 0x2,-0x6 ; Debug Table 0xd.0x3 = 0x385,0x4
0386 e5fc | | Load 0x2,-0x4
0387 e5f9 | | Load 0x2,-0x7
0388 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
0389 e013 | | Load 0x0,0x13
038a 1857 | W | Execute Package,Field_Execute,Field_Number 0x57
038b 4507 |E | Exit_Suprogram New_Top_Offset 0x7
038c 00da | | Load_Top At_Offset_2 ; Debug Table 0xd.0x4 = 0x38c,0x5
038d 0217 | | Execute Heap_Access,All_Reference
038e 3c1c |< | Execute Record,Field_Read,Field_Number 0x1c
038f 0217 | | Execute Heap_Access,All_Reference
0390 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0391 700b |p | Jump_Nonzero 0x39d
0392 e5f9 | | Load 0x2,-0x7 ; Debug Table 0xd.0x5 = 0x392,0x6
0393 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0394 00db | | Load_Top At_Offset_3
0395 0217 | | Execute Heap_Access,All_Reference
0396 3c1c |< | Execute Record,Field_Read,Field_Number 0x1c
0397 0217 | | Execute Heap_Access,All_Reference
0398 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0399 00da | | Load_Top At_Offset_2 ; Debug Table 0xd.0x6 = 0x399,0x7
039a e016 | | Load 0x0,0x16
039b 1814 | | Execute Package,Field_Execute,Field_Number 0x14
039c 4507 |E | Exit_Suprogram New_Top_Offset 0x7
039d e5f9 | | Load 0x2,-0x7 ; Debug Table 0xd.0x7 = 0x39d,0x8
039e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
039f e5fe | | Load 0x2,-0x2
03a0 e5ff | | Load 0x2,-0x1
03a1 e006 | | Load 0x0,0x6
03a2 1817 | | Execute Package,Field_Execute,Field_Number 0x17
03a3 0217 | | Execute Heap_Access,All_Reference
03a4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
03a5 4507 |E | Exit_Suprogram New_Top_Offset 0x7
03a6 00db | | Load_Top At_Offset_3 ; Debug Table 0xd.0x8 = 0x3a6,0x9
03a7 0f01 | | Execute_Immediate Equal,0x1
03a8 6815 |h | Jump_Zero 0x3be
03a9 00da | | Load_Top At_Offset_2 ; Debug Table 0xd.0x9 = 0x3a9,0xa
03aa 0217 | | Execute Heap_Access,All_Reference
03ab 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
03ac 4801 |H | Short_Literal 0x1
03ad e5fd | | Load 0x2,-0x3
03ae e012 | | Load 0x0,0x12
03af 180e | | Execute Package,Field_Execute,Field_Number 0xe
03b0 e017 | | Load 0x0,0x17
03b1 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03b2 00db | | Load_Top At_Offset_3
03b3 0217 | | Execute Heap_Access,All_Reference
03b4 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
03b5 e013 | | Load 0x0,0x13
03b6 1852 | R | Execute Package,Field_Execute,Field_Number 0x52
03b7 e5f9 | | Load 0x2,-0x7 ; Debug Table 0xd.0xa = 0x3b7,0xb
03b8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03b9 00db | | Load_Top At_Offset_3
03ba 0217 | | Execute Heap_Access,All_Reference
03bb 3c1c |< | Execute Record,Field_Read,Field_Number 0x1c
03bc 0217 | | Execute Heap_Access,All_Reference
03bd 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
03be 4507 |E | Exit_Suprogram New_Top_Offset 0x7
03bf 0000 | | .XXX[0x1]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03ea | | .CONST 0x03ea ; Address of begin
03c1 0004 | | .CONST 0x0004 ; Address of exception handler
03c2 000d | | .CONST 0x000d ; Number of locals
03c3 INIT_03c0:
03c3 e001 | | Load 0x0,0x1 ; Debug Table 0xe = .DEBUG 0x03c3,0x08d2,0x0001,0x0000,0x0057,0x9985,0x0000,0x044c
; Debug Table 0xe.0x0 = 0x3c3,0xffff
03c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03c5 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0xe.0x1 = 0x3c5,0xfffe
03c6 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0xe.0x2 = 0x3c6,0xfffd
03c7 00f1 | | Load_Encached Diana_Temp_Seq ; Debug Table 0xe.0x3 = 0x3c7,0xfffc
03c8 e00e | | Load 0x0,0xe ; Debug Table 0xe.0x4 = 0x3c8,0xfffb
03c9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03ca 02c7 | | Declare_Variable Any
03cb 00d8 | | Load_Top At_Offset_0
03cc 1c00 | | Execute_Immediate Run_Utility,0x0
03cd e001 | | Load 0x0,0x1 ; Debug Table 0xe.0x5 = 0x3cd,0xfffa
03ce 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
03cf 1b17 | | Execute Package,Field_Read,Field_Number 0x17
03d0 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0xe.0x6 = 0x3d0,0xfff9
03d1 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0xe.0x7 = 0x3d1,0xfff8
03d2 e001 | | Load 0x0,0x1 ; Debug Table 0xe.0x8 = 0x3d2,0xfff7
03d3 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
03d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03d5 e001 | | Load 0x0,0x1 ; Debug Table 0xe.0x9 = 0x3d5,0xfff6
03d6 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03d7 02c7 | | Declare_Variable Any
03d8 e5fd | | Load 0x2,-0x3
03d9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03da 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
03db c40b | | Store 0x2,0xb
03dc e003 | | Load 0x0,0x3 ; Debug Table 0xe.0xa = 0x3dc,0xfff5
03dd 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03de 00d9 | | Load_Top At_Offset_1
03df e012 | | Load 0x0,0x12
03e0 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03e1 e001 | | Load 0x0,0x1
03e2 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
03e3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03e4 03f1 | | Declare_Variable Discrete,With_Value
03e5 4828 |H( | Short_Literal 0x28 ; Debug Table 0xe.0xb = 0x3e5,0xfff4
03e6 e5fd | | Load 0x2,-0x3
03e7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03e8 e018 | | Load 0x0,0x18
03e9 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03ea BODY_03c0:
03ea 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xe.0xc = 0x3ea,0x1
03eb 0f04 | | Execute_Immediate Equal,0x4
03ec 680a |h | Jump_Zero 0x3f7
03ed e5fc | | Load 0x2,-0x4 ; Debug Table 0xe.0xd = 0x3ed,0x2
03ee 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
03ef 6806 |h | Jump_Zero 0x3f6
03f0 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xe.0xe = 0x3f0,0x3
03f1 0092 0655 | U| Action Push_String_Extended,0x655 ; " is coded"
03f3 01cc | | Execute Vector,Catenate
03f4 e00b | | Load 0x0,0xb
03f5 180e | | Execute Package,Field_Execute,Field_Number 0xe
03f6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; Debug Table 0xe.0xf = 0x3f6,0x4
03f7 00da | | Load_Top At_Offset_2 ; Debug Table 0xe.0x10 = 0x3f7,0x5
03f8 e012 | | Load 0x0,0x12
03f9 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03fa a403 | | Store_Unchecked 0x2,0x3
03fb 0007 | | Action Break_Optional ; Debug Table 0xe.0x11 = 0x3fb,0x6
03fc e403 | | Load 0x2,0x3 ; Debug Table 0xe.0x12 = 0x3fc,0x401
03fd 0007 | | Action Break_Optional
03fe 0145 | E | Execute Heap_Access,Diana_Tree_Kind ; Debug Table 0xe.0x13 = 0x3fe,0x402
03ff 0007 | | Action Break_Optional ; Debug Table 0xe.0x14 = 0x3ff,0x403
0400 0007 | | Action Break_Optional ; Debug Table 0xe.0x15 = 0x400,0x404
0401 0fab | | Execute_Immediate Equal,-0x55 ; Debug Table 0xe.0x16 = 0x401,0x6
0402 a408 | | Store_Unchecked 0x2,0x8
0403 e403 | | Load 0x2,0x3 ; Debug Table 0xe.0x17 = 0x403,0x7
0404 a404 | | Store_Unchecked 0x2,0x4
0405 e001 | | Load 0x0,0x1 ; Debug Table 0xe.0x18 = 0x405,0x8
0406 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
0407 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0408 00e1 | | Load_Encached Boolean_Cache
0409 e5fc | | Load 0x2,-0x4
040a e40c | | Load 0x2,0xc
040b e408 | | Load 0x2,0x8
040c e403 | | Load 0x2,0x3
040d e5fe | | Load 0x2,-0x2
040e e5fd | | Load 0x2,-0x3
040f e5ff | | Load 0x2,-0x1
0410 821c | | Call 0x1,0x1c
0411 c409 | | Store 0x2,0x9
0412 c40a | | Store 0x2,0xa
0413 e409 | | Load 0x2,0x9 ; Debug Table 0xe.0x19 = 0x413,0x9
0414 7001 |p | Jump_Nonzero 0x416
0415 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; Debug Table 0xe.0x1a = 0x415,0xa
0416 e001 | | Load 0x0,0x1 ; Debug Table 0xe.0x1b = 0x416,0xb
0417 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0418 00f1 | | Load_Encached Diana_Temp_Seq
0419 e001 | | Load 0x0,0x1
041a 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
041b 1b17 | | Execute Package,Field_Read,Field_Number 0x17
041c e406 | | Load 0x2,0x6
041d 0120 | | Execute Any,Is_Value
041e 6803 |h | Jump_Zero 0x422
041f e00e | | Load 0x0,0xe
0420 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0421 7801 |x | Jump 0x423
0422 e406 | | Load 0x2,0x6
0423 e403 | | Load 0x2,0x3
0424 66df |f | Indirect_Literal Discrete,0x304,{0x00000000, 0x00004000}
0425 e5fc | | Load 0x2,-0x4
0426 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0427 4803 |H | Short_Literal 0x3
0428 e00f | | Load 0x0,0xf
0429 1811 | | Execute Package,Field_Execute,Field_Number 0x11
042a e010 | | Load 0x0,0x10
042b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
042c e40b | | Load 0x2,0xb
042d e012 | | Load 0x0,0x12
042e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
042f e001 | | Load 0x0,0x1
0430 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0431 e40a | | Load 0x2,0xa
0432 e001 | | Load 0x0,0x1
0433 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
0434 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0435 c403 | | Store 0x2,0x3
0436 c406 | | Store 0x2,0x6
0437 c407 | | Store 0x2,0x7
0438 c405 | | Store 0x2,0x5
0439 c402 | | Store 0x2,0x2
043a e402 | | Load 0x2,0x2 ; Debug Table 0xe.0x1c = 0x43a,0xc
043b 681a |h | Jump_Zero 0x456
043c 4800 |H | Short_Literal 0x0 ; Debug Table 0xe.0x1d = 0x43c,0xd
043d e5fc | | Load 0x2,-0x4
043e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
043f 0092 0656 | V| Action Push_String_Extended,0x656 ; "can't promote "
; Debug Table 0xe.0x1e = 0x43f,0xe
0441 00d9 | | Load_Top At_Offset_1
0442 01cc | | Execute Vector,Catenate
0443 0092 0657 | W| Action Push_String_Extended,0x657 ; " ("
0445 01cc | | Execute Vector,Catenate
0446 e402 | | Load 0x2,0x2
0447 e001 | | Load 0x0,0x1
0448 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0449 025e | ^ | Execute Discrete,Convert
044a 1c01 | | Execute_Immediate Run_Utility,0x1
044b 01cc | | Execute Vector,Catenate
044c 0092 0658 | X| Action Push_String_Extended,0x658 ; ")"
044e 01cc | | Execute Vector,Catenate
044f e00b | | Load 0x0,0xb
0450 180d | | Execute Package,Field_Execute,Field_Number 0xd
0451 e406 | | Load 0x2,0x6 ; Debug Table 0xe.0x1f = 0x451,0xf
0452 00d9 | | Load_Top At_Offset_1
0453 e40b | | Load 0x2,0xb
0454 821b | | Call 0x1,0x1b
0455 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0456 0092 0659 | Y| Action Push_String_Extended,0x659 ; "promoted "
; Debug Table 0xe.0x20 = 0x456,0x10
0458 00d9 | | Load_Top At_Offset_1
0459 01cc | | Execute Vector,Catenate
045a e00b | | Load 0x0,0xb
045b 180e | | Execute Package,Field_Execute,Field_Number 0xe
045c e5fd | | Load 0x2,-0x3 ; Debug Table 0xe.0x21 = 0x45c,0x11
045d e403 | | Load 0x2,0x3
045e e408 | | Load 0x2,0x8
045f e404 | | Load 0x2,0x4
0460 e40b | | Load 0x2,0xb
0461 e5fe | | Load 0x2,-0x2
0462 e5ff | | Load 0x2,-0x1
0463 821d | | Call 0x1,0x1d
0464 00d1 | | Pop_Control Pop_Count_1
0465 e5fd | | Load 0x2,-0x3 ; Debug Table 0xe.0x22 = 0x465,0x12
0466 e5fe | | Load 0x2,-0x2
0467 e5ff | | Load 0x2,-0x1
0468 e00d | | Load 0x0,0xd
0469 1818 | | Execute Package,Field_Execute,Field_Number 0x18
046a 00d1 | | Pop_Control Pop_Count_1
046b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
046c 0000 0000 | | .BLANK 0000[0x4]
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0486 | | .CONST 0x0486 ; Address of begin
0471 0004 | | .CONST 0x0004 ; Address of exception handler
0472 0005 | | .CONST 0x0005 ; Number of locals
0473 INIT_0470:
0473 e019 | | Load 0x0,0x19 ; Debug Table 0xf = .DEBUG 0x0473,0x091a,0x0001,0x0000,0x0057,0x9985,0x0000,0x057f
; Debug Table 0xf.0x0 = 0x473,0xffff
0474 0322 | " | Declare_Variable Record
0475 00d8 | | Load_Top At_Offset_0
0476 1c00 | | Execute_Immediate Run_Utility,0x0
0477 e5fe | | Load 0x2,-0x2 ; Debug Table 0xf.0x1 = 0x477,0xfffe
0478 e008 | | Load 0x0,0x8
0479 1b0f | | Execute Package,Field_Read,Field_Number 0xf
047a 03f1 | | Declare_Variable Discrete,With_Value
047b e5fd | | Load 0x2,-0x3 ; Debug Table 0xf.0x2 = 0x47b,0xfffd
047c e008 | | Load 0x0,0x8
047d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
047e 03f1 | | Declare_Variable Discrete,With_Value
047f e5ff | | Load 0x2,-0x1 ; Debug Table 0xf.0x3 = 0x47f,0xfffc
0480 0217 | | Execute Heap_Access,All_Reference
0481 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0482 e01a | | Load 0x0,0x1a
0483 0260 | ` | Execute Discrete,In_Type
0484 00e1 | | Load_Encached Boolean_Cache
0485 03f1 | | Declare_Variable Discrete,With_Value
0486 BODY_0470:
0486 785a |xZ | Jump 0x4e1
0487 00db | | Load_Top At_Offset_3 ; Debug Table 0xf.0x4 = 0x487,0x2
0488 00db | | Load_Top At_Offset_3
0489 e5ff | | Load 0x2,-0x1
048a e006 | | Load 0x0,0x6
048b 180e | | Execute Package,Field_Execute,Field_Number 0xe
048c c403 | | Store 0x2,0x3
048d 00d1 | | Pop_Control Pop_Count_1
048e 00db | | Load_Top At_Offset_3 ; Debug Table 0xf.0x5 = 0x48e,0x3
048f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0490 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0491 684b |hK | Jump_Zero 0x4dd
0492 00db | | Load_Top At_Offset_3 ; Debug Table 0xf.0x6 = 0x492,0x4
0493 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0494 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0495 e012 | | Load 0x0,0x12
0496 180d | | Execute Package,Field_Execute,Field_Number 0xd
0497 700a |p | Jump_Nonzero 0x4a2
0498 00db | | Load_Top At_Offset_3 ; Debug Table 0xf.0x7 = 0x498,0x5
0499 00db | | Load_Top At_Offset_3
049a e5ff | | Load 0x2,-0x1
049b e00d | | Load 0x0,0xd
049c 181d | | Execute Package,Field_Execute,Field_Number 0x1d
049d 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xf.0x8 = 0x49d,0x6
049e e402 | | Load 0x2,0x2
049f 801b | | Call 0x0,0x1b
04a0 005a | Z | Store_Top Discrete,At_Offset_2
04a1 783f |x? | Jump 0x4e1
04a2 e5fc | | Load 0x2,-0x4 ; Debug Table 0xf.0x9 = 0x4a2,0x7
04a3 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04a4 7028 |p( | Jump_Nonzero 0x4cd
04a5 00d8 | | Load_Top At_Offset_0
04a6 6826 |h& | Jump_Zero 0x4cd
04a7 00db | | Load_Top At_Offset_3
04a8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
04a9 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
04aa e012 | | Load 0x0,0x12
04ab 180e | | Execute Package,Field_Execute,Field_Number 0xe
04ac e406 | | Load 0x2,0x6 ; Debug Table 0xf.0xa = 0x4ac,0x401
04ad 0007 | | Action Break_Optional
04ae 0145 | E | Execute Heap_Access,Diana_Tree_Kind ; Debug Table 0xf.0xb = 0x4ae,0x402
04af 0007 | | Action Break_Optional ; Debug Table 0xf.0xc = 0x4af,0x403
04b0 00d0 | | Action Swap_Control ; Debug Table 0xf.0xd = 0x4b0,0x404
04b1 00d1 | | Pop_Control Pop_Count_1
04b2 0fa8 | | Execute_Immediate Equal,-0x58 ; Debug Table 0xf.0xe = 0x4b2,0x7
04b3 6819 |h | Jump_Zero 0x4cd
04b4 00db | | Load_Top At_Offset_3
04b5 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
04b6 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
04b7 e012 | | Load 0x0,0x12
04b8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04b9 e406 | | Load 0x2,0x6 ; Debug Table 0xf.0xf = 0x4b9,0x801
04ba 0007 | | Action Break_Optional
04bb 0145 | E | Execute Heap_Access,Diana_Tree_Kind ; Debug Table 0xf.0x10 = 0x4bb,0x802
04bc 0007 | | Action Break_Optional ; Debug Table 0xf.0x11 = 0x4bc,0x803
04bd 00d0 | | Action Swap_Control ; Debug Table 0xf.0x12 = 0x4bd,0x804
04be 00d1 | | Pop_Control Pop_Count_1
04bf 0fab | | Execute_Immediate Equal,-0x55 ; Debug Table 0xf.0x13 = 0x4bf,0x404
04c0 700c |p | Jump_Nonzero 0x4cd
04c1 e5ff | | Load 0x2,-0x1
04c2 0217 | | Execute Heap_Access,All_Reference
04c3 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
04c4 e402 | | Load 0x2,0x2
04c5 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
04c6 e013 | | Load 0x0,0x13
04c7 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
04c8 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xf.0x14 = 0x4c8,0xc01
04c9 021d | | Execute Heap_Access,Is_Null
04ca 00d0 | | Action Swap_Control
04cb 00d1 | | Pop_Control Pop_Count_1
04cc 680b |h | Jump_Zero 0x4d8 ; Debug Table 0xf.0x15 = 0x4cc,0x804
04cd e5fc | | Load 0x2,-0x4 ; Debug Table 0xf.0x16 = 0x4cd,0x8
04ce e402 | | Load 0x2,0x2
04cf e403 | | Load 0x2,0x3
04d0 e5ff | | Load 0x2,-0x1
04d1 821e | | Call 0x1,0x1e
04d2 00d2 | | Pop_Control Pop_Count_2
04d3 00da | | Load_Top At_Offset_2 ; Debug Table 0xf.0x17 = 0x4d3,0x9
04d4 e402 | | Load 0x2,0x2
04d5 801c | | Call 0x0,0x1c
04d6 005b | [ | Store_Top Discrete,At_Offset_3
04d7 7809 |x | Jump 0x4e1
04d8 00da | | Load_Top At_Offset_2 ; Debug Table 0xf.0x18 = 0x4d8,0xa
04d9 e402 | | Load 0x2,0x2
04da 801c | | Call 0x0,0x1c
04db 005b | [ | Store_Top Discrete,At_Offset_3
04dc 7804 |x | Jump 0x4e1
04dd 00da | | Load_Top At_Offset_2 ; Debug Table 0xf.0x19 = 0x4dd,0xb
04de e402 | | Load 0x2,0x2
04df 801c | | Call 0x0,0x1c
04e0 005b | [ | Store_Top Discrete,At_Offset_3
04e1 00da | | Load_Top At_Offset_2 ; Debug Table 0xf.0x1a = 0x4e1,0x1
04e2 00da | | Load_Top At_Offset_2
04e3 027a | z | Execute Discrete,Less_Equal
04e4 77a2 |w | Jump_Nonzero 0x487
04e5 4504 |E | Exit_Suprogram New_Top_Offset 0x4
04e6 0000 0000 | | .XXX[0x2]
04e8 ; --------------------------------------------------------------------------------------
04e8 ; SUBPROGRAM
04e8 ; --------------------------------------------------------------------------------------
04e8 04f3 | | .CONST 0x04f3 ; Address of begin
04e9 0004 | | .CONST 0x0004 ; Address of exception handler
04ea 0003 | | .CONST 0x0003 ; Number of locals
04eb INIT_04e8:
04eb e019 | | Load 0x0,0x19 ; Debug Table 0x10 = .DEBUG 0x04eb,0x0952,0x0001,0x0000,0x0057,0x9985,0x0000,0x0653
; Debug Table 0x10.0x0 = 0x4eb,0xffff
04ec 0322 | " | Declare_Variable Record
04ed 00d8 | | Load_Top At_Offset_0
04ee 1c00 | | Execute_Immediate Run_Utility,0x0
04ef e5fe | | Load 0x2,-0x2 ; Debug Table 0x10.0x1 = 0x4ef,0xfffe
04f0 e008 | | Load 0x0,0x8
04f1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04f2 03f1 | | Declare_Variable Discrete,With_Value
04f3 BODY_04e8:
04f3 781c |x | Jump 0x510
04f4 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x10.0x2 = 0x4f4,0x2
04f5 e5ff | | Load 0x2,-0x1
04f6 0217 | | Execute Heap_Access,All_Reference
04f7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04f8 e00c | | Load 0x0,0xc
04f9 1868 | h | Execute Package,Field_Execute,Field_Number 0x68
04fa 00da | | Load_Top At_Offset_2
04fb 017d | } | Execute Record,Structure_Write
04fc 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x10.0x3 = 0x4fc,0x3
04fd 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
04fe 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
04ff 680c |h | Jump_Zero 0x50c
0500 00d9 | | Load_Top At_Offset_1
0501 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0502 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0503 e012 | | Load 0x0,0x12
0504 180d | | Execute Package,Field_Execute,Field_Number 0xd
0505 6806 |h | Jump_Zero 0x50c
0506 e5fc | | Load 0x2,-0x4 ; Debug Table 0x10.0x4 = 0x506,0x4
0507 00da | | Load_Top At_Offset_2
0508 00da | | Load_Top At_Offset_2
0509 e5ff | | Load 0x2,-0x1
050a 821e | | Call 0x1,0x1e
050b 00d2 | | Pop_Control Pop_Count_2
050c 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x10.0x5 = 0x50c,0x5
050d 00da | | Load_Top At_Offset_2
050e 801c | | Call 0x0,0x1c
050f 0059 | Y | Store_Top Discrete,At_Offset_1
0510 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x10.0x6 = 0x510,0x1
0511 e5ff | | Load 0x2,-0x1
0512 0217 | | Execute Heap_Access,All_Reference
0513 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0514 027c | | | Execute Discrete,Less
0515 6804 |h | Jump_Zero 0x51a
0516 00d8 | | Load_Top At_Offset_0
0517 e5fd | | Load 0x2,-0x3
0518 027a | z | Execute Discrete,Less_Equal
0519 77da |w | Jump_Nonzero 0x4f4
051a e5ff | | Load 0x2,-0x1 ; Debug Table 0x10.0x7 = 0x51a,0x6
051b e016 | | Load 0x0,0x16
051c 1814 | | Execute Package,Field_Execute,Field_Number 0x14
051d 4504 |E | Exit_Suprogram New_Top_Offset 0x4
051e 0000 0000 | | .XXX[0x2]
0520 ; --------------------------------------------------------------------------------------
0520 ; SUBPROGRAM
0520 ; --------------------------------------------------------------------------------------
0520 052b | + | .CONST 0x052b ; Address of begin
0521 0004 | | .CONST 0x0004 ; Address of exception handler
0522 0004 | | .CONST 0x0004 ; Number of locals
0523 INIT_0520:
0523 e019 | | Load 0x0,0x19 ; Debug Table 0x11 = .DEBUG 0x0523,0x0964,0x0001,0x0000,0x0057,0x9985,0x0000,0x06bc
; Debug Table 0x11.0x0 = 0x523,0xffff
0524 0322 | " | Declare_Variable Record
0525 00d8 | | Load_Top At_Offset_0
0526 1c00 | | Execute_Immediate Run_Utility,0x0
0527 e008 | | Load 0x0,0x8 ; Debug Table 0x11.0x1 = 0x527,0xfffe
0528 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0529 e008 | | Load 0x0,0x8 ; Debug Table 0x11.0x2 = 0x529,0xfffd
052a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
052b BODY_0520:
052b e5ff | | Load 0x2,-0x1 ; Debug Table 0x11.0x3 = 0x52b,0x1
052c e00d | | Load 0x0,0xd
052d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
052e e5ff | | Load 0x2,-0x1 ; Debug Table 0x11.0x4 = 0x52e,0x2
052f 0217 | | Execute Heap_Access,All_Reference
0530 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0531 e01d | | Load 0x0,0x1d
0532 0260 | ` | Execute Discrete,In_Type
0533 6816 |h | Jump_Zero 0x54a
0534 e5fe | | Load 0x2,-0x2 ; Debug Table 0x11.0x5 = 0x534,0x3
0535 e5ff | | Load 0x2,-0x1
0536 0217 | | Execute Heap_Access,All_Reference
0537 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0538 027c | | | Execute Discrete,Less
0539 6809 |h | Jump_Zero 0x543
053a e5fc | | Load 0x2,-0x4 ; Debug Table 0x11.0x6 = 0x53a,0x4
053b e5fd | | Load 0x2,-0x3
053c e5ff | | Load 0x2,-0x1
053d 0217 | | Execute Heap_Access,All_Reference
053e 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
053f e5ff | | Load 0x2,-0x1
0540 821f | | Call 0x1,0x1f
0541 00d1 | | Pop_Control Pop_Count_1
0542 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0543 e5fc | | Load 0x2,-0x4 ; Debug Table 0x11.0x7 = 0x543,0x5
0544 e5fd | | Load 0x2,-0x3
0545 e5fe | | Load 0x2,-0x2
0546 e5ff | | Load 0x2,-0x1
0547 821f | | Call 0x1,0x1f
0548 00d1 | | Pop_Control Pop_Count_1
0549 4504 |E | Exit_Suprogram New_Top_Offset 0x4
054a e5fe | | Load 0x2,-0x2 ; Debug Table 0x11.0x8 = 0x54a,0x6
054b e5ff | | Load 0x2,-0x1
054c 0217 | | Execute Heap_Access,All_Reference
054d 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
054e 027b | { | Execute Discrete,Greater_Equal
054f 6807 |h | Jump_Zero 0x557
0550 e5fc | | Load 0x2,-0x4 ; Debug Table 0x11.0x9 = 0x550,0x7
0551 e5fd | | Load 0x2,-0x3
0552 e5fe | | Load 0x2,-0x2
0553 e5ff | | Load 0x2,-0x1
0554 821f | | Call 0x1,0x1f
0555 00d1 | | Pop_Control Pop_Count_1
0556 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0557 e5ff | | Load 0x2,-0x1 ; Debug Table 0x11.0xa = 0x557,0x8
0558 0217 | | Execute Heap_Access,All_Reference
0559 3c1c |< | Execute Record,Field_Read,Field_Number 0x1c
055a 0217 | | Execute Heap_Access,All_Reference
055b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
055c 6813 |h | Jump_Zero 0x570
055d e5fc | | Load 0x2,-0x4 ; Debug Table 0x11.0xb = 0x55d,0x9
055e e5fd | | Load 0x2,-0x3
055f e5fe | | Load 0x2,-0x2
0560 e5ff | | Load 0x2,-0x1
0561 8220 | | Call 0x1,0x20
0562 00d1 | | Pop_Control Pop_Count_1
0563 e5fc | | Load 0x2,-0x4 ; Debug Table 0x11.0xc = 0x563,0xa
0564 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0565 7001 |p | Jump_Nonzero 0x567
0566 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; Debug Table 0x11.0xd = 0x566,0xb
0567 e5fc | | Load 0x2,-0x4 ; Debug Table 0x11.0xe = 0x567,0xc
0568 e5fd | | Load 0x2,-0x3
0569 e5ff | | Load 0x2,-0x1
056a 0217 | | Execute Heap_Access,All_Reference
056b 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
056c e5ff | | Load 0x2,-0x1
056d 821f | | Call 0x1,0x1f
056e 00d1 | | Pop_Control Pop_Count_1
056f 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0570 e5ff | | Load 0x2,-0x1 ; Debug Table 0x11.0xf = 0x570,0xd
0571 0217 | | Execute Heap_Access,All_Reference
0572 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0573 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0574 4801 |H | Short_Literal 0x1 ; Debug Table 0x11.0x10 = 0x574,0xe
0575 e5ff | | Load 0x2,-0x1
0576 0217 | | Execute Heap_Access,All_Reference
0577 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0578 e00c | | Load 0x0,0xc
0579 1868 | h | Execute Package,Field_Execute,Field_Number 0x68
057a 00db | | Load_Top At_Offset_3
057b 017d | } | Execute Record,Structure_Write
057c 00da | | Load_Top At_Offset_2 ; Debug Table 0x11.0x11 = 0x57c,0xf
057d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
057e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
057f 6831 |h1 | Jump_Zero 0x5b1
0580 00da | | Load_Top At_Offset_2
0581 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0582 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0583 e012 | | Load 0x0,0x12
0584 180d | | Execute Package,Field_Execute,Field_Number 0xd
0585 682b |h+ | Jump_Zero 0x5b1
0586 e5fc | | Load 0x2,-0x4 ; Debug Table 0x11.0x12 = 0x586,0x10
0587 00db | | Load_Top At_Offset_3
0588 4801 |H | Short_Literal 0x1
0589 e5ff | | Load 0x2,-0x1
058a 821e | | Call 0x1,0x1e
058b 00d2 | | Pop_Control Pop_Count_2
058c e5fc | | Load 0x2,-0x4 ; Debug Table 0x11.0x13 = 0x58c,0x11
058d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
058e 7001 |p | Jump_Nonzero 0x590
058f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; Debug Table 0x11.0x14 = 0x58f,0x12
0590 e5ff | | Load 0x2,-0x1 ; Debug Table 0x11.0x15 = 0x590,0x13
0591 0217 | | Execute Heap_Access,All_Reference
0592 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0593 00da | | Load_Top At_Offset_2
0594 027c | | | Execute Discrete,Less
0595 6809 |h | Jump_Zero 0x59f
0596 e5ff | | Load 0x2,-0x1 ; Debug Table 0x11.0x16 = 0x596,0x14
0597 0217 | | Execute Heap_Access,All_Reference
0598 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0599 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
059a e5fd | | Load 0x2,-0x3 ; Debug Table 0x11.0x17 = 0x59a,0x15
059b 0aff | | Execute_Immediate Plus,-0x1
059c 0248 | H | Execute Discrete,Check_In_Integer
059d 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
059e 7814 |x | Jump 0x5b3
059f e5ff | | Load 0x2,-0x1 ; Debug Table 0x11.0x18 = 0x59f,0x16
05a0 0217 | | Execute Heap_Access,All_Reference
05a1 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
05a2 00da | | Load_Top At_Offset_2
05a3 027d | } | Execute Discrete,Greater
05a4 6809 |h | Jump_Zero 0x5ae
05a5 e5ff | | Load 0x2,-0x1 ; Debug Table 0x11.0x19 = 0x5a5,0x17
05a6 0217 | | Execute Heap_Access,All_Reference
05a7 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
05a8 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
05a9 e5fd | | Load 0x2,-0x3 ; Debug Table 0x11.0x1a = 0x5a9,0x18
05aa 0a01 | | Execute_Immediate Plus,0x1
05ab 0248 | H | Execute Discrete,Check_In_Integer
05ac 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
05ad 7805 |x | Jump 0x5b3
05ae e5fd | | Load 0x2,-0x3 ; Debug Table 0x11.0x1b = 0x5ae,0x19
05af 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
05b0 7802 |x | Jump 0x5b3
05b1 e5fd | | Load 0x2,-0x3 ; Debug Table 0x11.0x1c = 0x5b1,0x1a
05b2 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
05b3 e5fc | | Load 0x2,-0x4 ; Debug Table 0x11.0x1d = 0x5b3,0x1b
05b4 00d9 | | Load_Top At_Offset_1
05b5 00db | | Load_Top At_Offset_3
05b6 e5ff | | Load 0x2,-0x1
05b7 821f | | Call 0x1,0x1f
05b8 00d1 | | Pop_Control Pop_Count_1
05b9 4504 |E | Exit_Suprogram New_Top_Offset 0x4
05ba 0000 0000 | | .BLANK 0000[0x6]
05c0 ; --------------------------------------------------------------------------------------
05c0 ; SUBPROGRAM
05c0 ; --------------------------------------------------------------------------------------
05c0 05cf | | .CONST 0x05cf ; Address of begin
05c1 0004 | | .CONST 0x0004 ; Address of exception handler
05c2 0003 | | .CONST 0x0003 ; Number of locals
05c3 INIT_05c0:
05c3 e019 | | Load 0x0,0x19 ; Debug Table 0x12 = .DEBUG 0x05c3,0x09a2,0x0001,0x0000,0x0057,0x9985,0x0000,0x07bd
; Debug Table 0x12.0x0 = 0x5c3,0xffff
05c4 0322 | " | Declare_Variable Record
05c5 00d8 | | Load_Top At_Offset_0
05c6 1c00 | | Execute_Immediate Run_Utility,0x0
05c7 e5fe | | Load 0x2,-0x2 ; Debug Table 0x12.0x1 = 0x5c7,0xfffe
05c8 e00c | | Load 0x0,0xc
05c9 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b
05ca e00c | | Load 0x0,0xc
05cb 185d | ] | Execute Package,Field_Execute,Field_Number 0x5d
05cc e008 | | Load 0x0,0x8
05cd 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05ce 03f1 | | Declare_Variable Discrete,With_Value
05cf BODY_05c0:
05cf e5ff | | Load 0x2,-0x1 ; Debug Table 0x12.0x2 = 0x5cf,0x1
05d0 0217 | | Execute Heap_Access,All_Reference
05d1 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
05d2 e01d | | Load 0x0,0x1d
05d3 0260 | ` | Execute Discrete,In_Type
05d4 6813 |h | Jump_Zero 0x5e8
05d5 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x12.0x3 = 0x5d5,0x2
05d6 e5ff | | Load 0x2,-0x1
05d7 0217 | | Execute Heap_Access,All_Reference
05d8 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
05d9 027c | | | Execute Discrete,Less
05da 7008 |p | Jump_Nonzero 0x5e3
05db 00d8 | | Load_Top At_Offset_0
05dc e5ff | | Load 0x2,-0x1
05dd 0217 | | Execute Heap_Access,All_Reference
05de 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05df e00c | | Load 0x0,0xc
05e0 1869 | i | Execute Package,Field_Execute,Field_Number 0x69
05e1 027d | } | Execute Discrete,Greater
05e2 6818 |h | Jump_Zero 0x5fb
05e3 0092 065a | Z| Action Push_String_Extended,0x65a ; "nothing to promote here"
; Debug Table 0x12.0x4 = 0x5e3,0x3
05e5 e00b | | Load 0x0,0xb
05e6 180d | | Execute Package,Field_Execute,Field_Number 0xd
05e7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; Debug Table 0x12.0x5 = 0x5e7,0x4
05e8 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x12.0x6 = 0x5e8,0x5
05e9 e5ff | | Load 0x2,-0x1
05ea 0217 | | Execute Heap_Access,All_Reference
05eb 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
05ec 027f | | Execute Discrete,Equal
05ed 7008 |p | Jump_Nonzero 0x5f6
05ee 00d8 | | Load_Top At_Offset_0
05ef e5ff | | Load 0x2,-0x1
05f0 0217 | | Execute Heap_Access,All_Reference
05f1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05f2 e00c | | Load 0x0,0xc
05f3 1869 | i | Execute Package,Field_Execute,Field_Number 0x69
05f4 027d | } | Execute Discrete,Greater
05f5 6805 |h | Jump_Zero 0x5fb
05f6 0092 065a | Z| Action Push_String_Extended,0x65a ; "nothing to promote here"
; Debug Table 0x12.0x7 = 0x5f6,0x6
05f8 e00b | | Load 0x0,0xb
05f9 180d | | Execute Package,Field_Execute,Field_Number 0xd
05fa 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; Debug Table 0x12.0x8 = 0x5fa,0x7
05fb e5ff | | Load 0x2,-0x1 ; Debug Table 0x12.0x9 = 0x5fb,0x8
05fc e00d | | Load 0x0,0xd
05fd 1812 | | Execute Package,Field_Execute,Field_Number 0x12
05fe 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x12.0xa = 0x5fe,0x9
05ff 00d9 | | Load_Top At_Offset_1
0600 e5ff | | Load 0x2,-0x1
0601 e006 | | Load 0x0,0x6
0602 180e | | Execute Package,Field_Execute,Field_Number 0xe
0603 005a | Z | Store_Top Discrete,At_Offset_2
0604 00d1 | | Pop_Control Pop_Count_1
0605 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x12.0xb = 0x605,0xa
0606 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0607 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0608 6824 |h$ | Jump_Zero 0x62d
0609 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x12.0xc = 0x609,0xb
060a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
060b 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
060c e012 | | Load 0x0,0x12
060d 180d | | Execute Package,Field_Execute,Field_Number 0xd
060e 680a |h | Jump_Zero 0x619
060f 4801 |H | Short_Literal 0x1 ; Debug Table 0x12.0xd = 0x60f,0xc
0610 e5fd | | Load 0x2,-0x3
0611 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0612 e5fd | | Load 0x2,-0x3 ; Debug Table 0x12.0xe = 0x612,0xd
0613 00da | | Load_Top At_Offset_2
0614 00da | | Load_Top At_Offset_2
0615 e5ff | | Load 0x2,-0x1
0616 821e | | Call 0x1,0x1e
0617 00d2 | | Pop_Control Pop_Count_2
0618 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0619 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x12.0xf = 0x619,0xe
061a e5ff | | Load 0x2,-0x1
061b 0217 | | Execute Heap_Access,All_Reference
061c 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
061d 027b | { | Execute Discrete,Greater_Equal
061e 6809 |h | Jump_Zero 0x628
061f 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x12.0x10 = 0x61f,0xf
0620 00d9 | | Load_Top At_Offset_1
0621 4801 |H | Short_Literal 0x1
0622 e5ff | | Load 0x2,-0x1
0623 e00d | | Load 0x0,0xd
0624 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0625 005a | Z | Store_Top Discrete,At_Offset_2
0626 00d1 | | Pop_Control Pop_Count_1
0627 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0628 0092 065b | [| Action Push_String_Extended,0x65b ; "object no longer exists"
; Debug Table 0x12.0x11 = 0x628,0x10
062a e00b | | Load 0x0,0xb
062b 180d | | Execute Package,Field_Execute,Field_Number 0xd
062c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
062d 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x12.0x12 = 0x62d,0x11
062e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
062f 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0630 801e | | Call 0x0,0x1e
0631 6805 |h | Jump_Zero 0x637
0632 0092 065c | \| Action Push_String_Extended,0x65c ; "can't promote rooted item, whole unit must be promoted"
; Debug Table 0x12.0x13 = 0x632,0x12
0634 e00b | | Load 0x0,0xb
0635 180d | | Execute Package,Field_Execute,Field_Number 0xd
0636 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0637 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x12.0x14 = 0x637,0x13
0638 e5ff | | Load 0x2,-0x1
0639 0217 | | Execute Heap_Access,All_Reference
063a 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
063b 027b | { | Execute Discrete,Greater_Equal
063c 6809 |h | Jump_Zero 0x646
063d 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x12.0x15 = 0x63d,0x14
063e 00d9 | | Load_Top At_Offset_1
063f 4801 |H | Short_Literal 0x1
0640 e5ff | | Load 0x2,-0x1
0641 e00d | | Load 0x0,0xd
0642 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0643 005a | Z | Store_Top Discrete,At_Offset_2
0644 00d1 | | Pop_Control Pop_Count_1
0645 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0646 0092 065d | ]| Action Push_String_Extended,0x65d ; "item no longer exists"
; Debug Table 0x12.0x16 = 0x646,0x15
0648 e00b | | Load 0x0,0xb
0649 180d | | Execute Package,Field_Execute,Field_Number 0xd
064a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
064b ; --------------------------------------------------------------------------------------
064b ; STRING TABLE
064b ; --------------------------------------------------------------------------------------
064b 0028 | ( | .STRTAB 0x0028->0x065f ; "NEXT"
064c 002a | * | .STRTAB 0x002a->0x0661 ; "EXPLICIT"
064d 0030 | 0 | .STRTAB 0x0030->0x0665 ; "SAVED"
064e 0033 | 3 | .STRTAB 0x0033->0x0667 ; "doe_error"
064f 003a | : | .STRTAB 0x003a->0x066c ; "Promote"
0650 003f | ? | .STRTAB 0x003f->0x066f ; "promote is not allowed here"
0651 0058 | X | .STRTAB 0x0058->0x067d ; "promote failed - cursor must be in the selection"
0652 0086 | | .STRTAB 0x0086->0x0695 ; "promote failed - there must be a selection"
0653 00ae | | .STRTAB 0x00ae->0x06aa ; "can't open "
0654 00b7 | | .STRTAB 0x00b7->0x06af ; " to attach error messages"
0655 00ce | | .STRTAB 0x00ce->0x06bc ; " is coded"
0656 00d5 | | .STRTAB 0x00d5->0x06c0 ; "can't promote "
0657 00e1 | | .STRTAB 0x00e1->0x06c7 ; " ("
0658 00e1 | | .STRTAB 0x00e1->0x06c8 ; ")"
0659 00e0 | | .STRTAB 0x00e0->0x06c9 ; "promoted "
065a 00e7 | | .STRTAB 0x00e7->0x06cd ; "nothing to promote here"
065b 00fc | | .STRTAB 0x00fc->0x06d9 ; "object no longer exists"
065c 0111 | | .STRTAB 0x0111->0x06e4 ; "can't promote rooted item, whole unit must be promoted"
065d 0145 | E | .STRTAB 0x0145->0x06ff ; "item no longer exists"
065e 0158 | X | .STREND 0x0158->0x070a
065f 4e45 5854 |NEXT| .STRTAB_STRINGS
070a 0000 0000 | | .BLANK 0000[0x6]
0710 ; --------------------------------------------------------------------------------------
0710 ; Debug Table
0710 ; --------------------------------------------------------------------------------------
0710 0003 0013 | | .CONST 0x0003,0x0013
0712 000b 07aa | | .DEBUG 0x000b,0x07aa,0x0000,0x0000,0x0057,0x9795,0x0000,0x0784
071a 0010 07b0 | | .DEBUG 0x0010,0x07b0,0x0000,0x0000,0x0057,0x9985,0x0000,0x0008
0722 0083 07e0 | | .DEBUG 0x0083,0x07e0,0x0001,0x0000,0x0057,0x9795,0x0000,0x0785
072a 00b3 07f0 | | .DEBUG 0x00b3,0x07f0,0x0001,0x0000,0x0057,0x9795,0x0000,0x07a2
0732 013b 0820 | ; | .DEBUG 0x013b,0x0820,0x0005,0x0000,0x0057,0x9985,0x0000,0x0013
073a 0153 0822 | S "| .DEBUG 0x0153,0x0822,0x0005,0x0000,0x0057,0x9985,0x0000,0x001a
0742 0193 0824 | $| .DEBUG 0x0193,0x0824,0x0005,0x0000,0x0057,0x9985,0x0000,0x0065
074a 01ab 0826 | &| .DEBUG 0x01ab,0x0826,0x0005,0x0000,0x0057,0x9985,0x0000,0x0078
0752 01d3 0828 | (| .DEBUG 0x01d3,0x0828,0x0002,0x0000,0x0057,0x9985,0x0000,0x009d
075a 0203 084a | J| .DEBUG 0x0203,0x084a,0x0002,0x0000,0x0057,0x9985,0x0000,0x0112
0762 024b 085a | K Z| .DEBUG 0x024b,0x085a,0x0001,0x0000,0x0057,0x9985,0x0000,0x01b2
076a 027b 086c | { l| .DEBUG 0x027b,0x086c,0x0001,0x0000,0x0057,0x9985,0x0000,0x01fd
0772 0313 0894 | | .DEBUG 0x0313,0x0894,0x0001,0x0000,0x0057,0x9985,0x0000,0x02cb
077a 036b 08ba | k | .DEBUG 0x036b,0x08ba,0x0001,0x0000,0x0057,0x9985,0x0000,0x039f
0782 03c3 08d2 | | .DEBUG 0x03c3,0x08d2,0x0001,0x0000,0x0057,0x9985,0x0000,0x044c
078a 0473 091a | s | .DEBUG 0x0473,0x091a,0x0001,0x0000,0x0057,0x9985,0x0000,0x057f
0792 04eb 0952 | R| .DEBUG 0x04eb,0x0952,0x0001,0x0000,0x0057,0x9985,0x0000,0x0653
079a 0523 0964 | # d| .DEBUG 0x0523,0x0964,0x0001,0x0000,0x0057,0x9985,0x0000,0x06bc
07a2 05c3 09a2 | | .DEBUG 0x05c3,0x09a2,0x0001,0x0000,0x0057,0x9985,0x0000,0x07bd
07aa ; --------------------------------------------------------------------------------------
07aa ; Debug3 Subtable 0x0
07aa ; --------------------------------------------------------------------------------------
07aa 0002 0000 | | .DBG3TAB 0x0002,0x0000
07ac 000b ffff | | .CONST 0x000b,0xffff
07ae 000d fffe | | .CONST 0x000d,0xfffe
07b0 ; --------------------------------------------------------------------------------------
07b0 ; Debug3 Subtable 0x1
07b0 ; --------------------------------------------------------------------------------------
07b0 0017 0000 | | .DBG3TAB 0x0017,0x0000
07b2 0010 ffff | | .CONST 0x0010,0xffff
07b4 0011 fffe | | .CONST 0x0011,0xfffe
07b6 0012 fffd | | .CONST 0x0012,0xfffd
07b8 0017 fffc | | .CONST 0x0017,0xfffc
07ba 0024 fffb | $ | .CONST 0x0024,0xfffb
07bc 0027 fffa | ' | .CONST 0x0027,0xfffa
07be 002a fff9 | * | .CONST 0x002a,0xfff9
07c0 0030 fff8 | 0 | .CONST 0x0030,0xfff8
07c2 0036 fff7 | 6 | .CONST 0x0036,0xfff7
07c4 0053 fff6 | S | .CONST 0x0053,0xfff6
07c6 005d fff5 | ] | .CONST 0x005d,0xfff5
07c8 005f fff4 | _ | .CONST 0x005f,0xfff4
07ca 0061 fff3 | a | .CONST 0x0061,0xfff3
07cc 0063 fff2 | c | .CONST 0x0063,0xfff2
07ce 0065 fff1 | e | .CONST 0x0065,0xfff1
07d0 0067 fff0 | g | .CONST 0x0067,0xfff0
07d2 0069 ffef | i | .CONST 0x0069,0xffef
07d4 006b ffee | k | .CONST 0x006b,0xffee
07d6 006d ffed | m | .CONST 0x006d,0xffed
07d8 006f ffec | o | .CONST 0x006f,0xffec
07da 0071 ffeb | q | .CONST 0x0071,0xffeb
07dc 0073 ffea | s | .CONST 0x0073,0xffea
07de 0075 ffe9 | u | .CONST 0x0075,0xffe9
07e0 ; --------------------------------------------------------------------------------------
07e0 ; Debug3 Subtable 0x2
07e0 ; --------------------------------------------------------------------------------------
07e0 0001 0006 | | .DBG3TAB 0x0001,0x0006
07e2 0083 ffff | | .CONST 0x0083,0xffff
07e4 0085 0001 | | .CONST 0x0085,0x0001
07e6 008b 0002 | | .CONST 0x008b,0x0002
07e8 0090 0003 | | .CONST 0x0090,0x0003
07ea 0097 0004 | | .CONST 0x0097,0x0004
07ec 009b 0005 | | .CONST 0x009b,0x0005
07ee 00a3 0006 | | .CONST 0x00a3,0x0006
07f0 ; --------------------------------------------------------------------------------------
07f0 ; Debug3 Subtable 0x3
07f0 ; --------------------------------------------------------------------------------------
07f0 0003 0014 | | .DBG3TAB 0x0003,0x0014
07f2 00b3 ffff | | .CONST 0x00b3,0xffff
07f4 00b5 fffe | | .CONST 0x00b5,0xfffe
07f6 00b7 fffd | | .CONST 0x00b7,0xfffd
07f8 00bb 0001 | | .CONST 0x00bb,0x0001
07fa 00c2 0002 | | .CONST 0x00c2,0x0002
07fc 00c4 0003 | | .CONST 0x00c4,0x0003
07fe 00c5 0004 | | .CONST 0x00c5,0x0004
0800 00d7 0005 | | .CONST 0x00d7,0x0005
0802 00db 0006 | | .CONST 0x00db,0x0006
0804 00dc 0008 | | .CONST 0x00dc,0x0008
0806 00e1 0009 | | .CONST 0x00e1,0x0009
0808 00e7 000a | | .CONST 0x00e7,0x000a
080a 00ea 000b | | .CONST 0x00ea,0x000b
080c 00f2 000c | | .CONST 0x00f2,0x000c
080e 00fd 000d | | .CONST 0x00fd,0x000d
0810 0101 000e | | .CONST 0x0101,0x000e
0812 010b 000f | | .CONST 0x010b,0x000f
0814 0112 0010 | | .CONST 0x0112,0x0010
0816 0117 0011 | | .CONST 0x0117,0x0011
0818 011d 0012 | | .CONST 0x011d,0x0012
081a 0123 0013 | # | .CONST 0x0123,0x0013
081c 0128 0014 | ( | .CONST 0x0128,0x0014
081e 012c 0015 | , | .CONST 0x012c,0x0015
0820 ; --------------------------------------------------------------------------------------
0820 ; Debug3 Subtable 0x4
0820 ; --------------------------------------------------------------------------------------
0820 0000 0000 | | .DBG3TAB 0x0000,0x0000
0822 ; --------------------------------------------------------------------------------------
0822 ; Debug3 Subtable 0x5
0822 ; --------------------------------------------------------------------------------------
0822 0000 0000 | | .DBG3TAB 0x0000,0x0000
0824 ; --------------------------------------------------------------------------------------
0824 ; Debug3 Subtable 0x6
0824 ; --------------------------------------------------------------------------------------
0824 0000 0000 | | .DBG3TAB 0x0000,0x0000
0826 ; --------------------------------------------------------------------------------------
0826 ; Debug3 Subtable 0x7
0826 ; --------------------------------------------------------------------------------------
0826 0000 0000 | | .DBG3TAB 0x0000,0x0000
0828 ; --------------------------------------------------------------------------------------
0828 ; Debug3 Subtable 0x8
0828 ; --------------------------------------------------------------------------------------
0828 0003 000d | | .DBG3TAB 0x0003,0x000d
082a 01d3 ffff | | .CONST 0x01d3,0xffff
082c 01d4 fffe | | .CONST 0x01d4,0xfffe
082e 01d6 fffd | | .CONST 0x01d6,0xfffd
0830 01d9 0001 | | .CONST 0x01d9,0x0001
0832 01da 0401 | | .CONST 0x01da,0x0401
0834 01dc 0402 | | .CONST 0x01dc,0x0402
0836 01dd 0403 | | .CONST 0x01dd,0x0403
0838 01de 0404 | | .CONST 0x01de,0x0404
083a 01df 0001 | | .CONST 0x01df,0x0001
083c 01e5 0801 | | .CONST 0x01e5,0x0801
083e 01e7 0802 | | .CONST 0x01e7,0x0802
0840 01e8 0803 | | .CONST 0x01e8,0x0803
0842 01e9 0804 | | .CONST 0x01e9,0x0804
0844 01ea 0404 | | .CONST 0x01ea,0x0404
0846 01f0 0002 | | .CONST 0x01f0,0x0002
0848 01fa 0003 | | .CONST 0x01fa,0x0003
084a ; --------------------------------------------------------------------------------------
084a ; Debug3 Subtable 0x9
084a ; --------------------------------------------------------------------------------------
084a 0003 0004 | | .DBG3TAB 0x0003,0x0004
084c 0203 ffff | | .CONST 0x0203,0xffff
084e 0208 fffe | | .CONST 0x0208,0xfffe
0850 020e fffd | | .CONST 0x020e,0xfffd
0852 0215 0002 | | .CONST 0x0215,0x0002
0854 0237 0003 | 7 | .CONST 0x0237,0x0003
0856 023b 0001 | ; | .CONST 0x023b,0x0001
0858 023f 0004 | ? | .CONST 0x023f,0x0004
085a ; --------------------------------------------------------------------------------------
085a ; Debug3 Subtable 0xa
085a ; --------------------------------------------------------------------------------------
085a 0002 0006 | | .DBG3TAB 0x0002,0x0006
085c 024b ffff | K | .CONST 0x024b,0xffff
085e 0253 fffe | S | .CONST 0x0253,0xfffe
0860 0255 0001 | U | .CONST 0x0255,0x0001
0862 025f 0002 | _ | .CONST 0x025f,0x0002
0864 0261 0003 | a | .CONST 0x0261,0x0003
0866 0265 0004 | e | .CONST 0x0265,0x0004
0868 026b 0005 | k | .CONST 0x026b,0x0005
086a 026f 0006 | o | .CONST 0x026f,0x0006
086c ; --------------------------------------------------------------------------------------
086c ; Debug3 Subtable 0xb
086c ; --------------------------------------------------------------------------------------
086c 0005 000e | | .DBG3TAB 0x0005,0x000e
086e 027b ffff | { | .CONST 0x027b,0xffff
0870 027e fffe | ~ | .CONST 0x027e,0xfffe
0872 0284 fffd | | .CONST 0x0284,0xfffd
0874 0286 fffc | | .CONST 0x0286,0xfffc
0876 0287 fffb | | .CONST 0x0287,0xfffb
0878 028c 0001 | | .CONST 0x028c,0x0001
087a 0291 0002 | | .CONST 0x0291,0x0002
087c 029c 0003 | | .CONST 0x029c,0x0003
087e 02a0 0004 | | .CONST 0x02a0,0x0004
0880 02aa 0005 | | .CONST 0x02aa,0x0005
0882 02c7 0006 | | .CONST 0x02c7,0x0006
0884 02c9 0007 | | .CONST 0x02c9,0x0007
0886 02ce 0008 | | .CONST 0x02ce,0x0008
0888 02d0 0009 | | .CONST 0x02d0,0x0009
088a 02da 000a | | .CONST 0x02da,0x000a
088c 02e4 000b | | .CONST 0x02e4,0x000b
088e 02eb 000c | | .CONST 0x02eb,0x000c
0890 02f1 000d | | .CONST 0x02f1,0x000d
0892 02fc 000e | | .CONST 0x02fc,0x000e
0894 ; --------------------------------------------------------------------------------------
0894 ; Debug3 Subtable 0xc
0894 ; --------------------------------------------------------------------------------------
0894 0001 0011 | | .DBG3TAB 0x0001,0x0011
0896 0313 ffff | | .CONST 0x0313,0xffff
0898 0316 0001 | | .CONST 0x0316,0x0001
089a 0318 0002 | | .CONST 0x0318,0x0002
089c 031a 0003 | | .CONST 0x031a,0x0003
089e 031e 0004 | | .CONST 0x031e,0x0004
08a0 0321 0005 | ! | .CONST 0x0321,0x0005
08a2 0324 0006 | $ | .CONST 0x0324,0x0006
08a4 032b 0007 | + | .CONST 0x032b,0x0007
08a6 0332 0008 | 2 | .CONST 0x0332,0x0008
08a8 0338 0009 | 8 | .CONST 0x0338,0x0009
08aa 033a 000a | : | .CONST 0x033a,0x000a
08ac 033d 000b | = | .CONST 0x033d,0x000b
08ae 0342 000c | B | .CONST 0x0342,0x000c
08b0 0349 000d | I | .CONST 0x0349,0x000d
08b2 034c 000e | L | .CONST 0x034c,0x000e
08b4 0353 000f | S | .CONST 0x0353,0x000f
08b6 0358 0010 | X | .CONST 0x0358,0x0010
08b8 035f 0011 | _ | .CONST 0x035f,0x0011
08ba ; --------------------------------------------------------------------------------------
08ba ; Debug3 Subtable 0xd
08ba ; --------------------------------------------------------------------------------------
08ba 0000 000b | | .DBG3TAB 0x0000,0x000b
08bc 036b 0001 | k | .CONST 0x036b,0x0001
08be 0377 0002 | w | .CONST 0x0377,0x0002
08c0 037f 0003 | | .CONST 0x037f,0x0003
08c2 0385 0004 | | .CONST 0x0385,0x0004
08c4 038c 0005 | | .CONST 0x038c,0x0005
08c6 0392 0006 | | .CONST 0x0392,0x0006
08c8 0399 0007 | | .CONST 0x0399,0x0007
08ca 039d 0008 | | .CONST 0x039d,0x0008
08cc 03a6 0009 | | .CONST 0x03a6,0x0009
08ce 03a9 000a | | .CONST 0x03a9,0x000a
08d0 03b7 000b | | .CONST 0x03b7,0x000b
08d2 ; --------------------------------------------------------------------------------------
08d2 ; Debug3 Subtable 0xe
08d2 ; --------------------------------------------------------------------------------------
08d2 000c 0017 | | .DBG3TAB 0x000c,0x0017
08d4 03c3 ffff | | .CONST 0x03c3,0xffff
08d6 03c5 fffe | | .CONST 0x03c5,0xfffe
08d8 03c6 fffd | | .CONST 0x03c6,0xfffd
08da 03c7 fffc | | .CONST 0x03c7,0xfffc
08dc 03c8 fffb | | .CONST 0x03c8,0xfffb
08de 03cd fffa | | .CONST 0x03cd,0xfffa
08e0 03d0 fff9 | | .CONST 0x03d0,0xfff9
08e2 03d1 fff8 | | .CONST 0x03d1,0xfff8
08e4 03d2 fff7 | | .CONST 0x03d2,0xfff7
08e6 03d5 fff6 | | .CONST 0x03d5,0xfff6
08e8 03dc fff5 | | .CONST 0x03dc,0xfff5
08ea 03e5 fff4 | | .CONST 0x03e5,0xfff4
08ec 03ea 0001 | | .CONST 0x03ea,0x0001
08ee 03ed 0002 | | .CONST 0x03ed,0x0002
08f0 03f0 0003 | | .CONST 0x03f0,0x0003
08f2 03f6 0004 | | .CONST 0x03f6,0x0004
08f4 03f7 0005 | | .CONST 0x03f7,0x0005
08f6 03fb 0006 | | .CONST 0x03fb,0x0006
08f8 03fc 0401 | | .CONST 0x03fc,0x0401
08fa 03fe 0402 | | .CONST 0x03fe,0x0402
08fc 03ff 0403 | | .CONST 0x03ff,0x0403
08fe 0400 0404 | | .CONST 0x0400,0x0404
0900 0401 0006 | | .CONST 0x0401,0x0006
0902 0403 0007 | | .CONST 0x0403,0x0007
0904 0405 0008 | | .CONST 0x0405,0x0008
0906 0413 0009 | | .CONST 0x0413,0x0009
0908 0415 000a | | .CONST 0x0415,0x000a
090a 0416 000b | | .CONST 0x0416,0x000b
090c 043a 000c | : | .CONST 0x043a,0x000c
090e 043c 000d | < | .CONST 0x043c,0x000d
0910 043f 000e | ? | .CONST 0x043f,0x000e
0912 0451 000f | Q | .CONST 0x0451,0x000f
0914 0456 0010 | V | .CONST 0x0456,0x0010
0916 045c 0011 | \ | .CONST 0x045c,0x0011
0918 0465 0012 | e | .CONST 0x0465,0x0012
091a ; --------------------------------------------------------------------------------------
091a ; Debug3 Subtable 0xf
091a ; --------------------------------------------------------------------------------------
091a 0004 0017 | | .DBG3TAB 0x0004,0x0017
091c 0473 ffff | s | .CONST 0x0473,0xffff
091e 0477 fffe | w | .CONST 0x0477,0xfffe
0920 047b fffd | { | .CONST 0x047b,0xfffd
0922 047f fffc | | .CONST 0x047f,0xfffc
0924 0487 0002 | | .CONST 0x0487,0x0002
0926 048e 0003 | | .CONST 0x048e,0x0003
0928 0492 0004 | | .CONST 0x0492,0x0004
092a 0498 0005 | | .CONST 0x0498,0x0005
092c 049d 0006 | | .CONST 0x049d,0x0006
092e 04a2 0007 | | .CONST 0x04a2,0x0007
0930 04ac 0401 | | .CONST 0x04ac,0x0401
0932 04ae 0402 | | .CONST 0x04ae,0x0402
0934 04af 0403 | | .CONST 0x04af,0x0403
0936 04b0 0404 | | .CONST 0x04b0,0x0404
0938 04b2 0007 | | .CONST 0x04b2,0x0007
093a 04b9 0801 | | .CONST 0x04b9,0x0801
093c 04bb 0802 | | .CONST 0x04bb,0x0802
093e 04bc 0803 | | .CONST 0x04bc,0x0803
0940 04bd 0804 | | .CONST 0x04bd,0x0804
0942 04bf 0404 | | .CONST 0x04bf,0x0404
0944 04c8 0c01 | | .CONST 0x04c8,0x0c01
0946 04cc 0804 | | .CONST 0x04cc,0x0804
0948 04cd 0008 | | .CONST 0x04cd,0x0008
094a 04d3 0009 | | .CONST 0x04d3,0x0009
094c 04d8 000a | | .CONST 0x04d8,0x000a
094e 04dd 000b | | .CONST 0x04dd,0x000b
0950 04e1 0001 | | .CONST 0x04e1,0x0001
0952 ; --------------------------------------------------------------------------------------
0952 ; Debug3 Subtable 0x10
0952 ; --------------------------------------------------------------------------------------
0952 0002 0006 | | .DBG3TAB 0x0002,0x0006
0954 04eb ffff | | .CONST 0x04eb,0xffff
0956 04ef fffe | | .CONST 0x04ef,0xfffe
0958 04f4 0002 | | .CONST 0x04f4,0x0002
095a 04fc 0003 | | .CONST 0x04fc,0x0003
095c 0506 0004 | | .CONST 0x0506,0x0004
095e 050c 0005 | | .CONST 0x050c,0x0005
0960 0510 0001 | | .CONST 0x0510,0x0001
0962 051a 0006 | | .CONST 0x051a,0x0006
0964 ; --------------------------------------------------------------------------------------
0964 ; Debug3 Subtable 0x11
0964 ; --------------------------------------------------------------------------------------
0964 0003 001b | | .DBG3TAB 0x0003,0x001b
0966 0523 ffff | # | .CONST 0x0523,0xffff
0968 0527 fffe | ' | .CONST 0x0527,0xfffe
096a 0529 fffd | ) | .CONST 0x0529,0xfffd
096c 052b 0001 | + | .CONST 0x052b,0x0001
096e 052e 0002 | . | .CONST 0x052e,0x0002
0970 0534 0003 | 4 | .CONST 0x0534,0x0003
0972 053a 0004 | : | .CONST 0x053a,0x0004
0974 0543 0005 | C | .CONST 0x0543,0x0005
0976 054a 0006 | J | .CONST 0x054a,0x0006
0978 0550 0007 | P | .CONST 0x0550,0x0007
097a 0557 0008 | W | .CONST 0x0557,0x0008
097c 055d 0009 | ] | .CONST 0x055d,0x0009
097e 0563 000a | c | .CONST 0x0563,0x000a
0980 0566 000b | f | .CONST 0x0566,0x000b
0982 0567 000c | g | .CONST 0x0567,0x000c
0984 0570 000d | p | .CONST 0x0570,0x000d
0986 0574 000e | t | .CONST 0x0574,0x000e
0988 057c 000f | | | .CONST 0x057c,0x000f
098a 0586 0010 | | .CONST 0x0586,0x0010
098c 058c 0011 | | .CONST 0x058c,0x0011
098e 058f 0012 | | .CONST 0x058f,0x0012
0990 0590 0013 | | .CONST 0x0590,0x0013
0992 0596 0014 | | .CONST 0x0596,0x0014
0994 059a 0015 | | .CONST 0x059a,0x0015
0996 059f 0016 | | .CONST 0x059f,0x0016
0998 05a5 0017 | | .CONST 0x05a5,0x0017
099a 05a9 0018 | | .CONST 0x05a9,0x0018
099c 05ae 0019 | | .CONST 0x05ae,0x0019
099e 05b1 001a | | .CONST 0x05b1,0x001a
09a0 05b3 001b | | .CONST 0x05b3,0x001b
09a2 ; --------------------------------------------------------------------------------------
09a2 ; Debug3 Subtable 0x12
09a2 ; --------------------------------------------------------------------------------------
09a2 0002 0015 | | .DBG3TAB 0x0002,0x0015
09a4 05c3 ffff | | .CONST 0x05c3,0xffff
09a6 05c7 fffe | | .CONST 0x05c7,0xfffe
09a8 05cf 0001 | | .CONST 0x05cf,0x0001
09aa 05d5 0002 | | .CONST 0x05d5,0x0002
09ac 05e3 0003 | | .CONST 0x05e3,0x0003
09ae 05e7 0004 | | .CONST 0x05e7,0x0004
09b0 05e8 0005 | | .CONST 0x05e8,0x0005
09b2 05f6 0006 | | .CONST 0x05f6,0x0006
09b4 05fa 0007 | | .CONST 0x05fa,0x0007
09b6 05fb 0008 | | .CONST 0x05fb,0x0008
09b8 05fe 0009 | | .CONST 0x05fe,0x0009
09ba 0605 000a | | .CONST 0x0605,0x000a
09bc 0609 000b | | .CONST 0x0609,0x000b
09be 060f 000c | | .CONST 0x060f,0x000c
09c0 0612 000d | | .CONST 0x0612,0x000d
09c2 0619 000e | | .CONST 0x0619,0x000e
09c4 061f 000f | | .CONST 0x061f,0x000f
09c6 0628 0010 | ( | .CONST 0x0628,0x0010
09c8 062d 0011 | - | .CONST 0x062d,0x0011
09ca 0632 0012 | 2 | .CONST 0x0632,0x0012
09cc 0637 0013 | 7 | .CONST 0x0637,0x0013
09ce 063d 0014 | = | .CONST 0x063d,0x0014
09d0 0646 0015 | F | .CONST 0x0646,0x0015
09d2 0000 0000 | | .BLANK 0000[0x2e]