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

⟦5f0c19102⟧

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

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 5900       |Y   |		.CONST	0x5900								; 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 0060       | `  |		.CONST	0x0060								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 001f       |    |		.CONST	0x001f								; Number of locals
000b			INIT_0008:
000b 029a 007b  |   {|		Declare_Subprogram	INIT_0078,For_Outer_Call,Visible,Unelaborated
000d 029a 008b  |    |		Declare_Subprogram	INIT_0088,For_Outer_Call,Visible,Unelaborated
000f 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated
0011 029a 009b  |    |		Declare_Subprogram	INIT_0098,For_Outer_Call,Visible,Unelaborated
0013 029a 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call,Visible,Unelaborated
0015 029a 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Outer_Call,Visible,Unelaborated
0017 029a 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call,Visible,Unelaborated
0019 029a 00db  |    |		Declare_Subprogram	INIT_00d8,For_Outer_Call,Visible,Unelaborated
001b 029a 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Outer_Call,Visible,Unelaborated
001d 029a 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Outer_Call,Visible,Unelaborated
001f 029a 0123  |   #|		Declare_Subprogram	INIT_0120,For_Outer_Call,Visible,Unelaborated
0021 029a 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call,Visible,Unelaborated
0023 029a 0143  |   C|		Declare_Subprogram	INIT_0140,For_Outer_Call,Visible,Unelaborated
0025 029a 0153  |   S|		Declare_Subprogram	INIT_0150,For_Outer_Call,Visible,Unelaborated
0027 029a 0163  |   c|		Declare_Subprogram	INIT_0160,For_Outer_Call,Visible,Unelaborated
0029 0093 0000  |    |		push_full_address	0x0
002b 6054       |`T  |		Indirect_Literal	Discrete,0x80,{0x80000000, 0x00010000}
002c 0273       | s  |		Execute	Discrete,Plus
002d 0129       | )  |		Execute	Any,Make_Visible
002e 4818       |H   |		Short_Literal	0x18
002f 03cd       |    |		Declare_Type	Access,Incomplete,Visible,Accesses_Protected
0030 00bf       |    |		Action	Accept_Activation
0031 e002       |    |		Load	0x0,0x2
0032 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0033 00e4       |    |		Load_Encached	Positive_Cache
0034 00e2       |    |		Load_Encached	Integer_Cache
0035 029f 017b  |   {|		Declare_Subprogram	INIT_0178,For_Call
0037 4803       |H   |		Short_Literal	0x3
0038 032d       | -  |		Declare_Type	Record,Defined
0039 00d8       |    |		Load_Top	At_Offset_0
003a 02a0       |    |		Declare_Subprogram	Null_Subprogram
003b 00db       |    |		Load_Top	At_Offset_3
003c 03c7       |    |		Complete_Type	Access,By_Defining
003d 00d9       |    |		Load_Top	At_Offset_1
003e 03bc       |    |		Declare_Variable	Access,By_Allocation
003f 00d8       |    |		Load_Top	At_Offset_0
0040 00e0       |    |		Load_Encached	Standard_Cache
0041 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0042 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0043 00c7       |    |		Action	Elaborate_Subprogram
0044 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0045 00c7       |    |		Action	Elaborate_Subprogram
0046 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0047 00c7       |    |		Action	Elaborate_Subprogram
0048 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0049 00c7       |    |		Action	Elaborate_Subprogram
004a 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
004b 00c7       |    |		Action	Elaborate_Subprogram
004c 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
004d 00c7       |    |		Action	Elaborate_Subprogram
004e 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
004f 00c7       |    |		Action	Elaborate_Subprogram
0050 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0051 00c7       |    |		Action	Elaborate_Subprogram
0052 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0053 00c7       |    |		Action	Elaborate_Subprogram
0054 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0055 00c7       |    |		Action	Elaborate_Subprogram
0056 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0057 00c7       |    |		Action	Elaborate_Subprogram
0058 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0059 00c7       |    |		Action	Elaborate_Subprogram
005a 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
005b 00c7       |    |		Action	Elaborate_Subprogram
005c 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
005d 00c7       |    |		Action	Elaborate_Subprogram
005e 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
005f 00c7       |    |		Action	Elaborate_Subprogram
0060			BODY_0008:
0060 00d8       |    |		Load_Top	At_Offset_0
0061 0229       | )  |		Execute	Access,All_Read
0062 00d8       |    |		Load_Top	At_Offset_0
0063 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0064 00ea       |    |		Load_Encached	Null_String_Cache
0065 e002       |    |		Load	0x0,0x2
0066 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0067 e002       |    |		Load	0x0,0x2
0068 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0069 4801       |H   |		Short_Literal	0x1
006a e002       |    |		Load	0x0,0x2
006b 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
006c 00d9       |    |		Load_Top	At_Offset_1
006d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
006e 00d1       |    |		Pop_Control	Pop_Count_1
006f 00bc       |    |		Action	Signal_Activated
0070 00bb       |    |		Action	Signal_Completion
0071 0000 0000  |    |		.BLANK	0000[0x7]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b       | {  |		.CONST	0x007b								; Address of begin
0079 0004       |    |		.CONST	0x0004								; Address of exception handler
007a 0001       |    |		.CONST	0x0001								; Number of locals
007b			BODY_0078:
007b			INIT_0078:
007b e21f       |    |		Load	0x1,0x1f
007c 00ca       |    |		Action	Exit_Nullary_Function
007d 0000 0000  |    |		.XXX[0x3]
007f 0000       |    |
0080 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0084 0000 0000  |    |		.BLANK	0000[0x4]
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 e21c       |    |		Load	0x1,0x1c
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 00da       |    |		Load_Top	At_Offset_2
0094 e5fe       |    |		Load	0x2,-0x2
0095 0227       | '  |		Execute	Access,All_Reference
0096 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0097 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
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 00db       |    |		Load_Top	At_Offset_3
009c 0227       | '  |		Execute	Access,All_Reference
009d 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
009e 00db       |    |		Load_Top	At_Offset_3
009f 0273       | s  |		Execute	Discrete,Plus
00a0 e5fe       |    |		Load	0x2,-0x2
00a1 0227       | '  |		Execute	Access,All_Reference
00a2 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00a3 00db       |    |		Load_Top	At_Offset_3
00a4 0227       | '  |		Execute	Access,All_Reference
00a5 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00a6 0d02       |    |		Execute_Immediate	Less,0x2
00a7 6804       |h   |		Jump_Zero	0xac
00a8 4801       |H   |		Short_Literal	0x1
00a9 e5fe       |    |		Load	0x2,-0x2
00aa 0227       | '  |		Execute	Access,All_Reference
00ab 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00ac 00db       |    |		Load_Top	At_Offset_3
00ad 0227       | '  |		Execute	Access,All_Reference
00ae 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00af e5fe       |    |		Load	0x2,-0x2
00b0 0227       | '  |		Execute	Access,All_Reference
00b1 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00b2 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00b3 0000 0000  |    |		.BLANK	0000[0x5]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb       |    |		.CONST	0x00bb								; Address of begin
00b9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ba 0001       |    |		.CONST	0x0001								; Number of locals
00bb			BODY_00b8:
00bb			INIT_00b8:
00bb 00da       |    |		Load_Top	At_Offset_2
00bc 4802       |H   |		Short_Literal	0x2
00bd 8210       |    |		Call	0x1,0x10
00be 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00bf 0000       |    |		.XXX[0x1]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3       |    |		.CONST	0x00c3								; Address of begin
00c1 0004       |    |		.CONST	0x0004								; Address of exception handler
00c2 0001       |    |		.CONST	0x0001								; Number of locals
00c3			BODY_00c0:
00c3			INIT_00c0:
00c3 00da       |    |		Load_Top	At_Offset_2
00c4 4ffe       |O   |		Short_Literal	-0x2
00c5 8210       |    |		Call	0x1,0x10
00c6 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00c7 0000       |    |		.XXX[0x1]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb       |    |		.CONST	0x00cb								; Address of begin
00c9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ca 0001       |    |		.CONST	0x0001								; Number of locals
00cb			BODY_00c8:
00cb			INIT_00c8:
00cb 00db       |    |		Load_Top	At_Offset_3
00cc 00db       |    |		Load_Top	At_Offset_3
00cd 00e1       |    |		Load_Encached	Boolean_Cache
00ce 011c       |    |		Execute	Any,Convert_Unchecked
00cf 1c01       |    |		Execute_Immediate	Run_Utility,0x1
00d0 8216       |    |		Call	0x1,0x16
00d1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00d2 0000 0000  |    |		.BLANK	0000[0x6]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db       |    |		.CONST	0x00db								; Address of begin
00d9 0004       |    |		.CONST	0x0004								; Address of exception handler
00da 0001       |    |		.CONST	0x0001								; Number of locals
00db			BODY_00d8:
00db			INIT_00d8:
00db 00db       |    |		Load_Top	At_Offset_3
00dc 00db       |    |		Load_Top	At_Offset_3
00dd 00ea       |    |		Load_Encached	Null_String_Cache
00de 01cb       |    |		Execute	Vector,Append
00df 8216       |    |		Call	0x1,0x16
00e0 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00e1 0000 0000  |    |		.BLANK	0000[0x7]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb       |    |		.CONST	0x00eb								; Address of begin
00e9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ea 0001       |    |		.CONST	0x0001								; Number of locals
00eb			BODY_00e8:
00eb			INIT_00e8:
00eb 00db       |    |		Load_Top	At_Offset_3
00ec 00db       |    |		Load_Top	At_Offset_3
00ed 00e0       |    |		Load_Encached	Standard_Cache
00ee 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00ef 8216       |    |		Call	0x1,0x16
00f0 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00f1 0000 0000  |    |		.BLANK	0000[0x7]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb       |    |		.CONST	0x00fb								; Address of begin
00f9 0004       |    |		.CONST	0x0004								; 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 0227       | '  |		Execute	Access,All_Reference
00fd 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00fe 00d8       |    |		Load_Top	At_Offset_0
00ff e002       |    |		Load	0x0,0x2
0100 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0101 0260       | `  |		Execute	Discrete,In_Type
0102 7001       |p   |		Jump_Nonzero	0x104
0103 0801       |    |		Execute_Immediate	Raise,0x1
0104 e5fe       |    |		Load	0x2,-0x2
0105 0227       | '  |		Execute	Access,All_Reference
0106 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0107 e002       |    |		Load	0x0,0x2
0108 183a       | :  |		Execute	Package,Field_Execute,Field_Number 0x3a
0109 00da       |    |		Load_Top	At_Offset_2
010a e5fe       |    |		Load	0x2,-0x2
010b 0227       | '  |		Execute	Access,All_Reference
010c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
010d e002       |    |		Load	0x0,0x2
010e 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
010f 00db       |    |		Load_Top	At_Offset_3
0110 0227       | '  |		Execute	Access,All_Reference
0111 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0112 00db       |    |		Load_Top	At_Offset_3
0113 01db       |    |		Execute	Vector,Length
0114 0273       | s  |		Execute	Discrete,Plus
0115 e5fe       |    |		Load	0x2,-0x2
0116 0227       | '  |		Execute	Access,All_Reference
0117 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0118 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0119 0000 0000  |    |		.BLANK	0000[0x7]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123       | #  |		.CONST	0x0123								; Address of begin
0121 0004       |    |		.CONST	0x0004								; Address of exception handler
0122 0001       |    |		.CONST	0x0001								; Number of locals
0123			BODY_0120:
0123			INIT_0120:
0123 00db       |    |		Load_Top	At_Offset_3
0124 00db       |    |		Load_Top	At_Offset_3
0125 8213       |    |		Call	0x1,0x13
0126 4801       |H   |		Short_Literal	0x1
0127 e5fe       |    |		Load	0x2,-0x2
0128 821b       |    |		Call	0x1,0x1b
0129 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
012a 0000 0000  |    |		.BLANK	0000[0x6]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133       | 3  |		.CONST	0x0133								; Address of begin
0131 0004       |    |		.CONST	0x0004								; Address of exception handler
0132 0001       |    |		.CONST	0x0001								; Number of locals
0133			BODY_0130:
0133			INIT_0130:
0133 00db       |    |		Load_Top	At_Offset_3
0134 00db       |    |		Load_Top	At_Offset_3
0135 8214       |    |		Call	0x1,0x14
0136 4801       |H   |		Short_Literal	0x1
0137 e5fe       |    |		Load	0x2,-0x2
0138 821b       |    |		Call	0x1,0x1b
0139 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
013a 0000 0000  |    |		.BLANK	0000[0x6]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143       | C  |		.CONST	0x0143								; Address of begin
0141 0004       |    |		.CONST	0x0004								; 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 00db       |    |		Load_Top	At_Offset_3
0145 8215       |    |		Call	0x1,0x15
0146 4801       |H   |		Short_Literal	0x1
0147 e5fe       |    |		Load	0x2,-0x2
0148 821b       |    |		Call	0x1,0x1b
0149 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
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 00db       |    |		Load_Top	At_Offset_3
0154 00db       |    |		Load_Top	At_Offset_3
0155 8216       |    |		Call	0x1,0x16
0156 4801       |H   |		Short_Literal	0x1
0157 e5fe       |    |		Load	0x2,-0x2
0158 821b       |    |		Call	0x1,0x1b
0159 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
015a 0000 0000  |    |		.BLANK	0000[0x6]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163       | c  |		.CONST	0x0163								; Address of begin
0161 0004       |    |		.CONST	0x0004								; Address of exception handler
0162 0001       |    |		.CONST	0x0001								; Number of locals
0163			BODY_0160:
0163			INIT_0160:
0163 00db       |    |		Load_Top	At_Offset_3
0164 00d8       |    |		Load_Top	At_Offset_0
0165 e002       |    |		Load	0x0,0x2
0166 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0167 0260       | `  |		Execute	Discrete,In_Type
0168 7001       |p   |		Jump_Nonzero	0x16a
0169 0801       |    |		Execute_Immediate	Raise,0x1
016a 00db       |    |		Load_Top	At_Offset_3
016b 0227       | '  |		Execute	Access,All_Reference
016c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
016d e002       |    |		Load	0x0,0x2
016e 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
016f 00da       |    |		Load_Top	At_Offset_2
0170 0227       | '  |		Execute	Access,All_Reference
0171 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0172 00db       |    |		Load_Top	At_Offset_3
0173 0227       | '  |		Execute	Access,All_Reference
0174 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0175 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0176 0000 0000  |    |		.XXX[0x2]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b       | {  |		.CONST	0x017b								; Address of begin
0179 0004       |    |		.CONST	0x0004								; Address of exception handler
017a 0001       |    |		.CONST	0x0001								; Number of locals
017b			BODY_0178:
017b			INIT_0178:
017b 4601       |F   |		Jump_Case	0x2
017c 7801       |x   |		Jump	0x17e								; case 0x0
017d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
017e 00da       |    |		Load_Top	At_Offset_2
017f 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0180 0125       | %  |		Execute	Any,Set_Constraint
0181 00da       |    |		Load_Top	At_Offset_2
0182 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0183 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0184 4801       |H   |		Short_Literal	0x1
0185 00db       |    |		Load_Top	At_Offset_3
0186 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0187 4801       |H   |		Short_Literal	0x1
0188 00db       |    |		Load_Top	At_Offset_3
0189 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
018a 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
018b 0000 0000  |    |		.BLANK	0000[0x5]
0190 ; --------------------------------------------------------------------------------------
0190 ; Debug Table
0190 ; --------------------------------------------------------------------------------------
0190 0004 0004  |    |		.DEBUG4	0x0004,0x0004,0x6176,0x0000,0x0001,0x0012
0196 000b 01de  |    |		.DBG4T	0x000b,0x01de,0x8000,0x8000
019a 0031 0202  | 1  |		.DBG4T	0x0031,0x0202,0x8000,0x0000
019e 007b 0216  | {  |		.DBG4T	0x007b,0x0216,0x0002,0x0000
01a2 008b 0219  |    |		.DBG4T	0x008b,0x0219,0x0001,0x0000
01a6 0093 021c  |    |		.DBG4T	0x0093,0x021c,0x0001,0x0000
01aa 009b 021f  |    |		.DBG4T	0x009b,0x021f,0x0001,0x0000
01ae 00bb 0225  |   %|		.DBG4T	0x00bb,0x0225,0x0001,0x0000
01b2 00c3 0228  |   (|		.DBG4T	0x00c3,0x0228,0x0001,0x0000
01b6 00cb 022b  |   +|		.DBG4T	0x00cb,0x022b,0x0001,0x0000
01ba 00db 022e  |   .|		.DBG4T	0x00db,0x022e,0x0001,0x0000
01be 00eb 0231  |   1|		.DBG4T	0x00eb,0x0231,0x0001,0x0000
01c2 00fb 0234  |   4|		.DBG4T	0x00fb,0x0234,0x0001,0x0000
01c6 0123 0239  | # 9|		.DBG4T	0x0123,0x0239,0x0001,0x0000
01ca 0133 023d  | 3 =|		.DBG4T	0x0133,0x023d,0x0001,0x0000
01ce 0143 0241  | C A|		.DBG4T	0x0143,0x0241,0x0001,0x0000
01d2 0153 0245  | S E|		.DBG4T	0x0153,0x0245,0x0001,0x0000
01d6 0163 0249  | c I|		.DBG4T	0x0163,0x0249,0x0001,0x0000
01da 017b 0000  | {  |		.DBG4T	0x017b,0x0000,0x0005,0x0000
01de ; --------------------------------------------------------------------------------------
01de ; Debug chain
01de ; --------------------------------------------------------------------------------------
01de 0011 0000  |    |		.DBGLEN	0x0011,0x0000
01e0 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002e
01f1 0002 0003  |    |		.XXX[0x11]
01f3 0004 0005  |    |
01f5 0006 0007  |    |
01f7 0008 0009  |    |
01f9 000a 000b  |    |
01fb 000c 000d  |    |
01fd 000e 000f  |    |
01ff 0010 0011  |    |
0201 0013       |    |
0202 ; --------------------------------------------------------------------------------------
0202 ; Debug chain
0202 ; --------------------------------------------------------------------------------------
0202 0011 0001  |    |		.DBGLEN	0x0011,0x0001
0204 0031 003d  | 1 =|		.DBGLNO	0x0031,0x003d,0x0042,0x0044,0x0046,0x0048,0x004a,0x004c,0x004e,0x0050,0x0052,0x0054,0x0056,0x0058,0x005a,0x005c,0x005e,0x0060
0216 ; --------------------------------------------------------------------------------------
0216 ; Debug chain
0216 ; --------------------------------------------------------------------------------------
0216 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0218 007b       | {  |		.DBGLNO	0x007b
0219 ; --------------------------------------------------------------------------------------
0219 ; Debug chain
0219 ; --------------------------------------------------------------------------------------
0219 0000 0001  |    |		.DBGLEN	0x0000,0x0001
021b 008b       |    |		.DBGLNO	0x008b
021c ; --------------------------------------------------------------------------------------
021c ; Debug chain
021c ; --------------------------------------------------------------------------------------
021c 0000 0001  |    |		.DBGLEN	0x0000,0x0001
021e 0093       |    |		.DBGLNO	0x0093
021f ; --------------------------------------------------------------------------------------
021f ; Debug chain
021f ; --------------------------------------------------------------------------------------
021f 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0221 009b 00a3  |    |		.DBGLNO	0x009b,0x00a3,0x00a8,0x00ac
0225 ; --------------------------------------------------------------------------------------
0225 ; Debug chain
0225 ; --------------------------------------------------------------------------------------
0225 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0227 00bb       |    |		.DBGLNO	0x00bb
0228 ; --------------------------------------------------------------------------------------
0228 ; Debug chain
0228 ; --------------------------------------------------------------------------------------
0228 0000 0001  |    |		.DBGLEN	0x0000,0x0001
022a 00c3       |    |		.DBGLNO	0x00c3
022b ; --------------------------------------------------------------------------------------
022b ; Debug chain
022b ; --------------------------------------------------------------------------------------
022b 0000 0001  |    |		.DBGLEN	0x0000,0x0001
022d 00cb       |    |		.DBGLNO	0x00cb
022e ; --------------------------------------------------------------------------------------
022e ; Debug chain
022e ; --------------------------------------------------------------------------------------
022e 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0230 00db       |    |		.DBGLNO	0x00db
0231 ; --------------------------------------------------------------------------------------
0231 ; Debug chain
0231 ; --------------------------------------------------------------------------------------
0231 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0233 00eb       |    |		.DBGLNO	0x00eb
0234 ; --------------------------------------------------------------------------------------
0234 ; Debug chain
0234 ; --------------------------------------------------------------------------------------
0234 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0236 00fb 0109  |    |		.DBGLNO	0x00fb,0x0109,0x010f
0239 ; --------------------------------------------------------------------------------------
0239 ; Debug chain
0239 ; --------------------------------------------------------------------------------------
0239 0000 0002  |    |		.DBGLEN	0x0000,0x0002
023b 0123 0126  | # &|		.DBGLNO	0x0123,0x0126
023d ; --------------------------------------------------------------------------------------
023d ; Debug chain
023d ; --------------------------------------------------------------------------------------
023d 0000 0002  |    |		.DBGLEN	0x0000,0x0002
023f 0133 0136  | 3 6|		.DBGLNO	0x0133,0x0136
0241 ; --------------------------------------------------------------------------------------
0241 ; Debug chain
0241 ; --------------------------------------------------------------------------------------
0241 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0243 0143 0146  | C F|		.DBGLNO	0x0143,0x0146
0245 ; --------------------------------------------------------------------------------------
0245 ; Debug chain
0245 ; --------------------------------------------------------------------------------------
0245 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0247 0153 0156  | S V|		.DBGLNO	0x0153,0x0156
0249 ; --------------------------------------------------------------------------------------
0249 ; Debug chain
0249 ; --------------------------------------------------------------------------------------
0249 0000 0002  |    |		.DBGLEN	0x0000,0x0002
024b 0163 016f  | c o|		.DBGLNO	0x0163,0x016f
024d 0000 0000  |    |		.BLANK	0000[0x1b3]