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

⟦1aa345443⟧

    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 0148       | H  |		.CONST	0x0148								; 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 0019       |    |		.CONST	0x0019								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 000e       |    |		.CONST	0x000e								; Number of locals
000b			INIT_0008:
000b 0007       |    |		Action	Break_Optional							; Debug Table 0x0 = .DEBUG	0x000b,0x0182,0x8000,0x0000,0x0056,0xb2c5,0x0000,0x0007
													; Debug Table 0x0.0x0 = 0xb,0xffff
000c 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x1 = 0xc,0xfffe
000d 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x2 = 0xd,0xfffd
000e 029a 0023  |   #|		Declare_Subprogram	INIT_0020,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x3 = 0xe,0xfffc
0010 029a 002b  |   +|		Declare_Subprogram	INIT_0028,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x4 = 0x10,0xfffb
0012 00bf       |    |		Action	Accept_Activation
0013 0007       |    |		Action	Break_Optional							; Debug Table 0x1 = .DEBUG	0x0013,0x018e,0x8000,0x0000,0x0058,0x2c45,0x0000,0x0009
													; Debug Table 0x1.0x0 = 0x13,0xffff
0014 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x1 = 0x14,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			BODY_0008:
0019 00bc       |    |		Action	Signal_Activated
001a 00bb       |    |		Action	Signal_Completion
001b 0000 0000  |    |		.BLANK	0000[0x5]
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 0023       | #  |		.CONST	0x0023								; Address of begin
0021 0004       |    |		.CONST	0x0004								; Address of exception handler
0022 0001       |    |		.CONST	0x0001								; Number of locals
0023			BODY_0020:
0023			INIT_0020:
0023 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; Debug Table 0x2 = .DEBUG	0x0023,0x0198,0x0001,0x0000,0x0056,0xb2c5,0x0000,0x0019
													; Debug Table 0x2.0x0 = 0x23,0x1
0024 0000 0000  |    |		.BLANK	0000[0x4]
0028 ; --------------------------------------------------------------------------------------
0028 ; SUBPROGRAM
0028 ; --------------------------------------------------------------------------------------
0028 0039       | 9  |		.CONST	0x0039								; Address of begin
0029 0004       |    |		.CONST	0x0004								; Address of exception handler
002a 000a       |    |		.CONST	0x000a								; Number of locals
002b			INIT_0028:
002b 00ee       |    |		Load_Encached	Diana_Seq_Type_Cache					; Debug Table 0x3 = .DEBUG	0x002b,0x019c,0x2801,0x0002,0x0056,0xb2c5,0x0000,0x0023
													; Debug Table 0x3.0x0 = 0x2b,0xffff
