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

⟦0b1c0c1fc⟧ SEG

    Length: 2048 (0x800)
    Types: SEG
    Notes: 5805_R1K_CODE
    Names: »11156497.SEG«

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5805       |X   |		.CONST	0x5805								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 01b8       |    |		.CONST	0x01b8								; 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 005a       | Z  |		.CONST	0x005a								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 001a       |    |		.CONST	0x001a								; Number of locals
000b			INIT_0008:
000b 029a 0063  |   c|		Declare_Subprogram	INIT_0060,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0 = .DEBUG	0x000b,0x0242,0x8000,0x0000,0x000e,0x18f4,0x0000,0x0005
													; Debug Table 0x0.0x0 = 0xb,0xffff
000d 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x1 = 0xd,0xfffe
000f 029a 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x2 = 0xf,0xfffd
0011 029a 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x3 = 0x11,0xfffc
0013 029a 00db  |    |		Declare_Subprogram	INIT_00d8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x4 = 0x13,0xfffb
0015 029a 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x5 = 0x15,0xfffa
0017 029a 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x6 = 0x17,0xfff9
0019 029a 010b  |    |		Declare_Subprogram	INIT_0108,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x7 = 0x19,0xfff8
001b 029a 011b  |    |		Declare_Subprogram	INIT_0118,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x8 = 0x1b,0xfff7
001d 00bf       |    |		Action	Accept_Activation
001e 0007       |    |		Action	Break_Optional							; Debug Table 0x1 = .DEBUG	0x001e,0x0256,0x8000,0x0000,0x000e,0x1aa4,0x0000,0x000e
													; Debug Table 0x1.0x0 = 0x1e,0xffff
001f 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x1 = 0x1f,0xfffe
0020 4801       |H   |		Short_Literal	0x1							; Debug Table 0x1.0x2 = 0x20,0xfffd
0021 4802       |H   |		Short_Literal	0x2
0022 00e9       |    |		Load_Encached	String_Cache
0023 0334       | 4  |		Declare_Variable	Array,With_Constraint
0024 4801       |H   |		Short_Literal	0x1
0025 4802       |H   |		Short_Literal	0x2
0026 00e9       |    |		Load_Encached	String_Cache
0027 0334       | 4  |		Declare_Variable	Array,With_Constraint
0028 480d       |H   |		Short_Literal	0xd
0029 4801       |H   |		Short_Literal	0x1
002a e217       |    |		Load	0x1,0x17
002b 01d6       |    |		Execute	Vector,Field_Write
002c 480a       |H   |		Short_Literal	0xa
002d 4802       |H   |		Short_Literal	0x2
002e e217       |    |		Load	0x1,0x17
002f 01d6       |    |		Execute	Vector,Field_Write
0030 e216       |    |		Load	0x1,0x16
0031 01d4       |    |		Execute	Vector,Structure_Write
0032 e001       |    |		Load	0x0,0x1								; Debug Table 0x1.0x3 = 0x32,0xfffc
0033 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0034 0616       |    |		Execute_Immediate	Set_Value_Unchecked,0x16
0035 e001       |    |		Load	0x0,0x1								; Debug Table 0x1.0x4 = 0x35,0xfffb
0036 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0037 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0038 4800       |H   |		Short_Literal	0x0							; Debug Table 0x1.0x5 = 0x38,0xfffa
0039 612e       |a.  |		Indirect_Literal	Discrete,0x168,{0x00aa3c11, 0x00001730}		; 0xaa3c11 = KERNEL_IO
003a 02a0       |    |		Declare_Subprogram	Null_Subprogram
003b 037d       | }  |		Declare_Type	Task,Defined
003c 036f       | o  |		Declare_Variable	Task
003d e002       |    |		Load	0x0,0x2								; Debug Table 0x1.0x6 = 0x3d,0xfff9
003e e003       |    |		Load	0x0,0x3
003f 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0040 e004       |    |		Load	0x0,0x4
0041 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0042 4805       |H   |		Short_Literal	0x5
0043 e219       |    |		Load	0x1,0x19
0044 020e       |    |		Execute	Module,Augment_Imports
0045 0007       |    |		Action	Break_Optional
0046 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd				; Debug Table 0x1.0x7 = 0x46,0xfff8
0047 00c7       |    |		Action	Elaborate_Subprogram
0048 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe				; Debug Table 0x1.0x8 = 0x48,0xfff7
0049 00c7       |    |		Action	Elaborate_Subprogram
004a 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf				; Debug Table 0x1.0x9 = 0x4a,0xfff6
004b 00c7       |    |		Action	Elaborate_Subprogram
004c 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10				; Debug Table 0x1.0xa = 0x4c,0xfff5
004d 00c7       |    |		Action	Elaborate_Subprogram
004e 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11				; Debug Table 0x1.0xb = 0x4e,0xfff4
004f 00c7       |    |		Action	Elaborate_Subprogram
0050 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12				; Debug Table 0x1.0xc = 0x50,0xfff3
0051 00c7       |    |		Action	Elaborate_Subprogram
0052 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13				; Debug Table 0x1.0xd = 0x52,0xfff2
0053 00c7       |    |		Action	Elaborate_Subprogram
0054 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14				; Debug Table 0x1.0xe = 0x54,0xfff1
0055 00c7       |    |		Action	Elaborate_Subprogram
0056 029d 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Outer_Call			; Debug Table 0x1.0xf = 0x56,0xfff0
0058 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15				; Debug Table 0x1.0x10 = 0x58,0xffef
0059 00c7       |    |		Action	Elaborate_Subprogram
005a			BODY_0008:
005a 00be       |    |		Action	Activate_Tasks
005b 00bc       |    |		Action	Signal_Activated
005c 00bb       |    |		Action	Signal_Completion
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 e005       |    |		Load	0x0,0x5								; Debug Table 0x2 = .DEBUG	0x0063,0x027a,0x0001,0x0000,0x000e,0x18f4,0x0000,0x0006
													; Debug Table 0x2.0x0 = 0x63,0x1
