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

⟦fb713d0f9⟧

    Length: 1024 (0x400)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6060f0

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 01a0       |    |		.CONST	0x01a0								; 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 8001       |    |		.CONST	0x8001								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 008b       |    |		.CONST	0x008b								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0027       | '  |		.CONST	0x0027								; Number of locals
000b			INIT_0008:
000b 4818       |H   |		Short_Literal	0x18
000c 03cd       |    |		Declare_Type	Access,Incomplete,Visible,Accesses_Protected
000d 00c4       |    |		Action	Make_Default
000e 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated
0010 029a 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Outer_Call,Visible,Unelaborated
0012 029a 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Outer_Call,Visible,Unelaborated
0014 029a 010b  |    |		Declare_Subprogram	INIT_0108,For_Outer_Call,Visible,Unelaborated
0016 e001       |    |		Load	0x0,0x1
0017 0129       | )  |		Execute	Any,Make_Visible
0018 4805       |H   |		Short_Literal	0x5
0019 032a       | *  |		Declare_Type	Record,Incomplete
001a 00d8       |    |		Load_Top	At_Offset_0
001b 02a0       |    |		Declare_Subprogram	Null_Subprogram
001c e215       |    |		Load	0x1,0x15
001d 03c7       |    |		Complete_Type	Access,By_Defining
001e e215       |    |		Load	0x1,0x15
001f 0129       | )  |		Execute	Any,Make_Visible
0020 c216       |    |		Store	0x1,0x16
0021 00bf       |    |		Action	Accept_Activation
0022 e002       |    |		Load	0x0,0x2
0023 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0024 e002       |    |		Load	0x0,0x2
0025 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0026 4800       |H   |		Short_Literal	0x0
0027 e003       |    |		Load	0x0,0x3
0028 00f5       |    |		Load_Encached	Unused21
0029 037a       | z  |		Declare_Type	Task,Defined,Not_Elaborated
002a 00d8       |    |		Load_Top	At_Offset_0
002b 02a0       |    |		Declare_Subprogram	Null_Subprogram
002c 4818       |H   |		Short_Literal	0x18
002d 03d3       |    |		Declare_Type	Access,Defined,Accesses_Protected
002e 4800       |H   |		Short_Literal	0x0
002f e004       |    |		Load	0x0,0x4
0030 00f5       |    |		Load_Encached	Unused21
0031 037a       | z  |		Declare_Type	Task,Defined,Not_Elaborated
0032 00d8       |    |		Load_Top	At_Offset_0
0033 02a0       |    |		Declare_Subprogram	Null_Subprogram
0034 4818       |H   |		Short_Literal	0x18
0035 03d3       |    |		Declare_Type	Access,Defined,Accesses_Protected
0036 00da       |    |		Load_Top	At_Offset_2
0037 00d9       |    |		Load_Top	At_Offset_1
0038 e005       |    |		Load	0x0,0x5
0039 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
003a e210       |    |		Load	0x1,0x10
003b 00e1       |    |		Load_Encached	Boolean_Cache
003c 029f 0153  |   S|		Declare_Subprogram	INIT_0150,For_Call
003e e21c       |    |		Load	0x1,0x1c
003f 0326       | &  |		Complete_Type	Record,By_Defining
0040 e21c       |    |		Load	0x1,0x1c
0041 0007       |    |		Action	Break_Optional
0042 029b 0173  |   s|		Declare_Subprogram	INIT_0170,For_Outer_Call,Unelaborated
0044 029b 0183  |    |		Declare_Subprogram	INIT_0180,For_Outer_Call,Unelaborated
0046 029b 0193  |    |		Declare_Subprogram	INIT_0190,For_Outer_Call,Unelaborated
0048 e006       |    |		Load	0x0,0x6
0049 e007       |    |		Load	0x0,0x7
004a e223       | #  |		Load	0x1,0x23
004b 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
004c 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
004d 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
004e e008       |    |		Load	0x0,0x8
004f 0387       |    |		Declare_Variable	Package
0050 00d8       |    |		Load_Top	At_Offset_0
0051 020f       |    |		Execute	Module,Activate
0052 00b6       |    |		Action	Make_Scope
0053 e21c       |    |		Load	0x1,0x1c
0054 e009       |    |		Load	0x0,0x9
0055 e00a       |    |		Load	0x0,0xa
0056 e21e       |    |		Load	0x1,0x1e
0057 e00b       |    |		Load	0x0,0xb
0058 e227       | '  |		Load	0x1,0x27
0059 e00c       |    |		Load	0x0,0xc
005a e00d       |    |		Load	0x0,0xd
005b e00e       |    |		Load	0x0,0xe
005c e005       |    |		Load	0x0,0x5
005d e00f       |    |		Load	0x0,0xf
005e e010       |    |		Load	0x0,0x10
005f e011       |    |		Load	0x0,0x11
0060 e012       |    |		Load	0x0,0x12
0061 e013       |    |		Load	0x0,0x13
0062 e21d       |    |		Load	0x1,0x1d
0063 4811       |H   |		Short_Literal	0x11
0064 e21f       |    |		Load	0x1,0x1f
0065 020e       |    |		Execute	Module,Augment_Imports
0066 e21f       |    |		Load	0x1,0x1f
0067 020d       |    |		Execute	Module,Elaborate
0068 0007       |    |		Action	Break_Optional
0069 00b6       |    |		Action	Make_Scope
006a e21c       |    |		Load	0x1,0x1c
006b e00a       |    |		Load	0x0,0xa
006c e009       |    |		Load	0x0,0x9
006d e014       |    |		Load	0x0,0x14
006e e015       |    |		Load	0x0,0x15
006f e005       |    |		Load	0x0,0x5
0070 e016       |    |		Load	0x0,0x16
0071 e227       | '  |		Load	0x1,0x27
0072 e00f       |    |		Load	0x0,0xf
0073 e00d       |    |		Load	0x0,0xd
0074 e21e       |    |		Load	0x1,0x1e
0075 e010       |    |		Load	0x0,0x10
0076 e012       |    |		Load	0x0,0x12
0077 480e       |H   |		Short_Literal	0xe
0078 e221       | !  |		Load	0x1,0x21
0079 020e       |    |		Execute	Module,Augment_Imports
007a e221       | !  |		Load	0x1,0x21
007b 020d       |    |		Execute	Module,Elaborate
007c 0007       |    |		Action	Break_Optional
007d 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
007e 00c7       |    |		Action	Elaborate_Subprogram
007f 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0080 00c7       |    |		Action	Elaborate_Subprogram
0081 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0082 00c7       |    |		Action	Elaborate_Subprogram
0083 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0084 00c7       |    |		Action	Elaborate_Subprogram
0085 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
0086 00c7       |    |		Action	Elaborate_Subprogram
0087 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
0088 00c7       |    |		Action	Elaborate_Subprogram
0089 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
008a 00c7       |    |		Action	Elaborate_Subprogram
008b			BODY_0008:
008b 00bc       |    |		Action	Signal_Activated
008c 00bb       |    |		Action	Signal_Completion
008d 0000 0000  |    |		.XXX[0x3]
008f 0000       |    |
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0094       |    |		.CONST	0x0094								; Address of begin
0091 0004       |    |		.CONST	0x0004								; Address of exception handler
0092 0002       |    |		.CONST	0x0002								; Number of locals
0093			INIT_0090:
0093 00e1       |    |		Load_Encached	Boolean_Cache
0094			BODY_0090:
0094 e215       |    |		Load	0x1,0x15
0095 03bc       |    |		Declare_Variable	Access,By_Allocation
0096 00d8       |    |		Load_Top	At_Offset_0
0097 0227       | '  |		Execute	Access,All_Reference
0098 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0099 a5fb       |    |		Store_Unchecked	0x2,-0x5
009a e5fc       |    |		Load	0x2,-0x4
009b e5fb       |    |		Load	0x2,-0x5
009c 0227       | '  |		Execute	Access,All_Reference
009d 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
009e e5fb       |    |		Load	0x2,-0x5
009f 0229       | )  |		Execute	Access,All_Read
00a0 00d8       |    |		Load_Top	At_Offset_0
00a1 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
00a2 00d8       |    |		Load_Top	At_Offset_0
00a3 0120       |    |		Execute	Any,Is_Value
00a4 6803       |h   |		Jump_Zero	0xa8
00a5 e210       |    |		Load	0x1,0x10
00a6 011e       |    |		Execute	Any,Convert
00a7 7802       |x   |		Jump	0xaa
00a8 e210       |    |		Load	0x1,0x10
00a9 0119       |    |		Execute	Any,Check_In_Formal_Type
00aa e00d       |    |		Load	0x0,0xd
00ab 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
00ac e5fd       |    |		Load	0x2,-0x3
00ad e20f       |    |		Load	0x1,0xf
00ae 0119       |    |		Execute	Any,Check_In_Formal_Type
00af 8211       |    |		Call	0x1,0x11
00b0 00d9       |    |		Load_Top	At_Offset_1
00b1 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
00b2 00d1       |    |		Pop_Control	Pop_Count_1
00b3 e5fc       |    |		Load	0x2,-0x4
00b4 e010       |    |		Load	0x0,0x10
00b5 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
00b6 e5fb       |    |		Load	0x2,-0x5
00b7 0227       | '  |		Execute	Access,All_Reference
00b8 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
00b9 e220       |    |		Load	0x1,0x20
00ba 03bc       |    |		Declare_Variable	Access,By_Allocation
00bb 00d8       |    |		Load_Top	At_Offset_0
00bc 00e0       |    |		Load_Encached	Standard_Cache
00bd 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
00be e5fb       |    |		Load	0x2,-0x5
00bf 0227       | '  |		Execute	Access,All_Reference
00c0 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00c1 e222       | "  |		Load	0x1,0x22
00c2 03bc       |    |		Declare_Variable	Access,By_Allocation
00c3 00d8       |    |		Load_Top	At_Offset_0
00c4 00e0       |    |		Load_Encached	Standard_Cache
00c5 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
00c6 e5fb       |    |		Load	0x2,-0x5
00c7 0227       | '  |		Execute	Access,All_Reference
00c8 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00c9 e5fd       |    |		Load	0x2,-0x3
00ca e20f       |    |		Load	0x1,0xf
00cb 0119       |    |		Execute	Any,Check_In_Formal_Type
00cc e5fb       |    |		Load	0x2,-0x5
00cd 4802       |H   |		Short_Literal	0x2
00ce e5fb       |    |		Load	0x2,-0x5
00cf 0227       | '  |		Execute	Access,All_Reference
00d0 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00d1 0229       | )  |		Execute	Access,All_Read
00d2 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
00d3 00e1       |    |		Load_Encached	Boolean_Cache
00d4 e5fd       |    |		Load	0x2,-0x3
00d5 e20f       |    |		Load	0x1,0xf
00d6 0119       |    |		Execute	Any,Check_In_Formal_Type
00d7 e5fe       |    |		Load	0x2,-0x2
00d8 e5ff       |    |		Load	0x2,-0x1
00d9 e5fb       |    |		Load	0x2,-0x5
00da 4805       |H   |		Short_Literal	0x5
00db e5fb       |    |		Load	0x2,-0x5
00dc 0227       | '  |		Execute	Access,All_Reference
00dd 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00de 0229       | )  |		Execute	Access,All_Read
00df 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
00e0 0059       | Y  |		Store_Top	Discrete,At_Offset_1
00e1 00d8       |    |		Load_Top	At_Offset_0
00e2 7002       |p   |		Jump_Nonzero	0xe5
00e3 e21b       |    |		Load	0x1,0x1b
00e4 0257       | W  |		Execute	Discrete,Raise
00e5 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00e6 0000 0000  |    |		.XXX[0x2]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb       |    |		.CONST	0x00eb								; Address of begin
00e9 00f3       |    |		.CONST	0x00f3								; Address of exception handler
00ea 0001       |    |		.CONST	0x0001								; Number of locals
00eb			BODY_00e8:
00eb			INIT_00e8:
00eb 00da       |    |		Load_Top	At_Offset_2
00ec 4801       |H   |		Short_Literal	0x1
00ed e5fe       |    |		Load	0x2,-0x2
00ee 0227       | '  |		Execute	Access,All_Reference
00ef 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00f0 0229       | )  |		Execute	Access,All_Read
00f1 170e       |    |		Execute	Task,Entry_Call,Field_Number 0xe
00f2 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00f3			TRAP_00e8:
00f3 0007       |    |		Action	Break_Optional
00f4 e21b       |    |		Load	0x1,0x1b
00f5 0257       | W  |		Execute	Discrete,Raise
00f6 0000 0000  |    |		.XXX[0x2]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb       |    |		.CONST	0x00fb								; Address of begin
00f9 0104       |    |		.CONST	0x0104								; Address of exception handler
00fa 0001       |    |		.CONST	0x0001								; Number of locals
00fb			BODY_00f8:
00fb			INIT_00f8:
00fb 00db       |    |		Load_Top	At_Offset_3
00fc 00db       |    |		Load_Top	At_Offset_3
00fd 4802       |H   |		Short_Literal	0x2
00fe e5fd       |    |		Load	0x2,-0x3
00ff 0227       | '  |		Execute	Access,All_Reference
0100 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0101 0229       | )  |		Execute	Access,All_Read
0102 170f       |    |		Execute	Task,Entry_Call,Field_Number 0xf
0103 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0104			TRAP_00f8:
0104 0007       |    |		Action	Break_Optional
0105 e21b       |    |		Load	0x1,0x1b
0106 0257       | W  |		Execute	Discrete,Raise
0107 0000       |    |		.XXX[0x1]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b       |    |		.CONST	0x010b								; Address of begin
0109 0137       | 7  |		.CONST	0x0137								; Address of exception handler
010a 0001       |    |		.CONST	0x0001								; Number of locals
010b			BODY_0108:
010b			INIT_0108:
010b 00da       |    |		Load_Top	At_Offset_2
010c e215       |    |		Load	0x1,0x15
010d 022e       | .  |		Execute	Access,Not_Equal
010e 6827       |h'  |		Jump_Zero	0x136
010f 00da       |    |		Load_Top	At_Offset_2
0110 0227       | '  |		Execute	Access,All_Reference
0111 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0112 0229       | )  |		Execute	Access,All_Read
0113 020b       |    |		Execute	Module,Is_Terminated
0114 7016       |p   |		Jump_Nonzero	0x12b
0115 4800       |H   |		Short_Literal	0x0
0116 6031       |`1  |		Indirect_Literal	Discrete,0x148,{0x00000000, 0x00050000}
0117 e5ff       |    |		Load	0x2,-0x1
0118 0227       | '  |		Execute	Access,All_Reference
0119 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
011a 0229       | )  |		Execute	Access,All_Read
011b 1510       |    |		Execute	Task,Timed_Call,Field_Number 0x10
011c 4601       |F   |		Jump_Case	0x2
011d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; case 0x0
011e 7800       |x   |		Jump	0x11f								; case 0x1
011f 00da       |    |		Load_Top	At_Offset_2
0120 0227       | '  |		Execute	Access,All_Reference
0121 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0122 0229       | )  |		Execute	Access,All_Read
0123 0209       |    |		Execute	Task,Abort
0124 0007       |    |		Action	Break_Optional
0125 00da       |    |		Load_Top	At_Offset_2
0126 0227       | '  |		Execute	Access,All_Reference
0127 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0128 0229       | )  |		Execute	Access,All_Read
0129 0209       |    |		Execute	Task,Abort
012a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
012b 00da       |    |		Load_Top	At_Offset_2
012c 0227       | '  |		Execute	Access,All_Reference
012d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
012e 0229       | )  |		Execute	Access,All_Read
012f 020b       |    |		Execute	Module,Is_Terminated
0130 7005       |p   |		Jump_Nonzero	0x136
0131 00da       |    |		Load_Top	At_Offset_2
0132 0227       | '  |		Execute	Access,All_Reference
0133 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0134 0229       | )  |		Execute	Access,All_Read
0135 0209       |    |		Execute	Task,Abort
0136 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0137			TRAP_0108:
0137 010a       |    |		Execute	Exception,Is_Tasking_Error
0138 680c       |h   |		Jump_Zero	0x145
0139 00db       |    |		Load_Top	At_Offset_3
013a 0227       | '  |		Execute	Access,All_Reference
013b 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
013c 0229       | )  |		Execute	Access,All_Read
013d 0209       |    |		Execute	Task,Abort
013e 0007       |    |		Action	Break_Optional
013f 00db       |    |		Load_Top	At_Offset_3
0140 0227       | '  |		Execute	Access,All_Reference
0141 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0142 0229       | )  |		Execute	Access,All_Read
0143 0209       |    |		Execute	Task,Abort
0144 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0145 0100       |    |		Execute	Exception,Raise
0146 0000 0000  |    |		.XXX[0x2]
0148 0000 0000  |    |		.LITERAL	{0x00000000, 0x00050000}
014c 0000 0000  |    |		.BLANK	0000[0x4]
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 4608       |F   |		Jump_Case	0x9
0154 7808       |x   |		Jump	0x15d								; case 0x0
0155 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0156 7813       |x   |		Jump	0x16a								; case 0x2
0157 7812       |x   |		Jump	0x16a								; case 0x3
0158 7811       |x   |		Jump	0x16a								; case 0x4
0159 7810       |x   |		Jump	0x16a								; case 0x5
015a 780f       |x   |		Jump	0x16a								; case 0x6
015b 780e       |x   |		Jump	0x16a								; case 0x7
015c 780d       |x   |		Jump	0x16a								; case 0x8
015d 00da       |    |		Load_Top	At_Offset_2
015e 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
015f 0125       | %  |		Execute	Any,Set_Constraint
0160 00da       |    |		Load_Top	At_Offset_2
0161 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0162 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0163 00da       |    |		Load_Top	At_Offset_2
0164 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0165 0125       | %  |		Execute	Any,Set_Constraint
0166 00da       |    |		Load_Top	At_Offset_2
0167 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0168 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0169 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
016a 0869       | i  |		Execute_Immediate	Raise,0x69
016b 0000 0000  |    |		.BLANK	0000[0x5]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173       | s  |		.CONST	0x0173								; Address of begin
0171 0004       |    |		.CONST	0x0004								; Address of exception handler
0172 0001       |    |		.CONST	0x0001								; Number of locals
0173			BODY_0170:
0173			INIT_0170:
0173 4800       |H   |		Short_Literal	0x0
0174 e5fd       |    |		Load	0x2,-0x3
0175 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0176 e210       |    |		Load	0x1,0x10
0177 0119       |    |		Execute	Any,Check_In_Formal_Type
0178 e5fe       |    |		Load	0x2,-0x2
0179 e5ff       |    |		Load	0x2,-0x1
017a 8212       |    |		Call	0x1,0x12
017b 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
017c 0000 0000  |    |		.BLANK	0000[0x4]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183       |    |		.CONST	0x0183								; Address of begin
0181 0004       |    |		.CONST	0x0004								; Address of exception handler
0182 0001       |    |		.CONST	0x0001								; Number of locals
0183			BODY_0180:
0183			INIT_0180:
0183 00da       |    |		Load_Top	At_Offset_2
0184 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0185 e210       |    |		Load	0x1,0x10
0186 0119       |    |		Execute	Any,Check_In_Formal_Type
0187 8213       |    |		Call	0x1,0x13
0188 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0189 0000 0000  |    |		.BLANK	0000[0x7]
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 00db       |    |		Load_Top	At_Offset_3
0194 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0195 e210       |    |		Load	0x1,0x10
0196 0119       |    |		Execute	Any,Check_In_Formal_Type
0197 00db       |    |		Load_Top	At_Offset_3
0198 8214       |    |		Call	0x1,0x14
0199 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
019a 0000 0000  |    |		.BLANK	0000[0x6]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; Debug Table
01a0 ; --------------------------------------------------------------------------------------
01a0 0004 000e  |    |		.DEBUG4	0x0004,0x000e,0xf413,0x0000,0x0001,0x0000
01a6 0000 0000  |    |		.BLANK	0000[0x7]
01ad 1002 8000  |    |		.XXX[0xb]
01af 0000 0000  |    |
01b1 0020 0000  |    |
01b3 0110 0000  |    |
01b5 0000 8000  |    |
01b7 0005       |    |
01b8 0000 0000  |    |		.BLANK	0000[0x48]