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

⟦e7f84f801⟧

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

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5813       |X   |		.CONST	0x5813								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 02c0       |    |		.CONST	0x02c0								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 0002       |    |		.CONST	0x0002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0010       |    |		.CONST	0x0010								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0001       |    |		.CONST	0x0001								; Number of locals
000b			INIT_0008:
000b 029a 001b  |    |		Declare_Subprogram	INIT_0018,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0 = .DEBUG	0x000b,0x030a,0x8000,0x0000,0x005a,0x3fa5,0x0000,0x0005
000d 00bf       |    |		Action	Accept_Activation
000e 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
000f 00c7       |    |		Action	Elaborate_Subprogram
0010			BODY_0008:
0010 00bc       |    |		Action	Signal_Activated
0011 00bb       |    |		Action	Signal_Completion
0012 0000 0000  |    |		.BLANK	0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 0034       | 4  |		.CONST	0x0034								; Address of begin
0019 004a       | J  |		.CONST	0x004a								; Address of exception handler
001a 000b       |    |		.CONST	0x000b								; Number of locals
001b			INIT_0018:
001b 0007       |    |		Action	Break_Optional							; Debug Table 0x1 = .DEBUG	0x001b,0x030c,0x8001,0x0000,0x005a,0x3fa5,0x0000,0x0005
													; Debug Table 0x1.0x0 = 0x1b,0xffff
001c 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x1 = 0x1c,0xfffe
001d 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x2 = 0x1d,0xfffd
001e 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x3 = 0x1e,0xfffc
001f 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x4 = 0x1f,0xfffb
0020 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x5 = 0x20,0xfffa
0021 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x6 = 0x21,0xfff9
0022 e001       |    |		Load	0x0,0x1								; Debug Table 0x1.0x7 = 0x22,0xfff8
0023 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0024 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x1.0x8 = 0x24,0xfff7
0025 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x1.0x9 = 0x25,0xfff6
0026 029f 0053  |   S|		Declare_Subprogram	INIT_0050,For_Call				; Debug Table 0x1.0xa = 0x26,0xfff5
0028 029f 00db  |    |		Declare_Subprogram	INIT_00d8,For_Call				; Debug Table 0x1.0xb = 0x28,0xfff4
002a 029f 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Call				; Debug Table 0x1.0xc = 0x2a,0xfff3
002c 029f 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Call				; Debug Table 0x1.0xd = 0x2c,0xfff2
002e 029f 0183  |    |		Declare_Subprogram	INIT_0180,For_Call				; Debug Table 0x1.0xe = 0x2e,0xfff1
0030 029f 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Call				; Debug Table 0x1.0xf = 0x30,0xfff0
0032 029f 0203  |    |		Declare_Subprogram	INIT_0200,For_Call
0034			BODY_0018:
0034 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x1.0x10 = 0x34,0x1
0035 00eb       |    |		Load_Encached	Diana_Cache
0036 18e9       |    |		Execute	Package,Field_Execute,Field_Number 0xe9
0037 a403       |    |		Store_Unchecked	0x2,0x3
0038 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x11 = 0x38,0x2
0039 e403       |    |		Load	0x2,0x3								; Debug Table 0x1.0x12 = 0x39,0x401
003a 0007       |    |		Action	Break_Optional
003b 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0x1.0x13 = 0x3b,0x402
003c 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x14 = 0x3c,0x403
003d 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x15 = 0x3d,0x404
003e 0f49       | I  |		Execute_Immediate	Equal,0x49					; Debug Table 0x1.0x16 = 0x3e,0x2
003f 6804       |h   |		Jump_Zero	0x44
0040 e403       |    |		Load	0x2,0x3								; Debug Table 0x1.0x17 = 0x40,0x3
0041 00eb       |    |		Load_Encached	Diana_Cache
0042 18e5       |    |		Execute	Package,Field_Execute,Field_Number 0xe5
0043 a403       |    |		Store_Unchecked	0x2,0x3
0044 e403       |    |		Load	0x2,0x3								; Debug Table 0x1.0x18 = 0x44,0x4
0045 00eb       |    |		Load_Encached	Diana_Cache
0046 18d8       |    |		Execute	Package,Field_Execute,Field_Number 0xd8
0047 a404       |    |		Store_Unchecked	0x2,0x4
0048 840b       |    |		Call	0x2,0xb								; Debug Table 0x1.0x19 = 0x48,0x5
0049 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
004a			TRAP_0018:
004a 0007       |    |		Action	Break_Optional
004b 6238       |b8  |		Indirect_Literal	Discrete,0x284,{0x00000000, 0x5a3fb501}		; Debug Table 0x1.0x1a = 0x4b,0x6
004c 0257       | W  |		Execute	Discrete,Raise
004d 0000 0000  |    |		.XXX[0x3]
004f 0000       |    |
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0092       |    |		.CONST	0x0092								; Address of begin
0051 0004       |    |		.CONST	0x0004								; Address of exception handler
0052 0003       |    |		.CONST	0x0003								; Number of locals
0053			INIT_0050:
0053 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x2 = .DEBUG	0x0053,0x0344,0x0001,0x0000,0x005a,0x3fb5,0x0000,0x0063
													; Debug Table 0x2.0x0 = 0x53,0xffff
