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

⟦131e3370e⟧

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

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 0188       |    |		.CONST	0x0188								; 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 0049       | I  |		.CONST	0x0049								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 001b       |    |		.CONST	0x001b								; 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 0053  |   S|		Declare_Subprogram	INIT_0050,For_Outer_Call,Visible,Unelaborated
0010 029a 0083  |    |		Declare_Subprogram	INIT_0080,For_Outer_Call,Visible,Unelaborated
0012 4800       |H   |		Short_Literal	0x0
0013 0093 0113  |    |		push_full_address	INIT_0110
0015 02a0       |    |		Declare_Subprogram	Null_Subprogram
0016 038f       |    |		Declare_Type	Package,Defined,Visible
0017 0386       |    |		Declare_Variable	Package,Visible
0018 e001       |    |		Load	0x0,0x1
0019 0129       | )  |		Execute	Any,Make_Visible
001a 00e9       |    |		Load_Encached	String_Cache
001b 02a0       |    |		Declare_Subprogram	Null_Subprogram
001c 4818       |H   |		Short_Literal	0x18
001d 03d3       |    |		Declare_Type	Access,Defined,Accesses_Protected
001e 4802       |H   |		Short_Literal	0x2
001f 032a       | *  |		Declare_Type	Record,Incomplete
0020 00d8       |    |		Load_Top	At_Offset_0
0021 02a0       |    |		Declare_Subprogram	Null_Subprogram
0022 e20d       |    |		Load	0x1,0xd
0023 03c7       |    |		Complete_Type	Access,By_Defining
0024 00d9       |    |		Load_Top	At_Offset_1
0025 e20d       |    |		Load	0x1,0xd
0026 02a0       |    |		Declare_Subprogram	Null_Subprogram
0027 00db       |    |		Load_Top	At_Offset_3
0028 0326       | &  |		Complete_Type	Record,By_Defining
0029 e20d       |    |		Load	0x1,0xd
002a 0129       | )  |		Execute	Any,Make_Visible
002b c20e       |    |		Store	0x1,0xe
002c 00bf       |    |		Action	Accept_Activation
002d 00e3       |    |		Load_Encached	Natural_Cache
002e 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
002f 4801       |H   |		Short_Literal	0x1
0030 4a05       |J   |		Short_Literal	0x205
0031 e20d       |    |		Load	0x1,0xd
0032 02a0       |    |		Declare_Subprogram	Null_Subprogram
0033 4801       |H   |		Short_Literal	0x1
0034 035d       | ]  |		Declare_Type	Array,Defined
0035 00d8       |    |		Load_Top	At_Offset_0
0036 0337       | 7  |		Declare_Variable	Array
0037 029d 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call
0039 029d 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Outer_Call
003b 029d 00e3  |    |		Declare_Subprogram	INIT_00e0,For_Outer_Call
003d 029d 0103  |    |		Declare_Subprogram	INIT_0100,For_Outer_Call
003f 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0040 00c7       |    |		Action	Elaborate_Subprogram
0041 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0042 00c7       |    |		Action	Elaborate_Subprogram
0043 00b6       |    |		Action	Make_Scope
0044 4801       |H   |		Short_Literal	0x1
0045 e211       |    |		Load	0x1,0x11
0046 020e       |    |		Execute	Module,Augment_Imports
0047 e211       |    |		Load	0x1,0x11
0048 020f       |    |		Execute	Module,Activate
0049			BODY_0008:
0049 8218       |    |		Call	0x1,0x18
004a 00bc       |    |		Action	Signal_Activated
004b 00bb       |    |		Action	Signal_Completion
004c 0000 0000  |    |		.BLANK	0000[0x4]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0058       | X  |		.CONST	0x0058								; Address of begin
0051 0004       |    |		.CONST	0x0004								; Address of exception handler
0052 0004       |    |		.CONST	0x0004								; Number of locals
0053			INIT_0050:
0053 00e2       |    |		Load_Encached	Integer_Cache
0054 00e1       |    |		Load_Encached	Boolean_Cache
0055 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0056 e20d       |    |		Load	0x1,0xd
0057 0007       |    |		Action	Break_Optional
0058			BODY_0050:
0058 e5ff       |    |		Load	0x2,-0x1
0059 8219       |    |		Call	0x1,0x19
005a 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
005b 00da       |    |		Load_Top	At_Offset_2
005c e217       |    |		Load	0x1,0x17
005d 01d7       |    |		Execute	Vector,Field_Read
005e 0039       | 9  |		Store_Top	Access,At_Offset_1
005f 00cf       |    |		Action	Mark_Auxiliary
0060 780f       |x   |		Jump	0x70
0061 e5ff       |    |		Load	0x2,-0x1
0062 00da       |    |		Load_Top	At_Offset_2
0063 0227       | '  |		Execute	Access,All_Reference
0064 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0065 0227       | '  |		Execute	Access,All_Reference
0066 01df       |    |		Execute	Vector,Equal
0067 6803       |h   |		Jump_Zero	0x6b
0068 4801       |H   |		Short_Literal	0x1
0069 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
006a 7804       |x   |		Jump	0x6f
006b 00d9       |    |		Load_Top	At_Offset_1
006c 0227       | '  |		Execute	Access,All_Reference
006d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
006e 003a       | :  |		Store_Top	Access,At_Offset_2
006f 00c9       |    |		Action	Pop_Auxiliary_Loop
0070 00da       |    |		Load_Top	At_Offset_2
0071 7004       |p   |		Jump_Nonzero	0x76
0072 00d9       |    |		Load_Top	At_Offset_1
0073 e20d       |    |		Load	0x1,0xd
0074 022e       | .  |		Execute	Access,Not_Equal
0075 77eb       |w   |		Jump_Nonzero	0x61
0076 00ce       |    |		Action	Pop_Auxiliary
0077 00d9       |    |		Load_Top	At_Offset_1
0078 7003       |p   |		Jump_Nonzero	0x7c
0079 00da       |    |		Load_Top	At_Offset_2
007a e5ff       |    |		Load	0x2,-0x1
007b 821a       |    |		Call	0x1,0x1a
007c 00da       |    |		Load_Top	At_Offset_2
007d e217       |    |		Load	0x1,0x17
007e 01d7       |    |		Execute	Vector,Field_Read
007f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083       |    |		.CONST	0x0083								; Address of begin
0081 008a       |    |		.CONST	0x008a								; Address of exception handler
0082 0001       |    |		.CONST	0x0001								; Number of locals
0083			BODY_0080:
0083			INIT_0080:
0083 00da       |    |		Load_Top	At_Offset_2
0084 0227       | '  |		Execute	Access,All_Reference
0085 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0086 0227       | '  |		Execute	Access,All_Reference
0087 0335       | 5  |		Declare_Variable	Array,Duplicate
0088 00cd       |    |		Action	Spare6_Action
0089 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
008a			TRAP_0080:
008a 0007       |    |		Action	Break_Optional
008b e212       |    |		Load	0x1,0x12
008c 0257       | W  |		Execute	Discrete,Raise
008d 0000 0000  |    |		.XXX[0x3]
008f 0000       |    |
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093       |    |		.CONST	0x0093								; Address of begin
0091 0004       |    |		.CONST	0x0004								; Address of exception handler
0092 0001       |    |		.CONST	0x0001								; Number of locals
0093			BODY_0090:
0093			INIT_0090:
0093 00cf       |    |		Action	Mark_Auxiliary
0094 e217       |    |		Load	0x1,0x17
0095 01d9       |    |		Execute	Vector,Reverse_Bounds
0096 0007       |    |		Action	Break_Optional
0097 e20d       |    |		Load	0x1,0xd
0098 00d9       |    |		Load_Top	At_Offset_1
0099 e217       |    |		Load	0x1,0x17
009a 01d6       |    |		Execute	Vector,Field_Write
009b 00c8       |    |		Action	Pop_Auxiliary_Range
009c 3ffa       |?   |		Loop_Increasing	0x97
009d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
009e 0000 0000  |    |		.XXX[0x2]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a7       |    |		.CONST	0x00a7								; Address of begin
00a1 0004       |    |		.CONST	0x0004								; Address of exception handler
00a2 0004       |    |		.CONST	0x0004								; Number of locals
00a3			INIT_00a0:
00a3 00e2       |    |		Load_Encached	Integer_Cache
00a4 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
00a5 00e2       |    |		Load_Encached	Integer_Cache
00a6 00e2       |    |		Load_Encached	Integer_Cache
00a7			BODY_00a0:
00a7 e5ff       |    |		Load	0x2,-0x1
00a8 01db       |    |		Execute	Vector,Length
00a9 4803       |H   |		Short_Literal	0x3
00aa 0270       | p  |		Execute	Discrete,Divide
00ab 005a       | Z  |		Store_Top	Discrete,At_Offset_2
00ac 00d9       |    |		Load_Top	At_Offset_1
00ad 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
00ae 00d9       |    |		Load_Top	At_Offset_1
00af 700f       |p   |		Jump_Nonzero	0xbf
00b0 00cf       |    |		Action	Mark_Auxiliary
00b1 e5ff       |    |		Load	0x2,-0x1
00b2 01d9       |    |		Execute	Vector,Reverse_Bounds
00b3 0263       | c  |		Execute	Discrete,Above_Bound
00b4 7008       |p   |		Jump_Nonzero	0xbd
00b5 e402       |    |		Load	0x2,0x2
00b6 00d9       |    |		Load_Top	At_Offset_1
00b7 e5ff       |    |		Load	0x2,-0x1
00b8 01d7       |    |		Execute	Vector,Field_Read
00b9 0273       | s  |		Execute	Discrete,Plus
00ba c402       |    |		Store	0x2,0x2
00bb 00c8       |    |		Action	Pop_Auxiliary_Range
00bc 3ff8       |?   |		Loop_Increasing	0xb5
00bd 00ce       |    |		Action	Pop_Auxiliary
00be 7817       |x   |		Jump	0xd6
00bf 00da       |    |		Load_Top	At_Offset_2
00c0 4801       |H   |		Short_Literal	0x1
00c1 e5ff       |    |		Load	0x2,-0x1
00c2 01d7       |    |		Execute	Vector,Field_Read
00c3 0273       | s  |		Execute	Discrete,Plus
00c4 005b       | [  |		Store_Top	Discrete,At_Offset_3
00c5 00cf       |    |		Action	Mark_Auxiliary
00c6 4803       |H   |		Short_Literal	0x3
00c7 4801       |H   |		Short_Literal	0x1
00c8 0007       |    |		Action	Break_Optional
00c9 e402       |    |		Load	0x2,0x2
00ca e404       |    |		Load	0x2,0x4
00cb e5ff       |    |		Load	0x2,-0x1
00cc 01d7       |    |		Execute	Vector,Field_Read
00cd 0273       | s  |		Execute	Discrete,Plus
00ce c402       |    |		Store	0x2,0x2
00cf 00db       |    |		Load_Top	At_Offset_3
00d0 e403       |    |		Load	0x2,0x3
00d1 0273       | s  |		Execute	Discrete,Plus
00d2 c404       |    |		Store	0x2,0x4
00d3 00c8       |    |		Action	Pop_Auxiliary_Range
00d4 3ff4       |?   |		Loop_Increasing	0xc9
00d5 00ce       |    |		Action	Pop_Auxiliary
00d6 00da       |    |		Load_Top	At_Offset_2
00d7 4a05       |J   |		Short_Literal	0x205
00d8 026e       | n  |		Execute	Discrete,Modulo
00d9 0a01       |    |		Execute_Immediate	Plus,0x1
00da 00d8       |    |		Load_Top	At_Offset_0
00db 00e2       |    |		Load_Encached	Integer_Cache
00dc 0260       | `  |		Execute	Discrete,In_Type
00dd 7001       |p   |		Jump_Nonzero	0xdf
00de 0801       |    |		Execute_Immediate	Raise,0x1
00df 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e5       |    |		.CONST	0x00e5								; Address of begin
00e1 0004       |    |		.CONST	0x0004								; Address of exception handler
00e2 0002       |    |		.CONST	0x0002								; Number of locals
00e3			INIT_00e0:
00e3 e20d       |    |		Load	0x1,0xd
00e4 0007       |    |		Action	Break_Optional
00e5			BODY_00e0:
00e5 e214       |    |		Load	0x1,0x14
00e6 0322       | "  |		Declare_Variable	Record
00e7 e5ff       |    |		Load	0x2,-0x1
00e8 e213       |    |		Load	0x1,0x13
00e9 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00ea 00d9       |    |		Load_Top	At_Offset_1
00eb 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00ec e5fe       |    |		Load	0x2,-0x2
00ed e217       |    |		Load	0x1,0x17
00ee 01d7       |    |		Execute	Vector,Field_Read
00ef 00d9       |    |		Load_Top	At_Offset_1
00f0 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00f1 e20d       |    |		Load	0x1,0xd
00f2 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00f3 0039       | 9  |		Store_Top	Access,At_Offset_1
00f4 00d8       |    |		Load_Top	At_Offset_0
00f5 e5fe       |    |		Load	0x2,-0x2
00f6 e217       |    |		Load	0x1,0x17
00f7 01d6       |    |		Execute	Vector,Field_Write
00f8 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00f9 0000 0000  |    |		.BLANK	0000[0x7]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103       |    |		.CONST	0x0103								; Address of begin
0101 0004       |    |		.CONST	0x0004								; Address of exception handler
0102 0001       |    |		.CONST	0x0001								; Number of locals
0103			BODY_0100:
0103			INIT_0100:
0103 00da       |    |		Load_Top	At_Offset_2
0104 e5fe       |    |		Load	0x2,-0x2
0105 0227       | '  |		Execute	Access,All_Reference
0106 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0107 0227       | '  |		Execute	Access,All_Reference
0108 01df       |    |		Execute	Vector,Equal
0109 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
010a 0000 0000  |    |		.BLANK	0000[0x6]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0124       | $  |		.CONST	0x0124								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0010       |    |		.CONST	0x0010								; Number of locals
0113			INIT_0110:
0113 029a 012b  |   +|		Declare_Subprogram	INIT_0128,For_Outer_Call,Visible,Unelaborated
0115 029a 0143  |   C|		Declare_Subprogram	INIT_0140,For_Outer_Call,Visible,Unelaborated
0117 029a 015b  |   [|		Declare_Subprogram	INIT_0158,For_Outer_Call,Visible,Unelaborated
0119 029a 0173  |   s|		Declare_Subprogram	INIT_0170,For_Outer_Call,Visible,Unelaborated
011b 00bf       |    |		Action	Accept_Activation
011c 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
011d 00c7       |    |		Action	Elaborate_Subprogram
011e 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
011f 00c7       |    |		Action	Elaborate_Subprogram
0120 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0121 00c7       |    |		Action	Elaborate_Subprogram
0122 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0123 00c7       |    |		Action	Elaborate_Subprogram
0124			BODY_0110:
0124 00bc       |    |		Action	Signal_Activated
0125 00bb       |    |		Action	Signal_Completion
0126 0000 0000  |    |		.XXX[0x2]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b       | +  |		.CONST	0x012b								; Address of begin
0129 0135       | 5  |		.CONST	0x0135								; Address of exception handler
012a 0001       |    |		.CONST	0x0001								; Number of locals
012b			BODY_0128:
012b			INIT_0128:
012b 00da       |    |		Load_Top	At_Offset_2
012c 0227       | '  |		Execute	Access,All_Reference
012d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
012e 0227       | '  |		Execute	Access,All_Reference
012f e5fe       |    |		Load	0x2,-0x2
0130 0227       | '  |		Execute	Access,All_Reference
0131 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0132 0227       | '  |		Execute	Access,All_Reference
0133 01c1       |    |		Execute	Vector,Less
0134 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0135			TRAP_0128:
0135 0007       |    |		Action	Break_Optional
0136 e001       |    |		Load	0x0,0x1
0137 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0138 0257       | W  |		Execute	Discrete,Raise
0139 0000 0000  |    |		.BLANK	0000[0x7]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143       | C  |		.CONST	0x0143								; Address of begin
0141 014d       | M  |		.CONST	0x014d								; Address of exception handler
0142 0001       |    |		.CONST	0x0001								; Number of locals
0143			BODY_0140:
0143			INIT_0140:
0143 00db       |    |		Load_Top	At_Offset_3
0144 0227       | '  |		Execute	Access,All_Reference
0145 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0146 0227       | '  |		Execute	Access,All_Reference
0147 00db       |    |		Load_Top	At_Offset_3
0148 0227       | '  |		Execute	Access,All_Reference
0149 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
014a 0227       | '  |		Execute	Access,All_Reference
014b 01c1       |    |		Execute	Vector,Less
014c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
014d			TRAP_0140:
014d 0007       |    |		Action	Break_Optional
014e e001       |    |		Load	0x0,0x1
014f 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0150 0257       | W  |		Execute	Discrete,Raise
0151 0000 0000  |    |		.BLANK	0000[0x7]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b       | [  |		.CONST	0x015b								; Address of begin
0159 0165       | e  |		.CONST	0x0165								; Address of exception handler
015a 0001       |    |		.CONST	0x0001								; Number of locals
015b			BODY_0158:
015b			INIT_0158:
015b 00da       |    |		Load_Top	At_Offset_2
015c 0227       | '  |		Execute	Access,All_Reference
015d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
015e 0227       | '  |		Execute	Access,All_Reference
015f e5fe       |    |		Load	0x2,-0x2
0160 0227       | '  |		Execute	Access,All_Reference
0161 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0162 0227       | '  |		Execute	Access,All_Reference
0163 01bf       |    |		Execute	Vector,Less_Equal
0164 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0165			TRAP_0158:
0165 0007       |    |		Action	Break_Optional
0166 e001       |    |		Load	0x0,0x1
0167 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0168 0257       | W  |		Execute	Discrete,Raise
0169 0000 0000  |    |		.BLANK	0000[0x7]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173       | s  |		.CONST	0x0173								; Address of begin
0171 017d       | }  |		.CONST	0x017d								; Address of exception handler
0172 0001       |    |		.CONST	0x0001								; Number of locals
0173			BODY_0170:
0173			INIT_0170:
0173 00db       |    |		Load_Top	At_Offset_3
0174 0227       | '  |		Execute	Access,All_Reference
0175 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0176 0227       | '  |		Execute	Access,All_Reference
0177 00db       |    |		Load_Top	At_Offset_3
0178 0227       | '  |		Execute	Access,All_Reference
0179 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
017a 0227       | '  |		Execute	Access,All_Reference
017b 01bf       |    |		Execute	Vector,Less_Equal
017c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
017d			TRAP_0170:
017d 0007       |    |		Action	Break_Optional
017e e001       |    |		Load	0x0,0x1
017f 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0180 0257       | W  |		Execute	Discrete,Raise
0181 0000 0000  |    |		.BLANK	0000[0x7]
0188 ; --------------------------------------------------------------------------------------
0188 ; Debug Table
0188 ; --------------------------------------------------------------------------------------
0188 0004 0001  |    |		.DEBUG4	0x0004,0x0001,0xe443,0x0000,0x0001,0x000e
018e 000b 01c6  |    |		.DBG4T	0x000b,0x01c6,0x8000,0x0000
0192 002d 01d3  | -  |		.DBG4T	0x002d,0x01d3,0x8000,0x8000
0196 0053 01ea  | S  |		.DBG4T	0x0053,0x01ea,0x0002,0x4000
019a 0083 0201  |    |		.DBG4T	0x0083,0x0201,0x0002,0x0000
019e 0093 0205  |    |		.DBG4T	0x0093,0x0205,0x0001,0x0000
01a2 00a3 0209  |    |		.DBG4T	0x00a3,0x0209,0x0002,0x0000
01a6 00e3 0218  |    |		.DBG4T	0x00e3,0x0218,0x0001,0x0000
01aa 0103 021d  |    |		.DBG4T	0x0103,0x021d,0x0002,0x0000
01ae 0113 0220  |    |		.DBG4T	0x0113,0x0220,0x0000,0x0000
01b2 011c 0226  |   &|		.DBG4T	0x011c,0x0226,0x0000,0x0000
01b6 012b 022c  | + ,|		.DBG4T	0x012b,0x022c,0x0002,0x0000
01ba 0143 0230  | C 0|		.DBG4T	0x0143,0x0230,0x0002,0x0000
01be 015b 0234  | [ 4|		.DBG4T	0x015b,0x0234,0x0002,0x0000
01c2 0173 0238  | s 8|		.DBG4T	0x0173,0x0238,0x0002,0x0000
01c6 ; --------------------------------------------------------------------------------------
01c6 ; Debug chain
01c6 ; --------------------------------------------------------------------------------------
01c6 000b 0000  |    |		.DBGLEN	0x000b,0x0000
01c8 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x000e,0x0010,0x0012,0x0018,0x001a,0x001e,0x0020,0x0024,0x0029
01d3 ; --------------------------------------------------------------------------------------
01d3 ; Debug chain
01d3 ; --------------------------------------------------------------------------------------
01d3 000a 0001  |    |		.DBGLEN	0x000a,0x0001
01d5 002d 002f  | - /|		.DBGLNO	0x002d,0x002f,0x0035,0x0037,0x0039,0x003b,0x003d,0x003f,0x0041,0x0043,0x0049
01e0 0001 0003  |    |		.XXX[0xa]
01e2 0004 0005  |    |
01e4 0006 0007  |    |
01e6 0008 0009  |    |
01e8 000a 000b  |    |
01ea ; --------------------------------------------------------------------------------------
01ea ; Debug chain
01ea ; --------------------------------------------------------------------------------------
01ea 0003 0009  |    |		.DBGLEN	0x0003,0x0009
01ec 0053 0054  | S T|		.DBGLNO	0x0053,0x0054,0x0056,0x0058,0x005b,0x0061,0x0068,0x006b,0x0070,0x0077,0x0079,0x007c
01f8 0001 0002  |    |		.XXX[0x9]
01fa 0004 0005  |    |
01fc 0006 0003  |    |
01fe 0007 0008  |    |
0200 0009       |    |
0201 ; --------------------------------------------------------------------------------------
0201 ; Debug chain
0201 ; --------------------------------------------------------------------------------------
0201 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0203 0083 008b  |    |		.DBGLNO	0x0083,0x008b
0205 ; --------------------------------------------------------------------------------------
0205 ; Debug chain
0205 ; --------------------------------------------------------------------------------------
0205 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0207 0094 0097  |    |		.DBGLNO	0x0094,0x0097
0209 ; --------------------------------------------------------------------------------------
0209 ; Debug chain
0209 ; --------------------------------------------------------------------------------------
0209 0003 000a  |    |		.DBGLEN	0x0003,0x000a
020b 00a3 00a5  |    |		.DBGLNO	0x00a3,0x00a5,0x00a6,0x00a7,0x00ac,0x00ae,0x00b1,0x00b5,0x00bf,0x00c6,0x00c9,0x00cf,0x00d6
0218 ; --------------------------------------------------------------------------------------
0218 ; Debug chain
0218 ; --------------------------------------------------------------------------------------
0218 0001 0002  |    |		.DBGLEN	0x0001,0x0002
021a 00e3 00e5  |    |		.DBGLNO	0x00e3,0x00e5,0x00f4
021d ; --------------------------------------------------------------------------------------
021d ; Debug chain
021d ; --------------------------------------------------------------------------------------
021d 0000 0001  |    |		.DBGLEN	0x0000,0x0001
021f 0103       |    |		.DBGLNO	0x0103
0220 ; --------------------------------------------------------------------------------------
0220 ; Debug chain
0220 ; --------------------------------------------------------------------------------------
0220 0004 0000  |    |		.DBGLEN	0x0004,0x0000
0222 0113 0115  |    |		.DBGLNO	0x0113,0x0115,0x0117,0x0119
0226 ; --------------------------------------------------------------------------------------
0226 ; Debug chain
0226 ; --------------------------------------------------------------------------------------
0226 0004 0000  |    |		.DBGLEN	0x0004,0x0000
0228 011c 011e  |    |		.DBGLNO	0x011c,0x011e,0x0120,0x0122
022c ; --------------------------------------------------------------------------------------
022c ; Debug chain
022c ; --------------------------------------------------------------------------------------
022c 0000 0002  |    |		.DBGLEN	0x0000,0x0002
022e 012b 0136  | + 6|		.DBGLNO	0x012b,0x0136
0230 ; --------------------------------------------------------------------------------------
0230 ; Debug chain
0230 ; --------------------------------------------------------------------------------------
0230 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0232 0143 014e  | C N|		.DBGLNO	0x0143,0x014e
0234 ; --------------------------------------------------------------------------------------
0234 ; Debug chain
0234 ; --------------------------------------------------------------------------------------
0234 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0236 015b 0166  | [ f|		.DBGLNO	0x015b,0x0166
0238 ; --------------------------------------------------------------------------------------
0238 ; Debug chain
0238 ; --------------------------------------------------------------------------------------
0238 0000 0002  |    |		.DBGLEN	0x0000,0x0002
023a 0173 017e  | s ~|		.DBGLNO	0x0173,0x017e
023c 0000 0000  |    |		.BLANK	0000[0x1c4]