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

⟦3561af456⟧ SEG

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

Derivation

└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
    └─ ⟦this⟧ »1165320.SEG« 
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
    └─ ⟦this⟧ »1165320.SEG« 
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
    └─ ⟦this⟧ »1165320.SEG« 
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
    └─ ⟦this⟧ »1165320.SEG« 
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
    └─ ⟦this⟧ »1165320.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 0190       |    |		.CONST	0x0190								; 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 002c       | ,  |		.CONST	0x002c								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0012       |    |		.CONST	0x0012								; Number of locals
000b			INIT_0008:
000b 029a 0033  |   3|		Declare_Subprogram	INIT_0030,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0 = .DEBUG	0x000b,0x020a,0x8000,0x0000,0x000f,0xfb34,0x0000,0x0009
													; Debug Table 0x0.0x0 = 0xb,0xffff
													; Debug Table 0x0.0x1 = 0xb,0xfffe
													; Debug Table 0x0.0x2 = 0xb,0xfffd
000d 029a 0043  |   C|		Declare_Subprogram	INIT_0040,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x3 = 0xd,0xfffc
000f 029a 0053  |   S|		Declare_Subprogram	INIT_0050,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x4 = 0xf,0xfffb
0011 029a 0063  |   c|		Declare_Subprogram	INIT_0060,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x5 = 0x11,0xfffa
0013 029a 0073  |   s|		Declare_Subprogram	INIT_0070,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x6 = 0x13,0xfff9
0015 00bf       |    |		Action	Accept_Activation
0016 4800       |H   |		Short_Literal	0x0							; Debug Table 0x1 = .DEBUG	0x0016,0x021a,0x8000,0x0000,0x0030,0x6304,0x0000,0x0015
													; Debug Table 0x1.0x0 = 0x16,0xffff
