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

⟦6f8b992e6⟧

    Length: 2048 (0x800)
    Notes: 00_class, 5812_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 5812       |X   |		.CONST	0x5812								; 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 001c       |    |		.CONST	0x001c								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0010       |    |		.CONST	0x0010								; Number of locals
000b			INIT_0008:
000b 029a 0023  |   #|		Declare_Subprogram	INIT_0020,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0 = .DEBUG	0x000b,0x018a,0x8000,0x0000,0x0040,0xb506,0x0000,0x000f
													; Debug Table 0x0.0x0 = 0xb,0xffff
000d 029a 003b  |   ;|		Declare_Subprogram	INIT_0038,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x1 = 0xd,0xfffe
000f 029a 0053  |   S|		Declare_Subprogram	INIT_0050,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x2 = 0xf,0xfffd
0011 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x3 = 0x11,0xfffc
0013 00bf       |    |		Action	Accept_Activation
0014 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd				; Debug Table 0x1 = .DEBUG	0x0014,0x0194,0x8000,0x0000,0x0040,0xb516,0x0000,0x000b
													; Debug Table 0x1.0x0 = 0x14,0xffff
0015 00c7       |    |		Action	Elaborate_Subprogram
0016 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe				; Debug Table 0x1.0x1 = 0x16,0xfffe
0017 00c7       |    |		Action	Elaborate_Subprogram
0018 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf				; Debug Table 0x1.0x2 = 0x18,0xfffd
0019 00c7       |    |		Action	Elaborate_Subprogram
001a 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10				; Debug Table 0x1.0x3 = 0x1a,0xfffc
001b 00c7       |    |		Action	Elaborate_Subprogram
001c			BODY_0008:
001c 00bc       |    |		Action	Signal_Activated
001d 00bb       |    |		Action	Signal_Completion
001e 0000 0000  |    |		.XXX[0x2]
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 0025       | %  |		.CONST	0x0025								; Address of begin
0021 0004       |    |		.CONST	0x0004								; Address of exception handler
0022 0002       |    |		.CONST	0x0002								; Number of locals
0023			INIT_0020:
0023 029f 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Call				; Debug Table 0x2 = .DEBUG	0x0023,0x019e,0x0001,0x0000,0x0040,0xb506,0x0000,0x0010
0025			BODY_0020:
0025 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x2.0x0 = 0x25,0x1
0026 01db       |    |		Execute	Vector,Length
0027 e5fe       |    |		Load	0x2,-0x2
0028 027b       | {  |		Execute	Discrete,Greater_Equal
0029 7002       |p   |		Jump_Nonzero	0x2c
002a 4887       |H   |		Short_Literal	0x87
002b 0257       | W  |		Execute	Discrete,Raise
002c e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x2.0x1 = 0x2c,0x2
002d 6112       |a   |		Indirect_Literal	Discrete,0x140,{0x00000000, 0x00000400}
002e 027a       | z  |		Execute	Discrete,Less_Equal
002f 7002       |p   |		Jump_Nonzero	0x32
0030 4887       |H   |		Short_Literal	0x87
0031 0257       | W  |		Execute	Discrete,Raise
0032 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x2.0x2 = 0x32,0x3
0033 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0034 6801       |h   |		Jump_Zero	0x36
0035 8402       |    |		Call	0x2,0x2								; Debug Table 0x2.0x3 = 0x35,0x4
0036 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0037 0000       |    |		.XXX[0x1]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 003d       | =  |		.CONST	0x003d								; Address of begin
0039 0004       |    |		.CONST	0x0004								; Address of exception handler
003a 0002       |    |		.CONST	0x0002								; Number of locals
003b			INIT_0038:
003b 029f 0103  |    |		Declare_Subprogram	INIT_0100,For_Call				; Debug Table 0x3 = .DEBUG	0x003b,0x01a8,0x0001,0x0000,0x0040,0xb506,0x0000,0x0020
003d			BODY_0038:
003d e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x3.0x0 = 0x3d,0x1
003e 01db       |    |		Execute	Vector,Length
003f e5fd       |    |		Load	0x2,-0x3
0040 027b       | {  |		Execute	Discrete,Greater_Equal
0041 7002       |p   |		Jump_Nonzero	0x44
0042 4887       |H   |		Short_Literal	0x87
0043 0257       | W  |		Execute	Discrete,Raise
0044 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x3.0x1 = 0x44,0x2
0045 60fa       |`   |		Indirect_Literal	Discrete,0x140,{0x00000000, 0x00000400}
0046 027a       | z  |		Execute	Discrete,Less_Equal
0047 7002       |p   |		Jump_Nonzero	0x4a
0048 4887       |H   |		Short_Literal	0x87
0049 0257       | W  |		Execute	Discrete,Raise
004a e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x3.0x2 = 0x4a,0x3
004b 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
004c 6801       |h   |		Jump_Zero	0x4e
004d 8402       |    |		Call	0x2,0x2								; Debug Table 0x3.0x3 = 0x4d,0x4
004e 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
004f 0000       |    |		.XXX[0x1]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 005d       | ]  |		.CONST	0x005d								; Address of begin
0051 0004       |    |		.CONST	0x0004								; Address of exception handler
0052 0005       |    |		.CONST	0x0005								; Number of locals
0053			INIT_0050:
0053 e001       |    |		Load	0x0,0x1								; Debug Table 0x4 = .DEBUG	0x0053,0x01b2,0x0001,0x0000,0x0040,0xb506,0x0000,0x0030
													; Debug Table 0x4.0x0 = 0x53,0xffff
0054 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0055 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0056 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x4.0x1 = 0x56,0xfffe
0057 01dd       |    |		Execute	Vector,First
0058 00e3       |    |		Load_Encached	Natural_Cache
0059 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
005a 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x4.0x2 = 0x5a,0xfffd
005b 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
005c 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x4.0x3 = 0x5c,0xfffc
005d			BODY_0050:
005d 00cf       |    |		Action	Mark_Auxiliary
005e 0007       |    |		Action	Break_Optional							; Debug Table 0x4.0x4 = 0x5e,0x1
005f 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x4.0x5 = 0x5f,0x2
0060 60df       |`   |		Indirect_Literal	Discrete,0x140,{0x00000000, 0x00000400}
0061 0273       | s  |		Execute	Discrete,Plus
0062 e5fe       |    |		Load	0x2,-0x2
0063 027d       | }  |		Execute	Discrete,Greater
0064 6805       |h   |		Jump_Zero	0x6a
0065 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x4.0x6 = 0x65,0x3
0066 00db       |    |		Load_Top	At_Offset_3
0067 0272       | r  |		Execute	Discrete,Minus
0068 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0069 7802       |x   |		Jump	0x6c
006a 60d5       |`   |		Indirect_Literal	Discrete,0x140,{0x00000000, 0x00000400}		; Debug Table 0x4.0x7 = 0x6a,0x4
006b 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
006c e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x4.0x8 = 0x6c,0x5
006d e403       |    |		Load	0x2,0x3
006e e403       |    |		Load	0x2,0x3
006f e405       |    |		Load	0x2,0x5
0070 0273       | s  |		Execute	Discrete,Plus
0071 0aff       |    |		Execute_Immediate	Plus,-0x1
0072 0248       | H  |		Execute	Discrete,Check_In_Integer
0073 00da       |    |		Load_Top	At_Offset_2
0074 035b       | [  |		Declare_Type	Array,Constrained
0075 00d0       |    |		Action	Swap_Control
0076 01cd       |    |		Execute	Vector,Slice_Reference
0077 00d8       |    |		Load_Top	At_Offset_0
0078 00db       |    |		Load_Top	At_Offset_3
0079 e402       |    |		Load	0x2,0x2
007a e5ff       |    |		Load	0x2,-0x1
007b 01d5       |    |		Execute	Vector,Field_Reference
007c 820d       |    |		Call	0x1,0xd
007d 00d2       |    |		Pop_Control	Pop_Count_2
007e 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x4.0x9 = 0x7e,0x6
007f 00da       |    |		Load_Top	At_Offset_2
0080 0273       | s  |		Execute	Discrete,Plus
0081 005b       | [  |		Store_Top	Discrete,At_Offset_3
0082 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x4.0xa = 0x82,0x7
0083 e5fe       |    |		Load	0x2,-0x2
0084 027b       | {  |		Execute	Discrete,Greater_Equal
0085 7009       |p   |		Jump_Nonzero	0x8f
0086 e402       |    |		Load	0x2,0x2								; Debug Table 0x4.0xb = 0x86,0x8
0087 0a01       |    |		Execute_Immediate	Plus,0x1
0088 c402       |    |		Store	0x2,0x2
0089 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x4.0xc = 0x89,0x9
008a 00da       |    |		Load_Top	At_Offset_2
008b 0273       | s  |		Execute	Discrete,Plus
008c c403       |    |		Store	0x2,0x3
008d 00c9       |    |		Action	Pop_Auxiliary_Loop
008e 7fd0       |    |		Jump	0x5f
008f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 009d       |    |		.CONST	0x009d								; Address of begin
0091 0004       |    |		.CONST	0x0004								; Address of exception handler
0092 0005       |    |		.CONST	0x0005								; Number of locals
0093			INIT_0090:
0093 e001       |    |		Load	0x0,0x1								; Debug Table 0x5 = .DEBUG	0x0093,0x01ce,0x0001,0x0000,0x0040,0xb506,0x0000,0x0040
													; Debug Table 0x5.0x0 = 0x93,0xffff
0094 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0095 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0096 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x5.0x1 = 0x96,0xfffe
0097 01dd       |    |		Execute	Vector,First
0098 00e3       |    |		Load_Encached	Natural_Cache
0099 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
009a 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x5.0x2 = 0x9a,0xfffd
009b 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
009c 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x5.0x3 = 0x9c,0xfffc
009d			BODY_0090:
009d 00cf       |    |		Action	Mark_Auxiliary
009e 0007       |    |		Action	Break_Optional							; Debug Table 0x5.0x4 = 0x9e,0x1
009f 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x5.0x5 = 0x9f,0x2
00a0 609f       |`   |		Indirect_Literal	Discrete,0x140,{0x00000000, 0x00000400}
00a1 0273       | s  |		Execute	Discrete,Plus
00a2 e5fd       |    |		Load	0x2,-0x3
00a3 027d       | }  |		Execute	Discrete,Greater
00a4 6805       |h   |		Jump_Zero	0xaa
00a5 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x5.0x6 = 0xa5,0x3
00a6 00db       |    |		Load_Top	At_Offset_3
00a7 0272       | r  |		Execute	Discrete,Minus
00a8 005a       | Z  |		Store_Top	Discrete,At_Offset_2
00a9 7802       |x   |		Jump	0xac
00aa 6095       |`   |		Indirect_Literal	Discrete,0x140,{0x00000000, 0x00000400}		; Debug Table 0x5.0x7 = 0xaa,0x4
00ab 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
00ac 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x5.0x8 = 0xac,0x5
00ad e403       |    |		Load	0x2,0x3
00ae e403       |    |		Load	0x2,0x3
00af e405       |    |		Load	0x2,0x5
00b0 0273       | s  |		Execute	Discrete,Plus
00b1 0aff       |    |		Execute_Immediate	Plus,-0x1
00b2 0248       | H  |		Execute	Discrete,Check_In_Integer
00b3 e5fe       |    |		Load	0x2,-0x2
00b4 01cf       |    |		Execute	Vector,Slice_Read
00b5 e402       |    |		Load	0x2,0x2
00b6 e5ff       |    |		Load	0x2,-0x1
00b7 01d5       |    |		Execute	Vector,Field_Reference
00b8 820e       |    |		Call	0x1,0xe
00b9 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x5.0x9 = 0xb9,0x6
00ba 00da       |    |		Load_Top	At_Offset_2
00bb 0273       | s  |		Execute	Discrete,Plus
00bc 005b       | [  |		Store_Top	Discrete,At_Offset_3
00bd 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x5.0xa = 0xbd,0x7
00be e5fd       |    |		Load	0x2,-0x3
00bf 027b       | {  |		Execute	Discrete,Greater_Equal
00c0 7009       |p   |		Jump_Nonzero	0xca
00c1 e402       |    |		Load	0x2,0x2								; Debug Table 0x5.0xb = 0xc1,0x8
00c2 0a01       |    |		Execute_Immediate	Plus,0x1
00c3 c402       |    |		Store	0x2,0x2
00c4 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x5.0xc = 0xc4,0x9
00c5 00da       |    |		Load_Top	At_Offset_2
00c6 0273       | s  |		Execute	Discrete,Plus
00c7 c403       |    |		Store	0x2,0x3
00c8 00c9       |    |		Action	Pop_Auxiliary_Loop
00c9 7fd5       |    |		Jump	0x9f
00ca 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00cb 0000 0000  |    |		.BLANK	0000[0x5]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00f2       |    |		.CONST	0x00f2								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0008       |    |		.CONST	0x0008								; Number of locals
00d3			INIT_00d0:
00d3 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x6 = .DEBUG	0x00d3,0x01ea,0x0004,0x0000,0x0040,0xb516,0x0000,0x0076
													; Debug Table 0x6.0x0 = 0xd3,0xffff
00d4 01dd       |    |		Execute	Vector,First
00d5 e5fd       |    |		Load	0x2,-0x3
00d6 01dd       |    |		Execute	Vector,First
00d7 e5fe       |    |		Load	0x2,-0x2
00d8 0273       | s  |		Execute	Discrete,Plus
00d9 0aff       |    |		Execute_Immediate	Plus,-0x1
00da 0248       | H  |		Execute	Discrete,Check_In_Integer
00db 00e3       |    |		Load_Encached	Natural_Cache
00dc 03f8       |    |		Declare_Type	Discrete,Constrained
00dd 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x6.0x1 = 0xdd,0xfffe
00de 0266       | f  |		Execute	Discrete,Bounds
00df e002       |    |		Load	0x0,0x2
00e0 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00e1 035b       | [  |		Declare_Type	Array,Constrained
00e2 e003       |    |		Load	0x0,0x3								; Debug Table 0x6.0x2 = 0xe2,0xfffd
00e3 1951       | Q  |		Execute	Package,Field_Reference,Field_Number 0x51
00e4 00c6       |    |		Action	Check_Subprogram_Elaborated
00e5 00d8       |    |		Load_Top	At_Offset_0
00e6 6055       |`U  |		Indirect_Literal	Discrete,0x13c,{0x00000000, 0x0040b516}
00e7 484e       |HN  |		Short_Literal	0x4e
00e8 4807       |H   |		Short_Literal	0x7
00e9 0007       |    |		Action	Break_Optional
00ea e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x6.0x3 = 0xea,0xfffc
00eb e604       |    |		Load	0x3,0x4
00ec 4805       |H   |		Short_Literal	0x5
00ed 4803       |H   |		Short_Literal	0x3
00ee 0099       |    |		Action	Reference_Dynamic
00ef e003       |    |		Load	0x0,0x3
00f0 1851       | Q  |		Execute	Package,Field_Execute,Field_Number 0x51
00f1 0007       |    |		Action	Break_Optional							; Debug Table 0x6.0x4 = 0xf1,0xfffb
00f2			BODY_00d0:
00f2 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x6.0x5 = 0xf2,0x1
00f3 012c       | ,  |		Execute	Any,Size
00f4 6043       |`C  |		Indirect_Literal	Discrete,0x138,{0x00000000, 0x00002000}
00f5 027a       | z  |		Execute	Discrete,Less_Equal
00f6 7002       |p   |		Jump_Nonzero	0xf9
00f7 4887       |H   |		Short_Literal	0x87
00f8 0257       | W  |		Execute	Discrete,Raise
00f9 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x6.0x6 = 0xf9,0x2
00fa e602       |    |		Load	0x3,0x2
00fb 0266       | f  |		Execute	Discrete,Bounds
00fc e5fd       |    |		Load	0x2,-0x3
00fd 01ce       |    |		Execute	Vector,Slice_Write
00fe 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00ff 0000       |    |		.XXX[0x1]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 012b       | +  |		.CONST	0x012b								; Address of begin
0101 0004       |    |		.CONST	0x0004								; Address of exception handler
0102 0009       |    |		.CONST	0x0009								; Number of locals
0103			INIT_0100:
0103 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x7 = .DEBUG	0x0103,0x01fa,0x0004,0x0000,0x0040,0xb516,0x0000,0x00ef
													; Debug Table 0x7.0x0 = 0x103,0xffff
0104 01dd       |    |		Execute	Vector,First
0105 e5fe       |    |		Load	0x2,-0x2
0106 01dd       |    |		Execute	Vector,First
0107 e5fd       |    |		Load	0x2,-0x3
0108 0273       | s  |		Execute	Discrete,Plus
0109 0aff       |    |		Execute_Immediate	Plus,-0x1
010a 0248       | H  |		Execute	Discrete,Check_In_Integer
010b 00e3       |    |		Load_Encached	Natural_Cache
010c 03f8       |    |		Declare_Type	Discrete,Constrained
010d 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x7.0x1 = 0x10d,0xfffe
010e 0266       | f  |		Execute	Discrete,Bounds
010f e002       |    |		Load	0x0,0x2
0110 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0111 035b       | [  |		Declare_Type	Array,Constrained
0112 e003       |    |		Load	0x0,0x3								; Debug Table 0x7.0x2 = 0x112,0xfffd
0113 1951       | Q  |		Execute	Package,Field_Reference,Field_Number 0x51
0114 00c6       |    |		Action	Check_Subprogram_Elaborated
0115 00d8       |    |		Load_Top	At_Offset_0
0116 6025       |`%  |		Indirect_Literal	Discrete,0x13c,{0x00000000, 0x0040b516}
0117 48c0       |H   |		Short_Literal	0xc0
0118 4807       |H   |		Short_Literal	0x7
0119 0007       |    |		Action	Break_Optional
011a e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x7.0x3 = 0x11a,0xfffc
011b e604       |    |		Load	0x3,0x4
011c 4805       |H   |		Short_Literal	0x5
011d 4803       |H   |		Short_Literal	0x3
011e 0099       |    |		Action	Reference_Dynamic
011f e003       |    |		Load	0x0,0x3
0120 1851       | Q  |		Execute	Package,Field_Execute,Field_Number 0x51
0121 00d8       |    |		Load_Top	At_Offset_0
0122 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0123 0007       |    |		Action	Break_Optional							; Debug Table 0x7.0x4 = 0x123,0xfffb
0124 e602       |    |		Load	0x3,0x2								; Debug Table 0x7.0x5 = 0x124,0xfffa
0125 0266       | f  |		Execute	Discrete,Bounds
0126 e004       |    |		Load	0x0,0x4
0127 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0128 035b       | [  |		Declare_Type	Array,Constrained
0129 e5fe       |    |		Load	0x2,-0x2
012a 01cd       |    |		Execute	Vector,Slice_Reference
012b			BODY_0100:
012b 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x7.0x6 = 0x12b,0x1
012c 012c       | ,  |		Execute	Any,Size
012d 600a       |`   |		Indirect_Literal	Discrete,0x138,{0x00000000, 0x00002000}
012e 027a       | z  |		Execute	Discrete,Less_Equal
012f 7002       |p   |		Jump_Nonzero	0x132
0130 4887       |H   |		Short_Literal	0x87
0131 0257       | W  |		Execute	Discrete,Raise
0132 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x7.0x7 = 0x132,0x2
0133 00da       |    |		Load_Top	At_Offset_2
0134 01d4       |    |		Execute	Vector,Structure_Write
0135 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0136 0000 0000  |    |		.XXX[0x2]
0138 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002000}
013c 0000 0000  |    |		.LITERAL	{0x00000000, 0x0040b516}
0140 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000400}
0144 0000 0000  |    |		.BLANK	0000[0x4]
0148 ; --------------------------------------------------------------------------------------
0148 ; Debug Table
0148 ; --------------------------------------------------------------------------------------
0148 0003 0008  |    |		.CONST	0x0003,0x0008
014a 000b 018a  |    |		.DEBUG	0x000b,0x018a,0x8000,0x0000,0x0040,0xb506,0x0000,0x000f
0152 0014 0194  |    |		.DEBUG	0x0014,0x0194,0x8000,0x0000,0x0040,0xb516,0x0000,0x000b
015a 0023 019e  | #  |		.DEBUG	0x0023,0x019e,0x0001,0x0000,0x0040,0xb506,0x0000,0x0010
0162 003b 01a8  | ;  |		.DEBUG	0x003b,0x01a8,0x0001,0x0000,0x0040,0xb506,0x0000,0x0020
016a 0053 01b2  | S  |		.DEBUG	0x0053,0x01b2,0x0001,0x0000,0x0040,0xb506,0x0000,0x0030
0172 0093 01ce  |    |		.DEBUG	0x0093,0x01ce,0x0001,0x0000,0x0040,0xb506,0x0000,0x0040
017a 00d3 01ea  |    |		.DEBUG	0x00d3,0x01ea,0x0004,0x0000,0x0040,0xb516,0x0000,0x0076
0182 0103 01fa  |    |		.DEBUG	0x0103,0x01fa,0x0004,0x0000,0x0040,0xb516,0x0000,0x00ef
018a ; --------------------------------------------------------------------------------------
018a ; Debug3 Subtable 0x0
018a ; --------------------------------------------------------------------------------------
018a 0004 0000  |    |		.DBG3TAB	0x0004,0x0000
018c 000b ffff  |    |		.CONST	0x000b,0xffff
018e 000d fffe  |    |		.CONST	0x000d,0xfffe
0190 000f fffd  |    |		.CONST	0x000f,0xfffd
0192 0011 fffc  |    |		.CONST	0x0011,0xfffc
0194 ; --------------------------------------------------------------------------------------
0194 ; Debug3 Subtable 0x1
0194 ; --------------------------------------------------------------------------------------
0194 0004 0000  |    |		.DBG3TAB	0x0004,0x0000
0196 0014 ffff  |    |		.CONST	0x0014,0xffff
0198 0016 fffe  |    |		.CONST	0x0016,0xfffe
019a 0018 fffd  |    |		.CONST	0x0018,0xfffd
019c 001a fffc  |    |		.CONST	0x001a,0xfffc
019e ; --------------------------------------------------------------------------------------
019e ; Debug3 Subtable 0x2
019e ; --------------------------------------------------------------------------------------
019e 0000 0004  |    |		.DBG3TAB	0x0000,0x0004
01a0 0025 0001  | %  |		.CONST	0x0025,0x0001
01a2 002c 0002  | ,  |		.CONST	0x002c,0x0002
01a4 0032 0003  | 2  |		.CONST	0x0032,0x0003
01a6 0035 0004  | 5  |		.CONST	0x0035,0x0004
01a8 ; --------------------------------------------------------------------------------------
01a8 ; Debug3 Subtable 0x3
01a8 ; --------------------------------------------------------------------------------------
01a8 0000 0004  |    |		.DBG3TAB	0x0000,0x0004
01aa 003d 0001  | =  |		.CONST	0x003d,0x0001
01ac 0044 0002  | D  |		.CONST	0x0044,0x0002
01ae 004a 0003  | J  |		.CONST	0x004a,0x0003
01b0 004d 0004  | M  |		.CONST	0x004d,0x0004
01b2 ; --------------------------------------------------------------------------------------
01b2 ; Debug3 Subtable 0x4
01b2 ; --------------------------------------------------------------------------------------
01b2 0004 0009  |    |		.DBG3TAB	0x0004,0x0009
01b4 0053 ffff  | S  |		.CONST	0x0053,0xffff
01b6 0056 fffe  | V  |		.CONST	0x0056,0xfffe
01b8 005a fffd  | Z  |		.CONST	0x005a,0xfffd
01ba 005c fffc  | \  |		.CONST	0x005c,0xfffc
01bc 005e 0001  | ^  |		.CONST	0x005e,0x0001
01be 005f 0002  | _  |		.CONST	0x005f,0x0002
01c0 0065 0003  | e  |		.CONST	0x0065,0x0003
01c2 006a 0004  | j  |		.CONST	0x006a,0x0004
01c4 006c 0005  | l  |		.CONST	0x006c,0x0005
01c6 007e 0006  | ~  |		.CONST	0x007e,0x0006
01c8 0082 0007  |    |		.CONST	0x0082,0x0007
01ca 0086 0008  |    |		.CONST	0x0086,0x0008
01cc 0089 0009  |    |		.CONST	0x0089,0x0009
01ce ; --------------------------------------------------------------------------------------
01ce ; Debug3 Subtable 0x5
01ce ; --------------------------------------------------------------------------------------
01ce 0004 0009  |    |		.DBG3TAB	0x0004,0x0009
01d0 0093 ffff  |    |		.CONST	0x0093,0xffff
01d2 0096 fffe  |    |		.CONST	0x0096,0xfffe
01d4 009a fffd  |    |		.CONST	0x009a,0xfffd
01d6 009c fffc  |    |		.CONST	0x009c,0xfffc
01d8 009e 0001  |    |		.CONST	0x009e,0x0001
01da 009f 0002  |    |		.CONST	0x009f,0x0002
01dc 00a5 0003  |    |		.CONST	0x00a5,0x0003
01de 00aa 0004  |    |		.CONST	0x00aa,0x0004
01e0 00ac 0005  |    |		.CONST	0x00ac,0x0005
01e2 00b9 0006  |    |		.CONST	0x00b9,0x0006
01e4 00bd 0007  |    |		.CONST	0x00bd,0x0007
01e6 00c1 0008  |    |		.CONST	0x00c1,0x0008
01e8 00c4 0009  |    |		.CONST	0x00c4,0x0009
01ea ; --------------------------------------------------------------------------------------
01ea ; Debug3 Subtable 0x6
01ea ; --------------------------------------------------------------------------------------
01ea 0005 0002  |    |		.DBG3TAB	0x0005,0x0002
01ec 00d3 ffff  |    |		.CONST	0x00d3,0xffff
01ee 00dd fffe  |    |		.CONST	0x00dd,0xfffe
01f0 00e2 fffd  |    |		.CONST	0x00e2,0xfffd
01f2 00ea fffc  |    |		.CONST	0x00ea,0xfffc
01f4 00f1 fffb  |    |		.CONST	0x00f1,0xfffb
01f6 00f2 0001  |    |		.CONST	0x00f2,0x0001
01f8 00f9 0002  |    |		.CONST	0x00f9,0x0002
01fa ; --------------------------------------------------------------------------------------
01fa ; Debug3 Subtable 0x7
01fa ; --------------------------------------------------------------------------------------
01fa 0006 0002  |    |		.DBG3TAB	0x0006,0x0002
01fc 0103 ffff  |    |		.CONST	0x0103,0xffff
01fe 010d fffe  |    |		.CONST	0x010d,0xfffe
0200 0112 fffd  |    |		.CONST	0x0112,0xfffd
0202 011a fffc  |    |		.CONST	0x011a,0xfffc
0204 0123 fffb  | #  |		.CONST	0x0123,0xfffb
0206 0124 fffa  | $  |		.CONST	0x0124,0xfffa
0208 012b 0001  | +  |		.CONST	0x012b,0x0001
020a 0132 0002  | 2  |		.CONST	0x0132,0x0002
020c 0000 0000  |    |		.BLANK	0000[0x1f4]