DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦12d1a6b5c⟧

    Length: 2048 (0x800)
    Notes: 00_class, 5811_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0500e0

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5811       |X   |		.CONST	0x5811								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0198       |    |		.CONST	0x0198								; 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 0079       | y  |		.CONST	0x0079								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 001f       |    |		.CONST	0x001f								; Number of locals
000b			INIT_0008:
000b 029a 0083  |    |		Declare_Subprogram	INIT_0080,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0 = .DEBUG	0x000b,0x0222,0x8000,0x0000,0x0036,0xf844,0x0000,0x000b
													; Debug Table 0x0.0x0 = 0xb,0xffff
000d 029a 009b  |    |		Declare_Subprogram	INIT_0098,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x1 = 0xd,0xfffe
000f 029a 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x2 = 0xf,0xfffd
0011 029a 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x3 = 0x11,0xfffc
0013 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0x4 = 0x13,0xfffb
0014 4802       |H   |		Short_Literal	0x2
0015 4820       |H   |		Short_Literal	0x20
0016 026d       | m  |		Execute	Discrete,Exponentiate
0017 0aff       |    |		Execute_Immediate	Plus,-0x1
0018 00e5       |    |		Load_Encached	Long_Integer_Cache
0019 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
001a 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x0.0x5 = 0x1a,0xfffa
001b e211       |    |		Load	0x1,0x11
001c 00e4       |    |		Load_Encached	Positive_Cache
001d 00e2       |    |		Load_Encached	Integer_Cache
001e 02a0       |    |		Declare_Subprogram	Null_Subprogram
001f 4804       |H   |		Short_Literal	0x4
0020 032e       | .  |		Declare_Type	Record,Defined,Visible
0021 e212       |    |		Load	0x1,0x12							; Debug Table 0x0.0x6 = 0x21,0xfff9
0022 0322       | "  |		Declare_Variable	Record
0023 4800       |H   |		Short_Literal	0x0
0024 e213       |    |		Load	0x1,0x13
0025 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0026 4800       |H   |		Short_Literal	0x0
0027 e213       |    |		Load	0x1,0x13
0028 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0029 614e       |aN  |		Indirect_Literal	Discrete,0x178,{0x00000000, 0x7fffffff}
002a e213       |    |		Load	0x1,0x13
002b 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
002c 4800       |H   |		Short_Literal	0x0
002d e213       |    |		Load	0x1,0x13
002e 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
002f 0129       | )  |		Execute	Any,Make_Visible
0030 029a 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x7 = 0x30,0xfff8
0032 029a 00e3  |    |		Declare_Subprogram	INIT_00e0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x8 = 0x32,0xfff7
0034 029a 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x9 = 0x34,0xfff6
0036 029a 011b  |    |		Declare_Subprogram	INIT_0118,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xa = 0x36,0xfff5
0038 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0xb = 0x38,0xfff4
0039 029a 012b  |   +|		Declare_Subprogram	INIT_0128,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xc = 0x39,0xfff3
003b 029a 0143  |   C|		Declare_Subprogram	INIT_0140,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xd = 0x3b,0xfff2
003d 029a 0153  |   S|		Declare_Subprogram	INIT_0150,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xe = 0x3d,0xfff1
003f e001       |    |		Load	0x0,0x1								; Debug Table 0x0.0xf = 0x3f,0xfff0
0040 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
0041 0129       | )  |		Execute	Any,Make_Visible
0042 4808       |H   |		Short_Literal	0x8							; Debug Table 0x0.0x10 = 0x42,0xffef
0043 6130       |a0  |		Indirect_Literal	Discrete,0x174,{0x000dc013, 0x00001830}
0044 02a0       |    |		Declare_Subprogram	Null_Subprogram
0045 038d       |    |		Declare_Type	Package,Defined,Visible,Not_Elaborated
0046 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x11 = 0x46,0xffee
0047 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x12 = 0x47,0xffed
0048 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x13 = 0x48,0xffec
0049 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x14 = 0x49,0xffeb
004a 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0x15 = 0x4a,0xffea
004b e21b       |    |		Load	0x1,0x1b
004c 03f1       |    |		Declare_Variable	Discrete,With_Value
004d 00bf       |    |		Action	Accept_Activation
004e 0007       |    |		Action	Break_Optional							; Debug Table 0x1 = .DEBUG	0x004e,0x0250,0x8000,0x0000,0x0036,0xf8e4,0x0000,0x000f
													; Debug Table 0x1.0x0 = 0x4e,0xffff
