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

⟦79381274b⟧

    Length: 2048 (0x800)
    Notes: 00_class, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0500e0

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 01d0       |    |		.CONST	0x01d0								; 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 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,0x0202,0x0000,0x0000,0x0057,0x9775,0x0000,0x05a1
													; Debug Table 0x0.0x0 = 0xb,0xffff
000d 029a 009b  |    |		Declare_Subprogram	INIT_0098,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x1 = 0xd,0xfffe
000f 029a 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x2 = 0xf,0xfffd
0011 00bf       |    |		Action	Accept_Activation
0012 0007       |    |		Action	Break_Optional							; Debug Table 0x1 = .DEBUG	0x0012,0x020a,0x0000,0x0000,0x0057,0x9945,0x0000,0x0006
													; Debug Table 0x1.0x0 = 0x12,0xffff
0013 029d 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Outer_Call			; Debug Table 0x1.0x1 = 0x13,0xfffe
0015 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd				; Debug Table 0x1.0x2 = 0x15,0xfffd
0016 00c7       |    |		Action	Elaborate_Subprogram
0017 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe				; Debug Table 0x1.0x3 = 0x17,0xfffc
0018 00c7       |    |		Action	Elaborate_Subprogram
0019 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf				; Debug Table 0x1.0x4 = 0x19,0xfffb
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 0036       | 6  |		.CONST	0x0036								; Address of begin
0021 0089       |    |		.CONST	0x0089								; Address of exception handler
0022 0008       |    |		.CONST	0x0008								; Number of locals
0023			INIT_0020:
0023 e001       |    |		Load	0x0,0x1								; Debug Table 0x2 = .DEBUG	0x0023,0x0216,0x0001,0x0000,0x0057,0x9775,0x0000,0x05a2
													; Debug Table 0x2.0x0 = 0x23,0xffff