0054 00db       |    |		Load_Top	At_Offset_3
0055 00eb       |    |		Load_Encached	Diana_Cache
0056 18d0       |    |		Execute	Package,Field_Execute,Field_Number 0xd0
0057 00eb       |    |		Load_Encached	Diana_Cache
0058 1888       |    |		Execute	Package,Field_Execute,Field_Number 0x88
0059 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0x1 = 0x59,0x401
005a 7002       |p   |		Jump_Nonzero	0x5d
005b 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x2.0x2 = 0x5b,0x402
005c 782c       |x,  |		Jump	0x89
005d 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0x3 = 0x5d,0x403
005e 0217       |    |		Execute	Heap_Access,All_Reference
005f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0060 6804       |h   |		Jump_Zero	0x65
0061 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0x4 = 0x61,0x404
0062 0217       |    |		Execute	Heap_Access,All_Reference
0063 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0064 7824       |x$  |		Jump	0x89
0065 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0x5 = 0x65,0x405
0066 0007       |    |		Action	Break_Optional
0067 e604       |    |		Load	0x3,0x4								; Debug Table 0x2.0x6 = 0x67,0x801
0068 0007       |    |		Action	Break_Optional
0069 0148       | H  |		Execute	Heap_Access,Get_Offset						; Debug Table 0x2.0x7 = 0x69,0x802
006a 0007       |    |		Action	Break_Optional							; Debug Table 0x2.0x8 = 0x6a,0x803
006b 00d0       |    |		Action	Swap_Control							; Debug Table 0x2.0x9 = 0x6b,0x804
006c 00d1       |    |		Pop_Control	Pop_Count_1
006d 49bb       |I   |		Short_Literal	0x1bb							; Debug Table 0x2.0xa = 0x6d,0x405
006e 00eb       |    |		Load_Encached	Diana_Cache
006f 0098       |    |		Execute	Package,Field_Read_Dynamic
0070 012c       | ,  |		Execute	Any,Size
0071 e002       |    |		Load	0x0,0x2
0072 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0073 025b       | [  |		Execute	Discrete,Check_In_Type
0074 0273       | s  |		Execute	Discrete,Plus
0075 00d9       |    |		Load_Top	At_Offset_1
0076 0007       |    |		Action	Break_Optional
0077 e605       |    |		Load	0x3,0x5								; Debug Table 0x2.0xb = 0x77,0xc01
0078 0007       |    |		Action	Break_Optional
0079 0210       |    |		Execute	Heap_Access,Get_Segment						; Debug Table 0x2.0xc = 0x79,0xc02
007a 0007       |    |		Action	Break_Optional							; Debug Table 0x2.0xd = 0x7a,0xc03
007b 00d0       |    |		Action	Swap_Control							; Debug Table 0x2.0xe = 0x7b,0xc04
007c 00d1       |    |		Pop_Control	Pop_Count_1
007d 49c8       |I   |		Short_Literal	0x1c8							; Debug Table 0x2.0xf = 0x7d,0x804
007e 00eb       |    |		Load_Encached	Diana_Cache
007f 0098       |    |		Execute	Package,Field_Read_Dynamic
0080 49c9       |I   |		Short_Literal	0x1c9
0081 00eb       |    |		Load_Encached	Diana_Cache
0082 0098       |    |		Execute	Package,Field_Read_Dynamic
0083 49ca       |I   |		Short_Literal	0x1ca
0084 00eb       |    |		Load_Encached	Diana_Cache
0085 0095       |    |		Execute	Package,Field_Reference_Dynamic
0086 e003       |    |		Load	0x0,0x3
0087 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0088 7800       |x   |		Jump	0x89
0089 00d0       |    |		Action	Swap_Control
008a 00d1       |    |		Pop_Control	Pop_Count_1
008b 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1					; Debug Table 0x2.0x10 = 0x8b,0xffff
008c 00ed       |    |		Load_Encached	Diana_Symbol_Rep_Cache					; Debug Table 0x2.0x11 = 0x8c,0xfffe
008d 02c7       |    |		Declare_Variable	Any
008e 00d9       |    |		Load_Top	At_Offset_1
008f 00eb       |    |		Load_Encached	Diana_Cache
0090 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
0091 c603       |    |		Store	0x3,0x3
0092			BODY_0050:
0092 497c       |I|  |		Short_Literal	0x17c							; Debug Table 0x2.0x12 = 0x92,0x1
0093 00eb       |    |		Load_Encached	Diana_Cache
0094 0098       |    |		Execute	Package,Field_Read_Dynamic
0095 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0096 00d9       |    |		Load_Top	At_Offset_1
0097 00eb       |    |		Load_Encached	Diana_Cache
0098 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0099 6805       |h   |		Jump_Zero	0x9f
009a 48e0       |H   |		Short_Literal	0xe0							; Debug Table 0x2.0x13 = 0x9a,0x2
009b 00da       |    |		Load_Top	At_Offset_2
009c e004       |    |		Load	0x0,0x4
009d 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
009e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
009f 497c       |I|  |		Short_Literal	0x17c							; Debug Table 0x2.0x14 = 0x9f,0x3
00a0 00eb       |    |		Load_Encached	Diana_Cache
00a1 0098       |    |		Execute	Package,Field_Read_Dynamic
00a2 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
00a3 00d9       |    |		Load_Top	At_Offset_1
00a4 00eb       |    |		Load_Encached	Diana_Cache
00a5 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
00a6 6805       |h   |		Jump_Zero	0xac
00a7 48e3       |H   |		Short_Literal	0xe3							; Debug Table 0x2.0x15 = 0xa7,0x4
00a8 00da       |    |		Load_Top	At_Offset_2
00a9 e004       |    |		Load	0x0,0x4
00aa 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
00ab 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00ac 497c       |I|  |		Short_Literal	0x17c							; Debug Table 0x2.0x16 = 0xac,0x5
00ad 00eb       |    |		Load_Encached	Diana_Cache
00ae 0098       |    |		Execute	Package,Field_Read_Dynamic
00af 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00b0 00d9       |    |		Load_Top	At_Offset_1
00b1 00eb       |    |		Load_Encached	Diana_Cache
00b2 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
00b3 6805       |h   |		Jump_Zero	0xb9
00b4 48e1       |H   |		Short_Literal	0xe1							; Debug Table 0x2.0x17 = 0xb4,0x6
00b5 00da       |    |		Load_Top	At_Offset_2
00b6 e004       |    |		Load	0x0,0x4
00b7 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
00b8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00b9 497c       |I|  |		Short_Literal	0x17c							; Debug Table 0x2.0x18 = 0xb9,0x7
00ba 00eb       |    |		Load_Encached	Diana_Cache
00bb 0098       |    |		Execute	Package,Field_Read_Dynamic
00bc 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00bd 00d9       |    |		Load_Top	At_Offset_1
00be 00eb       |    |		Load_Encached	Diana_Cache
00bf 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
00c0 6805       |h   |		Jump_Zero	0xc6
00c1 48e4       |H   |		Short_Literal	0xe4							; Debug Table 0x2.0x19 = 0xc1,0x8
00c2 00da       |    |		Load_Top	At_Offset_2
00c3 e004       |    |		Load	0x0,0x4
00c4 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
00c5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00c6 497c       |I|  |		Short_Literal	0x17c							; Debug Table 0x2.0x1a = 0xc6,0x9
00c7 00eb       |    |		Load_Encached	Diana_Cache
00c8 0098       |    |		Execute	Package,Field_Read_Dynamic
00c9 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00ca 00d9       |    |		Load_Top	At_Offset_1
00cb 00eb       |    |		Load_Encached	Diana_Cache
00cc 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
00cd 6804       |h   |		Jump_Zero	0xd2
00ce 48e2       |H   |		Short_Literal	0xe2							; Debug Table 0x2.0x1b = 0xce,0xa
00cf 00da       |    |		Load_Top	At_Offset_2
00d0 e004       |    |		Load	0x0,0x4
00d1 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
00d2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00d3 0000 0000  |    |		.BLANK	0000[0x5]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db       |    |		.CONST	0x00db								; Address of begin
00d9 0004       |    |		.CONST	0x0004								; Address of exception handler
00da 0001       |    |		.CONST	0x0001								; Number of locals
00db			BODY_00d8:
00db			INIT_00d8:
00db 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x3 = .DEBUG	0x00db,0x037e,0x0002,0x0000,0x005a,0x3fb5,0x0000,0x00fa
													; Debug Table 0x3.0x0 = 0xdb,0x1
00dc 00eb       |    |		Load_Encached	Diana_Cache
00dd 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
00de e404       |    |		Load	0x2,0x4
00df 00eb       |    |		Load_Encached	Diana_Cache
00e0 18bd       |    |		Execute	Package,Field_Execute,Field_Number 0xbd
00e1 4972       |Ir  |		Short_Literal	0x172
00e2 00eb       |    |		Load_Encached	Diana_Cache
00e3 0098       |    |		Execute	Package,Field_Read_Dynamic
00e4 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00e5 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x1 = 0xe5,0x401
00e6 0217       |    |		Execute	Heap_Access,All_Reference
00e7 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00e8 00d9       |    |		Load_Top	At_Offset_1
00e9 0007       |    |		Action	Break_Optional
00ea e604       |    |		Load	0x3,0x4								; Debug Table 0x3.0x2 = 0xea,0x801
00eb 0007       |    |		Action	Break_Optional
00ec 0210       |    |		Execute	Heap_Access,Get_Segment						; Debug Table 0x3.0x3 = 0xec,0x802
00ed 0007       |    |		Action	Break_Optional							; Debug Table 0x3.0x4 = 0xed,0x803
00ee 00d0       |    |		Action	Swap_Control							; Debug Table 0x3.0x5 = 0xee,0x804
00ef 00d1       |    |		Pop_Control	Pop_Count_1
00f0 49af       |I   |		Short_Literal	0x1af							; Debug Table 0x3.0x6 = 0xf0,0x401
00f1 00eb       |    |		Load_Encached	Diana_Cache
00f2 0096       |    |		Execute	Package,Entry
00f3 00d0       |    |		Action	Swap_Control
00f4 00d1       |    |		Pop_Control	Pop_Count_1
00f5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1				; Debug Table 0x3.0x7 = 0xf5,0x1
00f6 0000 0000  |    |		.XXX[0x2]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb       |    |		.CONST	0x00fb								; Address of begin
00f9 0004       |    |		.CONST	0x0004								; Address of exception handler
00fa 0001       |    |		.CONST	0x0001								; Number of locals
00fb			BODY_00f8:
00fb			INIT_00f8:
00fb 480f       |H   |		Short_Literal	0xf							; Debug Table 0x4 = .DEBUG	0x00fb,0x0390,0x0001,0x0000,0x005a,0x3fb5,0x0000,0x0122
													; Debug Table 0x4.0x0 = 0xfb,0x1
00fc 0092 0288  |    |		Action	Push_String_Extended,0x288					; "INTEGER"
00fe 8406       |    |		Call	0x2,0x6
00ff e004       |    |		Load	0x0,0x4
0100 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0101 4812       |H   |		Short_Literal	0x12							; Debug Table 0x4.0x1 = 0x101,0x2
0102 0092 0289  |    |		Action	Push_String_Extended,0x289					; "LONG_INTEGER"
0104 8406       |    |		Call	0x2,0x6
0105 e004       |    |		Load	0x0,0x4
0106 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0107 4813       |H   |		Short_Literal	0x13							; Debug Table 0x4.0x2 = 0x107,0x3
0108 0092 028a  |    |		Action	Push_String_Extended,0x28a					; "FLOAT"
010a 8406       |    |		Call	0x2,0x6
010b e004       |    |		Load	0x0,0x4
010c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
010d 480e       |H   |		Short_Literal	0xe							; Debug Table 0x4.0x3 = 0x10d,0x4
010e 0092 028b  |    |		Action	Push_String_Extended,0x28b					; "BOOLEAN"
0110 8406       |    |		Call	0x2,0x6
0111 e004       |    |		Load	0x0,0x4
0112 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0113 4814       |H   |		Short_Literal	0x14							; Debug Table 0x4.0x4 = 0x113,0x5
0114 0092 028c  |    |		Action	Push_String_Extended,0x28c					; "CHARACTER"
0116 8406       |    |		Call	0x2,0x6
0117 e004       |    |		Load	0x0,0x4
0118 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0119 4810       |H   |		Short_Literal	0x10							; Debug Table 0x4.0x5 = 0x119,0x6
011a 0092 028d  |    |		Action	Push_String_Extended,0x28d					; "NATURAL"
011c 8406       |    |		Call	0x2,0x6
011d e004       |    |		Load	0x0,0x4
011e 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
011f 4811       |H   |		Short_Literal	0x11							; Debug Table 0x4.0x6 = 0x11f,0x7
0120 0092 028e  |    |		Action	Push_String_Extended,0x28e					; "POSITIVE"
0122 8406       |    |		Call	0x2,0x6
0123 e004       |    |		Load	0x0,0x4
0124 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0125 4816       |H   |		Short_Literal	0x16							; Debug Table 0x4.0x7 = 0x125,0x8
0126 0092 028f  |    |		Action	Push_String_Extended,0x28f					; "DURATION"
0128 8406       |    |		Call	0x2,0x6
0129 e004       |    |		Load	0x0,0x4
012a 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
012b 4815       |H   |		Short_Literal	0x15							; Debug Table 0x4.0x8 = 0x12b,0x9
012c 0092 0290  |    |		Action	Push_String_Extended,0x290					; "STRING"
012e 8406       |    |		Call	0x2,0x6
012f e004       |    |		Load	0x0,0x4
0130 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0131 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0132 0000 0000  |    |		.BLANK	0000[0x6]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013d       | =  |		.CONST	0x013d								; Address of begin
0139 0004       |    |		.CONST	0x0004								; Address of exception handler
013a 0002       |    |		.CONST	0x0002								; Number of locals
013b			INIT_0138:
013b e004       |    |		Load	0x0,0x4								; Debug Table 0x5 = .DEBUG	0x013b,0x03a4,0x0001,0x0000,0x005a,0x3fb5,0x0000,0x0196
													; Debug Table 0x5.0x0 = 0x13b,0xffff
013c 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
013d			BODY_0138:
013d 4800       |H   |		Short_Literal	0x0							; Debug Table 0x5.0x1 = 0x13d,0x1
013e e403       |    |		Load	0x2,0x3
013f 00eb       |    |		Load_Encached	Diana_Cache
0140 18cf       |    |		Execute	Package,Field_Execute,Field_Number 0xcf
0141 e004       |    |		Load	0x0,0x4
0142 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0143 4801       |H   |		Short_Literal	0x1							; Debug Table 0x5.0x2 = 0x143,0x2
0144 0092 028b  |    |		Action	Push_String_Extended,0x28b					; "BOOLEAN"
0146 8406       |    |		Call	0x2,0x6
0147 e004       |    |		Load	0x0,0x4
0148 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0149 4802       |H   |		Short_Literal	0x2							; Debug Table 0x5.0x3 = 0x149,0x3
014a 0092 0288  |    |		Action	Push_String_Extended,0x288					; "INTEGER"
014c 8406       |    |		Call	0x2,0x6
014d e004       |    |		Load	0x0,0x4
014e 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
014f 4803       |H   |		Short_Literal	0x3							; Debug Table 0x5.0x4 = 0x14f,0x4
0150 0092 028d  |    |		Action	Push_String_Extended,0x28d					; "NATURAL"
0152 8406       |    |		Call	0x2,0x6
0153 e004       |    |		Load	0x0,0x4
0154 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0155 4804       |H   |		Short_Literal	0x4							; Debug Table 0x5.0x5 = 0x155,0x5
0156 0092 028e  |    |		Action	Push_String_Extended,0x28e					; "POSITIVE"
0158 8406       |    |		Call	0x2,0x6
0159 e004       |    |		Load	0x0,0x4
015a 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
015b 4805       |H   |		Short_Literal	0x5							; Debug Table 0x5.0x6 = 0x15b,0x6
015c 0092 0289  |    |		Action	Push_String_Extended,0x289					; "LONG_INTEGER"
015e 8406       |    |		Call	0x2,0x6
015f e004       |    |		Load	0x0,0x4
0160 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0161 4806       |H   |		Short_Literal	0x6							; Debug Table 0x5.0x7 = 0x161,0x7
0162 0092 028a  |    |		Action	Push_String_Extended,0x28a					; "FLOAT"
0164 8406       |    |		Call	0x2,0x6
0165 e004       |    |		Load	0x0,0x4
0166 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0167 4807       |H   |		Short_Literal	0x7							; Debug Table 0x5.0x8 = 0x167,0x8
0168 0092 028f  |    |		Action	Push_String_Extended,0x28f					; "DURATION"
016a 8406       |    |		Call	0x2,0x6
016b e004       |    |		Load	0x0,0x4
016c 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
016d 4808       |H   |		Short_Literal	0x8							; Debug Table 0x5.0x9 = 0x16d,0x9
016e 0092 028c  |    |		Action	Push_String_Extended,0x28c					; "CHARACTER"
0170 8406       |    |		Call	0x2,0x6
0171 e004       |    |		Load	0x0,0x4
0172 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0173 4809       |H   |		Short_Literal	0x9							; Debug Table 0x5.0xa = 0x173,0xa
0174 0092 0290  |    |		Action	Push_String_Extended,0x290					; "STRING"
0176 8406       |    |		Call	0x2,0x6
0177 e004       |    |		Load	0x0,0x4
0178 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0179 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
017a 0000 0000  |    |		.BLANK	0000[0x6]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 018e       |    |		.CONST	0x018e								; Address of begin
0181 0004       |    |		.CONST	0x0004								; Address of exception handler
0182 0004       |    |		.CONST	0x0004								; Number of locals
0183			INIT_0180:
0183 00ee       |    |		Load_Encached	Diana_Seq_Type_Cache					; Debug Table 0x6 = .DEBUG	0x0183,0x03bc,0x0001,0x0000,0x005a,0x3fb5,0x0000,0x023c
													; Debug Table 0x6.0x0 = 0x183,0xffff
0184 e404       |    |		Load	0x2,0x4
0185 00eb       |    |		Load_Encached	Diana_Cache
0186 18bd       |    |		Execute	Package,Field_Execute,Field_Number 0xbd
0187 00eb       |    |		Load_Encached	Diana_Cache
0188 1888       |    |		Execute	Package,Field_Execute,Field_Number 0x88
0189 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
018a 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x6.0x1 = 0x18a,0xfffe
018b 00ef       |    |		Load_Encached	Diana_Sequence_Cache					; Debug Table 0x6.0x2 = 0x18b,0xfffd
018c 00ef       |    |		Load_Encached	Diana_Sequence_Cache					; Debug Table 0x6.0x3 = 0x18c,0x401
018d 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1					; Debug Table 0x6.0x4 = 0x18d,0xfffd
018e			BODY_0180:
018e 4801       |H   |		Short_Literal	0x1							; Debug Table 0x6.0x5 = 0x18e,0x1
018f e403       |    |		Load	0x2,0x3
0190 00eb       |    |		Load_Encached	Diana_Cache
0191 18cf       |    |		Execute	Package,Field_Execute,Field_Number 0xcf
0192 e004       |    |		Load	0x0,0x4
0193 185c       | \  |		Execute	Package,Field_Execute,Field_Number 0x5c
0194 00cf       |    |		Action	Mark_Auxiliary
0195 7852       |xR  |		Jump	0x1e8
0196 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x6.0x6 = 0x196,0x3
0197 0007       |    |		Action	Break_Optional
0198 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x6.0x7 = 0x198,0x801
0199 7002       |p   |		Jump_Nonzero	0x19c
019a 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x6.0x8 = 0x19a,0x802
019b 782c       |x,  |		Jump	0x1c8
019c 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x6.0x9 = 0x19c,0x803
019d 0217       |    |		Execute	Heap_Access,All_Reference
019e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
019f 6804       |h   |		Jump_Zero	0x1a4
01a0 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x6.0xa = 0x1a0,0x804
01a1 0217       |    |		Execute	Heap_Access,All_Reference
01a2 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01a3 7824       |x$  |		Jump	0x1c8
01a4 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x6.0xb = 0x1a4,0x805
01a5 0007       |    |		Action	Break_Optional
01a6 e607       |    |		Load	0x3,0x7								; Debug Table 0x6.0xc = 0x1a6,0xc01
01a7 0007       |    |		Action	Break_Optional
01a8 0148       | H  |		Execute	Heap_Access,Get_Offset						; Debug Table 0x6.0xd = 0x1a8,0xc02
01a9 0007       |    |		Action	Break_Optional							; Debug Table 0x6.0xe = 0x1a9,0xc03
01aa 00d0       |    |		Action	Swap_Control							; Debug Table 0x6.0xf = 0x1aa,0xc04
01ab 00d1       |    |		Pop_Control	Pop_Count_1
01ac 49bb       |I   |		Short_Literal	0x1bb							; Debug Table 0x6.0x10 = 0x1ac,0x805
01ad 00eb       |    |		Load_Encached	Diana_Cache
01ae 0098       |    |		Execute	Package,Field_Read_Dynamic
01af 012c       | ,  |		Execute	Any,Size
01b0 e002       |    |		Load	0x0,0x2
01b1 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
01b2 025b       | [  |		Execute	Discrete,Check_In_Type
01b3 0273       | s  |		Execute	Discrete,Plus
01b4 00d9       |    |		Load_Top	At_Offset_1
01b5 0007       |    |		Action	Break_Optional
01b6 e608       |    |		Load	0x3,0x8								; Debug Table 0x6.0x11 = 0x1b6,0x1001
01b7 0007       |    |		Action	Break_Optional
01b8 0210       |    |		Execute	Heap_Access,Get_Segment						; Debug Table 0x6.0x12 = 0x1b8,0x1002
01b9 0007       |    |		Action	Break_Optional							; Debug Table 0x6.0x13 = 0x1b9,0x1003
01ba 00d0       |    |		Action	Swap_Control							; Debug Table 0x6.0x14 = 0x1ba,0x1004
01bb 00d1       |    |		Pop_Control	Pop_Count_1
01bc 49c8       |I   |		Short_Literal	0x1c8							; Debug Table 0x6.0x15 = 0x1bc,0xc04
01bd 00eb       |    |		Load_Encached	Diana_Cache
01be 0098       |    |		Execute	Package,Field_Read_Dynamic
01bf 49c9       |I   |		Short_Literal	0x1c9
01c0 00eb       |    |		Load_Encached	Diana_Cache
01c1 0098       |    |		Execute	Package,Field_Read_Dynamic
01c2 49ca       |I   |		Short_Literal	0x1ca
01c3 00eb       |    |		Load_Encached	Diana_Cache
01c4 0095       |    |		Execute	Package,Field_Reference_Dynamic
01c5 e003       |    |		Load	0x0,0x3
01c6 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
01c7 7800       |x   |		Jump	0x1c8
01c8 00d0       |    |		Action	Swap_Control
01c9 00d1       |    |		Pop_Control	Pop_Count_1
01ca 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3					; Debug Table 0x6.0x16 = 0x1ca,0x3
01cb 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x6.0x17 = 0x1cb,0x4
01cc 00db       |    |		Load_Top	At_Offset_3
01cd 4975       |Iu  |		Short_Literal	0x175
01ce 00eb       |    |		Load_Encached	Diana_Cache
01cf 0098       |    |		Execute	Package,Field_Read_Dynamic
01d0 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
01d1 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
01d2 0007       |    |		Action	Break_Optional							; Debug Table 0x6.0x18 = 0x1d2,0x5
01d3 e603       |    |		Load	0x3,0x3								; Debug Table 0x6.0x19 = 0x1d3,0x1401
01d4 0007       |    |		Action	Break_Optional
01d5 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0x6.0x1a = 0x1d5,0x1402
01d6 0007       |    |		Action	Break_Optional							; Debug Table 0x6.0x1b = 0x1d6,0x1403
01d7 0007       |    |		Action	Break_Optional							; Debug Table 0x6.0x1c = 0x1d7,0x1404
01d8 0b37       | 7  |		Execute_Immediate	Case_Compare,0x37				; Debug Table 0x6.0x1d = 0x1d8,0x5
01d9 7001       |p   |		Jump_Nonzero	0x1db
01da 7802       |x   |		Jump	0x1dd								; Debug Table 0x6.0x1e = 0x1da,0x7
01db 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x6.0x1f = 0x1db,0x6
01dc 8405       |    |		Call	0x2,0x5
01dd 00d1       |    |		Pop_Control	Pop_Count_1
01de 0007       |    |		Action	Break_Optional							; Debug Table 0x6.0x20 = 0x1de,0x8
01df 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x6.0x21 = 0x1df,0x1801
01e0 7002       |p   |		Jump_Nonzero	0x1e3
01e1 00ee       |    |		Load_Encached	Diana_Seq_Type_Cache					; Debug Table 0x6.0x22 = 0x1e1,0x1802
01e2 7803       |x   |		Jump	0x1e6
01e3 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x6.0x23 = 0x1e3,0x1803
01e4 0217       |    |		Execute	Heap_Access,All_Reference
01e5 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01e6 a602       |    |		Store_Unchecked	0x3,0x2							; Debug Table 0x6.0x24 = 0x1e6,0x8
01e7 00c9       |    |		Action	Pop_Auxiliary_Loop
01e8 0007       |    |		Action	Break_Optional							; Debug Table 0x6.0x25 = 0x1e8,0x2
01e9 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x6.0x26 = 0x1e9,0x1c01
01ea 021d       |    |		Execute	Heap_Access,Is_Null
01eb 6faa       |o   |		Jump_Zero	0x196							; Debug Table 0x6.0x27 = 0x1eb,0x2
01ec 00ce       |    |		Action	Pop_Auxiliary
01ed 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x6.0x28 = 0x1ed,0x9
01ee e404       |    |		Load	0x2,0x4
01ef e004       |    |		Load	0x0,0x4
01f0 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
01f1 8407       |    |		Call	0x2,0x7								; Debug Table 0x6.0x29 = 0x1f1,0xa
01f2 8408       |    |		Call	0x2,0x8								; Debug Table 0x6.0x2a = 0x1f2,0xb
01f3 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01f4 0000 0000  |    |		.BLANK	0000[0x4]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb       |    |		.CONST	0x01fb								; Address of begin
01f9 0004       |    |		.CONST	0x0004								; Address of exception handler
01fa 0001       |    |		.CONST	0x0001								; Number of locals
01fb			BODY_01f8:
01fb			INIT_01f8:
01fb 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x7 = .DEBUG	0x01fb,0x0414,0x0001,0x0000,0x005a,0x3fb5,0x0000,0x02ba
													; Debug Table 0x7.0x0 = 0x1fb,0x1
01fc 6802       |h   |		Jump_Zero	0x1ff
01fd 48e0       |H   |		Short_Literal	0xe0							; Debug Table 0x7.0x1 = 0x1fd,0x2
01fe 0257       | W  |		Execute	Discrete,Raise
01ff 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 021c       |    |		.CONST	0x021c								; Address of begin
0201 0272       | r  |		.CONST	0x0272								; Address of exception handler
0202 0005       |    |		.CONST	0x0005								; Number of locals
0203			INIT_0200:
0203 e005       |    |		Load	0x0,0x5								; Debug Table 0x8 = .DEBUG	0x0203,0x041a,0x0004,0x0000,0x005a,0x3fb5,0x0000,0x03d4
													; Debug Table 0x8.0x0 = 0x203,0xffff
0204 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0205 02c7       |    |		Declare_Variable	Any
0206 e006       |    |		Load	0x0,0x6
0207 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0208 e005       |    |		Load	0x0,0x5
0209 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
020a c602       |    |		Store	0x3,0x2
020b 00f0       |    |		Load_Encached	Segment_Cache						; Debug Table 0x8.0x1 = 0x20b,0xfffe
020c e007       |    |		Load	0x0,0x7
020d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
020e 00f0       |    |		Load_Encached	Segment_Cache
020f e008       |    |		Load	0x0,0x8
0210 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0211 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0212 e402       |    |		Load	0x2,0x2								; Debug Table 0x8.0x2 = 0x212,0xfffd
0213 0007       |    |		Action	Break_Optional
0214 e001       |    |		Load	0x0,0x1								; Debug Table 0x8.0x3 = 0x214,0xfffc
0215 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0216 1b33       | 3  |		Execute	Package,Field_Read,Field_Number 0x33
0217 02c7       |    |		Declare_Variable	Any
0218 e001       |    |		Load	0x0,0x1
0219 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
021a 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
021b c605       |    |		Store	0x3,0x5
021c			BODY_0200:
021c e001       |    |		Load	0x0,0x1								; Debug Table 0x8.0x4 = 0x21c,0x1
021d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
021e 6061       |`a  |		Indirect_Literal	Discrete,0x280,{0x00000000, 0x00004000}
021f e602       |    |		Load	0x3,0x2
0220 e5ff       |    |		Load	0x2,-0x1
0221 e009       |    |		Load	0x0,0x9
0222 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0223 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0224 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x8.0x5 = 0x224,0x2
0225 840a       |    |		Call	0x2,0xa
0226 e001       |    |		Load	0x0,0x1								; Debug Table 0x8.0x6 = 0x226,0x3
0227 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0228 6057       |`W  |		Indirect_Literal	Discrete,0x280,{0x00000000, 0x00004000}
0229 e602       |    |		Load	0x3,0x2
022a 4800       |H   |		Short_Literal	0x0
022b e5ff       |    |		Load	0x2,-0x1
022c e009       |    |		Load	0x0,0x9
022d 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
022e 005a       | Z  |		Store_Top	Discrete,At_Offset_2
022f 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x8.0x7 = 0x22f,0x4
0230 840a       |    |		Call	0x2,0xa
0231 e001       |    |		Load	0x0,0x1								; Debug Table 0x8.0x8 = 0x231,0x5
0232 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0233 4800       |H   |		Short_Literal	0x0
0234 4800       |H   |		Short_Literal	0x0
0235 0092 0291  |    |		Action	Push_String_Extended,0x291					; "R1000-CG"
0237 e5ff       |    |		Load	0x2,-0x1
0238 e001       |    |		Load	0x0,0x1
0239 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
023a 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
023b 005a       | Z  |		Store_Top	Discrete,At_Offset_2
023c 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x8.0x9 = 0x23c,0x6
023d 840a       |    |		Call	0x2,0xa
023e 4801       |H   |		Short_Literal	0x1							; Debug Table 0x8.0xa = 0x23e,0x7
023f e00a       |    |		Load	0x0,0xa
0240 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0241 e003       |    |		Load	0x0,0x3
0242 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0243 e001       |    |		Load	0x0,0x1
0244 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
0245 e602       |    |		Load	0x3,0x2
0246 e603       |    |		Load	0x3,0x3
0247 e00b       |    |		Load	0x0,0xb
0248 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0249 8409       |    |		Call	0x2,0x9								; Debug Table 0x8.0xb = 0x249,0x8
024a e001       |    |		Load	0x0,0x1								; Debug Table 0x8.0xc = 0x24a,0x9
024b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
024c e602       |    |		Load	0x3,0x2
024d e5ff       |    |		Load	0x2,-0x1
024e e009       |    |		Load	0x0,0x9
024f 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0250 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0251 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x8.0xd = 0x251,0xa
0252 840a       |    |		Call	0x2,0xa
0253 e00b       |    |		Load	0x0,0xb								; Debug Table 0x8.0xe = 0x253,0xb
0254 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0255 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x8.0xf = 0x255,0xc
0256 e001       |    |		Load	0x0,0x1
0257 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0258 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0259 4800       |H   |		Short_Literal	0x0							; Debug Table 0x8.0x10 = 0x259,0xd
025a e602       |    |		Load	0x3,0x2
025b e00c       |    |		Load	0x0,0xc
025c 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
025d e00d       |    |		Load	0x0,0xd
025e 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
025f 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
0260 025b       | [  |		Execute	Discrete,Check_In_Type
0261 e5ff       |    |		Load	0x2,-0x1
0262 e00d       |    |		Load	0x0,0xd
0263 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0264 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0265 e00d       |    |		Load	0x0,0xd
0266 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0267 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0268 e00d       |    |		Load	0x0,0xd
0269 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
026a 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
026b 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x8.0x11 = 0x26b,0xe
026c 4801       |H   |		Short_Literal	0x1
026d 4801       |H   |		Short_Literal	0x1
026e e005       |    |		Load	0x0,0x5
026f 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0270 c602       |    |		Store	0x3,0x2
0271 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0272			TRAP_0200:
0272 0007       |    |		Action	Break_Optional
0273 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x8.0x12 = 0x273,0xf
0274 e001       |    |		Load	0x0,0x1
0275 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0276 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0277 e602       |    |		Load	0x3,0x2								; Debug Table 0x8.0x13 = 0x277,0x10
0278 4801       |H   |		Short_Literal	0x1
0279 4800       |H   |		Short_Literal	0x0
027a e005       |    |		Load	0x0,0x5
027b 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
027c c602       |    |		Store	0x3,0x2
027d 6006       |`   |		Indirect_Literal	Discrete,0x284,{0x00000000, 0x5a3fb501}		; Debug Table 0x8.0x14 = 0x27d,0x11
027e 0257       | W  |		Execute	Discrete,Raise
027f 0000       |    |		.XXX[0x1]
0280 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0284 0000 0000  |    |		.LITERAL	{0x00000000, 0x5a3fb501}
0288 ; --------------------------------------------------------------------------------------
0288 ; STRING TABLE
0288 ; --------------------------------------------------------------------------------------
0288 0016       |    |		.STRTAB	0x0016->0x0293							; "INTEGER"
0289 001b       |    |		.STRTAB	0x001b->0x0296							; "LONG_INTEGER"
028a 0025       | %  |		.STRTAB	0x0025->0x029c							; "FLOAT"
028b 0028       | (  |		.STRTAB	0x0028->0x029f							; "BOOLEAN"
028c 002d       | -  |		.STRTAB	0x002d->0x02a2							; "CHARACTER"
028d 0034       | 4  |		.STRTAB	0x0034->0x02a7							; "NATURAL"
028e 0039       | 9  |		.STRTAB	0x0039->0x02aa							; "POSITIVE"
028f 003f       | ?  |		.STRTAB	0x003f->0x02ae							; "DURATION"
0290 0045       | E  |		.STRTAB	0x0045->0x02b2							; "STRING"
0291 0049       | I  |		.STRTAB	0x0049->0x02b5							; "R1000-CG"
0292 004f       | O  |		.STREND 0x004f->0x02b9
0293 494e 5445  |INTE|		.STRTAB_STRINGS
02ba 0000 0000  |    |		.BLANK	0000[0x6]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; Debug Table
02c0 ; --------------------------------------------------------------------------------------
02c0 0003 0009  |    |		.CONST	0x0003,0x0009
02c2 000b 030a  |    |		.DEBUG	0x000b,0x030a,0x8000,0x0000,0x005a,0x3fa5,0x0000,0x0005
02ca 001b 030c  |    |		.DEBUG	0x001b,0x030c,0x8001,0x0000,0x005a,0x3fa5,0x0000,0x0005
02d2 0053 0344  | S D|		.DEBUG	0x0053,0x0344,0x0001,0x0000,0x005a,0x3fb5,0x0000,0x0063
02da 00db 037e  |   ~|		.DEBUG	0x00db,0x037e,0x0002,0x0000,0x005a,0x3fb5,0x0000,0x00fa
02e2 00fb 0390  |    |		.DEBUG	0x00fb,0x0390,0x0001,0x0000,0x005a,0x3fb5,0x0000,0x0122
02ea 013b 03a4  | ;  |		.DEBUG	0x013b,0x03a4,0x0001,0x0000,0x005a,0x3fb5,0x0000,0x0196
02f2 0183 03bc  |    |		.DEBUG	0x0183,0x03bc,0x0001,0x0000,0x005a,0x3fb5,0x0000,0x023c
02fa 01fb 0414  |    |		.DEBUG	0x01fb,0x0414,0x0001,0x0000,0x005a,0x3fb5,0x0000,0x02ba
0302 0203 041a  |    |		.DEBUG	0x0203,0x041a,0x0004,0x0000,0x005a,0x3fb5,0x0000,0x03d4
030a ; --------------------------------------------------------------------------------------
030a ; Debug3 Subtable 0x0
030a ; --------------------------------------------------------------------------------------
030a 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
030c ; --------------------------------------------------------------------------------------
030c ; Debug3 Subtable 0x1
030c ; --------------------------------------------------------------------------------------
030c 0010 000b  |    |		.DBG3TAB	0x0010,0x000b
030e 001b ffff  |    |		.CONST	0x001b,0xffff
0310 001c fffe  |    |		.CONST	0x001c,0xfffe
0312 001d fffd  |    |		.CONST	0x001d,0xfffd
0314 001e fffc  |    |		.CONST	0x001e,0xfffc
0316 001f fffb  |    |		.CONST	0x001f,0xfffb
0318 0020 fffa  |    |		.CONST	0x0020,0xfffa
031a 0021 fff9  | !  |		.CONST	0x0021,0xfff9
031c 0022 fff8  | "  |		.CONST	0x0022,0xfff8
031e 0024 fff7  | $  |		.CONST	0x0024,0xfff7
0320 0025 fff6  | %  |		.CONST	0x0025,0xfff6
0322 0026 fff5  | &  |		.CONST	0x0026,0xfff5
0324 0028 fff4  | (  |		.CONST	0x0028,0xfff4
0326 002a fff3  | *  |		.CONST	0x002a,0xfff3
0328 002c fff2  | ,  |		.CONST	0x002c,0xfff2
032a 002e fff1  | .  |		.CONST	0x002e,0xfff1
032c 0030 fff0  | 0  |		.CONST	0x0030,0xfff0
032e 0034 0001  | 4  |		.CONST	0x0034,0x0001
0330 0038 0002  | 8  |		.CONST	0x0038,0x0002
0332 0039 0401  | 9  |		.CONST	0x0039,0x0401
0334 003b 0402  | ;  |		.CONST	0x003b,0x0402
0336 003c 0403  | <  |		.CONST	0x003c,0x0403
0338 003d 0404  | =  |		.CONST	0x003d,0x0404
033a 003e 0002  | >  |		.CONST	0x003e,0x0002
033c 0040 0003  | @  |		.CONST	0x0040,0x0003
033e 0044 0004  | D  |		.CONST	0x0044,0x0004
0340 0048 0005  | H  |		.CONST	0x0048,0x0005
0342 004b 0006  | K  |		.CONST	0x004b,0x0006
0344 ; --------------------------------------------------------------------------------------
0344 ; Debug3 Subtable 0x2
0344 ; --------------------------------------------------------------------------------------
0344 0003 0019  |    |		.DBG3TAB	0x0003,0x0019
0346 0053 ffff  | S  |		.CONST	0x0053,0xffff
0348 0059 0401  | Y  |		.CONST	0x0059,0x0401
034a 005b 0402  | [  |		.CONST	0x005b,0x0402
034c 005d 0403  | ]  |		.CONST	0x005d,0x0403
034e 0061 0404  | a  |		.CONST	0x0061,0x0404
0350 0065 0405  | e  |		.CONST	0x0065,0x0405
0352 0067 0801  | g  |		.CONST	0x0067,0x0801
0354 0069 0802  | i  |		.CONST	0x0069,0x0802
0356 006a 0803  | j  |		.CONST	0x006a,0x0803
0358 006b 0804  | k  |		.CONST	0x006b,0x0804
035a 006d 0405  | m  |		.CONST	0x006d,0x0405
035c 0077 0c01  | w  |		.CONST	0x0077,0x0c01
035e 0079 0c02  | y  |		.CONST	0x0079,0x0c02
0360 007a 0c03  | z  |		.CONST	0x007a,0x0c03
0362 007b 0c04  | {  |		.CONST	0x007b,0x0c04
0364 007d 0804  | }  |		.CONST	0x007d,0x0804
0366 008b ffff  |    |		.CONST	0x008b,0xffff
0368 008c fffe  |    |		.CONST	0x008c,0xfffe
036a 0092 0001  |    |		.CONST	0x0092,0x0001
036c 009a 0002  |    |		.CONST	0x009a,0x0002
036e 009f 0003  |    |		.CONST	0x009f,0x0003
0370 00a7 0004  |    |		.CONST	0x00a7,0x0004
0372 00ac 0005  |    |		.CONST	0x00ac,0x0005
0374 00b4 0006  |    |		.CONST	0x00b4,0x0006
0376 00b9 0007  |    |		.CONST	0x00b9,0x0007
0378 00c1 0008  |    |		.CONST	0x00c1,0x0008
037a 00c6 0009  |    |		.CONST	0x00c6,0x0009
037c 00ce 000a  |    |		.CONST	0x00ce,0x000a
037e ; --------------------------------------------------------------------------------------
037e ; Debug3 Subtable 0x3
037e ; --------------------------------------------------------------------------------------
037e 0000 0008  |    |		.DBG3TAB	0x0000,0x0008
0380 00db 0001  |    |		.CONST	0x00db,0x0001
0382 00e5 0401  |    |		.CONST	0x00e5,0x0401
0384 00ea 0801  |    |		.CONST	0x00ea,0x0801
0386 00ec 0802  |    |		.CONST	0x00ec,0x0802
0388 00ed 0803  |    |		.CONST	0x00ed,0x0803
038a 00ee 0804  |    |		.CONST	0x00ee,0x0804
038c 00f0 0401  |    |		.CONST	0x00f0,0x0401
038e 00f5 0001  |    |		.CONST	0x00f5,0x0001
0390 ; --------------------------------------------------------------------------------------
0390 ; Debug3 Subtable 0x4
0390 ; --------------------------------------------------------------------------------------
0390 0000 0009  |    |		.DBG3TAB	0x0000,0x0009
0392 00fb 0001  |    |		.CONST	0x00fb,0x0001
0394 0101 0002  |    |		.CONST	0x0101,0x0002
0396 0107 0003  |    |		.CONST	0x0107,0x0003
0398 010d 0004  |    |		.CONST	0x010d,0x0004
039a 0113 0005  |    |		.CONST	0x0113,0x0005
039c 0119 0006  |    |		.CONST	0x0119,0x0006
039e 011f 0007  |    |		.CONST	0x011f,0x0007
03a0 0125 0008  | %  |		.CONST	0x0125,0x0008
03a2 012b 0009  | +  |		.CONST	0x012b,0x0009
03a4 ; --------------------------------------------------------------------------------------
03a4 ; Debug3 Subtable 0x5
03a4 ; --------------------------------------------------------------------------------------
03a4 0001 000a  |    |		.DBG3TAB	0x0001,0x000a
03a6 013b ffff  | ;  |		.CONST	0x013b,0xffff
03a8 013d 0001  | =  |		.CONST	0x013d,0x0001
03aa 0143 0002  | C  |		.CONST	0x0143,0x0002
03ac 0149 0003  | I  |		.CONST	0x0149,0x0003
03ae 014f 0004  | O  |		.CONST	0x014f,0x0004
03b0 0155 0005  | U  |		.CONST	0x0155,0x0005
03b2 015b 0006  | [  |		.CONST	0x015b,0x0006
03b4 0161 0007  | a  |		.CONST	0x0161,0x0007
03b6 0167 0008  | g  |		.CONST	0x0167,0x0008
03b8 016d 0009  | m  |		.CONST	0x016d,0x0009
03ba 0173 000a  | s  |		.CONST	0x0173,0x000a
03bc ; --------------------------------------------------------------------------------------
03bc ; Debug3 Subtable 0x6
03bc ; --------------------------------------------------------------------------------------
03bc 0004 0027  |   '|		.DBG3TAB	0x0004,0x0027
03be 0183 ffff  |    |		.CONST	0x0183,0xffff
03c0 018a fffe  |    |		.CONST	0x018a,0xfffe
03c2 018b fffd  |    |		.CONST	0x018b,0xfffd
03c4 018c 0401  |    |		.CONST	0x018c,0x0401
03c6 018d fffd  |    |		.CONST	0x018d,0xfffd
03c8 018e 0001  |    |		.CONST	0x018e,0x0001
03ca 0196 0003  |    |		.CONST	0x0196,0x0003
03cc 0198 0801  |    |		.CONST	0x0198,0x0801
03ce 019a 0802  |    |		.CONST	0x019a,0x0802
03d0 019c 0803  |    |		.CONST	0x019c,0x0803
03d2 01a0 0804  |    |		.CONST	0x01a0,0x0804
03d4 01a4 0805  |    |		.CONST	0x01a4,0x0805
03d6 01a6 0c01  |    |		.CONST	0x01a6,0x0c01
03d8 01a8 0c02  |    |		.CONST	0x01a8,0x0c02
03da 01a9 0c03  |    |		.CONST	0x01a9,0x0c03
03dc 01aa 0c04  |    |		.CONST	0x01aa,0x0c04
03de 01ac 0805  |    |		.CONST	0x01ac,0x0805
03e0 01b6 1001  |    |		.CONST	0x01b6,0x1001
03e2 01b8 1002  |    |		.CONST	0x01b8,0x1002
03e4 01b9 1003  |    |		.CONST	0x01b9,0x1003
03e6 01ba 1004  |    |		.CONST	0x01ba,0x1004
03e8 01bc 0c04  |    |		.CONST	0x01bc,0x0c04
03ea 01ca 0003  |    |		.CONST	0x01ca,0x0003
03ec 01cb 0004  |    |		.CONST	0x01cb,0x0004
03ee 01d2 0005  |    |		.CONST	0x01d2,0x0005
03f0 01d3 1401  |    |		.CONST	0x01d3,0x1401
03f2 01d5 1402  |    |		.CONST	0x01d5,0x1402
03f4 01d6 1403  |    |		.CONST	0x01d6,0x1403
03f6 01d7 1404  |    |		.CONST	0x01d7,0x1404
03f8 01d8 0005  |    |		.CONST	0x01d8,0x0005
03fa 01da 0007  |    |		.CONST	0x01da,0x0007
03fc 01db 0006  |    |		.CONST	0x01db,0x0006
03fe 01de 0008  |    |		.CONST	0x01de,0x0008
0400 01df 1801  |    |		.CONST	0x01df,0x1801
0402 01e1 1802  |    |		.CONST	0x01e1,0x1802
0404 01e3 1803  |    |		.CONST	0x01e3,0x1803
0406 01e6 0008  |    |		.CONST	0x01e6,0x0008
0408 01e8 0002  |    |		.CONST	0x01e8,0x0002
040a 01e9 1c01  |    |		.CONST	0x01e9,0x1c01
040c 01eb 0002  |    |		.CONST	0x01eb,0x0002
040e 01ed 0009  |    |		.CONST	0x01ed,0x0009
0410 01f1 000a  |    |		.CONST	0x01f1,0x000a
0412 01f2 000b  |    |		.CONST	0x01f2,0x000b
0414 ; --------------------------------------------------------------------------------------
0414 ; Debug3 Subtable 0x7
0414 ; --------------------------------------------------------------------------------------
0414 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
0416 01fb 0001  |    |		.CONST	0x01fb,0x0001
0418 01fd 0002  |    |		.CONST	0x01fd,0x0002
041a ; --------------------------------------------------------------------------------------
041a ; Debug3 Subtable 0x8
041a ; --------------------------------------------------------------------------------------
041a 0004 0011  |    |		.DBG3TAB	0x0004,0x0011
041c 0203 ffff  |    |		.CONST	0x0203,0xffff
041e 020b fffe  |    |		.CONST	0x020b,0xfffe
0420 0212 fffd  |    |		.CONST	0x0212,0xfffd
0422 0214 fffc  |    |		.CONST	0x0214,0xfffc
0424 021c 0001  |    |		.CONST	0x021c,0x0001
0426 0224 0002  | $  |		.CONST	0x0224,0x0002
0428 0226 0003  | &  |		.CONST	0x0226,0x0003
042a 022f 0004  | /  |		.CONST	0x022f,0x0004
042c 0231 0005  | 1  |		.CONST	0x0231,0x0005
042e 023c 0006  | <  |		.CONST	0x023c,0x0006
0430 023e 0007  | >  |		.CONST	0x023e,0x0007
0432 0249 0008  | I  |		.CONST	0x0249,0x0008
0434 024a 0009  | J  |		.CONST	0x024a,0x0009
0436 0251 000a  | Q  |		.CONST	0x0251,0x000a
0438 0253 000b  | S  |		.CONST	0x0253,0x000b
043a 0255 000c  | U  |		.CONST	0x0255,0x000c
043c 0259 000d  | Y  |		.CONST	0x0259,0x000d
043e 026b 000e  | k  |		.CONST	0x026b,0x000e
0440 0273 000f  | s  |		.CONST	0x0273,0x000f
0442 0277 0010  | w  |		.CONST	0x0277,0x0010
0444 027d 0011  | }  |		.CONST	0x027d,0x0011
0446 0000 0000  |    |		.BLANK	0000[0x1ba]