004f 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x1 = 0x4f,0xfffd
0050 611f       |a   |		Indirect_Literal	Discrete,0x170,{0x00000000, 0x0036f8e4}		; Debug Table 0x1.0x2 = 0x50,0xfffc
0051 4893       |H   |		Short_Literal	0x93
0052 e21b       |    |		Load	0x1,0x1b
0053 e21d       |    |		Load	0x1,0x1d
0054 e002       |    |		Load	0x0,0x2
0055 1b4c       | L  |		Execute	Package,Field_Read,Field_Number 0x4c
0056 0387       |    |		Declare_Variable	Package
0057 00d8       |    |		Load_Top	At_Offset_0
0058 020f       |    |		Execute	Module,Activate
0059 029d 0163  |   c|		Declare_Subprogram	INIT_0160,For_Outer_Call			; Debug Table 0x1.0x3 = 0x59,0xfffb
005b 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd				; Debug Table 0x1.0x4 = 0x5b,0xfffa
005c 00c7       |    |		Action	Elaborate_Subprogram
005d 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe				; Debug Table 0x1.0x5 = 0x5d,0xfff9
005e 00c7       |    |		Action	Elaborate_Subprogram
005f 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf				; Debug Table 0x1.0x6 = 0x5f,0xfff8
0060 00c7       |    |		Action	Elaborate_Subprogram
0061 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10				; Debug Table 0x1.0x7 = 0x61,0xfff7
0062 00c7       |    |		Action	Elaborate_Subprogram
0063 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14				; Debug Table 0x1.0x8 = 0x63,0xfff6
0064 00c7       |    |		Action	Elaborate_Subprogram
0065 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15				; Debug Table 0x1.0x9 = 0x65,0xfff5
0066 00c7       |    |		Action	Elaborate_Subprogram
0067 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16				; Debug Table 0x1.0xa = 0x67,0xfff4
0068 00c7       |    |		Action	Elaborate_Subprogram
0069 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17				; Debug Table 0x1.0xb = 0x69,0xfff3
006a 00c7       |    |		Action	Elaborate_Subprogram
006b 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18				; Debug Table 0x1.0xc = 0x6b,0xfff2
006c 00c7       |    |		Action	Elaborate_Subprogram
006d 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19				; Debug Table 0x1.0xd = 0x6d,0xfff1
006e 00c7       |    |		Action	Elaborate_Subprogram
006f 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a				; Debug Table 0x1.0xe = 0x6f,0xfff0
0070 00c7       |    |		Action	Elaborate_Subprogram
0071 e003       |    |		Load	0x0,0x3								; Debug Table 0x1.0xf = 0x71,0xffef
0072 e002       |    |		Load	0x0,0x2
0073 e21e       |    |		Load	0x1,0x1e
0074 4803       |H   |		Short_Literal	0x3
0075 e21c       |    |		Load	0x1,0x1c
0076 020e       |    |		Execute	Module,Augment_Imports
0077 e21c       |    |		Load	0x1,0x1c
0078 020d       |    |		Execute	Module,Elaborate
0079			BODY_0008:
0079 00bc       |    |		Action	Signal_Activated
007a 00bb       |    |		Action	Signal_Completion
007b 0000 0000  |    |		.BLANK	0000[0x5]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083       |    |		.CONST	0x0083								; Address of begin
0081 0004       |    |		.CONST	0x0004								; Address of exception handler
0082 0001       |    |		.CONST	0x0001								; Number of locals
0083			BODY_0080:
0083			INIT_0080:
0083 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x2 = .DEBUG	0x0083,0x0272,0x0002,0x0000,0x0036,0xf844,0x0000,0x000c
													; Debug Table 0x2.0x0 = 0x83,0x1