002c e5f9       |    |		Load	0x2,-0x7
002d 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
002e 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x3.0x1 = 0x2e,0xfffe
002f 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x3.0x2 = 0x2f,0xfffd
0030 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x3.0x3 = 0x30,0xfffc
0031 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x3.0x4 = 0x31,0xfffb
0032 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x3.0x5 = 0x32,0xfffa
0033 029f 00e3  |    |		Declare_Subprogram	INIT_00e0,For_Call				; Debug Table 0x3.0x6 = 0x33,0xfff9
0035 029f 0103  |    |		Declare_Subprogram	INIT_0100,For_Call				; Debug Table 0x3.0x7 = 0x35,0xfff8
0037 029f 0123  |   #|		Declare_Subprogram	INIT_0120,For_Call				; Debug Table 0x3.0x8 = 0x37,0xfff7
0039			BODY_0028:
0039 00cf       |    |		Action	Mark_Auxiliary
003a 789e       |x   |		Jump	0xd9
003b e402       |    |		Load	0x2,0x2								; Debug Table 0x3.0x9 = 0x3b,0x2
003c 00eb       |    |		Load_Encached	Diana_Cache
003d 1859       | Y  |		Execute	Package,Field_Execute,Field_Number 0x59
003e a406       |    |		Store_Unchecked	0x2,0x6
003f e406       |    |		Load	0x2,0x6								; Debug Table 0x3.0xa = 0x3f,0x3
0040 e5f8       |    |		Load	0x2,-0x8
0041 021f       |    |		Execute	Heap_Access,Equal
0042 709a       |p   |		Jump_Nonzero	0xdd
0043 e406       |    |		Load	0x2,0x6								; Debug Table 0x3.0xb = 0x43,0x4
0044 00eb       |    |		Load_Encached	Diana_Cache
0045 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0046 0b39       | 9  |		Execute_Immediate	Case_Compare,0x39
0047 702f       |p/  |		Jump_Nonzero	0x77
0048 0b3a       | :  |		Execute_Immediate	Case_Compare,0x3a
0049 7036       |p6  |		Jump_Nonzero	0x80
004a 0b37       | 7  |		Execute_Immediate	Case_Compare,0x37
004b 7034       |p4  |		Jump_Nonzero	0x80
004c 0b7e       | ~  |		Execute_Immediate	Case_Compare,0x7e
004d 7032       |p2  |		Jump_Nonzero	0x80
004e 0b7d       | }  |		Execute_Immediate	Case_Compare,0x7d
004f 7030       |p0  |		Jump_Nonzero	0x80
0050 0b7f       |    |		Execute_Immediate	Case_Compare,0x7f
0051 702e       |p.  |		Jump_Nonzero	0x80
0052 0b9b       |    |		Execute_Immediate	Case_Compare,0x9b
0053 702c       |p,  |		Jump_Nonzero	0x80
0054 0b02       |    |		Execute_Immediate	Case_Compare,0x2
0055 702a       |p*  |		Jump_Nonzero	0x80
0056 0b38       | 8  |		Execute_Immediate	Case_Compare,0x38
0057 7028       |p(  |		Jump_Nonzero	0x80
0058 0b3e       | >  |		Execute_Immediate	Case_Compare,0x3e
0059 702b       |p+  |		Jump_Nonzero	0x85
005a 0b3c       | <  |		Execute_Immediate	Case_Compare,0x3c
005b 7029       |p)  |		Jump_Nonzero	0x85
005c 0b3f       | ?  |		Execute_Immediate	Case_Compare,0x3f
005d 7027       |p'  |		Jump_Nonzero	0x85
005e 0b47       | G  |		Execute_Immediate	Case_Compare,0x47
005f 7025       |p%  |		Jump_Nonzero	0x85
0060 0b46       | F  |		Execute_Immediate	Case_Compare,0x46
0061 7023       |p#  |		Jump_Nonzero	0x85
0062 0b41       | A  |		Execute_Immediate	Case_Compare,0x41
0063 7021       |p!  |		Jump_Nonzero	0x85
0064 0b3b       | ;  |		Execute_Immediate	Case_Compare,0x3b
0065 7025       |p%  |		Jump_Nonzero	0x8b
0066 0b3d       | =  |		Execute_Immediate	Case_Compare,0x3d
0067 705a       |pZ  |		Jump_Nonzero	0xc2
0068 0b48       | H  |		Execute_Immediate	Case_Compare,0x48
0069 7058       |pX  |		Jump_Nonzero	0xc2
006a 0b40       | @  |		Execute_Immediate	Case_Compare,0x40
006b 705c       |p\  |		Jump_Nonzero	0xc8
006c 0b45       | E  |		Execute_Immediate	Case_Compare,0x45
006d 705d       |p]  |		Jump_Nonzero	0xcb
006e 0b44       | D  |		Execute_Immediate	Case_Compare,0x44
006f 705e       |p^  |		Jump_Nonzero	0xce
0070 0b42       | B  |		Execute_Immediate	Case_Compare,0x42
0071 705c       |p\  |		Jump_Nonzero	0xce
0072 0b43       | C  |		Execute_Immediate	Case_Compare,0x43
0073 705a       |pZ  |		Jump_Nonzero	0xce
0074 0bab       |    |		Execute_Immediate	Case_Compare,0xab
0075 705b       |p[  |		Jump_Nonzero	0xd1
0076 785c       |x\  |		Jump	0xd3								; Debug Table 0x3.0xc = 0x76,0x1b
0077 e406       |    |		Load	0x2,0x6								; Debug Table 0x3.0xd = 0x77,0x5
0078 00eb       |    |		Load_Encached	Diana_Cache
0079 18d0       |    |		Execute	Package,Field_Execute,Field_Number 0xd0
007a a407       |    |		Store_Unchecked	0x2,0x7
007b e407       |    |		Load	0x2,0x7								; Debug Table 0x3.0xe = 0x7b,0x6
007c 8408       |    |		Call	0x2,0x8
007d e407       |    |		Load	0x2,0x7								; Debug Table 0x3.0xf = 0x7d,0x7
007e 840a       |    |		Call	0x2,0xa
007f 7853       |xS  |		Jump	0xd3
0080 e406       |    |		Load	0x2,0x6								; Debug Table 0x3.0x10 = 0x80,0x8
0081 00eb       |    |		Load_Encached	Diana_Cache
0082 18d0       |    |		Execute	Package,Field_Execute,Field_Number 0xd0
0083 8408       |    |		Call	0x2,0x8
0084 784e       |xN  |		Jump	0xd3
0085 e406       |    |		Load	0x2,0x6								; Debug Table 0x3.0x11 = 0x85,0x9
0086 e406       |    |		Load	0x2,0x6
0087 00eb       |    |		Load_Encached	Diana_Cache
0088 18cf       |    |		Execute	Package,Field_Execute,Field_Number 0xcf
0089 85fa       |    |		Call	0x2,-0x6
008a 7848       |xH  |		Jump	0xd3
008b e406       |    |		Load	0x2,0x6								; Debug Table 0x3.0x12 = 0x8b,0xa
008c 00eb       |    |		Load_Encached	Diana_Cache
008d 18e8       |    |		Execute	Package,Field_Execute,Field_Number 0xe8
008e a403       |    |		Store_Unchecked	0x2,0x3
008f e406       |    |		Load	0x2,0x6								; Debug Table 0x3.0x13 = 0x8f,0xb
0090 e406       |    |		Load	0x2,0x6
0091 00eb       |    |		Load_Encached	Diana_Cache
0092 18cf       |    |		Execute	Package,Field_Execute,Field_Number 0xcf
0093 85fa       |    |		Call	0x2,-0x6
0094 e403       |    |		Load	0x2,0x3								; Debug Table 0x3.0x14 = 0x94,0xc
0095 8409       |    |		Call	0x2,0x9
0096 e403       |    |		Load	0x2,0x3								; Debug Table 0x3.0x15 = 0x96,0xd
0097 00eb       |    |		Load_Encached	Diana_Cache
0098 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0099 0b6e       | n  |		Execute_Immediate	Case_Compare,0x6e
009a 7003       |p   |		Jump_Nonzero	0x9e
009b 0b6d       | m  |		Execute_Immediate	Case_Compare,0x6d
009c 7004       |p   |		Jump_Nonzero	0xa1
009d 7822       |x"  |		Jump	0xc0								; Debug Table 0x3.0x16 = 0x9d,0x15
009e e403       |    |		Load	0x2,0x3								; Debug Table 0x3.0x17 = 0x9e,0xe
009f 8408       |    |		Call	0x2,0x8
00a0 781f       |x   |		Jump	0xc0
00a1 e403       |    |		Load	0x2,0x3								; Debug Table 0x3.0x18 = 0xa1,0xf
00a2 00eb       |    |		Load_Encached	Diana_Cache
00a3 18b9       |    |		Execute	Package,Field_Execute,Field_Number 0xb9
00a4 a405       |    |		Store_Unchecked	0x2,0x5
00a5 e405       |    |		Load	0x2,0x5								; Debug Table 0x3.0x19 = 0xa5,0x10
00a6 4908       |I   |		Short_Literal	0x108
00a7 00eb       |    |		Load_Encached	Diana_Cache
00a8 0096       |    |		Execute	Package,Entry
00a9 a404       |    |		Store_Unchecked	0x2,0x4
00aa e404       |    |		Load	0x2,0x4								; Debug Table 0x3.0x1a = 0xaa,0x11
00ab 00eb       |    |		Load_Encached	Diana_Cache
00ac 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
00ad 0f6e       | n  |		Execute_Immediate	Equal,0x6e
00ae 6811       |h   |		Jump_Zero	0xc0
00af e405       |    |		Load	0x2,0x5								; Debug Table 0x3.0x1b = 0xaf,0x12
00b0 00eb       |    |		Load_Encached	Diana_Cache
00b1 18d4       |    |		Execute	Package,Field_Execute,Field_Number 0xd4
00b2 4976       |Iv  |		Short_Literal	0x176
00b3 00eb       |    |		Load_Encached	Diana_Cache
00b4 0098       |    |		Execute	Package,Field_Read_Dynamic
00b5 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00b6 00eb       |    |		Load_Encached	Diana_Cache
00b7 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
00b8 0b2f       | /  |		Execute_Immediate	Case_Compare,0x2f
00b9 7003       |p   |		Jump_Nonzero	0xbd
00ba 0b2d       | -  |		Execute_Immediate	Case_Compare,0x2d
00bb 7001       |p   |		Jump_Nonzero	0xbd
00bc 7802       |x   |		Jump	0xbf								; Debug Table 0x3.0x1c = 0xbc,0x14
00bd e404       |    |		Load	0x2,0x4								; Debug Table 0x3.0x1d = 0xbd,0x13
00be 8408       |    |		Call	0x2,0x8
00bf 00d1       |    |		Pop_Control	Pop_Count_1
00c0 00d1       |    |		Pop_Control	Pop_Count_1
00c1 7811       |x   |		Jump	0xd3
00c2 e406       |    |		Load	0x2,0x6								; Debug Table 0x3.0x1e = 0xc2,0x16
00c3 e406       |    |		Load	0x2,0x6
00c4 00eb       |    |		Load_Encached	Diana_Cache
00c5 18bf       |    |		Execute	Package,Field_Execute,Field_Number 0xbf
00c6 85fa       |    |		Call	0x2,-0x6
00c7 780b       |x   |		Jump	0xd3
00c8 e406       |    |		Load	0x2,0x6								; Debug Table 0x3.0x1f = 0xc8,0x17
00c9 85fb       |    |		Call	0x2,-0x5
00ca 7808       |x   |		Jump	0xd3
00cb e406       |    |		Load	0x2,0x6								; Debug Table 0x3.0x20 = 0xcb,0x18
00cc 85fc       |    |		Call	0x2,-0x4
00cd 7805       |x   |		Jump	0xd3
00ce e406       |    |		Load	0x2,0x6								; Debug Table 0x3.0x21 = 0xce,0x19
00cf 85fd       |    |		Call	0x2,-0x3
00d0 7802       |x   |		Jump	0xd3
00d1 e406       |    |		Load	0x2,0x6								; Debug Table 0x3.0x22 = 0xd1,0x1a
00d2 85fe       |    |		Call	0x2,-0x2
00d3 00d1       |    |		Pop_Control	Pop_Count_1
00d4 e402       |    |		Load	0x2,0x2								; Debug Table 0x3.0x23 = 0xd4,0x1c
00d5 00eb       |    |		Load_Encached	Diana_Cache
00d6 185a       | Z  |		Execute	Package,Field_Execute,Field_Number 0x5a
00d7 a402       |    |		Store_Unchecked	0x2,0x2
00d8 00c9       |    |		Action	Pop_Auxiliary_Loop
00d9 e402       |    |		Load	0x2,0x2								; Debug Table 0x3.0x24 = 0xd9,0x1
00da 00eb       |    |		Load_Encached	Diana_Cache
00db 1858       | X  |		Execute	Package,Field_Execute,Field_Number 0x58
00dc 6f5e       |o^  |		Jump_Zero	0x3b
00dd 4509       |E   |		Exit_Suprogram	New_Top_Offset 0x9
00de 0000 0000  |    |		.XXX[0x2]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e8       |    |		.CONST	0x00e8								; Address of begin
00e1 0004       |    |		.CONST	0x0004								; Address of exception handler
00e2 0002       |    |		.CONST	0x0002								; Number of locals
00e3			INIT_00e0:
00e3 00ee       |    |		Load_Encached	Diana_Seq_Type_Cache					; Debug Table 0x4 = .DEBUG	0x00e3,0x01e8,0x0801,0x0002,0x0058,0x2c45,0x0000,0x0060
													; Debug Table 0x4.0x0 = 0xe3,0xffff
00e4 00db       |    |		Load_Top	At_Offset_3
00e5 00eb       |    |		Load_Encached	Diana_Cache
00e6 1888       |    |		Execute	Package,Field_Execute,Field_Number 0x88
00e7 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
00e8			BODY_00e0:
00e8 00cf       |    |		Action	Mark_Auxiliary
00e9 780a       |x   |		Jump	0xf4
00ea e406       |    |		Load	0x2,0x6								; Debug Table 0x4.0x1 = 0xea,0x2
00eb 00da       |    |		Load_Top	At_Offset_2
00ec 00eb       |    |		Load_Encached	Diana_Cache
00ed 1859       | Y  |		Execute	Package,Field_Execute,Field_Number 0x59
00ee 85fa       |    |		Call	0x2,-0x6
00ef 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x4.0x2 = 0xef,0x3
00f0 00eb       |    |		Load_Encached	Diana_Cache
00f1 185a       | Z  |		Execute	Package,Field_Execute,Field_Number 0x5a
00f2 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
00f3 00c9       |    |		Action	Pop_Auxiliary_Loop
00f4 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x4.0x3 = 0xf4,0x1
00f5 00eb       |    |		Load_Encached	Diana_Cache
00f6 1858       | X  |		Execute	Package,Field_Execute,Field_Number 0x58
00f7 6ff2       |o   |		Jump_Zero	0xea
00f8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00f9 0000 0000  |    |		.BLANK	0000[0x7]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0104       |    |		.CONST	0x0104								; Address of begin
0101 0004       |    |		.CONST	0x0004								; Address of exception handler
0102 0002       |    |		.CONST	0x0002								; Number of locals
0103			INIT_0100:
0103 00ef       |    |		Load_Encached	Diana_Sequence_Cache					; Debug Table 0x5 = .DEBUG	0x0103,0x01f2,0x0801,0x0002,0x0058,0x2c45,0x0000,0x0099
													; Debug Table 0x5.0x0 = 0x103,0xffff
0104			BODY_0100:
0104 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x5.0x1 = 0x104,0x1
0105 e001       |    |		Load	0x0,0x1
0106 185e       | ^  |		Execute	Package,Field_Execute,Field_Number 0x5e
0107 6815       |h   |		Jump_Zero	0x11d
0108 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x5.0x2 = 0x108,0x2
0109 e001       |    |		Load	0x0,0x1
010a 185d       | ]  |		Execute	Package,Field_Execute,Field_Number 0x5d
010b 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
010c 00cf       |    |		Action	Mark_Auxiliary
010d 780a       |x   |		Jump	0x118
010e e406       |    |		Load	0x2,0x6								; Debug Table 0x5.0x3 = 0x10e,0x4
010f 00da       |    |		Load_Top	At_Offset_2
0110 00eb       |    |		Load_Encached	Diana_Cache
0111 1865       | e  |		Execute	Package,Field_Execute,Field_Number 0x65
0112 85fa       |    |		Call	0x2,-0x6
0113 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x5.0x4 = 0x113,0x5
0114 00eb       |    |		Load_Encached	Diana_Cache
0115 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
0116 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0117 00c9       |    |		Action	Pop_Auxiliary_Loop
0118 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x5.0x5 = 0x118,0x3
0119 00eb       |    |		Load_Encached	Diana_Cache
011a 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
011b 6ff2       |o   |		Jump_Zero	0x10e
011c 00ce       |    |		Action	Pop_Auxiliary
011d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
011e 0000 0000  |    |		.XXX[0x2]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0129       | )  |		.CONST	0x0129								; Address of begin
0121 0004       |    |		.CONST	0x0004								; Address of exception handler
0122 0003       |    |		.CONST	0x0003								; Number of locals
0123			INIT_0120:
0123 00ee       |    |		Load_Encached	Diana_Seq_Type_Cache					; Debug Table 0x6 = .DEBUG	0x0123,0x0200,0x0801,0x0002,0x0058,0x2c45,0x0000,0x00dd
													; Debug Table 0x6.0x0 = 0x123,0xffff