0024 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0025 e001       |    |		Load	0x0,0x1								; Debug Table 0x2.0x1 = 0x25,0xfffe
0026 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0027 02ff       |    |		Declare_Variable	Variant_Record
0028 00d8       |    |		Load_Top	At_Offset_0
0029 1c00       |    |		Execute_Immediate	Run_Utility,0x0
002a e002       |    |		Load	0x0,0x2								; Debug Table 0x2.0x2 = 0x2a,0xfffd
002b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
002c 02c7       |    |		Declare_Variable	Any
002d 00d8       |    |		Load_Top	At_Offset_0
002e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
002f 00f1       |    |		Load_Encached	Diana_Temp_Seq						; Debug Table 0x2.0x3 = 0x2f,0xfffc
0030 e5fd       |    |		Load	0x2,-0x3
0031 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0032 00e2       |    |		Load_Encached	Integer_Cache						; Debug Table 0x2.0x4 = 0x32,0xfffb
0033 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0034 00e2       |    |		Load_Encached	Integer_Cache						; Debug Table 0x2.0x5 = 0x34,0xfffa
0035 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x2.0x6 = 0x35,0xfff9
0036			BODY_0020:
0036 e001       |    |		Load	0x0,0x1								; Debug Table 0x2.0x7 = 0x36,0x1
0037 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0038 e403       |    |		Load	0x2,0x3
0039 0007       |    |		Action	Break_Optional
003a e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x2.0x8 = 0x3a,0x401
003b 0217       |    |		Execute	Heap_Access,All_Reference
003c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
003d e001       |    |		Load	0x0,0x1								; Debug Table 0x2.0x9 = 0x3d,0x1
003e 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
003f 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0040 00d1       |    |		Pop_Control	Pop_Count_1
0041 c402       |    |		Store	0x2,0x2
0042 e402       |    |		Load	0x2,0x2								; Debug Table 0x2.0xa = 0x42,0x2
0043 6801       |h   |		Jump_Zero	0x45
0044 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; Debug Table 0x2.0xb = 0x44,0x3
0045 e001       |    |		Load	0x0,0x1								; Debug Table 0x2.0xc = 0x45,0x4
0046 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0047 e404       |    |		Load	0x2,0x4
0048 0120       |    |		Execute	Any,Is_Value
0049 6803       |h   |		Jump_Zero	0x4d
004a e002       |    |		Load	0x0,0x2
004b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
004c 7801       |x   |		Jump	0x4e
004d e404       |    |		Load	0x2,0x4
004e 6179       |ay  |		Indirect_Literal	Discrete,0x1c8,{0x00000000, 0x00004000}
004f e5fe       |    |		Load	0x2,-0x2
0050 e403       |    |		Load	0x2,0x3
0051 e002       |    |		Load	0x0,0x2
0052 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0053 c404       |    |		Store	0x2,0x4
0054 c402       |    |		Store	0x2,0x2
0055 7827       |x'  |		Jump	0x7d
0056 0007       |    |		Action	Break_Optional							; Debug Table 0x2.0xd = 0x56,0x6
0057 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x2.0xe = 0x57,0x801
0058 0217       |    |		Execute	Heap_Access,All_Reference
0059 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
005a 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1					; Debug Table 0x2.0xf = 0x5a,0x6
005b e404       |    |		Load	0x2,0x4								; Debug Table 0x2.0x10 = 0x5b,0x7
005c 00d9       |    |		Load_Top	At_Offset_1
005d e002       |    |		Load	0x0,0x2
005e 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
005f 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0060 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x2.0x11 = 0x60,0x8
0061 00db       |    |		Load_Top	At_Offset_3
0062 027c       | |  |		Execute	Discrete,Less
0063 700b       |p   |		Jump_Nonzero	0x6f
0064 e5ff       |    |		Load	0x2,-0x1
0065 6807       |h   |		Jump_Zero	0x6d
0066 e408       |    |		Load	0x2,0x8								; Debug Table 0x2.0x12 = 0x66,0xc01
0067 0007       |    |		Action	Break_Optional
0068 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0x2.0x13 = 0x68,0xc02
0069 0007       |    |		Action	Break_Optional							; Debug Table 0x2.0x14 = 0x69,0xc03
006a 0007       |    |		Action	Break_Optional							; Debug Table 0x2.0x15 = 0x6a,0xc04
006b 0f55       | U  |		Execute_Immediate	Equal,0x55					; Debug Table 0x2.0x16 = 0x6b,0x8
006c 7801       |x   |		Jump	0x6e
006d 4800       |H   |		Short_Literal	0x0
006e 6807       |h   |		Jump_Zero	0x76
006f e404       |    |		Load	0x2,0x4								; Debug Table 0x2.0x17 = 0x6f,0x9
0070 e5fd       |    |		Load	0x2,-0x3
0071 e5ff       |    |		Load	0x2,-0x1
0072 8210       |    |		Call	0x1,0x10
0073 c5fd       |    |		Store	0x2,-0x3
0074 c404       |    |		Store	0x2,0x4
0075 780b       |x   |		Jump	0x81								; Debug Table 0x2.0x18 = 0x75,0xa
0076 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x2.0x19 = 0x76,0xb
0077 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0078 0007       |    |		Action	Break_Optional							; Debug Table 0x2.0x1a = 0x78,0xc
0079 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x2.0x1b = 0x79,0x1001
007a 0217       |    |		Execute	Heap_Access,All_Reference
007b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
007c a405       |    |		Store_Unchecked	0x2,0x5							; Debug Table 0x2.0x1c = 0x7c,0xc
007d 0007       |    |		Action	Break_Optional							; Debug Table 0x2.0x1d = 0x7d,0x5
007e 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x2.0x1e = 0x7e,0x1401
007f 021d       |    |		Execute	Heap_Access,Is_Null
0080 6fd5       |o   |		Jump_Zero	0x56							; Debug Table 0x2.0x1f = 0x80,0x5
0081 e001       |    |		Load	0x0,0x1								; Debug Table 0x2.0x20 = 0x81,0xd
0082 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0083 e404       |    |		Load	0x2,0x4
0084 e002       |    |		Load	0x0,0x2
0085 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0086 c404       |    |		Store	0x2,0x4
0087 c402       |    |		Store	0x2,0x2
0088 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0089			TRAP_0020:
0089 0007       |    |		Action	Break_Optional
008a e001       |    |		Load	0x0,0x1								; Debug Table 0x2.0x21 = 0x8a,0xe
008b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
008c e404       |    |		Load	0x2,0x4
008d e002       |    |		Load	0x0,0x2
008e 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
008f c404       |    |		Store	0x2,0x4
0090 c402       |    |		Store	0x2,0x2
0091 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0092 0000 0000  |    |		.BLANK	0000[0x6]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00a1       |    |		.CONST	0x00a1								; Address of begin
0099 0004       |    |		.CONST	0x0004								; Address of exception handler
009a 0002       |    |		.CONST	0x0002								; Number of locals
009b			INIT_0098:
009b e003       |    |		Load	0x0,0x3								; Debug Table 0x3 = .DEBUG	0x009b,0x025c,0x0001,0x0000,0x0057,0x9775,0x0000,0x05b9
													; Debug Table 0x3.0x0 = 0x9b,0xffff