0064 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0065 7002       |p   |		Jump_Nonzero	0x68
0066 e5fe       |    |		Load	0x2,-0x2
0067 6822       |h"  |		Jump_Zero	0x8a
0068 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x2.0x1 = 0x68,0x2
0069 01db       |    |		Execute	Vector,Length
006a 7001       |p   |		Jump_Nonzero	0x6c
006b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; Debug Table 0x2.0x2 = 0x6b,0x3
006c e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x2.0x3 = 0x6c,0x4
006d 01db       |    |		Execute	Vector,Length
006e 0c51       | Q  |		Execute_Immediate	Greater_Equal,0x51
006f 6815       |h   |		Jump_Zero	0x85
0070 4800       |H   |		Short_Literal	0x0							; Debug Table 0x2.0x4 = 0x70,0x5
0071 e5ff       |    |		Load	0x2,-0x1
0072 01dd       |    |		Execute	Vector,First
0073 e5ff       |    |		Load	0x2,-0x1
0074 01dd       |    |		Execute	Vector,First
0075 0a4f       | O  |		Execute_Immediate	Plus,0x4f
0076 0248       | H  |		Execute	Discrete,Check_In_Integer
0077 e5ff       |    |		Load	0x2,-0x1
0078 01cf       |    |		Execute	Vector,Slice_Read
0079 820d       |    |		Call	0x1,0xd
007a 4800       |H   |		Short_Literal	0x0							; Debug Table 0x2.0x5 = 0x7a,0x6
007b e5ff       |    |		Load	0x2,-0x1
007c 01dd       |    |		Execute	Vector,First
007d 0a50       | P  |		Execute_Immediate	Plus,0x50
007e 0248       | H  |		Execute	Discrete,Check_In_Integer
007f e5ff       |    |		Load	0x2,-0x1
0080 01dc       |    |		Execute	Vector,Last
0081 e5ff       |    |		Load	0x2,-0x1
0082 01cf       |    |		Execute	Vector,Slice_Read
0083 820d       |    |		Call	0x1,0xd
0084 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0085 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x2.0x6 = 0x85,0x7
0086 e5ff       |    |		Load	0x2,-0x1
0087 4802       |H   |		Short_Literal	0x2
0088 e219       |    |		Load	0x1,0x19
0089 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
008a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; Debug Table 0x2.0x7 = 0x8a,0x8
008b 0000 0000  |    |		.BLANK	0000[0x5]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0097       |    |		.CONST	0x0097								; Address of begin
0091 0004       |    |		.CONST	0x0004								; Address of exception handler
0092 0002       |    |		.CONST	0x0002								; Number of locals
0093			INIT_0090:
0093 4801       |H   |		Short_Literal	0x1							; Debug Table 0x3 = .DEBUG	0x0093,0x028c,0x0001,0x0000,0x000e,0x18f4,0x0000,0x0013
													; Debug Table 0x3.0x0 = 0x93,0xffff