0017 6064       |`d  |		Indirect_Literal	Discrete,0x7c,{0x0011c808, 0x00000830}		; 0x11c808 = BACKUP_LOCK
0018 02a0       |    |		Declare_Subprogram	Null_Subprogram
0019 037d       | }  |		Declare_Type	Task,Defined
001a 036f       | o  |		Declare_Variable	Task
001b e001       |    |		Load	0x0,0x1								; Debug Table 0x1.0x1 = 0x1b,0xfffe
001c e002       |    |		Load	0x0,0x2
001d e003       |    |		Load	0x0,0x3
001e e004       |    |		Load	0x0,0x4
001f 4804       |H   |		Short_Literal	0x4
0020 00dd       |    |		Load_Top	At_Offset_5
0021 020e       |    |		Execute	Module,Augment_Imports
0022 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd				; Debug Table 0x1.0x2 = 0x22,0xfffd
0023 00c7       |    |		Action	Elaborate_Subprogram
0024 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe				; Debug Table 0x1.0x3 = 0x24,0xfffc
0025 00c7       |    |		Action	Elaborate_Subprogram
0026 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf				; Debug Table 0x1.0x4 = 0x26,0xfffb
0027 00c7       |    |		Action	Elaborate_Subprogram
0028 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10				; Debug Table 0x1.0x5 = 0x28,0xfffa
0029 00c7       |    |		Action	Elaborate_Subprogram
002a 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11				; Debug Table 0x1.0x6 = 0x2a,0xfff9
002b 00c7       |    |		Action	Elaborate_Subprogram
002c			BODY_0008:
002c 00be       |    |		Action	Activate_Tasks
002d 00bc       |    |		Action	Signal_Activated
002e 00bb       |    |		Action	Signal_Completion
002f 0000       |    |		.XXX[0x1]
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 0033       | 3  |		.CONST	0x0033								; Address of begin
0031 0004       |    |		.CONST	0x0004								; Address of exception handler
0032 0001       |    |		.CONST	0x0001								; Number of locals
0033			BODY_0030:
0033			INIT_0030:
0033 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x2 = .DEBUG	0x0033,0x022a,0x0001,0x0000,0x000f,0xfb34,0x0000,0x0017
													; Debug Table 0x2.0x0 = 0x33,0x1
0034 e002       |    |		Load	0x0,0x2
0035 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0036 4802       |H   |		Short_Literal	0x2
0037 e212       |    |		Load	0x1,0x12
0038 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
0039 005b       | [  |		Store_Top	Discrete,At_Offset_3
003a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
003b 0000 0000  |    |		.BLANK	0000[0x5]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0043       | C  |		.CONST	0x0043								; Address of begin
0041 0004       |    |		.CONST	0x0004								; Address of exception handler
0042 0001       |    |		.CONST	0x0001								; Number of locals
0043			BODY_0040:
0043			INIT_0040:
0043 e002       |    |		Load	0x0,0x2								; Debug Table 0x3 = .DEBUG	0x0043,0x022e,0x0001,0x0000,0x000f,0xfb34,0x0000,0x001f
													; Debug Table 0x3.0x0 = 0x43,0x1
0044 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0045 4801       |H   |		Short_Literal	0x1
0046 e212       |    |		Load	0x1,0x12
0047 170e       |    |		Execute	Task,Entry_Call,Field_Number 0xe
0048 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0049 0000 0000  |    |		.BLANK	0000[0x7]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0055       | U  |		.CONST	0x0055								; Address of begin
0051 0004       |    |		.CONST	0x0004								; Address of exception handler
0052 0002       |    |		.CONST	0x0002								; Number of locals
0053			INIT_0050:
0053 e002       |    |		Load	0x0,0x2								; Debug Table 0x4 = .DEBUG	0x0053,0x0232,0x0002,0x0000,0x000f,0xfb34,0x0000,0x0023
													; Debug Table 0x4.0x0 = 0x53,0xffff
0054 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0055			BODY_0050:
0055 e002       |    |		Load	0x0,0x2								; Debug Table 0x4.0x1 = 0x55,0x1
0056 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0057 4801       |H   |		Short_Literal	0x1
0058 e212       |    |		Load	0x1,0x12
0059 170f       |    |		Execute	Task,Entry_Call,Field_Number 0xf
005a 0059       | Y  |		Store_Top	Discrete,At_Offset_1
005b 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x4.0x2 = 0x5b,0x2
005c 00ca       |    |		Action	Exit_Nullary_Function
005d 0000 0000  |    |		.XXX[0x3]
005f 0000       |    |
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0063       | c  |		.CONST	0x0063								; Address of begin
0061 0004       |    |		.CONST	0x0004								; Address of exception handler
0062 0001       |    |		.CONST	0x0001								; Number of locals
0063			BODY_0060:
0063			INIT_0060:
0063 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x5 = .DEBUG	0x0063,0x023a,0x0001,0x0000,0x000f,0xfb34,0x0000,0x002a
													; Debug Table 0x5.0x0 = 0x63,0x1
0064 00db       |    |		Load_Top	At_Offset_3
0065 e002       |    |		Load	0x0,0x2
0066 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0067 4803       |H   |		Short_Literal	0x3
0068 e212       |    |		Load	0x1,0x12
0069 1710       |    |		Execute	Task,Entry_Call,Field_Number 0x10
006a 005c       | \  |		Store_Top	Discrete,At_Offset_4
006b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
006c 0000 0000  |    |		.BLANK	0000[0x4]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073       | s  |		.CONST	0x0073								; Address of begin
0071 0004       |    |		.CONST	0x0004								; Address of exception handler
0072 0001       |    |		.CONST	0x0001								; Number of locals
0073			BODY_0070:
0073			INIT_0070:
0073 e002       |    |		Load	0x0,0x2								; Debug Table 0x6 = .DEBUG	0x0073,0x023e,0x0001,0x0000,0x000f,0xfb34,0x0000,0x0038
													; Debug Table 0x6.0x0 = 0x73,0x1
0074 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0075 4801       |H   |		Short_Literal	0x1
0076 e212       |    |		Load	0x1,0x12
0077 1711       |    |		Execute	Task,Entry_Call,Field_Number 0x11
0078 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0079 0000 0000  |    |		.XXX[0x3]
007b 0000       |    |
007c 0011 c808  |    |		.LITERAL	{0x0011c808, 0x00000830}
0080 009e 0004  |    |		.XXX[0x3]
0082 0016       |    |
0083 4802       |H   |		Short_Literal	0x2							; Debug Table 0x7 = .DEBUG	0x0083,0x0242,0x0000,0x0000,0x0030,0x6304,0x0000,0x001a
0084 02cb       |    |		Declare_Variable	Entry
0085 4801       |H   |		Short_Literal	0x1
0086 02cb       |    |		Declare_Variable	Entry
0087 4801       |H   |		Short_Literal	0x1
0088 02cb       |    |		Declare_Variable	Entry
0089 4803       |H   |		Short_Literal	0x3
008a 02cb       |    |		Declare_Variable	Entry
008b 4801       |H   |		Short_Literal	0x1
008c 02cb       |    |		Declare_Variable	Entry
008d 00bf       |    |		Action	Accept_Activation
008e e001       |    |		Load	0x0,0x1								; Debug Table 0x8 = .DEBUG	0x008e,0x0244,0x0000,0x0000,0x0030,0x6304,0x0000,0x0052
													; Debug Table 0x8.0x0 = 0x8e,0xffff
008f 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0090 e002       |    |		Load	0x0,0x2								; Debug Table 0x8.0x1 = 0x90,0xfffe
0091 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0092 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0093 e002       |    |		Load	0x0,0x2								; Debug Table 0x8.0x2 = 0x93,0xfffd
0094 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0095 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0096 e001       |    |		Load	0x0,0x1								; Debug Table 0x8.0x3 = 0x96,0xfffc
0097 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
0098 0337       | 7  |		Declare_Variable	Array
0099 00d8       |    |		Load_Top	At_Offset_0
009a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
009b 029f 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Call
009d 00bc       |    |		Action	Signal_Activated
009e 00cf       |    |		Action	Mark_Auxiliary
009f 8216       |    |		Call	0x1,0x16							; Debug Table 0x8.0x4 = 0x9f,0x1
													; Debug Table 0x8.0x5 = 0x9f,0x2
00a0 00c9       |    |		Action	Pop_Auxiliary_Loop
00a1 7ffd       |    |		Jump	0x9f
00a2 0000 0000  |    |		.BLANK	0000[0x6]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ba       |    |		.CONST	0x00ba								; Address of begin
00a9 00c0       |    |		.CONST	0x00c0								; Address of exception handler
00aa 0002       |    |		.CONST	0x0002								; Number of locals
00ab			INIT_00a8:
00ab 4811 4819  |H H |		Declare_Variable	Select	0x000, 0x005,				; Debug Table 0x9 = .DEBUG	0x00ab,0x0252,0x0004,0x0000,0x0030,0x6304,0x0000,0x01ef
00ad 4810 481b  |H H |				[0x000]: 0x000 = 0x0000,
00af 480f 4823  |H H#|				[0x00d]: 0x02b = 0x0158,
00b1 480e 4829  |H H)|				[0x00e]: 0x029 = 0x0148,
00b3 480d 482b  |H H+|				[0x00f]: 0x023 = 0x0118,
00b5 4800 4800  |H H |				[0x010]: 0x01b = 0x00d8,
00b7 4800 4805  |H H |				[0x011]: 0x019 = 0x00c8
00b9 02cf       |    |
00ba			BODY_00a8:
00ba 00cf       |    |		Action	Mark_Auxiliary
00bb 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x9.0x0 = 0xbb,0x1
													; Debug Table 0x9.0x1 = 0xbb,0x2
00bc 013f       | ?  |		Execute	Select,Rendezvous
00bd 00d1       |    |		Pop_Control	Pop_Count_1
00be 00c9       |    |		Action	Pop_Auxiliary_Loop
00bf 7ffb       |    |		Jump	0xbb
00c0			TRAP_00a8:
00c0 0007       |    |		Action	Break_Optional
00c1 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; Debug Table 0x9.0x2 = 0xc1,0x8
00c2 0000 0000  |    |		.BLANK	0000[0x6]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; See instruction 0x02cf at 0xab, index=0x11
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 e214       |    |		Load	0x1,0x14							; Debug Table 0xa = .DEBUG	0x00cb,0x025a,0x0003,0x0000,0x0030,0x6304,0x0000,0x01e0
													; Debug Table 0xa.0x0 = 0xcb,0x1
00cc 00dc       |    |		Load_Top	At_Offset_4
00cd 027f       |    |		Execute	Discrete,Equal
00ce 6802       |h   |		Jump_Zero	0xd1
00cf 4800       |H   |		Short_Literal	0x0							; Debug Table 0xa.0x1 = 0xcf,0x2
00d0 a214       |    |		Store_Unchecked	0x1,0x14
00d1 e213       |    |		Load	0x1,0x13							; Debug Table 0xa.0x2 = 0xd1,0x3
00d2 00dc       |    |		Load_Top	At_Offset_4
00d3 027f       |    |		Execute	Discrete,Equal
00d4 6802       |h   |		Jump_Zero	0xd7
00d5 4800       |H   |		Short_Literal	0x0							; Debug Table 0xa.0x3 = 0xd5,0x4
00d6 a213       |    |		Store_Unchecked	0x1,0x13
00d7 4100       |A   |		End_Rendezvous	0x0
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; See instruction 0x02cf at 0xab, index=0x10
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 e214       |    |		Load	0x1,0x14							; Debug Table 0xb = .DEBUG	0x00db,0x0264,0x0003,0x0000,0x0030,0x6304,0x0000,0x01c0
													; Debug Table 0xb.0x0 = 0xdb,0x1
00dc 6822       |h"  |		Jump_Zero	0xff
00dd e214       |    |		Load	0x1,0x14							; Debug Table 0xb.0x1 = 0xdd,0x2
00de e003       |    |		Load	0x0,0x3
00df 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00e0 6803       |h   |		Jump_Zero	0xe4
00e1 4800       |H   |		Short_Literal	0x0							; Debug Table 0xb.0x2 = 0xe1,0x3
00e2 0056       | V  |		Store_Top_Unchecked	Discrete,At_Offset_6
00e3 4101       |A   |		End_Rendezvous	0x1							; Debug Table 0xb.0x3 = 0xe3,0x4
00e4 e004       |    |		Load	0x0,0x4								; Debug Table 0xb.0x4 = 0xe4,0x5
00e5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00e6 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
00e7 e215       |    |		Load	0x1,0x15
00e8 01d4       |    |		Execute	Vector,Structure_Write
00e9 e212       |    |		Load	0x1,0x12							; Debug Table 0xb.0x5 = 0xe9,0x6
00ea e215       |    |		Load	0x1,0x15
00eb 01d5       |    |		Execute	Vector,Field_Reference
00ec 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00ed 4603       |F   |		Jump_Case	0x4
00ee 780e       |x   |		Jump	0xfd								; case 0x0
00ef 780d       |x   |		Jump	0xfd								; case 0x1
00f0 7801       |x   |		Jump	0xf2								; case 0x2
00f1 7800       |x   |		Jump	0xf2								; case 0x3
00f2 e212       |    |		Load	0x1,0x12							; Debug Table 0xb.0x6 = 0xf2,0x8
00f3 e004       |    |		Load	0x0,0x4
00f4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00f5 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
00f6 e212       |    |		Load	0x1,0x12							; Debug Table 0xb.0x7 = 0xf6,0x9
00f7 e215       |    |		Load	0x1,0x15
00f8 01d5       |    |		Execute	Vector,Field_Reference
00f9 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
00fa e004       |    |		Load	0x0,0x4
00fb 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00fc 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
00fd 4800       |H   |		Short_Literal	0x0							; Debug Table 0xb.0x8 = 0xfd,0xa
00fe a214       |    |		Store_Unchecked	0x1,0x14
00ff e213       |    |		Load	0x1,0x13							; Debug Table 0xb.0x9 = 0xff,0xb
0100 6807       |h   |		Jump_Zero	0x108
0101 e213       |    |		Load	0x1,0x13
0102 e003       |    |		Load	0x0,0x3
0103 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0104 6803       |h   |		Jump_Zero	0x108
0105 4800       |H   |		Short_Literal	0x0							; Debug Table 0xb.0xa = 0x105,0xc
0106 0056       | V  |		Store_Top_Unchecked	Discrete,At_Offset_6
0107 4101       |A   |		End_Rendezvous	0x1							; Debug Table 0xb.0xb = 0x107,0xd
0108 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xb.0xc = 0x108,0xe
0109 a213       |    |		Store_Unchecked	0x1,0x13
010a 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xb.0xd = 0x10a,0xf
010b a214       |    |		Store_Unchecked	0x1,0x14
010c 00dc       |    |		Load_Top	At_Offset_4						; Debug Table 0xb.0xe = 0x10c,0x10
010d a212       |    |		Store_Unchecked	0x1,0x12
010e 4801       |H   |		Short_Literal	0x1							; Debug Table 0xb.0xf = 0x10e,0x11
010f 0056       | V  |		Store_Top_Unchecked	Discrete,At_Offset_6
0110 4101       |A   |		End_Rendezvous	0x1
0111 0000 0000  |    |		.BLANK	0000[0x7]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; See instruction 0x02cf at 0xab, index=0xf
0118 ; --------------------------------------------------------------------------------------
0118 011b       |    |		.CONST	0x011b								; Address of begin
0119 0004       |    |		.CONST	0x0004								; Address of exception handler
011a 0001       |    |		.CONST	0x0001								; Number of locals
011b			BODY_0118:
011b			INIT_0118:
011b e214       |    |		Load	0x1,0x14							; Debug Table 0xc = .DEBUG	0x011b,0x0286,0x0003,0x0000,0x0030,0x6304,0x0000,0x014b
													; Debug Table 0xc.0x0 = 0x11b,0x1
011c 681f       |h   |		Jump_Zero	0x13c
011d e214       |    |		Load	0x1,0x14
011e e003       |    |		Load	0x0,0x3
011f 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0120 701b       |p   |		Jump_Nonzero	0x13c
0121 e004       |    |		Load	0x0,0x4								; Debug Table 0xc.0x1 = 0x121,0x2
0122 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0123 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0124 e215       |    |		Load	0x1,0x15
0125 01d4       |    |		Execute	Vector,Structure_Write
0126 e212       |    |		Load	0x1,0x12							; Debug Table 0xc.0x2 = 0x126,0x3
0127 e215       |    |		Load	0x1,0x15
0128 01d5       |    |		Execute	Vector,Field_Reference
0129 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
012a 4603       |F   |		Jump_Case	0x4
012b 780e       |x   |		Jump	0x13a								; case 0x0
012c 780d       |x   |		Jump	0x13a								; case 0x1
012d 7801       |x   |		Jump	0x12f								; case 0x2
012e 7800       |x   |		Jump	0x12f								; case 0x3
012f e212       |    |		Load	0x1,0x12							; Debug Table 0xc.0x3 = 0x12f,0x5
0130 e004       |    |		Load	0x0,0x4
0131 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0132 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0133 e212       |    |		Load	0x1,0x12							; Debug Table 0xc.0x4 = 0x133,0x6
0134 e215       |    |		Load	0x1,0x15
0135 01d5       |    |		Execute	Vector,Field_Reference
0136 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0137 e004       |    |		Load	0x0,0x4
0138 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0139 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
013a 4800       |H   |		Short_Literal	0x0							; Debug Table 0xc.0x5 = 0x13a,0x7
013b a214       |    |		Store_Unchecked	0x1,0x14
013c e213       |    |		Load	0x1,0x13							; Debug Table 0xc.0x6 = 0x13c,0x8
013d 6806       |h   |		Jump_Zero	0x144
013e e213       |    |		Load	0x1,0x13
013f e003       |    |		Load	0x0,0x3
0140 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0141 7002       |p   |		Jump_Nonzero	0x144
0142 4800       |H   |		Short_Literal	0x0							; Debug Table 0xc.0x7 = 0x142,0x9
0143 a213       |    |		Store_Unchecked	0x1,0x13
0144 e213       |    |		Load	0x1,0x13							; Debug Table 0xc.0x8 = 0x144,0xa
0145 0054       | T  |		Store_Top_Unchecked	Discrete,At_Offset_4
0146 4101       |A   |		End_Rendezvous	0x1
0147 0000       |    |		.XXX[0x1]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; See instruction 0x02cf at 0xab, index=0xe
0148 ; --------------------------------------------------------------------------------------
0148 014b       | K  |		.CONST	0x014b								; Address of begin
0149 0004       |    |		.CONST	0x0004								; Address of exception handler
014a 0001       |    |		.CONST	0x0001								; Number of locals
014b			BODY_0148:
014b			INIT_0148:
014b 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xd = .DEBUG	0x014b,0x029a,0x0003,0x0000,0x0030,0x6304,0x0000,0x00e7
													; Debug Table 0xd.0x0 = 0x14b,0x1
014c e213       |    |		Load	0x1,0x13
014d 027f       |    |		Execute	Discrete,Equal
014e 6802       |h   |		Jump_Zero	0x151
014f 4800       |H   |		Short_Literal	0x0							; Debug Table 0xd.0x1 = 0x14f,0x2
0150 a213       |    |		Store_Unchecked	0x1,0x13
0151 4100       |A   |		End_Rendezvous	0x0
0152 0000 0000  |    |		.BLANK	0000[0x6]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; See instruction 0x02cf at 0xab, index=0xd
0158 ; --------------------------------------------------------------------------------------
0158 015b       | [  |		.CONST	0x015b								; Address of begin
0159 0004       |    |		.CONST	0x0004								; Address of exception handler
015a 0001       |    |		.CONST	0x0001								; Number of locals
015b			BODY_0158:
015b			INIT_0158:
015b e214       |    |		Load	0x1,0x14							; Debug Table 0xe = .DEBUG	0x015b,0x02a0,0x0003,0x0000,0x0030,0x6304,0x0000,0x00d2
													; Debug Table 0xe.0x0 = 0x15b,0x1
015c 681f       |h   |		Jump_Zero	0x17c
015d e214       |    |		Load	0x1,0x14
015e e003       |    |		Load	0x0,0x3
015f 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0160 701b       |p   |		Jump_Nonzero	0x17c
0161 e004       |    |		Load	0x0,0x4								; Debug Table 0xe.0x1 = 0x161,0x2
0162 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0163 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0164 e215       |    |		Load	0x1,0x15
0165 01d4       |    |		Execute	Vector,Structure_Write
0166 e212       |    |		Load	0x1,0x12							; Debug Table 0xe.0x2 = 0x166,0x3
0167 e215       |    |		Load	0x1,0x15
0168 01d5       |    |		Execute	Vector,Field_Reference
0169 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
016a 4603       |F   |		Jump_Case	0x4
016b 780e       |x   |		Jump	0x17a								; case 0x0
016c 780d       |x   |		Jump	0x17a								; case 0x1
016d 7801       |x   |		Jump	0x16f								; case 0x2
016e 7800       |x   |		Jump	0x16f								; case 0x3
016f e212       |    |		Load	0x1,0x12							; Debug Table 0xe.0x3 = 0x16f,0x5
0170 e004       |    |		Load	0x0,0x4
0171 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0172 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0173 e212       |    |		Load	0x1,0x12							; Debug Table 0xe.0x4 = 0x173,0x6
0174 e215       |    |		Load	0x1,0x15
0175 01d5       |    |		Execute	Vector,Field_Reference
0176 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0177 e004       |    |		Load	0x0,0x4
0178 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0179 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
017a 4800       |H   |		Short_Literal	0x0							; Debug Table 0xe.0x5 = 0x17a,0x7
017b a214       |    |		Store_Unchecked	0x1,0x14
017c e213       |    |		Load	0x1,0x13							; Debug Table 0xe.0x6 = 0x17c,0x8
017d 6807       |h   |		Jump_Zero	0x185
017e e213       |    |		Load	0x1,0x13
017f e003       |    |		Load	0x0,0x3
0180 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0181 6803       |h   |		Jump_Zero	0x185
0182 4800       |H   |		Short_Literal	0x0							; Debug Table 0xe.0x7 = 0x182,0x9
0183 0055       | U  |		Store_Top_Unchecked	Discrete,At_Offset_5
0184 4101       |A   |		End_Rendezvous	0x1
0185 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xe.0x8 = 0x185,0xa
0186 a213       |    |		Store_Unchecked	0x1,0x13
0187 4801       |H   |		Short_Literal	0x1							; Debug Table 0xe.0x9 = 0x187,0xb
0188 0055       | U  |		Store_Top_Unchecked	Discrete,At_Offset_5
0189 4101       |A   |		End_Rendezvous	0x1
018a 0000 0000  |    |		.BLANK	0000[0x6]
0190 ; --------------------------------------------------------------------------------------
0190 ; Debug Table
0190 ; --------------------------------------------------------------------------------------
0190 0003 000f  |    |		.CONST	0x0003,0x000f
0192 000b 020a  |    |		.DEBUG	0x000b,0x020a,0x8000,0x0000,0x000f,0xfb34,0x0000,0x0009
019a 0016 021a  |    |		.DEBUG	0x0016,0x021a,0x8000,0x0000,0x0030,0x6304,0x0000,0x0015
01a2 0033 022a  | 3 *|		.DEBUG	0x0033,0x022a,0x0001,0x0000,0x000f,0xfb34,0x0000,0x0017
01aa 0043 022e  | C .|		.DEBUG	0x0043,0x022e,0x0001,0x0000,0x000f,0xfb34,0x0000,0x001f
01b2 0053 0232  | S 2|		.DEBUG	0x0053,0x0232,0x0002,0x0000,0x000f,0xfb34,0x0000,0x0023
01ba 0063 023a  | c :|		.DEBUG	0x0063,0x023a,0x0001,0x0000,0x000f,0xfb34,0x0000,0x002a
01c2 0073 023e  | s >|		.DEBUG	0x0073,0x023e,0x0001,0x0000,0x000f,0xfb34,0x0000,0x0038
01ca 0083 0242  |   B|		.DEBUG	0x0083,0x0242,0x0000,0x0000,0x0030,0x6304,0x0000,0x001a
01d2 008e 0244  |   D|		.DEBUG	0x008e,0x0244,0x0000,0x0000,0x0030,0x6304,0x0000,0x0052
01da 00ab 0252  |   R|		.DEBUG	0x00ab,0x0252,0x0004,0x0000,0x0030,0x6304,0x0000,0x01ef
01e2 00cb 025a  |   Z|		.DEBUG	0x00cb,0x025a,0x0003,0x0000,0x0030,0x6304,0x0000,0x01e0
01ea 00db 0264  |   d|		.DEBUG	0x00db,0x0264,0x0003,0x0000,0x0030,0x6304,0x0000,0x01c0
01f2 011b 0286  |    |		.DEBUG	0x011b,0x0286,0x0003,0x0000,0x0030,0x6304,0x0000,0x014b
01fa 014b 029a  | K  |		.DEBUG	0x014b,0x029a,0x0003,0x0000,0x0030,0x6304,0x0000,0x00e7
0202 015b 02a0  | [  |		.DEBUG	0x015b,0x02a0,0x0003,0x0000,0x0030,0x6304,0x0000,0x00d2
020a ; --------------------------------------------------------------------------------------
020a ; Debug3 Subtable 0x0
020a ; --------------------------------------------------------------------------------------
020a 0007 0000  |    |		.DBG3TAB	0x0007,0x0000
020c 000b ffff  |    |		.CONST	0x000b,0xffff
020e 000b fffe  |    |		.CONST	0x000b,0xfffe
0210 000b fffd  |    |		.CONST	0x000b,0xfffd
0212 000d fffc  |    |		.CONST	0x000d,0xfffc
0214 000f fffb  |    |		.CONST	0x000f,0xfffb
0216 0011 fffa  |    |		.CONST	0x0011,0xfffa
0218 0013 fff9  |    |		.CONST	0x0013,0xfff9
021a ; --------------------------------------------------------------------------------------
021a ; Debug3 Subtable 0x1
021a ; --------------------------------------------------------------------------------------
021a 0007 0000  |    |		.DBG3TAB	0x0007,0x0000
021c 0016 ffff  |    |		.CONST	0x0016,0xffff
021e 001b fffe  |    |		.CONST	0x001b,0xfffe
0220 0022 fffd  | "  |		.CONST	0x0022,0xfffd
0222 0024 fffc  | $  |		.CONST	0x0024,0xfffc
0224 0026 fffb  | &  |		.CONST	0x0026,0xfffb
0226 0028 fffa  | (  |		.CONST	0x0028,0xfffa
0228 002a fff9  | *  |		.CONST	0x002a,0xfff9
022a ; --------------------------------------------------------------------------------------
022a ; Debug3 Subtable 0x2
022a ; --------------------------------------------------------------------------------------
022a 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
022c 0033 0001  | 3  |		.CONST	0x0033,0x0001
022e ; --------------------------------------------------------------------------------------
022e ; Debug3 Subtable 0x3
022e ; --------------------------------------------------------------------------------------
022e 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0230 0043 0001  | C  |		.CONST	0x0043,0x0001
0232 ; --------------------------------------------------------------------------------------
0232 ; Debug3 Subtable 0x4
0232 ; --------------------------------------------------------------------------------------
0232 0001 0002  |    |		.DBG3TAB	0x0001,0x0002
0234 0053 ffff  | S  |		.CONST	0x0053,0xffff
0236 0055 0001  | U  |		.CONST	0x0055,0x0001
0238 005b 0002  | [  |		.CONST	0x005b,0x0002
023a ; --------------------------------------------------------------------------------------
023a ; Debug3 Subtable 0x5
023a ; --------------------------------------------------------------------------------------
023a 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
023c 0063 0001  | c  |		.CONST	0x0063,0x0001
023e ; --------------------------------------------------------------------------------------
023e ; Debug3 Subtable 0x6
023e ; --------------------------------------------------------------------------------------
023e 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0240 0073 0001  | s  |		.CONST	0x0073,0x0001
0242 ; --------------------------------------------------------------------------------------
0242 ; Debug3 Subtable 0x7
0242 ; --------------------------------------------------------------------------------------
0242 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0244 ; --------------------------------------------------------------------------------------
0244 ; Debug3 Subtable 0x8
0244 ; --------------------------------------------------------------------------------------
0244 0004 0002  |    |		.DBG3TAB	0x0004,0x0002
0246 008e ffff  |    |		.CONST	0x008e,0xffff
0248 0090 fffe  |    |		.CONST	0x0090,0xfffe
024a 0093 fffd  |    |		.CONST	0x0093,0xfffd
024c 0096 fffc  |    |		.CONST	0x0096,0xfffc
024e 009f 0001  |    |		.CONST	0x009f,0x0001
0250 009f 0002  |    |		.CONST	0x009f,0x0002
0252 ; --------------------------------------------------------------------------------------
0252 ; Debug3 Subtable 0x9
0252 ; --------------------------------------------------------------------------------------
0252 0000 0003  |    |		.DBG3TAB	0x0000,0x0003
0254 00bb 0001  |    |		.CONST	0x00bb,0x0001
0256 00bb 0002  |    |		.CONST	0x00bb,0x0002
0258 00c1 0008  |    |		.CONST	0x00c1,0x0008
025a ; --------------------------------------------------------------------------------------
025a ; Debug3 Subtable 0xa
025a ; --------------------------------------------------------------------------------------
025a 0000 0004  |    |		.DBG3TAB	0x0000,0x0004
025c 00cb 0001  |    |		.CONST	0x00cb,0x0001
025e 00cf 0002  |    |		.CONST	0x00cf,0x0002
0260 00d1 0003  |    |		.CONST	0x00d1,0x0003
0262 00d5 0004  |    |		.CONST	0x00d5,0x0004
0264 ; --------------------------------------------------------------------------------------
0264 ; Debug3 Subtable 0xb
0264 ; --------------------------------------------------------------------------------------
0264 0000 0010  |    |		.DBG3TAB	0x0000,0x0010
0266 00db 0001  |    |		.CONST	0x00db,0x0001
0268 00dd 0002  |    |		.CONST	0x00dd,0x0002
026a 00e1 0003  |    |		.CONST	0x00e1,0x0003
026c 00e3 0004  |    |		.CONST	0x00e3,0x0004
026e 00e4 0005  |    |		.CONST	0x00e4,0x0005
0270 00e9 0006  |    |		.CONST	0x00e9,0x0006
0272 00f2 0008  |    |		.CONST	0x00f2,0x0008
0274 00f6 0009  |    |		.CONST	0x00f6,0x0009
0276 00fd 000a  |    |		.CONST	0x00fd,0x000a
0278 00ff 000b  |    |		.CONST	0x00ff,0x000b
027a 0105 000c  |    |		.CONST	0x0105,0x000c
027c 0107 000d  |    |		.CONST	0x0107,0x000d
027e 0108 000e  |    |		.CONST	0x0108,0x000e
0280 010a 000f  |    |		.CONST	0x010a,0x000f
0282 010c 0010  |    |		.CONST	0x010c,0x0010
0284 010e 0011  |    |		.CONST	0x010e,0x0011
0286 ; --------------------------------------------------------------------------------------
0286 ; Debug3 Subtable 0xc
0286 ; --------------------------------------------------------------------------------------
0286 0000 0009  |    |		.DBG3TAB	0x0000,0x0009
0288 011b 0001  |    |		.CONST	0x011b,0x0001
028a 0121 0002  | !  |		.CONST	0x0121,0x0002
028c 0126 0003  | &  |		.CONST	0x0126,0x0003
028e 012f 0005  | /  |		.CONST	0x012f,0x0005
0290 0133 0006  | 3  |		.CONST	0x0133,0x0006
0292 013a 0007  | :  |		.CONST	0x013a,0x0007
0294 013c 0008  | <  |		.CONST	0x013c,0x0008
0296 0142 0009  | B  |		.CONST	0x0142,0x0009
0298 0144 000a  | D  |		.CONST	0x0144,0x000a
029a ; --------------------------------------------------------------------------------------
029a ; Debug3 Subtable 0xd
029a ; --------------------------------------------------------------------------------------
029a 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
029c 014b 0001  | K  |		.CONST	0x014b,0x0001
029e 014f 0002  | O  |		.CONST	0x014f,0x0002
02a0 ; --------------------------------------------------------------------------------------
02a0 ; Debug3 Subtable 0xe
02a0 ; --------------------------------------------------------------------------------------
02a0 0000 000a  |    |		.DBG3TAB	0x0000,0x000a
02a2 015b 0001  | [  |		.CONST	0x015b,0x0001
02a4 0161 0002  | a  |		.CONST	0x0161,0x0002
02a6 0166 0003  | f  |		.CONST	0x0166,0x0003
02a8 016f 0005  | o  |		.CONST	0x016f,0x0005
02aa 0173 0006  | s  |		.CONST	0x0173,0x0006
02ac 017a 0007  | z  |		.CONST	0x017a,0x0007
02ae 017c 0008  | |  |		.CONST	0x017c,0x0008
02b0 0182 0009  |    |		.CONST	0x0182,0x0009
02b2 0185 000a  |    |		.CONST	0x0185,0x000a
02b4 0187 000b  |    |		.CONST	0x0187,0x000b
02b6 0000 0000  |    |		.BLANK	0000[0x14a]