0124 00db       |    |		Load_Top	At_Offset_3
0125 00eb       |    |		Load_Encached	Diana_Cache
0126 1888       |    |		Execute	Package,Field_Execute,Field_Number 0x88
0127 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0128 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x6.0x1 = 0x128,0xfffe
0129			BODY_0120:
0129 00cf       |    |		Action	Mark_Auxiliary
012a 7815       |x   |		Jump	0x140
012b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x6.0x2 = 0x12b,0x2
012c 00eb       |    |		Load_Encached	Diana_Cache
012d 1859       | Y  |		Execute	Package,Field_Execute,Field_Number 0x59
012e 4902       |I   |		Short_Literal	0x102
012f 00eb       |    |		Load_Encached	Diana_Cache
0130 0096       |    |		Execute	Package,Entry
0131 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0132 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x6.0x3 = 0x132,0x3
0133 00eb       |    |		Load_Encached	Diana_Cache
0134 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0135 0f6c       | l  |		Execute_Immediate	Equal,0x6c
0136 6807       |h   |		Jump_Zero	0x13e
0137 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x6.0x4 = 0x137,0x4
0138 8409       |    |		Call	0x2,0x9
0139 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x6.0x5 = 0x139,0x5
013a 00eb       |    |		Load_Encached	Diana_Cache
013b 185a       | Z  |		Execute	Package,Field_Execute,Field_Number 0x5a
013c 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
013d 7801       |x   |		Jump	0x13f
013e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; Debug Table 0x6.0x6 = 0x13e,0x6
013f 00c9       |    |		Action	Pop_Auxiliary_Loop
0140 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x6.0x7 = 0x140,0x1
0141 00eb       |    |		Load_Encached	Diana_Cache
0142 1858       | X  |		Execute	Package,Field_Execute,Field_Number 0x58
0143 6fe7       |o   |		Jump_Zero	0x12b
0144 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0145 0000 0000  |    |		.XXX[0x3]
0147 0000       |    |
0148 ; --------------------------------------------------------------------------------------
0148 ; Debug Table
0148 ; --------------------------------------------------------------------------------------
0148 0003 0007  |    |		.CONST	0x0003,0x0007
014a 000b 0182  |    |		.DEBUG	0x000b,0x0182,0x8000,0x0000,0x0056,0xb2c5,0x0000,0x0007
0152 0013 018e  |    |		.DEBUG	0x0013,0x018e,0x8000,0x0000,0x0058,0x2c45,0x0000,0x0009
015a 0023 0198  | #  |		.DEBUG	0x0023,0x0198,0x0001,0x0000,0x0056,0xb2c5,0x0000,0x0019
0162 002b 019c  | +  |		.DEBUG	0x002b,0x019c,0x2801,0x0002,0x0056,0xb2c5,0x0000,0x0023
016a 00e3 01e8  |    |		.DEBUG	0x00e3,0x01e8,0x0801,0x0002,0x0058,0x2c45,0x0000,0x0060
0172 0103 01f2  |    |		.DEBUG	0x0103,0x01f2,0x0801,0x0002,0x0058,0x2c45,0x0000,0x0099
017a 0123 0200  | #  |		.DEBUG	0x0123,0x0200,0x0801,0x0002,0x0058,0x2c45,0x0000,0x00dd
0182 ; --------------------------------------------------------------------------------------
0182 ; Debug3 Subtable 0x0
0182 ; --------------------------------------------------------------------------------------
0182 0005 0000  |    |		.DBG3TAB	0x0005,0x0000
0184 000b ffff  |    |		.CONST	0x000b,0xffff
0186 000c fffe  |    |		.CONST	0x000c,0xfffe
0188 000d fffd  |    |		.CONST	0x000d,0xfffd
018a 000e fffc  |    |		.CONST	0x000e,0xfffc
018c 0010 fffb  |    |		.CONST	0x0010,0xfffb
018e ; --------------------------------------------------------------------------------------
018e ; Debug3 Subtable 0x1
018e ; --------------------------------------------------------------------------------------
018e 0004 0000  |    |		.DBG3TAB	0x0004,0x0000
0190 0013 ffff  |    |		.CONST	0x0013,0xffff
0192 0014 fffe  |    |		.CONST	0x0014,0xfffe
0194 0015 fffd  |    |		.CONST	0x0015,0xfffd
0196 0017 fffc  |    |		.CONST	0x0017,0xfffc
0198 ; --------------------------------------------------------------------------------------
0198 ; Debug3 Subtable 0x2
0198 ; --------------------------------------------------------------------------------------
0198 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
019a 0023 0001  | #  |		.CONST	0x0023,0x0001
019c ; --------------------------------------------------------------------------------------
019c ; Debug3 Subtable 0x3
019c ; --------------------------------------------------------------------------------------
019c 0009 001c  |    |		.DBG3TAB	0x0009,0x001c
019e 002b ffff  | +  |		.CONST	0x002b,0xffff
01a0 002e fffe  | .  |		.CONST	0x002e,0xfffe
01a2 002f fffd  | /  |		.CONST	0x002f,0xfffd
01a4 0030 fffc  | 0  |		.CONST	0x0030,0xfffc
01a6 0031 fffb  | 1  |		.CONST	0x0031,0xfffb
01a8 0032 fffa  | 2  |		.CONST	0x0032,0xfffa
01aa 0033 fff9  | 3  |		.CONST	0x0033,0xfff9
01ac 0035 fff8  | 5  |		.CONST	0x0035,0xfff8
01ae 0037 fff7  | 7  |		.CONST	0x0037,0xfff7
01b0 003b 0002  | ;  |		.CONST	0x003b,0x0002
01b2 003f 0003  | ?  |		.CONST	0x003f,0x0003
01b4 0043 0004  | C  |		.CONST	0x0043,0x0004
01b6 0076 001b  | v  |		.CONST	0x0076,0x001b
01b8 0077 0005  | w  |		.CONST	0x0077,0x0005
01ba 007b 0006  | {  |		.CONST	0x007b,0x0006
01bc 007d 0007  | }  |		.CONST	0x007d,0x0007
01be 0080 0008  |    |		.CONST	0x0080,0x0008
01c0 0085 0009  |    |		.CONST	0x0085,0x0009
01c2 008b 000a  |    |		.CONST	0x008b,0x000a
01c4 008f 000b  |    |		.CONST	0x008f,0x000b
01c6 0094 000c  |    |		.CONST	0x0094,0x000c
01c8 0096 000d  |    |		.CONST	0x0096,0x000d
01ca 009d 0015  |    |		.CONST	0x009d,0x0015
01cc 009e 000e  |    |		.CONST	0x009e,0x000e
01ce 00a1 000f  |    |		.CONST	0x00a1,0x000f
01d0 00a5 0010  |    |		.CONST	0x00a5,0x0010
01d2 00aa 0011  |    |		.CONST	0x00aa,0x0011
01d4 00af 0012  |    |		.CONST	0x00af,0x0012
01d6 00bc 0014  |    |		.CONST	0x00bc,0x0014
01d8 00bd 0013  |    |		.CONST	0x00bd,0x0013
01da 00c2 0016  |    |		.CONST	0x00c2,0x0016
01dc 00c8 0017  |    |		.CONST	0x00c8,0x0017
01de 00cb 0018  |    |		.CONST	0x00cb,0x0018
01e0 00ce 0019  |    |		.CONST	0x00ce,0x0019
01e2 00d1 001a  |    |		.CONST	0x00d1,0x001a
01e4 00d4 001c  |    |		.CONST	0x00d4,0x001c
01e6 00d9 0001  |    |		.CONST	0x00d9,0x0001
01e8 ; --------------------------------------------------------------------------------------
01e8 ; Debug3 Subtable 0x4
01e8 ; --------------------------------------------------------------------------------------
01e8 0001 0003  |    |		.DBG3TAB	0x0001,0x0003
01ea 00e3 ffff  |    |		.CONST	0x00e3,0xffff
01ec 00ea 0002  |    |		.CONST	0x00ea,0x0002
01ee 00ef 0003  |    |		.CONST	0x00ef,0x0003
01f0 00f4 0001  |    |		.CONST	0x00f4,0x0001
01f2 ; --------------------------------------------------------------------------------------
01f2 ; Debug3 Subtable 0x5
01f2 ; --------------------------------------------------------------------------------------
01f2 0001 0005  |    |		.DBG3TAB	0x0001,0x0005
01f4 0103 ffff  |    |		.CONST	0x0103,0xffff
01f6 0104 0001  |    |		.CONST	0x0104,0x0001
01f8 0108 0002  |    |		.CONST	0x0108,0x0002
01fa 010e 0004  |    |		.CONST	0x010e,0x0004
01fc 0113 0005  |    |		.CONST	0x0113,0x0005
01fe 0118 0003  |    |		.CONST	0x0118,0x0003
0200 ; --------------------------------------------------------------------------------------
0200 ; Debug3 Subtable 0x6
0200 ; --------------------------------------------------------------------------------------
0200 0002 0006  |    |		.DBG3TAB	0x0002,0x0006
0202 0123 ffff  | #  |		.CONST	0x0123,0xffff
0204 0128 fffe  | (  |		.CONST	0x0128,0xfffe
0206 012b 0002  | +  |		.CONST	0x012b,0x0002
0208 0132 0003  | 2  |		.CONST	0x0132,0x0003
020a 0137 0004  | 7  |		.CONST	0x0137,0x0004
020c 0139 0005  | 9  |		.CONST	0x0139,0x0005
020e 013e 0006  | >  |		.CONST	0x013e,0x0006
0210 0140 0001  | @  |		.CONST	0x0140,0x0001
0212 0000 0000  |    |		.BLANK	0000[0x1ee]