009c 1b29       | )  |		Execute	Package,Field_Read,Field_Number 0x29
009d 00db       |    |		Load_Top	At_Offset_3
009e e004       |    |		Load	0x0,0x4
009f 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
00a0 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
00a1			BODY_0098:
00a1 781f       |x   |		Jump	0xc1
00a2 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x1 = 0xa2,0x2
00a3 0217       |    |		Execute	Heap_Access,All_Reference
00a4 3c0c       |<   |		Execute	Record,Field_Read,Field_Number 0xc
00a5 0d04       |    |		Execute_Immediate	Less,0x4
00a6 6816       |h   |		Jump_Zero	0xbd
00a7 00d8       |    |		Load_Top	At_Offset_0
00a8 0217       |    |		Execute	Heap_Access,All_Reference
00a9 3414       |4   |		Execute	Record,Field_Reference,Field_Number 0x14
00aa 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00ab 0007       |    |		Action	Break_Optional
00ac 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x2 = 0xac,0x401
00ad 021d       |    |		Execute	Heap_Access,Is_Null
00ae 00d0       |    |		Action	Swap_Control
00af 00d1       |    |		Pop_Control	Pop_Count_1
00b0 700c       |p   |		Jump_Nonzero	0xbd							; Debug Table 0x3.0x3 = 0xb0,0x2
00b1 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x4 = 0xb1,0x3
00b2 0219       |    |		Execute	Heap_Access,All_Read
00b3 3c14       |<   |		Execute	Record,Field_Read,Field_Number 0x14
00b4 00d8       |    |		Load_Top	At_Offset_0
00b5 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00b6 e5ff       |    |		Load	0x2,-0x1
00b7 3c12       |<   |		Execute	Record,Field_Read,Field_Number 0x12
00b8 4800       |H   |		Short_Literal	0x0
00b9 820d       |    |		Call	0x1,0xd
00ba 00d9       |    |		Load_Top	At_Offset_1
00bb 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00bc 00d1       |    |		Pop_Control	Pop_Count_1
00bd 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x5 = 0xbd,0x4
00be 0217       |    |		Execute	Heap_Access,All_Reference
00bf 3c1f       |<   |		Execute	Record,Field_Read,Field_Number 0x1f
00c0 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
00c1 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x6 = 0xc1,0x1
00c2 77df       |w   |		Jump_Nonzero	0xa2
00c3 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00c4 0000 0000  |    |		.BLANK	0000[0x4]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00d1       |    |		.CONST	0x00d1								; Address of begin
00c9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ca 0002       |    |		.CONST	0x0002								; Number of locals
00cb			INIT_00c8:
00cb e003       |    |		Load	0x0,0x3								; Debug Table 0x4 = .DEBUG	0x00cb,0x026c,0x0001,0x0000,0x0057,0x9775,0x0000,0x05c1
													; Debug Table 0x4.0x0 = 0xcb,0xffff
00cc 1b29       | )  |		Execute	Package,Field_Read,Field_Number 0x29
00cd 00db       |    |		Load_Top	At_Offset_3
00ce e004       |    |		Load	0x0,0x4
00cf 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
00d0 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
00d1			BODY_00c8:
00d1 781f       |x   |		Jump	0xf1
00d2 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x4.0x1 = 0xd2,0x2
00d3 0217       |    |		Execute	Heap_Access,All_Reference
00d4 3c0c       |<   |		Execute	Record,Field_Read,Field_Number 0xc
00d5 0d04       |    |		Execute_Immediate	Less,0x4
00d6 6816       |h   |		Jump_Zero	0xed
00d7 00d8       |    |		Load_Top	At_Offset_0
00d8 0217       |    |		Execute	Heap_Access,All_Reference
00d9 3414       |4   |		Execute	Record,Field_Reference,Field_Number 0x14
00da 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00db 0007       |    |		Action	Break_Optional
00dc 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x4.0x2 = 0xdc,0x401
00dd 021d       |    |		Execute	Heap_Access,Is_Null
00de 00d0       |    |		Action	Swap_Control
00df 00d1       |    |		Pop_Control	Pop_Count_1
00e0 700c       |p   |		Jump_Nonzero	0xed							; Debug Table 0x4.0x3 = 0xe0,0x2
00e1 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x4.0x4 = 0xe1,0x3
00e2 0219       |    |		Execute	Heap_Access,All_Read
00e3 3c14       |<   |		Execute	Record,Field_Read,Field_Number 0x14
00e4 00d8       |    |		Load_Top	At_Offset_0
00e5 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00e6 e5ff       |    |		Load	0x2,-0x1
00e7 3c12       |<   |		Execute	Record,Field_Read,Field_Number 0x12
00e8 4800       |H   |		Short_Literal	0x0
00e9 820d       |    |		Call	0x1,0xd
00ea 00d9       |    |		Load_Top	At_Offset_1
00eb 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00ec 00d1       |    |		Pop_Control	Pop_Count_1
00ed 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x4.0x5 = 0xed,0x4
00ee 0217       |    |		Execute	Heap_Access,All_Reference
00ef 3c1f       |<   |		Execute	Record,Field_Read,Field_Number 0x1f
00f0 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
00f1 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x4.0x6 = 0xf1,0x1
00f2 77df       |w   |		Jump_Nonzero	0xd2
00f3 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00f4 0000 0000  |    |		.BLANK	0000[0x4]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 0112       |    |		.CONST	0x0112								; Address of begin
00f9 0004       |    |		.CONST	0x0004								; Address of exception handler
00fa 0009       |    |		.CONST	0x0009								; Number of locals
00fb			INIT_00f8:
00fb 4803       |H   |		Short_Literal	0x3							; Debug Table 0x5 = .DEBUG	0x00fb,0x027c,0x0001,0x0000,0x0057,0x9945,0x0000,0x0017
													; Debug Table 0x5.0x0 = 0xfb,0xffff
