|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 10240 (0x2800)
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 0d78 | x | .CONST 0x0d78 ; 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 0009 | | .CONST 0x0009 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0088 | | .CONST 0x0088 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0027 | ' | .CONST 0x0027 ; Number of locals
000b INIT_0008:
000b 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x0e3a,0x0000,0x0000,0x0057,0x9795,0x0000,0x07c8
; Debug Table 0x0.0x0 = 0xb,0xffff
000d 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xd,0xfffe
000f 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xf,0xfffd
0011 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x11,0xfffc
0013 00bf | | Action Accept_Activation
0014 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x0014,0x0e44,0x0000,0x0000,0x0057,0x9905,0x0000,0x000e
; Debug Table 0x1.0x0 = 0x14,0xffff
0015 0007 | | Action Break_Optional ; Debug Table 0x1.0x1 = 0x15,0xfffe
0016 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x2 = 0x16,0xfffd
0017 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0018 0266 | f | Execute Discrete,Bounds
0019 e002 | | Load 0x0,0x2
001a 029f 0223 | #| Declare_Subprogram INIT_0220,For_Call
001c 4801 |H | Short_Literal 0x1
001d 0350 | P | Declare_Type Array,Defined,Bounds_With_Object
001e 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x1.0x3 = 0x1e,0xfffc
001f 4801 |H | Short_Literal 0x1
0020 e003 | | Load 0x0,0x3
0021 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
0022 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0023 029f 023b | ;| Declare_Subprogram INIT_0238,For_Call
0025 4801 |H | Short_Literal 0x1
0026 4800 |H | Short_Literal 0x0
0027 4801 |H | Short_Literal 0x1
0028 4800 |H | Short_Literal 0x0
0029 4801 |H | Short_Literal 0x1
002a 031d | | Declare_Type Variant_Record,Defined
002b 4801 |H | Short_Literal 0x1 ; Debug Table 0x1.0x4 = 0x2b,0xfffb
002c 00d9 | | Load_Top At_Offset_1
002d 1c08 | | Execute_Immediate Run_Utility,0x8
002e 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x5 = 0x2e,0xfffa
002f 00da | | Load_Top At_Offset_2
0030 1c08 | | Execute_Immediate Run_Utility,0x8
0031 4802 |H | Short_Literal 0x2
0032 00d9 | | Load_Top At_Offset_1
0033 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0034 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x6 = 0x34,0xfff9
0035 00db | | Load_Top At_Offset_3
0036 1c08 | | Execute_Immediate Run_Utility,0x8
0037 4803 |H | Short_Literal 0x3
0038 00d9 | | Load_Top At_Offset_1
0039 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
003a 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x7 = 0x3a,0xfff8
003b e212 | | Load 0x1,0x12
003c 1c08 | | Execute_Immediate Run_Utility,0x8
003d 4800 |H | Short_Literal 0x0
003e 00d9 | | Load_Top At_Offset_1
003f 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0040 e004 | | Load 0x0,0x4 ; Debug Table 0x1.0x8 = 0x40,0xfff7
0041 0266 | f | Execute Discrete,Bounds
0042 e212 | | Load 0x1,0x12
0043 029f 0273 | s| Declare_Subprogram INIT_0270,For_Call
0045 4801 |H | Short_Literal 0x1
0046 035d | ] | Declare_Type Array,Defined
0047 00d8 | | Load_Top At_Offset_0
0048 0337 | 7 | Declare_Variable Array
0049 00d8 | | Load_Top At_Offset_0
004a 0337 | 7 | Declare_Variable Array
004b e213 | | Load 0x1,0x13
004c 4800 |H | Short_Literal 0x0
004d 00da | | Load_Top At_Offset_2
004e 01d6 | | Execute Vector,Field_Write
004f e214 | | Load 0x1,0x14
0050 4802 |H | Short_Literal 0x2
0051 00da | | Load_Top At_Offset_2
0052 01d6 | | Execute Vector,Field_Write
0053 e215 | | Load 0x1,0x15
0054 4801 |H | Short_Literal 0x1
0055 00da | | Load_Top At_Offset_2
0056 01d6 | | Execute Vector,Field_Write
0057 00d9 | | Load_Top At_Offset_1
0058 01d4 | | Execute Vector,Structure_Write
0059 e212 | | Load 0x1,0x12 ; Debug Table 0x1.0x9 = 0x59,0xfff6
005a 00e1 | | Load_Encached Boolean_Cache
005b 00e1 | | Load_Encached Boolean_Cache
005c e005 | | Load 0x0,0x5
005d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
005e 00e1 | | Load_Encached Boolean_Cache
005f 00f1 | | Load_Encached Diana_Temp_Seq
0060 029f 028b | | Declare_Subprogram INIT_0288,For_Call
0062 4806 |H | Short_Literal 0x6
0063 032d | - | Declare_Type Record,Defined
0064 029d 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call ; Debug Table 0x1.0xa = 0x64,0xfff5
0066 029d 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call ; Debug Table 0x1.0xb = 0x66,0xfff4
0068 029d 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call ; Debug Table 0x1.0xc = 0x68,0xfff3
006a 029d 03bb | | Declare_Subprogram INIT_03b8,For_Outer_Call ; Debug Table 0x1.0xd = 0x6a,0xfff2
006c 029d 0413 | | Declare_Subprogram INIT_0410,For_Outer_Call ; Debug Table 0x1.0xe = 0x6c,0xfff1
006e 029d 0513 | | Declare_Subprogram INIT_0510,For_Outer_Call ; Debug Table 0x1.0xf = 0x6e,0xfff0
0070 029d 05cb | | Declare_Subprogram INIT_05c8,For_Outer_Call ; Debug Table 0x1.0x10 = 0x70,0xffef
0072 029d 076b | k| Declare_Subprogram INIT_0768,For_Outer_Call ; Debug Table 0x1.0x11 = 0x72,0xffee
0074 029d 07eb | | Declare_Subprogram INIT_07e8,For_Outer_Call ; Debug Table 0x1.0x12 = 0x74,0xffed
0076 029d 091b | | Declare_Subprogram INIT_0918,For_Outer_Call ; Debug Table 0x1.0x13 = 0x76,0xffec
0078 029d 093b | ;| Declare_Subprogram INIT_0938,For_Outer_Call ; Debug Table 0x1.0x14 = 0x78,0xffeb
007a 029d 0a1b | | Declare_Subprogram INIT_0a18,For_Outer_Call ; Debug Table 0x1.0x15 = 0x7a,0xffea
007c 029d 0a7b | {| Declare_Subprogram INIT_0a78,For_Outer_Call ; Debug Table 0x1.0x16 = 0x7c,0xffe9
007e 029d 0adb | | Declare_Subprogram INIT_0ad8,For_Outer_Call ; Debug Table 0x1.0x17 = 0x7e,0xffe8
0080 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x18 = 0x80,0xffe7
0081 00c7 | | Action Elaborate_Subprogram
0082 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0x19 = 0x82,0xffe6
0083 00c7 | | Action Elaborate_Subprogram
0084 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x1a = 0x84,0xffe5
0085 00c7 | | Action Elaborate_Subprogram
0086 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x1b = 0x86,0xffe4
0087 00c7 | | Action Elaborate_Subprogram
0088 BODY_0008:
0088 00bc | | Action Signal_Activated
0089 00bb | | Action Signal_Completion
008a 0000 0000 | | .BLANK 0000[0x6]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0095 | | .CONST 0x0095 ; Address of begin
0091 00a4 | | .CONST 0x00a4 ; Address of exception handler
0092 0002 | | .CONST 0x0002 ; Number of locals
0093 INIT_0090:
0093 e006 | | Load 0x0,0x6 ; Debug Table 0x2 = .DEBUG 0x0093,0x0e7e,0x0001,0x0000,0x0057,0x9795,0x0000,0x07c9
; Debug Table 0x2.0x0 = 0x93,0xffff
0094 0007 | | Action Break_Optional
0095 BODY_0090:
0095 e006 | | Load 0x0,0x6 ; Debug Table 0x2.0x1 = 0x95,0x1
0096 4801 |H | Short_Literal 0x1
0097 e5ff | | Load 0x2,-0x1
0098 e007 | | Load 0x0,0x7
0099 181e | | Execute Package,Field_Execute,Field_Number 0x1e
009a 0031 | 1 | Store_Top Heap_Access,At_Offset_1
009b e5fc | | Load 0x2,-0x4 ; Debug Table 0x2.0x2 = 0x9b,0x2
009c e5fd | | Load 0x2,-0x3
009d e5fe | | Load 0x2,-0x2
009e 00db | | Load_Top At_Offset_3
009f 820f | | Call 0x1,0xf
00a0 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x3 = 0xa0,0x3
00a1 e007 | | Load 0x0,0x7
00a2 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00a3 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00a4 TRAP_0090:
00a4 6267 |bg | Indirect_Literal Discrete,0x30c,{0x00000000, 0x57979503}
00a5 010f | | Execute Exception,Equal
00a6 6801 |h | Jump_Zero 0xa8
00a7 4505 |E | Exit_Suprogram New_Top_Offset 0x5 ; Debug Table 0x2.0x4 = 0xa7,0x4
00a8 625f |b_ | Indirect_Literal Discrete,0x308,{0x00000000, 0x57979501}
00a9 010f | | Execute Exception,Equal
00aa 6808 |h | Jump_Zero 0xb3
00ab 0092 0ba5 | | Action Push_String_Extended,0xba5 ; "doe_error"
; Debug Table 0x2.0x5 = 0xab,0x5
00ad 0092 0ba6 | | Action Push_String_Extended,0xba6 ; "demote"
00af 00db | | Load_Top At_Offset_3
00b0 e008 | | Load 0x0,0x8
00b1 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00b2 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00b3 e009 | | Load 0x0,0x9 ; Debug Table 0x2.0x6 = 0xb3,0x6
00b4 180d | | Execute Package,Field_Execute,Field_Number 0xd
00b5 0092 0ba6 | | Action Push_String_Extended,0xba6 ; "demote"
00b7 00db | | Load_Top At_Offset_3
00b8 e008 | | Load 0x0,0x8
00b9 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00ba 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00bb 0000 0000 | | .BLANK 0000[0x5]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00cd | | .CONST 0x00cd ; Address of begin
00c1 014e | N | .CONST 0x014e ; Address of exception handler
00c2 0005 | | .CONST 0x0005 ; Number of locals
00c3 INIT_00c0:
00c3 e006 | | Load 0x0,0x6 ; Debug Table 0x3 = .DEBUG 0x00c3,0x0e8e,0x0001,0x0000,0x0057,0x9795,0x0000,0x07e6
; Debug Table 0x3.0x0 = 0xc3,0xffff
00c4 0007 | | Action Break_Optional
00c5 e219 | | Load 0x1,0x19 ; Debug Table 0x3.0x1 = 0xc5,0xfffe
00c6 0322 | " | Declare_Variable Record
00c7 00d8 | | Load_Top At_Offset_0
00c8 1c00 | | Execute_Immediate Run_Utility,0x0
00c9 e001 | | Load 0x0,0x1 ; Debug Table 0x3.0x2 = 0xc9,0xfffd
00ca 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00cb e001 | | Load 0x0,0x1 ; Debug Table 0x3.0x3 = 0xcb,0xfffc
00cc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00cd BODY_00c0:
00cd e006 | | Load 0x0,0x6 ; Debug Table 0x3.0x4 = 0xcd,0x1
00ce 4801 |H | Short_Literal 0x1
00cf e5ff | | Load 0x2,-0x1
00d0 e007 | | Load 0x0,0x7
00d1 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00d2 c402 | | Store 0x2,0x2
00d3 4802 |H | Short_Literal 0x2 ; Debug Table 0x3.0x5 = 0xd3,0x2
00d4 e402 | | Load 0x2,0x2
00d5 0217 | | Execute Heap_Access,All_Reference
00d6 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
00d7 e00a | | Load 0x0,0xa
00d8 01a7 | | Execute Matrix,Field_Read
00d9 7006 |p | Jump_Nonzero 0xe0
00da 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x6 = 0xda,0x3
00db e007 | | Load 0x0,0x7
00dc 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00dd 4802 |H | Short_Literal 0x2 ; Debug Table 0x3.0x7 = 0xdd,0x4
00de 800b | | Call 0x0,0xb
00df 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; Debug Table 0x3.0x8 = 0xdf,0x5
00e0 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x9 = 0xe0,0x6
00e1 0092 0ba7 | | Action Push_String_Extended,0xba7 ; "Delete"
00e3 821a | | Call 0x1,0x1a
00e4 7004 |p | Jump_Nonzero 0xe9
00e5 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0xa = 0xe5,0x7
00e6 e007 | | Load 0x0,0x7
00e7 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00e8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; Debug Table 0x3.0xb = 0xe8,0x8
00e9 e216 | | Load 0x1,0x16 ; Debug Table 0x3.0xc = 0xe9,0x9
00ea 00db | | Load_Top At_Offset_3
00eb 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00ec e5fe | | Load 0x2,-0x2 ; Debug Table 0x3.0xd = 0xec,0xa
00ed e00c | | Load 0x0,0xc
00ee 1881 | | Execute Package,Field_Execute,Field_Number 0x81
00ef 4603 |F | Jump_Case 0x4
00f0 7803 |x | Jump 0xf4 ; case 0x0
00f1 7820 |x | Jump 0x112 ; case 0x1
00f2 781f |x | Jump 0x112 ; case 0x2
00f3 7846 |xF | Jump 0x13a ; case 0x3
00f4 e5fe | | Load 0x2,-0x2 ; Debug Table 0x3.0xe = 0xf4,0xb
00f5 e00c | | Load 0x0,0xc
00f6 1857 | W | Execute Package,Field_Execute,Field_Number 0x57
00f7 e00c | | Load 0x0,0xc
00f8 1882 | | Execute Package,Field_Execute,Field_Number 0x82
00f9 7005 |p | Jump_Nonzero 0xff
00fa 0092 0ba8 | | Action Push_String_Extended,0xba8 ; "delete failed - cursor must be in the selection"
; Debug Table 0x3.0xf = 0xfa,0xc
00fc e00d | | Load 0x0,0xd
00fd 180d | | Execute Package,Field_Execute,Field_Number 0xd
00fe 784b |xK | Jump 0x14a
00ff 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x10 = 0xff,0xd
0100 0217 | | Execute Heap_Access,All_Reference
0101 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0102 7009 |p | Jump_Nonzero 0x10c
0103 e5fe | | Load 0x2,-0x2 ; Debug Table 0x3.0x11 = 0x103,0xe
0104 e00c | | Load 0x0,0xc
0105 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b
0106 e00c | | Load 0x0,0xc
0107 185d | ] | Execute Package,Field_Execute,Field_Number 0x5d
0108 e402 | | Load 0x2,0x2
0109 e007 | | Load 0x0,0x7
010a 181b | | Execute Package,Field_Execute,Field_Number 0x1b
010b 783e |x> | Jump 0x14a
010c 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x12 = 0x10c,0xf
010d e5fe | | Load 0x2,-0x2
010e e402 | | Load 0x2,0x2
010f 8227 | ' | Call 0x1,0x27
0110 00d1 | | Pop_Control Pop_Count_1
0111 7838 |x8 | Jump 0x14a
0112 e5fe | | Load 0x2,-0x2 ; Debug Table 0x3.0x13 = 0x112,0x10
0113 e008 | | Load 0x0,0x8
0114 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0115 681f |h | Jump_Zero 0x135
0116 e001 | | Load 0x0,0x1 ; Debug Table 0x3.0x14 = 0x116,0x11
0117 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0118 e001 | | Load 0x0,0x1
0119 1b0f | | Execute Package,Field_Read,Field_Number 0xf
011a e5fe | | Load 0x2,-0x2
011b e402 | | Load 0x2,0x2
011c e008 | | Load 0x0,0x8
011d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
011e 005b | [ | Store_Top Discrete,At_Offset_3
011f 0059 | Y | Store_Top Discrete,At_Offset_1
0120 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x15 = 0x120,0x12
0121 0217 | | Execute Heap_Access,All_Reference
0122 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0123 700a |p | Jump_Nonzero 0x12e
0124 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x16 = 0x124,0x13
0125 00d9 | | Load_Top At_Offset_1
0126 0264 | d | Execute Discrete,Below_Bound
0127 7022 |p" | Jump_Nonzero 0x14a
0128 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x17 = 0x128,0x14
0129 e402 | | Load 0x2,0x2
012a e007 | | Load 0x0,0x7
012b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
012c 37fb |7 | Loop_Decreasing 0x128
012d 781c |x | Jump 0x14a
012e 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x18 = 0x12e,0x15
012f 00d9 | | Load_Top At_Offset_1
0130 00db | | Load_Top At_Offset_3
0131 e402 | | Load 0x2,0x2
0132 8226 | & | Call 0x1,0x26
0133 00d1 | | Pop_Control Pop_Count_1
0134 7815 |x | Jump 0x14a
0135 0092 0ba8 | | Action Push_String_Extended,0xba8 ; "delete failed - cursor must be in the selection"
; Debug Table 0x3.0x19 = 0x135,0x16
0137 e00d | | Load 0x0,0xd
0138 180d | | Execute Package,Field_Execute,Field_Number 0xd
0139 7810 |x | Jump 0x14a
013a 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x1a = 0x13a,0x17
013b 0217 | | Execute Heap_Access,All_Reference
013c 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
013d 7008 |p | Jump_Nonzero 0x146
013e e00c | | Load 0x0,0xc ; Debug Table 0x3.0x1b = 0x13e,0x18
013f 1857 | W | Execute Package,Field_Execute,Field_Number 0x57
0140 e00c | | Load 0x0,0xc
0141 185d | ] | Execute Package,Field_Execute,Field_Number 0x5d
0142 e402 | | Load 0x2,0x2
0143 e007 | | Load 0x0,0x7
0144 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0145 7804 |x | Jump 0x14a
0146 0092 0ba9 | | Action Push_String_Extended,0xba9 ; "delete failed - select a line or a region"
; Debug Table 0x3.0x1c = 0x146,0x19
0148 e00d | | Load 0x0,0xd
0149 180d | | Execute Package,Field_Execute,Field_Number 0xd
014a 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x1d = 0x14a,0x1a
014b e007 | | Load 0x0,0x7
014c 1820 | | Execute Package,Field_Execute,Field_Number 0x20
014d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
014e TRAP_00c0:
014e 61bd |a | Indirect_Literal Discrete,0x30c,{0x00000000, 0x57979503}
014f 010f | | Execute Exception,Equal
0150 6801 |h | Jump_Zero 0x152
0151 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; Debug Table 0x3.0x1e = 0x151,0x1b
0152 61b5 |a | Indirect_Literal Discrete,0x308,{0x00000000, 0x57979501}
0153 010f | | Execute Exception,Equal
0154 6808 |h | Jump_Zero 0x15d
0155 0092 0ba5 | | Action Push_String_Extended,0xba5 ; "doe_error"
; Debug Table 0x3.0x1f = 0x155,0x1c
0157 0092 0baa | | Action Push_String_Extended,0xbaa ; "delete"
0159 e402 | | Load 0x2,0x2
015a e008 | | Load 0x0,0x8
015b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
015c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
015d e009 | | Load 0x0,0x9 ; Debug Table 0x3.0x20 = 0x15d,0x1d
015e 180d | | Execute Package,Field_Execute,Field_Number 0xd
015f 0092 0baa | | Action Push_String_Extended,0xbaa ; "delete"
0161 e402 | | Load 0x2,0x2
0162 e008 | | Load 0x0,0x8
0163 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0164 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0165 0000 0000 | | .XXX[0x3]
0167 0000 | |
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 0173 | s | .CONST 0x0173 ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0004 | | .CONST 0x0004 ; Number of locals
016b INIT_0168:
016b e001 | | Load 0x0,0x1 ; Debug Table 0x4 = .DEBUG 0x016b,0x0ed2,0x0001,0x0000,0x0057,0x9795,0x0000,0x07f6
; Debug Table 0x4.0x0 = 0x16b,0xffff
016c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
016d e001 | | Load 0x0,0x1 ; Debug Table 0x4.0x1 = 0x16d,0xfffe
016e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
016f e219 | | Load 0x1,0x19 ; Debug Table 0x4.0x2 = 0x16f,0xfffd
0170 0322 | " | Declare_Variable Record
0171 00d8 | | Load_Top At_Offset_0
0172 1c00 | | Execute_Immediate Run_Utility,0x0
0173 BODY_0168:
0173 4800 |H | Short_Literal 0x0 ; Debug Table 0x4.0x3 = 0x173,0x1
0174 e5ff | | Load 0x2,-0x1
0175 0217 | | Execute Heap_Access,All_Reference
0176 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0177 e00a | | Load 0x0,0xa
0178 01a7 | | Execute Matrix,Field_Read
0179 7003 |p | Jump_Nonzero 0x17d
017a 4800 |H | Short_Literal 0x0 ; Debug Table 0x4.0x4 = 0x17a,0x2
017b 800b | | Call 0x0,0xb
017c 4505 |E | Exit_Suprogram New_Top_Offset 0x5 ; Debug Table 0x4.0x5 = 0x17c,0x3
017d e5ff | | Load 0x2,-0x1 ; Debug Table 0x4.0x6 = 0x17d,0x4
017e 0092 0bab | | Action Push_String_Extended,0xbab ; "Demote"
0180 821a | | Call 0x1,0x1a
0181 7001 |p | Jump_Nonzero 0x183
0182 4505 |E | Exit_Suprogram New_Top_Offset 0x5 ; Debug Table 0x4.0x7 = 0x182,0x5
0183 e5fd | | Load 0x2,-0x3 ; Debug Table 0x4.0x8 = 0x183,0x6
0184 e218 | | Load 0x1,0x18
0185 01d5 | | Execute Vector,Field_Reference
0186 00d9 | | Load_Top At_Offset_1
0187 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0188 e5fd | | Load 0x2,-0x3 ; Debug Table 0x4.0x9 = 0x188,0x7
0189 4801 |H | Short_Literal 0x1
018a 4802 |H | Short_Literal 0x2
018b 0262 | b | Execute Discrete,In_Range
018c 00d9 | | Load_Top At_Offset_1
018d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
018e e5fc | | Load 0x2,-0x4 ; Debug Table 0x4.0xa = 0x18e,0x8
018f 00d9 | | Load_Top At_Offset_1
0190 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0191 e5fe | | Load 0x2,-0x2 ; Debug Table 0x4.0xb = 0x191,0x9
0192 e00c | | Load 0x0,0xc
0193 1881 | | Execute Package,Field_Execute,Field_Number 0x81
0194 4603 |F | Jump_Case 0x4
0195 784a |xJ | Jump 0x1e0 ; case 0x0
0196 7802 |x | Jump 0x199 ; case 0x1
0197 782e |x. | Jump 0x1c6 ; case 0x2
0198 7858 |xX | Jump 0x1f1 ; case 0x3
0199 e5ff | | Load 0x2,-0x1 ; Debug Table 0x4.0xc = 0x199,0xa
019a 0217 | | Execute Heap_Access,All_Reference
019b 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
019c e00e | | Load 0x0,0xe
019d 0260 | ` | Execute Discrete,In_Type
019e 680c |h | Jump_Zero 0x1ab
019f e5ff | | Load 0x2,-0x1
01a0 0217 | | Execute Heap_Access,All_Reference
01a1 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
01a2 e00f | | Load 0x0,0xf
01a3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01a4 025f | _ | Execute Discrete,Not_In_Type
01a5 6805 |h | Jump_Zero 0x1ab
01a6 0092 0bac | | Action Push_String_Extended,0xbac ; "display is not showing demote closure"
; Debug Table 0x4.0xd = 0x1a6,0xb
01a8 e00d | | Load 0x0,0xd
01a9 180d | | Execute Package,Field_Execute,Field_Number 0xd
01aa 784a |xJ | Jump 0x1f5
01ab e5fd | | Load 0x2,-0x3 ; Debug Table 0x4.0xe = 0x1ab,0xc
01ac 700e |p | Jump_Nonzero 0x1bb
01ad e214 | | Load 0x1,0x14 ; Debug Table 0x4.0xf = 0x1ad,0xd
01ae 00d9 | | Load_Top At_Offset_1
01af 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01b0 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x10 = 0x1b0,0xe
01b1 e5ff | | Load 0x2,-0x1
01b2 0217 | | Execute Heap_Access,All_Reference
01b3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01b4 e00c | | Load 0x0,0xc
01b5 1869 | i | Execute Package,Field_Execute,Field_Number 0x69
01b6 4801 |H | Short_Literal 0x1
01b7 e5ff | | Load 0x2,-0x1
01b8 8226 | & | Call 0x1,0x26
01b9 00d1 | | Pop_Control Pop_Count_1
01ba 783a |x: | Jump 0x1f5
01bb 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x11 = 0x1bb,0xf
01bc e5ff | | Load 0x2,-0x1
01bd 0217 | | Execute Heap_Access,All_Reference
01be 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01bf e00c | | Load 0x0,0xc
01c0 1869 | i | Execute Package,Field_Execute,Field_Number 0x69
01c1 4801 |H | Short_Literal 0x1
01c2 e5ff | | Load 0x2,-0x1
01c3 8226 | & | Call 0x1,0x26
01c4 00d1 | | Pop_Control Pop_Count_1
01c5 782f |x/ | Jump 0x1f5
01c6 e5fe | | Load 0x2,-0x2 ; Debug Table 0x4.0x12 = 0x1c6,0x10
01c7 e008 | | Load 0x0,0x8
01c8 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01c9 6811 |h | Jump_Zero 0x1db
01ca e001 | | Load 0x0,0x1 ; Debug Table 0x4.0x13 = 0x1ca,0x11
01cb 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01cc e001 | | Load 0x0,0x1
01cd 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01ce e5fe | | Load 0x2,-0x2
01cf e5ff | | Load 0x2,-0x1
01d0 e008 | | Load 0x0,0x8
01d1 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01d2 c402 | | Store 0x2,0x2
01d3 005a | Z | Store_Top Discrete,At_Offset_2
01d4 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x14 = 0x1d4,0x12
01d5 00da | | Load_Top At_Offset_2
01d6 e402 | | Load 0x2,0x2
01d7 e5ff | | Load 0x2,-0x1
01d8 8226 | & | Call 0x1,0x26
01d9 00d1 | | Pop_Control Pop_Count_1
01da 781a |x | Jump 0x1f5
01db 0092 0bad | | Action Push_String_Extended,0xbad ; "demote failed - cursor must be in the selection"
; Debug Table 0x4.0x15 = 0x1db,0x13
01dd e00d | | Load 0x0,0xd
01de 180d | | Execute Package,Field_Execute,Field_Number 0xd
01df 7815 |x | Jump 0x1f5
01e0 e5fe | | Load 0x2,-0x2 ; Debug Table 0x4.0x16 = 0x1e0,0x14
01e1 e00c | | Load 0x0,0xc
01e2 1857 | W | Execute Package,Field_Execute,Field_Number 0x57
01e3 e00c | | Load 0x0,0xc
01e4 1882 | | Execute Package,Field_Execute,Field_Number 0x82
01e5 6806 |h | Jump_Zero 0x1ec
01e6 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x17 = 0x1e6,0x15
01e7 e5fe | | Load 0x2,-0x2
01e8 e5ff | | Load 0x2,-0x1
01e9 8227 | ' | Call 0x1,0x27
01ea 00d1 | | Pop_Control Pop_Count_1
01eb 7809 |x | Jump 0x1f5
01ec 0092 0bad | | Action Push_String_Extended,0xbad ; "demote failed - cursor must be in the selection"
; Debug Table 0x4.0x18 = 0x1ec,0x16
01ee e00d | | Load 0x0,0xd
01ef 180d | | Execute Package,Field_Execute,Field_Number 0xd
01f0 7804 |x | Jump 0x1f5
01f1 0092 0bae | | Action Push_String_Extended,0xbae ; "demote failed - there must be a selection"
; Debug Table 0x4.0x19 = 0x1f1,0x17
01f3 e00d | | Load 0x0,0xd
01f4 180d | | Execute Package,Field_Execute,Field_Number 0xd
01f5 e5fe | | Load 0x2,-0x2 ; Debug Table 0x4.0x1a = 0x1f5,0x18
01f6 e5ff | | Load 0x2,-0x1
01f7 e010 | | Load 0x0,0x10
01f8 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
01f9 4505 |E | Exit_Suprogram New_Top_Offset 0x5
01fa 0000 0000 | | .BLANK 0000[0x6]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0207 | | .CONST 0x0207 ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0002 | | .CONST 0x0002 ; Number of locals
0203 INIT_0200:
0203 e219 | | Load 0x1,0x19 ; Debug Table 0x5 = .DEBUG 0x0203,0x0f0a,0x0001,0x0000,0x0057,0x9795,0x0000,0x0811
; Debug Table 0x5.0x0 = 0x203,0xffff
0204 0322 | " | Declare_Variable Record
0205 00d8 | | Load_Top At_Offset_0
0206 1c00 | | Execute_Immediate Run_Utility,0x0
0207 BODY_0200:
0207 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x1 = 0x207,0x1
0208 00ec | | Load_Encached Diana_Tree_Cache
0209 e5fb | | Load 0x2,-0x5
020a 0120 | | Execute Any,Is_Value
020b 6803 |h | Jump_Zero 0x20f
020c e003 | | Load 0x0,0x3
020d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
020e 7801 |x | Jump 0x210
020f e5fb | | Load 0x2,-0x5
0210 00e1 | | Load_Encached Boolean_Cache
0211 e5fd | | Load 0x2,-0x3
0212 e5fe | | Load 0x2,-0x2
0213 e5ff | | Load 0x2,-0x1
0214 8220 | | Call 0x1,0x20
0215 00d1 | | Pop_Control Pop_Count_1
0216 c5fc | | Store 0x2,-0x4
0217 c5fb | | Store 0x2,-0x5
0218 c5fa | | Store 0x2,-0x6
0219 4503 |E | Exit_Suprogram New_Top_Offset 0x3
021a 0000 0000 | | .BLANK 0000[0x6]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223 | # | .CONST 0x0223 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0001 | | .CONST 0x0001 ; Number of locals
0223 BODY_0220:
0223 INIT_0220:
0223 00d1 | | Pop_Control Pop_Count_1 ; Debug Table 0x6 = .DEBUG 0x0223,0x0f10,0x0005,0x0000,0x0057,0x9905,0x0000,0x0019
0224 00da | | Load_Top At_Offset_2
0225 01dc | | Execute Vector,Last
0226 00db | | Load_Top At_Offset_3
0227 01dd | | Execute Vector,First
0228 0263 | c | Execute Discrete,Above_Bound
0229 7006 |p | Jump_Nonzero 0x230
022a 00d8 | | Load_Top At_Offset_0
022b e5ff | | Load 0x2,-0x1
022c 01d5 | | Execute Vector,Field_Reference
022d 1c00 | | Execute_Immediate Run_Utility,0x0
022e 0a01 | | Execute_Immediate Plus,0x1
022f 7ff8 | | Jump 0x228
0230 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0231 0000 0000 | | .BLANK 0000[0x7]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b | ; | .CONST 0x023b ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0001 | | .CONST 0x0001 ; Number of locals
023b BODY_0238:
023b INIT_0238:
023b 4608 |F | Jump_Case 0x9 ; Debug Table 0x7 = .DEBUG 0x023b,0x0f12,0x0005,0x0000,0x0057,0x9905,0x0000,0x0024
023c 7808 |x | Jump 0x245 ; case 0x0
023d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
023e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
023f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0240 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0241 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
0242 7813 |x | Jump 0x256 ; case 0x6
0243 781a |x | Jump 0x25e ; case 0x7
0244 7824 |x$ | Jump 0x269 ; case 0x8
0245 00da | | Load_Top At_Offset_2
0246 016c | l | Execute Variant_Record,Is_Constrained
0247 7009 |p | Jump_Nonzero 0x251
0248 00cf | | Action Mark_Auxiliary
0249 4801 |H | Short_Literal 0x1
024a e5ff | | Load 0x2,-0x1
024b 1c08 | | Execute_Immediate Run_Utility,0x8
024c 00d8 | | Load_Top At_Offset_0
024d 1c00 | | Execute_Immediate Run_Utility,0x0
024e c5ff | | Store 0x2,-0x1
024f 00ce | | Action Pop_Auxiliary
0250 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0251 00da | | Load_Top At_Offset_2
0252 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0253 4601 |F | Jump_Case 0x2
0254 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0255 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0256 00db | | Load_Top At_Offset_3
0257 4601 |F | Jump_Case 0x2
0258 7803 |x | Jump 0x25c ; case 0x0
0259 7800 |x | Jump 0x25a ; case 0x1
025a 48ff |H | Short_Literal 0xff
025b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
025c 4801 |H | Short_Literal 0x1
025d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
025e 00db | | Load_Top At_Offset_3
025f e5fe | | Load 0x2,-0x2
0260 4601 |F | Jump_Case 0x2
0261 7803 |x | Jump 0x265 ; case 0x0
0262 7800 |x | Jump 0x263 ; case 0x1
0263 48ff |H | Short_Literal 0xff
0264 7801 |x | Jump 0x266
0265 4801 |H | Short_Literal 0x1
0266 e5ff | | Load 0x2,-0x1
0267 031b | | Declare_Type Variant_Record,Constrained
0268 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0269 00db | | Load_Top At_Offset_3
026a e5fe | | Load 0x2,-0x2
026b e5ff | | Load 0x2,-0x1
026c 1c06 | | Execute_Immediate Run_Utility,0x6
026d e5ff | | Load 0x2,-0x1
026e 02fc | | Declare_Variable Variant_Record,With_Constraint
026f 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273 | s | .CONST 0x0273 ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 0001 | | .CONST 0x0001 ; Number of locals
0273 BODY_0270:
0273 INIT_0270:
0273 00d1 | | Pop_Control Pop_Count_1 ; Debug Table 0x8 = .DEBUG 0x0273,0x0f14,0x0005,0x0000,0x0057,0x9905,0x0000,0x006f
0274 00da | | Load_Top At_Offset_2
0275 01d8 | | Execute Vector,Element_Type
0276 02ff | | Declare_Variable Variant_Record
0277 00d8 | | Load_Top At_Offset_0
0278 1c00 | | Execute_Immediate Run_Utility,0x0
0279 00db | | Load_Top At_Offset_3
027a 01dc | | Execute Vector,Last
027b e5ff | | Load 0x2,-0x1
027c 01dd | | Execute Vector,First
027d 0263 | c | Execute Discrete,Above_Bound
027e 7006 |p | Jump_Nonzero 0x285
027f 00da | | Load_Top At_Offset_2
0280 00d9 | | Load_Top At_Offset_1
0281 e5ff | | Load 0x2,-0x1
0282 01d6 | | Execute Vector,Field_Write
0283 0a01 | | Execute_Immediate Plus,0x1
0284 7ff8 | | Jump 0x27d
0285 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0286 0000 0000 | | .XXX[0x2]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b | | .CONST 0x028b ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0001 | | .CONST 0x0001 ; Number of locals
028b BODY_0288:
028b INIT_0288:
028b 4608 |F | Jump_Case 0x9 ; Debug Table 0x9 = .DEBUG 0x028b,0x0f16,0x0005,0x0000,0x0057,0x9905,0x0000,0x007e
028c 7808 |x | Jump 0x295 ; case 0x0
028d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
028e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
028f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0290 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0291 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
0292 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
0293 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7
0294 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8
0295 e214 | | Load 0x1,0x14
0296 00db | | Load_Top At_Offset_3
0297 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0298 4801 |H | Short_Literal 0x1
0299 00db | | Load_Top At_Offset_3
029a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
029b 4800 |H | Short_Literal 0x0
029c 00db | | Load_Top At_Offset_3
029d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
029e 00da | | Load_Top At_Offset_2
029f 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
02a0 0125 | % | Execute Any,Set_Constraint
02a1 e005 | | Load 0x0,0x5
02a2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02a3 00db | | Load_Top At_Offset_3
02a4 00d9 | | Load_Top At_Offset_1
02a5 00d9 | | Load_Top At_Offset_1
02a6 3003 |0 | Execute Record,Field_Type,Field_Number 0x3
02a7 0119 | | Execute Any,Check_In_Formal_Type
02a8 00d1 | | Pop_Control Pop_Count_1
02a9 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
02aa 4800 |H | Short_Literal 0x0
02ab 00db | | Load_Top At_Offset_3
02ac 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
02ad 00f1 | | Load_Encached Diana_Temp_Seq ; Debug Table 0x9.0x0 = 0x2ad,0x401
02ae 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0x1 = 0x2ae,0x1
02af 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
02b0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
02b1 0000 0000 | | .BLANK 0000[0x7]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bb | | .CONST 0x02bb ; Address of begin
02b9 0004 | | .CONST 0x0004 ; Address of exception handler
02ba 0001 | | .CONST 0x0001 ; Number of locals
02bb BODY_02b8:
02bb INIT_02b8:
02bb 00db | | Load_Top At_Offset_3 ; Debug Table 0xa = .DEBUG 0x02bb,0x0f1c,0x0002,0x0000,0x0057,0x9905,0x0000,0x00ae
; Debug Table 0xa.0x0 = 0x2bb,0x1
02bc 0217 | | Execute Heap_Access,All_Reference
02bd 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
02be 460d |F | Jump_Case 0xe
02bf 780d |x | Jump 0x2cd ; case 0x0
02c0 781a |x | Jump 0x2db ; case 0x1
02c1 7843 |xC | Jump 0x305 ; case 0x2
02c2 7826 |x& | Jump 0x2e9 ; case 0x3
02c3 7841 |xA | Jump 0x305 ; case 0x4
02c4 7840 |x@ | Jump 0x305 ; case 0x5
02c5 783f |x? | Jump 0x305 ; case 0x6
02c6 783e |x> | Jump 0x305 ; case 0x7
02c7 7832 |x2 | Jump 0x2fa ; case 0x8
02c8 783c |x< | Jump 0x305 ; case 0x9
02c9 783b |x; | Jump 0x305 ; case 0xa
02ca 783a |x: | Jump 0x305 ; case 0xb
02cb 7839 |x9 | Jump 0x305 ; case 0xc
02cc 7838 |x8 | Jump 0x305 ; case 0xd
02cd 00da | | Load_Top At_Offset_2 ; Debug Table 0xa.0x1 = 0x2cd,0x2
02ce 0092 0baf | | Action Push_String_Extended,0xbaf ; " is not allowed here. "
02d0 01cc | | Execute Vector,Catenate
02d1 0092 0bb0 | | Action Push_String_Extended,0xbb0 ; "The display must be showing units or items. "
02d3 01cc | | Execute Vector,Catenate
02d4 0092 0bb1 | | Action Push_String_Extended,0xbb1 ; "To get to a unit display do object.expand twice."
02d6 01cc | | Execute Vector,Catenate
02d7 e00d | | Load 0x0,0xd
02d8 180d | | Execute Package,Field_Execute,Field_Number 0xd
02d9 4800 |H | Short_Literal 0x0 ; Debug Table 0xa.0x2 = 0x2d9,0x3
02da 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02db 00da | | Load_Top At_Offset_2 ; Debug Table 0xa.0x3 = 0x2db,0x4
02dc 0092 0baf | | Action Push_String_Extended,0xbaf ; " is not allowed here. "
02de 01cc | | Execute Vector,Catenate
02df 0092 0bb0 | | Action Push_String_Extended,0xbb0 ; "The display must be showing units or items. "
02e1 01cc | | Execute Vector,Catenate
02e2 0092 0bb2 | | Action Push_String_Extended,0xbb2 ; "To get to a unit display do object.expand."
02e4 01cc | | Execute Vector,Catenate
02e5 e00d | | Load 0x0,0xd
02e6 180d | | Execute Package,Field_Execute,Field_Number 0xd
02e7 4800 |H | Short_Literal 0x0 ; Debug Table 0xa.0x4 = 0x2e7,0x5
02e8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02e9 00da | | Load_Top At_Offset_2 ; Debug Table 0xa.0x5 = 0x2e9,0x6
02ea 0092 0baf | | Action Push_String_Extended,0xbaf ; " is not allowed here. "
02ec 01cc | | Execute Vector,Catenate
02ed 0092 0bb0 | | Action Push_String_Extended,0xbb0 ; "The display must be showing units or items. "
02ef 01cc | | Execute Vector,Catenate
02f0 0092 0bb3 | | Action Push_String_Extended,0xbb3 ; "To get to an item display do object.expand. "
02f2 01cc | | Execute Vector,Catenate
02f3 0092 0bb4 | | Action Push_String_Extended,0xbb4 ; "To get to a unit display do object.elide."
02f5 01cc | | Execute Vector,Catenate
02f6 e00d | | Load 0x0,0xd
02f7 180d | | Execute Package,Field_Execute,Field_Number 0xd
02f8 4800 |H | Short_Literal 0x0 ; Debug Table 0xa.0x6 = 0x2f8,0x7
02f9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02fa 00da | | Load_Top At_Offset_2 ; Debug Table 0xa.0x7 = 0x2fa,0x8
02fb 0092 0baf | | Action Push_String_Extended,0xbaf ; " is not allowed here. "
02fd 01cc | | Execute Vector,Catenate
02fe 0092 0bb5 | | Action Push_String_Extended,0xbb5 ; "To get a full item list display do object.elide"
0300 01cc | | Execute Vector,Catenate
0301 e00d | | Load 0x0,0xd
0302 180d | | Execute Package,Field_Execute,Field_Number 0xd
0303 4800 |H | Short_Literal 0x0 ; Debug Table 0xa.0x8 = 0x303,0x9
0304 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0305 4801 |H | Short_Literal 0x1 ; Debug Table 0xa.0x9 = 0x305,0xa
0306 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0307 0000 | | .XXX[0x1]
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 0003 | | .CONST 0x0003 ; Number of locals
0313 INIT_0310:
0313 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0xb = .DEBUG 0x0313,0x0f32,0x0002,0x0000,0x0057,0x9905,0x0000,0x012a
; Debug Table 0xb.0x0 = 0x313,0xffff
0314 e003 | | Load 0x0,0x3 ; Debug Table 0xb.0x1 = 0x314,0xfffe
0315 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0316 BODY_0310:
0316 e003 | | Load 0x0,0x3 ; Debug Table 0xb.0x2 = 0x316,0x1
0317 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0318 00e1 | | Load_Encached Boolean_Cache
0319 62aa |b | Indirect_Literal Discrete,0x5c4,{0x00000000, 0x00004000}
031a e005 | | Load 0x0,0x5
031b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
031c e5ff | | Load 0x2,-0x1
031d e003 | | Load 0x0,0x3
031e 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
031f 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0320 005b | [ | Store_Top Discrete,At_Offset_3
0321 0059 | Y | Store_Top Discrete,At_Offset_1
0322 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xb.0x3 = 0x322,0x2
0323 7002 |p | Jump_Nonzero 0x326
0324 00d9 | | Load_Top At_Offset_1
0325 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0326 4800 |H | Short_Literal 0x0
0327 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 0337 | 7 | .CONST 0x0337 ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 0005 | | .CONST 0x0005 ; Number of locals
032b INIT_0328:
032b 00f1 | | Load_Encached Diana_Temp_Seq ; Debug Table 0xc = .DEBUG 0x032b,0x0f3c,0x0002,0x0000,0x0057,0x9905,0x0000,0x0155
; Debug Table 0xc.0x0 = 0x32b,0xffff
032c 00ee | | Load_Encached Diana_Seq_Type_Cache ; Debug Table 0xc.0x1 = 0x32c,0xfffe
032d 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0xc.0x2 = 0x32d,0xfffd
032e e5ff | | Load 0x2,-0x1 ; Debug Table 0xc.0x3 = 0x32e,0x401
032f 0217 | | Execute Heap_Access,All_Reference
0330 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0331 0031 | 1 | Store_Top Heap_Access,At_Offset_1 ; Debug Table 0xc.0x4 = 0x331,0xfffd
0332 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0xc.0x5 = 0x332,0xfffc
0333 00d9 | | Load_Top At_Offset_1
0334 00eb | | Load_Encached Diana_Cache
0335 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0336 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0337 BODY_0328:
0337 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xc.0x6 = 0x337,0x1
0338 0007 | | Action Break_Optional
0339 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xc.0x7 = 0x339,0x801
033a 0007 | | Action Break_Optional
033b e407 | | Load 0x2,0x7 ; Debug Table 0xc.0x8 = 0x33b,0xc01
033c 0007 | | Action Break_Optional
033d 0145 | E | Execute Heap_Access,Diana_Tree_Kind ; Debug Table 0xc.0x9 = 0x33d,0xc02
033e 0007 | | Action Break_Optional ; Debug Table 0xc.0xa = 0x33e,0xc03
033f 00d0 | | Action Swap_Control ; Debug Table 0xc.0xb = 0x33f,0xc04
0340 00d1 | | Pop_Control Pop_Count_1
0341 49e2 |I | Short_Literal 0x1e2 ; Debug Table 0xc.0xc = 0x341,0x801
0342 00eb | | Load_Encached Diana_Cache
0343 0098 | | Execute Package,Field_Read_Dynamic
0344 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0345 7800 |x | Jump 0x346
0346 00d0 | | Action Swap_Control
0347 00d1 | | Pop_Control Pop_Count_1
0348 0e04 | | Execute_Immediate Not_Equal,0x4 ; Debug Table 0xc.0xd = 0x348,0x1
0349 6802 |h | Jump_Zero 0x34c
034a 4800 |H | Short_Literal 0x0 ; Debug Table 0xc.0xe = 0x34a,0x2
034b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
034c 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xc.0xf = 0x34c,0x3
034d 4975 |Iu | Short_Literal 0x175
034e 00eb | | Load_Encached Diana_Cache
034f 0098 | | Execute Package,Field_Read_Dynamic
0350 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0351 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xc.0x10 = 0x351,0x1001
0352 7002 |p | Jump_Nonzero 0x355
0353 00ee | | Load_Encached Diana_Seq_Type_Cache ; Debug Table 0xc.0x11 = 0x353,0x1002
0354 7803 |x | Jump 0x358
0355 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xc.0x12 = 0x355,0x1003
0356 0217 | | Execute Heap_Access,All_Reference
0357 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0358 00d0 | | Action Swap_Control
0359 00d1 | | Pop_Control Pop_Count_1
035a 0033 | 3 | Store_Top Heap_Access,At_Offset_3 ; Debug Table 0xc.0x13 = 0x35a,0x3
035b 0007 | | Action Break_Optional ; Debug Table 0xc.0x14 = 0x35b,0x4
035c e5ff | | Load 0x2,-0x1 ; Debug Table 0xc.0x15 = 0x35c,0x1401
035d 0217 | | Execute Heap_Access,All_Reference
035e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
035f a402 | | Store_Unchecked 0x2,0x2 ; Debug Table 0xc.0x16 = 0x35f,0x4
0360 784e |xN | Jump 0x3af
0361 0007 | | Action Break_Optional ; Debug Table 0xc.0x17 = 0x361,0x6
0362 00da | | Load_Top At_Offset_2 ; Debug Table 0xc.0x18 = 0x362,0x1801
0363 021d | | Execute Heap_Access,Is_Null
0364 703a |p: | Jump_Nonzero 0x39f ; Debug Table 0xc.0x19 = 0x364,0x6
0365 00da | | Load_Top At_Offset_2
0366 0007 | | Action Break_Optional
0367 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xc.0x1a = 0x367,0x1c01
0368 7002 |p | Jump_Nonzero 0x36b
0369 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0xc.0x1b = 0x369,0x1c02
036a 782c |x, | Jump 0x397
036b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xc.0x1c = 0x36b,0x1c03
036c 0217 | | Execute Heap_Access,All_Reference
036d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
036e 6804 |h | Jump_Zero 0x373
036f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xc.0x1d = 0x36f,0x1c04
0370 0217 | | Execute Heap_Access,All_Reference
0371 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0372 7824 |x$ | Jump 0x397
0373 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xc.0x1e = 0x373,0x1c05
0374 0007 | | Action Break_Optional
0375 e407 | | Load 0x2,0x7 ; Debug Table 0xc.0x1f = 0x375,0x2001
0376 0007 | | Action Break_Optional
0377 0148 | H | Execute Heap_Access,Get_Offset ; Debug Table 0xc.0x20 = 0x377,0x2002
0378 0007 | | Action Break_Optional ; Debug Table 0xc.0x21 = 0x378,0x2003
0379 00d0 | | Action Swap_Control ; Debug Table 0xc.0x22 = 0x379,0x2004
037a 00d1 | | Pop_Control Pop_Count_1
037b 49bb |I | Short_Literal 0x1bb ; Debug Table 0xc.0x23 = 0x37b,0x1c05
037c 00eb | | Load_Encached Diana_Cache
037d 0098 | | Execute Package,Field_Read_Dynamic
037e 012c | , | Execute Any,Size
037f e011 | | Load 0x0,0x11
0380 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0381 025b | [ | Execute Discrete,Check_In_Type
0382 0273 | s | Execute Discrete,Plus
0383 00d9 | | Load_Top At_Offset_1
0384 0007 | | Action Break_Optional
0385 e408 | | Load 0x2,0x8 ; Debug Table 0xc.0x24 = 0x385,0x2401
0386 0007 | | Action Break_Optional
0387 0210 | | Execute Heap_Access,Get_Segment ; Debug Table 0xc.0x25 = 0x387,0x2402
0388 0007 | | Action Break_Optional ; Debug Table 0xc.0x26 = 0x388,0x2403
0389 00d0 | | Action Swap_Control ; Debug Table 0xc.0x27 = 0x389,0x2404
038a 00d1 | | Pop_Control Pop_Count_1
038b 49c8 |I | Short_Literal 0x1c8 ; Debug Table 0xc.0x28 = 0x38b,0x2004
038c 00eb | | Load_Encached Diana_Cache
038d 0098 | | Execute Package,Field_Read_Dynamic
038e 49c9 |I | Short_Literal 0x1c9
038f 00eb | | Load_Encached Diana_Cache
0390 0098 | | Execute Package,Field_Read_Dynamic
0391 49ca |I | Short_Literal 0x1ca
0392 00eb | | Load_Encached Diana_Cache
0393 0095 | | Execute Package,Field_Reference_Dynamic
0394 e012 | | Load 0x0,0x12
0395 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0396 7800 |x | Jump 0x397
0397 00d0 | | Action Swap_Control
0398 00d1 | | Pop_Control Pop_Count_1
0399 0007 | | Action Break_Optional ; Debug Table 0xc.0x29 = 0x399,0x1801
039a e402 | | Load 0x2,0x2 ; Debug Table 0xc.0x2a = 0x39a,0x2801
039b 0217 | | Execute Heap_Access,All_Reference
039c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
039d 021f | | Execute Heap_Access,Equal ; Debug Table 0xc.0x2b = 0x39d,0x1c06
039e 7002 |p | Jump_Nonzero 0x3a1
039f 4800 |H | Short_Literal 0x0 ; Debug Table 0xc.0x2c = 0x39f,0x7
03a0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03a1 0007 | | Action Break_Optional ; Debug Table 0xc.0x2d = 0x3a1,0x8
03a2 00db | | Load_Top At_Offset_3 ; Debug Table 0xc.0x2e = 0x3a2,0x2c01
03a3 0217 | | Execute Heap_Access,All_Reference
03a4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03a5 a402 | | Store_Unchecked 0x2,0x2 ; Debug Table 0xc.0x2f = 0x3a5,0x8
03a6 0007 | | Action Break_Optional ; Debug Table 0xc.0x30 = 0x3a6,0x9
03a7 00da | | Load_Top At_Offset_2 ; Debug Table 0xc.0x31 = 0x3a7,0x3001
03a8 7002 |p | Jump_Nonzero 0x3ab
03a9 00ee | | Load_Encached Diana_Seq_Type_Cache ; Debug Table 0xc.0x32 = 0x3a9,0x3002
03aa 7803 |x | Jump 0x3ae
03ab 00da | | Load_Top At_Offset_2 ; Debug Table 0xc.0x33 = 0x3ab,0x3003
03ac 0217 | | Execute Heap_Access,All_Reference
03ad 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03ae 0033 | 3 | Store_Top Heap_Access,At_Offset_3 ; Debug Table 0xc.0x34 = 0x3ae,0x9
03af 0007 | | Action Break_Optional ; Debug Table 0xc.0x35 = 0x3af,0x5
03b0 00db | | Load_Top At_Offset_3 ; Debug Table 0xc.0x36 = 0x3b0,0x3401
03b1 021d | | Execute Heap_Access,Is_Null
03b2 6fae |o | Jump_Zero 0x361 ; Debug Table 0xc.0x37 = 0x3b2,0x5
03b3 4801 |H | Short_Literal 0x1 ; Debug Table 0xc.0x38 = 0x3b3,0xa
03b4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03b5 0000 0000 | | .XXX[0x3]
03b7 0000 | |
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03d5 | | .CONST 0x03d5 ; Address of begin
03b9 0004 | | .CONST 0x0004 ; Address of exception handler
03ba 0008 | | .CONST 0x0008 ; Number of locals
03bb INIT_03b8:
03bb e003 | | Load 0x0,0x3 ; Debug Table 0xd = .DEBUG 0x03bb,0x0fb0,0x0001,0x0000,0x0057,0x9905,0x0000,0x01f2
; Debug Table 0xd.0x0 = 0x3bb,0xffff
03bc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03bd 02c7 | | Declare_Variable Any
03be 00db | | Load_Top At_Offset_3
03bf e013 | | Load 0x0,0x13
03c0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03c1 c402 | | Store 0x2,0x2
03c2 e5fe | | Load 0x2,-0x2 ; Debug Table 0xd.0x1 = 0x3c2,0xfffe
03c3 00d9 | | Load_Top At_Offset_1
03c4 e013 | | Load 0x0,0x13
03c5 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03c6 e003 | | Load 0x0,0x3
03c7 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
03c8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03c9 03f1 | | Declare_Variable Discrete,With_Value
03ca 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0xd.0x2 = 0x3ca,0xfffd
03cb 00f1 | | Load_Encached Diana_Temp_Seq ; Debug Table 0xd.0x3 = 0x3cb,0xfffc
03cc e014 | | Load 0x0,0x14 ; Debug Table 0xd.0x4 = 0x3cc,0xfffb
03cd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03ce 02c7 | | Declare_Variable Any
03cf 00d8 | | Load_Top At_Offset_0
03d0 1c00 | | Execute_Immediate Run_Utility,0x0
03d1 e003 | | Load 0x0,0x3 ; Debug Table 0xd.0x5 = 0x3d1,0xfffa
03d2 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
03d3 1b17 | | Execute Package,Field_Read,Field_Number 0x17
03d4 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0xd.0x6 = 0x3d4,0xfff9
03d5 BODY_03b8:
03d5 e403 | | Load 0x2,0x3 ; Debug Table 0xd.0x7 = 0x3d5,0x1
03d6 0d04 | | Execute_Immediate Less,0x4
03d7 7009 |p | Jump_Nonzero 0x3e1
03d8 4800 |H | Short_Literal 0x0
03d9 e402 | | Load 0x2,0x2
03da e003 | | Load 0x0,0x3
03db 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
03dc 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03dd e003 | | Load 0x0,0x3
03de 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
03df 1812 | | Execute Package,Field_Execute,Field_Number 0x12
03e0 6803 |h | Jump_Zero 0x3e4
03e1 4800 |H | Short_Literal 0x0 ; Debug Table 0xd.0x8 = 0x3e1,0x2
03e2 a5fd | | Store_Unchecked 0x2,-0x3
03e3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; Debug Table 0xd.0x9 = 0x3e3,0x3
03e4 e5ff | | Load 0x2,-0x1 ; Debug Table 0xd.0xa = 0x3e4,0x4
03e5 e013 | | Load 0x0,0x13
03e6 180f | | Execute Package,Field_Execute,Field_Number 0xf
03e7 a404 | | Store_Unchecked 0x2,0x4
03e8 e003 | | Load 0x0,0x3 ; Debug Table 0xd.0xb = 0x3e8,0x5
03e9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03ea 00f1 | | Load_Encached Diana_Temp_Seq
03eb e003 | | Load 0x0,0x3
03ec 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
03ed 1b17 | | Execute Package,Field_Read,Field_Number 0x17
03ee 00ec | | Load_Encached Diana_Tree_Cache
03ef e406 | | Load 0x2,0x6
03f0 0120 | | Execute Any,Is_Value
03f1 6803 |h | Jump_Zero 0x3f5
03f2 e014 | | Load 0x0,0x14
03f3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03f4 7801 |x | Jump 0x3f6
03f5 e406 | | Load 0x2,0x6
03f6 61cd |a | Indirect_Literal Discrete,0x5c4,{0x00000000, 0x00004000}
03f7 e5fe | | Load 0x2,-0x2
03f8 4803 |H | Short_Literal 0x3
03f9 e015 | | Load 0x0,0x15
03fa 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03fb e016 | | Load 0x0,0x16
03fc 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03fd e402 | | Load 0x2,0x2
03fe e013 | | Load 0x0,0x13
03ff 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0400 e003 | | Load 0x0,0x3
0401 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0402 4803 |H | Short_Literal 0x3
0403 4801 |H | Short_Literal 0x1
0404 e404 | | Load 0x2,0x4
0405 e003 | | Load 0x0,0x3
0406 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
0407 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0408 c406 | | Store 0x2,0x6
0409 c408 | | Store 0x2,0x8
040a c407 | | Store 0x2,0x7
040b c405 | | Store 0x2,0x5
040c c5fd | | Store 0x2,-0x3
040d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
040e 0000 0000 | | .XXX[0x2]
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0437 | 7 | .CONST 0x0437 ; Address of begin
0411 0004 | | .CONST 0x0004 ; Address of exception handler
0412 000b | | .CONST 0x000b ; Number of locals
0413 INIT_0410:
0413 e003 | | Load 0x0,0x3 ; Debug Table 0xe = .DEBUG 0x0413,0x0fca,0x0001,0x0000,0x0057,0x9905,0x0000,0x0291
; Debug Table 0xe.0x0 = 0x413,0xffff
0414 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0415 00f1 | | Load_Encached Diana_Temp_Seq ; Debug Table 0xe.0x1 = 0x415,0xfffe
0416 e014 | | Load 0x0,0x14 ; Debug Table 0xe.0x2 = 0x416,0xfffd
0417 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0418 02c7 | | Declare_Variable Any
0419 00d8 | | Load_Top At_Offset_0
041a 1c00 | | Execute_Immediate Run_Utility,0x0
041b e003 | | Load 0x0,0x3 ; Debug Table 0xe.0x3 = 0x41b,0xfffc
041c 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
041d 1b17 | | Execute Package,Field_Read,Field_Number 0x17
041e 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0xe.0x4 = 0x41e,0xfffb
041f 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0xe.0x5 = 0x41f,0xfffa
0420 e003 | | Load 0x0,0x3 ; Debug Table 0xe.0x6 = 0x420,0xfff9
0421 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0422 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0423 02c7 | | Declare_Variable Any
0424 00d8 | | Load_Top At_Offset_0
0425 1c00 | | Execute_Immediate Run_Utility,0x0
0426 e003 | | Load 0x0,0x3 ; Debug Table 0xe.0x7 = 0x426,0xfff8
0427 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0428 02c7 | | Declare_Variable Any
0429 e5fe | | Load 0x2,-0x2
042a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
042b 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
042c c409 | | Store 0x2,0x9
042d 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0xe.0x8 = 0x42d,0xfff7
042e 00d9 | | Load_Top At_Offset_1
042f e013 | | Load 0x0,0x13
0430 180e | | Execute Package,Field_Execute,Field_Number 0xe
0431 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0432 4828 |H( | Short_Literal 0x28 ; Debug Table 0xe.0x9 = 0x432,0xfff6
0433 e5fe | | Load 0x2,-0x2
0434 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0435 e017 | | Load 0x0,0x17
0436 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0437 BODY_0410:
0437 0007 | | Action Break_Optional ; Debug Table 0xe.0xa = 0x437,0x1
0438 e40a | | Load 0x2,0xa ; Debug Table 0xe.0xb = 0x438,0x401
0439 0007 | | Action Break_Optional
043a 0145 | E | Execute Heap_Access,Diana_Tree_Kind ; Debug Table 0xe.0xc = 0x43a,0x402
043b 0007 | | Action Break_Optional ; Debug Table 0xe.0xd = 0x43b,0x403
043c 0007 | | Action Break_Optional ; Debug Table 0xe.0xe = 0x43c,0x404
043d 0fa8 | | Execute_Immediate Equal,-0x58 ; Debug Table 0xe.0xf = 0x43d,0x1
043e 6844 |hD | Jump_Zero 0x483
043f e003 | | Load 0x0,0x3 ; Debug Table 0xe.0x10 = 0x43f,0x2
0440 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0441 00f1 | | Load_Encached Diana_Temp_Seq
0442 e003 | | Load 0x0,0x3
0443 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0444 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0445 e404 | | Load 0x2,0x4
0446 0120 | | Execute Any,Is_Value
0447 6803 |h | Jump_Zero 0x44b
0448 e014 | | Load 0x0,0x14
0449 1b0d | | Execute Package,Field_Read,Field_Number 0xd
044a 7801 |x | Jump 0x44c
044b e404 | | Load 0x2,0x4
044c 6177 |aw | Indirect_Literal Discrete,0x5c4,{0x00000000, 0x00004000}
044d e005 | | Load 0x0,0x5
044e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
044f 4803 |H | Short_Literal 0x3
0450 e015 | | Load 0x0,0x15
0451 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0452 e016 | | Load 0x0,0x16
0453 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0454 e409 | | Load 0x2,0x9
0455 e013 | | Load 0x0,0x13
0456 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0457 e003 | | Load 0x0,0x3
0458 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0459 4800 |H | Short_Literal 0x0
045a e409 | | Load 0x2,0x9
045b e003 | | Load 0x0,0x3
045c 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
045d 1815 | | Execute Package,Field_Execute,Field_Number 0x15
045e c404 | | Store 0x2,0x4
045f c405 | | Store 0x2,0x5
0460 c403 | | Store 0x2,0x3
0461 c402 | | Store 0x2,0x2
0462 e402 | | Load 0x2,0x2 ; Debug Table 0xe.0x11 = 0x462,0x3
0463 6813 |h | Jump_Zero 0x477
0464 0092 0bb6 | | Action Push_String_Extended,0xbb6 ; "can't destroy "
; Debug Table 0xe.0x12 = 0x464,0x4
0466 00d9 | | Load_Top At_Offset_1
0467 01cc | | Execute Vector,Catenate
0468 0092 0bb7 | | Action Push_String_Extended,0xbb7 ; " ("
046a 01cc | | Execute Vector,Catenate
046b e402 | | Load 0x2,0x2
046c e003 | | Load 0x0,0x3
046d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
046e 025e | ^ | Execute Discrete,Convert
046f 1c01 | | Execute_Immediate Run_Utility,0x1
0470 01cc | | Execute Vector,Catenate
0471 0092 0bb8 | | Action Push_String_Extended,0xbb8 ; ")"
0473 01cc | | Execute Vector,Catenate
0474 e00d | | Load 0x0,0xd
0475 180d | | Execute Package,Field_Execute,Field_Number 0xd
0476 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0477 0092 0bb9 | | Action Push_String_Extended,0xbb9 ; "deleted "
; Debug Table 0xe.0x13 = 0x477,0x5
0479 00d9 | | Load_Top At_Offset_1
047a 01cc | | Execute Vector,Catenate
047b e00d | | Load 0x0,0xd
047c 180e | | Execute Package,Field_Execute,Field_Number 0xe
047d e5fe | | Load 0x2,-0x2 ; Debug Table 0xe.0x14 = 0x47d,0x6
047e e5fd | | Load 0x2,-0x3
047f e5ff | | Load 0x2,-0x1
0480 e010 | | Load 0x0,0x10
0481 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0482 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0483 00da | | Load_Top At_Offset_2 ; Debug Table 0xe.0x15 = 0x483,0x7
0484 e013 | | Load 0x0,0x13
0485 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0486 a406 | | Store_Unchecked 0x2,0x6
0487 e003 | | Load 0x0,0x3 ; Debug Table 0xe.0x16 = 0x487,0x8
0488 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0489 e408 | | Load 0x2,0x8
048a 0120 | | Execute Any,Is_Value
048b 6804 |h | Jump_Zero 0x490
048c e003 | | Load 0x0,0x3
048d 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
048e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
048f 7801 |x | Jump 0x491
0490 e408 | | Load 0x2,0x8
0491 e406 | | Load 0x2,0x6
0492 e003 | | Load 0x0,0x3
0493 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0494 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0495 c408 | | Store 0x2,0x8
0496 c402 | | Store 0x2,0x2
0497 e003 | | Load 0x0,0x3 ; Debug Table 0xe.0x17 = 0x497,0x9
0498 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0499 00f1 | | Load_Encached Diana_Temp_Seq
049a e003 | | Load 0x0,0x3
049b 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
049c 1b17 | | Execute Package,Field_Read,Field_Number 0x17
049d e404 | | Load 0x2,0x4
049e 0120 | | Execute Any,Is_Value
049f 6803 |h | Jump_Zero 0x4a3
04a0 e014 | | Load 0x0,0x14
04a1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04a2 7801 |x | Jump 0x4a4
04a3 e404 | | Load 0x2,0x4
04a4 611f |a | Indirect_Literal Discrete,0x5c4,{0x00000000, 0x00004000}
04a5 e005 | | Load 0x0,0x5
04a6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04a7 4803 |H | Short_Literal 0x3
04a8 e015 | | Load 0x0,0x15
04a9 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04aa e016 | | Load 0x0,0x16
04ab 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04ac e409 | | Load 0x2,0x9
04ad e013 | | Load 0x0,0x13
04ae 1819 | | Execute Package,Field_Execute,Field_Number 0x19
04af e003 | | Load 0x0,0x3
04b0 1815 | | Execute Package,Field_Execute,Field_Number 0x15
04b1 4800 |H | Short_Literal 0x0
04b2 e409 | | Load 0x2,0x9
04b3 e003 | | Load 0x0,0x3
04b4 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
04b5 1815 | | Execute Package,Field_Execute,Field_Number 0x15
04b6 c404 | | Store 0x2,0x4
04b7 c405 | | Store 0x2,0x5
04b8 c403 | | Store 0x2,0x3
04b9 c402 | | Store 0x2,0x2
04ba e402 | | Load 0x2,0x2 ; Debug Table 0xe.0x18 = 0x4ba,0xa
04bb 7049 |pI | Jump_Nonzero 0x505
04bc e003 | | Load 0x0,0x3 ; Debug Table 0xe.0x19 = 0x4bc,0xb
04bd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04be 00f1 | | Load_Encached Diana_Temp_Seq
04bf e003 | | Load 0x0,0x3
04c0 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
04c1 1b17 | | Execute Package,Field_Read,Field_Number 0x17
04c2 00ec | | Load_Encached Diana_Tree_Cache
04c3 e404 | | Load 0x2,0x4
04c4 0120 | | Execute Any,Is_Value
04c5 6803 |h | Jump_Zero 0x4c9
04c6 e014 | | Load 0x0,0x14
04c7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04c8 7801 |x | Jump 0x4ca
04c9 e404 | | Load 0x2,0x4
04ca 60f9 |` | Indirect_Literal Discrete,0x5c4,{0x00000000, 0x00004000}
04cb e005 | | Load 0x0,0x5
04cc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04cd 4800 |H | Short_Literal 0x0
04ce e003 | | Load 0x0,0x3
04cf 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
04d0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04d1 e003 | | Load 0x0,0x3
04d2 1815 | | Execute Package,Field_Execute,Field_Number 0x15
04d3 4800 |H | Short_Literal 0x0
04d4 4801 |H | Short_Literal 0x1
04d5 e406 | | Load 0x2,0x6
04d6 e003 | | Load 0x0,0x3
04d7 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
04d8 1816 | | Execute Package,Field_Execute,Field_Number 0x16
04d9 c404 | | Store 0x2,0x4
04da c407 | | Store 0x2,0x7
04db c405 | | Store 0x2,0x5
04dc c403 | | Store 0x2,0x3
04dd c402 | | Store 0x2,0x2
04de e402 | | Load 0x2,0x2 ; Debug Table 0xe.0x1a = 0x4de,0xc
04df 6813 |h | Jump_Zero 0x4f3
04e0 0092 0bba | | Action Push_String_Extended,0xbba ; "can't delete stub of "
; Debug Table 0xe.0x1b = 0x4e0,0xd
04e2 00d9 | | Load_Top At_Offset_1
04e3 01cc | | Execute Vector,Catenate
04e4 0092 0bb7 | | Action Push_String_Extended,0xbb7 ; " ("
04e6 01cc | | Execute Vector,Catenate
04e7 e402 | | Load 0x2,0x2
04e8 e003 | | Load 0x0,0x3
04e9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04ea 025e | ^ | Execute Discrete,Convert
04eb 1c01 | | Execute_Immediate Run_Utility,0x1
04ec 01cc | | Execute Vector,Catenate
04ed 0092 0bb8 | | Action Push_String_Extended,0xbb8 ; ")"
04ef 01cc | | Execute Vector,Catenate
04f0 e00d | | Load 0x0,0xd
04f1 180d | | Execute Package,Field_Execute,Field_Number 0xd
04f2 4504 |E | Exit_Suprogram New_Top_Offset 0x4
04f3 0092 0bb9 | | Action Push_String_Extended,0xbb9 ; "deleted "
; Debug Table 0xe.0x1c = 0x4f3,0xe
04f5 00d9 | | Load_Top At_Offset_1
04f6 01cc | | Execute Vector,Catenate
04f7 e00d | | Load 0x0,0xd
04f8 180e | | Execute Package,Field_Execute,Field_Number 0xe
04f9 e5fe | | Load 0x2,-0x2 ; Debug Table 0xe.0x1d = 0x4f9,0xf
04fa e5fd | | Load 0x2,-0x3
04fb e5ff | | Load 0x2,-0x1
04fc e010 | | Load 0x0,0x10
04fd 181d | | Execute Package,Field_Execute,Field_Number 0x1d
04fe 00db | | Load_Top At_Offset_3 ; Debug Table 0xe.0x1e = 0x4fe,0x10
04ff e003 | | Load 0x0,0x3
0500 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0501 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0502 e018 | | Load 0x0,0x18
0503 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0504 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0505 0092 0bbb | | Action Push_String_Extended,0xbbb ; "can't destroy object of "
; Debug Table 0xe.0x1f = 0x505,0x11
0507 00d9 | | Load_Top At_Offset_1
0508 01cc | | Execute Vector,Catenate
0509 e00d | | Load 0x0,0xd
050a 180d | | Execute Package,Field_Execute,Field_Number 0xd
050b 4504 |E | Exit_Suprogram New_Top_Offset 0x4
050c 0000 0000 | | .BLANK 0000[0x4]
0510 ; --------------------------------------------------------------------------------------
0510 ; SUBPROGRAM
0510 ; --------------------------------------------------------------------------------------
0510 0535 | 5 | .CONST 0x0535 ; Address of begin
0511 0004 | | .CONST 0x0004 ; Address of exception handler
0512 000a | | .CONST 0x000a ; Number of locals
0513 INIT_0510:
0513 e003 | | Load 0x0,0x3 ; Debug Table 0xf = .DEBUG 0x0513,0x100c,0x0001,0x0000,0x0057,0x9905,0x0000,0x03ef
; Debug Table 0xf.0x0 = 0x513,0xffff
0514 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0515 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0xf.0x1 = 0x515,0xfffe
0516 00f1 | | Load_Encached Diana_Temp_Seq ; Debug Table 0xf.0x2 = 0x516,0xfffd
0517 e014 | | Load 0x0,0x14 ; Debug Table 0xf.0x3 = 0x517,0xfffc
0518 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0519 02c7 | | Declare_Variable Any
051a 00d8 | | Load_Top At_Offset_0
051b 1c00 | | Execute_Immediate Run_Utility,0x0
051c e003 | | Load 0x0,0x3 ; Debug Table 0xf.0x4 = 0x51c,0xfffb
051d 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
051e 1b17 | | Execute Package,Field_Read,Field_Number 0x17
051f e003 | | Load 0x0,0x3 ; Debug Table 0xf.0x5 = 0x51f,0xfffa
0520 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
0521 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0522 e003 | | Load 0x0,0x3 ; Debug Table 0xf.0x6 = 0x522,0xfff9
0523 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0524 02c7 | | Declare_Variable Any
0525 e5fd | | Load 0x2,-0x3
0526 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0527 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0528 c408 | | Store 0x2,0x8
0529 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0xf.0x7 = 0x529,0xfff8
052a 00d9 | | Load_Top At_Offset_1
052b e013 | | Load 0x0,0x13
052c 180e | | Execute Package,Field_Execute,Field_Number 0xe
052d 0031 | 1 | Store_Top Heap_Access,At_Offset_1
052e 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xf.0x8 = 0x52e,0xfff7
052f e013 | | Load 0x0,0x13
0530 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0531 e003 | | Load 0x0,0x3
0532 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
0533 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0534 03f1 | | Declare_Variable Discrete,With_Value
0535 BODY_0510:
0535 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xf.0x9 = 0x535,0x1
0536 0c03 | | Execute_Immediate Greater_Equal,0x3
0537 6868 |hh | Jump_Zero 0x5a0
0538 e5fc | | Load 0x2,-0x4 ; Debug Table 0xf.0xa = 0x538,0x2
0539 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
053a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
053b 6807 |h | Jump_Zero 0x543
053c e003 | | Load 0x0,0x3 ; Debug Table 0xf.0xb = 0x53c,0x3
053d 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
053e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
053f 00d9 | | Load_Top At_Offset_1
0540 0267 | g | Execute Discrete,Predecessor
0541 a407 | | Store_Unchecked 0x2,0x7
0542 780c |x | Jump 0x54f
0543 e5fc | | Load 0x2,-0x4 ; Debug Table 0xf.0xc = 0x543,0x4
0544 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0545 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0546 00d9 | | Load_Top At_Offset_1
0547 027c | | | Execute Discrete,Less
0548 6805 |h | Jump_Zero 0x54e
0549 e5fc | | Load 0x2,-0x4 ; Debug Table 0xf.0xd = 0x549,0x5
054a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
054b 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
054c a407 | | Store_Unchecked 0x2,0x7
054d 7801 |x | Jump 0x54f
054e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; Debug Table 0xf.0xe = 0x54e,0x6
054f e003 | | Load 0x0,0x3 ; Debug Table 0xf.0xf = 0x54f,0x7
0550 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0551 00f1 | | Load_Encached Diana_Temp_Seq
0552 e003 | | Load 0x0,0x3
0553 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0554 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0555 00ec | | Load_Encached Diana_Tree_Cache
0556 e405 | | Load 0x2,0x5
0557 0120 | | Execute Any,Is_Value
0558 6803 |h | Jump_Zero 0x55c
0559 e014 | | Load 0x0,0x14
055a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
055b 7801 |x | Jump 0x55d
055c e405 | | Load 0x2,0x5
055d 6066 |`f | Indirect_Literal Discrete,0x5c4,{0x00000000, 0x00004000}
055e e5fc | | Load 0x2,-0x4
055f 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0560 4803 |H | Short_Literal 0x3
0561 e015 | | Load 0x0,0x15
0562 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0563 e016 | | Load 0x0,0x16
0564 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0565 e408 | | Load 0x2,0x8
0566 e013 | | Load 0x0,0x13
0567 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0568 e003 | | Load 0x0,0x3
0569 1815 | | Execute Package,Field_Execute,Field_Number 0x15
056a e407 | | Load 0x2,0x7
056b 4801 |H | Short_Literal 0x1
056c e409 | | Load 0x2,0x9
056d e003 | | Load 0x0,0x3
056e 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
056f 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0570 c405 | | Store 0x2,0x5
0571 c403 | | Store 0x2,0x3
0572 c406 | | Store 0x2,0x6
0573 c404 | | Store 0x2,0x4
0574 c402 | | Store 0x2,0x2
0575 e402 | | Load 0x2,0x2 ; Debug Table 0xf.0x10 = 0x575,0x8
0576 6819 |h | Jump_Zero 0x590
0577 0092 0bbc | | Action Push_String_Extended,0xbbc ; "can't demote "
; Debug Table 0xf.0x11 = 0x577,0x9
0579 00db | | Load_Top At_Offset_3
057a e003 | | Load 0x0,0x3
057b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
057c 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
057d 01cc | | Execute Vector,Catenate
057e 0092 0bb7 | | Action Push_String_Extended,0xbb7 ; " ("
0580 01cc | | Execute Vector,Catenate
0581 e402 | | Load 0x2,0x2
0582 e003 | | Load 0x0,0x3
0583 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0584 025e | ^ | Execute Discrete,Convert
0585 1c01 | | Execute_Immediate Run_Utility,0x1
0586 01cc | | Execute Vector,Catenate
0587 0092 0bb8 | | Action Push_String_Extended,0xbb8 ; ")"
0589 01cc | | Execute Vector,Catenate
058a e00d | | Load 0x0,0xd
058b 180d | | Execute Package,Field_Execute,Field_Number 0xd
058c 4800 |H | Short_Literal 0x0 ; Debug Table 0xf.0x12 = 0x58c,0xa
058d e5fc | | Load 0x2,-0x4
058e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
058f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0590 0092 0bbd | | Action Push_String_Extended,0xbbd ; "demoted "
; Debug Table 0xf.0x13 = 0x590,0xb
0592 00db | | Load_Top At_Offset_3
0593 e003 | | Load 0x0,0x3
0594 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0595 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0596 01cc | | Execute Vector,Catenate
0597 e00d | | Load 0x0,0xd
0598 180e | | Execute Package,Field_Execute,Field_Number 0xe
0599 e5fd | | Load 0x2,-0x3 ; Debug Table 0xf.0x14 = 0x599,0xc
059a e5fe | | Load 0x2,-0x2
059b e5ff | | Load 0x2,-0x1
059c e010 | | Load 0x0,0x10
059d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
059e 00d1 | | Pop_Control Pop_Count_1
059f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
05a0 e5fc | | Load 0x2,-0x4 ; Debug Table 0xf.0x15 = 0x5a0,0xd
05a1 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
05a2 681f |h | Jump_Zero 0x5c2
05a3 e5fc | | Load 0x2,-0x4 ; Debug Table 0xf.0x16 = 0x5a3,0xe
05a4 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
05a5 e5fd | | Load 0x2,-0x3
05a6 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
05a7 e00f | | Load 0x0,0xf
05a8 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
05a9 4975 |Iu | Short_Literal 0x175
05aa 00eb | | Load_Encached Diana_Cache
05ab 0098 | | Execute Package,Field_Read_Dynamic
05ac 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
05ad 700a |p | Jump_Nonzero 0x5b8
05ae 00da | | Load_Top At_Offset_2 ; Debug Table 0xf.0x17 = 0x5ae,0xf
05af e003 | | Load 0x0,0x3
05b0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
05b1 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
05b2 0092 0bbe | | Action Push_String_Extended,0xbbe ; " is already source"
05b4 01cc | | Execute Vector,Catenate
05b5 e00d | | Load 0x0,0xd
05b6 180e | | Execute Package,Field_Execute,Field_Number 0xe
05b7 4503 |E | Exit_Suprogram New_Top_Offset 0x3
05b8 e5fc | | Load 0x2,-0x4 ; Debug Table 0xf.0x18 = 0x5b8,0x10
05b9 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
05ba e5fd | | Load 0x2,-0x3
05bb 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
05bc e00f | | Load 0x0,0xf
05bd 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
05be 00eb | | Load_Encached Diana_Cache
05bf 1874 | t | Execute Package,Field_Execute,Field_Number 0x74
05c0 e5fc | | Load 0x2,-0x4
05c1 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
05c2 4503 |E | Exit_Suprogram New_Top_Offset 0x3
05c3 0000 | | .XXX[0x1]
05c4 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
05c8 ; --------------------------------------------------------------------------------------
05c8 ; SUBPROGRAM
05c8 ; --------------------------------------------------------------------------------------
05c8 05f6 | | .CONST 0x05f6 ; Address of begin
05c9 0004 | | .CONST 0x0004 ; Address of exception handler
05ca 000e | | .CONST 0x000e ; Number of locals
05cb INIT_05c8:
05cb 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x10 = .DEBUG 0x05cb,0x1040,0x0001,0x0000,0x0057,0x9905,0x0000,0x0538
; Debug Table 0x10.0x0 = 0x5cb,0xffff
05cc 00f1 | | Load_Encached Diana_Temp_Seq ; Debug Table 0x10.0x1 = 0x5cc,0xfffe
05cd e014 | | Load 0x0,0x14 ; Debug Table 0x10.0x2 = 0x5cd,0xfffd
05ce 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05cf 02c7 | | Declare_Variable Any
05d0 00d8 | | Load_Top At_Offset_0
05d1 1c00 | | Execute_Immediate Run_Utility,0x0
05d2 e003 | | Load 0x0,0x3 ; Debug Table 0x10.0x3 = 0x5d2,0xfffc
05d3 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
05d4 1b17 | | Execute Package,Field_Read,Field_Number 0x17
05d5 e003 | | Load 0x0,0x3 ; Debug Table 0x10.0x4 = 0x5d5,0xfffb
05d6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05d7 e003 | | Load 0x0,0x3 ; Debug Table 0x10.0x5 = 0x5d7,0xfffa
05d8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05d9 02c7 | | Declare_Variable Any
05da 00d8 | | Load_Top At_Offset_0
05db 1c00 | | Execute_Immediate Run_Utility,0x0
05dc e003 | | Load 0x0,0x3 ; Debug Table 0x10.0x6 = 0x5dc,0xfff9
05dd 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
05de 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05df 02c7 | | Declare_Variable Any
05e0 00d8 | | Load_Top At_Offset_0
05e1 1c00 | | Execute_Immediate Run_Utility,0x0
05e2 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x10.0x7 = 0x5e2,0xfff8
05e3 00e2 | | Load_Encached Integer_Cache ; Debug Table 0x10.0x8 = 0x5e3,0xfff7
05e4 e003 | | Load 0x0,0x3 ; Debug Table 0x10.0x9 = 0x5e4,0xfff6
05e5 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
05e6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05e7 e5f9 | | Load 0x2,-0x7 ; Debug Table 0x10.0xa = 0x5e7,0xfff5
05e8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
05e9 e216 | | Load 0x1,0x16
05ea 016f | o | Execute Variant_Record,Equal
05eb 00e1 | | Load_Encached Boolean_Cache
05ec 03f1 | | Declare_Variable Discrete,With_Value
05ed 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x10.0xb = 0x5ed,0xfff4
05ee e5fd | | Load 0x2,-0x3
05ef 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
05f0 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
05f1 0031 | 1 | Store_Top Heap_Access,At_Offset_1
05f2 4828 |H( | Short_Literal 0x28 ; Debug Table 0x10.0xc = 0x5f2,0xfff3
05f3 00d9 | | Load_Top At_Offset_1
05f4 e017 | | Load 0x0,0x17
05f5 180f | | Execute Package,Field_Execute,Field_Number 0xf
05f6 BODY_05c8:
05f6 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x10.0xd = 0x5f6,0x1
05f7 e00f | | Load 0x0,0xf
05f8 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59
05f9 00da | | Load_Top At_Offset_2
05fa 021f | | Execute Heap_Access,Equal
05fb 7010 |p | Jump_Nonzero 0x60c
05fc 0092 0bbf | | Action Push_String_Extended,0xbbf ; "this kind of item cannot be demoted"
; Debug Table 0x10.0xe = 0x5fc,0x2
05fe e00d | | Load 0x0,0xd
05ff 180d | | Execute Package,Field_Execute,Field_Number 0xd
0600 4800 |H | Short_Literal 0x0 ; Debug Table 0x10.0xf = 0x600,0x3
0601 e5f9 | | Load 0x2,-0x7
0602 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0603 4800 |H | Short_Literal 0x0 ; Debug Table 0x10.0x10 = 0x603,0x4
0604 a5fc | | Store_Unchecked 0x2,-0x4
0605 e003 | | Load 0x0,0x3 ; Debug Table 0x10.0x11 = 0x605,0x5
0606 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0607 c5fb | | Store 0x2,-0x5
0608 0007 | | Action Break_Optional ; Debug Table 0x10.0x12 = 0x608,0x6
0609 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x10.0x13 = 0x609,0x401
060a a5fa | | Store_Unchecked 0x2,-0x6 ; Debug Table 0x10.0x14 = 0x60a,0x6
060b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; Debug Table 0x10.0x15 = 0x60b,0x7
060c 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x10.0x16 = 0x60c,0x8
060d e013 | | Load 0x0,0x13
060e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
060f c407 | | Store 0x2,0x7
0610 e407 | | Load 0x2,0x7 ; Debug Table 0x10.0x17 = 0x610,0x9
0611 821b | | Call 0x1,0x1b
0612 6817 |h | Jump_Zero 0x62a
0613 e407 | | Load 0x2,0x7 ; Debug Table 0x10.0x18 = 0x613,0xa
0614 e003 | | Load 0x0,0x3
0615 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0616 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0617 0092 0bc0 | | Action Push_String_Extended,0xbc0 ; " must be checked out to demote "
0619 01cc | | Execute Vector,Catenate
061a 00d9 | | Load_Top At_Offset_1
061b 01cc | | Execute Vector,Catenate
061c e00d | | Load 0x0,0xd
061d 180d | | Execute Package,Field_Execute,Field_Number 0xd
061e 4800 |H | Short_Literal 0x0 ; Debug Table 0x10.0x19 = 0x61e,0xb
061f e5f9 | | Load 0x2,-0x7
0620 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0621 4800 |H | Short_Literal 0x0 ; Debug Table 0x10.0x1a = 0x621,0xc
0622 a5fc | | Store_Unchecked 0x2,-0x4
0623 e003 | | Load 0x0,0x3 ; Debug Table 0x10.0x1b = 0x623,0xd
0624 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0625 c5fb | | Store 0x2,-0x5
0626 0007 | | Action Break_Optional ; Debug Table 0x10.0x1c = 0x626,0xe
0627 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x10.0x1d = 0x627,0x801
0628 a5fa | | Store_Unchecked 0x2,-0x6 ; Debug Table 0x10.0x1e = 0x628,0xe
0629 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; Debug Table 0x10.0x1f = 0x629,0xf
062a e5fe | | Load 0x2,-0x2 ; Debug Table 0x10.0x20 = 0x62a,0x10
062b 0f01 | | Execute_Immediate Equal,0x1
062c 6805 |h | Jump_Zero 0x632
062d e5ff | | Load 0x2,-0x1 ; Debug Table 0x10.0x21 = 0x62d,0x11
062e 0217 | | Execute Heap_Access,All_Reference
062f 3c1d |< | Execute Record,Field_Read,Field_Number 0x1d
0630 a40a | | Store_Unchecked 0x2,0xa
0631 7803 |x | Jump 0x635
0632 e5fd | | Load 0x2,-0x3 ; Debug Table 0x10.0x22 = 0x632,0x12
0633 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0634 a40a | | Store_Unchecked 0x2,0xa
0635 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x10.0x23 = 0x635,0x13
0636 e019 | | Load 0x0,0x19
0637 180d | | Execute Package,Field_Execute,Field_Number 0xd
0638 6865 |he | Jump_Zero 0x69e
0639 e003 | | Load 0x0,0x3 ; Debug Table 0x10.0x24 = 0x639,0x14
063a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
063b e407 | | Load 0x2,0x7
063c 0120 | | Execute Any,Is_Value
063d 6803 |h | Jump_Zero 0x641
063e e003 | | Load 0x0,0x3
063f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0640 7801 |x | Jump 0x642
0641 e407 | | Load 0x2,0x7
0642 6781 |g | Indirect_Literal Discrete,0x5c4,{0x00000000, 0x00004000}
0643 e005 | | Load 0x0,0x5
0644 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0645 4800 |H | Short_Literal 0x0
0646 e003 | | Load 0x0,0x3
0647 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0648 e40d | | Load 0x2,0xd
0649 e003 | | Load 0x0,0x3
064a 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
064b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
064c c407 | | Store 0x2,0x7
064d c406 | | Store 0x2,0x6
064e e406 | | Load 0x2,0x6 ; Debug Table 0x10.0x25 = 0x64e,0x15
064f 704e |pN | Jump_Nonzero 0x69e
0650 e407 | | Load 0x2,0x7 ; Debug Table 0x10.0x26 = 0x650,0x16
0651 e013 | | Load 0x0,0x13
0652 180e | | Execute Package,Field_Execute,Field_Number 0xe
0653 a409 | | Store_Unchecked 0x2,0x9
0654 e409 | | Load 0x2,0x9 ; Debug Table 0x10.0x27 = 0x654,0x17
0655 e003 | | Load 0x0,0x3
0656 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
0657 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0658 6845 |hE | Jump_Zero 0x69e
0659 e003 | | Load 0x0,0x3 ; Debug Table 0x10.0x28 = 0x659,0x18
065a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
065b 00f1 | | Load_Encached Diana_Temp_Seq
065c e003 | | Load 0x0,0x3
065d 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
065e 1b17 | | Execute Package,Field_Read,Field_Number 0x17
065f 00ec | | Load_Encached Diana_Tree_Cache
0660 e404 | | Load 0x2,0x4
0661 0120 | | Execute Any,Is_Value
0662 6803 |h | Jump_Zero 0x666
0663 e014 | | Load 0x0,0x14
0664 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0665 7801 |x | Jump 0x667
0666 e404 | | Load 0x2,0x4
0667 675c |g\ | Indirect_Literal Discrete,0x5c4,{0x00000000, 0x00004000}
0668 e5f9 | | Load 0x2,-0x7
0669 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
066a 4800 |H | Short_Literal 0x0
066b e003 | | Load 0x0,0x3
066c 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
066d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
066e e003 | | Load 0x0,0x3
066f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0670 4802 |H | Short_Literal 0x2
0671 4801 |H | Short_Literal 0x1
0672 e409 | | Load 0x2,0x9
0673 e003 | | Load 0x0,0x3
0674 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
0675 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0676 c404 | | Store 0x2,0x4
0677 c402 | | Store 0x2,0x2
0678 c405 | | Store 0x2,0x5
0679 c403 | | Store 0x2,0x3
067a c406 | | Store 0x2,0x6
067b e406 | | Load 0x2,0x6 ; Debug Table 0x10.0x29 = 0x67b,0x19
067c 6821 |h! | Jump_Zero 0x69e
067d 0092 0bbc | | Action Push_String_Extended,0xbbc ; "can't demote "
; Debug Table 0x10.0x2a = 0x67d,0x1a
067f e407 | | Load 0x2,0x7
0680 e003 | | Load 0x0,0x3
0681 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0682 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0683 01cc | | Execute Vector,Catenate
0684 0092 0bb7 | | Action Push_String_Extended,0xbb7 ; " ("
0686 01cc | | Execute Vector,Catenate
0687 e406 | | Load 0x2,0x6
0688 e003 | | Load 0x0,0x3
0689 1b0d | | Execute Package,Field_Read,Field_Number 0xd
068a 025e | ^ | Execute Discrete,Convert
068b 1c01 | | Execute_Immediate Run_Utility,0x1
068c 01cc | | Execute Vector,Catenate
068d 0092 0bb8 | | Action Push_String_Extended,0xbb8 ; ")"
068f 01cc | | Execute Vector,Catenate
0690 e00d | | Load 0x0,0xd
0691 180d | | Execute Package,Field_Execute,Field_Number 0xd
0692 4800 |H | Short_Literal 0x0 ; Debug Table 0x10.0x2b = 0x692,0x1b
0693 e5f9 | | Load 0x2,-0x7
0694 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0695 e003 | | Load 0x0,0x3 ; Debug Table 0x10.0x2c = 0x695,0x1c
0696 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0697 c5fb | | Store 0x2,-0x5
0698 0007 | | Action Break_Optional ; Debug Table 0x10.0x2d = 0x698,0x1d
0699 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x10.0x2e = 0x699,0xc01
069a a5fa | | Store_Unchecked 0x2,-0x6 ; Debug Table 0x10.0x2f = 0x69a,0x1d
069b 4800 |H | Short_Literal 0x0 ; Debug Table 0x10.0x30 = 0x69b,0x1e
069c a5fc | | Store_Unchecked 0x2,-0x4
069d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; Debug Table 0x10.0x31 = 0x69d,0x1f
069e e003 | | Load 0x0,0x3 ; Debug Table 0x10.0x32 = 0x69e,0x20
069f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06a0 e408 | | Load 0x2,0x8
06a1 0120 | | Execute Any,Is_Value
06a2 6804 |h | Jump_Zero 0x6a7
06a3 e003 | | Load 0x0,0x3
06a4 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
06a5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
06a6 7801 |x | Jump 0x6a8
06a7 e408 | | Load 0x2,0x8
06a8 00db | | Load_Top At_Offset_3
06a9 e003 | | Load 0x0,0x3
06aa 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
06ab 181c | | Execute Package,Field_Execute,Field_Number 0x1c
06ac c408 | | Store 0x2,0x8
06ad c406 | | Store 0x2,0x6
06ae 00da | | Load_Top At_Offset_2 ; Debug Table 0x10.0x33 = 0x6ae,0x21
06af 6803 |h | Jump_Zero 0x6b3
06b0 4800 |H | Short_Literal 0x0 ; Debug Table 0x10.0x34 = 0x6b0,0x22
06b1 a40b | | Store_Unchecked 0x2,0xb
06b2 7802 |x | Jump 0x6b5
06b3 4802 |H | Short_Literal 0x2 ; Debug Table 0x10.0x35 = 0x6b3,0x23
06b4 a40b | | Store_Unchecked 0x2,0xb
06b5 e003 | | Load 0x0,0x3 ; Debug Table 0x10.0x36 = 0x6b5,0x24
06b6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06b7 e5f9 | | Load 0x2,-0x7
06b8 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
06b9 00db | | Load_Top At_Offset_3
06ba 821d | | Call 0x1,0x1d
06bb c406 | | Store 0x2,0x6
06bc e406 | | Load 0x2,0x6 ; Debug Table 0x10.0x37 = 0x6bc,0x25
06bd 681e |h | Jump_Zero 0x6dc
06be 0092 0bc1 | | Action Push_String_Extended,0xbc1 ; "can't demote parent of "
; Debug Table 0x10.0x38 = 0x6be,0x26
06c0 00d9 | | Load_Top At_Offset_1
06c1 01cc | | Execute Vector,Catenate
06c2 0092 0bc2 | | Action Push_String_Extended,0xbc2 ; " from coded ("
06c4 01cc | | Execute Vector,Catenate
06c5 e406 | | Load 0x2,0x6
06c6 e003 | | Load 0x0,0x3
06c7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06c8 025e | ^ | Execute Discrete,Convert
06c9 1c01 | | Execute_Immediate Run_Utility,0x1
06ca 01cc | | Execute Vector,Catenate
06cb 0092 0bb8 | | Action Push_String_Extended,0xbb8 ; ")"
06cd 01cc | | Execute Vector,Catenate
06ce e00d | | Load 0x0,0xd
06cf 180d | | Execute Package,Field_Execute,Field_Number 0xd
06d0 4800 |H | Short_Literal 0x0 ; Debug Table 0x10.0x39 = 0x6d0,0x27
06d1 e5f9 | | Load 0x2,-0x7
06d2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
06d3 e003 | | Load 0x0,0x3 ; Debug Table 0x10.0x3a = 0x6d3,0x28
06d4 1810 | | Execute Package,Field_Execute,Field_Number 0x10
06d5 c5fb | | Store 0x2,-0x5
06d6 0007 | | Action Break_Optional ; Debug Table 0x10.0x3b = 0x6d6,0x29
06d7 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x10.0x3c = 0x6d7,0x1001
06d8 a5fa | | Store_Unchecked 0x2,-0x6 ; Debug Table 0x10.0x3d = 0x6d8,0x29
06d9 4800 |H | Short_Literal 0x0 ; Debug Table 0x10.0x3e = 0x6d9,0x2a
06da a5fc | | Store_Unchecked 0x2,-0x4
06db 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; Debug Table 0x10.0x3f = 0x6db,0x2b
06dc e003 | | Load 0x0,0x3 ; Debug Table 0x10.0x40 = 0x6dc,0x2c
06dd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06de 00f1 | | Load_Encached Diana_Temp_Seq
06df e003 | | Load 0x0,0x3
06e0 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
06e1 1b17 | | Execute Package,Field_Read,Field_Number 0x17
06e2 00ec | | Load_Encached Diana_Tree_Cache
06e3 e404 | | Load 0x2,0x4
06e4 0120 | | Execute Any,Is_Value
06e5 6803 |h | Jump_Zero 0x6e9
06e6 e014 | | Load 0x0,0x14
06e7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06e8 7801 |x | Jump 0x6ea
06e9 e404 | | Load 0x2,0x4
06ea 66d9 |f | Indirect_Literal Discrete,0x5c4,{0x00000000, 0x00004000}
06eb e5f9 | | Load 0x2,-0x7
06ec 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
06ed 4800 |H | Short_Literal 0x0
06ee e003 | | Load 0x0,0x3
06ef 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
06f0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
06f1 e003 | | Load 0x0,0x3
06f2 1815 | | Execute Package,Field_Execute,Field_Number 0x15
06f3 e40b | | Load 0x2,0xb
06f4 e40a | | Load 0x2,0xa
06f5 00e3 | | Load_Encached Natural_Cache
06f6 025b | [ | Execute Discrete,Check_In_Type
06f7 e40d | | Load 0x2,0xd
06f8 e003 | | Load 0x0,0x3
06f9 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
06fa 1816 | | Execute Package,Field_Execute,Field_Number 0x16
06fb c404 | | Store 0x2,0x4
06fc c402 | | Store 0x2,0x2
06fd c405 | | Store 0x2,0x5
06fe c403 | | Store 0x2,0x3
06ff c406 | | Store 0x2,0x6
0700 e406 | | Load 0x2,0x6 ; Debug Table 0x10.0x41 = 0x700,0x2d
0701 681e |h | Jump_Zero 0x720
0702 0092 0bbc | | Action Push_String_Extended,0xbbc ; "can't demote "
; Debug Table 0x10.0x42 = 0x702,0x2e
0704 00d9 | | Load_Top At_Offset_1
0705 01cc | | Execute Vector,Catenate
0706 0092 0bb7 | | Action Push_String_Extended,0xbb7 ; " ("
0708 01cc | | Execute Vector,Catenate
0709 e406 | | Load 0x2,0x6
070a e003 | | Load 0x0,0x3
070b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
070c 025e | ^ | Execute Discrete,Convert
070d 1c01 | | Execute_Immediate Run_Utility,0x1
070e 01cc | | Execute Vector,Catenate
070f 0092 0bb8 | | Action Push_String_Extended,0xbb8 ; ")"
0711 01cc | | Execute Vector,Catenate
0712 e00d | | Load 0x0,0xd
0713 180d | | Execute Package,Field_Execute,Field_Number 0xd
0714 4800 |H | Short_Literal 0x0 ; Debug Table 0x10.0x43 = 0x714,0x2f
0715 e5f9 | | Load 0x2,-0x7
0716 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0717 e003 | | Load 0x0,0x3 ; Debug Table 0x10.0x44 = 0x717,0x30
0718 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0719 c5fb | | Store 0x2,-0x5
071a 0007 | | Action Break_Optional ; Debug Table 0x10.0x45 = 0x71a,0x31
071b 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x10.0x46 = 0x71b,0x1401
071c a5fa | | Store_Unchecked 0x2,-0x6 ; Debug Table 0x10.0x47 = 0x71c,0x31
071d 4800 |H | Short_Literal 0x0 ; Debug Table 0x10.0x48 = 0x71d,0x32
071e a5fc | | Store_Unchecked 0x2,-0x4
071f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0720 00da | | Load_Top At_Offset_2 ; Debug Table 0x10.0x49 = 0x720,0x33
0721 6815 |h | Jump_Zero 0x737
0722 0092 0bb9 | | Action Push_String_Extended,0xbb9 ; "deleted "
; Debug Table 0x10.0x4a = 0x722,0x34
0724 00d9 | | Load_Top At_Offset_1
0725 01cc | | Execute Vector,Catenate
0726 e00d | | Load 0x0,0xd
0727 180e | | Execute Package,Field_Execute,Field_Number 0xe
0728 e003 | | Load 0x0,0x3 ; Debug Table 0x10.0x4b = 0x728,0x35
0729 1810 | | Execute Package,Field_Execute,Field_Number 0x10
072a c5fb | | Store 0x2,-0x5
072b 0007 | | Action Break_Optional ; Debug Table 0x10.0x4c = 0x72b,0x36
072c 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x10.0x4d = 0x72c,0x1801
072d a5fa | | Store_Unchecked 0x2,-0x6 ; Debug Table 0x10.0x4e = 0x72d,0x36
072e e408 | | Load 0x2,0x8 ; Debug Table 0x10.0x4f = 0x72e,0x37
072f e003 | | Load 0x0,0x3
0730 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0731 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0732 e018 | | Load 0x0,0x18
0733 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0734 4801 |H | Short_Literal 0x1 ; Debug Table 0x10.0x50 = 0x734,0x38
0735 a5fc | | Store_Unchecked 0x2,-0x4
0736 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0737 0092 0bbd | | Action Push_String_Extended,0xbbd ; "demoted "
; Debug Table 0x10.0x51 = 0x737,0x39
0739 00d9 | | Load_Top At_Offset_1
073a 01cc | | Execute Vector,Catenate
073b e00d | | Load 0x0,0xd
073c 180e | | Execute Package,Field_Execute,Field_Number 0xe
073d e402 | | Load 0x2,0x2 ; Debug Table 0x10.0x52 = 0x73d,0x3a
073e a5fa | | Store_Unchecked 0x2,-0x6
073f e003 | | Load 0x0,0x3 ; Debug Table 0x10.0x53 = 0x73f,0x3b
0740 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0741 e407 | | Load 0x2,0x7
0742 0120 | | Execute Any,Is_Value
0743 6803 |h | Jump_Zero 0x747
0744 e003 | | Load 0x0,0x3
0745 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0746 7801 |x | Jump 0x748
0747 e407 | | Load 0x2,0x7
0748 667b |f{ | Indirect_Literal Discrete,0x5c4,{0x00000000, 0x00004000}
0749 e5f9 | | Load 0x2,-0x7
074a 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
074b 4800 |H | Short_Literal 0x0
074c e003 | | Load 0x0,0x3
074d 181e | | Execute Package,Field_Execute,Field_Number 0x1e
074e e402 | | Load 0x2,0x2
074f e003 | | Load 0x0,0x3
0750 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
0751 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0752 c407 | | Store 0x2,0x7
0753 c406 | | Store 0x2,0x6
0754 e406 | | Load 0x2,0x6 ; Debug Table 0x10.0x54 = 0x754,0x3c
0755 7003 |p | Jump_Nonzero 0x759
0756 e407 | | Load 0x2,0x7 ; Debug Table 0x10.0x55 = 0x756,0x3d
0757 c5fb | | Store 0x2,-0x5
0758 7803 |x | Jump 0x75c
0759 e003 | | Load 0x0,0x3 ; Debug Table 0x10.0x56 = 0x759,0x3e
075a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
075b c5fb | | Store 0x2,-0x5
075c 4801 |H | Short_Literal 0x1 ; Debug Table 0x10.0x57 = 0x75c,0x3f
075d a5fc | | Store_Unchecked 0x2,-0x4
075e e408 | | Load 0x2,0x8 ; Debug Table 0x10.0x58 = 0x75e,0x40
075f e003 | | Load 0x0,0x3
0760 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0761 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0762 e018 | | Load 0x0,0x18
0763 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0764 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0765 0000 0000 | | .XXX[0x3]
0767 0000 | |
0768 ; --------------------------------------------------------------------------------------
0768 ; SUBPROGRAM
0768 ; --------------------------------------------------------------------------------------
0768 077a | z | .CONST 0x077a ; Address of begin
0769 0004 | | .CONST 0x0004 ; Address of exception handler
076a 0006 | | .CONST 0x0006 ; Number of locals
076b INIT_0768:
076b e002 | | Load 0x0,0x2 ; Debug Table 0x11 = .DEBUG 0x076b,0x10f4,0x0001,0x0000,0x0057,0x9905,0x0000,0x07b0
; Debug Table 0x11.0x0 = 0x76b,0xffff
076c 0322 | " | Declare_Variable Record
076d 00d8 | | Load_Top At_Offset_0
076e 1c00 | | Execute_Immediate Run_Utility,0x0
076f e5fd | | Load 0x2,-0x3 ; Debug Table 0x11.0x1 = 0x76f,0xfffe
0770 e001 | | Load 0x0,0x1
0771 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0772 03f1 | | Declare_Variable Discrete,With_Value
0773 e003 | | Load 0x0,0x3 ; Debug Table 0x11.0x2 = 0x773,0xfffd
0774 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0775 02c7 | | Declare_Variable Any
0776 00d8 | | Load_Top At_Offset_0
0777 1c00 | | Execute_Immediate Run_Utility,0x0
0778 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x11.0x3 = 0x778,0xfffc
0779 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x11.0x4 = 0x779,0xfffb
077a BODY_0768:
077a 7867 |xg | Jump 0x7e2
077b e402 | | Load 0x2,0x2 ; Debug Table 0x11.0x5 = 0x77b,0x2
077c e403 | | Load 0x2,0x3
077d e5ff | | Load 0x2,-0x1
077e e008 | | Load 0x0,0x8
077f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0780 c403 | | Store 0x2,0x3
0781 00d1 | | Pop_Control Pop_Count_1
0782 e402 | | Load 0x2,0x2 ; Debug Table 0x11.0x6 = 0x782,0x3
0783 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0784 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0785 681d |h | Jump_Zero 0x7a3
0786 e402 | | Load 0x2,0x2 ; Debug Table 0x11.0x7 = 0x786,0x4
0787 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0788 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0789 e013 | | Load 0x0,0x13
078a 180d | | Execute Package,Field_Execute,Field_Number 0xd
078b 7006 |p | Jump_Nonzero 0x792
078c e402 | | Load 0x2,0x2 ; Debug Table 0x11.0x8 = 0x78c,0x5
078d e403 | | Load 0x2,0x3
078e e5ff | | Load 0x2,-0x1
078f e010 | | Load 0x0,0x10
0790 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0791 784c |xL | Jump 0x7de
0792 e5fc | | Load 0x2,-0x4 ; Debug Table 0x11.0x9 = 0x792,0x6
0793 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0794 e216 | | Load 0x1,0x16
0795 016f | o | Execute Variant_Record,Equal
0796 6805 |h | Jump_Zero 0x79c
0797 00db | | Load_Top At_Offset_3 ; Debug Table 0x11.0xa = 0x797,0x7
0798 e402 | | Load 0x2,0x2
0799 e5ff | | Load 0x2,-0x1
079a 821e | | Call 0x1,0x1e
079b 7842 |xB | Jump 0x7de
079c e5fc | | Load 0x2,-0x4 ; Debug Table 0x11.0xb = 0x79c,0x8
079d e402 | | Load 0x2,0x2
079e e403 | | Load 0x2,0x3
079f e5ff | | Load 0x2,-0x1
07a0 821f | | Call 0x1,0x1f
07a1 00d2 | | Pop_Control Pop_Count_2
07a2 783b |x; | Jump 0x7de
07a3 e402 | | Load 0x2,0x2 ; Debug Table 0x11.0xc = 0x7a3,0x9
07a4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
07a5 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
07a6 801a | | Call 0x0,0x1a
07a7 6836 |h6 | Jump_Zero 0x7de
07a8 e402 | | Load 0x2,0x2
07a9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
07aa 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
07ab e003 | | Load 0x0,0x3
07ac 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
07ad 1814 | | Execute Package,Field_Execute,Field_Number 0x14
07ae 682f |h/ | Jump_Zero 0x7de
07af e5fc | | Load 0x2,-0x4 ; Debug Table 0x11.0xd = 0x7af,0xa
07b0 00ec | | Load_Encached Diana_Tree_Cache
07b1 e404 | | Load 0x2,0x4
07b2 0120 | | Execute Any,Is_Value
07b3 6803 |h | Jump_Zero 0x7b7
07b4 e003 | | Load 0x0,0x3
07b5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
07b6 7801 |x | Jump 0x7b8
07b7 e404 | | Load 0x2,0x4
07b8 00e1 | | Load_Encached Boolean_Cache
07b9 e402 | | Load 0x2,0x2
07ba e403 | | Load 0x2,0x3
07bb e5ff | | Load 0x2,-0x1
07bc 8220 | | Call 0x1,0x20
07bd 00d1 | | Pop_Control Pop_Count_1
07be c406 | | Store 0x2,0x6
07bf c404 | | Store 0x2,0x4
07c0 0033 | 3 | Store_Top Heap_Access,At_Offset_3
07c1 00d1 | | Pop_Control Pop_Count_1
07c2 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x11.0xe = 0x7c2,0xb
07c3 681a |h | Jump_Zero 0x7de
07c4 e5fc | | Load 0x2,-0x4 ; Debug Table 0x11.0xf = 0x7c4,0xc
07c5 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
07c6 e216 | | Load 0x1,0x16
07c7 016f | o | Execute Variant_Record,Equal
07c8 680d |h | Jump_Zero 0x7d6
07c9 e402 | | Load 0x2,0x2 ; Debug Table 0x11.0x10 = 0x7c9,0xd
07ca e403 | | Load 0x2,0x3
07cb e5ff | | Load 0x2,-0x1
07cc e010 | | Load 0x0,0x10
07cd 181d | | Execute Package,Field_Execute,Field_Number 0x1d
07ce e402 | | Load 0x2,0x2 ; Debug Table 0x11.0x11 = 0x7ce,0xe
07cf 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
07d0 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
07d1 e402 | | Load 0x2,0x2
07d2 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
07d3 e00f | | Load 0x0,0xf
07d4 1858 | X | Execute Package,Field_Execute,Field_Number 0x58
07d5 7808 |x | Jump 0x7de
07d6 e402 | | Load 0x2,0x2 ; Debug Table 0x11.0x12 = 0x7d6,0xf
07d7 00da | | Load_Top At_Offset_2
07d8 e404 | | Load 0x2,0x4
07d9 e403 | | Load 0x2,0x3
07da e5ff | | Load 0x2,-0x1
07db e010 | | Load 0x0,0x10
07dc 181b | | Execute Package,Field_Execute,Field_Number 0x1b
07dd 00d1 | | Pop_Control Pop_Count_1
07de 00db | | Load_Top At_Offset_3 ; Debug Table 0x11.0x13 = 0x7de,0x10
07df 0aff | | Execute_Immediate Plus,-0x1
07e0 0248 | H | Execute Discrete,Check_In_Integer
07e1 a403 | | Store_Unchecked 0x2,0x3
07e2 00db | | Load_Top At_Offset_3 ; Debug Table 0x11.0x14 = 0x7e2,0x1
07e3 e5fe | | Load 0x2,-0x2
07e4 027b | { | Execute Discrete,Greater_Equal
07e5 7795 |w | Jump_Nonzero 0x77b
07e6 4504 |E | Exit_Suprogram New_Top_Offset 0x4
07e7 0000 | | .XXX[0x1]
07e8 ; --------------------------------------------------------------------------------------
07e8 ; SUBPROGRAM
07e8 ; --------------------------------------------------------------------------------------
07e8 0810 | | .CONST 0x0810 ; Address of begin
07e9 0004 | | .CONST 0x0004 ; Address of exception handler
07ea 000f | | .CONST 0x000f ; Number of locals
07eb INIT_07e8:
07eb e002 | | Load 0x0,0x2 ; Debug Table 0x12 = .DEBUG 0x07eb,0x1120,0x0001,0x0000,0x0057,0x9905,0x0000,0x0888
; Debug Table 0x12.0x0 = 0x7eb,0xffff
07ec 0322 | " | Declare_Variable Record
07ed 00d8 | | Load_Top At_Offset_0
07ee 1c00 | | Execute_Immediate Run_Utility,0x0
07ef 00f1 | | Load_Encached Diana_Temp_Seq ; Debug Table 0x12.0x1 = 0x7ef,0xfffe
07f0 e014 | | Load 0x0,0x14 ; Debug Table 0x12.0x2 = 0x7f0,0xfffd
07f1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07f2 02c7 | | Declare_Variable Any
07f3 00d8 | | Load_Top At_Offset_0
07f4 1c00 | | Execute_Immediate Run_Utility,0x0
07f5 e003 | | Load 0x0,0x3 ; Debug Table 0x12.0x3 = 0x7f5,0xfffc
07f6 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
07f7 1b17 | | Execute Package,Field_Read,Field_Number 0x17
07f8 e003 | | Load 0x0,0x3 ; Debug Table 0x12.0x4 = 0x7f8,0xfffb
07f9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07fa 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x12.0x5 = 0x7fa,0xfffa
07fb 00f1 | | Load_Encached Diana_Temp_Seq ; Debug Table 0x12.0x6 = 0x7fb,0xfff9
07fc 00f1 | | Load_Encached Diana_Temp_Seq ; Debug Table 0x12.0x7 = 0x7fc,0xfff8
07fd 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x12.0x8 = 0x7fd,0xfff7
07fe 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x12.0x9 = 0x7fe,0xfff6
07ff e003 | | Load 0x0,0x3 ; Debug Table 0x12.0xa = 0x7ff,0xfff5
0800 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0801 02c7 | | Declare_Variable Any
0802 00d8 | | Load_Top At_Offset_0
0803 1c00 | | Execute_Immediate Run_Utility,0x0
0804 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x12.0xb = 0x804,0xfff4
0805 e5fd | | Load 0x2,-0x3 ; Debug Table 0x12.0xc = 0x805,0xfff3
0806 e001 | | Load 0x0,0x1
0807 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0808 03f1 | | Declare_Variable Discrete,With_Value
0809 e5fe | | Load 0x2,-0x2 ; Debug Table 0x12.0xd = 0x809,0xfff2
080a e5fd | | Load 0x2,-0x3
080b e211 | | Load 0x1,0x11
080c 035b | [ | Declare_Type Array,Constrained
080d 0337 | 7 | Declare_Variable Array
080e 00d8 | | Load_Top At_Offset_0
080f 1c00 | | Execute_Immediate Run_Utility,0x0
0810 BODY_07e8:
0810 e5fd | | Load 0x2,-0x3 ; Debug Table 0x12.0xe = 0x810,0x1
0811 e5fe | | Load 0x2,-0x2
0812 0263 | c | Execute Discrete,Above_Bound
0813 701f |p | Jump_Nonzero 0x833
0814 e01b | | Load 0x0,0x1b ; Debug Table 0x12.0xf = 0x814,0x2
0815 00d9 | | Load_Top At_Offset_1
0816 e40f | | Load 0x2,0xf
0817 01d5 | | Execute Vector,Field_Reference
0818 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0819 3ffa |? | Loop_Increasing 0x814
081a 7818 |x | Jump 0x833
081b e402 | | Load 0x2,0x2 ; Debug Table 0x12.0x10 = 0x81b,0x4
081c 00da | | Load_Top At_Offset_2
081d e5ff | | Load 0x2,-0x1
081e e008 | | Load 0x0,0x8
081f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0820 005b | [ | Store_Top Discrete,At_Offset_3
0821 00d1 | | Pop_Control Pop_Count_1
0822 e402 | | Load 0x2,0x2 ; Debug Table 0x12.0x11 = 0x822,0x5
0823 00da | | Load_Top At_Offset_2
0824 00da | | Load_Top At_Offset_2
0825 01d6 | | Execute Vector,Field_Write
0826 e408 | | Load 0x2,0x8 ; Debug Table 0x12.0x12 = 0x826,0x6
0827 00da | | Load_Top At_Offset_2
0828 00da | | Load_Top At_Offset_2
0829 01d5 | | Execute Vector,Field_Reference
082a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
082b 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
082c 00eb | | Load_Encached Diana_Cache
082d 1874 | t | Execute Package,Field_Execute,Field_Number 0x74
082e a408 | | Store_Unchecked 0x2,0x8
082f 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x12.0x13 = 0x82f,0x7
0830 0aff | | Execute_Immediate Plus,-0x1
0831 0248 | H | Execute Discrete,Check_In_Integer
0832 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0833 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x12.0x14 = 0x833,0x3
0834 e5fe | | Load 0x2,-0x2
0835 027b | { | Execute Discrete,Greater_Equal
0836 77e4 |w | Jump_Nonzero 0x81b
0837 e408 | | Load 0x2,0x8 ; Debug Table 0x12.0x15 = 0x837,0x8
0838 821c | | Call 0x1,0x1c
0839 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
083a 00da | | Load_Top At_Offset_2 ; Debug Table 0x12.0x16 = 0x83a,0x9
083b 6806 |h | Jump_Zero 0x842
083c e408 | | Load 0x2,0x8 ; Debug Table 0x12.0x17 = 0x83c,0xa
083d 4975 |Iu | Short_Literal 0x175
083e 00eb | | Load_Encached Diana_Cache
083f 0098 | | Execute Package,Field_Read_Dynamic
0840 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
0841 a408 | | Store_Unchecked 0x2,0x8
0842 0007 | | Action Break_Optional ; Debug Table 0x12.0x18 = 0x842,0xb
0843 e408 | | Load 0x2,0x8 ; Debug Table 0x12.0x19 = 0x843,0x401
0844 0217 | | Execute Heap_Access,All_Reference
0845 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0846 a407 | | Store_Unchecked 0x2,0x7 ; Debug Table 0x12.0x1a = 0x846,0xb
0847 e407 | | Load 0x2,0x7 ; Debug Table 0x12.0x1b = 0x847,0xc
0848 e013 | | Load 0x0,0x13
0849 1811 | | Execute Package,Field_Execute,Field_Number 0x11
084a c40c | | Store 0x2,0xc
084b 00db | | Load_Top At_Offset_3 ; Debug Table 0x12.0x1c = 0x84b,0xd
084c 821b | | Call 0x1,0x1b
084d 680d |h | Jump_Zero 0x85b
084e 00db | | Load_Top At_Offset_3 ; Debug Table 0x12.0x1d = 0x84e,0xe
084f e003 | | Load 0x0,0x3
0850 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0851 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0852 0092 0bc3 | | Action Push_String_Extended,0xbc3 ; " must be checked out"
0854 01cc | | Execute Vector,Catenate
0855 e00d | | Load 0x0,0xd
0856 180d | | Execute Package,Field_Execute,Field_Number 0xd
0857 4800 |H | Short_Literal 0x0 ; Debug Table 0x12.0x1e = 0x857,0xf
0858 e5fc | | Load 0x2,-0x4
0859 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
085a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; Debug Table 0x12.0x1f = 0x85a,0x10
085b e003 | | Load 0x0,0x3 ; Debug Table 0x12.0x20 = 0x85b,0x11
085c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
085d e5fc | | Load 0x2,-0x4
085e 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
085f e407 | | Load 0x2,0x7
0860 821d | | Call 0x1,0x1d
0861 c406 | | Store 0x2,0x6
0862 e406 | | Load 0x2,0x6 ; Debug Table 0x12.0x21 = 0x862,0x12
0863 6819 |h | Jump_Zero 0x87d
0864 0092 0bc1 | | Action Push_String_Extended,0xbc1 ; "can't demote parent of "
; Debug Table 0x12.0x22 = 0x864,0x13
0866 4828 |H( | Short_Literal 0x28
0867 e407 | | Load 0x2,0x7
0868 e017 | | Load 0x0,0x17
0869 180f | | Execute Package,Field_Execute,Field_Number 0xf
086a 01cc | | Execute Vector,Catenate
086b 0092 0bc2 | | Action Push_String_Extended,0xbc2 ; " from coded ("
086d 01cc | | Execute Vector,Catenate
086e e406 | | Load 0x2,0x6
086f e003 | | Load 0x0,0x3
0870 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0871 025e | ^ | Execute Discrete,Convert
0872 1c01 | | Execute_Immediate Run_Utility,0x1
0873 01cc | | Execute Vector,Catenate
0874 0092 0bb8 | | Action Push_String_Extended,0xbb8 ; ")"
0876 01cc | | Execute Vector,Catenate
0877 e00d | | Load 0x0,0xd
0878 180d | | Execute Package,Field_Execute,Field_Number 0xd
0879 4800 |H | Short_Literal 0x0 ; Debug Table 0x12.0x23 = 0x879,0x14
087a e5fc | | Load 0x2,-0x4
087b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
087c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; Debug Table 0x12.0x24 = 0x87c,0x15
087d e003 | | Load 0x0,0x3 ; Debug Table 0x12.0x25 = 0x87d,0x16
087e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
087f 00f1 | | Load_Encached Diana_Temp_Seq
0880 e003 | | Load 0x0,0x3
0881 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0882 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0883 00f1 | | Load_Encached Diana_Temp_Seq
0884 e404 | | Load 0x2,0x4
0885 0120 | | Execute Any,Is_Value
0886 6803 |h | Jump_Zero 0x88a
0887 e014 | | Load 0x0,0x14
0888 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0889 7801 |x | Jump 0x88b
088a e404 | | Load 0x2,0x4
088b 6538 |e8 | Indirect_Literal Discrete,0x5c4,{0x00000000, 0x00004000}
088c e5fc | | Load 0x2,-0x4
088d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
088e 4800 |H | Short_Literal 0x0
088f e003 | | Load 0x0,0x3
0890 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
0891 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0892 e003 | | Load 0x0,0x3
0893 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0894 4802 |H | Short_Literal 0x2
0895 e408 | | Load 0x2,0x8
0896 e003 | | Load 0x0,0x3
0897 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
0898 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0899 c404 | | Store 0x2,0x4
089a c409 | | Store 0x2,0x9
089b c405 | | Store 0x2,0x5
089c c403 | | Store 0x2,0x3
089d c406 | | Store 0x2,0x6
089e e406 | | Load 0x2,0x6 ; Debug Table 0x12.0x26 = 0x89e,0x17
089f 6807 |h | Jump_Zero 0x8a7
08a0 e5fc | | Load 0x2,-0x4 ; Debug Table 0x12.0x27 = 0x8a0,0x18
08a1 e5fd | | Load 0x2,-0x3
08a2 e5fe | | Load 0x2,-0x2
08a3 e5ff | | Load 0x2,-0x1
08a4 8221 | ! | Call 0x1,0x21
08a5 00d1 | | Pop_Control Pop_Count_1
08a6 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; Debug Table 0x12.0x28 = 0x8a6,0x19
08a7 00da | | Load_Top At_Offset_2 ; Debug Table 0x12.0x29 = 0x8a7,0x1a
08a8 7006 |p | Jump_Nonzero 0x8af
08a9 e409 | | Load 0x2,0x9 ; Debug Table 0x12.0x2a = 0x8a9,0x1b
08aa 4975 |Iu | Short_Literal 0x175
08ab 00eb | | Load_Encached Diana_Cache
08ac 0098 | | Execute Package,Field_Read_Dynamic
08ad 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
08ae a409 | | Store_Unchecked 0x2,0x9
08af e5fd | | Load 0x2,-0x3 ; Debug Table 0x12.0x2b = 0x8af,0x1c
08b0 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
08b1 785d |x] | Jump 0x90f
08b2 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x12.0x2c = 0x8b2,0x1f
08b3 0aff | | Execute_Immediate Plus,-0x1
08b4 0248 | H | Execute Discrete,Check_In_Integer
08b5 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
08b6 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x12.0x2d = 0x8b6,0x1e
08b7 00d9 | | Load_Top At_Offset_1
08b8 01d5 | | Execute Vector,Field_Reference
08b9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
08ba e01b | | Load 0x0,0x1b
08bb 016f | o | Execute Variant_Record,Equal
08bc 77f5 |w | Jump_Nonzero 0x8b2
08bd 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x12.0x2e = 0x8bd,0x20
08be 00d9 | | Load_Top At_Offset_1
08bf 01d5 | | Execute Vector,Field_Reference
08c0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
08c1 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
08c2 a40b | | Store_Unchecked 0x2,0xb
08c3 0092 0bbd | | Action Push_String_Extended,0xbbd ; "demoted "
; Debug Table 0x12.0x2f = 0x8c3,0x21
08c5 4828 |H( | Short_Literal 0x28
08c6 e40b | | Load 0x2,0xb
08c7 e017 | | Load 0x0,0x17
08c8 180f | | Execute Package,Field_Execute,Field_Number 0xf
08c9 01cc | | Execute Vector,Catenate
08ca e00d | | Load 0x0,0xd
08cb 180e | | Execute Package,Field_Execute,Field_Number 0xe
08cc 0007 | | Action Break_Optional ; Debug Table 0x12.0x30 = 0x8cc,0x22
08cd e409 | | Load 0x2,0x9 ; Debug Table 0x12.0x31 = 0x8cd,0x801
08ce 0217 | | Execute Heap_Access,All_Reference
08cf 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
08d0 a40a | | Store_Unchecked 0x2,0xa ; Debug Table 0x12.0x32 = 0x8d0,0x22
08d1 e003 | | Load 0x0,0x3 ; Debug Table 0x12.0x33 = 0x8d1,0x23
08d2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08d3 e40c | | Load 0x2,0xc
08d4 0120 | | Execute Any,Is_Value
08d5 6803 |h | Jump_Zero 0x8d9
08d6 e003 | | Load 0x0,0x3
08d7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
08d8 7801 |x | Jump 0x8da
08d9 e40c | | Load 0x2,0xc
08da 64e9 |d | Indirect_Literal Discrete,0x5c4,{0x00000000, 0x00004000}
08db e5fc | | Load 0x2,-0x4
08dc 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
08dd 4800 |H | Short_Literal 0x0
08de e003 | | Load 0x0,0x3
08df 181e | | Execute Package,Field_Execute,Field_Number 0x1e
08e0 e40a | | Load 0x2,0xa
08e1 e003 | | Load 0x0,0x3
08e2 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
08e3 1816 | | Execute Package,Field_Execute,Field_Number 0x16
08e4 c40c | | Store 0x2,0xc
08e5 c406 | | Store 0x2,0x6
08e6 e406 | | Load 0x2,0x6 ; Debug Table 0x12.0x34 = 0x8e6,0x24
08e7 701e |p | Jump_Nonzero 0x906
08e8 4801 |H | Short_Literal 0x1 ; Debug Table 0x12.0x35 = 0x8e8,0x25
08e9 e01c | | Load 0x0,0x1c
08ea 1c08 | | Execute_Immediate Run_Utility,0x8
08eb e40c | | Load 0x2,0xc
08ec e003 | | Load 0x0,0x3
08ed 1b0f | | Execute Package,Field_Read,Field_Number 0xf
08ee 0119 | | Execute Any,Check_In_Formal_Type
08ef 00d9 | | Load_Top At_Offset_1
08f0 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
08f1 00da | | Load_Top At_Offset_2
08f2 00da | | Load_Top At_Offset_2
08f3 01d5 | | Execute Vector,Field_Reference
08f4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
08f5 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x12.0x36 = 0x8f5,0x26
08f6 00d9 | | Load_Top At_Offset_1
08f7 01d7 | | Execute Vector,Field_Read
08f8 00d8 | | Load_Top At_Offset_0
08f9 00db | | Load_Top At_Offset_3
08fa e5ff | | Load 0x2,-0x1
08fb e010 | | Load 0x0,0x10
08fc 1818 | | Execute Package,Field_Execute,Field_Number 0x18
08fd 00d2 | | Pop_Control Pop_Count_2
08fe e40a | | Load 0x2,0xa ; Debug Table 0x12.0x37 = 0x8fe,0x27
08ff e40b | | Load 0x2,0xb
0900 00db | | Load_Top At_Offset_3
0901 00db | | Load_Top At_Offset_3
0902 01d5 | | Execute Vector,Field_Reference
0903 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
0904 e00f | | Load 0x0,0xf
0905 1857 | W | Execute Package,Field_Execute,Field_Number 0x57
0906 0007 | | Action Break_Optional ; Debug Table 0x12.0x38 = 0x906,0x28
0907 e409 | | Load 0x2,0x9 ; Debug Table 0x12.0x39 = 0x907,0xc01
0908 0217 | | Execute Heap_Access,All_Reference
0909 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
090a a409 | | Store_Unchecked 0x2,0x9 ; Debug Table 0x12.0x3a = 0x90a,0x28
090b 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x12.0x3b = 0x90b,0x29
090c 0aff | | Execute_Immediate Plus,-0x1
090d 0248 | H | Execute Discrete,Check_In_Integer
090e 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
090f 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x12.0x3c = 0x90f,0x1d
0910 e5fe | | Load 0x2,-0x2
0911 027b | { | Execute Discrete,Greater_Equal
0912 77a3 |w | Jump_Nonzero 0x8b6
0913 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0914 0000 0000 | | .BLANK 0000[0x4]
0918 ; --------------------------------------------------------------------------------------
0918 ; SUBPROGRAM
0918 ; --------------------------------------------------------------------------------------
0918 091b | | .CONST 0x091b ; Address of begin
0919 0004 | | .CONST 0x0004 ; Address of exception handler
091a 0001 | | .CONST 0x0001 ; Number of locals
091b BODY_0918:
091b INIT_0918:
091b e5fc | | Load 0x2,-0x4 ; Debug Table 0x13 = .DEBUG 0x091b,0x119c,0x0001,0x0000,0x0057,0x9905,0x0000,0x0a70
; Debug Table 0x13.0x0 = 0x91b,0x1
091c 0f01 | | Execute_Immediate Equal,0x1
091d 6809 |h | Jump_Zero 0x927
091e e5fb | | Load 0x2,-0x5 ; Debug Table 0x13.0x1 = 0x91e,0x2
091f e5fd | | Load 0x2,-0x3
0920 e5fe | | Load 0x2,-0x2
0921 e5ff | | Load 0x2,-0x1
0922 8221 | ! | Call 0x1,0x21
0923 00d1 | | Pop_Control Pop_Count_1
0924 4800 |H | Short_Literal 0x0 ; Debug Table 0x13.0x2 = 0x924,0x3
0925 a5fc | | Store_Unchecked 0x2,-0x4
0926 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0927 e5fc | | Load 0x2,-0x4 ; Debug Table 0x13.0x3 = 0x927,0x4
0928 0c02 | | Execute_Immediate Greater_Equal,0x2
0929 6808 |h | Jump_Zero 0x932
092a e5fb | | Load 0x2,-0x5 ; Debug Table 0x13.0x4 = 0x92a,0x5
092b e5fd | | Load 0x2,-0x3
092c e5fe | | Load 0x2,-0x2
092d e5ff | | Load 0x2,-0x1
092e 8222 | " | Call 0x1,0x22
092f 00d1 | | Pop_Control Pop_Count_1
0930 4800 |H | Short_Literal 0x0 ; Debug Table 0x13.0x5 = 0x930,0x6
0931 a5fc | | Store_Unchecked 0x2,-0x4
0932 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0933 0000 0000 | | .BLANK 0000[0x5]
0938 ; --------------------------------------------------------------------------------------
0938 ; SUBPROGRAM
0938 ; --------------------------------------------------------------------------------------
0938 094a | J | .CONST 0x094a ; Address of begin
0939 0004 | | .CONST 0x0004 ; Address of exception handler
093a 0006 | | .CONST 0x0006 ; Number of locals
093b INIT_0938:
093b e002 | | Load 0x0,0x2 ; Debug Table 0x14 = .DEBUG 0x093b,0x11aa,0x0001,0x0000,0x0057,0x9905,0x0000,0x0ab3
; Debug Table 0x14.0x0 = 0x93b,0xffff
093c 0322 | " | Declare_Variable Record
093d 00d8 | | Load_Top At_Offset_0
093e 1c00 | | Execute_Immediate Run_Utility,0x0
093f 00e2 | | Load_Encached Integer_Cache ; Debug Table 0x14.0x1 = 0x93f,0xfffe
0940 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0941 00f0 | | Load_Encached Segment_Cache ; Debug Table 0x14.0x2 = 0x941,0xfffd
0942 e5fd | | Load 0x2,-0x3 ; Debug Table 0x14.0x3 = 0x942,0xfffc
0943 e001 | | Load 0x0,0x1
0944 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0945 03f1 | | Declare_Variable Discrete,With_Value
0946 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x14.0x4 = 0x946,0xfffb
0947 e001 | | Load 0x0,0x1
0948 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0949 03f1 | | Declare_Variable Discrete,With_Value
094a BODY_0938:
094a 0007 | | Action Break_Optional ; Debug Table 0x14.0x5 = 0x94a,0x1
094b 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x14.0x6 = 0x94b,0x2
094c e5fe | | Load 0x2,-0x2
094d 027c | | | Execute Discrete,Less
094e 6809 |h | Jump_Zero 0x958
094f e5fc | | Load 0x2,-0x4 ; Debug Table 0x14.0x7 = 0x94f,0x3
0950 e403 | | Load 0x2,0x3
0951 00da | | Load_Top At_Offset_2
0952 e5fe | | Load 0x2,-0x2
0953 e5ff | | Load 0x2,-0x1
0954 8223 | # | Call 0x1,0x23
0955 c403 | | Store 0x2,0x3
0956 00d1 | | Pop_Control Pop_Count_1
0957 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; Debug Table 0x14.0x8 = 0x957,0x4
0958 e402 | | Load 0x2,0x2 ; Debug Table 0x14.0x9 = 0x958,0x5
0959 00da | | Load_Top At_Offset_2
095a e5ff | | Load 0x2,-0x1
095b e008 | | Load 0x0,0x8
095c 180e | | Execute Package,Field_Execute,Field_Number 0xe
095d 005b | [ | Store_Top Discrete,At_Offset_3
095e 00d1 | | Pop_Control Pop_Count_1
095f e402 | | Load 0x2,0x2 ; Debug Table 0x14.0xa = 0x95f,0x6
0960 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0961 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0962 6839 |h9 | Jump_Zero 0x99c
0963 e5fc | | Load 0x2,-0x4 ; Debug Table 0x14.0xb = 0x963,0x7
0964 e403 | | Load 0x2,0x3
0965 00da | | Load_Top At_Offset_2
0966 e402 | | Load 0x2,0x2
0967 e405 | | Load 0x2,0x5
0968 801d | | Call 0x0,0x1d
0969 e5ff | | Load 0x2,-0x1
096a 8223 | # | Call 0x1,0x23
096b c403 | | Store 0x2,0x3
096c 00d1 | | Pop_Control Pop_Count_1
096d e402 | | Load 0x2,0x2 ; Debug Table 0x14.0xc = 0x96d,0x8
096e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
096f 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0970 e013 | | Load 0x0,0x13
0971 180d | | Execute Package,Field_Execute,Field_Number 0xd
0972 7006 |p | Jump_Nonzero 0x979
0973 e402 | | Load 0x2,0x2 ; Debug Table 0x14.0xd = 0x973,0x9
0974 00da | | Load_Top At_Offset_2
0975 e5ff | | Load 0x2,-0x1
0976 e010 | | Load 0x0,0x10
0977 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0978 7897 |x | Jump 0xa10
0979 e5fc | | Load 0x2,-0x4 ; Debug Table 0x14.0xe = 0x979,0xa
097a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
097b 7012 |p | Jump_Nonzero 0x98e
097c e5ff | | Load 0x2,-0x1
097d 0217 | | Execute Heap_Access,All_Reference
097e 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
097f e01e | | Load 0x0,0x1e
0980 025f | _ | Execute Discrete,Not_In_Type
0981 700c |p | Jump_Nonzero 0x98e
0982 e5ff | | Load 0x2,-0x1
0983 0217 | | Execute Heap_Access,All_Reference
0984 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0985 e402 | | Load 0x2,0x2
0986 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
0987 e00f | | Load 0x0,0xf
0988 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0989 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x14.0xf = 0x989,0x401
098a 021d | | Execute Heap_Access,Is_Null
098b 00d0 | | Action Swap_Control
098c 00d1 | | Pop_Control Pop_Count_1
098d 7801 |x | Jump 0x98f ; Debug Table 0x14.0x10 = 0x98d,0xa
098e 4801 |H | Short_Literal 0x1
098f 6880 |h | Jump_Zero 0xa10
0990 e5fc | | Load 0x2,-0x4
0991 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0992 e216 | | Load 0x1,0x16
0993 016e | n | Execute Variant_Record,Not_Equal
0994 687b |h{ | Jump_Zero 0xa10
0995 e5fc | | Load 0x2,-0x4 ; Debug Table 0x14.0x11 = 0x995,0xb
0996 e402 | | Load 0x2,0x2
0997 00db | | Load_Top At_Offset_3
0998 e5ff | | Load 0x2,-0x1
0999 821f | | Call 0x1,0x1f
099a 00d2 | | Pop_Control Pop_Count_2
099b 7874 |xt | Jump 0xa10
099c e5fc | | Load 0x2,-0x4 ; Debug Table 0x14.0x12 = 0x99c,0xc
099d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
099e 7067 |pg | Jump_Nonzero 0xa06
099f e402 | | Load 0x2,0x2
09a0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
09a1 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
09a2 801a | | Call 0x0,0x1a
09a3 6862 |hb | Jump_Zero 0xa06
09a4 e402 | | Load 0x2,0x2
09a5 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
09a6 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
09a7 e003 | | Load 0x0,0x3
09a8 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
09a9 1814 | | Execute Package,Field_Execute,Field_Number 0x14
09aa 685b |h[ | Jump_Zero 0xa06
09ab e402 | | Load 0x2,0x2 ; Debug Table 0x14.0x13 = 0x9ab,0xd
09ac 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
09ad 0c02 | | Execute_Immediate Greater_Equal,0x2
09ae 7005 |p | Jump_Nonzero 0x9b4
09af e5fc | | Load 0x2,-0x4
09b0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
09b1 e216 | | Load 0x1,0x16
09b2 016f | o | Execute Variant_Record,Equal
09b3 6814 |h | Jump_Zero 0x9c8
09b4 00db | | Load_Top At_Offset_3 ; Debug Table 0x14.0x14 = 0x9b4,0xe
09b5 0c01 | | Execute_Immediate Greater_Equal,0x1
09b6 680a |h | Jump_Zero 0x9c1
09b7 e5fc | | Load 0x2,-0x4 ; Debug Table 0x14.0x15 = 0x9b7,0xf
09b8 e403 | | Load 0x2,0x3
09b9 00da | | Load_Top At_Offset_2
09ba e402 | | Load 0x2,0x2
09bb e405 | | Load 0x2,0x5
09bc 801d | | Call 0x0,0x1d
09bd e5ff | | Load 0x2,-0x1
09be 8223 | # | Call 0x1,0x23
09bf c403 | | Store 0x2,0x3
09c0 00d1 | | Pop_Control Pop_Count_1
09c1 e5fc | | Load 0x2,-0x4 ; Debug Table 0x14.0x16 = 0x9c1,0x10
09c2 00da | | Load_Top At_Offset_2
09c3 00db | | Load_Top At_Offset_3
09c4 e5ff | | Load 0x2,-0x1
09c5 8221 | ! | Call 0x1,0x21
09c6 00d1 | | Pop_Control Pop_Count_1
09c7 7848 |xH | Jump 0xa10
09c8 00db | | Load_Top At_Offset_3 ; Debug Table 0x14.0x17 = 0x9c8,0x11
09c9 7010 |p | Jump_Nonzero 0x9da
09ca 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x14.0x18 = 0x9ca,0x12
09cb 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
09cc e402 | | Load 0x2,0x2 ; Debug Table 0x14.0x19 = 0x9cc,0x13
09cd 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
09ce 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
09cf 0007 | | Action Break_Optional
09d0 e407 | | Load 0x2,0x7 ; Debug Table 0x14.0x1a = 0x9d0,0x801
09d1 0007 | | Action Break_Optional
09d2 0210 | | Execute Heap_Access,Get_Segment ; Debug Table 0x14.0x1b = 0x9d2,0x802
09d3 0007 | | Action Break_Optional ; Debug Table 0x14.0x1c = 0x9d3,0x803
09d4 00d0 | | Action Swap_Control ; Debug Table 0x14.0x1d = 0x9d4,0x804
09d5 00d1 | | Pop_Control Pop_Count_1
09d6 0033 | 3 | Store_Top Heap_Access,At_Offset_3 ; Debug Table 0x14.0x1e = 0x9d6,0x13
09d7 4801 |H | Short_Literal 0x1 ; Debug Table 0x14.0x1f = 0x9d7,0x14
09d8 a403 | | Store_Unchecked 0x2,0x3
09d9 7836 |x6 | Jump 0xa10
09da e402 | | Load 0x2,0x2 ; Debug Table 0x14.0x20 = 0x9da,0x15
09db 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
09dc 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
09dd 0007 | | Action Break_Optional
09de e407 | | Load 0x2,0x7 ; Debug Table 0x14.0x21 = 0x9de,0xc01
09df 0007 | | Action Break_Optional
09e0 0210 | | Execute Heap_Access,Get_Segment ; Debug Table 0x14.0x22 = 0x9e0,0xc02
09e1 0007 | | Action Break_Optional ; Debug Table 0x14.0x23 = 0x9e1,0xc03
09e2 00d0 | | Action Swap_Control ; Debug Table 0x14.0x24 = 0x9e2,0xc04
09e3 00d1 | | Pop_Control Pop_Count_1
09e4 00db | | Load_Top At_Offset_3 ; Debug Table 0x14.0x25 = 0x9e4,0x15
09e5 021f | | Execute Heap_Access,Equal
09e6 6805 |h | Jump_Zero 0x9ec
09e7 00db | | Load_Top At_Offset_3 ; Debug Table 0x14.0x26 = 0x9e7,0x16
09e8 0a01 | | Execute_Immediate Plus,0x1
09e9 0248 | H | Execute Discrete,Check_In_Integer
09ea a403 | | Store_Unchecked 0x2,0x3
09eb 7824 |x$ | Jump 0xa10
09ec e5fc | | Load 0x2,-0x4 ; Debug Table 0x14.0x27 = 0x9ec,0x17
09ed e403 | | Load 0x2,0x3
09ee 00da | | Load_Top At_Offset_2
09ef e402 | | Load 0x2,0x2
09f0 e405 | | Load 0x2,0x5
09f1 801d | | Call 0x0,0x1d
09f2 e5ff | | Load 0x2,-0x1
09f3 8223 | # | Call 0x1,0x23
09f4 c403 | | Store 0x2,0x3
09f5 00d1 | | Pop_Control Pop_Count_1
09f6 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x14.0x28 = 0x9f6,0x18
09f7 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
09f8 e402 | | Load 0x2,0x2 ; Debug Table 0x14.0x29 = 0x9f8,0x19
09f9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
09fa 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
09fb 0007 | | Action Break_Optional
09fc e407 | | Load 0x2,0x7 ; Debug Table 0x14.0x2a = 0x9fc,0x1001
09fd 0007 | | Action Break_Optional
09fe 0210 | | Execute Heap_Access,Get_Segment ; Debug Table 0x14.0x2b = 0x9fe,0x1002
09ff 0007 | | Action Break_Optional ; Debug Table 0x14.0x2c = 0x9ff,0x1003
0a00 00d0 | | Action Swap_Control ; Debug Table 0x14.0x2d = 0xa00,0x1004
0a01 00d1 | | Pop_Control Pop_Count_1
0a02 0033 | 3 | Store_Top Heap_Access,At_Offset_3 ; Debug Table 0x14.0x2e = 0xa02,0x19
0a03 4801 |H | Short_Literal 0x1 ; Debug Table 0x14.0x2f = 0xa03,0x1a
0a04 a403 | | Store_Unchecked 0x2,0x3
0a05 780a |x | Jump 0xa10
0a06 e5fc | | Load 0x2,-0x4 ; Debug Table 0x14.0x30 = 0xa06,0x1b
0a07 e403 | | Load 0x2,0x3
0a08 00da | | Load_Top At_Offset_2
0a09 e402 | | Load 0x2,0x2
0a0a e405 | | Load 0x2,0x5
0a0b 801d | | Call 0x0,0x1d
0a0c e5ff | | Load 0x2,-0x1
0a0d 8223 | # | Call 0x1,0x23
0a0e c403 | | Store 0x2,0x3
0a0f 00d1 | | Pop_Control Pop_Count_1
0a10 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x14.0x31 = 0xa10,0x1c
0a11 0aff | | Execute_Immediate Plus,-0x1
0a12 0248 | H | Execute Discrete,Check_In_Integer
0a13 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0a14 7f36 | 6 | Jump 0x94b
0a15 0000 0000 | | .XXX[0x3]
0a17 0000 | |
0a18 ; --------------------------------------------------------------------------------------
0a18 ; SUBPROGRAM
0a18 ; --------------------------------------------------------------------------------------
0a18 0a2a | * | .CONST 0x0a2a ; Address of begin
0a19 0004 | | .CONST 0x0004 ; Address of exception handler
0a1a 0006 | | .CONST 0x0006 ; Number of locals
0a1b INIT_0a18:
0a1b e002 | | Load 0x0,0x2 ; Debug Table 0x15 = .DEBUG 0x0a1b,0x1210,0x0001,0x0000,0x0057,0x9905,0x0000,0x0c19
; Debug Table 0x15.0x0 = 0xa1b,0xffff
0a1c 0322 | " | Declare_Variable Record
0a1d 00d8 | | Load_Top At_Offset_0
0a1e 1c00 | | Execute_Immediate Run_Utility,0x0
0a1f e003 | | Load 0x0,0x3 ; Debug Table 0x15.0x1 = 0xa1f,0xfffe
0a20 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0a21 02c7 | | Declare_Variable Any
0a22 00d8 | | Load_Top At_Offset_0
0a23 1c00 | | Execute_Immediate Run_Utility,0x0
0a24 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x15.0x2 = 0xa24,0xfffd
0a25 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x15.0x3 = 0xa25,0xfffc
0a26 e5fe | | Load 0x2,-0x2 ; Debug Table 0x15.0x4 = 0xa26,0xfffb
0a27 e001 | | Load 0x0,0x1
0a28 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0a29 03f1 | | Declare_Variable Discrete,With_Value
0a2a BODY_0a18:
0a2a 7846 |xF | Jump 0xa71
0a2b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x15.0x5 = 0xa2b,0x2
0a2c e5ff | | Load 0x2,-0x1
0a2d 0217 | | Execute Heap_Access,All_Reference
0a2e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0a2f e00c | | Load 0x0,0xc
0a30 1868 | h | Execute Package,Field_Execute,Field_Number 0x68
0a31 e402 | | Load 0x2,0x2
0a32 017d | } | Execute Record,Structure_Write
0a33 e402 | | Load 0x2,0x2 ; Debug Table 0x15.0x6 = 0xa33,0x3
0a34 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0a35 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0a36 680d |h | Jump_Zero 0xa44
0a37 e402 | | Load 0x2,0x2 ; Debug Table 0x15.0x7 = 0xa37,0x4
0a38 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0a39 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0a3a e013 | | Load 0x0,0x13
0a3b 180d | | Execute Package,Field_Execute,Field_Number 0xd
0a3c 6830 |h0 | Jump_Zero 0xa6d
0a3d e5fd | | Load 0x2,-0x3 ; Debug Table 0x15.0x8 = 0xa3d,0x5
0a3e e402 | | Load 0x2,0x2
0a3f 00da | | Load_Top At_Offset_2
0a40 e5ff | | Load 0x2,-0x1
0a41 821f | | Call 0x1,0x1f
0a42 00d2 | | Pop_Control Pop_Count_2
0a43 7829 |x) | Jump 0xa6d
0a44 e402 | | Load 0x2,0x2 ; Debug Table 0x15.0x9 = 0xa44,0x6
0a45 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0a46 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0a47 801a | | Call 0x0,0x1a
0a48 6824 |h$ | Jump_Zero 0xa6d
0a49 e402 | | Load 0x2,0x2
0a4a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0a4b 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0a4c e003 | | Load 0x0,0x3
0a4d 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
0a4e 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0a4f 681d |h | Jump_Zero 0xa6d
0a50 e5fd | | Load 0x2,-0x3 ; Debug Table 0x15.0xa = 0xa50,0x7
0a51 00ec | | Load_Encached Diana_Tree_Cache
0a52 e403 | | Load 0x2,0x3
0a53 0120 | | Execute Any,Is_Value
0a54 6803 |h | Jump_Zero 0xa58
0a55 e003 | | Load 0x0,0x3
0a56 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0a57 7801 |x | Jump 0xa59
0a58 e403 | | Load 0x2,0x3
0a59 00e1 | | Load_Encached Boolean_Cache
0a5a e402 | | Load 0x2,0x2
0a5b e406 | | Load 0x2,0x6
0a5c e5ff | | Load 0x2,-0x1
0a5d 8220 | | Call 0x1,0x20
0a5e 00d1 | | Pop_Control Pop_Count_1
0a5f c405 | | Store 0x2,0x5
0a60 c403 | | Store 0x2,0x3
0a61 c404 | | Store 0x2,0x4
0a62 00d1 | | Pop_Control Pop_Count_1
0a63 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x15.0xb = 0xa63,0x8
0a64 6808 |h | Jump_Zero 0xa6d
0a65 e402 | | Load 0x2,0x2 ; Debug Table 0x15.0xc = 0xa65,0x9
0a66 00db | | Load_Top At_Offset_3
0a67 e403 | | Load 0x2,0x3
0a68 00db | | Load_Top At_Offset_3
0a69 e5ff | | Load 0x2,-0x1
0a6a e010 | | Load 0x0,0x10
0a6b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0a6c 00d1 | | Pop_Control Pop_Count_1
0a6d 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x15.0xd = 0xa6d,0xa
0a6e e402 | | Load 0x2,0x2
0a6f 801f | | Call 0x0,0x1f
0a70 0059 | Y | Store_Top Discrete,At_Offset_1
0a71 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x15.0xe = 0xa71,0x1
0a72 e5ff | | Load 0x2,-0x1
0a73 0217 | | Execute Heap_Access,All_Reference
0a74 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0a75 027c | | | Execute Discrete,Less
0a76 77b4 |w | Jump_Nonzero 0xa2b
0a77 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0a78 ; --------------------------------------------------------------------------------------
0a78 ; SUBPROGRAM
0a78 ; --------------------------------------------------------------------------------------
0a78 0a80 | | .CONST 0x0a80 ; Address of begin
0a79 0004 | | .CONST 0x0004 ; Address of exception handler
0a7a 0003 | | .CONST 0x0003 ; Number of locals
0a7b INIT_0a78:
0a7b e002 | | Load 0x0,0x2 ; Debug Table 0x16 = .DEBUG 0x0a7b,0x1230,0x0001,0x0000,0x0057,0x9905,0x0000,0x0cb1
; Debug Table 0x16.0x0 = 0xa7b,0xffff
0a7c 0322 | " | Declare_Variable Record
0a7d 00d8 | | Load_Top At_Offset_0
0a7e 1c00 | | Execute_Immediate Run_Utility,0x0
0a7f 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x16.0x1 = 0xa7f,0xfffe
0a80 BODY_0a78:
0a80 e5ff | | Load 0x2,-0x1 ; Debug Table 0x16.0x2 = 0xa80,0x1
0a81 e010 | | Load 0x0,0x10
0a82 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0a83 e5ff | | Load 0x2,-0x1 ; Debug Table 0x16.0x3 = 0xa83,0x2
0a84 0217 | | Execute Heap_Access,All_Reference
0a85 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0a86 e020 | | Load 0x0,0x20
0a87 0260 | ` | Execute Discrete,In_Type
0a88 6816 |h | Jump_Zero 0xa9f
0a89 e5fe | | Load 0x2,-0x2 ; Debug Table 0x16.0x4 = 0xa89,0x3
0a8a e5ff | | Load 0x2,-0x1
0a8b 0217 | | Execute Heap_Access,All_Reference
0a8c 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0a8d 027c | | | Execute Discrete,Less
0a8e 6809 |h | Jump_Zero 0xa98
0a8f e5fc | | Load 0x2,-0x4 ; Debug Table 0x16.0x5 = 0xa8f,0x4
0a90 e5fd | | Load 0x2,-0x3
0a91 e5ff | | Load 0x2,-0x1
0a92 0217 | | Execute Heap_Access,All_Reference
0a93 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0a94 e5ff | | Load 0x2,-0x1
0a95 8224 | $ | Call 0x1,0x24
0a96 00d1 | | Pop_Control Pop_Count_1
0a97 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0a98 e5fc | | Load 0x2,-0x4 ; Debug Table 0x16.0x6 = 0xa98,0x5
0a99 e5fd | | Load 0x2,-0x3
0a9a e5fe | | Load 0x2,-0x2
0a9b e5ff | | Load 0x2,-0x1
0a9c 8224 | $ | Call 0x1,0x24
0a9d 00d1 | | Pop_Control Pop_Count_1
0a9e 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0a9f e5fe | | Load 0x2,-0x2 ; Debug Table 0x16.0x7 = 0xa9f,0x6
0aa0 e5ff | | Load 0x2,-0x1
0aa1 0217 | | Execute Heap_Access,All_Reference
0aa2 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0aa3 027b | { | Execute Discrete,Greater_Equal
0aa4 6807 |h | Jump_Zero 0xaac
0aa5 e5fc | | Load 0x2,-0x4 ; Debug Table 0x16.0x8 = 0xaa5,0x7
0aa6 e5fd | | Load 0x2,-0x3
0aa7 e5fe | | Load 0x2,-0x2
0aa8 e5ff | | Load 0x2,-0x1
0aa9 8224 | $ | Call 0x1,0x24
0aaa 00d1 | | Pop_Control Pop_Count_1
0aab 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0aac 4801 |H | Short_Literal 0x1 ; Debug Table 0x16.0x9 = 0xaac,0x8
0aad e5ff | | Load 0x2,-0x1
0aae 0217 | | Execute Heap_Access,All_Reference
0aaf 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0ab0 e00c | | Load 0x0,0xc
0ab1 1868 | h | Execute Package,Field_Execute,Field_Number 0x68
0ab2 00da | | Load_Top At_Offset_2
0ab3 017d | } | Execute Record,Structure_Write
0ab4 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x16.0xa = 0xab4,0x9
0ab5 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0ab6 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0ab7 700f |p | Jump_Nonzero 0xac7
0ab8 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x16.0xb = 0xab8,0xa
0ab9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0aba 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0abb 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0abc 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x16.0xc = 0xabc,0xb
0abd e00f | | Load 0x0,0xf
0abe 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59
0abf 00d9 | | Load_Top At_Offset_1
0ac0 021f | | Execute Heap_Access,Equal
0ac1 7005 |p | Jump_Nonzero 0xac7
0ac2 0092 0bc4 | | Action Push_String_Extended,0xbc4 ; "main item cannot be demoted"
; Debug Table 0x16.0xd = 0xac2,0xc
0ac4 e00d | | Load 0x0,0xd
0ac5 180d | | Execute Package,Field_Execute,Field_Number 0xd
0ac6 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; Debug Table 0x16.0xe = 0xac6,0xd
0ac7 e5fc | | Load 0x2,-0x4 ; Debug Table 0x16.0xf = 0xac7,0xe
0ac8 e5fd | | Load 0x2,-0x3
0ac9 e5ff | | Load 0x2,-0x1
0aca 0217 | | Execute Heap_Access,All_Reference
0acb 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0acc e5ff | | Load 0x2,-0x1
0acd 8224 | $ | Call 0x1,0x24
0ace 00d1 | | Pop_Control Pop_Count_1
0acf e5fc | | Load 0x2,-0x4 ; Debug Table 0x16.0x10 = 0xacf,0xf
0ad0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0ad1 6805 |h | Jump_Zero 0xad7
0ad2 e5fc | | Load 0x2,-0x4 ; Debug Table 0x16.0x11 = 0xad2,0x10
0ad3 e5fe | | Load 0x2,-0x2
0ad4 e5ff | | Load 0x2,-0x1
0ad5 8225 | % | Call 0x1,0x25
0ad6 00d1 | | Pop_Control Pop_Count_1
0ad7 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0ad8 ; --------------------------------------------------------------------------------------
0ad8 ; SUBPROGRAM
0ad8 ; --------------------------------------------------------------------------------------
0ad8 0af5 | | .CONST 0x0af5 ; Address of begin
0ad9 0004 | | .CONST 0x0004 ; Address of exception handler
0ada 0008 | | .CONST 0x0008 ; Number of locals
0adb INIT_0ad8:
0adb e003 | | Load 0x0,0x3 ; Debug Table 0x17 = .DEBUG 0x0adb,0x1256,0x0001,0x0000,0x0057,0x9905,0x0000,0x0d5a
; Debug Table 0x17.0x0 = 0xadb,0xffff
0adc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0add 02c7 | | Declare_Variable Any
0ade 00d8 | | Load_Top At_Offset_0
0adf 1c00 | | Execute_Immediate Run_Utility,0x0
0ae0 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x17.0x1 = 0xae0,0xfffe
0ae1 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x17.0x2 = 0xae1,0xfffd
0ae2 e002 | | Load 0x0,0x2 ; Debug Table 0x17.0x3 = 0xae2,0xfffc
0ae3 0322 | " | Declare_Variable Record
0ae4 00d8 | | Load_Top At_Offset_0
0ae5 1c00 | | Execute_Immediate Run_Utility,0x0
0ae6 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x17.0x4 = 0xae6,0xfffb
0ae7 e5fd | | Load 0x2,-0x3 ; Debug Table 0x17.0x5 = 0xae7,0xfffa
0ae8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0ae9 e216 | | Load 0x1,0x16
0aea 016f | o | Execute Variant_Record,Equal
0aeb 00e1 | | Load_Encached Boolean_Cache
0aec 03f1 | | Declare_Variable Discrete,With_Value
0aed e5fe | | Load 0x2,-0x2 ; Debug Table 0x17.0x6 = 0xaed,0xfff9
0aee e00c | | Load 0x0,0xc
0aef 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b
0af0 e00c | | Load 0x0,0xc
0af1 185d | ] | Execute Package,Field_Execute,Field_Number 0x5d
0af2 e001 | | Load 0x0,0x1
0af3 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0af4 03f1 | | Declare_Variable Discrete,With_Value
0af5 BODY_0ad8:
0af5 e5ff | | Load 0x2,-0x1 ; Debug Table 0x17.0x7 = 0xaf5,0x1
0af6 0217 | | Execute Heap_Access,All_Reference
0af7 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0af8 e020 | | Load 0x0,0x20
0af9 0260 | ` | Execute Discrete,In_Type
0afa 6813 |h | Jump_Zero 0xb0e
0afb 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x17.0x8 = 0xafb,0x2
0afc e5ff | | Load 0x2,-0x1
0afd 0217 | | Execute Heap_Access,All_Reference
0afe 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0aff 027c | | | Execute Discrete,Less
0b00 7008 |p | Jump_Nonzero 0xb09
0b01 00d8 | | Load_Top At_Offset_0
0b02 e5ff | | Load 0x2,-0x1
0b03 0217 | | Execute Heap_Access,All_Reference
0b04 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0b05 e00c | | Load 0x0,0xc
0b06 1869 | i | Execute Package,Field_Execute,Field_Number 0x69
0b07 027d | } | Execute Discrete,Greater
0b08 6818 |h | Jump_Zero 0xb21
0b09 0092 0bc5 | | Action Push_String_Extended,0xbc5 ; "nothing to demote here"
; Debug Table 0x17.0x9 = 0xb09,0x3
0b0b e00d | | Load 0x0,0xd
0b0c 180d | | Execute Package,Field_Execute,Field_Number 0xd
0b0d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; Debug Table 0x17.0xa = 0xb0d,0x4
0b0e 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x17.0xb = 0xb0e,0x5
0b0f e5ff | | Load 0x2,-0x1
0b10 0217 | | Execute Heap_Access,All_Reference
0b11 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0b12 027f | | Execute Discrete,Equal
0b13 7008 |p | Jump_Nonzero 0xb1c
0b14 00d8 | | Load_Top At_Offset_0
0b15 e5ff | | Load 0x2,-0x1
0b16 0217 | | Execute Heap_Access,All_Reference
0b17 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0b18 e00c | | Load 0x0,0xc
0b19 1869 | i | Execute Package,Field_Execute,Field_Number 0x69
0b1a 027d | } | Execute Discrete,Greater
0b1b 6805 |h | Jump_Zero 0xb21
0b1c 0092 0bc5 | | Action Push_String_Extended,0xbc5 ; "nothing to demote here"
; Debug Table 0x17.0xc = 0xb1c,0x6
0b1e e00d | | Load 0x0,0xd
0b1f 180d | | Execute Package,Field_Execute,Field_Number 0xd
0b20 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; Debug Table 0x17.0xd = 0xb20,0x7
0b21 e5ff | | Load 0x2,-0x1 ; Debug Table 0x17.0xe = 0xb21,0x8
0b22 e010 | | Load 0x0,0x10
0b23 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0b24 00db | | Load_Top At_Offset_3 ; Debug Table 0x17.0xf = 0xb24,0x9
0b25 00d9 | | Load_Top At_Offset_1
0b26 e5ff | | Load 0x2,-0x1
0b27 e008 | | Load 0x0,0x8
0b28 180e | | Execute Package,Field_Execute,Field_Number 0xe
0b29 005a | Z | Store_Top Discrete,At_Offset_2
0b2a 00d1 | | Pop_Control Pop_Count_1
0b2b 00db | | Load_Top At_Offset_3 ; Debug Table 0x17.0x10 = 0xb2b,0xa
0b2c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0b2d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0b2e 682b |h+ | Jump_Zero 0xb5a
0b2f 00db | | Load_Top At_Offset_3 ; Debug Table 0x17.0x11 = 0xb2f,0xb
0b30 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0b31 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0b32 e013 | | Load 0x0,0x13
0b33 180d | | Execute Package,Field_Execute,Field_Number 0xd
0b34 6811 |h | Jump_Zero 0xb46
0b35 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x17.0x12 = 0xb35,0xc
0b36 6805 |h | Jump_Zero 0xb3c
0b37 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x17.0x13 = 0xb37,0xd
0b38 e405 | | Load 0x2,0x5
0b39 e5ff | | Load 0x2,-0x1
0b3a 821e | | Call 0x1,0x1e
0b3b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0b3c 4801 |H | Short_Literal 0x1 ; Debug Table 0x17.0x14 = 0xb3c,0xe
0b3d e5fd | | Load 0x2,-0x3
0b3e 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0b3f e5fd | | Load 0x2,-0x3 ; Debug Table 0x17.0x15 = 0xb3f,0xf
0b40 e405 | | Load 0x2,0x5
0b41 00da | | Load_Top At_Offset_2
0b42 e5ff | | Load 0x2,-0x1
0b43 821f | | Call 0x1,0x1f
0b44 00d2 | | Pop_Control Pop_Count_2
0b45 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0b46 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x17.0x16 = 0xb46,0x10
0b47 e5ff | | Load 0x2,-0x1
0b48 0217 | | Execute Heap_Access,All_Reference
0b49 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0b4a 027b | { | Execute Discrete,Greater_Equal
0b4b 6809 |h | Jump_Zero 0xb55
0b4c 00db | | Load_Top At_Offset_3 ; Debug Table 0x17.0x17 = 0xb4c,0x11
0b4d 00d9 | | Load_Top At_Offset_1
0b4e 4801 |H | Short_Literal 0x1
0b4f e5ff | | Load 0x2,-0x1
0b50 e010 | | Load 0x0,0x10
0b51 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0b52 005a | Z | Store_Top Discrete,At_Offset_2
0b53 00d1 | | Pop_Control Pop_Count_1
0b54 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0b55 0092 0bc6 | | Action Push_String_Extended,0xbc6 ; "object no longer exists"
; Debug Table 0x17.0x18 = 0xb55,0x12
0b57 e00d | | Load 0x0,0xd
0b58 180d | | Execute Package,Field_Execute,Field_Number 0xd
0b59 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0b5a 00db | | Load_Top At_Offset_3 ; Debug Table 0x17.0x19 = 0xb5a,0x13
0b5b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0b5c 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0b5d a404 | | Store_Unchecked 0x2,0x4
0b5e e404 | | Load 0x2,0x4 ; Debug Table 0x17.0x1a = 0xb5e,0x14
0b5f 801a | | Call 0x0,0x1a
0b60 7014 |p | Jump_Nonzero 0xb75
0b61 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x17.0x1b = 0xb61,0x15
0b62 e5ff | | Load 0x2,-0x1
0b63 0217 | | Execute Heap_Access,All_Reference
0b64 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0b65 027b | { | Execute Discrete,Greater_Equal
0b66 6809 |h | Jump_Zero 0xb70
0b67 00db | | Load_Top At_Offset_3 ; Debug Table 0x17.0x1c = 0xb67,0x16
0b68 00d9 | | Load_Top At_Offset_1
0b69 4801 |H | Short_Literal 0x1
0b6a e5ff | | Load 0x2,-0x1
0b6b e010 | | Load 0x0,0x10
0b6c 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0b6d 005a | Z | Store_Top Discrete,At_Offset_2
0b6e 00d1 | | Pop_Control Pop_Count_1
0b6f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0b70 0092 0bc7 | | Action Push_String_Extended,0xbc7 ; "item no longer exists"
; Debug Table 0x17.0x1d = 0xb70,0x17
0b72 e00d | | Load 0x0,0xd
0b73 180d | | Execute Package,Field_Execute,Field_Number 0xd
0b74 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0b75 e404 | | Load 0x2,0x4 ; Debug Table 0x17.0x1e = 0xb75,0x18
0b76 e003 | | Load 0x0,0x3
0b77 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
0b78 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0b79 682a |h* | Jump_Zero 0xba4
0b7a e5fd | | Load 0x2,-0x3 ; Debug Table 0x17.0x1f = 0xb7a,0x19
0b7b 00ec | | Load_Encached Diana_Tree_Cache
0b7c e402 | | Load 0x2,0x2
0b7d 0120 | | Execute Any,Is_Value
0b7e 6803 |h | Jump_Zero 0xb82
0b7f e003 | | Load 0x0,0x3
0b80 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0b81 7801 |x | Jump 0xb83
0b82 e402 | | Load 0x2,0x2
0b83 00e1 | | Load_Encached Boolean_Cache
0b84 e405 | | Load 0x2,0x5
0b85 e408 | | Load 0x2,0x8
0b86 e5ff | | Load 0x2,-0x1
0b87 8220 | | Call 0x1,0x20
0b88 00d1 | | Pop_Control Pop_Count_1
0b89 c406 | | Store 0x2,0x6
0b8a c402 | | Store 0x2,0x2
0b8b c403 | | Store 0x2,0x3
0b8c 00d1 | | Pop_Control Pop_Count_1
0b8d 00da | | Load_Top At_Offset_2 ; Debug Table 0x17.0x20 = 0xb8d,0x1a
0b8e 6815 |h | Jump_Zero 0xba4
0b8f 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x17.0x21 = 0xb8f,0x1b
0b90 680b |h | Jump_Zero 0xb9c
0b91 00db | | Load_Top At_Offset_3 ; Debug Table 0x17.0x22 = 0xb91,0x1c
0b92 00d9 | | Load_Top At_Offset_1
0b93 e5ff | | Load 0x2,-0x1
0b94 e010 | | Load 0x0,0x10
0b95 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0b96 e404 | | Load 0x2,0x4 ; Debug Table 0x17.0x23 = 0xb96,0x1d
0b97 e405 | | Load 0x2,0x5
0b98 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
0b99 e00f | | Load 0x0,0xf
0b9a 1858 | X | Execute Package,Field_Execute,Field_Number 0x58
0b9b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0b9c 00db | | Load_Top At_Offset_3 ; Debug Table 0x17.0x24 = 0xb9c,0x1e
0b9d e403 | | Load 0x2,0x3
0b9e e402 | | Load 0x2,0x2
0b9f 00db | | Load_Top At_Offset_3
0ba0 e5ff | | Load 0x2,-0x1
0ba1 e010 | | Load 0x0,0x10
0ba2 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0ba3 00d1 | | Pop_Control Pop_Count_1
0ba4 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0ba5 ; --------------------------------------------------------------------------------------
0ba5 ; STRING TABLE
0ba5 ; --------------------------------------------------------------------------------------
0ba5 0048 | H | .STRTAB 0x0048->0x0bc9 ; "doe_error"
0ba6 004f | O | .STRTAB 0x004f->0x0bcd ; "demote"
0ba7 0053 | S | .STRTAB 0x0053->0x0bd0 ; "Delete"
0ba8 0057 | W | .STRTAB 0x0057->0x0bd3 ; "delete failed - cursor must be in the selection"
0ba9 0084 | | .STRTAB 0x0084->0x0beb ; "delete failed - select a line or a region"
0baa 00ab | | .STRTAB 0x00ab->0x0bff ; "delete"
0bab 00af | | .STRTAB 0x00af->0x0c02 ; "Demote"
0bac 00b3 | | .STRTAB 0x00b3->0x0c05 ; "display is not showing demote closure"
0bad 00d6 | | .STRTAB 0x00d6->0x0c18 ; "demote failed - cursor must be in the selection"
0bae 0103 | | .STRTAB 0x0103->0x0c2f ; "demote failed - there must be a selection"
0baf 012a | * | .STRTAB 0x012a->0x0c44 ; " is not allowed here. "
0bb0 013e | > | .STRTAB 0x013e->0x0c4f ; "The display must be showing units or items. "
0bb1 0168 | h | .STRTAB 0x0168->0x0c65 ; "To get to a unit display do object.expand twice."
0bb2 0196 | | .STRTAB 0x0196->0x0c7d ; "To get to a unit display do object.expand."
0bb3 01be | | .STRTAB 0x01be->0x0c92 ; "To get to an item display do object.expand. "
0bb4 01e8 | | .STRTAB 0x01e8->0x0ca8 ; "To get to a unit display do object.elide."
0bb5 020f | | .STRTAB 0x020f->0x0cbc ; "To get a full item list display do object.elide"
0bb6 023c | < | .STRTAB 0x023c->0x0cd4 ; "can't destroy "
0bb7 0248 | H | .STRTAB 0x0248->0x0cdb ; " ("
0bb8 0248 | H | .STRTAB 0x0248->0x0cdc ; ")"
0bb9 0247 | G | .STRTAB 0x0247->0x0cdc ; "deleted "
0bba 024d | M | .STRTAB 0x024d->0x0ce0 ; "can't delete stub of "
0bbb 0260 | ` | .STRTAB 0x0260->0x0ceb ; "can't destroy object of "
0bbc 0276 | v | .STRTAB 0x0276->0x0cf7 ; "can't demote "
0bbd 0281 | | .STRTAB 0x0281->0x0cfd ; "demoted "
0bbe 0287 | | .STRTAB 0x0287->0x0d01 ; " is already source"
0bbf 0297 | | .STRTAB 0x0297->0x0d0a ; "this kind of item cannot be demoted"
0bc0 02b8 | | .STRTAB 0x02b8->0x0d1c ; " must be checked out to demote "
0bc1 02d5 | | .STRTAB 0x02d5->0x0d2b ; "can't demote parent of "
0bc2 02ea | | .STRTAB 0x02ea->0x0d37 ; " from coded ("
0bc3 02f5 | | .STRTAB 0x02f5->0x0d3d ; " must be checked out"
0bc4 0307 | | .STRTAB 0x0307->0x0d47 ; "main item cannot be demoted"
0bc5 0320 | | .STRTAB 0x0320->0x0d55 ; "nothing to demote here"
0bc6 0334 | 4 | .STRTAB 0x0334->0x0d60 ; "object no longer exists"
0bc7 0349 | I | .STRTAB 0x0349->0x0d6b ; "item no longer exists"
0bc8 035c | \ | .STREND 0x035c->0x0d76
0bc9 646f 655f |doe_| .STRTAB_STRINGS
0d76 0000 0000 | | .XXX[0x2]
0d78 ; --------------------------------------------------------------------------------------
0d78 ; Debug Table
0d78 ; --------------------------------------------------------------------------------------
0d78 0003 0018 | | .CONST 0x0003,0x0018
0d7a 000b 0e3a | :| .DEBUG 0x000b,0x0e3a,0x0000,0x0000,0x0057,0x9795,0x0000,0x07c8
0d82 0014 0e44 | D| .DEBUG 0x0014,0x0e44,0x0000,0x0000,0x0057,0x9905,0x0000,0x000e
0d8a 0093 0e7e | ~| .DEBUG 0x0093,0x0e7e,0x0001,0x0000,0x0057,0x9795,0x0000,0x07c9
0d92 00c3 0e8e | | .DEBUG 0x00c3,0x0e8e,0x0001,0x0000,0x0057,0x9795,0x0000,0x07e6
0d9a 016b 0ed2 | k | .DEBUG 0x016b,0x0ed2,0x0001,0x0000,0x0057,0x9795,0x0000,0x07f6
0da2 0203 0f0a | | .DEBUG 0x0203,0x0f0a,0x0001,0x0000,0x0057,0x9795,0x0000,0x0811
0daa 0223 0f10 | # | .DEBUG 0x0223,0x0f10,0x0005,0x0000,0x0057,0x9905,0x0000,0x0019
0db2 023b 0f12 | ; | .DEBUG 0x023b,0x0f12,0x0005,0x0000,0x0057,0x9905,0x0000,0x0024
0dba 0273 0f14 | s | .DEBUG 0x0273,0x0f14,0x0005,0x0000,0x0057,0x9905,0x0000,0x006f
0dc2 028b 0f16 | | .DEBUG 0x028b,0x0f16,0x0005,0x0000,0x0057,0x9905,0x0000,0x007e
0dca 02bb 0f1c | | .DEBUG 0x02bb,0x0f1c,0x0002,0x0000,0x0057,0x9905,0x0000,0x00ae
0dd2 0313 0f32 | 2| .DEBUG 0x0313,0x0f32,0x0002,0x0000,0x0057,0x9905,0x0000,0x012a
0dda 032b 0f3c | + <| .DEBUG 0x032b,0x0f3c,0x0002,0x0000,0x0057,0x9905,0x0000,0x0155
0de2 03bb 0fb0 | | .DEBUG 0x03bb,0x0fb0,0x0001,0x0000,0x0057,0x9905,0x0000,0x01f2
0dea 0413 0fca | | .DEBUG 0x0413,0x0fca,0x0001,0x0000,0x0057,0x9905,0x0000,0x0291
0df2 0513 100c | | .DEBUG 0x0513,0x100c,0x0001,0x0000,0x0057,0x9905,0x0000,0x03ef
0dfa 05cb 1040 | @| .DEBUG 0x05cb,0x1040,0x0001,0x0000,0x0057,0x9905,0x0000,0x0538
0e02 076b 10f4 | k | .DEBUG 0x076b,0x10f4,0x0001,0x0000,0x0057,0x9905,0x0000,0x07b0
0e0a 07eb 1120 | | .DEBUG 0x07eb,0x1120,0x0001,0x0000,0x0057,0x9905,0x0000,0x0888
0e12 091b 119c | | .DEBUG 0x091b,0x119c,0x0001,0x0000,0x0057,0x9905,0x0000,0x0a70
0e1a 093b 11aa | ; | .DEBUG 0x093b,0x11aa,0x0001,0x0000,0x0057,0x9905,0x0000,0x0ab3
0e22 0a1b 1210 | | .DEBUG 0x0a1b,0x1210,0x0001,0x0000,0x0057,0x9905,0x0000,0x0c19
0e2a 0a7b 1230 | { 0| .DEBUG 0x0a7b,0x1230,0x0001,0x0000,0x0057,0x9905,0x0000,0x0cb1
0e32 0adb 1256 | V| .DEBUG 0x0adb,0x1256,0x0001,0x0000,0x0057,0x9905,0x0000,0x0d5a
0e3a ; --------------------------------------------------------------------------------------
0e3a ; Debug3 Subtable 0x0
0e3a ; --------------------------------------------------------------------------------------
0e3a 0004 0000 | | .DBG3TAB 0x0004,0x0000
0e3c 000b ffff | | .CONST 0x000b,0xffff
0e3e 000d fffe | | .CONST 0x000d,0xfffe
0e40 000f fffd | | .CONST 0x000f,0xfffd
0e42 0011 fffc | | .CONST 0x0011,0xfffc
0e44 ; --------------------------------------------------------------------------------------
0e44 ; Debug3 Subtable 0x1
0e44 ; --------------------------------------------------------------------------------------
0e44 001c 0000 | | .DBG3TAB 0x001c,0x0000
0e46 0014 ffff | | .CONST 0x0014,0xffff
0e48 0015 fffe | | .CONST 0x0015,0xfffe
0e4a 0016 fffd | | .CONST 0x0016,0xfffd
0e4c 001e fffc | | .CONST 0x001e,0xfffc
0e4e 002b fffb | + | .CONST 0x002b,0xfffb
0e50 002e fffa | . | .CONST 0x002e,0xfffa
0e52 0034 fff9 | 4 | .CONST 0x0034,0xfff9
0e54 003a fff8 | : | .CONST 0x003a,0xfff8
0e56 0040 fff7 | @ | .CONST 0x0040,0xfff7
0e58 0059 fff6 | Y | .CONST 0x0059,0xfff6
0e5a 0064 fff5 | d | .CONST 0x0064,0xfff5
0e5c 0066 fff4 | f | .CONST 0x0066,0xfff4
0e5e 0068 fff3 | h | .CONST 0x0068,0xfff3
0e60 006a fff2 | j | .CONST 0x006a,0xfff2
0e62 006c fff1 | l | .CONST 0x006c,0xfff1
0e64 006e fff0 | n | .CONST 0x006e,0xfff0
0e66 0070 ffef | p | .CONST 0x0070,0xffef
0e68 0072 ffee | r | .CONST 0x0072,0xffee
0e6a 0074 ffed | t | .CONST 0x0074,0xffed
0e6c 0076 ffec | v | .CONST 0x0076,0xffec
0e6e 0078 ffeb | x | .CONST 0x0078,0xffeb
0e70 007a ffea | z | .CONST 0x007a,0xffea
0e72 007c ffe9 | | | .CONST 0x007c,0xffe9
0e74 007e ffe8 | ~ | .CONST 0x007e,0xffe8
0e76 0080 ffe7 | | .CONST 0x0080,0xffe7
0e78 0082 ffe6 | | .CONST 0x0082,0xffe6
0e7a 0084 ffe5 | | .CONST 0x0084,0xffe5
0e7c 0086 ffe4 | | .CONST 0x0086,0xffe4
0e7e ; --------------------------------------------------------------------------------------
0e7e ; Debug3 Subtable 0x2
0e7e ; --------------------------------------------------------------------------------------
0e7e 0001 0006 | | .DBG3TAB 0x0001,0x0006
0e80 0093 ffff | | .CONST 0x0093,0xffff
0e82 0095 0001 | | .CONST 0x0095,0x0001
0e84 009b 0002 | | .CONST 0x009b,0x0002
0e86 00a0 0003 | | .CONST 0x00a0,0x0003
0e88 00a7 0004 | | .CONST 0x00a7,0x0004
0e8a 00ab 0005 | | .CONST 0x00ab,0x0005
0e8c 00b3 0006 | | .CONST 0x00b3,0x0006
0e8e ; --------------------------------------------------------------------------------------
0e8e ; Debug3 Subtable 0x3
0e8e ; --------------------------------------------------------------------------------------
0e8e 0004 001d | | .DBG3TAB 0x0004,0x001d
0e90 00c3 ffff | | .CONST 0x00c3,0xffff
0e92 00c5 fffe | | .CONST 0x00c5,0xfffe
0e94 00c9 fffd | | .CONST 0x00c9,0xfffd
0e96 00cb fffc | | .CONST 0x00cb,0xfffc
0e98 00cd 0001 | | .CONST 0x00cd,0x0001
0e9a 00d3 0002 | | .CONST 0x00d3,0x0002
0e9c 00da 0003 | | .CONST 0x00da,0x0003
0e9e 00dd 0004 | | .CONST 0x00dd,0x0004
0ea0 00df 0005 | | .CONST 0x00df,0x0005
0ea2 00e0 0006 | | .CONST 0x00e0,0x0006
0ea4 00e5 0007 | | .CONST 0x00e5,0x0007
0ea6 00e8 0008 | | .CONST 0x00e8,0x0008
0ea8 00e9 0009 | | .CONST 0x00e9,0x0009
0eaa 00ec 000a | | .CONST 0x00ec,0x000a
0eac 00f4 000b | | .CONST 0x00f4,0x000b
0eae 00fa 000c | | .CONST 0x00fa,0x000c
0eb0 00ff 000d | | .CONST 0x00ff,0x000d
0eb2 0103 000e | | .CONST 0x0103,0x000e
0eb4 010c 000f | | .CONST 0x010c,0x000f
0eb6 0112 0010 | | .CONST 0x0112,0x0010
0eb8 0116 0011 | | .CONST 0x0116,0x0011
0eba 0120 0012 | | .CONST 0x0120,0x0012
0ebc 0124 0013 | $ | .CONST 0x0124,0x0013
0ebe 0128 0014 | ( | .CONST 0x0128,0x0014
0ec0 012e 0015 | . | .CONST 0x012e,0x0015
0ec2 0135 0016 | 5 | .CONST 0x0135,0x0016
0ec4 013a 0017 | : | .CONST 0x013a,0x0017
0ec6 013e 0018 | > | .CONST 0x013e,0x0018
0ec8 0146 0019 | F | .CONST 0x0146,0x0019
0eca 014a 001a | J | .CONST 0x014a,0x001a
0ecc 0151 001b | Q | .CONST 0x0151,0x001b
0ece 0155 001c | U | .CONST 0x0155,0x001c
0ed0 015d 001d | ] | .CONST 0x015d,0x001d
0ed2 ; --------------------------------------------------------------------------------------
0ed2 ; Debug3 Subtable 0x4
0ed2 ; --------------------------------------------------------------------------------------
0ed2 0003 0018 | | .DBG3TAB 0x0003,0x0018
0ed4 016b ffff | k | .CONST 0x016b,0xffff
0ed6 016d fffe | m | .CONST 0x016d,0xfffe
0ed8 016f fffd | o | .CONST 0x016f,0xfffd
0eda 0173 0001 | s | .CONST 0x0173,0x0001
0edc 017a 0002 | z | .CONST 0x017a,0x0002
0ede 017c 0003 | | | .CONST 0x017c,0x0003
0ee0 017d 0004 | } | .CONST 0x017d,0x0004
0ee2 0182 0005 | | .CONST 0x0182,0x0005
0ee4 0183 0006 | | .CONST 0x0183,0x0006
0ee6 0188 0007 | | .CONST 0x0188,0x0007
0ee8 018e 0008 | | .CONST 0x018e,0x0008
0eea 0191 0009 | | .CONST 0x0191,0x0009
0eec 0199 000a | | .CONST 0x0199,0x000a
0eee 01a6 000b | | .CONST 0x01a6,0x000b
0ef0 01ab 000c | | .CONST 0x01ab,0x000c
0ef2 01ad 000d | | .CONST 0x01ad,0x000d
0ef4 01b0 000e | | .CONST 0x01b0,0x000e
0ef6 01bb 000f | | .CONST 0x01bb,0x000f
0ef8 01c6 0010 | | .CONST 0x01c6,0x0010
0efa 01ca 0011 | | .CONST 0x01ca,0x0011
0efc 01d4 0012 | | .CONST 0x01d4,0x0012
0efe 01db 0013 | | .CONST 0x01db,0x0013
0f00 01e0 0014 | | .CONST 0x01e0,0x0014
0f02 01e6 0015 | | .CONST 0x01e6,0x0015
0f04 01ec 0016 | | .CONST 0x01ec,0x0016
0f06 01f1 0017 | | .CONST 0x01f1,0x0017
0f08 01f5 0018 | | .CONST 0x01f5,0x0018
0f0a ; --------------------------------------------------------------------------------------
0f0a ; Debug3 Subtable 0x5
0f0a ; --------------------------------------------------------------------------------------
0f0a 0001 0001 | | .DBG3TAB 0x0001,0x0001
0f0c 0203 ffff | | .CONST 0x0203,0xffff
0f0e 0207 0001 | | .CONST 0x0207,0x0001
0f10 ; --------------------------------------------------------------------------------------
0f10 ; Debug3 Subtable 0x6
0f10 ; --------------------------------------------------------------------------------------
0f10 0000 0000 | | .DBG3TAB 0x0000,0x0000
0f12 ; --------------------------------------------------------------------------------------
0f12 ; Debug3 Subtable 0x7
0f12 ; --------------------------------------------------------------------------------------
0f12 0000 0000 | | .DBG3TAB 0x0000,0x0000
0f14 ; --------------------------------------------------------------------------------------
0f14 ; Debug3 Subtable 0x8
0f14 ; --------------------------------------------------------------------------------------
0f14 0000 0000 | | .DBG3TAB 0x0000,0x0000
0f16 ; --------------------------------------------------------------------------------------
0f16 ; Debug3 Subtable 0x9
0f16 ; --------------------------------------------------------------------------------------
0f16 0000 0002 | | .DBG3TAB 0x0000,0x0002
0f18 02ad 0401 | | .CONST 0x02ad,0x0401
0f1a 02ae 0001 | | .CONST 0x02ae,0x0001
0f1c ; --------------------------------------------------------------------------------------
0f1c ; Debug3 Subtable 0xa
0f1c ; --------------------------------------------------------------------------------------
0f1c 0000 000a | | .DBG3TAB 0x0000,0x000a
0f1e 02bb 0001 | | .CONST 0x02bb,0x0001
0f20 02cd 0002 | | .CONST 0x02cd,0x0002
0f22 02d9 0003 | | .CONST 0x02d9,0x0003
0f24 02db 0004 | | .CONST 0x02db,0x0004
0f26 02e7 0005 | | .CONST 0x02e7,0x0005
0f28 02e9 0006 | | .CONST 0x02e9,0x0006
0f2a 02f8 0007 | | .CONST 0x02f8,0x0007
0f2c 02fa 0008 | | .CONST 0x02fa,0x0008
0f2e 0303 0009 | | .CONST 0x0303,0x0009
0f30 0305 000a | | .CONST 0x0305,0x000a
0f32 ; --------------------------------------------------------------------------------------
0f32 ; Debug3 Subtable 0xb
0f32 ; --------------------------------------------------------------------------------------
0f32 0002 0002 | | .DBG3TAB 0x0002,0x0002
0f34 0313 ffff | | .CONST 0x0313,0xffff
0f36 0314 fffe | | .CONST 0x0314,0xfffe
0f38 0316 0001 | | .CONST 0x0316,0x0001
0f3a 0322 0002 | " | .CONST 0x0322,0x0002
0f3c ; --------------------------------------------------------------------------------------
0f3c ; Debug3 Subtable 0xc
0f3c ; --------------------------------------------------------------------------------------
0f3c 0005 0034 | 4| .DBG3TAB 0x0005,0x0034
0f3e 032b ffff | + | .CONST 0x032b,0xffff
0f40 032c fffe | , | .CONST 0x032c,0xfffe
0f42 032d fffd | - | .CONST 0x032d,0xfffd
0f44 032e 0401 | . | .CONST 0x032e,0x0401
0f46 0331 fffd | 1 | .CONST 0x0331,0xfffd
0f48 0332 fffc | 2 | .CONST 0x0332,0xfffc
0f4a 0337 0001 | 7 | .CONST 0x0337,0x0001
0f4c 0339 0801 | 9 | .CONST 0x0339,0x0801
0f4e 033b 0c01 | ; | .CONST 0x033b,0x0c01
0f50 033d 0c02 | = | .CONST 0x033d,0x0c02
0f52 033e 0c03 | > | .CONST 0x033e,0x0c03
0f54 033f 0c04 | ? | .CONST 0x033f,0x0c04
0f56 0341 0801 | A | .CONST 0x0341,0x0801
0f58 0348 0001 | H | .CONST 0x0348,0x0001
0f5a 034a 0002 | J | .CONST 0x034a,0x0002
0f5c 034c 0003 | L | .CONST 0x034c,0x0003
0f5e 0351 1001 | Q | .CONST 0x0351,0x1001
0f60 0353 1002 | S | .CONST 0x0353,0x1002
0f62 0355 1003 | U | .CONST 0x0355,0x1003
0f64 035a 0003 | Z | .CONST 0x035a,0x0003
0f66 035b 0004 | [ | .CONST 0x035b,0x0004
0f68 035c 1401 | \ | .CONST 0x035c,0x1401
0f6a 035f 0004 | _ | .CONST 0x035f,0x0004
0f6c 0361 0006 | a | .CONST 0x0361,0x0006
0f6e 0362 1801 | b | .CONST 0x0362,0x1801
0f70 0364 0006 | d | .CONST 0x0364,0x0006
0f72 0367 1c01 | g | .CONST 0x0367,0x1c01
0f74 0369 1c02 | i | .CONST 0x0369,0x1c02
0f76 036b 1c03 | k | .CONST 0x036b,0x1c03
0f78 036f 1c04 | o | .CONST 0x036f,0x1c04
0f7a 0373 1c05 | s | .CONST 0x0373,0x1c05
0f7c 0375 2001 | u | .CONST 0x0375,0x2001
0f7e 0377 2002 | w | .CONST 0x0377,0x2002
0f80 0378 2003 | x | .CONST 0x0378,0x2003
0f82 0379 2004 | y | .CONST 0x0379,0x2004
0f84 037b 1c05 | { | .CONST 0x037b,0x1c05
0f86 0385 2401 | $ | .CONST 0x0385,0x2401
0f88 0387 2402 | $ | .CONST 0x0387,0x2402
0f8a 0388 2403 | $ | .CONST 0x0388,0x2403
0f8c 0389 2404 | $ | .CONST 0x0389,0x2404
0f8e 038b 2004 | | .CONST 0x038b,0x2004
0f90 0399 1801 | | .CONST 0x0399,0x1801
0f92 039a 2801 | ( | .CONST 0x039a,0x2801
0f94 039d 1c06 | | .CONST 0x039d,0x1c06
0f96 039f 0007 | | .CONST 0x039f,0x0007
0f98 03a1 0008 | | .CONST 0x03a1,0x0008
0f9a 03a2 2c01 | , | .CONST 0x03a2,0x2c01
0f9c 03a5 0008 | | .CONST 0x03a5,0x0008
0f9e 03a6 0009 | | .CONST 0x03a6,0x0009
0fa0 03a7 3001 | 0 | .CONST 0x03a7,0x3001
0fa2 03a9 3002 | 0 | .CONST 0x03a9,0x3002
0fa4 03ab 3003 | 0 | .CONST 0x03ab,0x3003
0fa6 03ae 0009 | | .CONST 0x03ae,0x0009
0fa8 03af 0005 | | .CONST 0x03af,0x0005
0faa 03b0 3401 | 4 | .CONST 0x03b0,0x3401
0fac 03b2 0005 | | .CONST 0x03b2,0x0005
0fae 03b3 000a | | .CONST 0x03b3,0x000a
0fb0 ; --------------------------------------------------------------------------------------
0fb0 ; Debug3 Subtable 0xd
0fb0 ; --------------------------------------------------------------------------------------
0fb0 0007 0005 | | .DBG3TAB 0x0007,0x0005
0fb2 03bb ffff | | .CONST 0x03bb,0xffff
0fb4 03c2 fffe | | .CONST 0x03c2,0xfffe
0fb6 03ca fffd | | .CONST 0x03ca,0xfffd
0fb8 03cb fffc | | .CONST 0x03cb,0xfffc
0fba 03cc fffb | | .CONST 0x03cc,0xfffb
0fbc 03d1 fffa | | .CONST 0x03d1,0xfffa
0fbe 03d4 fff9 | | .CONST 0x03d4,0xfff9
0fc0 03d5 0001 | | .CONST 0x03d5,0x0001
0fc2 03e1 0002 | | .CONST 0x03e1,0x0002
0fc4 03e3 0003 | | .CONST 0x03e3,0x0003
0fc6 03e4 0004 | | .CONST 0x03e4,0x0004
0fc8 03e8 0005 | | .CONST 0x03e8,0x0005
0fca ; --------------------------------------------------------------------------------------
0fca ; Debug3 Subtable 0xe
0fca ; --------------------------------------------------------------------------------------
0fca 000a 0016 | | .DBG3TAB 0x000a,0x0016
0fcc 0413 ffff | | .CONST 0x0413,0xffff
0fce 0415 fffe | | .CONST 0x0415,0xfffe
0fd0 0416 fffd | | .CONST 0x0416,0xfffd
0fd2 041b fffc | | .CONST 0x041b,0xfffc
0fd4 041e fffb | | .CONST 0x041e,0xfffb
0fd6 041f fffa | | .CONST 0x041f,0xfffa
0fd8 0420 fff9 | | .CONST 0x0420,0xfff9
0fda 0426 fff8 | & | .CONST 0x0426,0xfff8
0fdc 042d fff7 | - | .CONST 0x042d,0xfff7
0fde 0432 fff6 | 2 | .CONST 0x0432,0xfff6
0fe0 0437 0001 | 7 | .CONST 0x0437,0x0001
0fe2 0438 0401 | 8 | .CONST 0x0438,0x0401
0fe4 043a 0402 | : | .CONST 0x043a,0x0402
0fe6 043b 0403 | ; | .CONST 0x043b,0x0403
0fe8 043c 0404 | < | .CONST 0x043c,0x0404
0fea 043d 0001 | = | .CONST 0x043d,0x0001
0fec 043f 0002 | ? | .CONST 0x043f,0x0002
0fee 0462 0003 | b | .CONST 0x0462,0x0003
0ff0 0464 0004 | d | .CONST 0x0464,0x0004
0ff2 0477 0005 | w | .CONST 0x0477,0x0005
0ff4 047d 0006 | } | .CONST 0x047d,0x0006
0ff6 0483 0007 | | .CONST 0x0483,0x0007
0ff8 0487 0008 | | .CONST 0x0487,0x0008
0ffa 0497 0009 | | .CONST 0x0497,0x0009
0ffc 04ba 000a | | .CONST 0x04ba,0x000a
0ffe 04bc 000b | | .CONST 0x04bc,0x000b
1000 04de 000c | | .CONST 0x04de,0x000c
1002 04e0 000d | | .CONST 0x04e0,0x000d
1004 04f3 000e | | .CONST 0x04f3,0x000e
1006 04f9 000f | | .CONST 0x04f9,0x000f
1008 04fe 0010 | | .CONST 0x04fe,0x0010
100a 0505 0011 | | .CONST 0x0505,0x0011
100c ; --------------------------------------------------------------------------------------
100c ; Debug3 Subtable 0xf
100c ; --------------------------------------------------------------------------------------
100c 0009 0010 | | .DBG3TAB 0x0009,0x0010
100e 0513 ffff | | .CONST 0x0513,0xffff
1010 0515 fffe | | .CONST 0x0515,0xfffe
1012 0516 fffd | | .CONST 0x0516,0xfffd
1014 0517 fffc | | .CONST 0x0517,0xfffc
1016 051c fffb | | .CONST 0x051c,0xfffb
1018 051f fffa | | .CONST 0x051f,0xfffa
101a 0522 fff9 | " | .CONST 0x0522,0xfff9
101c 0529 fff8 | ) | .CONST 0x0529,0xfff8
101e 052e fff7 | . | .CONST 0x052e,0xfff7
1020 0535 0001 | 5 | .CONST 0x0535,0x0001
1022 0538 0002 | 8 | .CONST 0x0538,0x0002
1024 053c 0003 | < | .CONST 0x053c,0x0003
1026 0543 0004 | C | .CONST 0x0543,0x0004
1028 0549 0005 | I | .CONST 0x0549,0x0005
102a 054e 0006 | N | .CONST 0x054e,0x0006
102c 054f 0007 | O | .CONST 0x054f,0x0007
102e 0575 0008 | u | .CONST 0x0575,0x0008
1030 0577 0009 | w | .CONST 0x0577,0x0009
1032 058c 000a | | .CONST 0x058c,0x000a
1034 0590 000b | | .CONST 0x0590,0x000b
1036 0599 000c | | .CONST 0x0599,0x000c
1038 05a0 000d | | .CONST 0x05a0,0x000d
103a 05a3 000e | | .CONST 0x05a3,0x000e
103c 05ae 000f | | .CONST 0x05ae,0x000f
103e 05b8 0010 | | .CONST 0x05b8,0x0010
1040 ; --------------------------------------------------------------------------------------
1040 ; Debug3 Subtable 0x10
1040 ; --------------------------------------------------------------------------------------
1040 000d 004c | L| .DBG3TAB 0x000d,0x004c
1042 05cb ffff | | .CONST 0x05cb,0xffff
1044 05cc fffe | | .CONST 0x05cc,0xfffe
1046 05cd fffd | | .CONST 0x05cd,0xfffd
1048 05d2 fffc | | .CONST 0x05d2,0xfffc
104a 05d5 fffb | | .CONST 0x05d5,0xfffb
104c 05d7 fffa | | .CONST 0x05d7,0xfffa
104e 05dc fff9 | | .CONST 0x05dc,0xfff9
1050 05e2 fff8 | | .CONST 0x05e2,0xfff8
1052 05e3 fff7 | | .CONST 0x05e3,0xfff7
1054 05e4 fff6 | | .CONST 0x05e4,0xfff6
1056 05e7 fff5 | | .CONST 0x05e7,0xfff5
1058 05ed fff4 | | .CONST 0x05ed,0xfff4
105a 05f2 fff3 | | .CONST 0x05f2,0xfff3
105c 05f6 0001 | | .CONST 0x05f6,0x0001
105e 05fc 0002 | | .CONST 0x05fc,0x0002
1060 0600 0003 | | .CONST 0x0600,0x0003
1062 0603 0004 | | .CONST 0x0603,0x0004
1064 0605 0005 | | .CONST 0x0605,0x0005
1066 0608 0006 | | .CONST 0x0608,0x0006
1068 0609 0401 | | .CONST 0x0609,0x0401
106a 060a 0006 | | .CONST 0x060a,0x0006
106c 060b 0007 | | .CONST 0x060b,0x0007
106e 060c 0008 | | .CONST 0x060c,0x0008
1070 0610 0009 | | .CONST 0x0610,0x0009
1072 0613 000a | | .CONST 0x0613,0x000a
1074 061e 000b | | .CONST 0x061e,0x000b
1076 0621 000c | ! | .CONST 0x0621,0x000c
1078 0623 000d | # | .CONST 0x0623,0x000d
107a 0626 000e | & | .CONST 0x0626,0x000e
107c 0627 0801 | ' | .CONST 0x0627,0x0801
107e 0628 000e | ( | .CONST 0x0628,0x000e
1080 0629 000f | ) | .CONST 0x0629,0x000f
1082 062a 0010 | * | .CONST 0x062a,0x0010
1084 062d 0011 | - | .CONST 0x062d,0x0011
1086 0632 0012 | 2 | .CONST 0x0632,0x0012
1088 0635 0013 | 5 | .CONST 0x0635,0x0013
108a 0639 0014 | 9 | .CONST 0x0639,0x0014
108c 064e 0015 | N | .CONST 0x064e,0x0015
108e 0650 0016 | P | .CONST 0x0650,0x0016
1090 0654 0017 | T | .CONST 0x0654,0x0017
1092 0659 0018 | Y | .CONST 0x0659,0x0018
1094 067b 0019 | { | .CONST 0x067b,0x0019
1096 067d 001a | } | .CONST 0x067d,0x001a
1098 0692 001b | | .CONST 0x0692,0x001b
109a 0695 001c | | .CONST 0x0695,0x001c
109c 0698 001d | | .CONST 0x0698,0x001d
109e 0699 0c01 | | .CONST 0x0699,0x0c01
10a0 069a 001d | | .CONST 0x069a,0x001d
10a2 069b 001e | | .CONST 0x069b,0x001e
10a4 069d 001f | | .CONST 0x069d,0x001f
10a6 069e 0020 | | .CONST 0x069e,0x0020
10a8 06ae 0021 | !| .CONST 0x06ae,0x0021
10aa 06b0 0022 | "| .CONST 0x06b0,0x0022
10ac 06b3 0023 | #| .CONST 0x06b3,0x0023
10ae 06b5 0024 | $| .CONST 0x06b5,0x0024
10b0 06bc 0025 | %| .CONST 0x06bc,0x0025
10b2 06be 0026 | &| .CONST 0x06be,0x0026
10b4 06d0 0027 | '| .CONST 0x06d0,0x0027
10b6 06d3 0028 | (| .CONST 0x06d3,0x0028
10b8 06d6 0029 | )| .CONST 0x06d6,0x0029
10ba 06d7 1001 | | .CONST 0x06d7,0x1001
10bc 06d8 0029 | )| .CONST 0x06d8,0x0029
10be 06d9 002a | *| .CONST 0x06d9,0x002a
10c0 06db 002b | +| .CONST 0x06db,0x002b
10c2 06dc 002c | ,| .CONST 0x06dc,0x002c
10c4 0700 002d | -| .CONST 0x0700,0x002d
10c6 0702 002e | .| .CONST 0x0702,0x002e
10c8 0714 002f | /| .CONST 0x0714,0x002f
10ca 0717 0030 | 0| .CONST 0x0717,0x0030
10cc 071a 0031 | 1| .CONST 0x071a,0x0031
10ce 071b 1401 | | .CONST 0x071b,0x1401
10d0 071c 0031 | 1| .CONST 0x071c,0x0031
10d2 071d 0032 | 2| .CONST 0x071d,0x0032
10d4 0720 0033 | 3| .CONST 0x0720,0x0033
10d6 0722 0034 | " 4| .CONST 0x0722,0x0034
10d8 0728 0035 | ( 5| .CONST 0x0728,0x0035
10da 072b 0036 | + 6| .CONST 0x072b,0x0036
10dc 072c 1801 | , | .CONST 0x072c,0x1801
10de 072d 0036 | - 6| .CONST 0x072d,0x0036
10e0 072e 0037 | . 7| .CONST 0x072e,0x0037
10e2 0734 0038 | 4 8| .CONST 0x0734,0x0038
10e4 0737 0039 | 7 9| .CONST 0x0737,0x0039
10e6 073d 003a | = :| .CONST 0x073d,0x003a
10e8 073f 003b | ? ;| .CONST 0x073f,0x003b
10ea 0754 003c | T <| .CONST 0x0754,0x003c
10ec 0756 003d | V =| .CONST 0x0756,0x003d
10ee 0759 003e | Y >| .CONST 0x0759,0x003e
10f0 075c 003f | \ ?| .CONST 0x075c,0x003f
10f2 075e 0040 | ^ @| .CONST 0x075e,0x0040
10f4 ; --------------------------------------------------------------------------------------
10f4 ; Debug3 Subtable 0x11
10f4 ; --------------------------------------------------------------------------------------
10f4 0005 0010 | | .DBG3TAB 0x0005,0x0010
10f6 076b ffff | k | .CONST 0x076b,0xffff
10f8 076f fffe | o | .CONST 0x076f,0xfffe
10fa 0773 fffd | s | .CONST 0x0773,0xfffd
10fc 0778 fffc | x | .CONST 0x0778,0xfffc
10fe 0779 fffb | y | .CONST 0x0779,0xfffb
1100 077b 0002 | { | .CONST 0x077b,0x0002
1102 0782 0003 | | .CONST 0x0782,0x0003
1104 0786 0004 | | .CONST 0x0786,0x0004
1106 078c 0005 | | .CONST 0x078c,0x0005
1108 0792 0006 | | .CONST 0x0792,0x0006
110a 0797 0007 | | .CONST 0x0797,0x0007
110c 079c 0008 | | .CONST 0x079c,0x0008
110e 07a3 0009 | | .CONST 0x07a3,0x0009
1110 07af 000a | | .CONST 0x07af,0x000a
1112 07c2 000b | | .CONST 0x07c2,0x000b
1114 07c4 000c | | .CONST 0x07c4,0x000c
1116 07c9 000d | | .CONST 0x07c9,0x000d
1118 07ce 000e | | .CONST 0x07ce,0x000e
111a 07d6 000f | | .CONST 0x07d6,0x000f
111c 07de 0010 | | .CONST 0x07de,0x0010
111e 07e2 0001 | | .CONST 0x07e2,0x0001
1120 ; --------------------------------------------------------------------------------------
1120 ; Debug3 Subtable 0x12
1120 ; --------------------------------------------------------------------------------------
1120 000e 002f | /| .DBG3TAB 0x000e,0x002f
1122 07eb ffff | | .CONST 0x07eb,0xffff
1124 07ef fffe | | .CONST 0x07ef,0xfffe
1126 07f0 fffd | | .CONST 0x07f0,0xfffd
1128 07f5 fffc | | .CONST 0x07f5,0xfffc
112a 07f8 fffb | | .CONST 0x07f8,0xfffb
112c 07fa fffa | | .CONST 0x07fa,0xfffa
112e 07fb fff9 | | .CONST 0x07fb,0xfff9
1130 07fc fff8 | | .CONST 0x07fc,0xfff8
1132 07fd fff7 | | .CONST 0x07fd,0xfff7
1134 07fe fff6 | | .CONST 0x07fe,0xfff6
1136 07ff fff5 | | .CONST 0x07ff,0xfff5
1138 0804 fff4 | | .CONST 0x0804,0xfff4
113a 0805 fff3 | | .CONST 0x0805,0xfff3
113c 0809 fff2 | | .CONST 0x0809,0xfff2
113e 0810 0001 | | .CONST 0x0810,0x0001
1140 0814 0002 | | .CONST 0x0814,0x0002
1142 081b 0004 | | .CONST 0x081b,0x0004
1144 0822 0005 | " | .CONST 0x0822,0x0005
1146 0826 0006 | & | .CONST 0x0826,0x0006
1148 082f 0007 | / | .CONST 0x082f,0x0007
114a 0833 0003 | 3 | .CONST 0x0833,0x0003
114c 0837 0008 | 7 | .CONST 0x0837,0x0008
114e 083a 0009 | : | .CONST 0x083a,0x0009
1150 083c 000a | < | .CONST 0x083c,0x000a
1152 0842 000b | B | .CONST 0x0842,0x000b
1154 0843 0401 | C | .CONST 0x0843,0x0401
1156 0846 000b | F | .CONST 0x0846,0x000b
1158 0847 000c | G | .CONST 0x0847,0x000c
115a 084b 000d | K | .CONST 0x084b,0x000d
115c 084e 000e | N | .CONST 0x084e,0x000e
115e 0857 000f | W | .CONST 0x0857,0x000f
1160 085a 0010 | Z | .CONST 0x085a,0x0010
1162 085b 0011 | [ | .CONST 0x085b,0x0011
1164 0862 0012 | b | .CONST 0x0862,0x0012
1166 0864 0013 | d | .CONST 0x0864,0x0013
1168 0879 0014 | y | .CONST 0x0879,0x0014
116a 087c 0015 | | | .CONST 0x087c,0x0015
116c 087d 0016 | } | .CONST 0x087d,0x0016
116e 089e 0017 | | .CONST 0x089e,0x0017
1170 08a0 0018 | | .CONST 0x08a0,0x0018
1172 08a6 0019 | | .CONST 0x08a6,0x0019
1174 08a7 001a | | .CONST 0x08a7,0x001a
1176 08a9 001b | | .CONST 0x08a9,0x001b
1178 08af 001c | | .CONST 0x08af,0x001c
117a 08b2 001f | | .CONST 0x08b2,0x001f
117c 08b6 001e | | .CONST 0x08b6,0x001e
117e 08bd 0020 | | .CONST 0x08bd,0x0020
1180 08c3 0021 | !| .CONST 0x08c3,0x0021
1182 08cc 0022 | "| .CONST 0x08cc,0x0022
1184 08cd 0801 | | .CONST 0x08cd,0x0801
1186 08d0 0022 | "| .CONST 0x08d0,0x0022
1188 08d1 0023 | #| .CONST 0x08d1,0x0023
118a 08e6 0024 | $| .CONST 0x08e6,0x0024
118c 08e8 0025 | %| .CONST 0x08e8,0x0025
118e 08f5 0026 | &| .CONST 0x08f5,0x0026
1190 08fe 0027 | '| .CONST 0x08fe,0x0027
1192 0906 0028 | (| .CONST 0x0906,0x0028
1194 0907 0c01 | | .CONST 0x0907,0x0c01
1196 090a 0028 | (| .CONST 0x090a,0x0028
1198 090b 0029 | )| .CONST 0x090b,0x0029
119a 090f 001d | | .CONST 0x090f,0x001d
119c ; --------------------------------------------------------------------------------------
119c ; Debug3 Subtable 0x13
119c ; --------------------------------------------------------------------------------------
119c 0000 0006 | | .DBG3TAB 0x0000,0x0006
119e 091b 0001 | | .CONST 0x091b,0x0001
11a0 091e 0002 | | .CONST 0x091e,0x0002
11a2 0924 0003 | $ | .CONST 0x0924,0x0003
11a4 0927 0004 | ' | .CONST 0x0927,0x0004
11a6 092a 0005 | * | .CONST 0x092a,0x0005
11a8 0930 0006 | 0 | .CONST 0x0930,0x0006
11aa ; --------------------------------------------------------------------------------------
11aa ; Debug3 Subtable 0x14
11aa ; --------------------------------------------------------------------------------------
11aa 0005 002d | -| .DBG3TAB 0x0005,0x002d
11ac 093b ffff | ; | .CONST 0x093b,0xffff
11ae 093f fffe | ? | .CONST 0x093f,0xfffe
11b0 0941 fffd | A | .CONST 0x0941,0xfffd
11b2 0942 fffc | B | .CONST 0x0942,0xfffc
11b4 0946 fffb | F | .CONST 0x0946,0xfffb
11b6 094a 0001 | J | .CONST 0x094a,0x0001
11b8 094b 0002 | K | .CONST 0x094b,0x0002
11ba 094f 0003 | O | .CONST 0x094f,0x0003
11bc 0957 0004 | W | .CONST 0x0957,0x0004
11be 0958 0005 | X | .CONST 0x0958,0x0005
11c0 095f 0006 | _ | .CONST 0x095f,0x0006
11c2 0963 0007 | c | .CONST 0x0963,0x0007
11c4 096d 0008 | m | .CONST 0x096d,0x0008
11c6 0973 0009 | s | .CONST 0x0973,0x0009
11c8 0979 000a | y | .CONST 0x0979,0x000a
11ca 0989 0401 | | .CONST 0x0989,0x0401
11cc 098d 000a | | .CONST 0x098d,0x000a
11ce 0995 000b | | .CONST 0x0995,0x000b
11d0 099c 000c | | .CONST 0x099c,0x000c
11d2 09ab 000d | | .CONST 0x09ab,0x000d
11d4 09b4 000e | | .CONST 0x09b4,0x000e
11d6 09b7 000f | | .CONST 0x09b7,0x000f
11d8 09c1 0010 | | .CONST 0x09c1,0x0010
11da 09c8 0011 | | .CONST 0x09c8,0x0011
11dc 09ca 0012 | | .CONST 0x09ca,0x0012
11de 09cc 0013 | | .CONST 0x09cc,0x0013
11e0 09d0 0801 | | .CONST 0x09d0,0x0801
11e2 09d2 0802 | | .CONST 0x09d2,0x0802
11e4 09d3 0803 | | .CONST 0x09d3,0x0803
11e6 09d4 0804 | | .CONST 0x09d4,0x0804
11e8 09d6 0013 | | .CONST 0x09d6,0x0013
11ea 09d7 0014 | | .CONST 0x09d7,0x0014
11ec 09da 0015 | | .CONST 0x09da,0x0015
11ee 09de 0c01 | | .CONST 0x09de,0x0c01
11f0 09e0 0c02 | | .CONST 0x09e0,0x0c02
11f2 09e1 0c03 | | .CONST 0x09e1,0x0c03
11f4 09e2 0c04 | | .CONST 0x09e2,0x0c04
11f6 09e4 0015 | | .CONST 0x09e4,0x0015
11f8 09e7 0016 | | .CONST 0x09e7,0x0016
11fa 09ec 0017 | | .CONST 0x09ec,0x0017
11fc 09f6 0018 | | .CONST 0x09f6,0x0018
11fe 09f8 0019 | | .CONST 0x09f8,0x0019
1200 09fc 1001 | | .CONST 0x09fc,0x1001
1202 09fe 1002 | | .CONST 0x09fe,0x1002
1204 09ff 1003 | | .CONST 0x09ff,0x1003
1206 0a00 1004 | | .CONST 0x0a00,0x1004
1208 0a02 0019 | | .CONST 0x0a02,0x0019
120a 0a03 001a | | .CONST 0x0a03,0x001a
120c 0a06 001b | | .CONST 0x0a06,0x001b
120e 0a10 001c | | .CONST 0x0a10,0x001c
1210 ; --------------------------------------------------------------------------------------
1210 ; Debug3 Subtable 0x15
1210 ; --------------------------------------------------------------------------------------
1210 0005 000a | | .DBG3TAB 0x0005,0x000a
1212 0a1b ffff | | .CONST 0x0a1b,0xffff
1214 0a1f fffe | | .CONST 0x0a1f,0xfffe
1216 0a24 fffd | $ | .CONST 0x0a24,0xfffd
1218 0a25 fffc | % | .CONST 0x0a25,0xfffc
121a 0a26 fffb | & | .CONST 0x0a26,0xfffb
121c 0a2b 0002 | + | .CONST 0x0a2b,0x0002
121e 0a33 0003 | 3 | .CONST 0x0a33,0x0003
1220 0a37 0004 | 7 | .CONST 0x0a37,0x0004
1222 0a3d 0005 | = | .CONST 0x0a3d,0x0005
1224 0a44 0006 | D | .CONST 0x0a44,0x0006
1226 0a50 0007 | P | .CONST 0x0a50,0x0007
1228 0a63 0008 | c | .CONST 0x0a63,0x0008
122a 0a65 0009 | e | .CONST 0x0a65,0x0009
122c 0a6d 000a | m | .CONST 0x0a6d,0x000a
122e 0a71 0001 | q | .CONST 0x0a71,0x0001
1230 ; --------------------------------------------------------------------------------------
1230 ; Debug3 Subtable 0x16
1230 ; --------------------------------------------------------------------------------------
1230 0002 0010 | | .DBG3TAB 0x0002,0x0010
1232 0a7b ffff | { | .CONST 0x0a7b,0xffff
1234 0a7f fffe | | .CONST 0x0a7f,0xfffe
1236 0a80 0001 | | .CONST 0x0a80,0x0001
1238 0a83 0002 | | .CONST 0x0a83,0x0002
123a 0a89 0003 | | .CONST 0x0a89,0x0003
123c 0a8f 0004 | | .CONST 0x0a8f,0x0004
123e 0a98 0005 | | .CONST 0x0a98,0x0005
1240 0a9f 0006 | | .CONST 0x0a9f,0x0006
1242 0aa5 0007 | | .CONST 0x0aa5,0x0007
1244 0aac 0008 | | .CONST 0x0aac,0x0008
1246 0ab4 0009 | | .CONST 0x0ab4,0x0009
1248 0ab8 000a | | .CONST 0x0ab8,0x000a
124a 0abc 000b | | .CONST 0x0abc,0x000b
124c 0ac2 000c | | .CONST 0x0ac2,0x000c
124e 0ac6 000d | | .CONST 0x0ac6,0x000d
1250 0ac7 000e | | .CONST 0x0ac7,0x000e
1252 0acf 000f | | .CONST 0x0acf,0x000f
1254 0ad2 0010 | | .CONST 0x0ad2,0x0010
1256 ; --------------------------------------------------------------------------------------
1256 ; Debug3 Subtable 0x17
1256 ; --------------------------------------------------------------------------------------
1256 0007 001e | | .DBG3TAB 0x0007,0x001e
1258 0adb ffff | | .CONST 0x0adb,0xffff
125a 0ae0 fffe | | .CONST 0x0ae0,0xfffe
125c 0ae1 fffd | | .CONST 0x0ae1,0xfffd
125e 0ae2 fffc | | .CONST 0x0ae2,0xfffc
1260 0ae6 fffb | | .CONST 0x0ae6,0xfffb
1262 0ae7 fffa | | .CONST 0x0ae7,0xfffa
1264 0aed fff9 | | .CONST 0x0aed,0xfff9
1266 0af5 0001 | | .CONST 0x0af5,0x0001
1268 0afb 0002 | | .CONST 0x0afb,0x0002
126a 0b09 0003 | | .CONST 0x0b09,0x0003
126c 0b0d 0004 | | .CONST 0x0b0d,0x0004
126e 0b0e 0005 | | .CONST 0x0b0e,0x0005
1270 0b1c 0006 | | .CONST 0x0b1c,0x0006
1272 0b20 0007 | | .CONST 0x0b20,0x0007
1274 0b21 0008 | ! | .CONST 0x0b21,0x0008
1276 0b24 0009 | $ | .CONST 0x0b24,0x0009
1278 0b2b 000a | + | .CONST 0x0b2b,0x000a
127a 0b2f 000b | / | .CONST 0x0b2f,0x000b
127c 0b35 000c | 5 | .CONST 0x0b35,0x000c
127e 0b37 000d | 7 | .CONST 0x0b37,0x000d
1280 0b3c 000e | < | .CONST 0x0b3c,0x000e
1282 0b3f 000f | ? | .CONST 0x0b3f,0x000f
1284 0b46 0010 | F | .CONST 0x0b46,0x0010
1286 0b4c 0011 | L | .CONST 0x0b4c,0x0011
1288 0b55 0012 | U | .CONST 0x0b55,0x0012
128a 0b5a 0013 | Z | .CONST 0x0b5a,0x0013
128c 0b5e 0014 | ^ | .CONST 0x0b5e,0x0014
128e 0b61 0015 | a | .CONST 0x0b61,0x0015
1290 0b67 0016 | g | .CONST 0x0b67,0x0016
1292 0b70 0017 | p | .CONST 0x0b70,0x0017
1294 0b75 0018 | u | .CONST 0x0b75,0x0018
1296 0b7a 0019 | z | .CONST 0x0b7a,0x0019
1298 0b8d 001a | | .CONST 0x0b8d,0x001a
129a 0b8f 001b | | .CONST 0x0b8f,0x001b
129c 0b91 001c | | .CONST 0x0b91,0x001c
129e 0b96 001d | | .CONST 0x0b96,0x001d
12a0 0b9c 001e | | .CONST 0x0b9c,0x001e
12a2 0000 0000 | | .BLANK 0000[0x15e]