DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 DFS Tapes

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 DFS Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦3a80b10dc⟧ SEG

    Length: 2048 (0x800)
    Types: SEG
    Notes: 5811_R1K_CODE
    Names: »979987.SEG«

Derivation

└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
    └─ ⟦this⟧ »979987.SEG« 
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
    └─ ⟦this⟧ »979987.SEG« 
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
    └─ ⟦this⟧ »979987.SEG« 
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
    └─ ⟦this⟧ »979987.SEG« 
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
    └─ ⟦this⟧ »979987.SEG« 

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5811       |X   |		.CONST	0x5811								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0178       | x  |		.CONST	0x0178								; 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 0101       |    |		.CONST	0x0101								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 004b       | K  |		.CONST	0x004b								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0018       |    |		.CONST	0x0018								; Number of locals
000b			INIT_0008:
000b 0007       |    |		Action	Break_Optional							; Debug Table 0x0 = .DEBUG	0x000b,0x01da,0x8000,0x0000,0x0037,0x0c24,0x0000,0x0007
													; Debug Table 0x0.0x0 = 0xb,0xffff
000c 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x1 = 0xc,0xfffe
000d 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x2 = 0xd,0xfffd
000e 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0x3 = 0xe,0xfffc
000f 6160       |a`  |		Indirect_Literal	Discrete,0x170,{0x00000000, 0x0000ffff}
0010 00e3       |    |		Load_Encached	Natural_Cache
0011 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0012 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x0.0x4 = 0x12,0xfffb
0013 4800       |H   |		Short_Literal	0x0
0014 4801       |H   |		Short_Literal	0x1
0015 4801       |H   |		Short_Literal	0x1
0016 4803       |H   |		Short_Literal	0x3
0017 0319       |    |		Declare_Type	Variant_Record,Incomplete,Visible
0018 029a 0053  |   S|		Declare_Subprogram	INIT_0050,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x5 = 0x18,0xfffa
001a 029a 006b  |   k|		Declare_Subprogram	INIT_0068,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x6 = 0x1a,0xfff9
001c 029a 0073  |   s|		Declare_Subprogram	INIT_0070,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x7 = 0x1c,0xfff8
001e 029a 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x8 = 0x1e,0xfff7
0020 029a 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x9 = 0x20,0xfff6
0022 e001       |    |		Load	0x0,0x1								; Debug Table 0x0.0xa = 0x22,0xfff5
0023 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0024 02a0       |    |		Declare_Subprogram	Null_Subprogram
0025 4801       |H   |		Short_Literal	0x1
0026 032d       | -  |		Declare_Type	Record,Defined
0027 e20d       |    |		Load	0x1,0xd								; Debug Table 0x0.0xb = 0x27,0xfff4
0028 0266       | f  |		Execute	Discrete,Bounds
0029 00da       |    |		Load_Top	At_Offset_2
002a 02a0       |    |		Declare_Subprogram	Null_Subprogram
002b 4801       |H   |		Short_Literal	0x1
002c 0350       | P  |		Declare_Type	Array,Defined,Bounds_With_Object
002d e001       |    |		Load	0x0,0x1								; Debug Table 0x0.0xc = 0x2d,0xfff3
002e 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
002f 4801       |H   |		Short_Literal	0x1
0030 613f       |a?  |		Indirect_Literal	Discrete,0x170,{0x00000000, 0x0000ffff}
0031 00db       |    |		Load_Top	At_Offset_3
0032 034e       | N  |		QQ_Declare_Type	Array,Constrained,Bounds_With_Object
0033 029f 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Call
0035 4800       |H   |		Short_Literal	0x0
0036 4801       |H   |		Short_Literal	0x1
0037 4801       |H   |		Short_Literal	0x1
0038 e20e       |    |		Load	0x1,0xe
0039 0307       |    |		Complete_Type	Variant_Record,By_Defining
003a 00bf       |    |		Action	Accept_Activation
003b 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf				; Debug Table 0x1 = .DEBUG	0x003b,0x01f6,0x8000,0x0000,0x0037,0x0c84,0x0000,0x0007
													; Debug Table 0x1.0x0 = 0x3b,0xffff
003c 00c7       |    |		Action	Elaborate_Subprogram
003d 029d 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Outer_Call			; Debug Table 0x1.0x1 = 0x3d,0xfffe
003f 029d 0103  |    |		Declare_Subprogram	INIT_0100,For_Outer_Call			; Debug Table 0x1.0x2 = 0x3f,0xfffd
0041 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12				; Debug Table 0x1.0x3 = 0x41,0xfffc
0042 00c7       |    |		Action	Elaborate_Subprogram
0043 029d 0123  |   #|		Declare_Subprogram	INIT_0120,For_Outer_Call			; Debug Table 0x1.0x4 = 0x43,0xfffb
0045 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13				; Debug Table 0x1.0x5 = 0x45,0xfffa
0046 00c7       |    |		Action	Elaborate_Subprogram
0047 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10				; Debug Table 0x1.0x6 = 0x47,0xfff9
0048 00c7       |    |		Action	Elaborate_Subprogram
0049 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11				; Debug Table 0x1.0x7 = 0x49,0xfff8
004a 00c7       |    |		Action	Elaborate_Subprogram
004b			BODY_0008:
004b 00bc       |    |		Action	Signal_Activated
004c 00bb       |    |		Action	Signal_Completion
004d 0000 0000  |    |		.XXX[0x3]
004f 0000       |    |
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0053       | S  |		.CONST	0x0053								; Address of begin
0051 0004       |    |		.CONST	0x0004								; Address of exception handler
0052 0001       |    |		.CONST	0x0001								; Number of locals
0053			BODY_0050:
0053			INIT_0050:
0053 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x2 = .DEBUG	0x0053,0x0208,0x0001,0x0000,0x0037,0x0c24,0x0000,0x0035
													; Debug Table 0x2.0x0 = 0x53,0x1
0054 e5fe       |    |		Load	0x2,-0x2
0055 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0056 00cf       |    |		Action	Mark_Auxiliary
0057 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x2.0x1 = 0x57,0x2
0058 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0059 01d9       |    |		Execute	Vector,Reverse_Bounds
005a 0263       | c  |		Execute	Discrete,Above_Bound
005b 7008       |p   |		Jump_Nonzero	0x64
005c 4800       |H   |		Short_Literal	0x0							; Debug Table 0x2.0x2 = 0x5c,0x3
005d 00d9       |    |		Load_Top	At_Offset_1
005e e5fe       |    |		Load	0x2,-0x2
005f 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0060 01d5       |    |		Execute	Vector,Field_Reference
0061 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0062 00c8       |    |		Action	Pop_Auxiliary_Range
0063 3ff8       |?   |		Loop_Increasing	0x5c
0064 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0065 0000 0000  |    |		.XXX[0x3]
0067 0000       |    |
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006d       | m  |		.CONST	0x006d								; Address of begin
0069 0004       |    |		.CONST	0x0004								; Address of exception handler
006a 0002       |    |		.CONST	0x0002								; Number of locals
006b			INIT_0068:
006b 029f 0143  |   C|		Declare_Subprogram	INIT_0140,For_Call				; Debug Table 0x3 = .DEBUG	0x006b,0x0210,0x0001,0x0000,0x0037,0x0c24,0x0000,0x0043
													; Debug Table 0x3.0x0 = 0x6b,0xffff
006d			BODY_0068:
006d 8402       |    |		Call	0x2,0x2								; Debug Table 0x3.0x1 = 0x6d,0x1
006e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
006f 0000       |    |		.XXX[0x1]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0079       | y  |		.CONST	0x0079								; Address of begin
0071 0004       |    |		.CONST	0x0004								; Address of exception handler
0072 0003       |    |		.CONST	0x0003								; Number of locals
0073			INIT_0070:
0073 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x4 = .DEBUG	0x0073,0x0216,0x2801,0x0002,0x0037,0x0c24,0x0000,0x004b
													; Debug Table 0x4.0x0 = 0x73,0xffff
0074 e001       |    |		Load	0x0,0x1								; Debug Table 0x4.0x1 = 0x74,0xfffe
0075 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0076 e001       |    |		Load	0x0,0x1
0077 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0078 03f1       |    |		Declare_Variable	Discrete,With_Value
0079			BODY_0070:
0079 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x4.0x2 = 0x79,0x1
007a 6809       |h   |		Jump_Zero	0x84
007b 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x4.0x3 = 0x7b,0x2
007c 00d9       |    |		Load_Top	At_Offset_1
007d e002       |    |		Load	0x0,0x2
007e 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
007f 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0080 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x4.0x4 = 0x80,0x3
0081 7002       |p   |		Jump_Nonzero	0x84
0082 4887       |H   |		Short_Literal	0x87
0083 0257       | W  |		Execute	Discrete,Raise
0084 e002       |    |		Load	0x0,0x2								; Debug Table 0x4.0x5 = 0x84,0x4
0085 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0086 4801       |H   |		Short_Literal	0x1							; Debug Table 0x4.0x6 = 0x86,0x5
0087 00d9       |    |		Load_Top	At_Offset_1
0088 85fe       |    |		Call	0x2,-0x2
0089 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x4.0x7 = 0x89,0x6
008a e5fd       |    |		Load	0x2,-0x3
008b e002       |    |		Load	0x0,0x2
008c 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
008d e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x4.0x8 = 0x8d,0x7
008e 58dd       |X   |		Indirect_Literal	Float,0x16c,4294967296.0
008f 58d8       |X   |		Indirect_Literal	Float,0x168,3.0517578125e-05
0090 023a       | :  |		Execute	Float,Divide
0091 0236       | 6  |		Execute	Float,Truncate_To_Discrete
0092 027e       | ~  |		Execute	Discrete,Not_Equal
0093 6805       |h   |		Jump_Zero	0x99
0094 4800       |H   |		Short_Literal	0x0							; Debug Table 0x4.0x9 = 0x94,0x8
0095 00d9       |    |		Load_Top	At_Offset_1
0096 85fe       |    |		Call	0x2,-0x2
0097 e002       |    |		Load	0x0,0x2								; Debug Table 0x4.0xa = 0x97,0x9
0098 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0099 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x4.0xb = 0x99,0xa
009a 6803       |h   |		Jump_Zero	0x9e
009b 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x4.0xc = 0x9b,0xb
009c e002       |    |		Load	0x0,0x2
009d 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
009e 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
009f 0000       |    |		.XXX[0x1]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a4       |    |		.CONST	0x00a4								; Address of begin
00a1 0004       |    |		.CONST	0x0004								; Address of exception handler
00a2 0002       |    |		.CONST	0x0002								; Number of locals
00a3			INIT_00a0:
00a3 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x5 = .DEBUG	0x00a3,0x0232,0x0001,0x0000,0x0037,0x0c24,0x0000,0x006e
													; Debug Table 0x5.0x0 = 0xa3,0xffff
00a4			BODY_00a0:
00a4 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x5.0x1 = 0xa4,0x1
00a5 6806       |h   |		Jump_Zero	0xac
00a6 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x5.0x2 = 0xa6,0x2
00a7 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
00a8 e5ff       |    |		Load	0x2,-0x1
00a9 8216       |    |		Call	0x1,0x16
00aa 00d1       |    |		Pop_Control	Pop_Count_1
00ab 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00ac 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x5.0x3 = 0xac,0x3
00ad e5fd       |    |		Load	0x2,-0x3
00ae 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
00af e5ff       |    |		Load	0x2,-0x1
00b0 8217       |    |		Call	0x1,0x17
00b1 00d1       |    |		Pop_Control	Pop_Count_1
00b2 0059       | Y  |		Store_Top	Discrete,At_Offset_1
00b3 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00b4 0000 0000  |    |		.BLANK	0000[0x4]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00be       |    |		.CONST	0x00be								; Address of begin
00b9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ba 0003       |    |		.CONST	0x0003								; Number of locals
00bb			INIT_00b8:
00bb 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x6 = .DEBUG	0x00bb,0x023c,0x0002,0x0000,0x0037,0x0c24,0x0000,0x0080
													; Debug Table 0x6.0x0 = 0xbb,0xffff
00bc e001       |    |		Load	0x0,0x1								; Debug Table 0x6.0x1 = 0xbc,0xfffe
00bd 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00be			BODY_00b8:
00be e001       |    |		Load	0x0,0x1								; Debug Table 0x6.0x2 = 0xbe,0x1
00bf 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00c0 00e1       |    |		Load_Encached	Boolean_Cache
00c1 e5ff       |    |		Load	0x2,-0x1
00c2 8218       |    |		Call	0x1,0x18
00c3 005b       | [  |		Store_Top	Discrete,At_Offset_3
00c4 0059       | Y  |		Store_Top	Discrete,At_Offset_1
00c5 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x6.0x3 = 0xc5,0x2
00c6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00c7 0000       |    |		.XXX[0x1]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb       |    |		.CONST	0x00cb								; Address of begin
00c9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ca 0001       |    |		.CONST	0x0001								; Number of locals
00cb			BODY_00c8:
00cb			INIT_00c8:
00cb 4608       |F   |		Jump_Case	0x9							; Debug Table 0x7 = .DEBUG	0x00cb,0x0246,0x0005,0x0000,0x0037,0x0c24,0x0000,0x009e
00cc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00cd 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
00ce 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
00cf 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
00d0 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
00d1 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
00d2 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
00d3 7801       |x   |		Jump	0xd5								; case 0x7
00d4 7809       |x   |		Jump	0xde								; case 0x8
00d5 00db       |    |		Load_Top	At_Offset_3
00d6 4801       |H   |		Short_Literal	0x1
00d7 e5fe       |    |		Load	0x2,-0x2
00d8 e215       |    |		Load	0x1,0x15
00d9 035b       | [  |		Declare_Type	Array,Constrained
00da 4801       |H   |		Short_Literal	0x1
00db e5ff       |    |		Load	0x2,-0x1
00dc 031b       |    |		Declare_Type	Variant_Record,Constrained
00dd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00de 00db       |    |		Load_Top	At_Offset_3
00df 00db       |    |		Load_Top	At_Offset_3
00e0 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
00e1 4801       |H   |		Short_Literal	0x1
00e2 e5fe       |    |		Load	0x2,-0x2
00e3 e215       |    |		Load	0x1,0x15
00e4 0334       | 4  |		Declare_Variable	Array,With_Constraint
00e5 2d03       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
00e6 016a       | j  |		QQ_execute	Variant_Record,XXX
00e7 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb       |    |		.CONST	0x00eb								; Address of begin
00e9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ea 0001       |    |		.CONST	0x0001								; Number of locals
00eb			BODY_00e8:
00eb			INIT_00e8:
00eb 00cf       |    |		Action	Mark_Auxiliary							; Debug Table 0x8 = .DEBUG	0x00eb,0x0248,0x0001,0x0000,0x0037,0x0c84,0x0000,0x0038
00ec e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x8.0x0 = 0xec,0x1
00ed 01d9       |    |		Execute	Vector,Reverse_Bounds
00ee 0263       | c  |		Execute	Discrete,Above_Bound
00ef 700d       |p   |		Jump_Nonzero	0xfd
00f0 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x8.0x1 = 0xf0,0x2
00f1 e5fe       |    |		Load	0x2,-0x2
00f2 01d5       |    |		Execute	Vector,Field_Reference
00f3 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00f4 7006       |p   |		Jump_Nonzero	0xfb
00f5 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x8.0x2 = 0xf5,0x3
00f6 00d9       |    |		Load_Top	At_Offset_1
00f7 e5fe       |    |		Load	0x2,-0x2
00f8 01d5       |    |		Execute	Vector,Field_Reference
00f9 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00fa 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; Debug Table 0x8.0x3 = 0xfa,0x4
00fb 00c8       |    |		Action	Pop_Auxiliary_Range
00fc 3ff3       |?   |		Loop_Increasing	0xf0
00fd 00ce       |    |		Action	Pop_Auxiliary
00fe 4887       |H   |		Short_Literal	0x87							; Debug Table 0x8.0x4 = 0xfe,0x5
00ff 0257       | W  |		Execute	Discrete,Raise
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103       |    |		.CONST	0x0103								; Address of begin
0101 0004       |    |		.CONST	0x0004								; Address of exception handler
0102 0001       |    |		.CONST	0x0001								; Number of locals
0103			BODY_0100:
0103			INIT_0100:
0103 00cf       |    |		Action	Mark_Auxiliary							; Debug Table 0x9 = .DEBUG	0x0103,0x0254,0x0001,0x0000,0x0037,0x0c84,0x0000,0x006d
0104 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x9.0x0 = 0x104,0x1
0105 01d9       |    |		Execute	Vector,Reverse_Bounds
0106 0263       | c  |		Execute	Discrete,Above_Bound
0107 7011       |p   |		Jump_Nonzero	0x119
0108 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x9.0x1 = 0x108,0x2
0109 e5fe       |    |		Load	0x2,-0x2
010a 01d5       |    |		Execute	Vector,Field_Reference
010b 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
010c e5ff       |    |		Load	0x2,-0x1
010d 027f       |    |		Execute	Discrete,Equal
010e 6808       |h   |		Jump_Zero	0x117
010f 4800       |H   |		Short_Literal	0x0							; Debug Table 0x9.0x2 = 0x10f,0x3
0110 00d9       |    |		Load_Top	At_Offset_1
0111 e5fe       |    |		Load	0x2,-0x2
0112 01d5       |    |		Execute	Vector,Field_Reference
0113 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0114 4801       |H   |		Short_Literal	0x1							; Debug Table 0x9.0x3 = 0x114,0x4
0115 a5fd       |    |		Store_Unchecked	0x2,-0x3
0116 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; Debug Table 0x9.0x4 = 0x116,0x5
0117 00c8       |    |		Action	Pop_Auxiliary_Range
0118 3fef       |?   |		Loop_Increasing	0x108
0119 00ce       |    |		Action	Pop_Auxiliary
011a 4800       |H   |		Short_Literal	0x0							; Debug Table 0x9.0x5 = 0x11a,0x6
011b a5fd       |    |		Store_Unchecked	0x2,-0x3
011c 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
011d 0000 0000  |    |		.XXX[0x3]
011f 0000       |    |
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123       | #  |		.CONST	0x0123								; Address of begin
0121 0004       |    |		.CONST	0x0004								; Address of exception handler
0122 0001       |    |		.CONST	0x0001								; Number of locals
0123			BODY_0120:
0123			INIT_0120:
0123 00cf       |    |		Action	Mark_Auxiliary							; Debug Table 0xa = .DEBUG	0x0123,0x0262,0x0001,0x0000,0x0037,0x0c84,0x0000,0x00d8
0124 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xa.0x0 = 0x124,0x1
0125 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0126 01d9       |    |		Execute	Vector,Reverse_Bounds
0127 0263       | c  |		Execute	Discrete,Above_Bound
0128 7011       |p   |		Jump_Nonzero	0x13a
0129 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xa.0x1 = 0x129,0x2
012a e5ff       |    |		Load	0x2,-0x1
012b 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
012c 01d5       |    |		Execute	Vector,Field_Reference
012d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
012e 6809       |h   |		Jump_Zero	0x138
012f 4801       |H   |		Short_Literal	0x1							; Debug Table 0xa.0x2 = 0x12f,0x3
0130 a5fe       |    |		Store_Unchecked	0x2,-0x2
0131 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xa.0x3 = 0x131,0x4
0132 e5ff       |    |		Load	0x2,-0x1
0133 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0134 01d5       |    |		Execute	Vector,Field_Reference
0135 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0136 a5fd       |    |		Store_Unchecked	0x2,-0x3
0137 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; Debug Table 0xa.0x4 = 0x137,0x5
0138 00c8       |    |		Action	Pop_Auxiliary_Range
0139 3fef       |?   |		Loop_Increasing	0x129
013a 00ce       |    |		Action	Pop_Auxiliary
013b 4800       |H   |		Short_Literal	0x0							; Debug Table 0xa.0x5 = 0x13b,0x6
013c a5fe       |    |		Store_Unchecked	0x2,-0x2
013d 4800       |H   |		Short_Literal	0x0							; Debug Table 0xa.0x6 = 0x13d,0x7
013e a5fd       |    |		Store_Unchecked	0x2,-0x3
013f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0147       | G  |		.CONST	0x0147								; Address of begin
0141 0004       |    |		.CONST	0x0004								; Address of exception handler
0142 0004       |    |		.CONST	0x0004								; Number of locals
0143			INIT_0140:
0143 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0xb = .DEBUG	0x0143,0x0272,0x0001,0x0000,0x0037,0x0c84,0x0000,0x0146
													; Debug Table 0xb.0x0 = 0x143,0xffff
0144 e001       |    |		Load	0x0,0x1								; Debug Table 0xb.0x1 = 0x144,0xfffe
0145 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0146 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0xb.0x2 = 0x146,0xfffd
0147			BODY_0140:
0147 00cf       |    |		Action	Mark_Auxiliary
0148 0007       |    |		Action	Break_Optional							; Debug Table 0xb.0x3 = 0x148,0x1
0149 e001       |    |		Load	0x0,0x1								; Debug Table 0xb.0x4 = 0x149,0x2
014a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
014b 00e1       |    |		Load_Encached	Boolean_Cache
014c e5ff       |    |		Load	0x2,-0x1
014d 8218       |    |		Call	0x1,0x18
014e c602       |    |		Store	0x3,0x2
014f 005b       | [  |		Store_Top	Discrete,At_Offset_3
0150 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xb.0x5 = 0x150,0x3
0151 6812       |h   |		Jump_Zero	0x164
0152 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xb.0x6 = 0x152,0x4
0153 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0154 00db       |    |		Load_Top	At_Offset_3
0155 e002       |    |		Load	0x0,0x2
0156 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0157 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0xb.0x7 = 0x157,0x5
0158 e5ff       |    |		Load	0x2,-0x1
0159 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
015a e603       |    |		Load	0x3,0x3
015b 8217       |    |		Call	0x1,0x17
015c 00d1       |    |		Pop_Control	Pop_Count_1
015d 005a       | Z  |		Store_Top	Discrete,At_Offset_2
015e 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xb.0x8 = 0x15e,0x6
015f 7002       |p   |		Jump_Nonzero	0x162
0160 4887       |H   |		Short_Literal	0x87
0161 0257       | W  |		Execute	Discrete,Raise
0162 00c9       |    |		Action	Pop_Auxiliary_Loop
0163 7fe5       |    |		Jump	0x149
0164 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0165 0000 0000  |    |		.XXX[0x3]
0167 0000       |    |
0168 3f00 0000  |?   |		.DBL	3.0517578125e-05
016a 0000 0000  |    |
016c 41f0 0000  |A   |		.DBL	4294967296.0
016e 0000 0000  |    |
0170 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000ffff}
0174 0000 0000  |    |		.BLANK	0000[0x4]
0178 ; --------------------------------------------------------------------------------------
0178 ; Debug Table
0178 ; --------------------------------------------------------------------------------------
0178 0003 000c  |    |		.CONST	0x0003,0x000c
017a 000b 01da  |    |		.DEBUG	0x000b,0x01da,0x8000,0x0000,0x0037,0x0c24,0x0000,0x0007
0182 003b 01f6  | ;  |		.DEBUG	0x003b,0x01f6,0x8000,0x0000,0x0037,0x0c84,0x0000,0x0007
018a 0053 0208  | S  |		.DEBUG	0x0053,0x0208,0x0001,0x0000,0x0037,0x0c24,0x0000,0x0035
0192 006b 0210  | k  |		.DEBUG	0x006b,0x0210,0x0001,0x0000,0x0037,0x0c24,0x0000,0x0043
019a 0073 0216  | s  |		.DEBUG	0x0073,0x0216,0x2801,0x0002,0x0037,0x0c24,0x0000,0x004b
01a2 00a3 0232  |   2|		.DEBUG	0x00a3,0x0232,0x0001,0x0000,0x0037,0x0c24,0x0000,0x006e
01aa 00bb 023c  |   <|		.DEBUG	0x00bb,0x023c,0x0002,0x0000,0x0037,0x0c24,0x0000,0x0080
01b2 00cb 0246  |   F|		.DEBUG	0x00cb,0x0246,0x0005,0x0000,0x0037,0x0c24,0x0000,0x009e
01ba 00eb 0248  |   H|		.DEBUG	0x00eb,0x0248,0x0001,0x0000,0x0037,0x0c84,0x0000,0x0038
01c2 0103 0254  |   T|		.DEBUG	0x0103,0x0254,0x0001,0x0000,0x0037,0x0c84,0x0000,0x006d
01ca 0123 0262  | # b|		.DEBUG	0x0123,0x0262,0x0001,0x0000,0x0037,0x0c84,0x0000,0x00d8
01d2 0143 0272  | C r|		.DEBUG	0x0143,0x0272,0x0001,0x0000,0x0037,0x0c84,0x0000,0x0146
01da ; --------------------------------------------------------------------------------------
01da ; Debug3 Subtable 0x0
01da ; --------------------------------------------------------------------------------------
01da 000d 0000  |    |		.DBG3TAB	0x000d,0x0000
01dc 000b ffff  |    |		.CONST	0x000b,0xffff
01de 000c fffe  |    |		.CONST	0x000c,0xfffe
01e0 000d fffd  |    |		.CONST	0x000d,0xfffd
01e2 000e fffc  |    |		.CONST	0x000e,0xfffc
01e4 0012 fffb  |    |		.CONST	0x0012,0xfffb
01e6 0018 fffa  |    |		.CONST	0x0018,0xfffa
01e8 001a fff9  |    |		.CONST	0x001a,0xfff9
01ea 001c fff8  |    |		.CONST	0x001c,0xfff8
01ec 001e fff7  |    |		.CONST	0x001e,0xfff7
01ee 0020 fff6  |    |		.CONST	0x0020,0xfff6
01f0 0022 fff5  | "  |		.CONST	0x0022,0xfff5
01f2 0027 fff4  | '  |		.CONST	0x0027,0xfff4
01f4 002d fff3  | -  |		.CONST	0x002d,0xfff3
01f6 ; --------------------------------------------------------------------------------------
01f6 ; Debug3 Subtable 0x1
01f6 ; --------------------------------------------------------------------------------------
01f6 0008 0000  |    |		.DBG3TAB	0x0008,0x0000
01f8 003b ffff  | ;  |		.CONST	0x003b,0xffff
01fa 003d fffe  | =  |		.CONST	0x003d,0xfffe
01fc 003f fffd  | ?  |		.CONST	0x003f,0xfffd
01fe 0041 fffc  | A  |		.CONST	0x0041,0xfffc
0200 0043 fffb  | C  |		.CONST	0x0043,0xfffb
0202 0045 fffa  | E  |		.CONST	0x0045,0xfffa
0204 0047 fff9  | G  |		.CONST	0x0047,0xfff9
0206 0049 fff8  | I  |		.CONST	0x0049,0xfff8
0208 ; --------------------------------------------------------------------------------------
0208 ; Debug3 Subtable 0x2
0208 ; --------------------------------------------------------------------------------------
0208 0000 0003  |    |		.DBG3TAB	0x0000,0x0003
020a 0053 0001  | S  |		.CONST	0x0053,0x0001
020c 0057 0002  | W  |		.CONST	0x0057,0x0002
020e 005c 0003  | \  |		.CONST	0x005c,0x0003
0210 ; --------------------------------------------------------------------------------------
0210 ; Debug3 Subtable 0x3
0210 ; --------------------------------------------------------------------------------------
0210 0001 0001  |    |		.DBG3TAB	0x0001,0x0001
0212 006b ffff  | k  |		.CONST	0x006b,0xffff
0214 006d 0001  | m  |		.CONST	0x006d,0x0001
0216 ; --------------------------------------------------------------------------------------
0216 ; Debug3 Subtable 0x4
0216 ; --------------------------------------------------------------------------------------
0216 0002 000b  |    |		.DBG3TAB	0x0002,0x000b
0218 0073 ffff  | s  |		.CONST	0x0073,0xffff
021a 0074 fffe  | t  |		.CONST	0x0074,0xfffe
021c 0079 0001  | y  |		.CONST	0x0079,0x0001
021e 007b 0002  | {  |		.CONST	0x007b,0x0002
0220 0080 0003  |    |		.CONST	0x0080,0x0003
0222 0084 0004  |    |		.CONST	0x0084,0x0004
0224 0086 0005  |    |		.CONST	0x0086,0x0005
0226 0089 0006  |    |		.CONST	0x0089,0x0006
0228 008d 0007  |    |		.CONST	0x008d,0x0007
022a 0094 0008  |    |		.CONST	0x0094,0x0008
022c 0097 0009  |    |		.CONST	0x0097,0x0009
022e 0099 000a  |    |		.CONST	0x0099,0x000a
0230 009b 000b  |    |		.CONST	0x009b,0x000b
0232 ; --------------------------------------------------------------------------------------
0232 ; Debug3 Subtable 0x5
0232 ; --------------------------------------------------------------------------------------
0232 0001 0003  |    |		.DBG3TAB	0x0001,0x0003
0234 00a3 ffff  |    |		.CONST	0x00a3,0xffff
0236 00a4 0001  |    |		.CONST	0x00a4,0x0001
0238 00a6 0002  |    |		.CONST	0x00a6,0x0002
023a 00ac 0003  |    |		.CONST	0x00ac,0x0003
023c ; --------------------------------------------------------------------------------------
023c ; Debug3 Subtable 0x6
023c ; --------------------------------------------------------------------------------------
023c 0002 0002  |    |		.DBG3TAB	0x0002,0x0002
023e 00bb ffff  |    |		.CONST	0x00bb,0xffff
0240 00bc fffe  |    |		.CONST	0x00bc,0xfffe
0242 00be 0001  |    |		.CONST	0x00be,0x0001
0244 00c5 0002  |    |		.CONST	0x00c5,0x0002
0246 ; --------------------------------------------------------------------------------------
0246 ; Debug3 Subtable 0x7
0246 ; --------------------------------------------------------------------------------------
0246 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0248 ; --------------------------------------------------------------------------------------
0248 ; Debug3 Subtable 0x8
0248 ; --------------------------------------------------------------------------------------
0248 0000 0005  |    |		.DBG3TAB	0x0000,0x0005
024a 00ec 0001  |    |		.CONST	0x00ec,0x0001
024c 00f0 0002  |    |		.CONST	0x00f0,0x0002
024e 00f5 0003  |    |		.CONST	0x00f5,0x0003
0250 00fa 0004  |    |		.CONST	0x00fa,0x0004
0252 00fe 0005  |    |		.CONST	0x00fe,0x0005
0254 ; --------------------------------------------------------------------------------------
0254 ; Debug3 Subtable 0x9
0254 ; --------------------------------------------------------------------------------------
0254 0000 0006  |    |		.DBG3TAB	0x0000,0x0006
0256 0104 0001  |    |		.CONST	0x0104,0x0001
0258 0108 0002  |    |		.CONST	0x0108,0x0002
025a 010f 0003  |    |		.CONST	0x010f,0x0003
025c 0114 0004  |    |		.CONST	0x0114,0x0004
025e 0116 0005  |    |		.CONST	0x0116,0x0005
0260 011a 0006  |    |		.CONST	0x011a,0x0006
0262 ; --------------------------------------------------------------------------------------
0262 ; Debug3 Subtable 0xa
0262 ; --------------------------------------------------------------------------------------
0262 0000 0007  |    |		.DBG3TAB	0x0000,0x0007
0264 0124 0001  | $  |		.CONST	0x0124,0x0001
0266 0129 0002  | )  |		.CONST	0x0129,0x0002
0268 012f 0003  | /  |		.CONST	0x012f,0x0003
026a 0131 0004  | 1  |		.CONST	0x0131,0x0004
026c 0137 0005  | 7  |		.CONST	0x0137,0x0005
026e 013b 0006  | ;  |		.CONST	0x013b,0x0006
0270 013d 0007  | =  |		.CONST	0x013d,0x0007
0272 ; --------------------------------------------------------------------------------------
0272 ; Debug3 Subtable 0xb
0272 ; --------------------------------------------------------------------------------------
0272 0003 0006  |    |		.DBG3TAB	0x0003,0x0006
0274 0143 ffff  | C  |		.CONST	0x0143,0xffff
0276 0144 fffe  | D  |		.CONST	0x0144,0xfffe
0278 0146 fffd  | F  |		.CONST	0x0146,0xfffd
027a 0148 0001  | H  |		.CONST	0x0148,0x0001
027c 0149 0002  | I  |		.CONST	0x0149,0x0002
027e 0150 0003  | P  |		.CONST	0x0150,0x0003
0280 0152 0004  | R  |		.CONST	0x0152,0x0004
0282 0157 0005  | W  |		.CONST	0x0157,0x0005
0284 015e 0006  | ^  |		.CONST	0x015e,0x0006
0286 0000 0000  |    |		.BLANK	0000[0x17a]