DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦9f72597c5⟧

    Length: 3072 (0xc00)
    Notes: 00_class, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0ea8df

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

Disassembly

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 0298       |    |		.CONST	0x0298								; 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 001b       |    |		.CONST	0x001b								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0010       |    |		.CONST	0x0010								; Number of locals
000b			INIT_0008:
000b 029a 0023  |   #|		Declare_Subprogram	INIT_0020,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0 = .DEBUG	0x000b,0x02ca,0x8000,0x0000,0x005a,0x3035,0x0000,0x0005
													; Debug Table 0x0.0x0 = 0xb,0xffff
000d 029a 0153  |   S|		Declare_Subprogram	INIT_0150,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x1 = 0xd,0xfffe
000f 00bf       |    |		Action	Accept_Activation
0010 0007       |    |		Action	Break_Optional							; Debug Table 0x1 = .DEBUG	0x0010,0x02d0,0x8000,0x0000,0x005a,0x3845,0x0000,0x0015
													; Debug Table 0x1.0x0 = 0x10,0xffff
0011 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x1 = 0x11,0xfffe
0012 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x2 = 0x12,0xfffd
0013 029d 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Outer_Call			; Debug Table 0x1.0x3 = 0x13,0xfffc
0015 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd				; Debug Table 0x1.0x4 = 0x15,0xfffb
0016 00c7       |    |		Action	Elaborate_Subprogram
0017 029d 0213  |    |		Declare_Subprogram	INIT_0210,For_Outer_Call			; Debug Table 0x1.0x5 = 0x17,0xfffa
0019 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe				; Debug Table 0x1.0x6 = 0x19,0xfff9
001a 00c7       |    |		Action	Elaborate_Subprogram
001b			BODY_0008:
001b 00bc       |    |		Action	Signal_Activated
001c 00bb       |    |		Action	Signal_Completion
001d 0000 0000  |    |		.XXX[0x3]
001f 0000       |    |
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 0028       | (  |		.CONST	0x0028								; Address of begin
0021 0004       |    |		.CONST	0x0004								; Address of exception handler
0022 0003       |    |		.CONST	0x0003								; Number of locals
0023			INIT_0020:
0023 0007       |    |		Action	Break_Optional							; Debug Table 0x2 = .DEBUG	0x0023,0x02e0,0x0002,0x0000,0x005a,0x3035,0x0000,0x0006
													; Debug Table 0x2.0x0 = 0x23,0xffff
0024 4ffe       |O   |		Short_Literal	-0x2							; Debug Table 0x2.0x1 = 0x24,0xfffe
0025 4802       |H   |		Short_Literal	0x2
0026 0099       |    |		Action	Reference_Dynamic
0027 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd				; Debug Table 0x2.0x2 = 0x27,0xfffd
0028			BODY_0020:
0028 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x2.0x3 = 0x28,0x1
0029 820f       |    |		Call	0x1,0xf
002a 6806       |h   |		Jump_Zero	0x31
002b e5ff       |    |		Load	0x2,-0x1
002c e001       |    |		Load	0x0,0x1
002d 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
002e 6802       |h   |		Jump_Zero	0x31
002f 4800       |H   |		Short_Literal	0x0							; Debug Table 0x2.0x4 = 0x2f,0x2
0030 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0031 0007       |    |		Action	Break_Optional							; Debug Table 0x2.0x5 = 0x31,0x3
0032 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x2.0x6 = 0x32,0x401
0033 0007       |    |		Action	Break_Optional
0034 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0x2.0x7 = 0x34,0x402
0035 0007       |    |		Action	Break_Optional							; Debug Table 0x2.0x8 = 0x35,0x403
0036 0007       |    |		Action	Break_Optional							; Debug Table 0x2.0x9 = 0x36,0x404
0037 0b07       |    |		Execute_Immediate	Case_Compare,0x7				; Debug Table 0x2.0xa = 0x37,0x3
0038 7030       |p0  |		Jump_Nonzero	0x69
0039 0b0c       |    |		Execute_Immediate	Case_Compare,0xc
003a 702e       |p.  |		Jump_Nonzero	0x69
003b 0b16       |    |		Execute_Immediate	Case_Compare,0x16
003c 702c       |p,  |		Jump_Nonzero	0x69
003d 0b00       |    |		Execute_Immediate	Case_Compare,0x0
003e 702a       |p*  |		Jump_Nonzero	0x69
003f 0b0b       |    |		Execute_Immediate	Case_Compare,0xb
0040 702a       |p*  |		Jump_Nonzero	0x6b
0041 0b08       |    |		Execute_Immediate	Case_Compare,0x8
0042 7028       |p(  |		Jump_Nonzero	0x6b
0043 0b03       |    |		Execute_Immediate	Case_Compare,0x3
0044 7031       |p1  |		Jump_Nonzero	0x76
0045 0b15       |    |		Execute_Immediate	Case_Compare,0x15
0046 7031       |p1  |		Jump_Nonzero	0x78
0047 0b14       |    |		Execute_Immediate	Case_Compare,0x14
0048 7032       |p2  |		Jump_Nonzero	0x7b
0049 0b01       |    |		Execute_Immediate	Case_Compare,0x1
004a 7032       |p2  |		Jump_Nonzero	0x7d
004b 0b13       |    |		Execute_Immediate	Case_Compare,0x13
004c 7030       |p0  |		Jump_Nonzero	0x7d
004d 0b11       |    |		Execute_Immediate	Case_Compare,0x11
004e 702e       |p.  |		Jump_Nonzero	0x7d
004f 0b8d       |    |		Execute_Immediate	Case_Compare,0x8d
0050 702e       |p.  |		Jump_Nonzero	0x7f
0051 0b17       |    |		Execute_Immediate	Case_Compare,0x17
0052 707e       |p~  |		Jump_Nonzero	0xd1
0053 0b10       |    |		Execute_Immediate	Case_Compare,0x10
0054 7087       |p   |		Jump_Nonzero	0xdc
0055 0b09       |    |		Execute_Immediate	Case_Compare,0x9
0056 7094       |p   |		Jump_Nonzero	0xeb
0057 0b06       |    |		Execute_Immediate	Case_Compare,0x6
0058 7092       |p   |		Jump_Nonzero	0xeb
0059 0b0a       |    |		Execute_Immediate	Case_Compare,0xa
005a 7096       |p   |		Jump_Nonzero	0xf1
005b 0b05       |    |		Execute_Immediate	Case_Compare,0x5
005c 7094       |p   |		Jump_Nonzero	0xf1
005d 0b04       |    |		Execute_Immediate	Case_Compare,0x4
005e 70a3       |p   |		Jump_Nonzero	0x102
005f 0b0e       |    |		Execute_Immediate	Case_Compare,0xe
0060 70af       |p   |		Jump_Nonzero	0x110
0061 0b0d       |    |		Execute_Immediate	Case_Compare,0xd
0062 70b3       |p   |		Jump_Nonzero	0x116
0063 0b0f       |    |		Execute_Immediate	Case_Compare,0xf
0064 70bb       |p   |		Jump_Nonzero	0x120
0065 0b12       |    |		Execute_Immediate	Case_Compare,0x12
0066 70c7       |p   |		Jump_Nonzero	0x12e
0067 4801       |H   |		Short_Literal	0x1							; Debug Table 0x2.0xb = 0x67,0x1c
0068 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0069 4800       |H   |		Short_Literal	0x0							; Debug Table 0x2.0xc = 0x69,0x4
006a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
006b e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x2.0xd = 0x6b,0x5
006c 6802       |h   |		Jump_Zero	0x6f
006d 4800       |H   |		Short_Literal	0x0							; Debug Table 0x2.0xe = 0x6d,0x6
006e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
006f e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x2.0xf = 0x6f,0x7
0070 00eb       |    |		Load_Encached	Diana_Cache
0071 18fc       |    |		Execute	Package,Field_Execute,Field_Number 0xfc
0072 e5ff       |    |		Load	0x2,-0x1
0073 e002       |    |		Load	0x0,0x2
0074 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0075 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0076 4801       |H   |		Short_Literal	0x1							; Debug Table 0x2.0x10 = 0x76,0x8
0077 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0078 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x2.0x11 = 0x78,0x9
0079 0f00       |    |		Execute_Immediate	Equal,0x0
007a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
007b 4801       |H   |		Short_Literal	0x1							; Debug Table 0x2.0x12 = 0x7b,0xa
007c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
007d 4801       |H   |		Short_Literal	0x1							; Debug Table 0x2.0x13 = 0x7d,0xb
007e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
007f 00cf       |    |		Action	Mark_Auxiliary							; Debug Table 0x2.0x14 = 0x7f,0xc
0080 00ee       |    |		Load_Encached	Diana_Seq_Type_Cache					; Debug Table 0x2.0x15 = 0x80,0xf7ff
0081 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x2.0x16 = 0x81,0x801
0082 00eb       |    |		Load_Encached	Diana_Cache
0083 1889       |    |		Execute	Package,Field_Execute,Field_Number 0x89
0084 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0085 00cf       |    |		Action	Mark_Auxiliary
0086 7843       |xC  |		Jump	0xca
0087 e402       |    |		Load	0x2,0x2								; Debug Table 0x2.0x17 = 0x87,0x803
0088 00da       |    |		Load_Top	At_Offset_2
0089 0007       |    |		Action	Break_Optional
008a 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0x18 = 0x8a,0xc01
008b 7002       |p   |		Jump_Nonzero	0x8e
008c 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x2.0x19 = 0x8c,0xc02
008d 782c       |x,  |		Jump	0xba
008e 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0x1a = 0x8e,0xc03
008f 0217       |    |		Execute	Heap_Access,All_Reference
0090 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0091 6804       |h   |		Jump_Zero	0x96
0092 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0x1b = 0x92,0xc04
0093 0217       |    |		Execute	Heap_Access,All_Reference
0094 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0095 7824       |x$  |		Jump	0xba
0096 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0x1c = 0x96,0xc05
0097 0007       |    |		Action	Break_Optional
0098 e40a       |    |		Load	0x2,0xa								; Debug Table 0x2.0x1d = 0x98,0x1001
0099 0007       |    |		Action	Break_Optional
009a 0148       | H  |		Execute	Heap_Access,Get_Offset						; Debug Table 0x2.0x1e = 0x9a,0x1002
009b 0007       |    |		Action	Break_Optional							; Debug Table 0x2.0x1f = 0x9b,0x1003
009c 00d0       |    |		Action	Swap_Control							; Debug Table 0x2.0x20 = 0x9c,0x1004
009d 00d1       |    |		Pop_Control	Pop_Count_1
009e 49bb       |I   |		Short_Literal	0x1bb							; Debug Table 0x2.0x21 = 0x9e,0xc05
009f 00eb       |    |		Load_Encached	Diana_Cache
00a0 0098       |    |		Execute	Package,Field_Read_Dynamic
00a1 012c       | ,  |		Execute	Any,Size
00a2 e003       |    |		Load	0x0,0x3
00a3 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
00a4 025b       | [  |		Execute	Discrete,Check_In_Type
00a5 0273       | s  |		Execute	Discrete,Plus
00a6 00d9       |    |		Load_Top	At_Offset_1
00a7 0007       |    |		Action	Break_Optional
00a8 e40b       |    |		Load	0x2,0xb								; Debug Table 0x2.0x22 = 0xa8,0x1401
00a9 0007       |    |		Action	Break_Optional
00aa 0210       |    |		Execute	Heap_Access,Get_Segment						; Debug Table 0x2.0x23 = 0xaa,0x1402
00ab 0007       |    |		Action	Break_Optional							; Debug Table 0x2.0x24 = 0xab,0x1403
00ac 00d0       |    |		Action	Swap_Control							; Debug Table 0x2.0x25 = 0xac,0x1404
00ad 00d1       |    |		Pop_Control	Pop_Count_1
00ae 49c8       |I   |		Short_Literal	0x1c8							; Debug Table 0x2.0x26 = 0xae,0x1004
00af 00eb       |    |		Load_Encached	Diana_Cache
00b0 0098       |    |		Execute	Package,Field_Read_Dynamic
00b1 49c9       |I   |		Short_Literal	0x1c9
00b2 00eb       |    |		Load_Encached	Diana_Cache
00b3 0098       |    |		Execute	Package,Field_Read_Dynamic
00b4 49ca       |I   |		Short_Literal	0x1ca
00b5 00eb       |    |		Load_Encached	Diana_Cache
00b6 0095       |    |		Execute	Package,Field_Reference_Dynamic
00b7 e004       |    |		Load	0x0,0x4
00b8 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
00b9 7800       |x   |		Jump	0xba
00ba 00d0       |    |		Action	Swap_Control
00bb 00d1       |    |		Pop_Control	Pop_Count_1
00bc 8403       |    |		Call	0x2,0x3								; Debug Table 0x2.0x27 = 0xbc,0x803
00bd 6802       |h   |		Jump_Zero	0xc0
00be 4801       |H   |		Short_Literal	0x1							; Debug Table 0x2.0x28 = 0xbe,0x804
00bf 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00c0 0007       |    |		Action	Break_Optional							; Debug Table 0x2.0x29 = 0xc0,0x805
00c1 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x2.0x2a = 0xc1,0x1801
00c2 7002       |p   |		Jump_Nonzero	0xc5
00c3 00ee       |    |		Load_Encached	Diana_Seq_Type_Cache					; Debug Table 0x2.0x2b = 0xc3,0x1802
00c4 7803       |x   |		Jump	0xc8
00c5 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x2.0x2c = 0xc5,0x1803
00c6 0217       |    |		Execute	Heap_Access,All_Reference
00c7 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00c8 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2					; Debug Table 0x2.0x2d = 0xc8,0x805
00c9 00c9       |    |		Action	Pop_Auxiliary_Loop
00ca 0007       |    |		Action	Break_Optional							; Debug Table 0x2.0x2e = 0xca,0x802
00cb 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x2.0x2f = 0xcb,0x1c01
00cc 021d       |    |		Execute	Heap_Access,Is_Null
00cd 6fb9       |o   |		Jump_Zero	0x87							; Debug Table 0x2.0x30 = 0xcd,0x802
00ce 00ce       |    |		Action	Pop_Auxiliary
00cf 4800       |H   |		Short_Literal	0x0							; Debug Table 0x2.0x31 = 0xcf,0x806
00d0 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00d1 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x2.0x32 = 0xd1,0xd
00d2 00eb       |    |		Load_Encached	Diana_Cache
00d3 18fa       |    |		Execute	Package,Field_Execute,Field_Number 0xfa
00d4 e405       |    |		Load	0x2,0x5								; Debug Table 0x2.0x33 = 0xd4,0x2001
00d5 0007       |    |		Action	Break_Optional
00d6 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0x2.0x34 = 0xd6,0x2002
00d7 0007       |    |		Action	Break_Optional							; Debug Table 0x2.0x35 = 0xd7,0x2003
00d8 00d0       |    |		Action	Swap_Control							; Debug Table 0x2.0x36 = 0xd8,0x2004
00d9 00d1       |    |		Pop_Control	Pop_Count_1
00da 0f21       | !  |		Execute_Immediate	Equal,0x21					; Debug Table 0x2.0x37 = 0xda,0xd
00db 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00dc 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x2.0x38 = 0xdc,0xe
00dd e5ff       |    |		Load	0x2,-0x1
00de 00eb       |    |		Load_Encached	Diana_Cache
00df 18d4       |    |		Execute	Package,Field_Execute,Field_Number 0xd4
00e0 8403       |    |		Call	0x2,0x3
00e1 7007       |p   |		Jump_Nonzero	0xe9
00e2 00da       |    |		Load_Top	At_Offset_2
00e3 e5ff       |    |		Load	0x2,-0x1
00e4 490c       |I   |		Short_Literal	0x10c
00e5 00eb       |    |		Load_Encached	Diana_Cache
00e6 0096       |    |		Execute	Package,Entry
00e7 8403       |    |		Call	0x2,0x3
00e8 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00e9 4801       |H   |		Short_Literal	0x1
00ea 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00eb 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x2.0x39 = 0xeb,0xf
00ec e5ff       |    |		Load	0x2,-0x1
00ed 00eb       |    |		Load_Encached	Diana_Cache
00ee 18c5       |    |		Execute	Package,Field_Execute,Field_Number 0xc5
00ef 8403       |    |		Call	0x2,0x3
00f0 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00f1 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x2.0x3a = 0xf1,0x10
00f2 7009       |p   |		Jump_Nonzero	0xfc
00f3 e5ff       |    |		Load	0x2,-0x1
00f4 00eb       |    |		Load_Encached	Diana_Cache
00f5 18fc       |    |		Execute	Package,Field_Execute,Field_Number 0xfc
00f6 e5ff       |    |		Load	0x2,-0x1
00f7 e002       |    |		Load	0x0,0x2
00f8 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00f9 6802       |h   |		Jump_Zero	0xfc
00fa 4801       |H   |		Short_Literal	0x1							; Debug Table 0x2.0x3b = 0xfa,0x11
00fb 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00fc 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x2.0x3c = 0xfc,0x12
00fd e5ff       |    |		Load	0x2,-0x1
00fe 00eb       |    |		Load_Encached	Diana_Cache
00ff 18c5       |    |		Execute	Package,Field_Execute,Field_Number 0xc5
0100 8403       |    |		Call	0x2,0x3
0101 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0102 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x2.0x3d = 0x102,0x13
0103 e5ff       |    |		Load	0x2,-0x1
0104 00eb       |    |		Load_Encached	Diana_Cache
0105 18c6       |    |		Execute	Package,Field_Execute,Field_Number 0xc6
0106 8403       |    |		Call	0x2,0x3
0107 7006       |p   |		Jump_Nonzero	0x10e
0108 00da       |    |		Load_Top	At_Offset_2
0109 e5ff       |    |		Load	0x2,-0x1
010a 00eb       |    |		Load_Encached	Diana_Cache
010b 18c7       |    |		Execute	Package,Field_Execute,Field_Number 0xc7
010c 8403       |    |		Call	0x2,0x3
010d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
010e 4801       |H   |		Short_Literal	0x1
010f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0110 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x2.0x3e = 0x110,0x14
0111 e5ff       |    |		Load	0x2,-0x1
0112 00eb       |    |		Load_Encached	Diana_Cache
0113 18d4       |    |		Execute	Package,Field_Execute,Field_Number 0xd4
0114 8403       |    |		Call	0x2,0x3
0115 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0116 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x2.0x3f = 0x116,0x15
0117 6806       |h   |		Jump_Zero	0x11e
0118 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x2.0x40 = 0x118,0x16
0119 e5ff       |    |		Load	0x2,-0x1
011a 00eb       |    |		Load_Encached	Diana_Cache
011b 18d4       |    |		Execute	Package,Field_Execute,Field_Number 0xd4
011c 8403       |    |		Call	0x2,0x3
011d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
011e 4801       |H   |		Short_Literal	0x1							; Debug Table 0x2.0x41 = 0x11e,0x17
011f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0120 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x2.0x42 = 0x120,0x18
0121 e5ff       |    |		Load	0x2,-0x1
0122 00eb       |    |		Load_Encached	Diana_Cache
0123 18d4       |    |		Execute	Package,Field_Execute,Field_Number 0xd4
0124 8403       |    |		Call	0x2,0x3
0125 7006       |p   |		Jump_Nonzero	0x12c
0126 00da       |    |		Load_Top	At_Offset_2
0127 e5ff       |    |		Load	0x2,-0x1
0128 00eb       |    |		Load_Encached	Diana_Cache
0129 18c5       |    |		Execute	Package,Field_Execute,Field_Number 0xc5
012a 8403       |    |		Call	0x2,0x3
012b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
012c 4801       |H   |		Short_Literal	0x1
012d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
012e e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x2.0x43 = 0x12e,0x19
012f e005       |    |		Load	0x0,0x5
0130 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0131 6814       |h   |		Jump_Zero	0x146
0132 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x2.0x44 = 0x132,0x1a
0133 e5ff       |    |		Load	0x2,-0x1
0134 00eb       |    |		Load_Encached	Diana_Cache
0135 18d4       |    |		Execute	Package,Field_Execute,Field_Number 0xd4
0136 8403       |    |		Call	0x2,0x3
0137 700c       |p   |		Jump_Nonzero	0x144
0138 e5fe       |    |		Load	0x2,-0x2
0139 7008       |p   |		Jump_Nonzero	0x142
013a e5ff       |    |		Load	0x2,-0x1
013b 00eb       |    |		Load_Encached	Diana_Cache
013c 18c0       |    |		Execute	Package,Field_Execute,Field_Number 0xc0
013d 00eb       |    |		Load_Encached	Diana_Cache
013e 18fa       |    |		Execute	Package,Field_Execute,Field_Number 0xfa
013f e005       |    |		Load	0x0,0x5
0140 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0141 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0142 4800       |H   |		Short_Literal	0x0
0143 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0144 4801       |H   |		Short_Literal	0x1
0145 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0146 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x2.0x45 = 0x146,0x1b
0147 e5ff       |    |		Load	0x2,-0x1
0148 00eb       |    |		Load_Encached	Diana_Cache
0149 18c0       |    |		Execute	Package,Field_Execute,Field_Number 0xc0
014a 8403       |    |		Call	0x2,0x3
014b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
014c 0000 0000  |    |		.BLANK	0000[0x4]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0158       | X  |		.CONST	0x0158								; Address of begin
0151 0004       |    |		.CONST	0x0004								; Address of exception handler
0152 0002       |    |		.CONST	0x0002								; Number of locals
0153			INIT_0150:
0153 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x3 = .DEBUG	0x0153,0x036e,0x0002,0x0000,0x005a,0x3035,0x0000,0x0016
													; Debug Table 0x3.0x0 = 0x153,0xffff
0154 00db       |    |		Load_Top	At_Offset_3
0155 e006       |    |		Load	0x0,0x6
0156 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0157 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0158			BODY_0150:
0158 0007       |    |		Action	Break_Optional							; Debug Table 0x3.0x1 = 0x158,0x1
0159 e402       |    |		Load	0x2,0x2								; Debug Table 0x3.0x2 = 0x159,0x401
015a 0007       |    |		Action	Break_Optional
015b 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0x3.0x3 = 0x15b,0x402
015c 0007       |    |		Action	Break_Optional							; Debug Table 0x3.0x4 = 0x15c,0x403
015d 0007       |    |		Action	Break_Optional							; Debug Table 0x3.0x5 = 0x15d,0x404
015e 0b73       | s  |		Execute_Immediate	Case_Compare,0x73				; Debug Table 0x3.0x6 = 0x15e,0x1
015f 700c       |p   |		Jump_Nonzero	0x16c
0160 0b71       | q  |		Execute_Immediate	Case_Compare,0x71
0161 700a       |p   |		Jump_Nonzero	0x16c
0162 0b70       | p  |		Execute_Immediate	Case_Compare,0x70
0163 7008       |p   |		Jump_Nonzero	0x16c
0164 0b6c       | l  |		Execute_Immediate	Case_Compare,0x6c
0165 7008       |p   |		Jump_Nonzero	0x16e
0166 0b72       | r  |		Execute_Immediate	Case_Compare,0x72
0167 700c       |p   |		Jump_Nonzero	0x174
0168 0ba2       |    |		Execute_Immediate	Case_Compare,0xa2
0169 700a       |p   |		Jump_Nonzero	0x174
016a 4800       |H   |		Short_Literal	0x0							; Debug Table 0x3.0x7 = 0x16a,0x5
016b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
016c 4801       |H   |		Short_Literal	0x1							; Debug Table 0x3.0x8 = 0x16c,0x2
016d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
016e e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x3.0x9 = 0x16e,0x3
016f 00da       |    |		Load_Top	At_Offset_2
0170 00eb       |    |		Load_Encached	Diana_Cache
0171 18b9       |    |		Execute	Package,Field_Execute,Field_Number 0xb9
0172 820e       |    |		Call	0x1,0xe
0173 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0174 00cf       |    |		Action	Mark_Auxiliary							; Debug Table 0x3.0xa = 0x174,0x4
0175 00ee       |    |		Load_Encached	Diana_Seq_Type_Cache					; Debug Table 0x3.0xb = 0x175,0xf7ff
0176 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x3.0xc = 0x176,0x801
0177 00eb       |    |		Load_Encached	Diana_Cache
0178 1889       |    |		Execute	Package,Field_Execute,Field_Number 0x89
0179 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
017a 00cf       |    |		Action	Mark_Auxiliary
017b 7843       |xC  |		Jump	0x1bf
017c e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x3.0xd = 0x17c,0x803
017d 00da       |    |		Load_Top	At_Offset_2
017e 0007       |    |		Action	Break_Optional
017f 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0xe = 0x17f,0xc01
0180 7002       |p   |		Jump_Nonzero	0x183
0181 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x3.0xf = 0x181,0xc02
0182 782c       |x,  |		Jump	0x1af
0183 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x10 = 0x183,0xc03
0184 0217       |    |		Execute	Heap_Access,All_Reference
0185 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0186 6804       |h   |		Jump_Zero	0x18b
0187 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x11 = 0x187,0xc04
0188 0217       |    |		Execute	Heap_Access,All_Reference
0189 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
018a 7824       |x$  |		Jump	0x1af
018b 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x12 = 0x18b,0xc05
018c 0007       |    |		Action	Break_Optional
018d e409       |    |		Load	0x2,0x9								; Debug Table 0x3.0x13 = 0x18d,0x1001
018e 0007       |    |		Action	Break_Optional
018f 0148       | H  |		Execute	Heap_Access,Get_Offset						; Debug Table 0x3.0x14 = 0x18f,0x1002
0190 0007       |    |		Action	Break_Optional							; Debug Table 0x3.0x15 = 0x190,0x1003
0191 00d0       |    |		Action	Swap_Control							; Debug Table 0x3.0x16 = 0x191,0x1004
0192 00d1       |    |		Pop_Control	Pop_Count_1
0193 49bb       |I   |		Short_Literal	0x1bb							; Debug Table 0x3.0x17 = 0x193,0xc05
0194 00eb       |    |		Load_Encached	Diana_Cache
0195 0098       |    |		Execute	Package,Field_Read_Dynamic
0196 012c       | ,  |		Execute	Any,Size
0197 e003       |    |		Load	0x0,0x3
0198 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0199 025b       | [  |		Execute	Discrete,Check_In_Type
019a 0273       | s  |		Execute	Discrete,Plus
019b 00d9       |    |		Load_Top	At_Offset_1
019c 0007       |    |		Action	Break_Optional
019d e40a       |    |		Load	0x2,0xa								; Debug Table 0x3.0x18 = 0x19d,0x1401
019e 0007       |    |		Action	Break_Optional
019f 0210       |    |		Execute	Heap_Access,Get_Segment						; Debug Table 0x3.0x19 = 0x19f,0x1402
01a0 0007       |    |		Action	Break_Optional							; Debug Table 0x3.0x1a = 0x1a0,0x1403
01a1 00d0       |    |		Action	Swap_Control							; Debug Table 0x3.0x1b = 0x1a1,0x1404
01a2 00d1       |    |		Pop_Control	Pop_Count_1
01a3 49c8       |I   |		Short_Literal	0x1c8							; Debug Table 0x3.0x1c = 0x1a3,0x1004
01a4 00eb       |    |		Load_Encached	Diana_Cache
01a5 0098       |    |		Execute	Package,Field_Read_Dynamic
01a6 49c9       |I   |		Short_Literal	0x1c9
01a7 00eb       |    |		Load_Encached	Diana_Cache
01a8 0098       |    |		Execute	Package,Field_Read_Dynamic
01a9 49ca       |I   |		Short_Literal	0x1ca
01aa 00eb       |    |		Load_Encached	Diana_Cache
01ab 0095       |    |		Execute	Package,Field_Reference_Dynamic
01ac e004       |    |		Load	0x0,0x4
01ad 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
01ae 7800       |x   |		Jump	0x1af
01af 00d0       |    |		Action	Swap_Control
01b0 00d1       |    |		Pop_Control	Pop_Count_1
01b1 8210       |    |		Call	0x1,0x10							; Debug Table 0x3.0x1d = 0x1b1,0x803
01b2 6802       |h   |		Jump_Zero	0x1b5
01b3 4801       |H   |		Short_Literal	0x1							; Debug Table 0x3.0x1e = 0x1b3,0x804
01b4 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01b5 0007       |    |		Action	Break_Optional							; Debug Table 0x3.0x1f = 0x1b5,0x805
01b6 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x3.0x20 = 0x1b6,0x1801
01b7 7002       |p   |		Jump_Nonzero	0x1ba
01b8 00ee       |    |		Load_Encached	Diana_Seq_Type_Cache					; Debug Table 0x3.0x21 = 0x1b8,0x1802
01b9 7803       |x   |		Jump	0x1bd
01ba 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x3.0x22 = 0x1ba,0x1803
01bb 0217       |    |		Execute	Heap_Access,All_Reference
01bc 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01bd 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2					; Debug Table 0x3.0x23 = 0x1bd,0x805
01be 00c9       |    |		Action	Pop_Auxiliary_Loop
01bf 0007       |    |		Action	Break_Optional							; Debug Table 0x3.0x24 = 0x1bf,0x802
01c0 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x3.0x25 = 0x1c0,0x1c01
01c1 021d       |    |		Execute	Heap_Access,Is_Null
01c2 6fb9       |o   |		Jump_Zero	0x17c							; Debug Table 0x3.0x26 = 0x1c2,0x802
01c3 00ce       |    |		Action	Pop_Auxiliary
01c4 4800       |H   |		Short_Literal	0x0							; Debug Table 0x3.0x27 = 0x1c4,0x806
01c5 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01c6 0000 0000  |    |		.XXX[0x2]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb       |    |		.CONST	0x01cb								; Address of begin
01c9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ca 0001       |    |		.CONST	0x0001								; Number of locals
01cb			BODY_01c8:
01cb			INIT_01c8:
01cb 0007       |    |		Action	Break_Optional							; Debug Table 0x4 = .DEBUG	0x01cb,0x03c0,0x0002,0x0000,0x005a,0x3845,0x0000,0x0022
													; Debug Table 0x4.0x0 = 0x1cb,0x1
01cc e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x4.0x1 = 0x1cc,0x401
01cd 0007       |    |		Action	Break_Optional
01ce 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0x4.0x2 = 0x1ce,0x402
01cf 0007       |    |		Action	Break_Optional							; Debug Table 0x4.0x3 = 0x1cf,0x403
01d0 0007       |    |		Action	Break_Optional							; Debug Table 0x4.0x4 = 0x1d0,0x404
01d1 0b01       |    |		Execute_Immediate	Case_Compare,0x1				; Debug Table 0x4.0x5 = 0x1d1,0x1
01d2 7026       |p&  |		Jump_Nonzero	0x1f9
01d3 0b0d       |    |		Execute_Immediate	Case_Compare,0xd
01d4 7024       |p$  |		Jump_Nonzero	0x1f9
01d5 0b03       |    |		Execute_Immediate	Case_Compare,0x3
01d6 7022       |p"  |		Jump_Nonzero	0x1f9
01d7 0b04       |    |		Execute_Immediate	Case_Compare,0x4
01d8 7020       |p   |		Jump_Nonzero	0x1f9
01d9 0b10       |    |		Execute_Immediate	Case_Compare,0x10
01da 701e       |p   |		Jump_Nonzero	0x1f9
01db 0b11       |    |		Execute_Immediate	Case_Compare,0x11
01dc 701c       |p   |		Jump_Nonzero	0x1f9
01dd 0b06       |    |		Execute_Immediate	Case_Compare,0x6
01de 701a       |p   |		Jump_Nonzero	0x1f9
01df 0b07       |    |		Execute_Immediate	Case_Compare,0x7
01e0 7018       |p   |		Jump_Nonzero	0x1f9
01e1 0b08       |    |		Execute_Immediate	Case_Compare,0x8
01e2 7016       |p   |		Jump_Nonzero	0x1f9
01e3 0b09       |    |		Execute_Immediate	Case_Compare,0x9
01e4 7014       |p   |		Jump_Nonzero	0x1f9
01e5 0b13       |    |		Execute_Immediate	Case_Compare,0x13
01e6 7012       |p   |		Jump_Nonzero	0x1f9
01e7 0b0b       |    |		Execute_Immediate	Case_Compare,0xb
01e8 7010       |p   |		Jump_Nonzero	0x1f9
01e9 0b0c       |    |		Execute_Immediate	Case_Compare,0xc
01ea 700e       |p   |		Jump_Nonzero	0x1f9
01eb 0b16       |    |		Execute_Immediate	Case_Compare,0x16
01ec 700c       |p   |		Jump_Nonzero	0x1f9
01ed 0b0f       |    |		Execute_Immediate	Case_Compare,0xf
01ee 700a       |p   |		Jump_Nonzero	0x1f9
01ef 0b05       |    |		Execute_Immediate	Case_Compare,0x5
01f0 7008       |p   |		Jump_Nonzero	0x1f9
01f1 0b0a       |    |		Execute_Immediate	Case_Compare,0xa
01f2 7006       |p   |		Jump_Nonzero	0x1f9
01f3 0b12       |    |		Execute_Immediate	Case_Compare,0x12
01f4 7010       |p   |		Jump_Nonzero	0x205
01f5 0b0e       |    |		Execute_Immediate	Case_Compare,0xe
01f6 700e       |p   |		Jump_Nonzero	0x205
01f7 4800       |H   |		Short_Literal	0x0							; Debug Table 0x4.0x6 = 0x1f7,0x6
01f8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01f9 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x4.0x7 = 0x1f9,0x2
01fa 00eb       |    |		Load_Encached	Diana_Cache
01fb 18fc       |    |		Execute	Package,Field_Execute,Field_Number 0xfc
01fc 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x4.0x8 = 0x1fc,0x801
01fd 021d       |    |		Execute	Heap_Access,Is_Null
01fe 00d0       |    |		Action	Swap_Control
01ff 00d1       |    |		Pop_Control	Pop_Count_1
0200 6802       |h   |		Jump_Zero	0x203							; Debug Table 0x4.0x9 = 0x200,0x2
0201 4800       |H   |		Short_Literal	0x0							; Debug Table 0x4.0xa = 0x201,0x3
0202 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0203 4801       |H   |		Short_Literal	0x1							; Debug Table 0x4.0xb = 0x203,0x4
0204 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0205 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x4.0xc = 0x205,0x5
0206 00eb       |    |		Load_Encached	Diana_Cache
0207 18fc       |    |		Execute	Package,Field_Execute,Field_Number 0xfc
0208 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x4.0xd = 0x208,0xc01
0209 021d       |    |		Execute	Heap_Access,Is_Null
020a 00d0       |    |		Action	Swap_Control
020b 00d1       |    |		Pop_Control	Pop_Count_1
020c 0f00       |    |		Execute_Immediate	Equal,0x0					; Debug Table 0x4.0xe = 0x20c,0x5
020d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
020e 0000 0000  |    |		.XXX[0x2]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213       |    |		.CONST	0x0213								; Address of begin
0211 0004       |    |		.CONST	0x0004								; Address of exception handler
0212 0001       |    |		.CONST	0x0001								; Number of locals
0213			BODY_0210:
0213			INIT_0210:
0213 0007       |    |		Action	Break_Optional							; Debug Table 0x5 = .DEBUG	0x0213,0x03e0,0x0002,0x0000,0x005a,0x3845,0x0000,0x0296
													; Debug Table 0x5.0x0 = 0x213,0x1
0214 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x5.0x1 = 0x214,0x401
0215 0007       |    |		Action	Break_Optional
0216 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0x5.0x2 = 0x216,0x402
0217 0007       |    |		Action	Break_Optional							; Debug Table 0x5.0x3 = 0x217,0x403
0218 0007       |    |		Action	Break_Optional							; Debug Table 0x5.0x4 = 0x218,0x404
0219 0b39       | 9  |		Execute_Immediate	Case_Compare,0x39				; Debug Table 0x5.0x5 = 0x219,0x1
021a 7007       |p   |		Jump_Nonzero	0x222
021b 0ba6       |    |		Execute_Immediate	Case_Compare,0xa6
021c 7019       |p   |		Jump_Nonzero	0x236
021d 0ba5       |    |		Execute_Immediate	Case_Compare,0xa5
021e 7071       |pq  |		Jump_Nonzero	0x290
021f 0b40       | @  |		Execute_Immediate	Case_Compare,0x40
0220 706f       |po  |		Jump_Nonzero	0x290
0221 7870       |xp  |		Jump	0x292								; Debug Table 0x5.0x6 = 0x221,0x7
0222 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x5.0x7 = 0x222,0x2
0223 00eb       |    |		Load_Encached	Diana_Cache
0224 18d7       |    |		Execute	Package,Field_Execute,Field_Number 0xd7
0225 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x5.0x8 = 0x225,0x801
0226 021d       |    |		Execute	Heap_Access,Is_Null
0227 00d0       |    |		Action	Swap_Control
0228 00d1       |    |		Pop_Control	Pop_Count_1
0229 6806       |h   |		Jump_Zero	0x230							; Debug Table 0x5.0x9 = 0x229,0x2
022a e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x5.0xa = 0x22a,0x3
022b e5ff       |    |		Load	0x2,-0x1
022c 00eb       |    |		Load_Encached	Diana_Cache
022d 18e8       |    |		Execute	Package,Field_Execute,Field_Number 0xe8
022e 820e       |    |		Call	0x1,0xe
022f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0230 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x5.0xb = 0x230,0x4
0231 e5ff       |    |		Load	0x2,-0x1
0232 00eb       |    |		Load_Encached	Diana_Cache
0233 18d7       |    |		Execute	Package,Field_Execute,Field_Number 0xd7
0234 820d       |    |		Call	0x1,0xd
0235 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0236 00cf       |    |		Action	Mark_Auxiliary							; Debug Table 0x5.0xc = 0x236,0x5
0237 00ee       |    |		Load_Encached	Diana_Seq_Type_Cache					; Debug Table 0x5.0xd = 0x237,0xf3ff
0238 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x5.0xe = 0x238,0xc01
0239 00eb       |    |		Load_Encached	Diana_Cache
023a 18ea       |    |		Execute	Package,Field_Execute,Field_Number 0xea
023b 00eb       |    |		Load_Encached	Diana_Cache
023c 1889       |    |		Execute	Package,Field_Execute,Field_Number 0x89
023d e007       |    |		Load	0x0,0x7
023e 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
023f 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0240 00cf       |    |		Action	Mark_Auxiliary
0241 7847       |xG  |		Jump	0x289
0242 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x5.0xf = 0x242,0xc03
0243 00da       |    |		Load_Top	At_Offset_2
0244 0007       |    |		Action	Break_Optional
0245 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x5.0x10 = 0x245,0x1001
0246 7002       |p   |		Jump_Nonzero	0x249
0247 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x5.0x11 = 0x247,0x1002
0248 782c       |x,  |		Jump	0x275
0249 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x5.0x12 = 0x249,0x1003
024a 0217       |    |		Execute	Heap_Access,All_Reference
024b 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
024c 6804       |h   |		Jump_Zero	0x251
024d 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x5.0x13 = 0x24d,0x1004
024e 0217       |    |		Execute	Heap_Access,All_Reference
024f 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0250 7824       |x$  |		Jump	0x275
0251 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x5.0x14 = 0x251,0x1005
0252 0007       |    |		Action	Break_Optional
0253 e408       |    |		Load	0x2,0x8								; Debug Table 0x5.0x15 = 0x253,0x1401
0254 0007       |    |		Action	Break_Optional
0255 0148       | H  |		Execute	Heap_Access,Get_Offset						; Debug Table 0x5.0x16 = 0x255,0x1402
0256 0007       |    |		Action	Break_Optional							; Debug Table 0x5.0x17 = 0x256,0x1403
0257 00d0       |    |		Action	Swap_Control							; Debug Table 0x5.0x18 = 0x257,0x1404
0258 00d1       |    |		Pop_Control	Pop_Count_1
0259 49bb       |I   |		Short_Literal	0x1bb							; Debug Table 0x5.0x19 = 0x259,0x1005
025a 00eb       |    |		Load_Encached	Diana_Cache
025b 0098       |    |		Execute	Package,Field_Read_Dynamic
025c 012c       | ,  |		Execute	Any,Size
025d e003       |    |		Load	0x0,0x3
025e 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
025f 025b       | [  |		Execute	Discrete,Check_In_Type
0260 0273       | s  |		Execute	Discrete,Plus
0261 00d9       |    |		Load_Top	At_Offset_1
0262 0007       |    |		Action	Break_Optional
0263 e409       |    |		Load	0x2,0x9								; Debug Table 0x5.0x1a = 0x263,0x1801
0264 0007       |    |		Action	Break_Optional
0265 0210       |    |		Execute	Heap_Access,Get_Segment						; Debug Table 0x5.0x1b = 0x265,0x1802
0266 0007       |    |		Action	Break_Optional							; Debug Table 0x5.0x1c = 0x266,0x1803
0267 00d0       |    |		Action	Swap_Control							; Debug Table 0x5.0x1d = 0x267,0x1804
0268 00d1       |    |		Pop_Control	Pop_Count_1
0269 49c8       |I   |		Short_Literal	0x1c8							; Debug Table 0x5.0x1e = 0x269,0x1404
026a 00eb       |    |		Load_Encached	Diana_Cache
026b 0098       |    |		Execute	Package,Field_Read_Dynamic
026c 49c9       |I   |		Short_Literal	0x1c9
026d 00eb       |    |		Load_Encached	Diana_Cache
026e 0098       |    |		Execute	Package,Field_Read_Dynamic
026f 49ca       |I   |		Short_Literal	0x1ca
0270 00eb       |    |		Load_Encached	Diana_Cache
0271 0095       |    |		Execute	Package,Field_Reference_Dynamic
0272 e004       |    |		Load	0x0,0x4
0273 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0274 7800       |x   |		Jump	0x275
0275 00d0       |    |		Action	Swap_Control
0276 00d1       |    |		Pop_Control	Pop_Count_1
0277 00eb       |    |		Load_Encached	Diana_Cache						; Debug Table 0x5.0x1f = 0x277,0xc03
0278 18de       |    |		Execute	Package,Field_Execute,Field_Number 0xde
0279 820e       |    |		Call	0x1,0xe
027a 6802       |h   |		Jump_Zero	0x27d
027b 4801       |H   |		Short_Literal	0x1							; Debug Table 0x5.0x20 = 0x27b,0xc04
027c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
027d 0007       |    |		Action	Break_Optional							; Debug Table 0x5.0x21 = 0x27d,0xc05
027e 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x5.0x22 = 0x27e,0x1c01
027f 7002       |p   |		Jump_Nonzero	0x282
0280 00ee       |    |		Load_Encached	Diana_Seq_Type_Cache					; Debug Table 0x5.0x23 = 0x280,0x1c02
0281 7803       |x   |		Jump	0x285
0282 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x5.0x24 = 0x282,0x1c03
0283 0217       |    |		Execute	Heap_Access,All_Reference
0284 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0285 e007       |    |		Load	0x0,0x7								; Debug Table 0x5.0x25 = 0x285,0xc05
0286 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0287 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0288 00c9       |    |		Action	Pop_Auxiliary_Loop
0289 0007       |    |		Action	Break_Optional							; Debug Table 0x5.0x26 = 0x289,0xc02
028a 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x5.0x27 = 0x28a,0x2001
028b 021d       |    |		Execute	Heap_Access,Is_Null
028c 6fb5       |o   |		Jump_Zero	0x242							; Debug Table 0x5.0x28 = 0x28c,0xc02
028d 00ce       |    |		Action	Pop_Auxiliary
028e 4800       |H   |		Short_Literal	0x0							; Debug Table 0x5.0x29 = 0x28e,0xc06
028f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0290 4800       |H   |		Short_Literal	0x0							; Debug Table 0x5.0x2a = 0x290,0x6
0291 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0292 00d1       |    |		Pop_Control	Pop_Count_1
0293 4831       |H1  |		Short_Literal	0x31
0294 0257       | W  |		Execute	Discrete,Raise
0295 0000 0000  |    |		.XXX[0x3]
0297 0000       |    |
0298 ; --------------------------------------------------------------------------------------
0298 ; Debug Table
0298 ; --------------------------------------------------------------------------------------
0298 0003 0006  |    |		.CONST	0x0003,0x0006
029a 000b 02ca  |    |		.DEBUG	0x000b,0x02ca,0x8000,0x0000,0x005a,0x3035,0x0000,0x0005
02a2 0010 02d0  |    |		.DEBUG	0x0010,0x02d0,0x8000,0x0000,0x005a,0x3845,0x0000,0x0015
02aa 0023 02e0  | #  |		.DEBUG	0x0023,0x02e0,0x0002,0x0000,0x005a,0x3035,0x0000,0x0006
02b2 0153 036e  | S n|		.DEBUG	0x0153,0x036e,0x0002,0x0000,0x005a,0x3035,0x0000,0x0016
02ba 01cb 03c0  |    |		.DEBUG	0x01cb,0x03c0,0x0002,0x0000,0x005a,0x3845,0x0000,0x0022
02c2 0213 03e0  |    |		.DEBUG	0x0213,0x03e0,0x0002,0x0000,0x005a,0x3845,0x0000,0x0296
02ca ; --------------------------------------------------------------------------------------
02ca ; Debug3 Subtable 0x0
02ca ; --------------------------------------------------------------------------------------
02ca 0002 0000  |    |		.DBG3TAB	0x0002,0x0000
02cc 000b ffff  |    |		.CONST	0x000b,0xffff
02ce 000d fffe  |    |		.CONST	0x000d,0xfffe
02d0 ; --------------------------------------------------------------------------------------
02d0 ; Debug3 Subtable 0x1
02d0 ; --------------------------------------------------------------------------------------
02d0 0007 0000  |    |		.DBG3TAB	0x0007,0x0000
02d2 0010 ffff  |    |		.CONST	0x0010,0xffff
02d4 0011 fffe  |    |		.CONST	0x0011,0xfffe
02d6 0012 fffd  |    |		.CONST	0x0012,0xfffd
02d8 0013 fffc  |    |		.CONST	0x0013,0xfffc
02da 0015 fffb  |    |		.CONST	0x0015,0xfffb
02dc 0017 fffa  |    |		.CONST	0x0017,0xfffa
02de 0019 fff9  |    |		.CONST	0x0019,0xfff9
02e0 ; --------------------------------------------------------------------------------------
02e0 ; Debug3 Subtable 0x2
02e0 ; --------------------------------------------------------------------------------------
02e0 0004 0042  |   B|		.DBG3TAB	0x0004,0x0042
02e2 0023 ffff  | #  |		.CONST	0x0023,0xffff
02e4 0024 fffe  | $  |		.CONST	0x0024,0xfffe
02e6 0027 fffd  | '  |		.CONST	0x0027,0xfffd
02e8 0028 0001  | (  |		.CONST	0x0028,0x0001
02ea 002f 0002  | /  |		.CONST	0x002f,0x0002
02ec 0031 0003  | 1  |		.CONST	0x0031,0x0003
02ee 0032 0401  | 2  |		.CONST	0x0032,0x0401
02f0 0034 0402  | 4  |		.CONST	0x0034,0x0402
02f2 0035 0403  | 5  |		.CONST	0x0035,0x0403
02f4 0036 0404  | 6  |		.CONST	0x0036,0x0404
02f6 0037 0003  | 7  |		.CONST	0x0037,0x0003
02f8 0067 001c  | g  |		.CONST	0x0067,0x001c
02fa 0069 0004  | i  |		.CONST	0x0069,0x0004
02fc 006b 0005  | k  |		.CONST	0x006b,0x0005
02fe 006d 0006  | m  |		.CONST	0x006d,0x0006
0300 006f 0007  | o  |		.CONST	0x006f,0x0007
0302 0076 0008  | v  |		.CONST	0x0076,0x0008
0304 0078 0009  | x  |		.CONST	0x0078,0x0009
0306 007b 000a  | {  |		.CONST	0x007b,0x000a
0308 007d 000b  | }  |		.CONST	0x007d,0x000b
030a 007f 000c  |    |		.CONST	0x007f,0x000c
030c 0080 f7ff  |    |		.CONST	0x0080,0xf7ff
030e 0081 0801  |    |		.CONST	0x0081,0x0801
0310 0087 0803  |    |		.CONST	0x0087,0x0803
0312 008a 0c01  |    |		.CONST	0x008a,0x0c01
0314 008c 0c02  |    |		.CONST	0x008c,0x0c02
0316 008e 0c03  |    |		.CONST	0x008e,0x0c03
0318 0092 0c04  |    |		.CONST	0x0092,0x0c04
031a 0096 0c05  |    |		.CONST	0x0096,0x0c05
031c 0098 1001  |    |		.CONST	0x0098,0x1001
031e 009a 1002  |    |		.CONST	0x009a,0x1002
0320 009b 1003  |    |		.CONST	0x009b,0x1003
0322 009c 1004  |    |		.CONST	0x009c,0x1004
0324 009e 0c05  |    |		.CONST	0x009e,0x0c05
0326 00a8 1401  |    |		.CONST	0x00a8,0x1401
0328 00aa 1402  |    |		.CONST	0x00aa,0x1402
032a 00ab 1403  |    |		.CONST	0x00ab,0x1403
032c 00ac 1404  |    |		.CONST	0x00ac,0x1404
032e 00ae 1004  |    |		.CONST	0x00ae,0x1004
0330 00bc 0803  |    |		.CONST	0x00bc,0x0803
0332 00be 0804  |    |		.CONST	0x00be,0x0804
0334 00c0 0805  |    |		.CONST	0x00c0,0x0805
0336 00c1 1801  |    |		.CONST	0x00c1,0x1801
0338 00c3 1802  |    |		.CONST	0x00c3,0x1802
033a 00c5 1803  |    |		.CONST	0x00c5,0x1803
033c 00c8 0805  |    |		.CONST	0x00c8,0x0805
033e 00ca 0802  |    |		.CONST	0x00ca,0x0802
0340 00cb 1c01  |    |		.CONST	0x00cb,0x1c01
0342 00cd 0802  |    |		.CONST	0x00cd,0x0802
0344 00cf 0806  |    |		.CONST	0x00cf,0x0806
0346 00d1 000d  |    |		.CONST	0x00d1,0x000d
0348 00d4 2001  |    |		.CONST	0x00d4,0x2001
034a 00d6 2002  |    |		.CONST	0x00d6,0x2002
034c 00d7 2003  |    |		.CONST	0x00d7,0x2003
034e 00d8 2004  |    |		.CONST	0x00d8,0x2004
0350 00da 000d  |    |		.CONST	0x00da,0x000d
0352 00dc 000e  |    |		.CONST	0x00dc,0x000e
0354 00eb 000f  |    |		.CONST	0x00eb,0x000f
0356 00f1 0010  |    |		.CONST	0x00f1,0x0010
0358 00fa 0011  |    |		.CONST	0x00fa,0x0011
035a 00fc 0012  |    |		.CONST	0x00fc,0x0012
035c 0102 0013  |    |		.CONST	0x0102,0x0013
035e 0110 0014  |    |		.CONST	0x0110,0x0014
0360 0116 0015  |    |		.CONST	0x0116,0x0015
0362 0118 0016  |    |		.CONST	0x0118,0x0016
0364 011e 0017  |    |		.CONST	0x011e,0x0017
0366 0120 0018  |    |		.CONST	0x0120,0x0018
0368 012e 0019  | .  |		.CONST	0x012e,0x0019
036a 0132 001a  | 2  |		.CONST	0x0132,0x001a
036c 0146 001b  | F  |		.CONST	0x0146,0x001b
036e ; --------------------------------------------------------------------------------------
036e ; Debug3 Subtable 0x3
036e ; --------------------------------------------------------------------------------------
036e 0002 0026  |   &|		.DBG3TAB	0x0002,0x0026
0370 0153 ffff  | S  |		.CONST	0x0153,0xffff
0372 0158 0001  | X  |		.CONST	0x0158,0x0001
0374 0159 0401  | Y  |		.CONST	0x0159,0x0401
0376 015b 0402  | [  |		.CONST	0x015b,0x0402
0378 015c 0403  | \  |		.CONST	0x015c,0x0403
037a 015d 0404  | ]  |		.CONST	0x015d,0x0404
037c 015e 0001  | ^  |		.CONST	0x015e,0x0001
037e 016a 0005  | j  |		.CONST	0x016a,0x0005
0380 016c 0002  | l  |		.CONST	0x016c,0x0002
0382 016e 0003  | n  |		.CONST	0x016e,0x0003
0384 0174 0004  | t  |		.CONST	0x0174,0x0004
0386 0175 f7ff  | u  |		.CONST	0x0175,0xf7ff
0388 0176 0801  | v  |		.CONST	0x0176,0x0801
038a 017c 0803  | |  |		.CONST	0x017c,0x0803
038c 017f 0c01  |    |		.CONST	0x017f,0x0c01
038e 0181 0c02  |    |		.CONST	0x0181,0x0c02
0390 0183 0c03  |    |		.CONST	0x0183,0x0c03
0392 0187 0c04  |    |		.CONST	0x0187,0x0c04
0394 018b 0c05  |    |		.CONST	0x018b,0x0c05
0396 018d 1001  |    |		.CONST	0x018d,0x1001
0398 018f 1002  |    |		.CONST	0x018f,0x1002
039a 0190 1003  |    |		.CONST	0x0190,0x1003
039c 0191 1004  |    |		.CONST	0x0191,0x1004
039e 0193 0c05  |    |		.CONST	0x0193,0x0c05
03a0 019d 1401  |    |		.CONST	0x019d,0x1401
03a2 019f 1402  |    |		.CONST	0x019f,0x1402
03a4 01a0 1403  |    |		.CONST	0x01a0,0x1403
03a6 01a1 1404  |    |		.CONST	0x01a1,0x1404
03a8 01a3 1004  |    |		.CONST	0x01a3,0x1004
03aa 01b1 0803  |    |		.CONST	0x01b1,0x0803
03ac 01b3 0804  |    |		.CONST	0x01b3,0x0804
03ae 01b5 0805  |    |		.CONST	0x01b5,0x0805
03b0 01b6 1801  |    |		.CONST	0x01b6,0x1801
03b2 01b8 1802  |    |		.CONST	0x01b8,0x1802
03b4 01ba 1803  |    |		.CONST	0x01ba,0x1803
03b6 01bd 0805  |    |		.CONST	0x01bd,0x0805
03b8 01bf 0802  |    |		.CONST	0x01bf,0x0802
03ba 01c0 1c01  |    |		.CONST	0x01c0,0x1c01
03bc 01c2 0802  |    |		.CONST	0x01c2,0x0802
03be 01c4 0806  |    |		.CONST	0x01c4,0x0806
03c0 ; --------------------------------------------------------------------------------------
03c0 ; Debug3 Subtable 0x4
03c0 ; --------------------------------------------------------------------------------------
03c0 0000 000f  |    |		.DBG3TAB	0x0000,0x000f
03c2 01cb 0001  |    |		.CONST	0x01cb,0x0001
03c4 01cc 0401  |    |		.CONST	0x01cc,0x0401
03c6 01ce 0402  |    |		.CONST	0x01ce,0x0402
03c8 01cf 0403  |    |		.CONST	0x01cf,0x0403
03ca 01d0 0404  |    |		.CONST	0x01d0,0x0404
03cc 01d1 0001  |    |		.CONST	0x01d1,0x0001
03ce 01f7 0006  |    |		.CONST	0x01f7,0x0006
03d0 01f9 0002  |    |		.CONST	0x01f9,0x0002
03d2 01fc 0801  |    |		.CONST	0x01fc,0x0801
03d4 0200 0002  |    |		.CONST	0x0200,0x0002
03d6 0201 0003  |    |		.CONST	0x0201,0x0003
03d8 0203 0004  |    |		.CONST	0x0203,0x0004
03da 0205 0005  |    |		.CONST	0x0205,0x0005
03dc 0208 0c01  |    |		.CONST	0x0208,0x0c01
03de 020c 0005  |    |		.CONST	0x020c,0x0005
03e0 ; --------------------------------------------------------------------------------------
03e0 ; Debug3 Subtable 0x5
03e0 ; --------------------------------------------------------------------------------------
03e0 0001 002a  |   *|		.DBG3TAB	0x0001,0x002a
03e2 0213 0001  |    |		.CONST	0x0213,0x0001
03e4 0214 0401  |    |		.CONST	0x0214,0x0401
03e6 0216 0402  |    |		.CONST	0x0216,0x0402
03e8 0217 0403  |    |		.CONST	0x0217,0x0403
03ea 0218 0404  |    |		.CONST	0x0218,0x0404
03ec 0219 0001  |    |		.CONST	0x0219,0x0001
03ee 0221 0007  | !  |		.CONST	0x0221,0x0007
03f0 0222 0002  | "  |		.CONST	0x0222,0x0002
03f2 0225 0801  | %  |		.CONST	0x0225,0x0801
03f4 0229 0002  | )  |		.CONST	0x0229,0x0002
03f6 022a 0003  | *  |		.CONST	0x022a,0x0003
03f8 0230 0004  | 0  |		.CONST	0x0230,0x0004
03fa 0236 0005  | 6  |		.CONST	0x0236,0x0005
03fc 0237 f3ff  | 7  |		.CONST	0x0237,0xf3ff
03fe 0238 0c01  | 8  |		.CONST	0x0238,0x0c01
0400 0242 0c03  | B  |		.CONST	0x0242,0x0c03
0402 0245 1001  | E  |		.CONST	0x0245,0x1001
0404 0247 1002  | G  |		.CONST	0x0247,0x1002
0406 0249 1003  | I  |		.CONST	0x0249,0x1003
0408 024d 1004  | M  |		.CONST	0x024d,0x1004
040a 0251 1005  | Q  |		.CONST	0x0251,0x1005
040c 0253 1401  | S  |		.CONST	0x0253,0x1401
040e 0255 1402  | U  |		.CONST	0x0255,0x1402
0410 0256 1403  | V  |		.CONST	0x0256,0x1403
0412 0257 1404  | W  |		.CONST	0x0257,0x1404
0414 0259 1005  | Y  |		.CONST	0x0259,0x1005
0416 0263 1801  | c  |		.CONST	0x0263,0x1801
0418 0265 1802  | e  |		.CONST	0x0265,0x1802
041a 0266 1803  | f  |		.CONST	0x0266,0x1803
041c 0267 1804  | g  |		.CONST	0x0267,0x1804
041e 0269 1404  | i  |		.CONST	0x0269,0x1404
0420 0277 0c03  | w  |		.CONST	0x0277,0x0c03
0422 027b 0c04  | {  |		.CONST	0x027b,0x0c04
0424 027d 0c05  | }  |		.CONST	0x027d,0x0c05
0426 027e 1c01  | ~  |		.CONST	0x027e,0x1c01
0428 0280 1c02  |    |		.CONST	0x0280,0x1c02
042a 0282 1c03  |    |		.CONST	0x0282,0x1c03
042c 0285 0c05  |    |		.CONST	0x0285,0x0c05
042e 0289 0c02  |    |		.CONST	0x0289,0x0c02
0430 028a 2001  |    |		.CONST	0x028a,0x2001
0432 028c 0c02  |    |		.CONST	0x028c,0x0c02
0434 028e 0c06  |    |		.CONST	0x028e,0x0c06
0436 0290 0006  |    |		.CONST	0x0290,0x0006
0438 0000 0000  |    |		.BLANK	0000[0x1c8]