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

⟦d0f87d944⟧

    Length: 2048 (0x800)
    Notes: 00_class, 5813_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 5813       |X   |		.CONST	0x5813								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0178       | x  |		.CONST	0x0178								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 0001       |    |		.CONST	0x0001								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0085       |    |		.CONST	0x0085								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0028       | (  |		.CONST	0x0028								; Number of locals
000b			INIT_0008:
000b e001       |    |		Load	0x0,0x1								; Debug Table 0x0 = .DEBUG	0x000b,0x01c2,0xc000,0x0000,0x0058,0x6ac5,0x0000,0x000c
													; Debug Table 0x0.0x0 = 0xb,0xffff
000c 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
000d 0129       | )  |		Execute	Any,Make_Visible
000e 4804       |H   |		Short_Literal	0x4							; Debug Table 0x0.0x1 = 0xe,0xfffe
000f 032b       | +  |		Declare_Type	Record,Incomplete,Visible
0010 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x0.0x2 = 0x10,0xfffd
0011 02a0       |    |		Declare_Subprogram	Null_Subprogram
0012 03ae       |    |		Declare_Type	Heap_Access,Defined,Visible
0013 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x3 = 0x13,0xfffc
0014 029a 008b  |    |		Declare_Subprogram	INIT_0088,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x4 = 0x14,0xfffb
0016 e20f       |    |		Load	0x1,0xf								; Debug Table 0x0.0x5 = 0x16,0xfffa
0017 02a0       |    |		Declare_Subprogram	Null_Subprogram
0018 03ae       |    |		Declare_Type	Heap_Access,Defined,Visible
0019 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x6 = 0x19,0xfff9
001a 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x7 = 0x1a,0xfff8
001c 029a 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x8 = 0x1c,0xfff7
001e 029a 0113  |    |		Declare_Subprogram	INIT_0110,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x9 = 0x1e,0xfff6
0020 029a 0123  |   #|		Declare_Subprogram	INIT_0120,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xa = 0x20,0xfff5
0022 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0xb = 0x22,0xfff4
0023 4802       |H   |		Short_Literal	0x2
0024 e002       |    |		Load	0x0,0x2
0025 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0026 012c       | ,  |		Execute	Any,Size
0027 026d       | m  |		Execute	Discrete,Exponentiate
0028 0aff       |    |		Execute_Immediate	Plus,-0x1
0029 00e5       |    |		Load_Encached	Long_Integer_Cache
002a 03f8       |    |		Declare_Type	Discrete,Constrained
002b 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x0.0xc = 0x2b,0xfff3
002c 012c       | ,  |		Execute	Any,Size
002d e002       |    |		Load	0x0,0x2
002e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
002f 012c       | ,  |		Execute	Any,Size
0030 027f       |    |		Execute	Discrete,Equal
0031 7002       |p   |		Jump_Nonzero	0x34
0032 4887       |H   |		Short_Literal	0x87
0033 0257       | W  |		Execute	Discrete,Raise
0034 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0xd = 0x34,0xfff2
0035 029b 0153  |   S|		Declare_Subprogram	INIT_0150,For_Outer_Call,Unelaborated		; Debug Table 0x0.0xe = 0x35,0xfff1
0037 6138       |a8  |		Indirect_Literal	Discrete,0x170,{0x00000000, 0x00586ac5}		; Debug Table 0x0.0xf = 0x37,0xfff0
0038 48c7       |H   |		Short_Literal	0xc7
0039 00db       |    |		Load_Top	At_Offset_3
003a e20f       |    |		Load	0x1,0xf
003b 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
003c 612f       |a/  |		Indirect_Literal	Discrete,0x16c,{0x00000000, 0x7fffffff}
003d 4806       |H   |		Short_Literal	0x6
003e 4871       |Hq  |		Short_Literal	0x71
003f e003       |    |		Load	0x0,0x3
0040 0387       |    |		Declare_Variable	Package
0041 00d8       |    |		Load_Top	At_Offset_0
0042 020f       |    |		Execute	Module,Activate
0043 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x0.0x10 = 0x43,0xffef
0044 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
0045 e211       |    |		Load	0x1,0x11
0046 0325       | %  |		Complete_Type	Record,By_Renaming
0047 00bf       |    |		Action	Accept_Activation
0048 611f       |a   |		Indirect_Literal	Discrete,0x168,{0x00000000, 0x005874f5}		; Debug Table 0x1 = .DEBUG	0x0048,0x01e6,0xc000,0x0000,0x0058,0x74f5,0x0000,0x000d
													; Debug Table 0x1.0x0 = 0x48,0xffff
