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

⟦b0ab53676⟧

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

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5813       |X   |		.CONST	0x5813								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0140       | @  |		.CONST	0x0140								; 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 0056       | V  |		.CONST	0x0056								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 001d       |    |		.CONST	0x001d								; Number of locals
000b			INIT_0008:
000b e001       |    |		Load	0x0,0x1								; Debug Table 0x0 = .DEBUG	0x000b,0x018a,0x8000,0x0000,0x0059,0xeca5,0x0000,0x000e
													; Debug Table 0x0.0x0 = 0xb,0xffff
000c 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
000d 0129       | )  |		Execute	Any,Make_Visible
000e e002       |    |		Load	0x0,0x2								; Debug Table 0x0.0x1 = 0xe,0xfffe
000f 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0010 0129       | )  |		Execute	Any,Make_Visible
0011 4804       |H   |		Short_Literal	0x4							; Debug Table 0x0.0x2 = 0x11,0xfffd
0012 032b       | +  |		Declare_Type	Record,Incomplete,Visible
0013 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x0.0x3 = 0x13,0xfffc
0014 02a0       |    |		Declare_Subprogram	Null_Subprogram
0015 03ae       |    |		Declare_Type	Heap_Access,Defined,Visible
0016 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x4 = 0x16,0xfffb
0017 029a 005b  |   [|		Declare_Subprogram	INIT_0058,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x5 = 0x17,0xfffa
0019 029a 0073  |   s|		Declare_Subprogram	INIT_0070,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x6 = 0x19,0xfff9
001b 029a 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x7 = 0x1b,0xfff8
001d 029a 00db  |    |		Declare_Subprogram	INIT_00d8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x8 = 0x1d,0xfff7
001f 029a 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x9 = 0x1f,0xfff6
0021 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0xa = 0x21,0xfff5
0022 029b 011b  |    |		Declare_Subprogram	INIT_0118,For_Outer_Call,Unelaborated		; Debug Table 0x0.0xb = 0x22,0xfff4
0024 6113       |a   |		Indirect_Literal	Discrete,0x138,{0x00000000, 0x0059eca5}		; Debug Table 0x0.0xc = 0x24,0xfff3
0025 489b       |H   |		Short_Literal	0x9b
0026 e20e       |    |		Load	0x1,0xe
0027 e003       |    |		Load	0x0,0x3
0028 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0029 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
002a 4837       |H7  |		Short_Literal	0x37
002b 4806       |H   |		Short_Literal	0x6
002c 4871       |Hq  |		Short_Literal	0x71
002d e004       |    |		Load	0x0,0x4
002e 0387       |    |		Declare_Variable	Package
002f 00d8       |    |		Load_Top	At_Offset_0
0030 020f       |    |		Execute	Module,Activate
0031 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x0.0xd = 0x31,0xfff2
0032 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
0033 e20f       |    |		Load	0x1,0xf
0034 0325       | %  |		Complete_Type	Record,By_Renaming
0035 00bf       |    |		Action	Accept_Activation
0036 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16				; Debug Table 0x1 = .DEBUG	0x0036,0x01a8,0x8000,0x0000,0x0059,0xf0e5,0x0000,0x000b
													; Debug Table 0x1.0x0 = 0x36,0xffff
0037 00c7       |    |		Action	Elaborate_Subprogram
0038 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11				; Debug Table 0x1.0x1 = 0x38,0xfffe
0039 00c7       |    |		Action	Elaborate_Subprogram
003a 60f9       |`   |		Indirect_Literal	Discrete,0x134,{0x00000000, 0x0059f0e5}		; Debug Table 0x1.0x2 = 0x3a,0xfffd
003b 4852       |HR  |		Short_Literal	0x52
003c e20f       |    |		Load	0x1,0xf
003d e210       |    |		Load	0x1,0x10
003e e005       |    |		Load	0x0,0x5
003f 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0040 0387       |    |		Declare_Variable	Package
0041 00d8       |    |		Load_Top	At_Offset_0
0042 020f       |    |		Execute	Module,Activate
0043 e005       |    |		Load	0x0,0x5								; Debug Table 0x1.0x3 = 0x43,0xfffc
0044 1919       |    |		Execute	Package,Field_Reference,Field_Number 0x19
0045 00c6       |    |		Action	Check_Subprogram_Elaborated
0046 00d9       |    |		Load_Top	At_Offset_1
0047 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
0048 00da       |    |		Load_Top	At_Offset_2
0049 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
004a 60e9       |`   |		Indirect_Literal	Discrete,0x134,{0x00000000, 0x0059f0e5}
004b 485b       |H[  |		Short_Literal	0x5b
004c 4800       |H   |		Short_Literal	0x0
004d 0007       |    |		Action	Break_Optional
004e 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12				; Debug Table 0x1.0x4 = 0x4e,0xfffb
004f 00c7       |    |		Action	Elaborate_Subprogram
0050 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13				; Debug Table 0x1.0x5 = 0x50,0xfffa
0051 00c7       |    |		Action	Elaborate_Subprogram
0052 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14				; Debug Table 0x1.0x6 = 0x52,0xfff9
0053 00c7       |    |		Action	Elaborate_Subprogram
0054 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15				; Debug Table 0x1.0x7 = 0x54,0xfff8
0055 00c7       |    |		Action	Elaborate_Subprogram
0056			BODY_0008:
0056 00bc       |    |		Action	Signal_Activated
0057 00bb       |    |		Action	Signal_Completion
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b       | [  |		.CONST	0x005b								; Address of begin
0059 0064       | d  |		.CONST	0x0064								; Address of exception handler
005a 0001       |    |		.CONST	0x0001								; Number of locals
005b			BODY_0058:
005b			INIT_0058:
005b 487e       |H~  |		Short_Literal	0x7e							; Debug Table 0x2 = .DEBUG	0x005b,0x01ba,0x0001,0x0000,0x0059,0xeca5,0x0000,0x0029
													; Debug Table 0x2.0x0 = 0x5b,0x1
005c a5fe       |    |		Store_Unchecked	0x2,-0x2
005d 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x2.0x1 = 0x5d,0x2
005e e217       |    |		Load	0x1,0x17
005f 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0060 00d1       |    |		Pop_Control	Pop_Count_1
0061 4800       |H   |		Short_Literal	0x0							; Debug Table 0x2.0x2 = 0x61,0x3
0062 a5fe       |    |		Store_Unchecked	0x2,-0x2
0063 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0064			TRAP_0058:
0064 4885       |H   |		Short_Literal	0x85
0065 010f       |    |		Execute	Exception,Equal
0066 6803       |h   |		Jump_Zero	0x6a
0067 483c       |H<  |		Short_Literal	0x3c							; Debug Table 0x2.0x3 = 0x67,0x4
0068 a5fe       |    |		Store_Unchecked	0x2,-0x2
0069 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
006a 0100       |    |		Execute	Exception,Raise
006b 0000 0000  |    |		.BLANK	0000[0x5]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0076       | v  |		.CONST	0x0076								; Address of begin
0071 009b       |    |		.CONST	0x009b								; Address of exception handler
0072 0003       |    |		.CONST	0x0003								; Number of locals
0073			INIT_0070:
0073 e217       |    |		Load	0x1,0x17							; Debug Table 0x3 = .DEBUG	0x0073,0x01c4,0x0001,0x0000,0x0059,0xeca5,0x0000,0x0035
													; Debug Table 0x3.0x0 = 0x73,0xffff
0074 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0075 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x3.0x1 = 0x75,0xfffe
0076			BODY_0070:
0076 487e       |H~  |		Short_Literal	0x7e							; Debug Table 0x3.0x2 = 0x76,0x1
0077 a5fc       |    |		Store_Unchecked	0x2,-0x4
0078 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x3.0x3 = 0x78,0x2
0079 e217       |    |		Load	0x1,0x17
007a 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
007b e5ff       |    |		Load	0x2,-0x1
007c e5fd       |    |		Load	0x2,-0x3
007d e218       |    |		Load	0x1,0x18
007e 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
007f e5fd       |    |		Load	0x2,-0x3
0080 e218       |    |		Load	0x1,0x18
0081 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0082 e219       |    |		Load	0x1,0x19
0083 e21a       |    |		Load	0x1,0x1a
0084 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0085 e005       |    |		Load	0x0,0x5
0086 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0087 e217       |    |		Load	0x1,0x17
0088 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0089 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
008a 0059       | Y  |		Store_Top	Discrete,At_Offset_1
008b e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x3.0x4 = 0x8b,0x3
008c 00da       |    |		Load_Top	At_Offset_2
008d 0217       |    |		Execute	Heap_Access,All_Reference
008e 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
008f e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x3.0x5 = 0x8f,0x4
0090 00da       |    |		Load_Top	At_Offset_2
0091 0217       |    |		Execute	Heap_Access,All_Reference
0092 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0093 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x6 = 0x93,0x5
0094 6803       |h   |		Jump_Zero	0x98
0095 483f       |H?  |		Short_Literal	0x3f							; Debug Table 0x3.0x7 = 0x95,0x6
0096 a5fc       |    |		Store_Unchecked	0x2,-0x4
0097 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0098 4800       |H   |		Short_Literal	0x0							; Debug Table 0x3.0x8 = 0x98,0x7
0099 a5fc       |    |		Store_Unchecked	0x2,-0x4
009a 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
009b			TRAP_0070:
009b e001       |    |		Load	0x0,0x1
009c 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
009d 010f       |    |		Execute	Exception,Equal
009e 6801       |h   |		Jump_Zero	0xa0
009f 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0x3.0x9 = 0x9f,0x8
00a0 4885       |H   |		Short_Literal	0x85
00a1 010f       |    |		Execute	Exception,Equal
00a2 6803       |h   |		Jump_Zero	0xa6
00a3 483d       |H=  |		Short_Literal	0x3d							; Debug Table 0x3.0xa = 0xa3,0x9
00a4 a5fc       |    |		Store_Unchecked	0x2,-0x4
00a5 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00a6 0100       |    |		Execute	Exception,Raise
00a7 0000       |    |		.XXX[0x1]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ad       |    |		.CONST	0x00ad								; Address of begin
00a9 00c8       |    |		.CONST	0x00c8								; Address of exception handler
00aa 0002       |    |		.CONST	0x0002								; Number of locals
00ab			INIT_00a8:
00ab e217       |    |		Load	0x1,0x17							; Debug Table 0x4 = .DEBUG	0x00ab,0x01dc,0x0001,0x0000,0x0059,0xeca5,0x0000,0x004b
													; Debug Table 0x4.0x0 = 0xab,0xffff
00ac 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
00ad			BODY_00a8:
00ad 487e       |H~  |		Short_Literal	0x7e							; Debug Table 0x4.0x1 = 0xad,0x1
00ae a5fd       |    |		Store_Unchecked	0x2,-0x3
00af e003       |    |		Load	0x0,0x3								; Debug Table 0x4.0x2 = 0xaf,0x2
00b0 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00b1 c5fe       |    |		Store	0x2,-0x2
00b2 e217       |    |		Load	0x1,0x17							; Debug Table 0x4.0x3 = 0xb2,0x3
00b3 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
00b4 e5fc       |    |		Load	0x2,-0x4
00b5 e5ff       |    |		Load	0x2,-0x1
00b6 e217       |    |		Load	0x1,0x17
00b7 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
00b8 00d1       |    |		Pop_Control	Pop_Count_1
00b9 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
00ba 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x4.0x4 = 0xba,0x4
00bb 7005       |p   |		Jump_Nonzero	0xc1
00bc 483e       |H>  |		Short_Literal	0x3e							; Debug Table 0x4.0x5 = 0xbc,0x5
00bd a5fd       |    |		Store_Unchecked	0x2,-0x3
00be e001       |    |		Load	0x0,0x1								; Debug Table 0x4.0x6 = 0xbe,0x6
00bf 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
00c0 0257       | W  |		Execute	Discrete,Raise
00c1 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x4.0x7 = 0xc1,0x7
00c2 0217       |    |		Execute	Heap_Access,All_Reference
00c3 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00c4 c5fe       |    |		Store	0x2,-0x2
00c5 4800       |H   |		Short_Literal	0x0							; Debug Table 0x4.0x8 = 0xc5,0x8
00c6 a5fd       |    |		Store_Unchecked	0x2,-0x3
00c7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00c8			TRAP_00a8:
00c8 e001       |    |		Load	0x0,0x1
00c9 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
00ca 010f       |    |		Execute	Exception,Equal
00cb 6801       |h   |		Jump_Zero	0xcd
00cc 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; Debug Table 0x4.0x9 = 0xcc,0x9
00cd 4885       |H   |		Short_Literal	0x85
00ce 010f       |    |		Execute	Exception,Equal
00cf 6803       |h   |		Jump_Zero	0xd3
00d0 483c       |H<  |		Short_Literal	0x3c							; Debug Table 0x4.0xa = 0xd0,0xa
00d1 a5fd       |    |		Store_Unchecked	0x2,-0x3
00d2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00d3 0100       |    |		Execute	Exception,Raise
00d4 0000 0000  |    |		.BLANK	0000[0x4]
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 487e       |H~  |		Short_Literal	0x7e							; Debug Table 0x5 = .DEBUG	0x00db,0x01f4,0x0001,0x0000,0x0059,0xeca5,0x0000,0x0061
													; Debug Table 0x5.0x0 = 0xdb,0x1
00dc a5fd       |    |		Store_Unchecked	0x2,-0x3
00dd 4800       |H   |		Short_Literal	0x0							; Debug Table 0x5.0x1 = 0xdd,0x2
00de a5fe       |    |		Store_Unchecked	0x2,-0x2
00df 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x5.0x2 = 0xdf,0x3
00e0 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00e1 a5fe       |    |		Store_Unchecked	0x2,-0x2
00e2 4800       |H   |		Short_Literal	0x0							; Debug Table 0x5.0x3 = 0xe2,0x4
00e3 a5fd       |    |		Store_Unchecked	0x2,-0x3
00e4 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00e5 0000 0000  |    |		.XXX[0x3]
00e7 0000       |    |
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00f7       |    |		.CONST	0x00f7								; Address of begin
00e9 0106       |    |		.CONST	0x0106								; Address of exception handler
00ea 0006       |    |		.CONST	0x0006								; Number of locals
00eb			INIT_00e8:
00eb 029f 012b  |   +|		Declare_Subprogram	INIT_0128,For_Call				; Debug Table 0x6 = .DEBUG	0x00eb,0x01fe,0x2801,0x0002,0x0059,0xeca5,0x0000,0x0071
													; Debug Table 0x6.0x0 = 0xeb,0xffff
00ed e217       |    |		Load	0x1,0x17							; Debug Table 0x6.0x1 = 0xed,0xfffe
00ee 1923       | #  |		Execute	Package,Field_Reference,Field_Number 0x23
00ef 00c6       |    |		Action	Check_Subprogram_Elaborated
00f0 4802       |H   |		Short_Literal	0x2
00f1 4802       |H   |		Short_Literal	0x2
00f2 0099       |    |		Action	Reference_Dynamic
00f3 6040       |`@  |		Indirect_Literal	Discrete,0x134,{0x00000000, 0x0059f0e5}
00f4 4989       |I   |		Short_Literal	0x189
00f5 4806       |H   |		Short_Literal	0x6
00f6 0007       |    |		Action	Break_Optional
00f7			BODY_00e8:
00f7 487e       |H~  |		Short_Literal	0x7e							; Debug Table 0x6.0x2 = 0xf7,0x1
00f8 a5fc       |    |		Store_Unchecked	0x2,-0x4
00f9 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x6.0x3 = 0xf9,0x2
00fa 4803       |H   |		Short_Literal	0x3
00fb 4802       |H   |		Short_Literal	0x2
00fc 0099       |    |		Action	Reference_Dynamic
00fd 4804       |H   |		Short_Literal	0x4
00fe 4802       |H   |		Short_Literal	0x2
00ff 0099       |    |		Action	Reference_Dynamic
0100 e217       |    |		Load	0x1,0x17
0101 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0102 00d1       |    |		Pop_Control	Pop_Count_1
0103 4800       |H   |		Short_Literal	0x0							; Debug Table 0x6.0x4 = 0x103,0x3
0104 a5fc       |    |		Store_Unchecked	0x2,-0x4
0105 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0106			TRAP_00e8:
0106 e001       |    |		Load	0x0,0x1
0107 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0108 010f       |    |		Execute	Exception,Equal
0109 6801       |h   |		Jump_Zero	0x10b
010a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; Debug Table 0x6.0x5 = 0x10a,0x4
010b 4885       |H   |		Short_Literal	0x85
010c 010f       |    |		Execute	Exception,Equal
010d 6803       |h   |		Jump_Zero	0x111
010e 483c       |H<  |		Short_Literal	0x3c							; Debug Table 0x6.0x6 = 0x10e,0x5
010f a5fc       |    |		Store_Unchecked	0x2,-0x4
0110 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0111 0100       |    |		Execute	Exception,Raise
0112 0000 0000  |    |		.BLANK	0000[0x6]
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 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x7 = .DEBUG	0x011b,0x020e,0x0002,0x0000,0x0059,0xeca5,0x0000,0x0092
													; Debug Table 0x7.0x0 = 0x11b,0x1
011c 4871       |Hq  |		Short_Literal	0x71
011d 026e       | n  |		Execute	Discrete,Modulo
011e 00e3       |    |		Load_Encached	Natural_Cache
011f 025b       | [  |		Execute	Discrete,Check_In_Type
0120 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0121 0000 0000  |    |		.BLANK	0000[0x7]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b       | +  |		.CONST	0x012b								; Address of begin
0129 0004       |    |		.CONST	0x0004								; Address of exception handler
012a 0001       |    |		.CONST	0x0001								; Number of locals
012b			BODY_0128:
012b			INIT_0128:
012b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x8 = .DEBUG	0x012b,0x0212,0x0801,0x0002,0x0059,0xf0e5,0x0000,0x0172
													; Debug Table 0x8.0x0 = 0x12b,0x1
012c 0217       |    |		Execute	Heap_Access,All_Reference
012d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
012e 00db       |    |		Load_Top	At_Offset_3
012f 0217       |    |		Execute	Heap_Access,All_Reference
0130 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0131 85fe       |    |		Call	0x2,-0x2
0132 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0133 0000       |    |		.XXX[0x1]
0134 0000 0000  |    |		.LITERAL	{0x00000000, 0x0059f0e5}
0138 0000 0000  |    |		.LITERAL	{0x00000000, 0x0059eca5}
013c 0000 0000  |    |		.BLANK	0000[0x4]
0140 ; --------------------------------------------------------------------------------------
0140 ; Debug Table
0140 ; --------------------------------------------------------------------------------------
0140 0003 0009  |    |		.CONST	0x0003,0x0009
0142 000b 018a  |    |		.DEBUG	0x000b,0x018a,0x8000,0x0000,0x0059,0xeca5,0x0000,0x000e
014a 0036 01a8  | 6  |		.DEBUG	0x0036,0x01a8,0x8000,0x0000,0x0059,0xf0e5,0x0000,0x000b
0152 005b 01ba  | [  |		.DEBUG	0x005b,0x01ba,0x0001,0x0000,0x0059,0xeca5,0x0000,0x0029
015a 0073 01c4  | s  |		.DEBUG	0x0073,0x01c4,0x0001,0x0000,0x0059,0xeca5,0x0000,0x0035
0162 00ab 01dc  |    |		.DEBUG	0x00ab,0x01dc,0x0001,0x0000,0x0059,0xeca5,0x0000,0x004b
016a 00db 01f4  |    |		.DEBUG	0x00db,0x01f4,0x0001,0x0000,0x0059,0xeca5,0x0000,0x0061
0172 00eb 01fe  |    |		.DEBUG	0x00eb,0x01fe,0x2801,0x0002,0x0059,0xeca5,0x0000,0x0071
017a 011b 020e  |    |		.DEBUG	0x011b,0x020e,0x0002,0x0000,0x0059,0xeca5,0x0000,0x0092
0182 012b 0212  | +  |		.DEBUG	0x012b,0x0212,0x0801,0x0002,0x0059,0xf0e5,0x0000,0x0172
018a ; --------------------------------------------------------------------------------------
018a ; Debug3 Subtable 0x0
018a ; --------------------------------------------------------------------------------------
018a 000e 0000  |    |		.DBG3TAB	0x000e,0x0000
018c 000b ffff  |    |		.CONST	0x000b,0xffff
018e 000e fffe  |    |		.CONST	0x000e,0xfffe
0190 0011 fffd  |    |		.CONST	0x0011,0xfffd
0192 0013 fffc  |    |		.CONST	0x0013,0xfffc
0194 0016 fffb  |    |		.CONST	0x0016,0xfffb
0196 0017 fffa  |    |		.CONST	0x0017,0xfffa
0198 0019 fff9  |    |		.CONST	0x0019,0xfff9
019a 001b fff8  |    |		.CONST	0x001b,0xfff8
019c 001d fff7  |    |		.CONST	0x001d,0xfff7
019e 001f fff6  |    |		.CONST	0x001f,0xfff6
01a0 0021 fff5  | !  |		.CONST	0x0021,0xfff5
01a2 0022 fff4  | "  |		.CONST	0x0022,0xfff4
01a4 0024 fff3  | $  |		.CONST	0x0024,0xfff3
01a6 0031 fff2  | 1  |		.CONST	0x0031,0xfff2
01a8 ; --------------------------------------------------------------------------------------
01a8 ; Debug3 Subtable 0x1
01a8 ; --------------------------------------------------------------------------------------
01a8 0008 0000  |    |		.DBG3TAB	0x0008,0x0000
01aa 0036 ffff  | 6  |		.CONST	0x0036,0xffff
01ac 0038 fffe  | 8  |		.CONST	0x0038,0xfffe
01ae 003a fffd  | :  |		.CONST	0x003a,0xfffd
01b0 0043 fffc  | C  |		.CONST	0x0043,0xfffc
01b2 004e fffb  | N  |		.CONST	0x004e,0xfffb
01b4 0050 fffa  | P  |		.CONST	0x0050,0xfffa
01b6 0052 fff9  | R  |		.CONST	0x0052,0xfff9
01b8 0054 fff8  | T  |		.CONST	0x0054,0xfff8
01ba ; --------------------------------------------------------------------------------------
01ba ; Debug3 Subtable 0x2
01ba ; --------------------------------------------------------------------------------------
01ba 0000 0004  |    |		.DBG3TAB	0x0000,0x0004
01bc 005b 0001  | [  |		.CONST	0x005b,0x0001
01be 005d 0002  | ]  |		.CONST	0x005d,0x0002
01c0 0061 0003  | a  |		.CONST	0x0061,0x0003
01c2 0067 0004  | g  |		.CONST	0x0067,0x0004
01c4 ; --------------------------------------------------------------------------------------
01c4 ; Debug3 Subtable 0x3
01c4 ; --------------------------------------------------------------------------------------
01c4 0002 0009  |    |		.DBG3TAB	0x0002,0x0009
01c6 0073 ffff  | s  |		.CONST	0x0073,0xffff
01c8 0075 fffe  | u  |		.CONST	0x0075,0xfffe
01ca 0076 0001  | v  |		.CONST	0x0076,0x0001
01cc 0078 0002  | x  |		.CONST	0x0078,0x0002
01ce 008b 0003  |    |		.CONST	0x008b,0x0003
01d0 008f 0004  |    |		.CONST	0x008f,0x0004
01d2 0093 0005  |    |		.CONST	0x0093,0x0005
01d4 0095 0006  |    |		.CONST	0x0095,0x0006
01d6 0098 0007  |    |		.CONST	0x0098,0x0007
01d8 009f 0008  |    |		.CONST	0x009f,0x0008
01da 00a3 0009  |    |		.CONST	0x00a3,0x0009
01dc ; --------------------------------------------------------------------------------------
01dc ; Debug3 Subtable 0x4
01dc ; --------------------------------------------------------------------------------------
01dc 0001 000a  |    |		.DBG3TAB	0x0001,0x000a
01de 00ab ffff  |    |		.CONST	0x00ab,0xffff
01e0 00ad 0001  |    |		.CONST	0x00ad,0x0001
01e2 00af 0002  |    |		.CONST	0x00af,0x0002
01e4 00b2 0003  |    |		.CONST	0x00b2,0x0003
01e6 00ba 0004  |    |		.CONST	0x00ba,0x0004
01e8 00bc 0005  |    |		.CONST	0x00bc,0x0005
01ea 00be 0006  |    |		.CONST	0x00be,0x0006
01ec 00c1 0007  |    |		.CONST	0x00c1,0x0007
01ee 00c5 0008  |    |		.CONST	0x00c5,0x0008
01f0 00cc 0009  |    |		.CONST	0x00cc,0x0009
01f2 00d0 000a  |    |		.CONST	0x00d0,0x000a
01f4 ; --------------------------------------------------------------------------------------
01f4 ; Debug3 Subtable 0x5
01f4 ; --------------------------------------------------------------------------------------
01f4 0000 0004  |    |		.DBG3TAB	0x0000,0x0004
01f6 00db 0001  |    |		.CONST	0x00db,0x0001
01f8 00dd 0002  |    |		.CONST	0x00dd,0x0002
01fa 00df 0003  |    |		.CONST	0x00df,0x0003
01fc 00e2 0004  |    |		.CONST	0x00e2,0x0004
01fe ; --------------------------------------------------------------------------------------
01fe ; Debug3 Subtable 0x6
01fe ; --------------------------------------------------------------------------------------
01fe 0002 0005  |    |		.DBG3TAB	0x0002,0x0005
0200 00eb ffff  |    |		.CONST	0x00eb,0xffff
0202 00ed fffe  |    |		.CONST	0x00ed,0xfffe
0204 00f7 0001  |    |		.CONST	0x00f7,0x0001
0206 00f9 0002  |    |		.CONST	0x00f9,0x0002
0208 0103 0003  |    |		.CONST	0x0103,0x0003
020a 010a 0004  |    |		.CONST	0x010a,0x0004
020c 010e 0005  |    |		.CONST	0x010e,0x0005
020e ; --------------------------------------------------------------------------------------
020e ; Debug3 Subtable 0x7
020e ; --------------------------------------------------------------------------------------
020e 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0210 011b 0001  |    |		.CONST	0x011b,0x0001
0212 ; --------------------------------------------------------------------------------------
0212 ; Debug3 Subtable 0x8
0212 ; --------------------------------------------------------------------------------------
0212 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0214 012b 0001  | +  |		.CONST	0x012b,0x0001
0216 0000 0000  |    |		.BLANK	0000[0x1ea]