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

⟦1848bfc39⟧

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

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 5900       |Y   |		.CONST	0x5900								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0178       | x  |		.CONST	0x0178								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 0001       |    |		.CONST	0x0001								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0057       | W  |		.CONST	0x0057								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 001d       |    |		.CONST	0x001d								; Number of locals
000b			INIT_0008:
000b 029a 0063  |   c|		Declare_Subprogram	INIT_0060,For_Outer_Call,Visible,Unelaborated
000d 029a 007b  |   {|		Declare_Subprogram	INIT_0078,For_Outer_Call,Visible,Unelaborated
000f 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated
0011 029a 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Outer_Call,Visible,Unelaborated
0013 029a 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Outer_Call,Visible,Unelaborated
0015 029a 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call,Visible,Unelaborated
0017 029a 00e3  |    |		Declare_Subprogram	INIT_00e0,For_Outer_Call,Visible,Unelaborated
0019 029a 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Outer_Call,Visible,Unelaborated
001b 029a 010b  |    |		Declare_Subprogram	INIT_0108,For_Outer_Call,Visible,Unelaborated
001d 029a 011b  |    |		Declare_Subprogram	INIT_0118,For_Outer_Call,Visible,Unelaborated
001f 029a 0123  |   #|		Declare_Subprogram	INIT_0120,For_Outer_Call,Visible,Unelaborated
0021 029a 012b  |   +|		Declare_Subprogram	INIT_0128,For_Outer_Call,Visible,Unelaborated
0023 029a 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call,Visible,Unelaborated
0025 029a 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Outer_Call,Visible,Unelaborated
0027 029a 0143  |   C|		Declare_Subprogram	INIT_0140,For_Outer_Call,Visible,Unelaborated
0029 029a 0153  |   S|		Declare_Subprogram	INIT_0150,For_Outer_Call,Visible,Unelaborated
002b e002       |    |		Load	0x0,0x2
002c e003       |    |		Load	0x0,0x3
002d e004       |    |		Load	0x0,0x4
002e 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
002f e005       |    |		Load	0x0,0x5
0030 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0031 e006       |    |		Load	0x0,0x6
0032 029f 0163  |   c|		Declare_Subprogram	INIT_0160,For_Call
0034 4805       |H   |		Short_Literal	0x5
0035 032e       | .  |		Declare_Type	Record,Defined,Visible
0036 00bf       |    |		Action	Accept_Activation
0037 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0038 00c7       |    |		Action	Elaborate_Subprogram
0039 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
003a 00c7       |    |		Action	Elaborate_Subprogram
003b 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
003c 00c7       |    |		Action	Elaborate_Subprogram
003d 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
003e 00c7       |    |		Action	Elaborate_Subprogram
003f 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0040 00c7       |    |		Action	Elaborate_Subprogram
0041 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0042 00c7       |    |		Action	Elaborate_Subprogram
0043 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0044 00c7       |    |		Action	Elaborate_Subprogram
0045 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0046 00c7       |    |		Action	Elaborate_Subprogram
0047 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0048 00c7       |    |		Action	Elaborate_Subprogram
0049 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
004a 00c7       |    |		Action	Elaborate_Subprogram
004b 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
004c 00c7       |    |		Action	Elaborate_Subprogram
004d 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
004e 00c7       |    |		Action	Elaborate_Subprogram
004f 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0050 00c7       |    |		Action	Elaborate_Subprogram
0051 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0052 00c7       |    |		Action	Elaborate_Subprogram
0053 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0054 00c7       |    |		Action	Elaborate_Subprogram
0055 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0056 00c7       |    |		Action	Elaborate_Subprogram
0057			BODY_0008:
0057 00bc       |    |		Action	Signal_Activated
0058 00bb       |    |		Action	Signal_Completion
0059 0000 0000  |    |		.BLANK	0000[0x7]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0067       | g  |		.CONST	0x0067								; Address of begin
0061 0004       |    |		.CONST	0x0004								; Address of exception handler
0062 0003       |    |		.CONST	0x0003								; Number of locals
0063			INIT_0060:
0063 e004       |    |		Load	0x0,0x4
0064 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0065 e005       |    |		Load	0x0,0x5
0066 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0067			BODY_0060:
0067 e004       |    |		Load	0x0,0x4
0068 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0069 e004       |    |		Load	0x0,0x4
006a 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
006b 003a       | :  |		Store_Top	Access,At_Offset_2
006c e005       |    |		Load	0x0,0x5
006d 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
006e e005       |    |		Load	0x0,0x5
006f 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0070 0039       | 9  |		Store_Top	Access,At_Offset_1
0071 00d9       |    |		Load_Top	At_Offset_1
0072 e5ff       |    |		Load	0x2,-0x1
0073 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0074 00d8       |    |		Load_Top	At_Offset_0
0075 e5ff       |    |		Load	0x2,-0x1
0076 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0077 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
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 00da       |    |		Load_Top	At_Offset_2
007c e5fc       |    |		Load	0x2,-0x4
007d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
007e 00db       |    |		Load_Top	At_Offset_3
007f e5fc       |    |		Load	0x2,-0x4
0080 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0081 e5fc       |    |		Load	0x2,-0x4
0082 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0083 e5fd       |    |		Load	0x2,-0x3
0084 e004       |    |		Load	0x0,0x4
0085 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0086 e5fc       |    |		Load	0x2,-0x4
0087 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0088 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0089 0000 0000  |    |		.BLANK	0000[0x7]
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 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0096 e004       |    |		Load	0x0,0x4
0097 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0098 7007       |p   |		Jump_Nonzero	0xa0
0099 00db       |    |		Load_Top	At_Offset_3
009a 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
009b 00db       |    |		Load_Top	At_Offset_3
009c e004       |    |		Load	0x0,0x4
009d 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
009e e5fe       |    |		Load	0x2,-0x2
009f 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00a0 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00a1 0000 0000  |    |		.BLANK	0000[0x7]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab       |    |		.CONST	0x00ab								; Address of begin
00a9 0004       |    |		.CONST	0x0004								; Address of exception handler
00aa 0001       |    |		.CONST	0x0001								; Number of locals
00ab			BODY_00a8:
00ab			INIT_00a8:
00ab 00da       |    |		Load_Top	At_Offset_2
00ac e5fe       |    |		Load	0x2,-0x2
00ad 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
00ae e005       |    |		Load	0x0,0x5
00af 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
00b0 7007       |p   |		Jump_Nonzero	0xb8
00b1 00db       |    |		Load_Top	At_Offset_3
00b2 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
00b3 00db       |    |		Load_Top	At_Offset_3
00b4 e005       |    |		Load	0x0,0x5
00b5 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00b6 e5fe       |    |		Load	0x2,-0x2
00b7 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
00b8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00b9 0000 0000  |    |		.BLANK	0000[0x7]
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 e5fe       |    |		Load	0x2,-0x2
00c5 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
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 00da       |    |		Load_Top	At_Offset_2
00cc e5fe       |    |		Load	0x2,-0x2
00cd 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00ce e004       |    |		Load	0x0,0x4
00cf 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
00d0 6807       |h   |		Jump_Zero	0xd8
00d1 00db       |    |		Load_Top	At_Offset_3
00d2 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00d3 00db       |    |		Load_Top	At_Offset_3
00d4 e004       |    |		Load	0x0,0x4
00d5 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
00d6 e5fe       |    |		Load	0x2,-0x2
00d7 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00d8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00d9 0000 0000  |    |		.BLANK	0000[0x7]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3       |    |		.CONST	0x00e3								; Address of begin
00e1 0004       |    |		.CONST	0x0004								; Address of exception handler
00e2 0001       |    |		.CONST	0x0001								; Number of locals
00e3			BODY_00e0:
00e3			INIT_00e0:
00e3 00da       |    |		Load_Top	At_Offset_2
00e4 e5fe       |    |		Load	0x2,-0x2
00e5 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
00e6 e005       |    |		Load	0x0,0x5
00e7 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
00e8 6807       |h   |		Jump_Zero	0xf0
00e9 00db       |    |		Load_Top	At_Offset_3
00ea 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
00eb 00db       |    |		Load_Top	At_Offset_3
00ec e005       |    |		Load	0x0,0x5
00ed 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
00ee e5fe       |    |		Load	0x2,-0x2
00ef 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
00f0 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
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 4800       |H   |		Short_Literal	0x0
00fc 8007       |    |		Call	0x0,0x7
00fd 8008       |    |		Call	0x0,0x8
00fe 00db       |    |		Load_Top	At_Offset_3
00ff 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0100 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
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 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
010d e004       |    |		Load	0x0,0x4
010e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
010f 00db       |    |		Load_Top	At_Offset_3
0110 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0111 00da       |    |		Load_Top	At_Offset_2
0112 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0113 e005       |    |		Load	0x0,0x5
0114 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0115 00db       |    |		Load_Top	At_Offset_3
0116 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0117 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b       |    |		.CONST	0x011b								; Address of begin
0119 0004       |    |		.CONST	0x0004								; Address of exception handler
011a 0001       |    |		.CONST	0x0001								; Number of locals
011b			BODY_0118:
011b			INIT_0118:
011b 00da       |    |		Load_Top	At_Offset_2
011c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
011d a5fe       |    |		Store_Unchecked	0x2,-0x2
011e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
011f 0000       |    |		.XXX[0x1]
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 00da       |    |		Load_Top	At_Offset_2
0124 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0125 a5fe       |    |		Store_Unchecked	0x2,-0x2
0126 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0127 0000       |    |		.XXX[0x1]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b       | +  |		.CONST	0x012b								; Address of begin
0129 0004       |    |		.CONST	0x0004								; 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 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
012d a5fe       |    |		Store_Unchecked	0x2,-0x2
012e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
012f 0000       |    |		.XXX[0x1]
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 00da       |    |		Load_Top	At_Offset_2
0134 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0135 a5fe       |    |		Store_Unchecked	0x2,-0x2
0136 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0137 0000       |    |		.XXX[0x1]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b       | ;  |		.CONST	0x013b								; Address of begin
0139 0004       |    |		.CONST	0x0004								; Address of exception handler
013a 0001       |    |		.CONST	0x0001								; Number of locals
013b			BODY_0138:
013b			INIT_0138:
013b 00da       |    |		Load_Top	At_Offset_2
013c 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
013d e5fe       |    |		Load	0x2,-0x2
013e 016d       | m  |		Execute	Variant_Record,Structure_Write
013f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
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 00da       |    |		Load_Top	At_Offset_2
0144 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0145 4800       |H   |		Short_Literal	0x0
0146 8007       |    |		Call	0x0,0x7
0147 8008       |    |		Call	0x0,0x8
0148 027e       | ~  |		Execute	Discrete,Not_Equal
0149 6802       |h   |		Jump_Zero	0x14c
014a 4801       |H   |		Short_Literal	0x1
014b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
014c 4800       |H   |		Short_Literal	0x0
014d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
014e 0000 0000  |    |		.XXX[0x2]
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 00da       |    |		Load_Top	At_Offset_2
0154 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0155 e005       |    |		Load	0x0,0x5
0156 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0157 7002       |p   |		Jump_Nonzero	0x15a
0158 4801       |H   |		Short_Literal	0x1
0159 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
015a 4800       |H   |		Short_Literal	0x0
015b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
015c 0000 0000  |    |		.BLANK	0000[0x4]
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 4601       |F   |		Jump_Case	0x2
0164 7801       |x   |		Jump	0x166								; case 0x0
0165 7807       |x   |		Jump	0x16d								; case 0x1
0166 00da       |    |		Load_Top	At_Offset_2
0167 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0168 0125       | %  |		Execute	Any,Set_Constraint
0169 00da       |    |		Load_Top	At_Offset_2
016a 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
016b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
016c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
016d 00da       |    |		Load_Top	At_Offset_2
016e 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
016f 0125       | %  |		Execute	Any,Set_Constraint
0170 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0171 0000 0000  |    |		.BLANK	0000[0x7]
0178 ; --------------------------------------------------------------------------------------
0178 ; Debug Table
0178 ; --------------------------------------------------------------------------------------
0178 0004 000a  |    |		.DEBUG4	0x0004,0x000a,0x8c78,0x0000,0x0001,0x0013
017e 000b 01ca  |    |		.DBG4T	0x000b,0x01ca,0x8000,0x8000
0182 0037 01ee  | 7  |		.DBG4T	0x0037,0x01ee,0x8000,0x0000
0186 0063 0200  | c  |		.DBG4T	0x0063,0x0200,0x0001,0x0000
018a 007b 0208  | {  |		.DBG4T	0x007b,0x0208,0x0001,0x0000
018e 0093 020d  |    |		.DBG4T	0x0093,0x020d,0x0001,0x0000
0192 00ab 0211  |    |		.DBG4T	0x00ab,0x0211,0x0001,0x0000
0196 00c3 0215  |    |		.DBG4T	0x00c3,0x0215,0x0001,0x0000
019a 00cb 0218  |    |		.DBG4T	0x00cb,0x0218,0x0001,0x0000
019e 00e3 021c  |    |		.DBG4T	0x00e3,0x021c,0x0001,0x0000
01a2 00fb 0220  |    |		.DBG4T	0x00fb,0x0220,0x0001,0x0000
01a6 010b 0223  |   #|		.DBG4T	0x010b,0x0223,0x0001,0x0000
01aa 011b 0227  |   '|		.DBG4T	0x011b,0x0227,0x0001,0x0000
01ae 0123 022a  | # *|		.DBG4T	0x0123,0x022a,0x0001,0x0000
01b2 012b 022d  | + -|		.DBG4T	0x012b,0x022d,0x0001,0x0000
01b6 0133 0230  | 3 0|		.DBG4T	0x0133,0x0230,0x0001,0x0000
01ba 013b 0233  | ; 3|		.DBG4T	0x013b,0x0233,0x0001,0x0000
01be 0143 0236  | C 6|		.DBG4T	0x0143,0x0236,0x0002,0x0000
01c2 0153 023b  | S ;|		.DBG4T	0x0153,0x023b,0x0002,0x0000
01c6 0163 0000  | c  |		.DBG4T	0x0163,0x0000,0x0005,0x0000
01ca ; --------------------------------------------------------------------------------------
01ca ; Debug chain
01ca ; --------------------------------------------------------------------------------------
01ca 0011 0000  |    |		.DBGLEN	0x0011,0x0000
01cc 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b
01dd 0002 0003  |    |		.XXX[0x11]
01df 0004 0005  |    |
01e1 0006 0007  |    |
01e3 0008 0009  |    |
01e5 000a 000b  |    |
01e7 000c 000d  |    |
01e9 000e 000f  |    |
01eb 0010 0011  |    |
01ed 0012       |    |
01ee ; --------------------------------------------------------------------------------------
01ee ; Debug chain
01ee ; --------------------------------------------------------------------------------------
01ee 0010 0000  |    |		.DBGLEN	0x0010,0x0000
01f0 0037 0039  | 7 9|		.DBGLNO	0x0037,0x0039,0x003b,0x003d,0x003f,0x0041,0x0043,0x0045,0x0047,0x0049,0x004b,0x004d,0x004f,0x0051,0x0053,0x0055
0200 ; --------------------------------------------------------------------------------------
0200 ; Debug chain
0200 ; --------------------------------------------------------------------------------------
0200 0002 0004  |    |		.DBGLEN	0x0002,0x0004
0202 0063 0065  | c e|		.DBGLNO	0x0063,0x0065,0x0067,0x006c,0x0071,0x0074
0208 ; --------------------------------------------------------------------------------------
0208 ; Debug chain
0208 ; --------------------------------------------------------------------------------------
0208 0000 0003  |    |		.DBGLEN	0x0000,0x0003
020a 007b 007e  | { ~|		.DBGLNO	0x007b,0x007e,0x0081
020d ; --------------------------------------------------------------------------------------
020d ; Debug chain
020d ; --------------------------------------------------------------------------------------
020d 0000 0002  |    |		.DBGLEN	0x0000,0x0002
020f 0093 0099  |    |		.DBGLNO	0x0093,0x0099
0211 ; --------------------------------------------------------------------------------------
0211 ; Debug chain
0211 ; --------------------------------------------------------------------------------------
0211 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0213 00ab 00b1  |    |		.DBGLNO	0x00ab,0x00b1
0215 ; --------------------------------------------------------------------------------------
0215 ; Debug chain
0215 ; --------------------------------------------------------------------------------------
0215 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0217 00c3       |    |		.DBGLNO	0x00c3
0218 ; --------------------------------------------------------------------------------------
0218 ; Debug chain
0218 ; --------------------------------------------------------------------------------------
0218 0000 0002  |    |		.DBGLEN	0x0000,0x0002
021a 00cb 00d1  |    |		.DBGLNO	0x00cb,0x00d1
021c ; --------------------------------------------------------------------------------------
021c ; Debug chain
021c ; --------------------------------------------------------------------------------------
021c 0000 0002  |    |		.DBGLEN	0x0000,0x0002
021e 00e3 00e9  |    |		.DBGLNO	0x00e3,0x00e9
0220 ; --------------------------------------------------------------------------------------
0220 ; Debug chain
0220 ; --------------------------------------------------------------------------------------
0220 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0222 00fb       |    |		.DBGLNO	0x00fb
0223 ; --------------------------------------------------------------------------------------
0223 ; Debug chain
0223 ; --------------------------------------------------------------------------------------
0223 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0225 010b 0111  |    |		.DBGLNO	0x010b,0x0111
0227 ; --------------------------------------------------------------------------------------
0227 ; Debug chain
0227 ; --------------------------------------------------------------------------------------
0227 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0229 011b       |    |		.DBGLNO	0x011b
022a ; --------------------------------------------------------------------------------------
022a ; Debug chain
022a ; --------------------------------------------------------------------------------------
022a 0000 0001  |    |		.DBGLEN	0x0000,0x0001
022c 0123       | #  |		.DBGLNO	0x0123
022d ; --------------------------------------------------------------------------------------
022d ; Debug chain
022d ; --------------------------------------------------------------------------------------
022d 0000 0001  |    |		.DBGLEN	0x0000,0x0001
022f 012b       | +  |		.DBGLNO	0x012b
0230 ; --------------------------------------------------------------------------------------
0230 ; Debug chain
0230 ; --------------------------------------------------------------------------------------
0230 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0232 0133       | 3  |		.DBGLNO	0x0133
0233 ; --------------------------------------------------------------------------------------
0233 ; Debug chain
0233 ; --------------------------------------------------------------------------------------
0233 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0235 013b       | ;  |		.DBGLNO	0x013b
0236 ; --------------------------------------------------------------------------------------
0236 ; Debug chain
0236 ; --------------------------------------------------------------------------------------
0236 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0238 0143 014a  | C J|		.DBGLNO	0x0143,0x014a,0x014c
023b ; --------------------------------------------------------------------------------------
023b ; Debug chain
023b ; --------------------------------------------------------------------------------------
023b 0000 0003  |    |		.DBGLEN	0x0000,0x0003
023d 0153 0158  | S X|		.DBGLNO	0x0153,0x0158,0x015a
0240 0000 0000  |    |		.BLANK	0000[0x1c0]