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

⟦999a381bc⟧

    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 0180       |    |		.CONST	0x0180								; 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 003a       | :  |		.CONST	0x003a								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0017       |    |		.CONST	0x0017								; Number of locals
000b			INIT_0008:
000b 029a 0043  |   C|		Declare_Subprogram	INIT_0040,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0 = .DEBUG	0x000b,0x01d2,0x8000,0x0000,0x0057,0x3a25,0x0000,0x0005
													; Debug Table 0x0.0x0 = 0xb,0xffff
000d 029a 006b  |   k|		Declare_Subprogram	INIT_0068,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x1 = 0xd,0xfffe
000f 029a 008b  |    |		Declare_Subprogram	INIT_0088,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x2 = 0xf,0xfffd
0011 029a 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x3 = 0x11,0xfffc
0013 029a 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x4 = 0x13,0xfffb
0015 029a 0103  |    |		Declare_Subprogram	INIT_0100,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x5 = 0x15,0xfffa
0017 029a 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x6 = 0x17,0xfff9
0019 029a 015b  |   [|		Declare_Subprogram	INIT_0158,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x7 = 0x19,0xfff8
001b 00bf       |    |		Action	Accept_Activation
001c 0007       |    |		Action	Break_Optional							; Debug Table 0x1 = .DEBUG	0x001c,0x01e4,0x8000,0x0000,0x0058,0xc775,0x0000,0x0007
													; Debug Table 0x1.0x0 = 0x1c,0xffff
001d 4800       |H   |		Short_Literal	0x0							; Debug Table 0x1.0x1 = 0x1d,0xfffe
001e 48ff       |H   |		Short_Literal	0xff
001f 00e5       |    |		Load_Encached	Long_Integer_Cache
0020 03f8       |    |		Declare_Type	Discrete,Constrained
0021 4f80       |O   |		Short_Literal	-0x80							; Debug Table 0x1.0x2 = 0x21,0xfffd
0022 487f       |H   |		Short_Literal	0x7f
0023 00e5       |    |		Load_Encached	Long_Integer_Cache
0024 03f8       |    |		Declare_Type	Discrete,Constrained
0025 e001       |    |		Load	0x0,0x1								; Debug Table 0x1.0x3 = 0x25,0xfffc
0026 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0027 e001       |    |		Load	0x0,0x1
0028 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0029 011e       |    |		Execute	Any,Convert
002a 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd				; Debug Table 0x1.0x4 = 0x2a,0xfffb
002b 00c7       |    |		Action	Elaborate_Subprogram
002c 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe				; Debug Table 0x1.0x5 = 0x2c,0xfffa
002d 00c7       |    |		Action	Elaborate_Subprogram
002e 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf				; Debug Table 0x1.0x6 = 0x2e,0xfff9
002f 00c7       |    |		Action	Elaborate_Subprogram
0030 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10				; Debug Table 0x1.0x7 = 0x30,0xfff8
0031 00c7       |    |		Action	Elaborate_Subprogram
0032 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11				; Debug Table 0x1.0x8 = 0x32,0xfff7
0033 00c7       |    |		Action	Elaborate_Subprogram
0034 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12				; Debug Table 0x1.0x9 = 0x34,0xfff6
0035 00c7       |    |		Action	Elaborate_Subprogram
0036 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13				; Debug Table 0x1.0xa = 0x36,0xfff5
0037 00c7       |    |		Action	Elaborate_Subprogram
0038 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14				; Debug Table 0x1.0xb = 0x38,0xfff4
0039 00c7       |    |		Action	Elaborate_Subprogram
003a			BODY_0008:
003a 00bc       |    |		Action	Signal_Activated
003b 00bb       |    |		Action	Signal_Completion
003c 0000 0000  |    |		.BLANK	0000[0x4]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0043       | C  |		.CONST	0x0043								; Address of begin
0041 0004       |    |		.CONST	0x0004								; Address of exception handler
0042 0001       |    |		.CONST	0x0001								; Number of locals
0043			BODY_0040:
0043			INIT_0040:
0043 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x2 = .DEBUG	0x0043,0x01fe,0x0001,0x0000,0x0057,0x3a25,0x0000,0x0006
													; Debug Table 0x2.0x0 = 0x43,0x1
0044 e001       |    |		Load	0x0,0x1
0045 1846       | F  |		Execute	Package,Field_Execute,Field_Number 0x46
0046 e216       |    |		Load	0x1,0x16
0047 0260       | `  |		Execute	Discrete,In_Type
0048 680b       |h   |		Jump_Zero	0x54
0049 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x2.0x1 = 0x49,0x2
004a e217       |    |		Load	0x1,0x17
004b 012f       | /  |		Execute	Any,Equal
004c 7006       |p   |		Jump_Nonzero	0x53
004d 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x2.0x2 = 0x4d,0x3
004e e001       |    |		Load	0x0,0x1
004f 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
0050 4820       |H   |		Short_Literal	0x20
0051 e002       |    |		Load	0x0,0x2
0052 1844       | D  |		Execute	Package,Field_Execute,Field_Number 0x44
0053 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0054 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x2.0x3 = 0x54,0x4
0055 e002       |    |		Load	0x0,0x2
0056 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
0057 0007       |    |		Action	Break_Optional							; Debug Table 0x2.0x4 = 0x57,0x5
0058 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x2.0x5 = 0x58,0x401
0059 4800       |H   |		Short_Literal	0x0							; Debug Table 0x2.0x6 = 0x59,0x5
005a 4800       |H   |		Short_Literal	0x0
005b 6120       |a   |		Indirect_Literal	Discrete,0x17c,{0x00000000, 0x7fffffff}
005c 4801       |H   |		Short_Literal	0x1
005d 4820       |H   |		Short_Literal	0x20
005e 4800       |H   |		Short_Literal	0x0
005f e002       |    |		Load	0x0,0x2
0060 1843       | C  |		Execute	Package,Field_Execute,Field_Number 0x43
0061 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0062 0000 0000  |    |		.BLANK	0000[0x6]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b       | k  |		.CONST	0x006b								; Address of begin
0069 0004       |    |		.CONST	0x0004								; Address of exception handler
006a 0001       |    |		.CONST	0x0001								; Number of locals
006b			BODY_0068:
006b			INIT_0068:
006b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x3 = .DEBUG	0x006b,0x020e,0x0001,0x0000,0x0057,0x3a25,0x0000,0x0010
													; Debug Table 0x3.0x0 = 0x6b,0x1
006c e001       |    |		Load	0x0,0x1
006d 1846       | F  |		Execute	Package,Field_Execute,Field_Number 0x46
006e e215       |    |		Load	0x1,0x15
006f 0260       | `  |		Execute	Discrete,In_Type
0070 6807       |h   |		Jump_Zero	0x78
0071 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x3.0x1 = 0x71,0x2
0072 e001       |    |		Load	0x0,0x1
0073 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
0074 4800       |H   |		Short_Literal	0x0
0075 e002       |    |		Load	0x0,0x2
0076 1844       | D  |		Execute	Package,Field_Execute,Field_Number 0x44
0077 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0078 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x3.0x2 = 0x78,0x3
0079 e002       |    |		Load	0x0,0x2
007a 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
007b 0007       |    |		Action	Break_Optional							; Debug Table 0x3.0x3 = 0x7b,0x4
007c 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x3.0x4 = 0x7c,0x401
007d 4800       |H   |		Short_Literal	0x0							; Debug Table 0x3.0x5 = 0x7d,0x4
007e 4800       |H   |		Short_Literal	0x0
007f 60fc       |`   |		Indirect_Literal	Discrete,0x17c,{0x00000000, 0x7fffffff}
0080 4801       |H   |		Short_Literal	0x1
0081 4800       |H   |		Short_Literal	0x0
0082 4800       |H   |		Short_Literal	0x0
0083 e002       |    |		Load	0x0,0x2
0084 1843       | C  |		Execute	Package,Field_Execute,Field_Number 0x43
0085 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0086 0000 0000  |    |		.XXX[0x2]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b       |    |		.CONST	0x008b								; Address of begin
0089 0004       |    |		.CONST	0x0004								; Address of exception handler
008a 0001       |    |		.CONST	0x0001								; Number of locals
008b			BODY_0088:
008b			INIT_0088:
008b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x4 = .DEBUG	0x008b,0x021c,0x0001,0x0000,0x0057,0x3a25,0x0000,0x001a
													; Debug Table 0x4.0x0 = 0x8b,0x1
008c e001       |    |		Load	0x0,0x1
008d 1846       | F  |		Execute	Package,Field_Execute,Field_Number 0x46
008e e215       |    |		Load	0x1,0x15
008f 0260       | `  |		Execute	Discrete,In_Type
0090 6807       |h   |		Jump_Zero	0x98
0091 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x4.0x1 = 0x91,0x2
0092 e001       |    |		Load	0x0,0x1
0093 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
0094 4801       |H   |		Short_Literal	0x1
0095 e002       |    |		Load	0x0,0x2
0096 1844       | D  |		Execute	Package,Field_Execute,Field_Number 0x44
0097 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0098 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x4.0x2 = 0x98,0x3
0099 e002       |    |		Load	0x0,0x2
009a 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
009b 0007       |    |		Action	Break_Optional							; Debug Table 0x4.0x3 = 0x9b,0x4
009c 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x4.0x4 = 0x9c,0x401
009d 4800       |H   |		Short_Literal	0x0							; Debug Table 0x4.0x5 = 0x9d,0x4
009e 4800       |H   |		Short_Literal	0x0
009f 60dc       |`   |		Indirect_Literal	Discrete,0x17c,{0x00000000, 0x7fffffff}
00a0 4801       |H   |		Short_Literal	0x1
00a1 4801       |H   |		Short_Literal	0x1
00a2 4800       |H   |		Short_Literal	0x0
00a3 e002       |    |		Load	0x0,0x2
00a4 1843       | C  |		Execute	Package,Field_Execute,Field_Number 0x43
00a5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00a6 0000 0000  |    |		.XXX[0x2]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab       |    |		.CONST	0x00ab								; Address of begin
00a9 0004       |    |		.CONST	0x0004								; Address of exception handler
00aa 0001       |    |		.CONST	0x0001								; Number of locals
00ab			BODY_00a8:
00ab			INIT_00a8:
00ab 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x5 = .DEBUG	0x00ab,0x022a,0x0001,0x0000,0x0057,0x3a25,0x0000,0x0024
													; Debug Table 0x5.0x0 = 0xab,0x1
00ac e001       |    |		Load	0x0,0x1
00ad 1846       | F  |		Execute	Package,Field_Execute,Field_Number 0x46
00ae e215       |    |		Load	0x1,0x15
00af 0260       | `  |		Execute	Discrete,In_Type
00b0 6807       |h   |		Jump_Zero	0xb8
00b1 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x5.0x1 = 0xb1,0x2
00b2 e001       |    |		Load	0x0,0x1
00b3 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
00b4 4803       |H   |		Short_Literal	0x3
00b5 e002       |    |		Load	0x0,0x2
00b6 1844       | D  |		Execute	Package,Field_Execute,Field_Number 0x44
00b7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00b8 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x5.0x2 = 0xb8,0x3
00b9 e002       |    |		Load	0x0,0x2
00ba 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
00bb 0007       |    |		Action	Break_Optional							; Debug Table 0x5.0x3 = 0xbb,0x4
00bc 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x5.0x4 = 0xbc,0x401
00bd 4800       |H   |		Short_Literal	0x0							; Debug Table 0x5.0x5 = 0xbd,0x4
00be 4800       |H   |		Short_Literal	0x0
00bf 60bc       |`   |		Indirect_Literal	Discrete,0x17c,{0x00000000, 0x7fffffff}
00c0 4801       |H   |		Short_Literal	0x1
00c1 4803       |H   |		Short_Literal	0x3
00c2 4800       |H   |		Short_Literal	0x0
00c3 e002       |    |		Load	0x0,0x2
00c4 1843       | C  |		Execute	Package,Field_Execute,Field_Number 0x43
00c5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00c6 0000 0000  |    |		.XXX[0x2]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb       |    |		.CONST	0x00cb								; Address of begin
00c9 00e9       |    |		.CONST	0x00e9								; Address of exception handler
00ca 0001       |    |		.CONST	0x0001								; Number of locals
00cb			BODY_00c8:
00cb			INIT_00c8:
00cb 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x6 = .DEBUG	0x00cb,0x0238,0x0001,0x0000,0x0057,0x3a25,0x0000,0x002e
													; Debug Table 0x6.0x0 = 0xcb,0x1
00cc e001       |    |		Load	0x0,0x1
00cd 1846       | F  |		Execute	Package,Field_Execute,Field_Number 0x46
00ce 0a01       |    |		Execute_Immediate	Plus,0x1
00cf e215       |    |		Load	0x1,0x15
00d0 0260       | `  |		Execute	Discrete,In_Type
00d1 6809       |h   |		Jump_Zero	0xdb
00d2 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x6.0x1 = 0xd2,0x2
00d3 e001       |    |		Load	0x0,0x1
00d4 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
00d5 0a01       |    |		Execute_Immediate	Plus,0x1
00d6 0248       | H  |		Execute	Discrete,Check_In_Integer
00d7 4803       |H   |		Short_Literal	0x3
00d8 e002       |    |		Load	0x0,0x2
00d9 1844       | D  |		Execute	Package,Field_Execute,Field_Number 0x44
00da 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00db 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x6.0x2 = 0xdb,0x3
00dc e002       |    |		Load	0x0,0x2
00dd 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
00de 0007       |    |		Action	Break_Optional							; Debug Table 0x6.0x3 = 0xde,0x4
00df 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x6.0x4 = 0xdf,0x401
00e0 4800       |H   |		Short_Literal	0x0							; Debug Table 0x6.0x5 = 0xe0,0x4
00e1 4800       |H   |		Short_Literal	0x0
00e2 6099       |`   |		Indirect_Literal	Discrete,0x17c,{0x00000000, 0x7fffffff}
00e3 4801       |H   |		Short_Literal	0x1
00e4 4805       |H   |		Short_Literal	0x5
00e5 4800       |H   |		Short_Literal	0x0
00e6 e002       |    |		Load	0x0,0x2
00e7 1843       | C  |		Execute	Package,Field_Execute,Field_Number 0x43
00e8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00e9			TRAP_00c8:
00e9 010d       |    |		Execute	Exception,Is_Numeric_Error
00ea 680e       |h   |		Jump_Zero	0xf9
00eb 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x6.0x6 = 0xeb,0x5
00ec e002       |    |		Load	0x0,0x2
00ed 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
00ee 0007       |    |		Action	Break_Optional							; Debug Table 0x6.0x7 = 0xee,0x6
00ef 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x6.0x8 = 0xef,0x801
00f0 4800       |H   |		Short_Literal	0x0							; Debug Table 0x6.0x9 = 0xf0,0x6
00f1 4800       |H   |		Short_Literal	0x0
00f2 6089       |`   |		Indirect_Literal	Discrete,0x17c,{0x00000000, 0x7fffffff}
00f3 4801       |H   |		Short_Literal	0x1
00f4 4805       |H   |		Short_Literal	0x5
00f5 4800       |H   |		Short_Literal	0x0
00f6 e002       |    |		Load	0x0,0x2
00f7 1843       | C  |		Execute	Package,Field_Execute,Field_Number 0x43
00f8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00f9 0100       |    |		Execute	Exception,Raise
00fa 0000 0000  |    |		.BLANK	0000[0x6]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103       |    |		.CONST	0x0103								; Address of begin
0101 0121       | !  |		.CONST	0x0121								; Address of exception handler
0102 0001       |    |		.CONST	0x0001								; Number of locals
0103			BODY_0100:
0103			INIT_0100:
0103 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x7 = .DEBUG	0x0103,0x024e,0x0001,0x0000,0x0057,0x3a25,0x0000,0x0038
													; Debug Table 0x7.0x0 = 0x103,0x1
0104 e001       |    |		Load	0x0,0x1
0105 1846       | F  |		Execute	Package,Field_Execute,Field_Number 0x46
0106 0a01       |    |		Execute_Immediate	Plus,0x1
0107 e215       |    |		Load	0x1,0x15
0108 0260       | `  |		Execute	Discrete,In_Type
0109 6809       |h   |		Jump_Zero	0x113
010a 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x7.0x1 = 0x10a,0x2
010b e001       |    |		Load	0x0,0x1
010c 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
010d 0a01       |    |		Execute_Immediate	Plus,0x1
010e 0248       | H  |		Execute	Discrete,Check_In_Integer
010f 4804       |H   |		Short_Literal	0x4
0110 e002       |    |		Load	0x0,0x2
0111 1844       | D  |		Execute	Package,Field_Execute,Field_Number 0x44
0112 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0113 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x7.0x2 = 0x113,0x3
0114 e002       |    |		Load	0x0,0x2
0115 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
0116 0007       |    |		Action	Break_Optional							; Debug Table 0x7.0x3 = 0x116,0x4
0117 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x7.0x4 = 0x117,0x401
0118 4800       |H   |		Short_Literal	0x0							; Debug Table 0x7.0x5 = 0x118,0x4
0119 4800       |H   |		Short_Literal	0x0
011a 6061       |`a  |		Indirect_Literal	Discrete,0x17c,{0x00000000, 0x7fffffff}
011b 4801       |H   |		Short_Literal	0x1
011c 4802       |H   |		Short_Literal	0x2
011d 4800       |H   |		Short_Literal	0x0
011e e002       |    |		Load	0x0,0x2
011f 1843       | C  |		Execute	Package,Field_Execute,Field_Number 0x43
0120 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0121			TRAP_0100:
0121 010d       |    |		Execute	Exception,Is_Numeric_Error
0122 680e       |h   |		Jump_Zero	0x131
0123 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x7.0x6 = 0x123,0x5
0124 e002       |    |		Load	0x0,0x2
0125 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
0126 0007       |    |		Action	Break_Optional							; Debug Table 0x7.0x7 = 0x126,0x6
0127 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x7.0x8 = 0x127,0x801
0128 4800       |H   |		Short_Literal	0x0							; Debug Table 0x7.0x9 = 0x128,0x6
0129 4800       |H   |		Short_Literal	0x0
012a 6051       |`Q  |		Indirect_Literal	Discrete,0x17c,{0x00000000, 0x7fffffff}
012b 4801       |H   |		Short_Literal	0x1
012c 4802       |H   |		Short_Literal	0x2
012d 4800       |H   |		Short_Literal	0x0
012e e002       |    |		Load	0x0,0x2
012f 1843       | C  |		Execute	Package,Field_Execute,Field_Number 0x43
0130 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0131 0100       |    |		Execute	Exception,Raise
0132 0000 0000  |    |		.BLANK	0000[0x6]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b       | ;  |		.CONST	0x013b								; Address of begin
0139 0004       |    |		.CONST	0x0004								; Address of exception handler
013a 0001       |    |		.CONST	0x0001								; Number of locals
013b			BODY_0138:
013b			INIT_0138:
013b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x8 = .DEBUG	0x013b,0x0264,0x0001,0x0000,0x0057,0x3a25,0x0000,0x0042
													; Debug Table 0x8.0x0 = 0x13b,0x1
013c e001       |    |		Load	0x0,0x1
013d 1846       | F  |		Execute	Package,Field_Execute,Field_Number 0x46
013e e215       |    |		Load	0x1,0x15
013f 0260       | `  |		Execute	Discrete,In_Type
0140 6807       |h   |		Jump_Zero	0x148
0141 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x8.0x1 = 0x141,0x2
0142 e001       |    |		Load	0x0,0x1
0143 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
0144 4804       |H   |		Short_Literal	0x4
0145 e002       |    |		Load	0x0,0x2
0146 1844       | D  |		Execute	Package,Field_Execute,Field_Number 0x44
0147 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0148 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x8.0x2 = 0x148,0x3
0149 e002       |    |		Load	0x0,0x2
014a 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
014b 0007       |    |		Action	Break_Optional							; Debug Table 0x8.0x3 = 0x14b,0x4
014c 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x8.0x4 = 0x14c,0x401
014d 4800       |H   |		Short_Literal	0x0							; Debug Table 0x8.0x5 = 0x14d,0x4
014e 4800       |H   |		Short_Literal	0x0
014f 602c       |`,  |		Indirect_Literal	Discrete,0x17c,{0x00000000, 0x7fffffff}
0150 4801       |H   |		Short_Literal	0x1
0151 4804       |H   |		Short_Literal	0x4
0152 4800       |H   |		Short_Literal	0x0
0153 e002       |    |		Load	0x0,0x2
0154 1843       | C  |		Execute	Package,Field_Execute,Field_Number 0x43
0155 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0156 0000 0000  |    |		.XXX[0x2]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b       | [  |		.CONST	0x015b								; Address of begin
0159 0004       |    |		.CONST	0x0004								; Address of exception handler
015a 0001       |    |		.CONST	0x0001								; Number of locals
015b			BODY_0158:
015b			INIT_0158:
015b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x9 = .DEBUG	0x015b,0x0272,0x0001,0x0000,0x0057,0x3a25,0x0000,0x004c
													; Debug Table 0x9.0x0 = 0x15b,0x1
015c e001       |    |		Load	0x0,0x1
015d 1846       | F  |		Execute	Package,Field_Execute,Field_Number 0x46
015e e215       |    |		Load	0x1,0x15
015f 0260       | `  |		Execute	Discrete,In_Type
0160 6807       |h   |		Jump_Zero	0x168
0161 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x9.0x1 = 0x161,0x2
0162 e001       |    |		Load	0x0,0x1
0163 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
0164 4806       |H   |		Short_Literal	0x6
0165 e002       |    |		Load	0x0,0x2
0166 1844       | D  |		Execute	Package,Field_Execute,Field_Number 0x44
0167 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0168 4800       |H   |		Short_Literal	0x0							; Debug Table 0x9.0x2 = 0x168,0x3
0169 e002       |    |		Load	0x0,0x2
016a 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
016b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x9.0x3 = 0x16b,0x4
016c e002       |    |		Load	0x0,0x2
016d 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
016e 0007       |    |		Action	Break_Optional							; Debug Table 0x9.0x4 = 0x16e,0x5
016f 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x9.0x5 = 0x16f,0x401
0170 4800       |H   |		Short_Literal	0x0							; Debug Table 0x9.0x6 = 0x170,0x5
0171 4800       |H   |		Short_Literal	0x0
0172 6009       |`   |		Indirect_Literal	Discrete,0x17c,{0x00000000, 0x7fffffff}
0173 4801       |H   |		Short_Literal	0x1
0174 4800       |H   |		Short_Literal	0x0
0175 4800       |H   |		Short_Literal	0x0
0176 e002       |    |		Load	0x0,0x2
0177 1843       | C  |		Execute	Package,Field_Execute,Field_Number 0x43
0178 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0179 0000 0000  |    |		.XXX[0x3]
017b 0000       |    |
017c 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
0180 ; --------------------------------------------------------------------------------------
0180 ; Debug Table
0180 ; --------------------------------------------------------------------------------------
0180 0003 000a  |    |		.CONST	0x0003,0x000a
0182 000b 01d2  |    |		.DEBUG	0x000b,0x01d2,0x8000,0x0000,0x0057,0x3a25,0x0000,0x0005
018a 001c 01e4  |    |		.DEBUG	0x001c,0x01e4,0x8000,0x0000,0x0058,0xc775,0x0000,0x0007
0192 0043 01fe  | C  |		.DEBUG	0x0043,0x01fe,0x0001,0x0000,0x0057,0x3a25,0x0000,0x0006
019a 006b 020e  | k  |		.DEBUG	0x006b,0x020e,0x0001,0x0000,0x0057,0x3a25,0x0000,0x0010
01a2 008b 021c  |    |		.DEBUG	0x008b,0x021c,0x0001,0x0000,0x0057,0x3a25,0x0000,0x001a
01aa 00ab 022a  |   *|		.DEBUG	0x00ab,0x022a,0x0001,0x0000,0x0057,0x3a25,0x0000,0x0024
01b2 00cb 0238  |   8|		.DEBUG	0x00cb,0x0238,0x0001,0x0000,0x0057,0x3a25,0x0000,0x002e
01ba 0103 024e  |   N|		.DEBUG	0x0103,0x024e,0x0001,0x0000,0x0057,0x3a25,0x0000,0x0038
01c2 013b 0264  | ; d|		.DEBUG	0x013b,0x0264,0x0001,0x0000,0x0057,0x3a25,0x0000,0x0042
01ca 015b 0272  | [ r|		.DEBUG	0x015b,0x0272,0x0001,0x0000,0x0057,0x3a25,0x0000,0x004c
01d2 ; --------------------------------------------------------------------------------------
01d2 ; Debug3 Subtable 0x0
01d2 ; --------------------------------------------------------------------------------------
01d2 0008 0000  |    |		.DBG3TAB	0x0008,0x0000
01d4 000b ffff  |    |		.CONST	0x000b,0xffff
01d6 000d fffe  |    |		.CONST	0x000d,0xfffe
01d8 000f fffd  |    |		.CONST	0x000f,0xfffd
01da 0011 fffc  |    |		.CONST	0x0011,0xfffc
01dc 0013 fffb  |    |		.CONST	0x0013,0xfffb
01de 0015 fffa  |    |		.CONST	0x0015,0xfffa
01e0 0017 fff9  |    |		.CONST	0x0017,0xfff9
01e2 0019 fff8  |    |		.CONST	0x0019,0xfff8
01e4 ; --------------------------------------------------------------------------------------
01e4 ; Debug3 Subtable 0x1
01e4 ; --------------------------------------------------------------------------------------
01e4 000c 0000  |    |		.DBG3TAB	0x000c,0x0000
01e6 001c ffff  |    |		.CONST	0x001c,0xffff
01e8 001d fffe  |    |		.CONST	0x001d,0xfffe
01ea 0021 fffd  | !  |		.CONST	0x0021,0xfffd
01ec 0025 fffc  | %  |		.CONST	0x0025,0xfffc
01ee 002a fffb  | *  |		.CONST	0x002a,0xfffb
01f0 002c fffa  | ,  |		.CONST	0x002c,0xfffa
01f2 002e fff9  | .  |		.CONST	0x002e,0xfff9
01f4 0030 fff8  | 0  |		.CONST	0x0030,0xfff8
01f6 0032 fff7  | 2  |		.CONST	0x0032,0xfff7
01f8 0034 fff6  | 4  |		.CONST	0x0034,0xfff6
01fa 0036 fff5  | 6  |		.CONST	0x0036,0xfff5
01fc 0038 fff4  | 8  |		.CONST	0x0038,0xfff4
01fe ; --------------------------------------------------------------------------------------
01fe ; Debug3 Subtable 0x2
01fe ; --------------------------------------------------------------------------------------
01fe 0000 0007  |    |		.DBG3TAB	0x0000,0x0007
0200 0043 0001  | C  |		.CONST	0x0043,0x0001
0202 0049 0002  | I  |		.CONST	0x0049,0x0002
0204 004d 0003  | M  |		.CONST	0x004d,0x0003
0206 0054 0004  | T  |		.CONST	0x0054,0x0004
0208 0057 0005  | W  |		.CONST	0x0057,0x0005
020a 0058 0401  | X  |		.CONST	0x0058,0x0401
020c 0059 0005  | Y  |		.CONST	0x0059,0x0005
020e ; --------------------------------------------------------------------------------------
020e ; Debug3 Subtable 0x3
020e ; --------------------------------------------------------------------------------------
020e 0000 0006  |    |		.DBG3TAB	0x0000,0x0006
0210 006b 0001  | k  |		.CONST	0x006b,0x0001
0212 0071 0002  | q  |		.CONST	0x0071,0x0002
0214 0078 0003  | x  |		.CONST	0x0078,0x0003
0216 007b 0004  | {  |		.CONST	0x007b,0x0004
0218 007c 0401  | |  |		.CONST	0x007c,0x0401
021a 007d 0004  | }  |		.CONST	0x007d,0x0004
021c ; --------------------------------------------------------------------------------------
021c ; Debug3 Subtable 0x4
021c ; --------------------------------------------------------------------------------------
021c 0000 0006  |    |		.DBG3TAB	0x0000,0x0006
021e 008b 0001  |    |		.CONST	0x008b,0x0001
0220 0091 0002  |    |		.CONST	0x0091,0x0002
0222 0098 0003  |    |		.CONST	0x0098,0x0003
0224 009b 0004  |    |		.CONST	0x009b,0x0004
0226 009c 0401  |    |		.CONST	0x009c,0x0401
0228 009d 0004  |    |		.CONST	0x009d,0x0004
022a ; --------------------------------------------------------------------------------------
022a ; Debug3 Subtable 0x5
022a ; --------------------------------------------------------------------------------------
022a 0000 0006  |    |		.DBG3TAB	0x0000,0x0006
022c 00ab 0001  |    |		.CONST	0x00ab,0x0001
022e 00b1 0002  |    |		.CONST	0x00b1,0x0002
0230 00b8 0003  |    |		.CONST	0x00b8,0x0003
0232 00bb 0004  |    |		.CONST	0x00bb,0x0004
0234 00bc 0401  |    |		.CONST	0x00bc,0x0401
0236 00bd 0004  |    |		.CONST	0x00bd,0x0004
0238 ; --------------------------------------------------------------------------------------
0238 ; Debug3 Subtable 0x6
0238 ; --------------------------------------------------------------------------------------
0238 0000 000a  |    |		.DBG3TAB	0x0000,0x000a
023a 00cb 0001  |    |		.CONST	0x00cb,0x0001
023c 00d2 0002  |    |		.CONST	0x00d2,0x0002
023e 00db 0003  |    |		.CONST	0x00db,0x0003
0240 00de 0004  |    |		.CONST	0x00de,0x0004
0242 00df 0401  |    |		.CONST	0x00df,0x0401
0244 00e0 0004  |    |		.CONST	0x00e0,0x0004
0246 00eb 0005  |    |		.CONST	0x00eb,0x0005
0248 00ee 0006  |    |		.CONST	0x00ee,0x0006
024a 00ef 0801  |    |		.CONST	0x00ef,0x0801
024c 00f0 0006  |    |		.CONST	0x00f0,0x0006
024e ; --------------------------------------------------------------------------------------
024e ; Debug3 Subtable 0x7
024e ; --------------------------------------------------------------------------------------
024e 0000 000a  |    |		.DBG3TAB	0x0000,0x000a
0250 0103 0001  |    |		.CONST	0x0103,0x0001
0252 010a 0002  |    |		.CONST	0x010a,0x0002
0254 0113 0003  |    |		.CONST	0x0113,0x0003
0256 0116 0004  |    |		.CONST	0x0116,0x0004
0258 0117 0401  |    |		.CONST	0x0117,0x0401
025a 0118 0004  |    |		.CONST	0x0118,0x0004
025c 0123 0005  | #  |		.CONST	0x0123,0x0005
025e 0126 0006  | &  |		.CONST	0x0126,0x0006
0260 0127 0801  | '  |		.CONST	0x0127,0x0801
0262 0128 0006  | (  |		.CONST	0x0128,0x0006
0264 ; --------------------------------------------------------------------------------------
0264 ; Debug3 Subtable 0x8
0264 ; --------------------------------------------------------------------------------------
0264 0000 0006  |    |		.DBG3TAB	0x0000,0x0006
0266 013b 0001  | ;  |		.CONST	0x013b,0x0001
0268 0141 0002  | A  |		.CONST	0x0141,0x0002
026a 0148 0003  | H  |		.CONST	0x0148,0x0003
026c 014b 0004  | K  |		.CONST	0x014b,0x0004
026e 014c 0401  | L  |		.CONST	0x014c,0x0401
0270 014d 0004  | M  |		.CONST	0x014d,0x0004
0272 ; --------------------------------------------------------------------------------------
0272 ; Debug3 Subtable 0x9
0272 ; --------------------------------------------------------------------------------------
0272 0000 0007  |    |		.DBG3TAB	0x0000,0x0007
0274 015b 0001  | [  |		.CONST	0x015b,0x0001
0276 0161 0002  | a  |		.CONST	0x0161,0x0002
0278 0168 0003  | h  |		.CONST	0x0168,0x0003
027a 016b 0004  | k  |		.CONST	0x016b,0x0004
027c 016e 0005  | n  |		.CONST	0x016e,0x0005
027e 016f 0401  | o  |		.CONST	0x016f,0x0401
0280 0170 0005  | p  |		.CONST	0x0170,0x0005
0282 0000 0000  |    |		.BLANK	0000[0x17e]