00fc 032a       | *  |		Declare_Type	Record,Incomplete
00fd 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x5.0x1 = 0xfd,0xfffe
00fe 02a0       |    |		Declare_Subprogram	Null_Subprogram
00ff 4818       |H   |		Short_Literal	0x18
0100 03d3       |    |		Declare_Type	Access,Defined,Accesses_Protected
0101 00e2       |    |		Load_Encached	Integer_Cache						; Debug Table 0x5.0x2 = 0x101,0xfffd
0102 00ec       |    |		Load_Encached	Diana_Tree_Cache
0103 00da       |    |		Load_Top	At_Offset_2
0104 02a0       |    |		Declare_Subprogram	Null_Subprogram
0105 e402       |    |		Load	0x2,0x2
0106 0326       | &  |		Complete_Type	Record,By_Defining
0107 00f1       |    |		Load_Encached	Diana_Temp_Seq						; Debug Table 0x5.0x3 = 0x107,0xfffc
0108 e5fe       |    |		Load	0x2,-0x2
0109 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
010a 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x5.0x4 = 0x10a,0xfffb
010b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x5.0x5 = 0x10b,0xfffa
010c 0007       |    |		Action	Break_Optional
010d 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x5.0x6 = 0x10d,0xfff9
010e 0007       |    |		Action	Break_Optional
010f e403       |    |		Load	0x2,0x3								; Debug Table 0x5.0x7 = 0x10f,0xfff8
0110 0007       |    |		Action	Break_Optional
0111 00e2       |    |		Load_Encached	Integer_Cache						; Debug Table 0x5.0x8 = 0x111,0xfff7
0112			BODY_00f8:
0112 7896       |x   |		Jump	0x1a9
0113 0007       |    |		Action	Break_Optional							; Debug Table 0x5.0x9 = 0x113,0x2
0114 e404       |    |		Load	0x2,0x4								; Debug Table 0x5.0xa = 0x114,0x401
0115 0217       |    |		Execute	Heap_Access,All_Reference
0116 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0117 a405       |    |		Store_Unchecked	0x2,0x5							; Debug Table 0x5.0xb = 0x117,0x2
0118 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x5.0xc = 0x118,0x3
0119 e405       |    |		Load	0x2,0x5
011a e002       |    |		Load	0x0,0x2
011b 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
011c 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
011d e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x5.0xd = 0x11d,0x4
011e 6838       |h8  |		Jump_Zero	0x157
011f e405       |    |		Load	0x2,0x5								; Debug Table 0x5.0xe = 0x11f,0x801
0120 0007       |    |		Action	Break_Optional
0121 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0x5.0xf = 0x121,0x802
0122 0007       |    |		Action	Break_Optional							; Debug Table 0x5.0x10 = 0x122,0x803
0123 0007       |    |		Action	Break_Optional							; Debug Table 0x5.0x11 = 0x123,0x804
0124 0f55       | U  |		Execute_Immediate	Equal,0x55					; Debug Table 0x5.0x12 = 0x124,0x4
0125 6831       |h1  |		Jump_Zero	0x157
0126 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x5.0x13 = 0x126,0x5
0127 700f       |p   |		Jump_Nonzero	0x137
0128 e402       |    |		Load	0x2,0x2								; Debug Table 0x5.0x14 = 0x128,0x6
0129 0322       | "  |		Declare_Variable	Record
012a 6099       |`   |		Indirect_Literal	Discrete,0x1c4,{0x00000000, 0x7fffffff}
012b 00d9       |    |		Load_Top	At_Offset_1
012c 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
012d e405       |    |		Load	0x2,0x5
012e 00d9       |    |		Load_Top	At_Offset_1
012f 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0130 e403       |    |		Load	0x2,0x3
0131 00d9       |    |		Load_Top	At_Offset_1
0132 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0133 e403       |    |		Load	0x2,0x3
0134 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0135 a406       |    |		Store_Unchecked	0x2,0x6
0136 786d       |xm  |		Jump	0x1a4
0137 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x5.0x15 = 0x137,0x7
0138 003b       | ;  |		Store_Top	Access,At_Offset_3
0139 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x5.0x16 = 0x139,0x8
013a 0227       | '  |		Execute	Access,All_Reference
013b 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
013c 003a       | :  |		Store_Top	Access,At_Offset_2
013d 7806       |x   |		Jump	0x144
013e 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x5.0x17 = 0x13e,0xa
013f 003b       | ;  |		Store_Top	Access,At_Offset_3
0140 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x5.0x18 = 0x140,0xb
0141 0227       | '  |		Execute	Access,All_Reference
0142 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0143 003a       | :  |		Store_Top	Access,At_Offset_2
0144 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x5.0x19 = 0x144,0x9
0145 77f8       |w   |		Jump_Nonzero	0x13e
0146 e402       |    |		Load	0x2,0x2								; Debug Table 0x5.0x1a = 0x146,0xc
0147 0322       | "  |		Declare_Variable	Record
0148 607b       |`{  |		Indirect_Literal	Discrete,0x1c4,{0x00000000, 0x7fffffff}
0149 00d9       |    |		Load_Top	At_Offset_1
014a 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
014b e405       |    |		Load	0x2,0x5
014c 00d9       |    |		Load_Top	At_Offset_1
014d 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
014e e403       |    |		Load	0x2,0x3
014f 00d9       |    |		Load_Top	At_Offset_1
0150 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0151 e403       |    |		Load	0x2,0x3
0152 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0153 00db       |    |		Load_Top	At_Offset_3
0154 0227       | '  |		Execute	Access,All_Reference
0155 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0156 784d       |xM  |		Jump	0x1a4
0157 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x5.0x1b = 0x157,0xd
0158 700f       |p   |		Jump_Nonzero	0x168
0159 e402       |    |		Load	0x2,0x2								; Debug Table 0x5.0x1c = 0x159,0xe
015a 0322       | "  |		Declare_Variable	Record
015b 00d9       |    |		Load_Top	At_Offset_1
015c 00d9       |    |		Load_Top	At_Offset_1
015d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
015e e405       |    |		Load	0x2,0x5
015f 00d9       |    |		Load_Top	At_Offset_1
0160 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0161 e403       |    |		Load	0x2,0x3
0162 00d9       |    |		Load_Top	At_Offset_1
0163 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0164 e403       |    |		Load	0x2,0x3
0165 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0166 a406       |    |		Store_Unchecked	0x2,0x6
0167 783c       |x<  |		Jump	0x1a4
0168 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x5.0x1d = 0x168,0xf
0169 e406       |    |		Load	0x2,0x6
016a 0227       | '  |		Execute	Access,All_Reference
016b 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
016c 027c       | |  |		Execute	Discrete,Less
016d 680f       |h   |		Jump_Zero	0x17d
016e e402       |    |		Load	0x2,0x2								; Debug Table 0x5.0x1e = 0x16e,0x10
016f 0322       | "  |		Declare_Variable	Record
0170 00d9       |    |		Load_Top	At_Offset_1
0171 00d9       |    |		Load_Top	At_Offset_1
0172 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0173 e405       |    |		Load	0x2,0x5
0174 00d9       |    |		Load_Top	At_Offset_1
0175 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0176 e406       |    |		Load	0x2,0x6
0177 00d9       |    |		Load_Top	At_Offset_1
0178 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0179 e403       |    |		Load	0x2,0x3
017a 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
017b a406       |    |		Store_Unchecked	0x2,0x6
017c 7827       |x'  |		Jump	0x1a4
017d 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x5.0x1f = 0x17d,0x11
017e 003b       | ;  |		Store_Top	Access,At_Offset_3
017f 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x5.0x20 = 0x17f,0x12
0180 0227       | '  |		Execute	Access,All_Reference
0181 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0182 003a       | :  |		Store_Top	Access,At_Offset_2
0183 0007       |    |		Action	Break_Optional							; Debug Table 0x5.0x21 = 0x183,0x13
0184 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x5.0x22 = 0x184,0x14
0185 6806       |h   |		Jump_Zero	0x18c
0186 00d8       |    |		Load_Top	At_Offset_0
0187 00da       |    |		Load_Top	At_Offset_2
0188 0227       | '  |		Execute	Access,All_Reference
0189 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
018a 027c       | |  |		Execute	Discrete,Less
018b 6811       |h   |		Jump_Zero	0x19d
018c e402       |    |		Load	0x2,0x2								; Debug Table 0x5.0x23 = 0x18c,0x15
018d 0322       | "  |		Declare_Variable	Record
018e 00d9       |    |		Load_Top	At_Offset_1
018f 00d9       |    |		Load_Top	At_Offset_1
0190 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0191 e405       |    |		Load	0x2,0x5
0192 00d9       |    |		Load_Top	At_Offset_1
0193 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0194 00da       |    |		Load_Top	At_Offset_2
0195 00d9       |    |		Load_Top	At_Offset_1
0196 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0197 e403       |    |		Load	0x2,0x3
0198 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0199 00db       |    |		Load_Top	At_Offset_3
019a 0227       | '  |		Execute	Access,All_Reference
019b 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
019c 7807       |x   |		Jump	0x1a4								; Debug Table 0x5.0x24 = 0x19c,0x16
019d 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x5.0x25 = 0x19d,0x17
019e 003b       | ;  |		Store_Top	Access,At_Offset_3
019f 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x5.0x26 = 0x19f,0x18
01a0 0227       | '  |		Execute	Access,All_Reference
01a1 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01a2 003a       | :  |		Store_Top	Access,At_Offset_2
01a3 7fe0       |    |		Jump	0x184
01a4 0007       |    |		Action	Break_Optional							; Debug Table 0x5.0x27 = 0x1a4,0x19
01a5 e404       |    |		Load	0x2,0x4								; Debug Table 0x5.0x28 = 0x1a5,0xc01
01a6 0217       |    |		Execute	Heap_Access,All_Reference
01a7 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01a8 a404       |    |		Store_Unchecked	0x2,0x4							; Debug Table 0x5.0x29 = 0x1a8,0x19
01a9 0007       |    |		Action	Break_Optional							; Debug Table 0x5.0x2a = 0x1a9,0x1
01aa e404       |    |		Load	0x2,0x4								; Debug Table 0x5.0x2b = 0x1aa,0x1001
01ab 021d       |    |		Execute	Heap_Access,Is_Null
01ac 6f66       |of  |		Jump_Zero	0x113							; Debug Table 0x5.0x2c = 0x1ac,0x1
01ad e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x5.0x2d = 0x1ad,0x1a
01ae a404       |    |		Store_Unchecked	0x2,0x4
01af 780f       |x   |		Jump	0x1bf
01b0 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x5.0x2e = 0x1b0,0x1c
01b1 0227       | '  |		Execute	Access,All_Reference
01b2 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01b3 e404       |    |		Load	0x2,0x4
01b4 00eb       |    |		Load_Encached	Diana_Cache
01b5 1876       | v  |		Execute	Package,Field_Execute,Field_Number 0x76
01b6 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x5.0x2f = 0x1b6,0x1d
01b7 0227       | '  |		Execute	Access,All_Reference
01b8 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01b9 a406       |    |		Store_Unchecked	0x2,0x6
01ba 0007       |    |		Action	Break_Optional							; Debug Table 0x5.0x30 = 0x1ba,0x1e
01bb e404       |    |		Load	0x2,0x4								; Debug Table 0x5.0x31 = 0x1bb,0x1401
01bc 0217       |    |		Execute	Heap_Access,All_Reference
01bd 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01be a404       |    |		Store_Unchecked	0x2,0x4							; Debug Table 0x5.0x32 = 0x1be,0x1e
01bf 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x5.0x33 = 0x1bf,0x1b
01c0 77ef       |w   |		Jump_Nonzero	0x1b0
01c1 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01c2 0000 0000  |    |		.XXX[0x2]
01c4 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
01c8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
01cc 0000 0000  |    |		.BLANK	0000[0x4]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; Debug Table
01d0 ; --------------------------------------------------------------------------------------
01d0 0003 0006  |    |		.CONST	0x0003,0x0006
01d2 000b 0202  |    |		.DEBUG	0x000b,0x0202,0x0000,0x0000,0x0057,0x9775,0x0000,0x05a1
01da 0012 020a  |    |		.DEBUG	0x0012,0x020a,0x0000,0x0000,0x0057,0x9945,0x0000,0x0006
01e2 0023 0216  | #  |		.DEBUG	0x0023,0x0216,0x0001,0x0000,0x0057,0x9775,0x0000,0x05a2
01ea 009b 025c  |   \|		.DEBUG	0x009b,0x025c,0x0001,0x0000,0x0057,0x9775,0x0000,0x05b9
01f2 00cb 026c  |   l|		.DEBUG	0x00cb,0x026c,0x0001,0x0000,0x0057,0x9775,0x0000,0x05c1
01fa 00fb 027c  |   ||		.DEBUG	0x00fb,0x027c,0x0001,0x0000,0x0057,0x9945,0x0000,0x0017
0202 ; --------------------------------------------------------------------------------------
0202 ; Debug3 Subtable 0x0
0202 ; --------------------------------------------------------------------------------------
0202 0003 0000  |    |		.DBG3TAB	0x0003,0x0000
0204 000b ffff  |    |		.CONST	0x000b,0xffff
0206 000d fffe  |    |		.CONST	0x000d,0xfffe
0208 000f fffd  |    |		.CONST	0x000f,0xfffd
020a ; --------------------------------------------------------------------------------------
020a ; Debug3 Subtable 0x1
020a ; --------------------------------------------------------------------------------------
020a 0005 0000  |    |		.DBG3TAB	0x0005,0x0000
020c 0012 ffff  |    |		.CONST	0x0012,0xffff
020e 0013 fffe  |    |		.CONST	0x0013,0xfffe
0210 0015 fffd  |    |		.CONST	0x0015,0xfffd
0212 0017 fffc  |    |		.CONST	0x0017,0xfffc
0214 0019 fffb  |    |		.CONST	0x0019,0xfffb
0216 ; --------------------------------------------------------------------------------------
0216 ; Debug3 Subtable 0x2
0216 ; --------------------------------------------------------------------------------------
0216 0007 001b  |    |		.DBG3TAB	0x0007,0x001b
0218 0023 ffff  | #  |		.CONST	0x0023,0xffff
021a 0025 fffe  | %  |		.CONST	0x0025,0xfffe
021c 002a fffd  | *  |		.CONST	0x002a,0xfffd
021e 002f fffc  | /  |		.CONST	0x002f,0xfffc
0220 0032 fffb  | 2  |		.CONST	0x0032,0xfffb
0222 0034 fffa  | 4  |		.CONST	0x0034,0xfffa
0224 0035 fff9  | 5  |		.CONST	0x0035,0xfff9
0226 0036 0001  | 6  |		.CONST	0x0036,0x0001
0228 003a 0401  | :  |		.CONST	0x003a,0x0401
022a 003d 0001  | =  |		.CONST	0x003d,0x0001
022c 0042 0002  | B  |		.CONST	0x0042,0x0002
022e 0044 0003  | D  |		.CONST	0x0044,0x0003
0230 0045 0004  | E  |		.CONST	0x0045,0x0004
0232 0056 0006  | V  |		.CONST	0x0056,0x0006
0234 0057 0801  | W  |		.CONST	0x0057,0x0801
0236 005a 0006  | Z  |		.CONST	0x005a,0x0006
0238 005b 0007  | [  |		.CONST	0x005b,0x0007
023a 0060 0008  | `  |		.CONST	0x0060,0x0008
023c 0066 0c01  | f  |		.CONST	0x0066,0x0c01
023e 0068 0c02  | h  |		.CONST	0x0068,0x0c02
0240 0069 0c03  | i  |		.CONST	0x0069,0x0c03
0242 006a 0c04  | j  |		.CONST	0x006a,0x0c04
0244 006b 0008  | k  |		.CONST	0x006b,0x0008
0246 006f 0009  | o  |		.CONST	0x006f,0x0009
0248 0075 000a  | u  |		.CONST	0x0075,0x000a
024a 0076 000b  | v  |		.CONST	0x0076,0x000b
024c 0078 000c  | x  |		.CONST	0x0078,0x000c
024e 0079 1001  | y  |		.CONST	0x0079,0x1001
0250 007c 000c  | |  |		.CONST	0x007c,0x000c
0252 007d 0005  | }  |		.CONST	0x007d,0x0005
0254 007e 1401  | ~  |		.CONST	0x007e,0x1401
0256 0080 0005  |    |		.CONST	0x0080,0x0005
0258 0081 000d  |    |		.CONST	0x0081,0x000d
025a 008a 000e  |    |		.CONST	0x008a,0x000e
025c ; --------------------------------------------------------------------------------------
025c ; Debug3 Subtable 0x3
025c ; --------------------------------------------------------------------------------------
025c 0001 0006  |    |		.DBG3TAB	0x0001,0x0006
025e 009b ffff  |    |		.CONST	0x009b,0xffff
0260 00a2 0002  |    |		.CONST	0x00a2,0x0002
0262 00ac 0401  |    |		.CONST	0x00ac,0x0401
0264 00b0 0002  |    |		.CONST	0x00b0,0x0002
0266 00b1 0003  |    |		.CONST	0x00b1,0x0003
0268 00bd 0004  |    |		.CONST	0x00bd,0x0004
026a 00c1 0001  |    |		.CONST	0x00c1,0x0001
026c ; --------------------------------------------------------------------------------------
026c ; Debug3 Subtable 0x4
026c ; --------------------------------------------------------------------------------------
026c 0001 0006  |    |		.DBG3TAB	0x0001,0x0006
026e 00cb ffff  |    |		.CONST	0x00cb,0xffff
0270 00d2 0002  |    |		.CONST	0x00d2,0x0002
0272 00dc 0401  |    |		.CONST	0x00dc,0x0401
0274 00e0 0002  |    |		.CONST	0x00e0,0x0002
0276 00e1 0003  |    |		.CONST	0x00e1,0x0003
0278 00ed 0004  |    |		.CONST	0x00ed,0x0004
027a 00f1 0001  |    |		.CONST	0x00f1,0x0001
027c ; --------------------------------------------------------------------------------------
027c ; Debug3 Subtable 0x5
027c ; --------------------------------------------------------------------------------------
027c 0009 002b  |   +|		.DBG3TAB	0x0009,0x002b
027e 00fb ffff  |    |		.CONST	0x00fb,0xffff
0280 00fd fffe  |    |		.CONST	0x00fd,0xfffe
0282 0101 fffd  |    |		.CONST	0x0101,0xfffd
0284 0107 fffc  |    |		.CONST	0x0107,0xfffc
0286 010a fffb  |    |		.CONST	0x010a,0xfffb
0288 010b fffa  |    |		.CONST	0x010b,0xfffa
028a 010d fff9  |    |		.CONST	0x010d,0xfff9
028c 010f fff8  |    |		.CONST	0x010f,0xfff8
028e 0111 fff7  |    |		.CONST	0x0111,0xfff7
0290 0113 0002  |    |		.CONST	0x0113,0x0002
0292 0114 0401  |    |		.CONST	0x0114,0x0401
0294 0117 0002  |    |		.CONST	0x0117,0x0002
0296 0118 0003  |    |		.CONST	0x0118,0x0003
0298 011d 0004  |    |		.CONST	0x011d,0x0004
029a 011f 0801  |    |		.CONST	0x011f,0x0801
029c 0121 0802  | !  |		.CONST	0x0121,0x0802
029e 0122 0803  | "  |		.CONST	0x0122,0x0803
02a0 0123 0804  | #  |		.CONST	0x0123,0x0804
02a2 0124 0004  | $  |		.CONST	0x0124,0x0004
02a4 0126 0005  | &  |		.CONST	0x0126,0x0005
02a6 0128 0006  | (  |		.CONST	0x0128,0x0006
02a8 0137 0007  | 7  |		.CONST	0x0137,0x0007
02aa 0139 0008  | 9  |		.CONST	0x0139,0x0008
02ac 013e 000a  | >  |		.CONST	0x013e,0x000a
02ae 0140 000b  | @  |		.CONST	0x0140,0x000b
02b0 0144 0009  | D  |		.CONST	0x0144,0x0009
02b2 0146 000c  | F  |		.CONST	0x0146,0x000c
02b4 0157 000d  | W  |		.CONST	0x0157,0x000d
02b6 0159 000e  | Y  |		.CONST	0x0159,0x000e
02b8 0168 000f  | h  |		.CONST	0x0168,0x000f
02ba 016e 0010  | n  |		.CONST	0x016e,0x0010
02bc 017d 0011  | }  |		.CONST	0x017d,0x0011
02be 017f 0012  |    |		.CONST	0x017f,0x0012
02c0 0183 0013  |    |		.CONST	0x0183,0x0013
02c2 0184 0014  |    |		.CONST	0x0184,0x0014
02c4 018c 0015  |    |		.CONST	0x018c,0x0015
02c6 019c 0016  |    |		.CONST	0x019c,0x0016
02c8 019d 0017  |    |		.CONST	0x019d,0x0017
02ca 019f 0018  |    |		.CONST	0x019f,0x0018
02cc 01a4 0019  |    |		.CONST	0x01a4,0x0019
02ce 01a5 0c01  |    |		.CONST	0x01a5,0x0c01
02d0 01a8 0019  |    |		.CONST	0x01a8,0x0019
02d2 01a9 0001  |    |		.CONST	0x01a9,0x0001
02d4 01aa 1001  |    |		.CONST	0x01aa,0x1001
02d6 01ac 0001  |    |		.CONST	0x01ac,0x0001
02d8 01ad 001a  |    |		.CONST	0x01ad,0x001a
02da 01b0 001c  |    |		.CONST	0x01b0,0x001c
02dc 01b6 001d  |    |		.CONST	0x01b6,0x001d
02de 01ba 001e  |    |		.CONST	0x01ba,0x001e
02e0 01bb 1401  |    |		.CONST	0x01bb,0x1401
02e2 01be 001e  |    |		.CONST	0x01be,0x001e
02e4 01bf 001b  |    |		.CONST	0x01bf,0x001b
02e6 0000 0000  |    |		.BLANK	0000[0x11a]