0049 480e       |H   |		Short_Literal	0xe
004a e219       |    |		Load	0x1,0x19
004b e002       |    |		Load	0x0,0x2
004c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
004d e004       |    |		Load	0x0,0x4
004e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
004f 0387       |    |		Declare_Variable	Package
0050 00d8       |    |		Load_Top	At_Offset_0
0051 020f       |    |		Execute	Module,Activate
0052 6115       |a   |		Indirect_Literal	Discrete,0x168,{0x00000000, 0x005874f5}		; Debug Table 0x1.0x1 = 0x52,0xfffe
0053 4819       |H   |		Short_Literal	0x19
0054 e002       |    |		Load	0x0,0x2
0055 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0056 e219       |    |		Load	0x1,0x19
0057 e004       |    |		Load	0x0,0x4
0058 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0059 0387       |    |		Declare_Variable	Package
005a 00d8       |    |		Load_Top	At_Offset_0
005b 020f       |    |		Execute	Module,Activate
005c 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a				; Debug Table 0x1.0x2 = 0x5c,0xfffd
005d 00c7       |    |		Action	Elaborate_Subprogram
005e 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13				; Debug Table 0x1.0x3 = 0x5e,0xfffc
005f 00c7       |    |		Action	Elaborate_Subprogram
0060 6107       |a   |		Indirect_Literal	Discrete,0x168,{0x00000000, 0x005874f5}		; Debug Table 0x1.0x4 = 0x60,0xfffb
0061 484c       |HL  |		Short_Literal	0x4c
0062 e211       |    |		Load	0x1,0x11
0063 e212       |    |		Load	0x1,0x12
0064 e005       |    |		Load	0x0,0x5
0065 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0066 0387       |    |		Declare_Variable	Package
0067 00d8       |    |		Load_Top	At_Offset_0
0068 020f       |    |		Execute	Module,Activate
0069 e005       |    |		Load	0x0,0x5								; Debug Table 0x1.0x5 = 0x69,0xfffa
006a 1919       |    |		Execute	Package,Field_Reference,Field_Number 0x19
006b 00c6       |    |		Action	Check_Subprogram_Elaborated
006c 00db       |    |		Load_Top	At_Offset_3
006d 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
006e e21b       |    |		Load	0x1,0x1b
006f 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
0070 60f7       |`   |		Indirect_Literal	Discrete,0x168,{0x00000000, 0x005874f5}
0071 4855       |HU  |		Short_Literal	0x55
0072 4800       |H   |		Short_Literal	0x0
0073 0007       |    |		Action	Break_Optional
0074 e005       |    |		Load	0x0,0x5								; Debug Table 0x1.0x6 = 0x74,0xfff9
0075 1919       |    |		Execute	Package,Field_Reference,Field_Number 0x19
0076 00c6       |    |		Action	Check_Subprogram_Elaborated
0077 e20f       |    |		Load	0x1,0xf
0078 e214       |    |		Load	0x1,0x14
0079 60ee       |`   |		Indirect_Literal	Discrete,0x168,{0x00000000, 0x005874f5}
007a 4866       |Hf  |		Short_Literal	0x66
007b 4800       |H   |		Short_Literal	0x0
007c 0007       |    |		Action	Break_Optional
007d 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15				; Debug Table 0x1.0x7 = 0x7d,0xfff8
007e 00c7       |    |		Action	Elaborate_Subprogram
007f 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16				; Debug Table 0x1.0x8 = 0x7f,0xfff7
0080 00c7       |    |		Action	Elaborate_Subprogram
0081 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17				; Debug Table 0x1.0x9 = 0x81,0xfff6
0082 00c7       |    |		Action	Elaborate_Subprogram
0083 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18				; Debug Table 0x1.0xa = 0x83,0xfff5
0084 00c7       |    |		Action	Elaborate_Subprogram
0085			BODY_0008:
0085 00bc       |    |		Action	Signal_Activated
0086 00bb       |    |		Action	Signal_Completion
0087 0000       |    |		.XXX[0x1]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b       |    |		.CONST	0x008b								; Address of begin
0089 0004       |    |		.CONST	0x0004								; Address of exception handler
008a 0001       |    |		.CONST	0x0001								; Number of locals
008b			BODY_0088:
008b			INIT_0088:
008b 4800       |H   |		Short_Literal	0x0							; Debug Table 0x2 = .DEBUG	0x008b,0x01fe,0x1001,0x0000,0x0058,0x6ac5,0x0000,0x0026
													; Debug Table 0x2.0x0 = 0x8b,0x1
