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

⟦1b0767046⟧

    Length: 2048 (0x800)
    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 0168       | h  |		.CONST	0x0168								; 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 0001       |    |		.CONST	0x0001								; 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 029a 002b  |   +|		Declare_Subprogram	INIT_0028,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0 = .DEBUG	0x000b,0x019a,0x8000,0x0000,0x005a,0x2f75,0x0000,0x0005
													; Debug Table 0x0.0x0 = 0xb,0xffff
000d 029a 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x1 = 0xd,0xfffe
000f 029a 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x2 = 0xf,0xfffd
0011 029a 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x3 = 0x11,0xfffc
0013 00bf       |    |		Action	Accept_Activation
0014 0007       |    |		Action	Break_Optional							; Debug Table 0x1 = .DEBUG	0x0014,0x01a4,0x8000,0x0000,0x005a,0x2f85,0x0000,0x000d
													; Debug Table 0x1.0x0 = 0x14,0xffff
0015 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x1 = 0x15,0xfffe
0016 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x2 = 0x16,0xfffd
0017 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x3 = 0x17,0xfffc
0018 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd				; Debug Table 0x1.0x4 = 0x18,0xfffb
0019 00c7       |    |		Action	Elaborate_Subprogram
001a 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe				; Debug Table 0x1.0x5 = 0x1a,0xfffa
001b 00c7       |    |		Action	Elaborate_Subprogram
001c 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf				; Debug Table 0x1.0x6 = 0x1c,0xfff9
001d 00c7       |    |		Action	Elaborate_Subprogram
001e 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10				; Debug Table 0x1.0x7 = 0x1e,0xfff8
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 0035       | 5  |		.CONST	0x0035								; Address of begin
0029 0004       |    |		.CONST	0x0004								; Address of exception handler
002a 0004       |    |		.CONST	0x0004								; Number of locals
002b			INIT_0028:
002b 00ee       |    |		Load_Encached	Diana_Seq_Type_Cache					; Debug Table 0x2 = .DEBUG	0x002b,0x01b6,0x0002,0x0000,0x005a,0x2f75,0x0000,0x0006
													; Debug Table 0x2.0x0 = 0x2b,0xffff
