|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Notes: 00_class, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0ea8df
└─⟦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 02e0 | | .CONST 0x02e0 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0020 | | .CONST 0x0020 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0010 | | .CONST 0x0010 ; Number of locals
000b INIT_0008:
000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x0332,0x8000,0x0000,0x005a,0x8725,0x0000,0x0003
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xc,0xfffe
000e 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xe,0xfffd
0010 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x10,0xfffc
0012 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x12,0xfffb
0014 0007 | | Action Break_Optional ; Debug Table 0x0.0x5 = 0x14,0xfffa
0015 0007 | | Action Break_Optional ; Debug Table 0x0.0x6 = 0x15,0xfff9
0016 00bf | | Action Accept_Activation ; Debug Table 0x0.0x7 = 0x16,0xfff8
0017 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x0017,0x0344,0x8000,0x0000,0x005a,0x8ad5,0x0000,0x0021
; Debug Table 0x1.0x0 = 0x17,0xffff
0018 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0x1 = 0x18,0xfffe
0019 00c7 | | Action Elaborate_Subprogram
001a 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x2 = 0x1a,0xfffd
001b 00c7 | | Action Elaborate_Subprogram
001c 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x3 = 0x1c,0xfffc
001d 00c7 | | Action Elaborate_Subprogram
001e 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x4 = 0x1e,0xfffb
001f 00c7 | | Action Elaborate_Subprogram
0020 BODY_0008:
0020 00bc | | Action Signal_Activated
0021 00bb | | Action Signal_Completion
0022 0000 0000 | | .BLANK 0000[0x6]
0028 ; --------------------------------------------------------------------------------------
0028 ; SUBPROGRAM
0028 ; --------------------------------------------------------------------------------------
0028 002c | , | .CONST 0x002c ; Address of begin
0029 0004 | | .CONST 0x0004 ; Address of exception handler
002a 0002 | | .CONST 0x0002 ; Number of locals
002b INIT_0028:
002b 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x2 = .DEBUG 0x002b,0x0350,0x0001,0x0000,0x005a,0x8725,0x0000,0x0008
; Debug Table 0x2.0x0 = 0x2b,0xffff
002c BODY_0028:
002c 4801 |H | Short_Literal 0x1 ; Debug Table 0x2.0x1 = 0x2c,0x1
002d 4801 |H | Short_Literal 0x1
002e e001 | | Load 0x0,0x1
002f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0030 e002 | | Load 0x0,0x2
0031 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0032 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0033 0092 02a0 | | Action Push_String_Extended,0x2a0 ; "Command.Diana_Edit"
0035 e5ff | | Load 0x2,-0x1
0036 e003 | | Load 0x0,0x3
0037 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0038 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0039 0007 | | Action Break_Optional ; Debug Table 0x2.0x2 = 0x39,0x2
003a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x3 = 0x3a,0x401
003b 021d | | Execute Heap_Access,Is_Null
003c 7003 |p | Jump_Nonzero 0x40 ; Debug Table 0x2.0x4 = 0x3c,0x2
003d 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x5 = 0x3d,0x3
003e e004 | | Load 0x0,0x4
003f 180d | | Execute Package,Field_Execute,Field_Number 0xd
0040 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0041 0000 0000 | | .BLANK 0000[0x7]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004b | K | .CONST 0x004b ; Address of begin
0049 0004 | | .CONST 0x0004 ; Address of exception handler
004a 0001 | | .CONST 0x0001 ; Number of locals
004b BODY_0048:
004b INIT_0048:
004b 4803 |H | Short_Literal 0x3 ; Debug Table 0x3 = .DEBUG 0x004b,0x035e,0x0001,0x0000,0x005a,0x8725,0x0000,0x0011
; Debug Table 0x3.0x0 = 0x4b,0x1
004c e005 | | Load 0x0,0x5
004d 1815 | | Execute Package,Field_Execute,Field_Number 0x15
004e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
004f 0000 | | .XXX[0x1]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0053 | S | .CONST 0x0053 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0001 | | .CONST 0x0001 ; Number of locals
0053 BODY_0050:
0053 INIT_0050:
0053 4804 |H | Short_Literal 0x4 ; Debug Table 0x4 = .DEBUG 0x0053,0x0362,0x0001,0x0000,0x005a,0x8725,0x0000,0x0015
; Debug Table 0x4.0x0 = 0x53,0x1
0054 e005 | | Load 0x0,0x5
0055 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0056 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0057 0000 | | .XXX[0x1]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 008c | | .CONST 0x008c ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 000c | | .CONST 0x000c ; Number of locals
005b INIT_0058:
005b 0007 | | Action Break_Optional ; Debug Table 0x5 = .DEBUG 0x005b,0x0366,0x0001,0x0000,0x005a,0x8725,0x0000,0x0019
; Debug Table 0x5.0x0 = 0x5b,0xffff
005c 0007 | | Action Break_Optional ; Debug Table 0x5.0x1 = 0x5c,0xfffe
005d 0007 | | Action Break_Optional ; Debug Table 0x5.0x2 = 0x5d,0xfffd
005e e001 | | Load 0x0,0x1 ; Debug Table 0x5.0x3 = 0x5e,0xfffc
005f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0060 4802 |H | Short_Literal 0x2
0061 e006 | | Load 0x0,0x6
0062 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0063 e002 | | Load 0x0,0x2 ; Debug Table 0x5.0x4 = 0x63,0xfffb
0064 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0065 e002 | | Load 0x0,0x2 ; Debug Table 0x5.0x5 = 0x65,0xfffa
0066 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0067 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0068 00da | | Load_Top At_Offset_2 ; Debug Table 0x5.0x6 = 0x68,0xfff9
0069 01dd | | Execute Vector,First
006a 0aff | | Execute_Immediate Plus,-0x1
006b 0248 | H | Execute Discrete,Check_In_Integer
006c 00e2 | | Load_Encached Integer_Cache
006d 03f1 | | Declare_Variable Discrete,With_Value
006e 00db | | Load_Top At_Offset_3 ; Debug Table 0x5.0x7 = 0x6e,0xfff8
006f 01dd | | Execute Vector,First
0070 00e2 | | Load_Encached Integer_Cache
0071 03f1 | | Declare_Variable Discrete,With_Value
0072 e007 | | Load 0x0,0x7 ; Debug Table 0x5.0x8 = 0x72,0xfff7
0073 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0074 02c7 | | Declare_Variable Any
0075 487f |H | Short_Literal 0x7f
0076 e007 | | Load 0x0,0x7
0077 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0078 c407 | | Store 0x2,0x7
0079 e007 | | Load 0x0,0x7 ; Debug Table 0x5.0x9 = 0x79,0xfff6
007a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
007b 02c7 | | Declare_Variable Any
007c 4801 |H | Short_Literal 0x1
007d 00da | | Load_Top At_Offset_2
007e 0092 02a1 | | Action Push_String_Extended,0x2a1 ; "Standard"
0080 e007 | | Load 0x0,0x7
0081 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0082 c408 | | Store 0x2,0x8
0083 0007 | | Action Break_Optional ; Debug Table 0x5.0xa = 0x83,0xfff5
0084 029f 0103 | | Declare_Subprogram INIT_0100,For_Call ; Debug Table 0x5.0xb = 0x84,0xfff4
0086 029f 0183 | | Declare_Subprogram INIT_0180,For_Call ; Debug Table 0x5.0xc = 0x86,0xfff3
0088 029f 01fb | | Declare_Subprogram INIT_01f8,For_Call ; Debug Table 0x5.0xd = 0x88,0xfff2
008a 029f 0213 | | Declare_Subprogram INIT_0210,For_Call ; Debug Table 0x5.0xe = 0x8a,0xfff1
008c BODY_0058:
008c e008 | | Load 0x0,0x8 ; Debug Table 0x5.0xf = 0x8c,0x1
008d 181b | | Execute Package,Field_Execute,Field_Number 0x1b
008e e002 | | Load 0x0,0x2 ; Debug Table 0x5.0x10 = 0x8e,0x2
008f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0090 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0091 e002 | | Load 0x0,0x2
0092 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0093 e001 | | Load 0x0,0x1
0094 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0095 4802 |H | Short_Literal 0x2
0096 e006 | | Load 0x0,0x6
0097 180e | | Execute Package,Field_Execute,Field_Number 0xe
0098 c403 | | Store 0x2,0x3
0099 c404 | | Store 0x2,0x4
009a 4801 |H | Short_Literal 0x1 ; Debug Table 0x5.0x11 = 0x9a,0x3
009b 4800 |H | Short_Literal 0x0
009c e5fe | | Load 0x2,-0x2
009d e008 | | Load 0x0,0x8
009e 1812 | | Execute Package,Field_Execute,Field_Number 0x12
009f e009 | | Load 0x0,0x9 ; Debug Table 0x5.0x12 = 0x9f,0x4
00a0 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00a1 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00a2 e008 | | Load 0x0,0x8 ; Debug Table 0x5.0x13 = 0xa2,0x5
00a3 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
00a4 180d | | Execute Package,Field_Execute,Field_Number 0xd
00a5 4800 |H | Short_Literal 0x0 ; Debug Table 0x5.0x14 = 0xa5,0x6
00a6 e009 | | Load 0x0,0x9
00a7 1b19 | | Execute Package,Field_Read,Field_Number 0x19
00a8 180e | | Execute Package,Field_Execute,Field_Number 0xe
00a9 e403 | | Load 0x2,0x3 ; Debug Table 0x5.0x15 = 0xa9,0x7
00aa 840c | | Call 0x2,0xc
00ab 4801 |H | Short_Literal 0x1 ; Debug Table 0x5.0x16 = 0xab,0x8
00ac e009 | | Load 0x0,0x9
00ad 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00ae 180d | | Execute Package,Field_Execute,Field_Number 0xd
00af 4801 |H | Short_Literal 0x1 ; Debug Table 0x5.0x17 = 0xaf,0x9
00b0 e009 | | Load 0x0,0x9
00b1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00b2 180d | | Execute Package,Field_Execute,Field_Number 0xd
00b3 0092 02a2 | | Action Push_String_Extended,0x2a2 ; "procedure "
; Debug Table 0x5.0x18 = 0xb3,0xa
00b5 e009 | | Load 0x0,0x9
00b6 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00b7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00b8 e5ff | | Load 0x2,-0x1 ; Debug Table 0x5.0x19 = 0xb8,0xb
00b9 e009 | | Load 0x0,0x9
00ba 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00bb 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00bc 0092 02a3 | | Action Push_String_Extended,0x2a3 ; " is"
; Debug Table 0x5.0x1a = 0xbc,0xc
00be e009 | | Load 0x0,0x9
00bf 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00c0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00c1 4801 |H | Short_Literal 0x1 ; Debug Table 0x5.0x1b = 0xc1,0xd
00c2 e009 | | Load 0x0,0x9
00c3 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00c4 180d | | Execute Package,Field_Execute,Field_Number 0xd
00c5 4801 |H | Short_Literal 0x1 ; Debug Table 0x5.0x1c = 0xc5,0xe
00c6 e009 | | Load 0x0,0x9
00c7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00c8 180d | | Execute Package,Field_Execute,Field_Number 0xd
00c9 782b |x+ | Jump 0xf5
00ca e405 | | Load 0x2,0x5 ; Debug Table 0x5.0x1d = 0xca,0x10
00cb 0a01 | | Execute_Immediate Plus,0x1
00cc 0248 | H | Execute Discrete,Check_In_Integer
00cd a406 | | Store_Unchecked 0x2,0x6
00ce 4800 |H | Short_Literal 0x0 ; Debug Table 0x5.0x1e = 0xce,0x11
00cf e406 | | Load 0x2,0x6
00d0 e402 | | Load 0x2,0x2
00d1 01dc | | Execute Vector,Last
00d2 e402 | | Load 0x2,0x2
00d3 01cf | | Execute Vector,Slice_Read
00d4 480a |H | Short_Literal 0xa
00d5 e00a | | Load 0x0,0xa
00d6 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00d7 a405 | | Store_Unchecked 0x2,0x5
00d8 e405 | | Load 0x2,0x5 ; Debug Table 0x5.0x1f = 0xd8,0x12
00d9 7005 |p | Jump_Nonzero 0xdf
00da e402 | | Load 0x2,0x2 ; Debug Table 0x5.0x20 = 0xda,0x13
00db 01dc | | Execute Vector,Last
00dc 0a01 | | Execute_Immediate Plus,0x1
00dd 0248 | H | Execute Discrete,Check_In_Integer
00de a405 | | Store_Unchecked 0x2,0x5
00df e406 | | Load 0x2,0x6 ; Debug Table 0x5.0x21 = 0xdf,0x14
00e0 e402 | | Load 0x2,0x2
00e1 01dd | | Execute Vector,First
00e2 027d | } | Execute Discrete,Greater
00e3 6811 |h | Jump_Zero 0xf5
00e4 e406 | | Load 0x2,0x6 ; Debug Table 0x5.0x22 = 0xe4,0x15
00e5 e405 | | Load 0x2,0x5
00e6 0aff | | Execute_Immediate Plus,-0x1
00e7 0248 | H | Execute Discrete,Check_In_Integer
00e8 e402 | | Load 0x2,0x2
00e9 01cf | | Execute Vector,Slice_Read
00ea e009 | | Load 0x0,0x9
00eb 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00ec 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00ed 4801 |H | Short_Literal 0x1 ; Debug Table 0x5.0x23 = 0xed,0x16
00ee e009 | | Load 0x0,0x9
00ef 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00f0 180d | | Execute Package,Field_Execute,Field_Number 0xd
00f1 4801 |H | Short_Literal 0x1 ; Debug Table 0x5.0x24 = 0xf1,0x17
00f2 e009 | | Load 0x0,0x9
00f3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f4 180d | | Execute Package,Field_Execute,Field_Number 0xd
00f5 e405 | | Load 0x2,0x5 ; Debug Table 0x5.0x25 = 0xf5,0xf
00f6 e402 | | Load 0x2,0x2
00f7 01dc | | Execute Vector,Last
00f8 027a | z | Execute Discrete,Less_Equal
00f9 77d0 |w | Jump_Nonzero 0xca
00fa e008 | | Load 0x0,0x8 ; Debug Table 0x5.0x26 = 0xfa,0x18
00fb 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00fc 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00fd 0000 0000 | | .XXX[0x3]
00ff 0000 | |
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 011a | | .CONST 0x011a ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0006 | | .CONST 0x0006 ; Number of locals
0103 INIT_0100:
0103 e00b | | Load 0x0,0xb ; Debug Table 0x6 = .DEBUG 0x0103,0x03b6,0x0001,0x0000,0x005a,0x8ad5,0x0000,0x00f1
; Debug Table 0x6.0x0 = 0x103,0xffff
0104 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0105 02c7 | | Declare_Variable Any
0106 00d8 | | Load_Top At_Offset_0
0107 1c00 | | Execute_Immediate Run_Utility,0x0
0108 e00b | | Load 0x0,0xb ; Debug Table 0x6.0x1 = 0x108,0xfffe
0109 1b11 | | Execute Package,Field_Read,Field_Number 0x11
010a e002 | | Load 0x0,0x2 ; Debug Table 0x6.0x2 = 0x10a,0xfffd
010b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
010c 02c7 | | Declare_Variable Any
010d 00d8 | | Load_Top At_Offset_0
010e 1c00 | | Execute_Immediate Run_Utility,0x0
010f e00c | | Load 0x0,0xc ; Debug Table 0x6.0x3 = 0x10f,0xfffc
0110 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0111 02c7 | | Declare_Variable Any
0112 e00d | | Load 0x0,0xd
0113 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0114 e00c | | Load 0x0,0xc
0115 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0116 c605 | | Store 0x3,0x5
0117 e002 | | Load 0x0,0x2 ; Debug Table 0x6.0x4 = 0x117,0xfffb
0118 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0119 1b0f | | Execute Package,Field_Read,Field_Number 0xf
011a BODY_0100:
011a e002 | | Load 0x0,0x2 ; Debug Table 0x6.0x5 = 0x11a,0x1
011b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
011c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
011d 00db | | Load_Top At_Offset_3
011e 0120 | | Execute Any,Is_Value
011f 6803 |h | Jump_Zero 0x123
0120 e002 | | Load 0x0,0x2
0121 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0122 7801 |x | Jump 0x124
0123 00db | | Load_Top At_Offset_3
0124 6177 |aw | Indirect_Literal Discrete,0x29c,{0x00000000, 0x00004000}
0125 e00c | | Load 0x0,0xc
0126 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0127 e001 | | Load 0x0,0x1
0128 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0129 e002 | | Load 0x0,0x2
012a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
012b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
012c 0092 02a4 | | Action Push_String_Extended,0x2a4 ; "$$"
012e e002 | | Load 0x0,0x2
012f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0130 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0131 c604 | | Store 0x3,0x4
0132 0059 | Y | Store_Top Discrete,At_Offset_1
0133 e00b | | Load 0x0,0xb ; Debug Table 0x6.0x6 = 0x133,0x2
0134 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0135 e602 | | Load 0x3,0x2
0136 0120 | | Execute Any,Is_Value
0137 6803 |h | Jump_Zero 0x13b
0138 e00b | | Load 0x0,0xb
0139 1b0f | | Execute Package,Field_Read,Field_Number 0xf
013a 7801 |x | Jump 0x13c
013b e602 | | Load 0x3,0x2
013c 615b |a[ | Indirect_Literal Discrete,0x298,{0x00000000, 0x00028000}
013d e605 | | Load 0x3,0x5
013e 4801 |H | Short_Literal 0x1
013f e604 | | Load 0x3,0x4
0140 e00b | | Load 0x0,0xb
0141 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0142 c602 | | Store 0x3,0x2
0143 c603 | | Store 0x3,0x3
0144 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0x7 = 0x144,0x3
0145 7022 |p" | Jump_Nonzero 0x168
0146 e00b | | Load 0x0,0xb ; Debug Table 0x6.0x8 = 0x146,0x4
0147 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0148 0092 02a5 | | Action Push_String_Extended,0x2a5 ; "#"
014a e7ff | | Load 0x3,-0x1
014b e602 | | Load 0x3,0x2
014c e00b | | Load 0x0,0xb
014d 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
014e c603 | | Store 0x3,0x3
014f 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0x9 = 0x14f,0x5
0150 6810 |h | Jump_Zero 0x161
0151 0092 02a6 | | Action Push_String_Extended,0x2a6 ; "\x07Can't add a link to reference '"
; Debug Table 0x6.0xa = 0x151,0x6
0153 e7ff | | Load 0x3,-0x1
0154 01cc | | Execute Vector,Catenate
0155 0092 02a7 | | Action Push_String_Extended,0x2a7 ; "' ("
0157 01cc | | Execute Vector,Catenate
0158 e602 | | Load 0x3,0x2
0159 e00b | | Load 0x0,0xb
015a 1817 | | Execute Package,Field_Execute,Field_Number 0x17
015b 01cc | | Execute Vector,Catenate
015c 0092 02a8 | | Action Push_String_Extended,0x2a8 ; ")"
015e 01cc | | Execute Vector,Catenate
015f e00e | | Load 0x0,0xe
0160 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60
0161 e00b | | Load 0x0,0xb ; Debug Table 0x6.0xb = 0x161,0x7
0162 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0163 e602 | | Load 0x3,0x2
0164 e00b | | Load 0x0,0xb
0165 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0166 c603 | | Store 0x3,0x3
0167 7810 |x | Jump 0x178
0168 0092 02a6 | | Action Push_String_Extended,0x2a6 ; "\x07Can't add a link to reference '"
; Debug Table 0x6.0xc = 0x168,0x8
016a e7ff | | Load 0x3,-0x1
016b 01cc | | Execute Vector,Catenate
016c 0092 02a7 | | Action Push_String_Extended,0x2a7 ; "' ("
016e 01cc | | Execute Vector,Catenate
016f e602 | | Load 0x3,0x2
0170 e00b | | Load 0x0,0xb
0171 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0172 01cc | | Execute Vector,Catenate
0173 0092 02a8 | | Action Push_String_Extended,0x2a8 ; ")"
0175 01cc | | Execute Vector,Catenate
0176 e00e | | Load 0x0,0xe
0177 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60
0178 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x6.0xd = 0x178,0x9
0179 4801 |H | Short_Literal 0x1
017a e603 | | Load 0x3,0x3
017b 0f00 | | Execute_Immediate Equal,0x0
017c e00c | | Load 0x0,0xc
017d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
017e c605 | | Store 0x3,0x5
017f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0188 | | .CONST 0x0188 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0003 | | .CONST 0x0003 ; Number of locals
0183 INIT_0180:
0183 e002 | | Load 0x0,0x2 ; Debug Table 0x7 = .DEBUG 0x0183,0x03d4,0x0001,0x0000,0x005a,0x8ad5,0x0000,0x01ab
; Debug Table 0x7.0x0 = 0x183,0xffff
0184 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0185 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0186 e002 | | Load 0x0,0x2 ; Debug Table 0x7.0x1 = 0x186,0xfffe
0187 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0188 BODY_0180:
0188 e002 | | Load 0x0,0x2 ; Debug Table 0x7.0x2 = 0x188,0x1
0189 1b0d | | Execute Package,Field_Read,Field_Number 0xd
018a e002 | | Load 0x0,0x2
018b 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
018c 1b16 | | Execute Package,Field_Read,Field_Number 0x16
018d e7ff | | Load 0x3,-0x1
018e e002 | | Load 0x0,0x2
018f 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0190 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0191 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0192 0059 | Y | Store_Top Discrete,At_Offset_1
0193 0007 | | Action Break_Optional ; Debug Table 0x7.0x3 = 0x193,0x2
0194 e602 | | Load 0x3,0x2 ; Debug Table 0x7.0x4 = 0x194,0x401
0195 0007 | | Action Break_Optional
0196 0145 | E | Execute Heap_Access,Diana_Tree_Kind ; Debug Table 0x7.0x5 = 0x196,0x402
0197 0007 | | Action Break_Optional ; Debug Table 0x7.0x6 = 0x197,0x403
0198 0007 | | Action Break_Optional ; Debug Table 0x7.0x7 = 0x198,0x404
0199 0fa8 | | Execute_Immediate Equal,-0x58 ; Debug Table 0x7.0x8 = 0x199,0x2
019a 6855 |hU | Jump_Zero 0x1f0
019b 0007 | | Action Break_Optional ; Debug Table 0x7.0x9 = 0x19b,0x3
019c 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0xa = 0x19c,0xf7ff
019d e002 | | Load 0x0,0x2
019e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
019f 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
01a0 00da | | Load_Top At_Offset_2 ; Debug Table 0x7.0xb = 0x1a0,0xf7fe
01a1 e002 | | Load 0x0,0x2
01a2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01a3 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
01a4 e007 | | Load 0x0,0x7 ; Debug Table 0x7.0xc = 0x1a4,0xf7fd
01a5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01a6 02c7 | | Declare_Variable Any
01a7 00d8 | | Load_Top At_Offset_0
01a8 1c00 | | Execute_Immediate Run_Utility,0x0
01a9 4801 |H | Short_Literal 0x1 ; Debug Table 0x7.0xd = 0x1a9,0x801
01aa e407 | | Load 0x2,0x7
01ab 00db | | Load_Top At_Offset_3
01ac e007 | | Load 0x0,0x7
01ad 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01ae e007 | | Load 0x0,0x7
01af 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01b0 683e |h> | Jump_Zero 0x1ef
01b1 4801 |H | Short_Literal 0x1 ; Debug Table 0x7.0xe = 0x1b1,0x802
01b2 e407 | | Load 0x2,0x7
01b3 00db | | Load_Top At_Offset_3
01b4 e007 | | Load 0x0,0x7
01b5 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01b6 c606 | | Store 0x3,0x6
01b7 0092 02a9 | | Action Push_String_Extended,0x2a9 ; "with "
; Debug Table 0x7.0xf = 0x1b7,0x803
01b9 e009 | | Load 0x0,0x9
01ba 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01bb 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01bc 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0x10 = 0x1bc,0x804
01bd e009 | | Load 0x0,0x9
01be 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01bf 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01c0 0092 02aa | | Action Push_String_Extended,0x2aa ; "; "
; Debug Table 0x7.0x11 = 0x1c0,0x805
01c2 00da | | Load_Top At_Offset_2
01c3 01db | | Execute Vector,Length
01c4 4814 |H | Short_Literal 0x14
01c5 00e9 | | Load_Encached String_Cache
01c6 035b | [ | Declare_Type Array,Constrained
01c7 0337 | 7 | Declare_Variable Array
01c8 4814 |H | Short_Literal 0x14
01c9 00d9 | | Load_Top At_Offset_1
01ca 01dd | | Execute Vector,First
01cb 0263 | c | Execute Discrete,Above_Bound
01cc 7005 |p | Jump_Nonzero 0x1d2
01cd 4820 |H | Short_Literal 0x20
01ce 00d9 | | Load_Top At_Offset_1
01cf e608 | | Load 0x3,0x8
01d0 01d6 | | Execute Vector,Field_Write
01d1 3ffb |? | Loop_Increasing 0x1cd
01d2 01cc | | Execute Vector,Catenate
01d3 0092 02ab | | Action Push_String_Extended,0x2ab ; "-- "
01d5 01cc | | Execute Vector,Catenate
01d6 e009 | | Load 0x0,0x9
01d7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01d8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01d9 00da | | Load_Top At_Offset_2 ; Debug Table 0x7.0x12 = 0x1d9,0x806
01da e009 | | Load 0x0,0x9
01db 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01dc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01dd 4801 |H | Short_Literal 0x1 ; Debug Table 0x7.0x13 = 0x1dd,0x807
01de e009 | | Load 0x0,0x9
01df 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01e0 180d | | Execute Package,Field_Execute,Field_Number 0xd
01e1 4801 |H | Short_Literal 0x1 ; Debug Table 0x7.0x14 = 0x1e1,0x808
01e2 e009 | | Load 0x0,0x9
01e3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01e4 180d | | Execute Package,Field_Execute,Field_Number 0xd
01e5 e00f | | Load 0x0,0xf ; Debug Table 0x7.0x15 = 0x1e5,0x809
01e6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01e7 4802 |H | Short_Literal 0x2
01e8 e604 | | Load 0x3,0x4
01e9 e605 | | Load 0x3,0x5
01ea e00f | | Load 0x0,0xf
01eb 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01ec 7002 |p | Jump_Nonzero 0x1ef
01ed 00da | | Load_Top At_Offset_2 ; Debug Table 0x7.0x16 = 0x1ed,0x80a
01ee 8409 | | Call 0x2,0x9
01ef 00d3 | | Pop_Control Pop_Count_3
01f0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01f1 0000 0000 | | .BLANK 0000[0x7]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb | | .CONST 0x01fb ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0001 | | .CONST 0x0001 ; Number of locals
01fb BODY_01f8:
01fb INIT_01f8:
01fb 0007 | | Action Break_Optional ; Debug Table 0x8 = .DEBUG 0x01fb,0x0404,0x0002,0x0000,0x005a,0x8ad5,0x0000,0x0271
; Debug Table 0x8.0x0 = 0x1fb,0x1
01fc e7ff | | Load 0x3,-0x1 ; Debug Table 0x8.0x1 = 0x1fc,0x401
01fd 0007 | | Action Break_Optional
01fe 0145 | E | Execute Heap_Access,Diana_Tree_Kind ; Debug Table 0x8.0x2 = 0x1fe,0x402
01ff 0007 | | Action Break_Optional ; Debug Table 0x8.0x3 = 0x1ff,0x403
0200 0007 | | Action Break_Optional ; Debug Table 0x8.0x4 = 0x200,0x404
0201 0b16 | | Execute_Immediate Case_Compare,0x16 ; Debug Table 0x8.0x5 = 0x201,0x1
0202 7006 |p | Jump_Nonzero 0x209
0203 0b17 | | Execute_Immediate Case_Compare,0x17
0204 7004 |p | Jump_Nonzero 0x209
0205 0b14 | | Execute_Immediate Case_Compare,0x14
0206 7002 |p | Jump_Nonzero 0x209
0207 4800 |H | Short_Literal 0x0 ; Debug Table 0x8.0x6 = 0x207,0x3
0208 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0209 4801 |H | Short_Literal 0x1 ; Debug Table 0x8.0x7 = 0x209,0x2
020a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
020b 0000 0000 | | .BLANK 0000[0x5]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0214 | | .CONST 0x0214 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0002 | | .CONST 0x0002 ; Number of locals
0213 INIT_0210:
0213 00ee | | Load_Encached Diana_Seq_Type_Cache ; Debug Table 0x9 = .DEBUG 0x0213,0x0416,0x0001,0x0000,0x005a,0x8ad5,0x0000,0x02a1
; Debug Table 0x9.0x0 = 0x213,0xffff
0214 BODY_0210:
0214 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0x1 = 0x214,0x1
0215 0007 | | Action Break_Optional
0216 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x2 = 0x216,0x401
0217 0007 | | Action Break_Optional
0218 e604 | | Load 0x3,0x4 ; Debug Table 0x9.0x3 = 0x218,0x801
0219 0007 | | Action Break_Optional
021a 0145 | E | Execute Heap_Access,Diana_Tree_Kind ; Debug Table 0x9.0x4 = 0x21a,0x802
021b 0007 | | Action Break_Optional ; Debug Table 0x9.0x5 = 0x21b,0x803
021c 00d0 | | Action Swap_Control ; Debug Table 0x9.0x6 = 0x21c,0x804
021d 00d1 | | Pop_Control Pop_Count_1
021e 49e2 |I | Short_Literal 0x1e2 ; Debug Table 0x9.0x7 = 0x21e,0x401
021f 00eb | | Load_Encached Diana_Cache
0220 0098 | | Execute Package,Field_Read_Dynamic
0221 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0222 7800 |x | Jump 0x223
0223 00d0 | | Action Swap_Control
0224 00d1 | | Pop_Control Pop_Count_1
0225 4604 |F | Jump_Case 0x5 ; Debug Table 0x9.0x8 = 0x225,0x1
0226 7804 |x | Jump 0x22b ; case 0x0
0227 780c |x | Jump 0x234 ; case 0x1
0228 7810 |x | Jump 0x239 ; case 0x2
0229 7818 |x | Jump 0x242 ; case 0x3
022a 7824 |x$ | Jump 0x24f ; case 0x4
022b 4801 |H | Short_Literal 0x1 ; Debug Table 0x9.0x9 = 0x22b,0x2
022c e7ff | | Load 0x3,-0x1
022d 840b | | Call 0x2,0xb
022e 6804 |h | Jump_Zero 0x233
022f 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0xa = 0x22f,0x3
0230 00eb | | Load_Encached Diana_Cache
0231 18fa | | Execute Package,Field_Execute,Field_Number 0xfa
0232 840a | | Call 0x2,0xa
0233 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0234 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0xb = 0x234,0x4
0235 00eb | | Load_Encached Diana_Cache
0236 1885 | | Execute Package,Field_Execute,Field_Number 0x85
0237 840c | | Call 0x2,0xc
0238 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0239 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0xc = 0x239,0x5
023a 00eb | | Load_Encached Diana_Cache
023b 1885 | | Execute Package,Field_Execute,Field_Number 0x85
023c 840c | | Call 0x2,0xc
023d 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0xd = 0x23d,0x6
023e 00eb | | Load_Encached Diana_Cache
023f 1886 | | Execute Package,Field_Execute,Field_Number 0x86
0240 840c | | Call 0x2,0xc
0241 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0242 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0xe = 0x242,0x7
0243 00eb | | Load_Encached Diana_Cache
0244 1885 | | Execute Package,Field_Execute,Field_Number 0x85
0245 840c | | Call 0x2,0xc
0246 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0xf = 0x246,0x8
0247 00eb | | Load_Encached Diana_Cache
0248 1886 | | Execute Package,Field_Execute,Field_Number 0x86
0249 840c | | Call 0x2,0xc
024a 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0x10 = 0x24a,0x9
024b 00eb | | Load_Encached Diana_Cache
024c 1887 | | Execute Package,Field_Execute,Field_Number 0x87
024d 840c | | Call 0x2,0xc
024e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
024f 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0x11 = 0x24f,0xa
0250 00eb | | Load_Encached Diana_Cache
0251 1888 | | Execute Package,Field_Execute,Field_Number 0x88
0252 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0253 783e |x> | Jump 0x292
0254 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x12 = 0x254,0xc
0255 0007 | | Action Break_Optional
0256 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x13 = 0x256,0xc01
0257 7002 |p | Jump_Nonzero 0x25a
0258 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x9.0x14 = 0x258,0xc02
0259 782c |x, | Jump 0x286
025a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x15 = 0x25a,0xc03
025b 0217 | | Execute Heap_Access,All_Reference
025c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
025d 6804 |h | Jump_Zero 0x262
025e 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x16 = 0x25e,0xc04
025f 0217 | | Execute Heap_Access,All_Reference
0260 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0261 7824 |x$ | Jump 0x286
0262 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x17 = 0x262,0xc05
0263 0007 | | Action Break_Optional
0264 e604 | | Load 0x3,0x4 ; Debug Table 0x9.0x18 = 0x264,0x1001
0265 0007 | | Action Break_Optional
0266 0148 | H | Execute Heap_Access,Get_Offset ; Debug Table 0x9.0x19 = 0x266,0x1002
0267 0007 | | Action Break_Optional ; Debug Table 0x9.0x1a = 0x267,0x1003
0268 00d0 | | Action Swap_Control ; Debug Table 0x9.0x1b = 0x268,0x1004
0269 00d1 | | Pop_Control Pop_Count_1
026a 49bb |I | Short_Literal 0x1bb ; Debug Table 0x9.0x1c = 0x26a,0xc05
026b 00eb | | Load_Encached Diana_Cache
026c 0098 | | Execute Package,Field_Read_Dynamic
026d 012c | , | Execute Any,Size
026e e010 | | Load 0x0,0x10
026f 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0270 025b | [ | Execute Discrete,Check_In_Type
0271 0273 | s | Execute Discrete,Plus
0272 00d9 | | Load_Top At_Offset_1
0273 0007 | | Action Break_Optional
0274 e605 | | Load 0x3,0x5 ; Debug Table 0x9.0x1d = 0x274,0x1401
0275 0007 | | Action Break_Optional
0276 0210 | | Execute Heap_Access,Get_Segment ; Debug Table 0x9.0x1e = 0x276,0x1402
0277 0007 | | Action Break_Optional ; Debug Table 0x9.0x1f = 0x277,0x1403
0278 00d0 | | Action Swap_Control ; Debug Table 0x9.0x20 = 0x278,0x1404
0279 00d1 | | Pop_Control Pop_Count_1
027a 49c8 |I | Short_Literal 0x1c8 ; Debug Table 0x9.0x21 = 0x27a,0x1004
027b 00eb | | Load_Encached Diana_Cache
027c 0098 | | Execute Package,Field_Read_Dynamic
027d 49c9 |I | Short_Literal 0x1c9
027e 00eb | | Load_Encached Diana_Cache
027f 0098 | | Execute Package,Field_Read_Dynamic
0280 49ca |I | Short_Literal 0x1ca
0281 00eb | | Load_Encached Diana_Cache
0282 0095 | | Execute Package,Field_Reference_Dynamic
0283 e011 | | Load 0x0,0x11
0284 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0285 7800 |x | Jump 0x286
0286 00d0 | | Action Swap_Control
0287 00d1 | | Pop_Control Pop_Count_1
0288 840c | | Call 0x2,0xc ; Debug Table 0x9.0x22 = 0x288,0xc
0289 0007 | | Action Break_Optional ; Debug Table 0x9.0x23 = 0x289,0xd
028a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x24 = 0x28a,0x1801
028b 7002 |p | Jump_Nonzero 0x28e
028c 00ee | | Load_Encached Diana_Seq_Type_Cache ; Debug Table 0x9.0x25 = 0x28c,0x1802
028d 7803 |x | Jump 0x291
028e 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x26 = 0x28e,0x1803
028f 0217 | | Execute Heap_Access,All_Reference
0290 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0291 0031 | 1 | Store_Top Heap_Access,At_Offset_1 ; Debug Table 0x9.0x27 = 0x291,0xd
0292 0007 | | Action Break_Optional ; Debug Table 0x9.0x28 = 0x292,0xb
0293 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x29 = 0x293,0x1c01
0294 021d | | Execute Heap_Access,Is_Null
0295 6fbe |o | Jump_Zero 0x254 ; Debug Table 0x9.0x2a = 0x295,0xb
0296 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0297 0000 | | .XXX[0x1]
0298 0000 0000 | | .LITERAL {0x00000000, 0x00028000}
029c 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
02a0 ; --------------------------------------------------------------------------------------
02a0 ; STRING TABLE
02a0 ; --------------------------------------------------------------------------------------
02a0 001a | | .STRTAB 0x001a->0x02ad ; "Command.Diana_Edit"
02a1 002a | * | .STRTAB 0x002a->0x02b6 ; "Standard"
02a2 0030 | 0 | .STRTAB 0x0030->0x02ba ; "procedure "
02a3 0038 | 8 | .STRTAB 0x0038->0x02bf ; " is"
02a4 0039 | 9 | .STRTAB 0x0039->0x02c0 ; "$$"
02a5 0039 | 9 | .STRTAB 0x0039->0x02c1 ; "#"
02a6 0038 | 8 | .STRTAB 0x0038->0x02c2 ; "\x07Can't add a link to reference '"
02a7 0056 | V | .STRTAB 0x0056->0x02d2 ; "' ("
02a8 0057 | W | .STRTAB 0x0057->0x02d3 ; ")"
02a9 0056 | V | .STRTAB 0x0056->0x02d4 ; "with "
02aa 0059 | Y | .STRTAB 0x0059->0x02d6 ; "; "
02ab 0059 | Y | .STRTAB 0x0059->0x02d7 ; "-- "
02ac 005a | Z | .STREND 0x005a->0x02d9
02ad 436f 6d6d |Comm| .STRTAB_STRINGS
02d9 0000 0000 | | .BLANK 0000[0x7]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; Debug Table
02e0 ; --------------------------------------------------------------------------------------
02e0 0003 000a | | .CONST 0x0003,0x000a
02e2 000b 0332 | 2| .DEBUG 0x000b,0x0332,0x8000,0x0000,0x005a,0x8725,0x0000,0x0003
02ea 0017 0344 | D| .DEBUG 0x0017,0x0344,0x8000,0x0000,0x005a,0x8ad5,0x0000,0x0021
02f2 002b 0350 | + P| .DEBUG 0x002b,0x0350,0x0001,0x0000,0x005a,0x8725,0x0000,0x0008
02fa 004b 035e | K ^| .DEBUG 0x004b,0x035e,0x0001,0x0000,0x005a,0x8725,0x0000,0x0011
0302 0053 0362 | S b| .DEBUG 0x0053,0x0362,0x0001,0x0000,0x005a,0x8725,0x0000,0x0015
030a 005b 0366 | [ f| .DEBUG 0x005b,0x0366,0x0001,0x0000,0x005a,0x8725,0x0000,0x0019
0312 0103 03b6 | | .DEBUG 0x0103,0x03b6,0x0001,0x0000,0x005a,0x8ad5,0x0000,0x00f1
031a 0183 03d4 | | .DEBUG 0x0183,0x03d4,0x0001,0x0000,0x005a,0x8ad5,0x0000,0x01ab
0322 01fb 0404 | | .DEBUG 0x01fb,0x0404,0x0002,0x0000,0x005a,0x8ad5,0x0000,0x0271
032a 0213 0416 | | .DEBUG 0x0213,0x0416,0x0001,0x0000,0x005a,0x8ad5,0x0000,0x02a1
0332 ; --------------------------------------------------------------------------------------
0332 ; Debug3 Subtable 0x0
0332 ; --------------------------------------------------------------------------------------
0332 0008 0000 | | .DBG3TAB 0x0008,0x0000
0334 000b ffff | | .CONST 0x000b,0xffff
0336 000c fffe | | .CONST 0x000c,0xfffe
0338 000e fffd | | .CONST 0x000e,0xfffd
033a 0010 fffc | | .CONST 0x0010,0xfffc
033c 0012 fffb | | .CONST 0x0012,0xfffb
033e 0014 fffa | | .CONST 0x0014,0xfffa
0340 0015 fff9 | | .CONST 0x0015,0xfff9
0342 0016 fff8 | | .CONST 0x0016,0xfff8
0344 ; --------------------------------------------------------------------------------------
0344 ; Debug3 Subtable 0x1
0344 ; --------------------------------------------------------------------------------------
0344 0005 0000 | | .DBG3TAB 0x0005,0x0000
0346 0017 ffff | | .CONST 0x0017,0xffff
0348 0018 fffe | | .CONST 0x0018,0xfffe
034a 001a fffd | | .CONST 0x001a,0xfffd
034c 001c fffc | | .CONST 0x001c,0xfffc
034e 001e fffb | | .CONST 0x001e,0xfffb
0350 ; --------------------------------------------------------------------------------------
0350 ; Debug3 Subtable 0x2
0350 ; --------------------------------------------------------------------------------------
0350 0001 0005 | | .DBG3TAB 0x0001,0x0005
0352 002b ffff | + | .CONST 0x002b,0xffff
0354 002c 0001 | , | .CONST 0x002c,0x0001
0356 0039 0002 | 9 | .CONST 0x0039,0x0002
0358 003a 0401 | : | .CONST 0x003a,0x0401
035a 003c 0002 | < | .CONST 0x003c,0x0002
035c 003d 0003 | = | .CONST 0x003d,0x0003
035e ; --------------------------------------------------------------------------------------
035e ; Debug3 Subtable 0x3
035e ; --------------------------------------------------------------------------------------
035e 0000 0001 | | .DBG3TAB 0x0000,0x0001
0360 004b 0001 | K | .CONST 0x004b,0x0001
0362 ; --------------------------------------------------------------------------------------
0362 ; Debug3 Subtable 0x4
0362 ; --------------------------------------------------------------------------------------
0362 0000 0001 | | .DBG3TAB 0x0000,0x0001
0364 0053 0001 | S | .CONST 0x0053,0x0001
0366 ; --------------------------------------------------------------------------------------
0366 ; Debug3 Subtable 0x5
0366 ; --------------------------------------------------------------------------------------
0366 000f 0018 | | .DBG3TAB 0x000f,0x0018
0368 005b ffff | [ | .CONST 0x005b,0xffff
036a 005c fffe | \ | .CONST 0x005c,0xfffe
036c 005d fffd | ] | .CONST 0x005d,0xfffd
036e 005e fffc | ^ | .CONST 0x005e,0xfffc
0370 0063 fffb | c | .CONST 0x0063,0xfffb
0372 0065 fffa | e | .CONST 0x0065,0xfffa
0374 0068 fff9 | h | .CONST 0x0068,0xfff9
0376 006e fff8 | n | .CONST 0x006e,0xfff8
0378 0072 fff7 | r | .CONST 0x0072,0xfff7
037a 0079 fff6 | y | .CONST 0x0079,0xfff6
037c 0083 fff5 | | .CONST 0x0083,0xfff5
037e 0084 fff4 | | .CONST 0x0084,0xfff4
0380 0086 fff3 | | .CONST 0x0086,0xfff3
0382 0088 fff2 | | .CONST 0x0088,0xfff2
0384 008a fff1 | | .CONST 0x008a,0xfff1
0386 008c 0001 | | .CONST 0x008c,0x0001
0388 008e 0002 | | .CONST 0x008e,0x0002
038a 009a 0003 | | .CONST 0x009a,0x0003
038c 009f 0004 | | .CONST 0x009f,0x0004
038e 00a2 0005 | | .CONST 0x00a2,0x0005
0390 00a5 0006 | | .CONST 0x00a5,0x0006
0392 00a9 0007 | | .CONST 0x00a9,0x0007
0394 00ab 0008 | | .CONST 0x00ab,0x0008
0396 00af 0009 | | .CONST 0x00af,0x0009
0398 00b3 000a | | .CONST 0x00b3,0x000a
039a 00b8 000b | | .CONST 0x00b8,0x000b
039c 00bc 000c | | .CONST 0x00bc,0x000c
039e 00c1 000d | | .CONST 0x00c1,0x000d
03a0 00c5 000e | | .CONST 0x00c5,0x000e
03a2 00ca 0010 | | .CONST 0x00ca,0x0010
03a4 00ce 0011 | | .CONST 0x00ce,0x0011
03a6 00d8 0012 | | .CONST 0x00d8,0x0012
03a8 00da 0013 | | .CONST 0x00da,0x0013
03aa 00df 0014 | | .CONST 0x00df,0x0014
03ac 00e4 0015 | | .CONST 0x00e4,0x0015
03ae 00ed 0016 | | .CONST 0x00ed,0x0016
03b0 00f1 0017 | | .CONST 0x00f1,0x0017
03b2 00f5 000f | | .CONST 0x00f5,0x000f
03b4 00fa 0018 | | .CONST 0x00fa,0x0018
03b6 ; --------------------------------------------------------------------------------------
03b6 ; Debug3 Subtable 0x6
03b6 ; --------------------------------------------------------------------------------------
03b6 0005 0009 | | .DBG3TAB 0x0005,0x0009
03b8 0103 ffff | | .CONST 0x0103,0xffff
03ba 0108 fffe | | .CONST 0x0108,0xfffe
03bc 010a fffd | | .CONST 0x010a,0xfffd
03be 010f fffc | | .CONST 0x010f,0xfffc
03c0 0117 fffb | | .CONST 0x0117,0xfffb
03c2 011a 0001 | | .CONST 0x011a,0x0001
03c4 0133 0002 | 3 | .CONST 0x0133,0x0002
03c6 0144 0003 | D | .CONST 0x0144,0x0003
03c8 0146 0004 | F | .CONST 0x0146,0x0004
03ca 014f 0005 | O | .CONST 0x014f,0x0005
03cc 0151 0006 | Q | .CONST 0x0151,0x0006
03ce 0161 0007 | a | .CONST 0x0161,0x0007
03d0 0168 0008 | h | .CONST 0x0168,0x0008
03d2 0178 0009 | x | .CONST 0x0178,0x0009
03d4 ; --------------------------------------------------------------------------------------
03d4 ; Debug3 Subtable 0x7
03d4 ; --------------------------------------------------------------------------------------
03d4 0005 0012 | | .DBG3TAB 0x0005,0x0012
03d6 0183 ffff | | .CONST 0x0183,0xffff
03d8 0186 fffe | | .CONST 0x0186,0xfffe
03da 0188 0001 | | .CONST 0x0188,0x0001
03dc 0193 0002 | | .CONST 0x0193,0x0002
03de 0194 0401 | | .CONST 0x0194,0x0401
03e0 0196 0402 | | .CONST 0x0196,0x0402
03e2 0197 0403 | | .CONST 0x0197,0x0403
03e4 0198 0404 | | .CONST 0x0198,0x0404
03e6 0199 0002 | | .CONST 0x0199,0x0002
03e8 019b 0003 | | .CONST 0x019b,0x0003
03ea 019c f7ff | | .CONST 0x019c,0xf7ff
03ec 01a0 f7fe | | .CONST 0x01a0,0xf7fe
03ee 01a4 f7fd | | .CONST 0x01a4,0xf7fd
03f0 01a9 0801 | | .CONST 0x01a9,0x0801
03f2 01b1 0802 | | .CONST 0x01b1,0x0802
03f4 01b7 0803 | | .CONST 0x01b7,0x0803
03f6 01bc 0804 | | .CONST 0x01bc,0x0804
03f8 01c0 0805 | | .CONST 0x01c0,0x0805
03fa 01d9 0806 | | .CONST 0x01d9,0x0806
03fc 01dd 0807 | | .CONST 0x01dd,0x0807
03fe 01e1 0808 | | .CONST 0x01e1,0x0808
0400 01e5 0809 | | .CONST 0x01e5,0x0809
0402 01ed 080a | | .CONST 0x01ed,0x080a
0404 ; --------------------------------------------------------------------------------------
0404 ; Debug3 Subtable 0x8
0404 ; --------------------------------------------------------------------------------------
0404 0000 0008 | | .DBG3TAB 0x0000,0x0008
0406 01fb 0001 | | .CONST 0x01fb,0x0001
0408 01fc 0401 | | .CONST 0x01fc,0x0401
040a 01fe 0402 | | .CONST 0x01fe,0x0402
040c 01ff 0403 | | .CONST 0x01ff,0x0403
040e 0200 0404 | | .CONST 0x0200,0x0404
0410 0201 0001 | | .CONST 0x0201,0x0001
0412 0207 0003 | | .CONST 0x0207,0x0003
0414 0209 0002 | | .CONST 0x0209,0x0002
0416 ; --------------------------------------------------------------------------------------
0416 ; Debug3 Subtable 0x9
0416 ; --------------------------------------------------------------------------------------
0416 0001 002a | *| .DBG3TAB 0x0001,0x002a
0418 0213 ffff | | .CONST 0x0213,0xffff
041a 0214 0001 | | .CONST 0x0214,0x0001
041c 0216 0401 | | .CONST 0x0216,0x0401
041e 0218 0801 | | .CONST 0x0218,0x0801
0420 021a 0802 | | .CONST 0x021a,0x0802
0422 021b 0803 | | .CONST 0x021b,0x0803
0424 021c 0804 | | .CONST 0x021c,0x0804
0426 021e 0401 | | .CONST 0x021e,0x0401
0428 0225 0001 | % | .CONST 0x0225,0x0001
042a 022b 0002 | + | .CONST 0x022b,0x0002
042c 022f 0003 | / | .CONST 0x022f,0x0003
042e 0234 0004 | 4 | .CONST 0x0234,0x0004
0430 0239 0005 | 9 | .CONST 0x0239,0x0005
0432 023d 0006 | = | .CONST 0x023d,0x0006
0434 0242 0007 | B | .CONST 0x0242,0x0007
0436 0246 0008 | F | .CONST 0x0246,0x0008
0438 024a 0009 | J | .CONST 0x024a,0x0009
043a 024f 000a | O | .CONST 0x024f,0x000a
043c 0254 000c | T | .CONST 0x0254,0x000c
043e 0256 0c01 | V | .CONST 0x0256,0x0c01
0440 0258 0c02 | X | .CONST 0x0258,0x0c02
0442 025a 0c03 | Z | .CONST 0x025a,0x0c03
0444 025e 0c04 | ^ | .CONST 0x025e,0x0c04
0446 0262 0c05 | b | .CONST 0x0262,0x0c05
0448 0264 1001 | d | .CONST 0x0264,0x1001
044a 0266 1002 | f | .CONST 0x0266,0x1002
044c 0267 1003 | g | .CONST 0x0267,0x1003
044e 0268 1004 | h | .CONST 0x0268,0x1004
0450 026a 0c05 | j | .CONST 0x026a,0x0c05
0452 0274 1401 | t | .CONST 0x0274,0x1401
0454 0276 1402 | v | .CONST 0x0276,0x1402
0456 0277 1403 | w | .CONST 0x0277,0x1403
0458 0278 1404 | x | .CONST 0x0278,0x1404
045a 027a 1004 | z | .CONST 0x027a,0x1004
045c 0288 000c | | .CONST 0x0288,0x000c
045e 0289 000d | | .CONST 0x0289,0x000d
0460 028a 1801 | | .CONST 0x028a,0x1801
0462 028c 1802 | | .CONST 0x028c,0x1802
0464 028e 1803 | | .CONST 0x028e,0x1803
0466 0291 000d | | .CONST 0x0291,0x000d
0468 0292 000b | | .CONST 0x0292,0x000b
046a 0293 1c01 | | .CONST 0x0293,0x1c01
046c 0295 000b | | .CONST 0x0295,0x000b
046e 0000 0000 | | .BLANK 0000[0x192]