008c a5fe       |    |		Store_Unchecked	0x2,-0x2
008d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
008e 0000 0000  |    |		.XXX[0x2]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0099       |    |		.CONST	0x0099								; Address of begin
0091 00d5       |    |		.CONST	0x00d5								; Address of exception handler
0092 0005       |    |		.CONST	0x0005								; Number of locals
0093			INIT_0090:
0093 e21b       |    |		Load	0x1,0x1b							; Debug Table 0x3 = .DEBUG	0x0093,0x0202,0x1001,0x0000,0x0058,0x6ac5,0x0000,0x003c
													; Debug Table 0x3.0x0 = 0x93,0xffff
0094 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0095 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x3.0x1 = 0x95,0xfffe
0096 e219       |    |		Load	0x1,0x19							; Debug Table 0x3.0x2 = 0x96,0xfffd
0097 0007       |    |		Action	Break_Optional
0098 00f0       |    |		Load_Encached	Segment_Cache						; Debug Table 0x3.0x3 = 0x98,0xfffc
0099			BODY_0090:
0099 487e       |H~  |		Short_Literal	0x7e							; Debug Table 0x3.0x4 = 0x99,0x1
009a a5fb       |    |		Store_Unchecked	0x2,-0x5
009b e214       |    |		Load	0x1,0x14							; Debug Table 0x3.0x5 = 0x9b,0x2
009c a5fc       |    |		Store_Unchecked	0x2,-0x4
009d e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x3.0x6 = 0x9d,0x3
009e e21d       |    |		Load	0x1,0x1d
009f 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00a0 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
00a1 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x3.0x7 = 0xa1,0x4
00a2 e21e       |    |		Load	0x1,0x1e
00a3 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00a4 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
00a5 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x3.0x8 = 0xa5,0x5
00a6 e21b       |    |		Load	0x1,0x1b
00a7 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
00a8 00db       |    |		Load_Top	At_Offset_3
00a9 e5fd       |    |		Load	0x2,-0x3
00aa e21e       |    |		Load	0x1,0x1e
00ab 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
00ac e405       |    |		Load	0x2,0x5
00ad e21f       |    |		Load	0x1,0x1f
00ae e220       |    |		Load	0x1,0x20
00af 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
00b0 e005       |    |		Load	0x0,0x5
00b1 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
00b2 e21b       |    |		Load	0x1,0x1b
00b3 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
00b4 c402       |    |		Store	0x2,0x2
00b5 005b       | [  |		Store_Top	Discrete,At_Offset_3
00b6 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x3.0x9 = 0xb6,0x6
00b7 7005       |p   |		Jump_Nonzero	0xbd
00b8 4852       |HR  |		Short_Literal	0x52							; Debug Table 0x3.0xa = 0xb8,0x7
00b9 a5fb       |    |		Store_Unchecked	0x2,-0x5
00ba e001       |    |		Load	0x0,0x1								; Debug Table 0x3.0xb = 0xba,0x8
00bb 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
00bc 0257       | W  |		Execute	Discrete,Raise
00bd 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x3.0xc = 0xbd,0x9
00be e402       |    |		Load	0x2,0x2
00bf 0217       |    |		Execute	Heap_Access,All_Reference
00c0 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00c1 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x3.0xd = 0xc1,0xa
00c2 e402       |    |		Load	0x2,0x2
00c3 0217       |    |		Execute	Heap_Access,All_Reference
00c4 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00c5 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x3.0xe = 0xc5,0xb
00c6 0217       |    |		Execute	Heap_Access,All_Reference
00c7 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
00c8 012d       | -  |		Execute	Any,Address
00c9 e006       |    |		Load	0x0,0x6
00ca 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00cb 00d9       |    |		Load_Top	At_Offset_1
00cc e224       | $  |		Load	0x1,0x24
00cd e225       | %  |		Load	0x1,0x25
00ce 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
00cf e005       |    |		Load	0x0,0x5
00d0 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
00d1 a5fc       |    |		Store_Unchecked	0x2,-0x4
00d2 4800       |H   |		Short_Literal	0x0							; Debug Table 0x3.0xf = 0xd2,0xc
00d3 a5fb       |    |		Store_Unchecked	0x2,-0x5
00d4 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00d5			TRAP_0090:
00d5 e001       |    |		Load	0x0,0x1
00d6 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
00d7 010f       |    |		Execute	Exception,Equal
00d8 6801       |h   |		Jump_Zero	0xda
00d9 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0x3.0x10 = 0xd9,0xd
00da 4885       |H   |		Short_Literal	0x85
00db 010f       |    |		Execute	Exception,Equal
00dc 6803       |h   |		Jump_Zero	0xe0
00dd 4850       |HP  |		Short_Literal	0x50							; Debug Table 0x3.0x11 = 0xdd,0xe
00de a5fb       |    |		Store_Unchecked	0x2,-0x5
00df 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00e0 0100       |    |		Execute	Exception,Raise
00e1 0000 0000  |    |		.BLANK	0000[0x7]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00ec       |    |		.CONST	0x00ec								; Address of begin
00e9 0101       |    |		.CONST	0x0101								; Address of exception handler
00ea 0002       |    |		.CONST	0x0002								; Number of locals
00eb			INIT_00e8:
00eb 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x4 = .DEBUG	0x00eb,0x0228,0x1001,0x0000,0x0058,0x6ac5,0x0000,0x0056
													; Debug Table 0x4.0x0 = 0xeb,0xffff
00ec			BODY_00e8:
00ec 487e       |H~  |		Short_Literal	0x7e							; Debug Table 0x4.0x1 = 0xec,0x1
00ed a5fd       |    |		Store_Unchecked	0x2,-0x3
00ee 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x4.0x2 = 0xee,0x2
00ef e5fe       |    |		Load	0x2,-0x2
00f0 e5ff       |    |		Load	0x2,-0x1
00f1 e21d       |    |		Load	0x1,0x1d
00f2 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00f3 e21b       |    |		Load	0x1,0x1b
00f4 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
00f5 00d1       |    |		Pop_Control	Pop_Count_1
00f6 0059       | Y  |		Store_Top	Discrete,At_Offset_1
00f7 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x4.0x3 = 0xf7,0x3
00f8 7005       |p   |		Jump_Nonzero	0xfe
00f9 4853       |HS  |		Short_Literal	0x53							; Debug Table 0x4.0x4 = 0xf9,0x4
00fa a5fd       |    |		Store_Unchecked	0x2,-0x3
00fb e001       |    |		Load	0x0,0x1								; Debug Table 0x4.0x5 = 0xfb,0x5
00fc 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
00fd 0257       | W  |		Execute	Discrete,Raise
00fe 4800       |H   |		Short_Literal	0x0							; Debug Table 0x4.0x6 = 0xfe,0x6
00ff a5fd       |    |		Store_Unchecked	0x2,-0x3
0100 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0101			TRAP_00e8:
0101 e001       |    |		Load	0x0,0x1
0102 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0103 010f       |    |		Execute	Exception,Equal
0104 6801       |h   |		Jump_Zero	0x106
0105 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; Debug Table 0x4.0x7 = 0x105,0x7
0106 4885       |H   |		Short_Literal	0x85
0107 010f       |    |		Execute	Exception,Equal
0108 6803       |h   |		Jump_Zero	0x10c
0109 4850       |HP  |		Short_Literal	0x50							; Debug Table 0x4.0x8 = 0x109,0x8
010a a5fd       |    |		Store_Unchecked	0x2,-0x3
010b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
010c 0100       |    |		Execute	Exception,Raise
010d 0000 0000  |    |		.XXX[0x3]
010f 0000       |    |
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113       |    |		.CONST	0x0113								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0001       |    |		.CONST	0x0001								; Number of locals
0113			BODY_0110:
0113			INIT_0110:
0113 487e       |H~  |		Short_Literal	0x7e							; Debug Table 0x5 = .DEBUG	0x0113,0x023c,0x1001,0x0000,0x0058,0x6ac5,0x0000,0x0068
													; Debug Table 0x5.0x0 = 0x113,0x1
0114 a5fd       |    |		Store_Unchecked	0x2,-0x3
0115 4800       |H   |		Short_Literal	0x0							; Debug Table 0x5.0x1 = 0x115,0x2
0116 a5fe       |    |		Store_Unchecked	0x2,-0x2
0117 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x5.0x2 = 0x117,0x3
0118 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0119 a5fe       |    |		Store_Unchecked	0x2,-0x2
011a 4800       |H   |		Short_Literal	0x0							; Debug Table 0x5.0x3 = 0x11a,0x4
011b a5fd       |    |		Store_Unchecked	0x2,-0x3
011c 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
011d 0000 0000  |    |		.XXX[0x3]
011f 0000       |    |
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 012f       | /  |		.CONST	0x012f								; Address of begin
0121 013e       | >  |		.CONST	0x013e								; Address of exception handler
0122 0006       |    |		.CONST	0x0006								; Number of locals
0123			INIT_0120:
0123 029f 015b  |   [|		Declare_Subprogram	INIT_0158,For_Call				; Debug Table 0x6 = .DEBUG	0x0123,0x0246,0x3801,0x0002,0x0058,0x6ac5,0x0000,0x0078
													; Debug Table 0x6.0x0 = 0x123,0xffff
0125 e21b       |    |		Load	0x1,0x1b							; Debug Table 0x6.0x1 = 0x125,0xfffe
0126 1923       | #  |		Execute	Package,Field_Reference,Field_Number 0x23
0127 00c6       |    |		Action	Check_Subprogram_Elaborated
0128 4802       |H   |		Short_Literal	0x2
0129 4802       |H   |		Short_Literal	0x2
012a 0099       |    |		Action	Reference_Dynamic
012b 603c       |`<  |		Indirect_Literal	Discrete,0x168,{0x00000000, 0x005874f5}
012c 49ba       |I   |		Short_Literal	0x1ba
012d 4806       |H   |		Short_Literal	0x6
012e 0007       |    |		Action	Break_Optional
012f			BODY_0120:
012f 487e       |H~  |		Short_Literal	0x7e							; Debug Table 0x6.0x2 = 0x12f,0x1
0130 a5fc       |    |		Store_Unchecked	0x2,-0x4
0131 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x6.0x3 = 0x131,0x2
0132 4803       |H   |		Short_Literal	0x3
0133 4802       |H   |		Short_Literal	0x2
0134 0099       |    |		Action	Reference_Dynamic
0135 4804       |H   |		Short_Literal	0x4
0136 4802       |H   |		Short_Literal	0x2
0137 0099       |    |		Action	Reference_Dynamic
0138 e21b       |    |		Load	0x1,0x1b
0139 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
013a 00d1       |    |		Pop_Control	Pop_Count_1
013b 4800       |H   |		Short_Literal	0x0							; Debug Table 0x6.0x4 = 0x13b,0x3
013c a5fc       |    |		Store_Unchecked	0x2,-0x4
013d 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
013e			TRAP_0120:
013e e001       |    |		Load	0x0,0x1
013f 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0140 010f       |    |		Execute	Exception,Equal
0141 6801       |h   |		Jump_Zero	0x143
0142 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; Debug Table 0x6.0x5 = 0x142,0x4
0143 4885       |H   |		Short_Literal	0x85
0144 010f       |    |		Execute	Exception,Equal
0145 6803       |h   |		Jump_Zero	0x149
0146 4851       |HQ  |		Short_Literal	0x51							; Debug Table 0x6.0x6 = 0x146,0x5
0147 a5fc       |    |		Store_Unchecked	0x2,-0x4
0148 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0149 0100       |    |		Execute	Exception,Raise
014a 0000 0000  |    |		.BLANK	0000[0x6]
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 4887       |H   |		Short_Literal	0x87							; Debug Table 0x7 = .DEBUG	0x0153,0x0256,0x1002,0x0000,0x0058,0x6ac5,0x0000,0x00be
													; Debug Table 0x7.0x0 = 0x153,0x1
0154 0257       | W  |		Execute	Discrete,Raise
0155 0000 0000  |    |		.XXX[0x3]
0157 0000       |    |
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b       | [  |		.CONST	0x015b								; Address of begin
0159 0004       |    |		.CONST	0x0004								; Address of exception handler
015a 0001       |    |		.CONST	0x0001								; Number of locals
015b			BODY_0158:
015b			INIT_0158:
015b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x8 = .DEBUG	0x015b,0x025a,0x1801,0x0002,0x0058,0x74f5,0x0000,0x019e
													; Debug Table 0x8.0x0 = 0x15b,0x1
015c 0217       |    |		Execute	Heap_Access,All_Reference
015d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
015e e20f       |    |		Load	0x1,0xf
015f 0119       |    |		Execute	Any,Check_In_Formal_Type
0160 00db       |    |		Load_Top	At_Offset_3
0161 0217       |    |		Execute	Heap_Access,All_Reference
0162 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0163 e21c       |    |		Load	0x1,0x1c
0164 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0165 85fe       |    |		Call	0x2,-0x2
0166 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0167 0000       |    |		.XXX[0x1]
0168 0000 0000  |    |		.LITERAL	{0x00000000, 0x005874f5}
016c 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
0170 0000 0000  |    |		.LITERAL	{0x00000000, 0x00586ac5}
0174 0000 0000  |    |		.BLANK	0000[0x4]
0178 ; --------------------------------------------------------------------------------------
0178 ; Debug Table
0178 ; --------------------------------------------------------------------------------------
0178 0003 0009  |    |		.CONST	0x0003,0x0009
017a 000b 01c2  |    |		.DEBUG	0x000b,0x01c2,0xc000,0x0000,0x0058,0x6ac5,0x0000,0x000c
0182 0048 01e6  | H  |		.DEBUG	0x0048,0x01e6,0xc000,0x0000,0x0058,0x74f5,0x0000,0x000d
018a 008b 01fe  |    |		.DEBUG	0x008b,0x01fe,0x1001,0x0000,0x0058,0x6ac5,0x0000,0x0026
0192 0093 0202  |    |		.DEBUG	0x0093,0x0202,0x1001,0x0000,0x0058,0x6ac5,0x0000,0x003c
019a 00eb 0228  |   (|		.DEBUG	0x00eb,0x0228,0x1001,0x0000,0x0058,0x6ac5,0x0000,0x0056
01a2 0113 023c  |   <|		.DEBUG	0x0113,0x023c,0x1001,0x0000,0x0058,0x6ac5,0x0000,0x0068
01aa 0123 0246  | # F|		.DEBUG	0x0123,0x0246,0x3801,0x0002,0x0058,0x6ac5,0x0000,0x0078
01b2 0153 0256  | S V|		.DEBUG	0x0153,0x0256,0x1002,0x0000,0x0058,0x6ac5,0x0000,0x00be
01ba 015b 025a  | [ Z|		.DEBUG	0x015b,0x025a,0x1801,0x0002,0x0058,0x74f5,0x0000,0x019e
01c2 ; --------------------------------------------------------------------------------------
01c2 ; Debug3 Subtable 0x0
01c2 ; --------------------------------------------------------------------------------------
01c2 0011 0000  |    |		.DBG3TAB	0x0011,0x0000
01c4 000b ffff  |    |		.CONST	0x000b,0xffff
01c6 000e fffe  |    |		.CONST	0x000e,0xfffe
01c8 0010 fffd  |    |		.CONST	0x0010,0xfffd
01ca 0013 fffc  |    |		.CONST	0x0013,0xfffc
01cc 0014 fffb  |    |		.CONST	0x0014,0xfffb
01ce 0016 fffa  |    |		.CONST	0x0016,0xfffa
01d0 0019 fff9  |    |		.CONST	0x0019,0xfff9
01d2 001a fff8  |    |		.CONST	0x001a,0xfff8
01d4 001c fff7  |    |		.CONST	0x001c,0xfff7
01d6 001e fff6  |    |		.CONST	0x001e,0xfff6
01d8 0020 fff5  |    |		.CONST	0x0020,0xfff5
01da 0022 fff4  | "  |		.CONST	0x0022,0xfff4
01dc 002b fff3  | +  |		.CONST	0x002b,0xfff3
01de 0034 fff2  | 4  |		.CONST	0x0034,0xfff2
01e0 0035 fff1  | 5  |		.CONST	0x0035,0xfff1
01e2 0037 fff0  | 7  |		.CONST	0x0037,0xfff0
01e4 0043 ffef  | C  |		.CONST	0x0043,0xffef
01e6 ; --------------------------------------------------------------------------------------
01e6 ; Debug3 Subtable 0x1
01e6 ; --------------------------------------------------------------------------------------
01e6 000b 0000  |    |		.DBG3TAB	0x000b,0x0000
01e8 0048 ffff  | H  |		.CONST	0x0048,0xffff
01ea 0052 fffe  | R  |		.CONST	0x0052,0xfffe
01ec 005c fffd  | \  |		.CONST	0x005c,0xfffd
01ee 005e fffc  | ^  |		.CONST	0x005e,0xfffc
01f0 0060 fffb  | `  |		.CONST	0x0060,0xfffb
01f2 0069 fffa  | i  |		.CONST	0x0069,0xfffa
01f4 0074 fff9  | t  |		.CONST	0x0074,0xfff9
01f6 007d fff8  | }  |		.CONST	0x007d,0xfff8
01f8 007f fff7  |    |		.CONST	0x007f,0xfff7
01fa 0081 fff6  |    |		.CONST	0x0081,0xfff6
01fc 0083 fff5  |    |		.CONST	0x0083,0xfff5
01fe ; --------------------------------------------------------------------------------------
01fe ; Debug3 Subtable 0x2
01fe ; --------------------------------------------------------------------------------------
01fe 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0200 008b 0001  |    |		.CONST	0x008b,0x0001
0202 ; --------------------------------------------------------------------------------------
0202 ; Debug3 Subtable 0x3
0202 ; --------------------------------------------------------------------------------------
0202 0004 000e  |    |		.DBG3TAB	0x0004,0x000e
0204 0093 ffff  |    |		.CONST	0x0093,0xffff
0206 0095 fffe  |    |		.CONST	0x0095,0xfffe
0208 0096 fffd  |    |		.CONST	0x0096,0xfffd
020a 0098 fffc  |    |		.CONST	0x0098,0xfffc
020c 0099 0001  |    |		.CONST	0x0099,0x0001
020e 009b 0002  |    |		.CONST	0x009b,0x0002
0210 009d 0003  |    |		.CONST	0x009d,0x0003
0212 00a1 0004  |    |		.CONST	0x00a1,0x0004
0214 00a5 0005  |    |		.CONST	0x00a5,0x0005
0216 00b6 0006  |    |		.CONST	0x00b6,0x0006
0218 00b8 0007  |    |		.CONST	0x00b8,0x0007
021a 00ba 0008  |    |		.CONST	0x00ba,0x0008
021c 00bd 0009  |    |		.CONST	0x00bd,0x0009
021e 00c1 000a  |    |		.CONST	0x00c1,0x000a
0220 00c5 000b  |    |		.CONST	0x00c5,0x000b
0222 00d2 000c  |    |		.CONST	0x00d2,0x000c
0224 00d9 000d  |    |		.CONST	0x00d9,0x000d
0226 00dd 000e  |    |		.CONST	0x00dd,0x000e
0228 ; --------------------------------------------------------------------------------------
0228 ; Debug3 Subtable 0x4
0228 ; --------------------------------------------------------------------------------------
0228 0001 0008  |    |		.DBG3TAB	0x0001,0x0008
022a 00eb ffff  |    |		.CONST	0x00eb,0xffff
022c 00ec 0001  |    |		.CONST	0x00ec,0x0001
022e 00ee 0002  |    |		.CONST	0x00ee,0x0002
0230 00f7 0003  |    |		.CONST	0x00f7,0x0003
0232 00f9 0004  |    |		.CONST	0x00f9,0x0004
0234 00fb 0005  |    |		.CONST	0x00fb,0x0005
0236 00fe 0006  |    |		.CONST	0x00fe,0x0006
0238 0105 0007  |    |		.CONST	0x0105,0x0007
023a 0109 0008  |    |		.CONST	0x0109,0x0008
023c ; --------------------------------------------------------------------------------------
023c ; Debug3 Subtable 0x5
023c ; --------------------------------------------------------------------------------------
023c 0000 0004  |    |		.DBG3TAB	0x0000,0x0004
023e 0113 0001  |    |		.CONST	0x0113,0x0001
0240 0115 0002  |    |		.CONST	0x0115,0x0002
0242 0117 0003  |    |		.CONST	0x0117,0x0003
0244 011a 0004  |    |		.CONST	0x011a,0x0004
0246 ; --------------------------------------------------------------------------------------
0246 ; Debug3 Subtable 0x6
0246 ; --------------------------------------------------------------------------------------
0246 0002 0005  |    |		.DBG3TAB	0x0002,0x0005
0248 0123 ffff  | #  |		.CONST	0x0123,0xffff
024a 0125 fffe  | %  |		.CONST	0x0125,0xfffe
024c 012f 0001  | /  |		.CONST	0x012f,0x0001
024e 0131 0002  | 1  |		.CONST	0x0131,0x0002
0250 013b 0003  | ;  |		.CONST	0x013b,0x0003
0252 0142 0004  | B  |		.CONST	0x0142,0x0004
0254 0146 0005  | F  |		.CONST	0x0146,0x0005
0256 ; --------------------------------------------------------------------------------------
0256 ; Debug3 Subtable 0x7
0256 ; --------------------------------------------------------------------------------------
0256 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0258 0153 0001  | S  |		.CONST	0x0153,0x0001
025a ; --------------------------------------------------------------------------------------
025a ; Debug3 Subtable 0x8
025a ; --------------------------------------------------------------------------------------
025a 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
025c 015b 0001  | [  |		.CONST	0x015b,0x0001
025e 0000 0000  |    |		.BLANK	0000[0x1a2]