0084 e5ff       |    |		Load	0x2,-0x1
0085 821f       |    |		Call	0x1,0x1f
0086 e004       |    |		Load	0x0,0x4
0087 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
0088 00d8       |    |		Load_Top	At_Offset_0
0089 e004       |    |		Load	0x0,0x4
008a 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
008b 7003       |p   |		Jump_Nonzero	0x8f
008c e001       |    |		Load	0x0,0x1
008d 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
008e 0257       | W  |		Execute	Discrete,Raise
008f 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0090 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0091 0000 0000  |    |		.BLANK	0000[0x7]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b       |    |		.CONST	0x009b								; Address of begin
0099 0004       |    |		.CONST	0x0004								; Address of exception handler
009a 0001       |    |		.CONST	0x0001								; Number of locals
009b			BODY_0098:
009b			INIT_0098:
009b e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x3 = .DEBUG	0x009b,0x0276,0x0002,0x0000,0x0036,0xf844,0x0000,0x001c
													; Debug Table 0x3.0x0 = 0x9b,0x1
009c 821f       |    |		Call	0x1,0x1f
009d e004       |    |		Load	0x0,0x4
009e 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
009f 00d8       |    |		Load_Top	At_Offset_0
00a0 e004       |    |		Load	0x0,0x4
00a1 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
00a2 7003       |p   |		Jump_Nonzero	0xa6
00a3 e001       |    |		Load	0x0,0x1
00a4 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
00a5 0257       | W  |		Execute	Discrete,Raise
00a6 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00a7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab       |    |		.CONST	0x00ab								; Address of begin
00a9 0004       |    |		.CONST	0x0004								; Address of exception handler
00aa 0001       |    |		.CONST	0x0001								; Number of locals
00ab			BODY_00a8:
00ab			INIT_00a8:
00ab e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x4 = .DEBUG	0x00ab,0x027a,0x0002,0x0000,0x0036,0xf844,0x0000,0x0027
													; Debug Table 0x4.0x0 = 0xab,0x1
00ac 821f       |    |		Call	0x1,0x1f
00ad e004       |    |		Load	0x0,0x4
00ae 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
00af 00d8       |    |		Load_Top	At_Offset_0
00b0 e004       |    |		Load	0x0,0x4
00b1 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
00b2 7003       |p   |		Jump_Nonzero	0xb6
00b3 e001       |    |		Load	0x0,0x1
00b4 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
00b5 0257       | W  |		Execute	Discrete,Raise
00b6 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00b7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb       |    |		.CONST	0x00bb								; Address of begin
00b9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ba 0001       |    |		.CONST	0x0001								; Number of locals
00bb			BODY_00b8:
00bb			INIT_00b8:
00bb e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x5 = .DEBUG	0x00bb,0x027e,0x0002,0x0000,0x0036,0xf844,0x0000,0x0032
													; Debug Table 0x5.0x0 = 0xbb,0x1
00bc 821f       |    |		Call	0x1,0x1f
00bd e004       |    |		Load	0x0,0x4
00be 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
00bf 00d8       |    |		Load_Top	At_Offset_0
00c0 e004       |    |		Load	0x0,0x4
00c1 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
00c2 7003       |p   |		Jump_Nonzero	0xc6
00c3 e001       |    |		Load	0x0,0x1
00c4 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
00c5 0257       | W  |		Execute	Discrete,Raise
00c6 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
00c7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 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 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x6 = .DEBUG	0x00cb,0x0282,0x0001,0x0000,0x0036,0xf844,0x0000,0x0080
													; Debug Table 0x6.0x0 = 0xcb,0x1
