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

⟦985b59d16⟧

    Length: 2048 (0x800)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_ee1031

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 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0190       |    |		.CONST	0x0190								; 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 0052       | R  |		.CONST	0x0052								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 001c       |    |		.CONST	0x001c								; 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 005b  |   [|		Declare_Subprogram	INIT_0058,For_Outer_Call,Visible,Unelaborated
0010 029a 008b  |    |		Declare_Subprogram	INIT_0088,For_Outer_Call,Visible,Unelaborated
0012 00c4       |    |		Action	Make_Default
0013 00c4       |    |		Action	Make_Default
0014 00c4       |    |		Action	Make_Default
0015 00c4       |    |		Action	Make_Default
0016 00c4       |    |		Action	Make_Default
0017 4800       |H   |		Short_Literal	0x0
0018 0093 011b  |    |		push_full_address	INIT_0118
001a 02a0       |    |		Declare_Subprogram	Null_Subprogram
001b 038f       |    |		Declare_Type	Package,Defined,Visible
001c 0386       |    |		Declare_Variable	Package,Visible
001d c214       |    |		Store	0x1,0x14
001e e001       |    |		Load	0x0,0x1
001f 0129       | )  |		Execute	Any,Make_Visible
0020 c215       |    |		Store	0x1,0x15
0021 00e9       |    |		Load_Encached	String_Cache
0022 02a0       |    |		Declare_Subprogram	Null_Subprogram
0023 4818       |H   |		Short_Literal	0x18
0024 03d3       |    |		Declare_Type	Access,Defined,Accesses_Protected
0025 c211       |    |		Store	0x1,0x11
0026 4802       |H   |		Short_Literal	0x2
0027 032a       | *  |		Declare_Type	Record,Incomplete
0028 c212       |    |		Store	0x1,0x12
0029 00db       |    |		Load_Top	At_Offset_3
002a 02a0       |    |		Declare_Subprogram	Null_Subprogram
002b e20d       |    |		Load	0x1,0xd
002c 03c7       |    |		Complete_Type	Access,By_Defining
002d e211       |    |		Load	0x1,0x11
002e e20d       |    |		Load	0x1,0xd
002f 02a0       |    |		Declare_Subprogram	Null_Subprogram
0030 e212       |    |		Load	0x1,0x12
0031 0326       | &  |		Complete_Type	Record,By_Defining
0032 e20d       |    |		Load	0x1,0xd
0033 0129       | )  |		Execute	Any,Make_Visible
0034 c20e       |    |		Store	0x1,0xe
0035 00bf       |    |		Action	Accept_Activation
0036 00e3       |    |		Load_Encached	Natural_Cache
0037 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0038 4801       |H   |		Short_Literal	0x1
0039 4a05       |J   |		Short_Literal	0x205
003a e20d       |    |		Load	0x1,0xd
003b 02a0       |    |		Declare_Subprogram	Null_Subprogram
003c 4801       |H   |		Short_Literal	0x1
003d 035d       | ]  |		Declare_Type	Array,Defined
003e 00d8       |    |		Load_Top	At_Offset_0
003f 0337       | 7  |		Declare_Variable	Array
0040 029d 009b  |    |		Declare_Subprogram	INIT_0098,For_Outer_Call
0042 029d 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Outer_Call
0044 029d 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Outer_Call
0046 029d 010b  |    |		Declare_Subprogram	INIT_0108,For_Outer_Call
0048 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0049 00c7       |    |		Action	Elaborate_Subprogram
004a 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
004b 00c7       |    |		Action	Elaborate_Subprogram
004c 00b6       |    |		Action	Make_Scope
004d 4801       |H   |		Short_Literal	0x1
004e e214       |    |		Load	0x1,0x14
004f 020e       |    |		Execute	Module,Augment_Imports
0050 e214       |    |		Load	0x1,0x14
0051 020f       |    |		Execute	Module,Activate
0052			BODY_0008:
0052 8219       |    |		Call	0x1,0x19
0053 00bc       |    |		Action	Signal_Activated
0054 00bb       |    |		Action	Signal_Completion
0055 0000 0000  |    |		.XXX[0x3]
0057 0000       |    |
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 0060       | `  |		.CONST	0x0060								; Address of begin
0059 0004       |    |		.CONST	0x0004								; Address of exception handler
005a 0004       |    |		.CONST	0x0004								; Number of locals
005b			INIT_0058:
005b 00e2       |    |		Load_Encached	Integer_Cache
005c 00e1       |    |		Load_Encached	Boolean_Cache
005d 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
005e e20d       |    |		Load	0x1,0xd
005f 0007       |    |		Action	Break_Optional
0060			BODY_0058:
0060 e5ff       |    |		Load	0x2,-0x1
0061 821a       |    |		Call	0x1,0x1a
0062 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0063 00da       |    |		Load_Top	At_Offset_2
0064 e218       |    |		Load	0x1,0x18
0065 01d7       |    |		Execute	Vector,Field_Read
0066 0039       | 9  |		Store_Top	Access,At_Offset_1
0067 00cf       |    |		Action	Mark_Auxiliary
0068 780f       |x   |		Jump	0x78
0069 e5ff       |    |		Load	0x2,-0x1
006a 00da       |    |		Load_Top	At_Offset_2
006b 0227       | '  |		Execute	Access,All_Reference
006c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
006d 0227       | '  |		Execute	Access,All_Reference
006e 01df       |    |		Execute	Vector,Equal
006f 6803       |h   |		Jump_Zero	0x73
0070 4801       |H   |		Short_Literal	0x1
0071 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0072 7804       |x   |		Jump	0x77
0073 00d9       |    |		Load_Top	At_Offset_1
0074 0227       | '  |		Execute	Access,All_Reference
0075 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0076 003a       | :  |		Store_Top	Access,At_Offset_2
0077 00c9       |    |		Action	Pop_Auxiliary_Loop
0078 00da       |    |		Load_Top	At_Offset_2
0079 7004       |p   |		Jump_Nonzero	0x7e
007a 00d9       |    |		Load_Top	At_Offset_1
007b e20d       |    |		Load	0x1,0xd
007c 022e       | .  |		Execute	Access,Not_Equal
007d 77eb       |w   |		Jump_Nonzero	0x69
007e 00ce       |    |		Action	Pop_Auxiliary
007f 00d9       |    |		Load_Top	At_Offset_1
0080 7003       |p   |		Jump_Nonzero	0x84
0081 00da       |    |		Load_Top	At_Offset_2
0082 e5ff       |    |		Load	0x2,-0x1
0083 821b       |    |		Call	0x1,0x1b
0084 00da       |    |		Load_Top	At_Offset_2
0085 e218       |    |		Load	0x1,0x18
0086 01d7       |    |		Execute	Vector,Field_Read
0087 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b       |    |		.CONST	0x008b								; Address of begin
0089 0092       |    |		.CONST	0x0092								; Address of exception handler
008a 0001       |    |		.CONST	0x0001								; Number of locals
008b			BODY_0088:
008b			INIT_0088:
008b 00da       |    |		Load_Top	At_Offset_2
008c 0227       | '  |		Execute	Access,All_Reference
008d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
008e 0227       | '  |		Execute	Access,All_Reference
008f 0335       | 5  |		Declare_Variable	Array,Duplicate
0090 00cd       |    |		Action	Spare6_Action
0091 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0092			TRAP_0088:
0092 0007       |    |		Action	Break_Optional
0093 e215       |    |		Load	0x1,0x15
0094 0257       | W  |		Execute	Discrete,Raise
0095 0000 0000  |    |		.XXX[0x3]
0097 0000       |    |
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 00cf       |    |		Action	Mark_Auxiliary
009c e218       |    |		Load	0x1,0x18
009d 01d9       |    |		Execute	Vector,Reverse_Bounds
009e 0007       |    |		Action	Break_Optional
009f e20d       |    |		Load	0x1,0xd
00a0 00d9       |    |		Load_Top	At_Offset_1
00a1 e218       |    |		Load	0x1,0x18
00a2 01d6       |    |		Execute	Vector,Field_Write
00a3 00c8       |    |		Action	Pop_Auxiliary_Range
00a4 3ffa       |?   |		Loop_Increasing	0x9f
00a5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00a6 0000 0000  |    |		.XXX[0x2]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00af       |    |		.CONST	0x00af								; Address of begin
00a9 0004       |    |		.CONST	0x0004								; Address of exception handler
00aa 0004       |    |		.CONST	0x0004								; Number of locals
00ab			INIT_00a8:
00ab 00e2       |    |		Load_Encached	Integer_Cache
00ac 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
00ad 00e2       |    |		Load_Encached	Integer_Cache
00ae 00e2       |    |		Load_Encached	Integer_Cache
00af			BODY_00a8:
00af e5ff       |    |		Load	0x2,-0x1
00b0 01db       |    |		Execute	Vector,Length
00b1 4803       |H   |		Short_Literal	0x3
00b2 0270       | p  |		Execute	Discrete,Divide
00b3 005a       | Z  |		Store_Top	Discrete,At_Offset_2
00b4 00d9       |    |		Load_Top	At_Offset_1
00b5 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
00b6 00d9       |    |		Load_Top	At_Offset_1
00b7 700f       |p   |		Jump_Nonzero	0xc7
00b8 00cf       |    |		Action	Mark_Auxiliary
00b9 e5ff       |    |		Load	0x2,-0x1
00ba 01d9       |    |		Execute	Vector,Reverse_Bounds
00bb 0263       | c  |		Execute	Discrete,Above_Bound
00bc 7008       |p   |		Jump_Nonzero	0xc5
00bd e402       |    |		Load	0x2,0x2
00be 00d9       |    |		Load_Top	At_Offset_1
00bf e5ff       |    |		Load	0x2,-0x1
00c0 01d7       |    |		Execute	Vector,Field_Read
00c1 0273       | s  |		Execute	Discrete,Plus
00c2 c402       |    |		Store	0x2,0x2
00c3 00c8       |    |		Action	Pop_Auxiliary_Range
00c4 3ff8       |?   |		Loop_Increasing	0xbd
00c5 00ce       |    |		Action	Pop_Auxiliary
00c6 7817       |x   |		Jump	0xde
00c7 00da       |    |		Load_Top	At_Offset_2
00c8 4801       |H   |		Short_Literal	0x1
00c9 e5ff       |    |		Load	0x2,-0x1
00ca 01d7       |    |		Execute	Vector,Field_Read
00cb 0273       | s  |		Execute	Discrete,Plus
00cc 005b       | [  |		Store_Top	Discrete,At_Offset_3
00cd 00cf       |    |		Action	Mark_Auxiliary
00ce 4803       |H   |		Short_Literal	0x3
00cf 4801       |H   |		Short_Literal	0x1
00d0 0007       |    |		Action	Break_Optional
00d1 e402       |    |		Load	0x2,0x2
00d2 e404       |    |		Load	0x2,0x4
00d3 e5ff       |    |		Load	0x2,-0x1
00d4 01d7       |    |		Execute	Vector,Field_Read
00d5 0273       | s  |		Execute	Discrete,Plus
00d6 c402       |    |		Store	0x2,0x2
00d7 00db       |    |		Load_Top	At_Offset_3
00d8 e403       |    |		Load	0x2,0x3
00d9 0273       | s  |		Execute	Discrete,Plus
00da c404       |    |		Store	0x2,0x4
00db 00c8       |    |		Action	Pop_Auxiliary_Range
00dc 3ff4       |?   |		Loop_Increasing	0xd1
00dd 00ce       |    |		Action	Pop_Auxiliary
00de 00da       |    |		Load_Top	At_Offset_2
00df 4a05       |J   |		Short_Literal	0x205
00e0 026e       | n  |		Execute	Discrete,Modulo
00e1 0a01       |    |		Execute_Immediate	Plus,0x1
00e2 00d8       |    |		Load_Top	At_Offset_0
00e3 00e2       |    |		Load_Encached	Integer_Cache
00e4 0260       | `  |		Execute	Discrete,In_Type
00e5 7001       |p   |		Jump_Nonzero	0xe7
00e6 0801       |    |		Execute_Immediate	Raise,0x1
00e7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00ed       |    |		.CONST	0x00ed								; Address of begin
00e9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ea 0002       |    |		.CONST	0x0002								; Number of locals
00eb			INIT_00e8:
00eb e20d       |    |		Load	0x1,0xd
00ec 0007       |    |		Action	Break_Optional
00ed			BODY_00e8:
00ed e212       |    |		Load	0x1,0x12
00ee 0322       | "  |		Declare_Variable	Record
00ef e5ff       |    |		Load	0x2,-0x1
00f0 e211       |    |		Load	0x1,0x11
00f1 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00f2 00d9       |    |		Load_Top	At_Offset_1
00f3 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00f4 e5fe       |    |		Load	0x2,-0x2
00f5 e218       |    |		Load	0x1,0x18
00f6 01d7       |    |		Execute	Vector,Field_Read
00f7 00d9       |    |		Load_Top	At_Offset_1
00f8 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00f9 e20d       |    |		Load	0x1,0xd
00fa 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00fb 0039       | 9  |		Store_Top	Access,At_Offset_1
00fc 00d8       |    |		Load_Top	At_Offset_0
00fd e5fe       |    |		Load	0x2,-0x2
00fe e218       |    |		Load	0x1,0x18
00ff 01d6       |    |		Execute	Vector,Field_Write
0100 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0101 0000 0000  |    |		.BLANK	0000[0x7]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b       |    |		.CONST	0x010b								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0001       |    |		.CONST	0x0001								; Number of locals
010b			BODY_0108:
010b			INIT_0108:
010b 00da       |    |		Load_Top	At_Offset_2
010c e5fe       |    |		Load	0x2,-0x2
010d 0227       | '  |		Execute	Access,All_Reference
010e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
010f 0227       | '  |		Execute	Access,All_Reference
0110 01df       |    |		Execute	Vector,Equal
0111 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0112 0000 0000  |    |		.BLANK	0000[0x6]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 012c       | ,  |		.CONST	0x012c								; Address of begin
0119 0004       |    |		.CONST	0x0004								; Address of exception handler
011a 0010       |    |		.CONST	0x0010								; Number of locals
011b			INIT_0118:
011b 029a 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call,Visible,Unelaborated
011d 029a 014b  |   K|		Declare_Subprogram	INIT_0148,For_Outer_Call,Visible,Unelaborated
011f 029a 0163  |   c|		Declare_Subprogram	INIT_0160,For_Outer_Call,Visible,Unelaborated
0121 029a 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call,Visible,Unelaborated
0123 00bf       |    |		Action	Accept_Activation
0124 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0125 00c7       |    |		Action	Elaborate_Subprogram
0126 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0127 00c7       |    |		Action	Elaborate_Subprogram
0128 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0129 00c7       |    |		Action	Elaborate_Subprogram
012a 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
012b 00c7       |    |		Action	Elaborate_Subprogram
012c			BODY_0118:
012c 00bc       |    |		Action	Signal_Activated
012d 00bb       |    |		Action	Signal_Completion
012e 0000 0000  |    |		.XXX[0x2]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133       | 3  |		.CONST	0x0133								; Address of begin
0131 013d       | =  |		.CONST	0x013d								; Address of exception handler
0132 0001       |    |		.CONST	0x0001								; Number of locals
0133			BODY_0130:
0133			INIT_0130:
0133 00da       |    |		Load_Top	At_Offset_2
0134 0227       | '  |		Execute	Access,All_Reference
0135 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0136 0227       | '  |		Execute	Access,All_Reference
0137 e5fe       |    |		Load	0x2,-0x2
0138 0227       | '  |		Execute	Access,All_Reference
0139 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
013a 0227       | '  |		Execute	Access,All_Reference
013b 01c1       |    |		Execute	Vector,Less
013c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
013d			TRAP_0130:
013d 0007       |    |		Action	Break_Optional
013e e001       |    |		Load	0x0,0x1
013f 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0140 0257       | W  |		Execute	Discrete,Raise
0141 0000 0000  |    |		.BLANK	0000[0x7]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b       | K  |		.CONST	0x014b								; Address of begin
0149 0155       | U  |		.CONST	0x0155								; Address of exception handler
014a 0001       |    |		.CONST	0x0001								; Number of locals
014b			BODY_0148:
014b			INIT_0148:
014b 00db       |    |		Load_Top	At_Offset_3
014c 0227       | '  |		Execute	Access,All_Reference
014d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
014e 0227       | '  |		Execute	Access,All_Reference
014f 00db       |    |		Load_Top	At_Offset_3
0150 0227       | '  |		Execute	Access,All_Reference
0151 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0152 0227       | '  |		Execute	Access,All_Reference
0153 01c1       |    |		Execute	Vector,Less
0154 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0155			TRAP_0148:
0155 0007       |    |		Action	Break_Optional
0156 e001       |    |		Load	0x0,0x1
0157 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0158 0257       | W  |		Execute	Discrete,Raise
0159 0000 0000  |    |		.BLANK	0000[0x7]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163       | c  |		.CONST	0x0163								; Address of begin
0161 016d       | m  |		.CONST	0x016d								; Address of exception handler
0162 0001       |    |		.CONST	0x0001								; Number of locals
0163			BODY_0160:
0163			INIT_0160:
0163 00da       |    |		Load_Top	At_Offset_2
0164 0227       | '  |		Execute	Access,All_Reference
0165 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0166 0227       | '  |		Execute	Access,All_Reference
0167 e5fe       |    |		Load	0x2,-0x2
0168 0227       | '  |		Execute	Access,All_Reference
0169 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
016a 0227       | '  |		Execute	Access,All_Reference
016b 01bf       |    |		Execute	Vector,Less_Equal
016c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
016d			TRAP_0160:
016d 0007       |    |		Action	Break_Optional
016e e001       |    |		Load	0x0,0x1
016f 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0170 0257       | W  |		Execute	Discrete,Raise
0171 0000 0000  |    |		.BLANK	0000[0x7]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b       | {  |		.CONST	0x017b								; Address of begin
0179 0185       |    |		.CONST	0x0185								; Address of exception handler
017a 0001       |    |		.CONST	0x0001								; Number of locals
017b			BODY_0178:
017b			INIT_0178:
017b 00db       |    |		Load_Top	At_Offset_3
017c 0227       | '  |		Execute	Access,All_Reference
017d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
017e 0227       | '  |		Execute	Access,All_Reference
017f 00db       |    |		Load_Top	At_Offset_3
0180 0227       | '  |		Execute	Access,All_Reference
0181 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0182 0227       | '  |		Execute	Access,All_Reference
0183 01bf       |    |		Execute	Vector,Less_Equal
0184 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0185			TRAP_0178:
0185 0007       |    |		Action	Break_Optional
0186 e001       |    |		Load	0x0,0x1
0187 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0188 0257       | W  |		Execute	Discrete,Raise
0189 0000 0000  |    |		.BLANK	0000[0x7]
0190 ; --------------------------------------------------------------------------------------
0190 ; Debug Table
0190 ; --------------------------------------------------------------------------------------
0190 0004 0001  |    |		.DEBUG4	0x0004,0x0001,0xdf03,0x0000,0x0001,0x000e
0196 000b 01ce  |    |		.DBG4T	0x000b,0x01ce,0x8000,0x0000
019a 0036 01db  | 6  |		.DBG4T	0x0036,0x01db,0x8000,0x8000
019e 005b 01f2  | [  |		.DBG4T	0x005b,0x01f2,0x0002,0x4000
01a2 008b 0209  |    |		.DBG4T	0x008b,0x0209,0x0002,0x0000
01a6 009b 020d  |    |		.DBG4T	0x009b,0x020d,0x0001,0x0000
01aa 00ab 0211  |    |		.DBG4T	0x00ab,0x0211,0x0002,0x0000
01ae 00eb 0220  |    |		.DBG4T	0x00eb,0x0220,0x0001,0x0000
01b2 010b 0225  |   %|		.DBG4T	0x010b,0x0225,0x0002,0x0000
01b6 011b 0228  |   (|		.DBG4T	0x011b,0x0228,0x0000,0x0000
01ba 0124 022e  | $ .|		.DBG4T	0x0124,0x022e,0x0000,0x0000
01be 0133 0234  | 3 4|		.DBG4T	0x0133,0x0234,0x0002,0x0000
01c2 014b 0238  | K 8|		.DBG4T	0x014b,0x0238,0x0002,0x0000
01c6 0163 023c  | c <|		.DBG4T	0x0163,0x023c,0x0002,0x0000
01ca 017b 0240  | { @|		.DBG4T	0x017b,0x0240,0x0002,0x0000
01ce ; --------------------------------------------------------------------------------------
01ce ; Debug chain
01ce ; --------------------------------------------------------------------------------------
01ce 000b 0000  |    |		.DBGLEN	0x000b,0x0000
01d0 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x000e,0x0010,0x0017,0x001e,0x0021,0x0026,0x0029,0x002d,0x0032
01db ; --------------------------------------------------------------------------------------
01db ; Debug chain
01db ; --------------------------------------------------------------------------------------
01db 000a 0001  |    |		.DBGLEN	0x000a,0x0001
01dd 0036 0038  | 6 8|		.DBGLNO	0x0036,0x0038,0x003e,0x0040,0x0042,0x0044,0x0046,0x0048,0x004a,0x004c,0x0052
01e8 0001 0003  |    |		.XXX[0xa]
01ea 0004 0005  |    |
01ec 0006 0007  |    |
01ee 0008 0009  |    |
01f0 000a 000b  |    |
01f2 ; --------------------------------------------------------------------------------------
01f2 ; Debug chain
01f2 ; --------------------------------------------------------------------------------------
01f2 0003 0009  |    |		.DBGLEN	0x0003,0x0009
01f4 005b 005c  | [ \|		.DBGLNO	0x005b,0x005c,0x005e,0x0060,0x0063,0x0069,0x0070,0x0073,0x0078,0x007f,0x0081,0x0084
0200 0001 0002  |    |		.XXX[0x9]
0202 0004 0005  |    |
0204 0006 0003  |    |
0206 0007 0008  |    |
0208 0009       |    |
0209 ; --------------------------------------------------------------------------------------
0209 ; Debug chain
0209 ; --------------------------------------------------------------------------------------
0209 0000 0002  |    |		.DBGLEN	0x0000,0x0002
020b 008b 0093  |    |		.DBGLNO	0x008b,0x0093
020d ; --------------------------------------------------------------------------------------
020d ; Debug chain
020d ; --------------------------------------------------------------------------------------
020d 0000 0002  |    |		.DBGLEN	0x0000,0x0002
020f 009c 009f  |    |		.DBGLNO	0x009c,0x009f
0211 ; --------------------------------------------------------------------------------------
0211 ; Debug chain
0211 ; --------------------------------------------------------------------------------------
0211 0003 000a  |    |		.DBGLEN	0x0003,0x000a
0213 00ab 00ad  |    |		.DBGLNO	0x00ab,0x00ad,0x00ae,0x00af,0x00b4,0x00b6,0x00b9,0x00bd,0x00c7,0x00ce,0x00d1,0x00d7,0x00de
0220 ; --------------------------------------------------------------------------------------
0220 ; Debug chain
0220 ; --------------------------------------------------------------------------------------
0220 0001 0002  |    |		.DBGLEN	0x0001,0x0002
0222 00eb 00ed  |    |		.DBGLNO	0x00eb,0x00ed,0x00fc
0225 ; --------------------------------------------------------------------------------------
0225 ; Debug chain
0225 ; --------------------------------------------------------------------------------------
0225 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0227 010b       |    |		.DBGLNO	0x010b
0228 ; --------------------------------------------------------------------------------------
0228 ; Debug chain
0228 ; --------------------------------------------------------------------------------------
0228 0004 0000  |    |		.DBGLEN	0x0004,0x0000
022a 011b 011d  |    |		.DBGLNO	0x011b,0x011d,0x011f,0x0121
022e ; --------------------------------------------------------------------------------------
022e ; Debug chain
022e ; --------------------------------------------------------------------------------------
022e 0004 0000  |    |		.DBGLEN	0x0004,0x0000
0230 0124 0126  | $ &|		.DBGLNO	0x0124,0x0126,0x0128,0x012a
0234 ; --------------------------------------------------------------------------------------
0234 ; Debug chain
0234 ; --------------------------------------------------------------------------------------
0234 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0236 0133 013e  | 3 >|		.DBGLNO	0x0133,0x013e
0238 ; --------------------------------------------------------------------------------------
0238 ; Debug chain
0238 ; --------------------------------------------------------------------------------------
0238 0000 0002  |    |		.DBGLEN	0x0000,0x0002
023a 014b 0156  | K V|		.DBGLNO	0x014b,0x0156
023c ; --------------------------------------------------------------------------------------
023c ; Debug chain
023c ; --------------------------------------------------------------------------------------
023c 0000 0002  |    |		.DBGLEN	0x0000,0x0002
023e 0163 016e  | c n|		.DBGLNO	0x0163,0x016e
0240 ; --------------------------------------------------------------------------------------
0240 ; Debug chain
0240 ; --------------------------------------------------------------------------------------
0240 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0242 017b 0186  | {  |		.DBGLNO	0x017b,0x0186
0244 0000 0000  |    |		.BLANK	0000[0x1bc]