0094 4802       |H   |		Short_Literal	0x2
0095 00e9       |    |		Load_Encached	String_Cache
0096 0334       | 4  |		Declare_Variable	Array,With_Constraint
0097			BODY_0090:
0097 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x3.0x1 = 0x97,0x1
0098 4802       |H   |		Short_Literal	0x2
0099 e402       |    |		Load	0x2,0x2
009a 01d6       |    |		Execute	Vector,Field_Write
009b e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x3.0x2 = 0x9b,0x2
009c 0d20       |    |		Execute_Immediate	Less,0x20
009d 6819       |h   |		Jump_Zero	0xb7
009e e5ff       |    |		Load	0x2,-0x1
009f 0e0d       |    |		Execute_Immediate	Not_Equal,0xd
00a0 6816       |h   |		Jump_Zero	0xb7
00a1 e5ff       |    |		Load	0x2,-0x1
00a2 0e0a       |    |		Execute_Immediate	Not_Equal,0xa
00a3 6813       |h   |		Jump_Zero	0xb7
00a4 485e       |H^  |		Short_Literal	0x5e							; Debug Table 0x3.0x3 = 0xa4,0x3
00a5 4801       |H   |		Short_Literal	0x1
00a6 e402       |    |		Load	0x2,0x2
00a7 01d6       |    |		Execute	Vector,Field_Write
00a8 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x3.0x4 = 0xa8,0x4
00a9 0a40       | @  |		Execute_Immediate	Plus,0x40
00aa 00d8       |    |		Load_Top	At_Offset_0
00ab 00e8       |    |		Load_Encached	Character_Cache
00ac 0260       | `  |		Execute	Discrete,In_Type
00ad 7002       |p   |		Jump_Nonzero	0xb0
00ae 48e0       |H   |		Short_Literal	0xe0
00af 0257       | W  |		Execute	Discrete,Raise
00b0 4802       |H   |		Short_Literal	0x2
00b1 e402       |    |		Load	0x2,0x2
00b2 01d6       |    |		Execute	Vector,Field_Write
00b3 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x3.0x5 = 0xb3,0x5
00b4 e402       |    |		Load	0x2,0x2
00b5 820d       |    |		Call	0x1,0xd
00b6 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00b7 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x3.0x6 = 0xb7,0x6
00b8 4802       |H   |		Short_Literal	0x2
00b9 4802       |H   |		Short_Literal	0x2
00ba e402       |    |		Load	0x2,0x2
00bb 01cf       |    |		Execute	Vector,Slice_Read
00bc 820d       |    |		Call	0x1,0xd
00bd 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00be 0000 0000  |    |		.XXX[0x2]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3       |    |		.CONST	0x00c3								; Address of begin
00c1 0004       |    |		.CONST	0x0004								; Address of exception handler
00c2 0001       |    |		.CONST	0x0001								; Number of locals
00c3			BODY_00c0:
00c3			INIT_00c0:
00c3 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x4 = .DEBUG	0x00c3,0x029c,0x0001,0x0000,0x000e,0x18f4,0x0000,0x0020
													; Debug Table 0x4.0x0 = 0xc3,0x1
00c4 4820       |H   |		Short_Literal	0x20
00c5 4800       |H   |		Short_Literal	0x0
00c6 e5fe       |    |		Load	0x2,-0x2
00c7 e5ff       |    |		Load	0x2,-0x1
00c8 e006       |    |		Load	0x0,0x6
00c9 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00ca 820d       |    |		Call	0x1,0xd
00cb 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00cc 0000 0000  |    |		.BLANK	0000[0x4]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3       |    |		.CONST	0x00d3								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0001       |    |		.CONST	0x0001								; Number of locals
00d3			BODY_00d0:
00d3			INIT_00d0:
00d3 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x5 = .DEBUG	0x00d3,0x02a0,0x0001,0x0000,0x000e,0x18f4,0x0000,0x0032
													; Debug Table 0x5.0x0 = 0xd3,0x1
00d4 e216       |    |		Load	0x1,0x16
00d5 820d       |    |		Call	0x1,0xd
00d6 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00d7 0000       |    |		.XXX[0x1]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db       |    |		.CONST	0x00db								; Address of begin
00d9 0004       |    |		.CONST	0x0004								; Address of exception handler
00da 0001       |    |		.CONST	0x0001								; Number of locals
00db			BODY_00d8:
00db			INIT_00d8:
00db e005       |    |		Load	0x0,0x5								; Debug Table 0x6 = .DEBUG	0x00db,0x02a4,0x0001,0x0000,0x000e,0x18f4,0x0000,0x003b
													; Debug Table 0x6.0x0 = 0xdb,0x1
00dc 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
00dd 6803       |h   |		Jump_Zero	0xe1
00de 4800       |H   |		Short_Literal	0x0							; Debug Table 0x6.0x1 = 0xde,0x2
00df e5ff       |    |		Load	0x2,-0x1
00e0 820d       |    |		Call	0x1,0xd
00e1 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00e2 0000 0000  |    |		.BLANK	0000[0x6]
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 e005       |    |		Load	0x0,0x5								; Debug Table 0x7 = .DEBUG	0x00eb,0x02aa,0x0001,0x0000,0x000e,0x18f4,0x0000,0x0043
													; Debug Table 0x7.0x0 = 0xeb,0x1
00ec 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
00ed 6803       |h   |		Jump_Zero	0xf1
00ee 4800       |H   |		Short_Literal	0x0							; Debug Table 0x7.0x1 = 0xee,0x2
00ef e5ff       |    |		Load	0x2,-0x1
00f0 820e       |    |		Call	0x1,0xe
00f1 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00f2 0000 0000  |    |		.BLANK	0000[0x6]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb       |    |		.CONST	0x00fb								; Address of begin
00f9 0004       |    |		.CONST	0x0004								; Address of exception handler
00fa 0001       |    |		.CONST	0x0001								; Number of locals
00fb			BODY_00f8:
00fb			INIT_00f8:
00fb e005       |    |		Load	0x0,0x5								; Debug Table 0x8 = .DEBUG	0x00fb,0x02b0,0x0001,0x0000,0x000e,0x18f4,0x0000,0x004b
													; Debug Table 0x8.0x0 = 0xfb,0x1
00fc 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
00fd 6804       |h   |		Jump_Zero	0x102
00fe 4800       |H   |		Short_Literal	0x0							; Debug Table 0x8.0x1 = 0xfe,0x2
00ff e5fe       |    |		Load	0x2,-0x2
0100 e5ff       |    |		Load	0x2,-0x1
0101 820f       |    |		Call	0x1,0xf
0102 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0103 0000 0000  |    |		.BLANK	0000[0x5]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b       |    |		.CONST	0x010b								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0001       |    |		.CONST	0x0001								; Number of locals
010b			BODY_0108:
010b			INIT_0108:
010b e005       |    |		Load	0x0,0x5								; Debug Table 0x9 = .DEBUG	0x010b,0x02b6,0x0001,0x0000,0x000e,0x18f4,0x0000,0x0058
													; Debug Table 0x9.0x0 = 0x10b,0x1
010c 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
010d 6802       |h   |		Jump_Zero	0x110
010e 4800       |H   |		Short_Literal	0x0							; Debug Table 0x9.0x1 = 0x10e,0x2
010f 8210       |    |		Call	0x1,0x10
0110 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0111 0000 0000  |    |		.BLANK	0000[0x7]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011c       |    |		.CONST	0x011c								; Address of begin
0119 0135       | 5  |		.CONST	0x0135								; Address of exception handler
011a 0002       |    |		.CONST	0x0002								; Number of locals
011b			INIT_0118:
011b 00e8       |    |		Load_Encached	Character_Cache						; Debug Table 0xa = .DEBUG	0x011b,0x02bc,0x0001,0x0000,0x000e,0x18f4,0x0000,0x005c
													; Debug Table 0xa.0x0 = 0x11b,0xffff
011c			BODY_0118:
011c e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xa.0x1 = 0x11c,0x1
011d 00ea       |    |		Load_Encached	Null_String_Cache
011e e007       |    |		Load	0x0,0x7
011f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0120 00d1       |    |		Pop_Control	Pop_Count_1
0121 0007       |    |		Action	Break_Optional							; Debug Table 0xa.0x2 = 0x121,0x2
0122 821a       |    |		Call	0x1,0x1a							; Debug Table 0xa.0x3 = 0x122,0x3
0123 a402       |    |		Store_Unchecked	0x2,0x2
0124 4800       |H   |		Short_Literal	0x0							; Debug Table 0xa.0x4 = 0x124,0x4
0125 e402       |    |		Load	0x2,0x2
0126 820e       |    |		Call	0x1,0xe
0127 e402       |    |		Load	0x2,0x2								; Debug Table 0xa.0x5 = 0x127,0x5
0128 0f0d       |    |		Execute_Immediate	Equal,0xd
0129 6801       |h   |		Jump_Zero	0x12b
012a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; Debug Table 0xa.0x6 = 0x12a,0x6
012b e402       |    |		Load	0x2,0x2								; Debug Table 0xa.0x7 = 0x12b,0x7
012c 0f0a       |    |		Execute_Immediate	Equal,0xa
012d 6801       |h   |		Jump_Zero	0x12f
012e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; Debug Table 0xa.0x8 = 0x12e,0x8
012f e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xa.0x9 = 0x12f,0x9
0130 e402       |    |		Load	0x2,0x2
0131 e007       |    |		Load	0x0,0x7
0132 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0133 00d1       |    |		Pop_Control	Pop_Count_1
0134 7fed       |    |		Jump	0x122
0135			TRAP_0118:
0135 0007       |    |		Action	Break_Optional
0136 e403       |    |		Load	0x2,0x3								; Debug Table 0xa.0xa = 0x136,0xa
0137 0101       |    |		Execute	Exception,Reraise
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 0143       | C  |		.CONST	0x0143								; Address of begin
0139 0004       |    |		.CONST	0x0004								; Address of exception handler
013a 0005       |    |		.CONST	0x0005								; Number of locals
013b			INIT_0138:
013b 00e8       |    |		Load_Encached	Character_Cache						; Debug Table 0xb = .DEBUG	0x013b,0x02d4,0x0002,0x0000,0x000e,0x1aa4,0x0000,0x01ef
													; Debug Table 0xb.0x0 = 0x13b,0xffff
013c 4801       |H   |		Short_Literal	0x1							; Debug Table 0xb.0x1 = 0x13c,0xfffe
013d 4801       |H   |		Short_Literal	0x1
013e 00e9       |    |		Load_Encached	String_Cache
013f 0334       | 4  |		Declare_Variable	Array,With_Constraint
0140 e001       |    |		Load	0x0,0x1								; Debug Table 0xb.0x2 = 0x140,0xfffd
0141 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0142 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0xb.0x3 = 0x142,0xfffc
0143			BODY_0138:
0143 0007       |    |		Action	Break_Optional							; Debug Table 0xb.0x4 = 0x143,0x1
0144 e403       |    |		Load	0x2,0x3								; Debug Table 0xb.0x5 = 0x144,0x2
0145 00e3       |    |		Load_Encached	Natural_Cache
0146 e001       |    |		Load	0x0,0x1
0147 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0148 581b       |X   |		Indirect_Literal	Float,0x164,4294967296.0
0149 5816       |X   |		Indirect_Literal	Float,0x160,3.0517578125e-05
014a 023a       | :  |		Execute	Float,Divide
014b 0236       | 6  |		Execute	Float,Truncate_To_Discrete
014c e217       |    |		Load	0x1,0x17
014d e004       |    |		Load	0x0,0x4
014e 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
014f c404       |    |		Store	0x2,0x4
0150 c405       |    |		Store	0x2,0x5
0151 00d1       |    |		Pop_Control	Pop_Count_1
0152 e404       |    |		Load	0x2,0x4								; Debug Table 0xb.0x6 = 0x152,0x3
0153 77f0       |w   |		Jump_Nonzero	0x144
0154 e405       |    |		Load	0x2,0x5
0155 6fee       |o   |		Jump_Zero	0x144
0156 7800       |x   |		Jump	0x157								; Debug Table 0xb.0x7 = 0x156,0x4
0157 4801       |H   |		Short_Literal	0x1							; Debug Table 0xb.0x8 = 0x157,0x5
0158 e403       |    |		Load	0x2,0x3
0159 01d7       |    |		Execute	Vector,Field_Read
015a a402       |    |		Store_Unchecked	0x2,0x2
015b e402       |    |		Load	0x2,0x2								; Debug Table 0xb.0x9 = 0x15b,0x6
015c 00ca       |    |		Action	Exit_Nullary_Function
015d 0000 0000  |    |		.XXX[0x3]
015f 0000       |    |
0160 3f00 0000  |?   |		.DBL	3.0517578125e-05
0162 0000 0000  |    |
0164 41f0 0000  |A   |		.DBL	4294967296.0
0166 0000 0000  |    |
0168 00aa 3c11  |  < |		.LITERAL	{0x00aa3c11, 0x00001730}
016c 0000 0000  |    |		.BLANK	0000[0x4]
0170 0179 0004  | y  |		.XXX[0x3]
0172 000e       |    |
0173 4802       |H   |		Short_Literal	0x2							; Debug Table 0xc = .DEBUG	0x0173,0x02ea,0x0000,0x0000,0x000e,0x1aa4,0x0000,0x0044
0174 02cb       |    |		Declare_Variable	Entry
0175 00bf       |    |		Action	Accept_Activation
0176 029f 018b  |    |		Declare_Subprogram	INIT_0188,For_Call				; Debug Table 0xd = .DEBUG	0x0176,0x02ec,0x0000,0x0000,0x000e,0x1aa4,0x0000,0x0055
0178 00bc       |    |		Action	Signal_Activated
0179 e001       |    |		Load	0x0,0x1								; Debug Table 0xd.0x0 = 0x179,0x1
017a 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
017b 4808       |H   |		Short_Literal	0x8
017c 4801       |H   |		Short_Literal	0x1
017d 4801       |H   |		Short_Literal	0x1
017e 4802       |H   |		Short_Literal	0x2
017f 4800       |H   |		Short_Literal	0x0
0180 e002       |    |		Load	0x0,0x2
0181 1851       | Q  |		Execute	Package,Field_Execute,Field_Number 0x51
0182 0007       |    |		Action	Break_Optional							; Debug Table 0xd.0x1 = 0x182,0x2
0183 820e       |    |		Call	0x1,0xe								; Debug Table 0xd.0x2 = 0x183,0x3
0184 7ffe       |    |		Jump	0x183
0185 0000 0000  |    |		.XXX[0x3]
0187 0000       |    |
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018e       |    |		.CONST	0x018e								; Address of begin
0189 0194       |    |		.CONST	0x0194								; Address of exception handler
018a 0002       |    |		.CONST	0x0002								; Number of locals
018b			INIT_0188:
018b 480d       |H   |		Short_Literal	0xd							; Debug Table 0xe = .DEBUG	0x018b,0x02f4,0x0004,0x0000,0x000e,0x1aa4,0x0000,0x009d
018c 0299 019b  |    |		Declare_Subprogram	INIT_0198,For_Accept
018e			BODY_0188:
018e 4802       |H   |		Short_Literal	0x2							; Debug Table 0xe.0x0 = 0x18e,0x1
018f 4802       |H   |		Short_Literal	0x2
0190 0099       |    |		Action	Reference_Dynamic
0191 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0192 0137       | 7  |		Execute	Entry,Rendezvous
0193 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0194			TRAP_0188:
0194 0007       |    |		Action	Break_Optional
0195 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; Debug Table 0xe.0x1 = 0x195,0x2
0196 0000 0000  |    |		.XXX[0x2]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b       |    |		.CONST	0x019b								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0001       |    |		.CONST	0x0001								; Number of locals
019b			BODY_0198:
019b			INIT_0198:
019b 029f 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Call				; Debug Table 0xf = .DEBUG	0x019b,0x02fa,0x0003,0x0000,0x000e,0x1aa4,0x0000,0x0095
019d 8602       |    |		Call	0x3,0x2								; Debug Table 0xf.0x0 = 0x19d,0x1
019e 4100       |A   |		End_Rendezvous	0x0
019f 0000       |    |		.XXX[0x1]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3       |    |		.CONST	0x01a3								; Address of begin
01a1 01af       |    |		.CONST	0x01af								; Address of exception handler
01a2 0001       |    |		.CONST	0x0001								; Number of locals
01a3			BODY_01a0:
01a3			INIT_01a0:
01a3 e7fd       |    |		Load	0x3,-0x3							; Debug Table 0x10 = .DEBUG	0x01a3,0x02fe,0x0004,0x0000,0x000e,0x1aa4,0x0000,0x0093
													; Debug Table 0x10.0x0 = 0x1a3,0x1
01a4 6805       |h   |		Jump_Zero	0x1aa
01a5 e7fe       |    |		Load	0x3,-0x2							; Debug Table 0x10.0x1 = 0x1a5,0x2
01a6 e003       |    |		Load	0x0,0x3
01a7 e004       |    |		Load	0x0,0x4
01a8 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01a9 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01aa e7fe       |    |		Load	0x3,-0x2							; Debug Table 0x10.0x2 = 0x1aa,0x3
01ab e005       |    |		Load	0x0,0x5
01ac e004       |    |		Load	0x0,0x4
01ad 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01ae 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01af			TRAP_01a0:
01af 0007       |    |		Action	Break_Optional
01b0 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; Debug Table 0x10.0x3 = 0x1b0,0x4
01b1 0000 0000  |    |		.BLANK	0000[0x7]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; Debug Table
01b8 ; --------------------------------------------------------------------------------------
01b8 0003 0011  |    |		.CONST	0x0003,0x0011
01ba 000b 0242  |   B|		.DEBUG	0x000b,0x0242,0x8000,0x0000,0x000e,0x18f4,0x0000,0x0005
01c2 001e 0256  |   V|		.DEBUG	0x001e,0x0256,0x8000,0x0000,0x000e,0x1aa4,0x0000,0x000e
01ca 0063 027a  | c z|		.DEBUG	0x0063,0x027a,0x0001,0x0000,0x000e,0x18f4,0x0000,0x0006
01d2 0093 028c  |    |		.DEBUG	0x0093,0x028c,0x0001,0x0000,0x000e,0x18f4,0x0000,0x0013
01da 00c3 029c  |    |		.DEBUG	0x00c3,0x029c,0x0001,0x0000,0x000e,0x18f4,0x0000,0x0020
01e2 00d3 02a0  |    |		.DEBUG	0x00d3,0x02a0,0x0001,0x0000,0x000e,0x18f4,0x0000,0x0032
01ea 00db 02a4  |    |		.DEBUG	0x00db,0x02a4,0x0001,0x0000,0x000e,0x18f4,0x0000,0x003b
01f2 00eb 02aa  |    |		.DEBUG	0x00eb,0x02aa,0x0001,0x0000,0x000e,0x18f4,0x0000,0x0043
01fa 00fb 02b0  |    |		.DEBUG	0x00fb,0x02b0,0x0001,0x0000,0x000e,0x18f4,0x0000,0x004b
0202 010b 02b6  |    |		.DEBUG	0x010b,0x02b6,0x0001,0x0000,0x000e,0x18f4,0x0000,0x0058
020a 011b 02bc  |    |		.DEBUG	0x011b,0x02bc,0x0001,0x0000,0x000e,0x18f4,0x0000,0x005c
0212 013b 02d4  | ;  |		.DEBUG	0x013b,0x02d4,0x0002,0x0000,0x000e,0x1aa4,0x0000,0x01ef
021a 0173 02ea  | s  |		.DEBUG	0x0173,0x02ea,0x0000,0x0000,0x000e,0x1aa4,0x0000,0x0044
0222 0176 02ec  | v  |		.DEBUG	0x0176,0x02ec,0x0000,0x0000,0x000e,0x1aa4,0x0000,0x0055
022a 018b 02f4  |    |		.DEBUG	0x018b,0x02f4,0x0004,0x0000,0x000e,0x1aa4,0x0000,0x009d
0232 019b 02fa  |    |		.DEBUG	0x019b,0x02fa,0x0003,0x0000,0x000e,0x1aa4,0x0000,0x0095
023a 01a3 02fe  |    |		.DEBUG	0x01a3,0x02fe,0x0004,0x0000,0x000e,0x1aa4,0x0000,0x0093
0242 ; --------------------------------------------------------------------------------------
0242 ; Debug3 Subtable 0x0
0242 ; --------------------------------------------------------------------------------------
0242 0009 0000  |    |		.DBG3TAB	0x0009,0x0000
0244 000b ffff  |    |		.CONST	0x000b,0xffff
0246 000d fffe  |    |		.CONST	0x000d,0xfffe
0248 000f fffd  |    |		.CONST	0x000f,0xfffd
024a 0011 fffc  |    |		.CONST	0x0011,0xfffc
024c 0013 fffb  |    |		.CONST	0x0013,0xfffb
024e 0015 fffa  |    |		.CONST	0x0015,0xfffa
0250 0017 fff9  |    |		.CONST	0x0017,0xfff9
0252 0019 fff8  |    |		.CONST	0x0019,0xfff8
0254 001b fff7  |    |		.CONST	0x001b,0xfff7
0256 ; --------------------------------------------------------------------------------------
0256 ; Debug3 Subtable 0x1
0256 ; --------------------------------------------------------------------------------------
0256 0011 0000  |    |		.DBG3TAB	0x0011,0x0000
0258 001e ffff  |    |		.CONST	0x001e,0xffff
025a 001f fffe  |    |		.CONST	0x001f,0xfffe
025c 0020 fffd  |    |		.CONST	0x0020,0xfffd
025e 0032 fffc  | 2  |		.CONST	0x0032,0xfffc
0260 0035 fffb  | 5  |		.CONST	0x0035,0xfffb
0262 0038 fffa  | 8  |		.CONST	0x0038,0xfffa
0264 003d fff9  | =  |		.CONST	0x003d,0xfff9
0266 0046 fff8  | F  |		.CONST	0x0046,0xfff8
0268 0048 fff7  | H  |		.CONST	0x0048,0xfff7
026a 004a fff6  | J  |		.CONST	0x004a,0xfff6
026c 004c fff5  | L  |		.CONST	0x004c,0xfff5
026e 004e fff4  | N  |		.CONST	0x004e,0xfff4
0270 0050 fff3  | P  |		.CONST	0x0050,0xfff3
0272 0052 fff2  | R  |		.CONST	0x0052,0xfff2
0274 0054 fff1  | T  |		.CONST	0x0054,0xfff1
0276 0056 fff0  | V  |		.CONST	0x0056,0xfff0
0278 0058 ffef  | X  |		.CONST	0x0058,0xffef
027a ; --------------------------------------------------------------------------------------
027a ; Debug3 Subtable 0x2
027a ; --------------------------------------------------------------------------------------
027a 0000 0008  |    |		.DBG3TAB	0x0000,0x0008
027c 0063 0001  | c  |		.CONST	0x0063,0x0001
027e 0068 0002  | h  |		.CONST	0x0068,0x0002
0280 006b 0003  | k  |		.CONST	0x006b,0x0003
0282 006c 0004  | l  |		.CONST	0x006c,0x0004
0284 0070 0005  | p  |		.CONST	0x0070,0x0005
0286 007a 0006  | z  |		.CONST	0x007a,0x0006
0288 0085 0007  |    |		.CONST	0x0085,0x0007
028a 008a 0008  |    |		.CONST	0x008a,0x0008
028c ; --------------------------------------------------------------------------------------
028c ; Debug3 Subtable 0x3
028c ; --------------------------------------------------------------------------------------
028c 0001 0006  |    |		.DBG3TAB	0x0001,0x0006
028e 0093 ffff  |    |		.CONST	0x0093,0xffff
0290 0097 0001  |    |		.CONST	0x0097,0x0001
0292 009b 0002  |    |		.CONST	0x009b,0x0002
0294 00a4 0003  |    |		.CONST	0x00a4,0x0003
0296 00a8 0004  |    |		.CONST	0x00a8,0x0004
0298 00b3 0005  |    |		.CONST	0x00b3,0x0005
029a 00b7 0006  |    |		.CONST	0x00b7,0x0006
029c ; --------------------------------------------------------------------------------------
029c ; Debug3 Subtable 0x4
029c ; --------------------------------------------------------------------------------------
029c 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
029e 00c3 0001  |    |		.CONST	0x00c3,0x0001
02a0 ; --------------------------------------------------------------------------------------
02a0 ; Debug3 Subtable 0x5
02a0 ; --------------------------------------------------------------------------------------
02a0 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
02a2 00d3 0001  |    |		.CONST	0x00d3,0x0001
02a4 ; --------------------------------------------------------------------------------------
02a4 ; Debug3 Subtable 0x6
02a4 ; --------------------------------------------------------------------------------------
02a4 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
02a6 00db 0001  |    |		.CONST	0x00db,0x0001
02a8 00de 0002  |    |		.CONST	0x00de,0x0002
02aa ; --------------------------------------------------------------------------------------
02aa ; Debug3 Subtable 0x7
02aa ; --------------------------------------------------------------------------------------
02aa 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
02ac 00eb 0001  |    |		.CONST	0x00eb,0x0001
02ae 00ee 0002  |    |		.CONST	0x00ee,0x0002
02b0 ; --------------------------------------------------------------------------------------
02b0 ; Debug3 Subtable 0x8
02b0 ; --------------------------------------------------------------------------------------
02b0 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
02b2 00fb 0001  |    |		.CONST	0x00fb,0x0001
02b4 00fe 0002  |    |		.CONST	0x00fe,0x0002
02b6 ; --------------------------------------------------------------------------------------
02b6 ; Debug3 Subtable 0x9
02b6 ; --------------------------------------------------------------------------------------
02b6 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
02b8 010b 0001  |    |		.CONST	0x010b,0x0001
02ba 010e 0002  |    |		.CONST	0x010e,0x0002
02bc ; --------------------------------------------------------------------------------------
02bc ; Debug3 Subtable 0xa
02bc ; --------------------------------------------------------------------------------------
02bc 0001 000a  |    |		.DBG3TAB	0x0001,0x000a
02be 011b ffff  |    |		.CONST	0x011b,0xffff
02c0 011c 0001  |    |		.CONST	0x011c,0x0001
02c2 0121 0002  | !  |		.CONST	0x0121,0x0002
02c4 0122 0003  | "  |		.CONST	0x0122,0x0003
02c6 0124 0004  | $  |		.CONST	0x0124,0x0004
02c8 0127 0005  | '  |		.CONST	0x0127,0x0005
02ca 012a 0006  | *  |		.CONST	0x012a,0x0006
02cc 012b 0007  | +  |		.CONST	0x012b,0x0007
02ce 012e 0008  | .  |		.CONST	0x012e,0x0008
02d0 012f 0009  | /  |		.CONST	0x012f,0x0009
02d2 0136 000a  | 6  |		.CONST	0x0136,0x000a
02d4 ; --------------------------------------------------------------------------------------
02d4 ; Debug3 Subtable 0xb
02d4 ; --------------------------------------------------------------------------------------
02d4 0004 0006  |    |		.DBG3TAB	0x0004,0x0006
02d6 013b ffff  | ;  |		.CONST	0x013b,0xffff
02d8 013c fffe  | <  |		.CONST	0x013c,0xfffe
02da 0140 fffd  | @  |		.CONST	0x0140,0xfffd
02dc 0142 fffc  | B  |		.CONST	0x0142,0xfffc
02de 0143 0001  | C  |		.CONST	0x0143,0x0001
02e0 0144 0002  | D  |		.CONST	0x0144,0x0002
02e2 0152 0003  | R  |		.CONST	0x0152,0x0003
02e4 0156 0004  | V  |		.CONST	0x0156,0x0004
02e6 0157 0005  | W  |		.CONST	0x0157,0x0005
02e8 015b 0006  | [  |		.CONST	0x015b,0x0006
02ea ; --------------------------------------------------------------------------------------
02ea ; Debug3 Subtable 0xc
02ea ; --------------------------------------------------------------------------------------
02ea 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
02ec ; --------------------------------------------------------------------------------------
02ec ; Debug3 Subtable 0xd
02ec ; --------------------------------------------------------------------------------------
02ec 0000 0003  |    |		.DBG3TAB	0x0000,0x0003
02ee 0179 0001  | y  |		.CONST	0x0179,0x0001
02f0 0182 0002  |    |		.CONST	0x0182,0x0002
02f2 0183 0003  |    |		.CONST	0x0183,0x0003
02f4 ; --------------------------------------------------------------------------------------
02f4 ; Debug3 Subtable 0xe
02f4 ; --------------------------------------------------------------------------------------
02f4 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
02f6 018e 0001  |    |		.CONST	0x018e,0x0001
02f8 0195 0002  |    |		.CONST	0x0195,0x0002
02fa ; --------------------------------------------------------------------------------------
02fa ; Debug3 Subtable 0xf
02fa ; --------------------------------------------------------------------------------------
02fa 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
02fc 019d 0001  |    |		.CONST	0x019d,0x0001
02fe ; --------------------------------------------------------------------------------------
02fe ; Debug3 Subtable 0x10
02fe ; --------------------------------------------------------------------------------------
02fe 0000 0004  |    |		.DBG3TAB	0x0000,0x0004
0300 01a3 0001  |    |		.CONST	0x01a3,0x0001
0302 01a5 0002  |    |		.CONST	0x01a5,0x0002
0304 01aa 0003  |    |		.CONST	0x01aa,0x0003
0306 01b0 0004  |    |		.CONST	0x01b0,0x0004
0308 0000 0000  |    |		.BLANK	0000[0xf8]