00cc 00e1       |    |		Load_Encached	Boolean_Cache
00cd 00e1       |    |		Load_Encached	Boolean_Cache
00ce e5ff       |    |		Load	0x2,-0x1
00cf 821f       |    |		Call	0x1,0x1f
00d0 e004       |    |		Load	0x0,0x4
00d1 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
00d2 00d8       |    |		Load_Top	At_Offset_0
00d3 e004       |    |		Load	0x0,0x4
00d4 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
00d5 7003       |p   |		Jump_Nonzero	0xd9
00d6 e001       |    |		Load	0x0,0x1
00d7 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
00d8 0257       | W  |		Execute	Discrete,Raise
00d9 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00da c5fe       |    |		Store	0x2,-0x2
00db c5fd       |    |		Store	0x2,-0x3
00dc 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00dd 0000 0000  |    |		.XXX[0x3]
00df 0000       |    |
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3       |    |		.CONST	0x00e3								; Address of begin
00e1 0004       |    |		.CONST	0x0004								; Address of exception handler
00e2 0001       |    |		.CONST	0x0001								; Number of locals
00e3			BODY_00e0:
00e3			INIT_00e0:
00e3 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x7 = .DEBUG	0x00e3,0x0286,0x0002,0x0000,0x0036,0xf844,0x0000,0x0096
													; Debug Table 0x7.0x0 = 0xe3,0x1
00e4 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00e5 e5fe       |    |		Load	0x2,-0x2
00e6 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00e7 027f       |    |		Execute	Discrete,Equal
00e8 680c       |h   |		Jump_Zero	0xf5
00e9 e5ff       |    |		Load	0x2,-0x1
00ea 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00eb e5fe       |    |		Load	0x2,-0x2
00ec 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00ed 027f       |    |		Execute	Discrete,Equal
00ee 6806       |h   |		Jump_Zero	0xf5
00ef e5ff       |    |		Load	0x2,-0x1
00f0 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00f1 e5fe       |    |		Load	0x2,-0x2
00f2 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00f3 027f       |    |		Execute	Discrete,Equal
00f4 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00f5 4800       |H   |		Short_Literal	0x0
00f6 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00f7 0000       |    |		.XXX[0x1]
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 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x8 = .DEBUG	0x00fb,0x028a,0x0002,0x0000,0x0036,0xf844,0x0000,0x00a0
													; Debug Table 0x8.0x0 = 0xfb,0x1
00fc 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00fd e5fe       |    |		Load	0x2,-0x2
00fe 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00ff 027f       |    |		Execute	Discrete,Equal
0100 6812       |h   |		Jump_Zero	0x113
0101 e5ff       |    |		Load	0x2,-0x1
0102 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0103 e5fe       |    |		Load	0x2,-0x2
0104 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0105 027f       |    |		Execute	Discrete,Equal
0106 680c       |h   |		Jump_Zero	0x113
0107 e5ff       |    |		Load	0x2,-0x1
0108 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0109 e5fe       |    |		Load	0x2,-0x2
010a 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
010b 027f       |    |		Execute	Discrete,Equal
010c 6806       |h   |		Jump_Zero	0x113
010d e5ff       |    |		Load	0x2,-0x1
010e 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
010f e5fe       |    |		Load	0x2,-0x2
0110 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0111 027f       |    |		Execute	Discrete,Equal
0112 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0113 4800       |H   |		Short_Literal	0x0
0114 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0115 0000 0000  |    |		.XXX[0x3]
0117 0000       |    |
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
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 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x9 = .DEBUG	0x011b,0x028e,0x0002,0x0000,0x0036,0xf844,0x0000,0x00aa
													; Debug Table 0x9.0x0 = 0x11b,0x1
011c 821f       |    |		Call	0x1,0x1f
011d e004       |    |		Load	0x0,0x4
011e 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
011f 00d8       |    |		Load_Top	At_Offset_0
0120 e004       |    |		Load	0x0,0x4
0121 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
0122 7003       |p   |		Jump_Nonzero	0x126
0123 e001       |    |		Load	0x0,0x1
0124 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
0125 0257       | W  |		Execute	Discrete,Raise
0126 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0127 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012d       | -  |		.CONST	0x012d								; Address of begin
0129 0004       |    |		.CONST	0x0004								; Address of exception handler
012a 0002       |    |		.CONST	0x0002								; Number of locals
012b			INIT_0128:
012b e005       |    |		Load	0x0,0x5								; Debug Table 0xa = .DEBUG	0x012b,0x0292,0x0001,0x0000,0x0036,0xf844,0x0000,0x00bb
													; Debug Table 0xa.0x0 = 0x12b,0xffff