002c 00db       |    |		Load_Top	At_Offset_3
002d 00eb       |    |		Load_Encached	Diana_Cache
002e 18fe       |    |		Execute	Package,Field_Execute,Field_Number 0xfe
002f 00eb       |    |		Load_Encached	Diana_Cache
0030 1888       |    |		Execute	Package,Field_Execute,Field_Number 0x88
0031 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0032 00e2       |    |		Load_Encached	Integer_Cache						; Debug Table 0x2.0x1 = 0x32,0xfffe
0033 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0034 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x2.0x2 = 0x34,0xfffd
0035			BODY_0028:
0035 00cf       |    |		Action	Mark_Auxiliary
0036 785e       |x^  |		Jump	0x95
0037 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x2.0x3 = 0x37,0x2
0038 0007       |    |		Action	Break_Optional
0039 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0x4 = 0x39,0x401
003a 7002       |p   |		Jump_Nonzero	0x3d
003b 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x2.0x5 = 0x3b,0x402
003c 782c       |x,  |		Jump	0x69
003d 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0x6 = 0x3d,0x403
003e 0217       |    |		Execute	Heap_Access,All_Reference
003f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0040 6804       |h   |		Jump_Zero	0x45
0041 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0x7 = 0x41,0x404
0042 0217       |    |		Execute	Heap_Access,All_Reference
0043 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0044 7824       |x$  |		Jump	0x69
0045 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0x8 = 0x45,0x405
0046 0007       |    |		Action	Break_Optional
0047 e407       |    |		Load	0x2,0x7								; Debug Table 0x2.0x9 = 0x47,0x801
0048 0007       |    |		Action	Break_Optional
0049 0148       | H  |		Execute	Heap_Access,Get_Offset						; Debug Table 0x2.0xa = 0x49,0x802
004a 0007       |    |		Action	Break_Optional							; Debug Table 0x2.0xb = 0x4a,0x803
004b 00d0       |    |		Action	Swap_Control							; Debug Table 0x2.0xc = 0x4b,0x804
004c 00d1       |    |		Pop_Control	Pop_Count_1
004d 49bb       |I   |		Short_Literal	0x1bb							; Debug Table 0x2.0xd = 0x4d,0x405
004e 00eb       |    |		Load_Encached	Diana_Cache
004f 0098       |    |		Execute	Package,Field_Read_Dynamic
0050 012c       | ,  |		Execute	Any,Size
0051 e001       |    |		Load	0x0,0x1
0052 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0053 025b       | [  |		Execute	Discrete,Check_In_Type
0054 0273       | s  |		Execute	Discrete,Plus
0055 00d9       |    |		Load_Top	At_Offset_1
0056 0007       |    |		Action	Break_Optional
0057 e408       |    |		Load	0x2,0x8								; Debug Table 0x2.0xe = 0x57,0xc01
0058 0007       |    |		Action	Break_Optional
0059 0210       |    |		Execute	Heap_Access,Get_Segment						; Debug Table 0x2.0xf = 0x59,0xc02
005a 0007       |    |		Action	Break_Optional							; Debug Table 0x2.0x10 = 0x5a,0xc03
005b 00d0       |    |		Action	Swap_Control							; Debug Table 0x2.0x11 = 0x5b,0xc04
005c 00d1       |    |		Pop_Control	Pop_Count_1
005d 49c8       |I   |		Short_Literal	0x1c8							; Debug Table 0x2.0x12 = 0x5d,0x804
005e 00eb       |    |		Load_Encached	Diana_Cache
005f 0098       |    |		Execute	Package,Field_Read_Dynamic
0060 49c9       |I   |		Short_Literal	0x1c9
0061 00eb       |    |		Load_Encached	Diana_Cache
0062 0098       |    |		Execute	Package,Field_Read_Dynamic
0063 49ca       |I   |		Short_Literal	0x1ca
0064 00eb       |    |		Load_Encached	Diana_Cache
0065 0095       |    |		Execute	Package,Field_Reference_Dynamic
0066 e002       |    |		Load	0x0,0x2
0067 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0068 7800       |x   |		Jump	0x69
0069 00d0       |    |		Action	Swap_Control
006a 00d1       |    |		Pop_Control	Pop_Count_1
006b 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2					; Debug Table 0x2.0x13 = 0x6b,0x2
006c 0007       |    |		Action	Break_Optional							; Debug Table 0x2.0x14 = 0x6c,0x3
006d e404       |    |		Load	0x2,0x4								; Debug Table 0x2.0x15 = 0x6d,0x1001
006e 0007       |    |		Action	Break_Optional
006f 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0x2.0x16 = 0x6f,0x1002
0070 0007       |    |		Action	Break_Optional							; Debug Table 0x2.0x17 = 0x70,0x1003
0071 0007       |    |		Action	Break_Optional							; Debug Table 0x2.0x18 = 0x71,0x1004
0072 0b7e       | ~  |		Execute_Immediate	Case_Compare,0x7e				; Debug Table 0x2.0x19 = 0x72,0x3
0073 7009       |p   |		Jump_Nonzero	0x7d
0074 0b7f       |    |		Execute_Immediate	Case_Compare,0x7f
0075 7007       |p   |		Jump_Nonzero	0x7d
0076 0b40       | @  |		Execute_Immediate	Case_Compare,0x40
0077 7012       |p   |		Jump_Nonzero	0x8a
0078 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x2.0x1a = 0x78,0x6
0079 0a01       |    |		Execute_Immediate	Plus,0x1
007a 0248       | H  |		Execute	Discrete,Check_In_Integer
007b a403       |    |		Store_Unchecked	0x2,0x3
007c 780d       |x   |		Jump	0x8a
007d 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x2.0x1b = 0x7d,0x4
007e 00db       |    |		Load_Top	At_Offset_3
007f 00eb       |    |		Load_Encached	Diana_Cache
0080 18d0       |    |		Execute	Package,Field_Execute,Field_Number 0xd0
0081 00eb       |    |		Load_Encached	Diana_Cache
0082 1888       |    |		Execute	Package,Field_Execute,Field_Number 0x88
0083 4975       |Iu  |		Short_Literal	0x175
0084 00eb       |    |		Load_Encached	Diana_Cache
0085 0098       |    |		Execute	Package,Field_Read_Dynamic
0086 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0087 0273       | s  |		Execute	Discrete,Plus
0088 0248       | H  |		Execute	Discrete,Check_In_Integer
0089 a403       |    |		Store_Unchecked	0x2,0x3
008a 00d1       |    |		Pop_Control	Pop_Count_1
008b 0007       |    |		Action	Break_Optional							; Debug Table 0x2.0x1c = 0x8b,0x7
008c 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x2.0x1d = 0x8c,0x1401
008d 7002       |p   |		Jump_Nonzero	0x90
008e 00ee       |    |		Load_Encached	Diana_Seq_Type_Cache					; Debug Table 0x2.0x1e = 0x8e,0x1402
008f 7803       |x   |		Jump	0x93
0090 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x2.0x1f = 0x90,0x1403
0091 0217       |    |		Execute	Heap_Access,All_Reference
0092 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0093 a402       |    |		Store_Unchecked	0x2,0x2							; Debug Table 0x2.0x20 = 0x93,0x7
0094 00c9       |    |		Action	Pop_Auxiliary_Loop
0095 0007       |    |		Action	Break_Optional							; Debug Table 0x2.0x21 = 0x95,0x1
0096 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x2.0x22 = 0x96,0x1801
0097 021d       |    |		Execute	Heap_Access,Is_Null
0098 6f9e       |o   |		Jump_Zero	0x37							; Debug Table 0x2.0x23 = 0x98,0x1
0099 00ce       |    |		Action	Pop_Auxiliary
009a 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x2.0x24 = 0x9a,0x8
009b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
009c 0000 0000  |    |		.BLANK	0000[0x4]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00ac       |    |		.CONST	0x00ac								; Address of begin
00a1 0004       |    |		.CONST	0x0004								; Address of exception handler
00a2 0002       |    |		.CONST	0x0002								; Number of locals
00a3			INIT_00a0:
00a3 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x3 = .DEBUG	0x00a3,0x0202,0x0001,0x0000,0x005a,0x2f75,0x0000,0x0011
													; Debug Table 0x3.0x0 = 0xa3,0xffff
00a4 00db       |    |		Load_Top	At_Offset_3
00a5 4976       |Iv  |		Short_Literal	0x176
00a6 00eb       |    |		Load_Encached	Diana_Cache
00a7 0098       |    |		Execute	Package,Field_Read_Dynamic
00a8 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00a9 e003       |    |		Load	0x0,0x3
00aa 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
00ab 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
00ac			BODY_00a0:
00ac 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x1 = 0xac,0x1
00ad e004       |    |		Load	0x0,0x4
00ae 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
00af 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00cf       |    |		.CONST	0x00cf								; Address of begin
00b1 0004       |    |		.CONST	0x0004								; Address of exception handler
00b2 0007       |    |		.CONST	0x0007								; Number of locals
00b3			INIT_00b0:
00b3 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x4 = .DEBUG	0x00b3,0x0208,0x0001,0x0000,0x005a,0x2f75,0x0000,0x001b
													; Debug Table 0x4.0x0 = 0xb3,0xffff
00b4 00db       |    |		Load_Top	At_Offset_3
00b5 4974       |It  |		Short_Literal	0x174
00b6 00eb       |    |		Load_Encached	Diana_Cache
00b7 0098       |    |		Execute	Package,Field_Read_Dynamic
00b8 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
00b9 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
00ba 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x4.0x1 = 0xba,0xfffe
00bb 00eb       |    |		Load_Encached	Diana_Cache
00bc 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
00bd e5fe       |    |		Load	0x2,-0x2
00be 00eb       |    |		Load_Encached	Diana_Cache
00bf 1879       | y  |		Execute	Package,Field_Execute,Field_Number 0x79
00c0 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
00c1 00ef       |    |		Load_Encached	Diana_Sequence_Cache					; Debug Table 0x4.0x2 = 0xc1,0xfffd
00c2 00da       |    |		Load_Top	At_Offset_2
00c3 00eb       |    |		Load_Encached	Diana_Cache
00c4 18da       |    |		Execute	Package,Field_Execute,Field_Number 0xda
00c5 4976       |Iv  |		Short_Literal	0x176
00c6 00eb       |    |		Load_Encached	Diana_Cache
00c7 0098       |    |		Execute	Package,Field_Read_Dynamic
00c8 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
00c9 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
00ca 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x4.0x3 = 0xca,0xfffc
00cb 00ef       |    |		Load_Encached	Diana_Sequence_Cache					; Debug Table 0x4.0x4 = 0xcb,0xfffb
00cc 00ef       |    |		Load_Encached	Diana_Sequence_Cache					; Debug Table 0x4.0x5 = 0xcc,0x401
00cd 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1					; Debug Table 0x4.0x6 = 0xcd,0xfffb
00ce 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x4.0x7 = 0xce,0xfffa
00cf			BODY_00b0:
00cf e005       |    |		Load	0x0,0x5								; Debug Table 0x4.0x8 = 0xcf,0x1
00d0 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
00d1 e402       |    |		Load	0x2,0x2
00d2 e006       |    |		Load	0x0,0x6
00d3 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
00d4 e402       |    |		Load	0x2,0x2								; Debug Table 0x4.0x9 = 0xd4,0x2
00d5 e403       |    |		Load	0x2,0x3
00d6 4963       |Ic  |		Short_Literal	0x163
00d7 00eb       |    |		Load_Encached	Diana_Cache
00d8 0096       |    |		Execute	Package,Entry
00d9 00cf       |    |		Action	Mark_Auxiliary
00da 783b       |x;  |		Jump	0x116
00db e404       |    |		Load	0x2,0x4								; Debug Table 0x4.0xa = 0xdb,0x4
00dc 0007       |    |		Action	Break_Optional
00dd 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x4.0xb = 0xdd,0x801
00de 0217       |    |		Execute	Heap_Access,All_Reference
00df 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00e0 00d9       |    |		Load_Top	At_Offset_1
00e1 0007       |    |		Action	Break_Optional
00e2 e40b       |    |		Load	0x2,0xb								; Debug Table 0x4.0xc = 0xe2,0xc01
00e3 0007       |    |		Action	Break_Optional
00e4 0210       |    |		Execute	Heap_Access,Get_Segment						; Debug Table 0x4.0xd = 0xe4,0xc02
00e5 0007       |    |		Action	Break_Optional							; Debug Table 0x4.0xe = 0xe5,0xc03
00e6 00d0       |    |		Action	Swap_Control							; Debug Table 0x4.0xf = 0xe6,0xc04
00e7 00d1       |    |		Pop_Control	Pop_Count_1
00e8 49af       |I   |		Short_Literal	0x1af							; Debug Table 0x4.0x10 = 0xe8,0x801
00e9 00eb       |    |		Load_Encached	Diana_Cache
00ea 0096       |    |		Execute	Package,Entry
00eb 00d0       |    |		Action	Swap_Control
00ec 00d1       |    |		Pop_Control	Pop_Count_1
00ed 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2					; Debug Table 0x4.0x11 = 0xed,0x4
00ee 4816       |H   |		Short_Literal	0x16							; Debug Table 0x4.0x12 = 0xee,0x5
00ef 00eb       |    |		Load_Encached	Diana_Cache
00f0 1878       | x  |		Execute	Package,Field_Execute,Field_Number 0x78
00f1 a405       |    |		Store_Unchecked	0x2,0x5
00f2 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x4.0x13 = 0xf2,0x6
00f3 00da       |    |		Load_Top	At_Offset_2
00f4 496a       |Ij  |		Short_Literal	0x16a
00f5 00eb       |    |		Load_Encached	Diana_Cache
00f6 0096       |    |		Execute	Package,Entry
00f7 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x4.0x14 = 0xf7,0x7
00f8 e405       |    |		Load	0x2,0x5
00f9 4959       |IY  |		Short_Literal	0x159
00fa 00eb       |    |		Load_Encached	Diana_Cache
00fb 0096       |    |		Execute	Package,Entry
00fc 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x4.0x15 = 0xfc,0x8
00fd 4902       |I   |		Short_Literal	0x102
00fe 00eb       |    |		Load_Encached	Diana_Cache
00ff 0096       |    |		Execute	Package,Entry
0100 e405       |    |		Load	0x2,0x5
0101 495b       |I[  |		Short_Literal	0x15b
0102 00eb       |    |		Load_Encached	Diana_Cache
0103 0096       |    |		Execute	Package,Entry
0104 e005       |    |		Load	0x0,0x5								; Debug Table 0x4.0x16 = 0x104,0x9
0105 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
0106 00da       |    |		Load_Top	At_Offset_2
0107 e006       |    |		Load	0x0,0x6
0108 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0109 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x4.0x17 = 0x109,0xa
010a e405       |    |		Load	0x2,0x5
010b 4975       |Iu  |		Short_Literal	0x175
010c 00eb       |    |		Load_Encached	Diana_Cache
010d 0098       |    |		Execute	Package,Field_Read_Dynamic
010e 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
010f 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0110 0007       |    |		Action	Break_Optional							; Debug Table 0x4.0x18 = 0x110,0xb
0111 e404       |    |		Load	0x2,0x4								; Debug Table 0x4.0x19 = 0x111,0x1001
0112 0217       |    |		Execute	Heap_Access,All_Reference
0113 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0114 a404       |    |		Store_Unchecked	0x2,0x4							; Debug Table 0x4.0x1a = 0x114,0xb
0115 00c9       |    |		Action	Pop_Auxiliary_Loop
0116 0007       |    |		Action	Break_Optional							; Debug Table 0x4.0x1b = 0x116,0x3
0117 e404       |    |		Load	0x2,0x4								; Debug Table 0x4.0x1c = 0x117,0x1401
0118 021d       |    |		Execute	Heap_Access,Is_Null
0119 6fc1       |o   |		Jump_Zero	0xdb							; Debug Table 0x4.0x1d = 0x119,0x3
011a 00ce       |    |		Action	Pop_Auxiliary
011b e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x4.0x1e = 0x11b,0xc
011c e402       |    |		Load	0x2,0x2
011d e403       |    |		Load	0x2,0x3
011e e007       |    |		Load	0x0,0x7
011f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0120 e403       |    |		Load	0x2,0x3								; Debug Table 0x4.0x1f = 0x120,0xd
0121 e006       |    |		Load	0x0,0x6
0122 1841       | A  |		Execute	Package,Field_Execute,Field_Number 0x41
0123 c5fc       |    |		Store	0x2,-0x4
0124 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x4.0x20 = 0x124,0xe
0125 00eb       |    |		Load_Encached	Diana_Cache
0126 1880       |    |		Execute	Package,Field_Execute,Field_Number 0x80
0127 a5fb       |    |		Store_Unchecked	0x2,-0x5
0128 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0129 0000 0000  |    |		.BLANK	0000[0x7]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0147       | G  |		.CONST	0x0147								; Address of begin
0131 0004       |    |		.CONST	0x0004								; Address of exception handler
0132 0003       |    |		.CONST	0x0003								; Number of locals
0133			INIT_0130:
0133 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x5 = .DEBUG	0x0133,0x024c,0x0002,0x0000,0x005a,0x2f75,0x0000,0x0039
													; Debug Table 0x5.0x0 = 0x133,0xffff
0134 490c       |I   |		Short_Literal	0x10c
0135 00eb       |    |		Load_Encached	Diana_Cache
0136 0096       |    |		Execute	Package,Entry
0137 00eb       |    |		Load_Encached	Diana_Cache
0138 18ed       |    |		Execute	Package,Field_Execute,Field_Number 0xed
0139 00db       |    |		Load_Top	At_Offset_3
013a 4975       |Iu  |		Short_Literal	0x175
013b 00eb       |    |		Load_Encached	Diana_Cache
013c 0098       |    |		Execute	Package,Field_Read_Dynamic
013d 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
013e 0a01       |    |		Execute_Immediate	Plus,0x1
013f 0248       | H  |		Execute	Discrete,Check_In_Integer
0140 00e2       |    |		Load_Encached	Integer_Cache
0141 03f1       |    |		Declare_Variable	Discrete,With_Value
0142 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x5.0x1 = 0x142,0xfffe
0143 e5fe       |    |		Load	0x2,-0x2
0144 00eb       |    |		Load_Encached	Diana_Cache
0145 18d4       |    |		Execute	Package,Field_Execute,Field_Number 0xd4
0146 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0147			BODY_0130:
0147 0007       |    |		Action	Break_Optional							; Debug Table 0x5.0x2 = 0x147,0x1
0148 e403       |    |		Load	0x2,0x3								; Debug Table 0x5.0x3 = 0x148,0x401
0149 0007       |    |		Action	Break_Optional
014a 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0x5.0x4 = 0x14a,0x402
014b 0007       |    |		Action	Break_Optional							; Debug Table 0x5.0x5 = 0x14b,0x403
014c 0007       |    |		Action	Break_Optional							; Debug Table 0x5.0x6 = 0x14c,0x404
014d 0f11       |    |		Execute_Immediate	Equal,0x11					; Debug Table 0x5.0x7 = 0x14d,0x1
014e 6804       |h   |		Jump_Zero	0x153
014f 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x5.0x8 = 0x14f,0x2
0150 00eb       |    |		Load_Encached	Diana_Cache
0151 18d4       |    |		Execute	Package,Field_Execute,Field_Number 0xd4
0152 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0153 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x5.0x9 = 0x153,0x3
0154 00d9       |    |		Load_Top	At_Offset_1
0155 4976       |Iv  |		Short_Literal	0x176
0156 00eb       |    |		Load_Encached	Diana_Cache
0157 0098       |    |		Execute	Package,Field_Read_Dynamic
0158 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0159 4904       |I   |		Short_Literal	0x104
015a 00eb       |    |		Load_Encached	Diana_Cache
015b 0096       |    |		Execute	Package,Entry
015c 00eb       |    |		Load_Encached	Diana_Cache
015d 18da       |    |		Execute	Package,Field_Execute,Field_Number 0xda
015e 4976       |Iv  |		Short_Literal	0x176
015f 00eb       |    |		Load_Encached	Diana_Cache
0160 0098       |    |		Execute	Package,Field_Read_Dynamic
0161 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0162 4975       |Iu  |		Short_Literal	0x175
0163 00eb       |    |		Load_Encached	Diana_Cache
0164 0098       |    |		Execute	Package,Field_Read_Dynamic
0165 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0166 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0167 0000       |    |		.XXX[0x1]
0168 ; --------------------------------------------------------------------------------------
0168 ; Debug Table
0168 ; --------------------------------------------------------------------------------------
0168 0003 0006  |    |		.CONST	0x0003,0x0006
016a 000b 019a  |    |		.DEBUG	0x000b,0x019a,0x8000,0x0000,0x005a,0x2f75,0x0000,0x0005
0172 0014 01a4  |    |		.DEBUG	0x0014,0x01a4,0x8000,0x0000,0x005a,0x2f85,0x0000,0x000d
017a 002b 01b6  | +  |		.DEBUG	0x002b,0x01b6,0x0002,0x0000,0x005a,0x2f75,0x0000,0x0006
0182 00a3 0202  |    |		.DEBUG	0x00a3,0x0202,0x0001,0x0000,0x005a,0x2f75,0x0000,0x0011
018a 00b3 0208  |    |		.DEBUG	0x00b3,0x0208,0x0001,0x0000,0x005a,0x2f75,0x0000,0x001b
0192 0133 024c  | 3 L|		.DEBUG	0x0133,0x024c,0x0002,0x0000,0x005a,0x2f75,0x0000,0x0039
019a ; --------------------------------------------------------------------------------------
019a ; Debug3 Subtable 0x0
019a ; --------------------------------------------------------------------------------------
019a 0004 0000  |    |		.DBG3TAB	0x0004,0x0000
019c 000b ffff  |    |		.CONST	0x000b,0xffff
019e 000d fffe  |    |		.CONST	0x000d,0xfffe
01a0 000f fffd  |    |		.CONST	0x000f,0xfffd
01a2 0011 fffc  |    |		.CONST	0x0011,0xfffc
01a4 ; --------------------------------------------------------------------------------------
01a4 ; Debug3 Subtable 0x1
01a4 ; --------------------------------------------------------------------------------------
01a4 0008 0000  |    |		.DBG3TAB	0x0008,0x0000
01a6 0014 ffff  |    |		.CONST	0x0014,0xffff
01a8 0015 fffe  |    |		.CONST	0x0015,0xfffe
01aa 0016 fffd  |    |		.CONST	0x0016,0xfffd
01ac 0017 fffc  |    |		.CONST	0x0017,0xfffc
01ae 0018 fffb  |    |		.CONST	0x0018,0xfffb
01b0 001a fffa  |    |		.CONST	0x001a,0xfffa
01b2 001c fff9  |    |		.CONST	0x001c,0xfff9
01b4 001e fff8  |    |		.CONST	0x001e,0xfff8
01b6 ; --------------------------------------------------------------------------------------
01b6 ; Debug3 Subtable 0x2
01b6 ; --------------------------------------------------------------------------------------
01b6 0003 0022  |   "|		.DBG3TAB	0x0003,0x0022
01b8 002b ffff  | +  |		.CONST	0x002b,0xffff
01ba 0032 fffe  | 2  |		.CONST	0x0032,0xfffe
01bc 0034 fffd  | 4  |		.CONST	0x0034,0xfffd
01be 0037 0002  | 7  |		.CONST	0x0037,0x0002
01c0 0039 0401  | 9  |		.CONST	0x0039,0x0401
01c2 003b 0402  | ;  |		.CONST	0x003b,0x0402
01c4 003d 0403  | =  |		.CONST	0x003d,0x0403
01c6 0041 0404  | A  |		.CONST	0x0041,0x0404
01c8 0045 0405  | E  |		.CONST	0x0045,0x0405
01ca 0047 0801  | G  |		.CONST	0x0047,0x0801
01cc 0049 0802  | I  |		.CONST	0x0049,0x0802
01ce 004a 0803  | J  |		.CONST	0x004a,0x0803
01d0 004b 0804  | K  |		.CONST	0x004b,0x0804
01d2 004d 0405  | M  |		.CONST	0x004d,0x0405
01d4 0057 0c01  | W  |		.CONST	0x0057,0x0c01
01d6 0059 0c02  | Y  |		.CONST	0x0059,0x0c02
01d8 005a 0c03  | Z  |		.CONST	0x005a,0x0c03
01da 005b 0c04  | [  |		.CONST	0x005b,0x0c04
01dc 005d 0804  | ]  |		.CONST	0x005d,0x0804
01de 006b 0002  | k  |		.CONST	0x006b,0x0002
01e0 006c 0003  | l  |		.CONST	0x006c,0x0003
01e2 006d 1001  | m  |		.CONST	0x006d,0x1001
01e4 006f 1002  | o  |		.CONST	0x006f,0x1002
01e6 0070 1003  | p  |		.CONST	0x0070,0x1003
01e8 0071 1004  | q  |		.CONST	0x0071,0x1004
01ea 0072 0003  | r  |		.CONST	0x0072,0x0003
01ec 0078 0006  | x  |		.CONST	0x0078,0x0006
01ee 007d 0004  | }  |		.CONST	0x007d,0x0004
01f0 008b 0007  |    |		.CONST	0x008b,0x0007
01f2 008c 1401  |    |		.CONST	0x008c,0x1401
01f4 008e 1402  |    |		.CONST	0x008e,0x1402
01f6 0090 1403  |    |		.CONST	0x0090,0x1403
01f8 0093 0007  |    |		.CONST	0x0093,0x0007
01fa 0095 0001  |    |		.CONST	0x0095,0x0001
01fc 0096 1801  |    |		.CONST	0x0096,0x1801
01fe 0098 0001  |    |		.CONST	0x0098,0x0001
0200 009a 0008  |    |		.CONST	0x009a,0x0008
0202 ; --------------------------------------------------------------------------------------
0202 ; Debug3 Subtable 0x3
0202 ; --------------------------------------------------------------------------------------
0202 0001 0001  |    |		.DBG3TAB	0x0001,0x0001
0204 00a3 ffff  |    |		.CONST	0x00a3,0xffff
0206 00ac 0001  |    |		.CONST	0x00ac,0x0001
0208 ; --------------------------------------------------------------------------------------
0208 ; Debug3 Subtable 0x4
0208 ; --------------------------------------------------------------------------------------
0208 0007 001a  |    |		.DBG3TAB	0x0007,0x001a
020a 00b3 ffff  |    |		.CONST	0x00b3,0xffff
020c 00ba fffe  |    |		.CONST	0x00ba,0xfffe
020e 00c1 fffd  |    |		.CONST	0x00c1,0xfffd
0210 00ca fffc  |    |		.CONST	0x00ca,0xfffc
0212 00cb fffb  |    |		.CONST	0x00cb,0xfffb
0214 00cc 0401  |    |		.CONST	0x00cc,0x0401
0216 00cd fffb  |    |		.CONST	0x00cd,0xfffb
0218 00ce fffa  |    |		.CONST	0x00ce,0xfffa
021a 00cf 0001  |    |		.CONST	0x00cf,0x0001
021c 00d4 0002  |    |		.CONST	0x00d4,0x0002
021e 00db 0004  |    |		.CONST	0x00db,0x0004
0220 00dd 0801  |    |		.CONST	0x00dd,0x0801
0222 00e2 0c01  |    |		.CONST	0x00e2,0x0c01
0224 00e4 0c02  |    |		.CONST	0x00e4,0x0c02
0226 00e5 0c03  |    |		.CONST	0x00e5,0x0c03
0228 00e6 0c04  |    |		.CONST	0x00e6,0x0c04
022a 00e8 0801  |    |		.CONST	0x00e8,0x0801
022c 00ed 0004  |    |		.CONST	0x00ed,0x0004
022e 00ee 0005  |    |		.CONST	0x00ee,0x0005
0230 00f2 0006  |    |		.CONST	0x00f2,0x0006
0232 00f7 0007  |    |		.CONST	0x00f7,0x0007
0234 00fc 0008  |    |		.CONST	0x00fc,0x0008
0236 0104 0009  |    |		.CONST	0x0104,0x0009
0238 0109 000a  |    |		.CONST	0x0109,0x000a
023a 0110 000b  |    |		.CONST	0x0110,0x000b
023c 0111 1001  |    |		.CONST	0x0111,0x1001
023e 0114 000b  |    |		.CONST	0x0114,0x000b
0240 0116 0003  |    |		.CONST	0x0116,0x0003
0242 0117 1401  |    |		.CONST	0x0117,0x1401
0244 0119 0003  |    |		.CONST	0x0119,0x0003
0246 011b 000c  |    |		.CONST	0x011b,0x000c
0248 0120 000d  |    |		.CONST	0x0120,0x000d
024a 0124 000e  | $  |		.CONST	0x0124,0x000e
024c ; --------------------------------------------------------------------------------------
024c ; Debug3 Subtable 0x5
024c ; --------------------------------------------------------------------------------------
024c 0002 0008  |    |		.DBG3TAB	0x0002,0x0008
024e 0133 ffff  | 3  |		.CONST	0x0133,0xffff
0250 0142 fffe  | B  |		.CONST	0x0142,0xfffe
0252 0147 0001  | G  |		.CONST	0x0147,0x0001
0254 0148 0401  | H  |		.CONST	0x0148,0x0401
0256 014a 0402  | J  |		.CONST	0x014a,0x0402
0258 014b 0403  | K  |		.CONST	0x014b,0x0403
025a 014c 0404  | L  |		.CONST	0x014c,0x0404
025c 014d 0001  | M  |		.CONST	0x014d,0x0001
025e 014f 0002  | O  |		.CONST	0x014f,0x0002
0260 0153 0003  | S  |		.CONST	0x0153,0x0003
0262 0000 0000  |    |		.BLANK	0000[0x19e]