012c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
012d			BODY_0128:
012d e006       |    |		Load	0x0,0x6								; Debug Table 0xa.0x1 = 0x12d,0x1
012e 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
012f e006       |    |		Load	0x0,0x6
0130 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0131 00e3       |    |		Load_Encached	Natural_Cache
0132 e005       |    |		Load	0x0,0x5
0133 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0134 e5ff       |    |		Load	0x2,-0x1
0135 e005       |    |		Load	0x0,0x5
0136 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0137 c402       |    |		Store	0x2,0x2
0138 c5fd       |    |		Store	0x2,-0x3
0139 c5fc       |    |		Store	0x2,-0x4
013a c5fb       |    |		Store	0x2,-0x5
013b e402       |    |		Load	0x2,0x2								; Debug Table 0xa.0x2 = 0x13b,0x2
013c e211       |    |		Load	0x1,0x11
013d 025b       | [  |		Execute	Discrete,Check_In_Type
013e a5fe       |    |		Store_Unchecked	0x2,-0x2
013f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143       | C  |		.CONST	0x0143								; Address of begin
0141 0004       |    |		.CONST	0x0004								; Address of exception handler
0142 0001       |    |		.CONST	0x0001								; Number of locals
0143			BODY_0140:
0143			INIT_0140:
0143 e006       |    |		Load	0x0,0x6								; Debug Table 0xb = .DEBUG	0x0143,0x029a,0x0001,0x0000,0x0036,0xf844,0x0000,0x00d9
													; Debug Table 0xb.0x0 = 0x143,0x1
0144 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0145 e006       |    |		Load	0x0,0x6
0146 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0147 e5fe       |    |		Load	0x2,-0x2
0148 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0149 e5ff       |    |		Load	0x2,-0x1
014a e005       |    |		Load	0x0,0x5
014b 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
014c c5fd       |    |		Store	0x2,-0x3
014d c5fc       |    |		Store	0x2,-0x4
014e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
014f 0000       |    |		.XXX[0x1]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153       | S  |		.CONST	0x0153								; Address of begin
0151 0004       |    |		.CONST	0x0004								; Address of exception handler
0152 0001       |    |		.CONST	0x0001								; Number of locals
0153			BODY_0150:
0153			INIT_0150:
0153 e006       |    |		Load	0x0,0x6								; Debug Table 0xc = .DEBUG	0x0153,0x029e,0x0001,0x0000,0x0036,0xf844,0x0000,0x00f9
													; Debug Table 0xc.0x0 = 0x153,0x1
0154 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0155 e006       |    |		Load	0x0,0x6
0156 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0157 e5ff       |    |		Load	0x2,-0x1
0158 e005       |    |		Load	0x0,0x5
0159 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
015a c5fe       |    |		Store	0x2,-0x2
015b c5fd       |    |		Store	0x2,-0x3
015c 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
015d 0000 0000  |    |		.XXX[0x3]
015f 0000       |    |
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163       | c  |		.CONST	0x0163								; Address of begin
0161 016a       | j  |		.CONST	0x016a								; Address of exception handler
0162 0001       |    |		.CONST	0x0001								; Number of locals
0163			BODY_0160:
0163			INIT_0160:
0163 e003       |    |		Load	0x0,0x3								; Debug Table 0xd = .DEBUG	0x0163,0x02a2,0x0002,0x0000,0x0036,0xf8e4,0x0000,0x009c
													; Debug Table 0xd.0x0 = 0x163,0x1
0164 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0165 e002       |    |		Load	0x0,0x2
0166 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0167 e21e       |    |		Load	0x1,0x1e
0168 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0169 00ca       |    |		Action	Exit_Nullary_Function
016a			TRAP_0160:
016a 0007       |    |		Action	Break_Optional
016b e21d       |    |		Load	0x1,0x1d							; Debug Table 0xd.0x1 = 0x16b,0x2
016c 00ca       |    |		Action	Exit_Nullary_Function
016d 0000 0000  |    |		.XXX[0x3]
016f 0000       |    |
0170 0000 0000  |    |		.LITERAL	{0x00000000, 0x0036f8e4}
0174 000d c013  |    |		.LITERAL	{0x000dc013, 0x00001830}
0178 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
017c 0000 0000  |    |		.BLANK	0000[0x4]
0180 0186 0004  |    |		.XXX[0x3]
0182 0015       |    |
0183 029c 0193  |    |		Declare_Subprogram	INIT_0190,For_Outer_Call,Visible		; Debug Table 0xe = .DEBUG	0x0183,0x02a8,0x4000,0x0000,0x0036,0xf844,0x0000,0x0112
													; Debug Table 0xe.0x0 = 0x183,0xffff
0185 00bf       |    |		Action	Accept_Activation						; Debug Table 0xe.0x1 = 0x185,0xfffe
0186 4800       |H   |		Short_Literal	0x0							; Debug Table 0xf = .DEBUG	0x0186,0x02ae,0x4000,0x0000,0x0036,0xf8e4,0x0000,0x0254
													; Debug Table 0xf.0x0 = 0x186,0x1
0187 8215       |    |		Call	0x1,0x15
0188 e001       |    |		Load	0x0,0x1
0189 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
018a e002       |    |		Load	0x0,0x2
018b 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
018c e003       |    |		Load	0x0,0x3
018d 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
018e 00bc       |    |		Action	Signal_Activated
018f 00bb       |    |		Action	Signal_Completion
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193       |    |		.CONST	0x0193								; Address of begin
0191 0004       |    |		.CONST	0x0004								; Address of exception handler
0192 0001       |    |		.CONST	0x0001								; Number of locals
0193			BODY_0190:
0193			INIT_0190:
0193 00b6       |    |		Action	Make_Scope							; Debug Table 0x10 = .DEBUG	0x0193,0x02b2,0x1002,0x0000,0x0036,0xf844,0x0000,0x0173
0194 020a       |    |		Execute	Module,Get_Name
0195 00ca       |    |		Action	Exit_Nullary_Function
0196 0000 0000  |    |		.XXX[0x2]
0198 ; --------------------------------------------------------------------------------------
0198 ; Debug Table
0198 ; --------------------------------------------------------------------------------------
0198 0003 0011  |    |		.CONST	0x0003,0x0011
019a 000b 0222  |   "|		.DEBUG	0x000b,0x0222,0x8000,0x0000,0x0036,0xf844,0x0000,0x000b
01a2 004e 0250  | N P|		.DEBUG	0x004e,0x0250,0x8000,0x0000,0x0036,0xf8e4,0x0000,0x000f
01aa 0083 0272  |   r|		.DEBUG	0x0083,0x0272,0x0002,0x0000,0x0036,0xf844,0x0000,0x000c
01b2 009b 0276  |   v|		.DEBUG	0x009b,0x0276,0x0002,0x0000,0x0036,0xf844,0x0000,0x001c
01ba 00ab 027a  |   z|		.DEBUG	0x00ab,0x027a,0x0002,0x0000,0x0036,0xf844,0x0000,0x0027
01c2 00bb 027e  |   ~|		.DEBUG	0x00bb,0x027e,0x0002,0x0000,0x0036,0xf844,0x0000,0x0032
01ca 00cb 0282  |    |		.DEBUG	0x00cb,0x0282,0x0001,0x0000,0x0036,0xf844,0x0000,0x0080
01d2 00e3 0286  |    |		.DEBUG	0x00e3,0x0286,0x0002,0x0000,0x0036,0xf844,0x0000,0x0096
01da 00fb 028a  |    |		.DEBUG	0x00fb,0x028a,0x0002,0x0000,0x0036,0xf844,0x0000,0x00a0
01e2 011b 028e  |    |		.DEBUG	0x011b,0x028e,0x0002,0x0000,0x0036,0xf844,0x0000,0x00aa
01ea 012b 0292  | +  |		.DEBUG	0x012b,0x0292,0x0001,0x0000,0x0036,0xf844,0x0000,0x00bb
01f2 0143 029a  | C  |		.DEBUG	0x0143,0x029a,0x0001,0x0000,0x0036,0xf844,0x0000,0x00d9
01fa 0153 029e  | S  |		.DEBUG	0x0153,0x029e,0x0001,0x0000,0x0036,0xf844,0x0000,0x00f9
0202 0163 02a2  | c  |		.DEBUG	0x0163,0x02a2,0x0002,0x0000,0x0036,0xf8e4,0x0000,0x009c
020a 0183 02a8  |    |		.DEBUG	0x0183,0x02a8,0x4000,0x0000,0x0036,0xf844,0x0000,0x0112
0212 0186 02ae  |    |		.DEBUG	0x0186,0x02ae,0x4000,0x0000,0x0036,0xf8e4,0x0000,0x0254
021a 0193 02b2  |    |		.DEBUG	0x0193,0x02b2,0x1002,0x0000,0x0036,0xf844,0x0000,0x0173
0222 ; --------------------------------------------------------------------------------------
0222 ; Debug3 Subtable 0x0
0222 ; --------------------------------------------------------------------------------------
0222 0016 0000  |    |		.DBG3TAB	0x0016,0x0000
0224 000b ffff  |    |		.CONST	0x000b,0xffff
0226 000d fffe  |    |		.CONST	0x000d,0xfffe
0228 000f fffd  |    |		.CONST	0x000f,0xfffd
022a 0011 fffc  |    |		.CONST	0x0011,0xfffc
022c 0013 fffb  |    |		.CONST	0x0013,0xfffb
022e 001a fffa  |    |		.CONST	0x001a,0xfffa
0230 0021 fff9  | !  |		.CONST	0x0021,0xfff9
0232 0030 fff8  | 0  |		.CONST	0x0030,0xfff8
0234 0032 fff7  | 2  |		.CONST	0x0032,0xfff7
0236 0034 fff6  | 4  |		.CONST	0x0034,0xfff6
0238 0036 fff5  | 6  |		.CONST	0x0036,0xfff5
023a 0038 fff4  | 8  |		.CONST	0x0038,0xfff4
023c 0039 fff3  | 9  |		.CONST	0x0039,0xfff3
023e 003b fff2  | ;  |		.CONST	0x003b,0xfff2
0240 003d fff1  | =  |		.CONST	0x003d,0xfff1
0242 003f fff0  | ?  |		.CONST	0x003f,0xfff0
0244 0042 ffef  | B  |		.CONST	0x0042,0xffef
0246 0046 ffee  | F  |		.CONST	0x0046,0xffee
0248 0047 ffed  | G  |		.CONST	0x0047,0xffed
024a 0048 ffec  | H  |		.CONST	0x0048,0xffec
024c 0049 ffeb  | I  |		.CONST	0x0049,0xffeb
024e 004a ffea  | J  |		.CONST	0x004a,0xffea
0250 ; --------------------------------------------------------------------------------------
0250 ; Debug3 Subtable 0x1
0250 ; --------------------------------------------------------------------------------------
0250 0010 0000  |    |		.DBG3TAB	0x0010,0x0000
0252 004e ffff  | N  |		.CONST	0x004e,0xffff
0254 004f fffd  | O  |		.CONST	0x004f,0xfffd
0256 0050 fffc  | P  |		.CONST	0x0050,0xfffc
0258 0059 fffb  | Y  |		.CONST	0x0059,0xfffb
025a 005b fffa  | [  |		.CONST	0x005b,0xfffa
025c 005d fff9  | ]  |		.CONST	0x005d,0xfff9
025e 005f fff8  | _  |		.CONST	0x005f,0xfff8
0260 0061 fff7  | a  |		.CONST	0x0061,0xfff7
0262 0063 fff6  | c  |		.CONST	0x0063,0xfff6
0264 0065 fff5  | e  |		.CONST	0x0065,0xfff5
0266 0067 fff4  | g  |		.CONST	0x0067,0xfff4
0268 0069 fff3  | i  |		.CONST	0x0069,0xfff3
026a 006b fff2  | k  |		.CONST	0x006b,0xfff2
026c 006d fff1  | m  |		.CONST	0x006d,0xfff1
026e 006f fff0  | o  |		.CONST	0x006f,0xfff0
0270 0071 ffef  | q  |		.CONST	0x0071,0xffef
0272 ; --------------------------------------------------------------------------------------
0272 ; Debug3 Subtable 0x2
0272 ; --------------------------------------------------------------------------------------
0272 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0274 0083 0001  |    |		.CONST	0x0083,0x0001
0276 ; --------------------------------------------------------------------------------------
0276 ; Debug3 Subtable 0x3
0276 ; --------------------------------------------------------------------------------------
0276 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0278 009b 0001  |    |		.CONST	0x009b,0x0001
027a ; --------------------------------------------------------------------------------------
027a ; Debug3 Subtable 0x4
027a ; --------------------------------------------------------------------------------------
027a 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
027c 00ab 0001  |    |		.CONST	0x00ab,0x0001
027e ; --------------------------------------------------------------------------------------
027e ; Debug3 Subtable 0x5
027e ; --------------------------------------------------------------------------------------
027e 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0280 00bb 0001  |    |		.CONST	0x00bb,0x0001
0282 ; --------------------------------------------------------------------------------------
0282 ; Debug3 Subtable 0x6
0282 ; --------------------------------------------------------------------------------------
0282 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0284 00cb 0001  |    |		.CONST	0x00cb,0x0001
0286 ; --------------------------------------------------------------------------------------
0286 ; Debug3 Subtable 0x7
0286 ; --------------------------------------------------------------------------------------
0286 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0288 00e3 0001  |    |		.CONST	0x00e3,0x0001
028a ; --------------------------------------------------------------------------------------
028a ; Debug3 Subtable 0x8
028a ; --------------------------------------------------------------------------------------
028a 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
028c 00fb 0001  |    |		.CONST	0x00fb,0x0001
028e ; --------------------------------------------------------------------------------------
028e ; Debug3 Subtable 0x9
028e ; --------------------------------------------------------------------------------------
028e 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0290 011b 0001  |    |		.CONST	0x011b,0x0001
0292 ; --------------------------------------------------------------------------------------
0292 ; Debug3 Subtable 0xa
0292 ; --------------------------------------------------------------------------------------
0292 0001 0002  |    |		.DBG3TAB	0x0001,0x0002
0294 012b ffff  | +  |		.CONST	0x012b,0xffff
0296 012d 0001  | -  |		.CONST	0x012d,0x0001
0298 013b 0002  | ;  |		.CONST	0x013b,0x0002
029a ; --------------------------------------------------------------------------------------
029a ; Debug3 Subtable 0xb
029a ; --------------------------------------------------------------------------------------
029a 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
029c 0143 0001  | C  |		.CONST	0x0143,0x0001
029e ; --------------------------------------------------------------------------------------
029e ; Debug3 Subtable 0xc
029e ; --------------------------------------------------------------------------------------
029e 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
02a0 0153 0001  | S  |		.CONST	0x0153,0x0001
02a2 ; --------------------------------------------------------------------------------------
02a2 ; Debug3 Subtable 0xd
02a2 ; --------------------------------------------------------------------------------------
02a2 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
02a4 0163 0001  | c  |		.CONST	0x0163,0x0001
02a6 016b 0002  | k  |		.CONST	0x016b,0x0002
02a8 ; --------------------------------------------------------------------------------------
02a8 ; Debug3 Subtable 0xe
02a8 ; --------------------------------------------------------------------------------------
02a8 0002 0000  |    |		.DBG3TAB	0x0002,0x0000
02aa 0183 ffff  |    |		.CONST	0x0183,0xffff
02ac 0185 fffe  |    |		.CONST	0x0185,0xfffe
02ae ; --------------------------------------------------------------------------------------
02ae ; Debug3 Subtable 0xf
02ae ; --------------------------------------------------------------------------------------
02ae 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
02b0 0186 0001  |    |		.CONST	0x0186,0x0001
02b2 ; --------------------------------------------------------------------------------------
02b2 ; Debug3 Subtable 0x10
02b2 ; --------------------------------------------------------------------------------------
02b2 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
02b4 0000 0000  |    |		.BLANK	0000[0x14c]