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

⟦28c0e1937⟧

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

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 01c8       |    |		.CONST	0x01c8								; 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 0064       | d  |		.CONST	0x0064								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0020       |    |		.CONST	0x0020								; Number of locals
000b			INIT_0008:
000b 0007       |    |		Action	Break_Optional
000c 029a 007b  |   {|		Declare_Subprogram	INIT_0078,For_Outer_Call,Visible,Unelaborated
000e 029a 008b  |    |		Declare_Subprogram	INIT_0088,For_Outer_Call,Visible,Unelaborated
0010 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated
0012 029a 009b  |    |		Declare_Subprogram	INIT_0098,For_Outer_Call,Visible,Unelaborated
0014 029a 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call,Visible,Unelaborated
0016 029a 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Outer_Call,Visible,Unelaborated
0018 029a 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call,Visible,Unelaborated
001a 029a 00db  |    |		Declare_Subprogram	INIT_00d8,For_Outer_Call,Visible,Unelaborated
001c 029a 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Outer_Call,Visible,Unelaborated
001e 029a 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Outer_Call,Visible,Unelaborated
0020 029a 0123  |   #|		Declare_Subprogram	INIT_0120,For_Outer_Call,Visible,Unelaborated
0022 029a 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call,Visible,Unelaborated
0024 029a 0143  |   C|		Declare_Subprogram	INIT_0140,For_Outer_Call,Visible,Unelaborated
0026 029a 0153  |   S|		Declare_Subprogram	INIT_0150,For_Outer_Call,Visible,Unelaborated
0028 029a 0163  |   c|		Declare_Subprogram	INIT_0160,For_Outer_Call,Visible,Unelaborated
002a 0093 0000  |    |		push_full_address	0x0
002c 6053       |`S  |		Indirect_Literal	Discrete,0x80,{0x80000000, 0x00010000}
002d 0273       | s  |		Execute	Discrete,Plus
002e 0129       | )  |		Execute	Any,Make_Visible
002f 0007       |    |		Action	Break_Optional
0030 4818       |H   |		Short_Literal	0x18
0031 03cd       |    |		Declare_Type	Access,Incomplete,Visible,Accesses_Protected
0032 00bf       |    |		Action	Accept_Activation
0033 e002       |    |		Load	0x0,0x2
0034 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0035 00e4       |    |		Load_Encached	Positive_Cache
0036 00e2       |    |		Load_Encached	Integer_Cache
0037 029f 017b  |   {|		Declare_Subprogram	INIT_0178,For_Call
0039 4803       |H   |		Short_Literal	0x3
003a 032d       | -  |		Declare_Type	Record,Defined
003b 00d8       |    |		Load_Top	At_Offset_0
003c 02a0       |    |		Declare_Subprogram	Null_Subprogram
003d 00db       |    |		Load_Top	At_Offset_3
003e 03c7       |    |		Complete_Type	Access,By_Defining
003f 00d9       |    |		Load_Top	At_Offset_1
0040 03bc       |    |		Declare_Variable	Access,By_Allocation
0041 00d8       |    |		Load_Top	At_Offset_0
0042 00e0       |    |		Load_Encached	Standard_Cache
0043 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0044 029d 0193  |    |		Declare_Subprogram	INIT_0190,For_Outer_Call
0046 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0047 00c7       |    |		Action	Elaborate_Subprogram
0048 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0049 00c7       |    |		Action	Elaborate_Subprogram
004a 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
004b 00c7       |    |		Action	Elaborate_Subprogram
004c 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
004d 00c7       |    |		Action	Elaborate_Subprogram
004e 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
004f 00c7       |    |		Action	Elaborate_Subprogram
0050 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0051 00c7       |    |		Action	Elaborate_Subprogram
0052 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0053 00c7       |    |		Action	Elaborate_Subprogram
0054 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0055 00c7       |    |		Action	Elaborate_Subprogram
0056 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0057 00c7       |    |		Action	Elaborate_Subprogram
0058 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0059 00c7       |    |		Action	Elaborate_Subprogram
005a 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
005b 00c7       |    |		Action	Elaborate_Subprogram
005c 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
005d 00c7       |    |		Action	Elaborate_Subprogram
005e 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
005f 00c7       |    |		Action	Elaborate_Subprogram
0060 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0061 00c7       |    |		Action	Elaborate_Subprogram
0062 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0063 00c7       |    |		Action	Elaborate_Subprogram
0064			BODY_0008:
0064 00d9       |    |		Load_Top	At_Offset_1
0065 0229       | )  |		Execute	Access,All_Read
0066 00d8       |    |		Load_Top	At_Offset_0
0067 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0068 00ea       |    |		Load_Encached	Null_String_Cache
0069 e002       |    |		Load	0x0,0x2
006a 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
006b e002       |    |		Load	0x0,0x2
006c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
006d 4801       |H   |		Short_Literal	0x1
006e e002       |    |		Load	0x0,0x2
006f 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0070 00d9       |    |		Load_Top	At_Offset_1
0071 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0072 00d1       |    |		Pop_Control	Pop_Count_1
0073 00bc       |    |		Action	Signal_Activated
0074 00bb       |    |		Action	Signal_Completion
0075 0000 0000  |    |		.XXX[0x3]
0077 0000       |    |
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 8220       |    |		Call	0x1,0x20
00d1 8216       |    |		Call	0x1,0x16
00d2 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00d3 0000 0000  |    |		.BLANK	0000[0x5]
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 8220       |    |		Call	0x1,0x20
00f0 8216       |    |		Call	0x1,0x16
00f1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00f2 0000 0000  |    |		.BLANK	0000[0x6]
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 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 019c       |    |		.CONST	0x019c								; Address of begin
0191 0004       |    |		.CONST	0x0004								; Address of exception handler
0192 0004       |    |		.CONST	0x0004								; Number of locals
0193			INIT_0190:
0193 00da       |    |		Load_Top	At_Offset_2
0194 01dd       |    |		Execute	Vector,First
0195 00e2       |    |		Load_Encached	Integer_Cache
0196 03f1       |    |		Declare_Variable	Discrete,With_Value
0197 00db       |    |		Load_Top	At_Offset_3
0198 01dc       |    |		Execute	Vector,Last
0199 00e2       |    |		Load_Encached	Integer_Cache
019a 03f1       |    |		Declare_Variable	Discrete,With_Value
019b 00e1       |    |		Load_Encached	Boolean_Cache
019c			BODY_0190:
019c 00cf       |    |		Action	Mark_Auxiliary
019d e5ff       |    |		Load	0x2,-0x1
019e 01dc       |    |		Execute	Vector,Last
019f e5ff       |    |		Load	0x2,-0x1
01a0 01dd       |    |		Execute	Vector,First
01a1 0263       | c  |		Execute	Discrete,Above_Bound
01a2 700b       |p   |		Jump_Nonzero	0x1ae
01a3 00d8       |    |		Load_Top	At_Offset_0
01a4 a402       |    |		Store_Unchecked	0x2,0x2
01a5 00d8       |    |		Load_Top	At_Offset_0
01a6 e5ff       |    |		Load	0x2,-0x1
01a7 01d7       |    |		Execute	Vector,Field_Read
01a8 0e20       |    |		Execute_Immediate	Not_Equal,0x20
01a9 6802       |h   |		Jump_Zero	0x1ac
01aa 00d2       |    |		Pop_Control	Pop_Count_2
01ab 7802       |x   |		Jump	0x1ae
01ac 00c8       |    |		Action	Pop_Auxiliary_Range
01ad 3ff5       |?   |		Loop_Increasing	0x1a3
01ae 00c9       |    |		Action	Pop_Auxiliary_Loop
01af e5ff       |    |		Load	0x2,-0x1
01b0 01dc       |    |		Execute	Vector,Last
01b1 e402       |    |		Load	0x2,0x2
01b2 0263       | c  |		Execute	Discrete,Above_Bound
01b3 700b       |p   |		Jump_Nonzero	0x1bf
01b4 00d8       |    |		Load_Top	At_Offset_0
01b5 e5ff       |    |		Load	0x2,-0x1
01b6 01d7       |    |		Execute	Vector,Field_Read
01b7 0f20       |    |		Execute_Immediate	Equal,0x20
01b8 6802       |h   |		Jump_Zero	0x1bb
01b9 00d2       |    |		Pop_Control	Pop_Count_2
01ba 7804       |x   |		Jump	0x1bf
01bb 00d8       |    |		Load_Top	At_Offset_0
01bc a403       |    |		Store_Unchecked	0x2,0x3
01bd 00c8       |    |		Action	Pop_Auxiliary_Range
01be 3ff5       |?   |		Loop_Increasing	0x1b4
01bf 00ce       |    |		Action	Pop_Auxiliary
01c0 00da       |    |		Load_Top	At_Offset_2
01c1 00da       |    |		Load_Top	At_Offset_2
01c2 e5ff       |    |		Load	0x2,-0x1
01c3 01cf       |    |		Execute	Vector,Slice_Read
01c4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01c5 0000 0000  |    |		.XXX[0x3]
01c7 0000       |    |
01c8 ; --------------------------------------------------------------------------------------
01c8 ; Debug Table
01c8 ; --------------------------------------------------------------------------------------
01c8 0004 0004  |    |		.DEBUG4	0x0004,0x0004,0x9035,0x0000,0x0001,0x0013
01ce 000b 021a  |    |		.DBG4T	0x000b,0x021a,0x8000,0x0000
01d2 0033 022f  | 3 /|		.DBG4T	0x0033,0x022f,0x8000,0x0000
01d6 007b 0244  | { D|		.DBG4T	0x007b,0x0244,0x0002,0x0000
01da 008b 0247  |   G|		.DBG4T	0x008b,0x0247,0x0001,0x0000
01de 0093 024a  |   J|		.DBG4T	0x0093,0x024a,0x0001,0x0000
01e2 009b 024d  |   M|		.DBG4T	0x009b,0x024d,0x0001,0x0000
01e6 00bb 0253  |   S|		.DBG4T	0x00bb,0x0253,0x0001,0x0000
01ea 00c3 0256  |   V|		.DBG4T	0x00c3,0x0256,0x0001,0x0000
01ee 00cb 0259  |   Y|		.DBG4T	0x00cb,0x0259,0x0001,0x0000
01f2 00db 025c  |   \|		.DBG4T	0x00db,0x025c,0x0001,0x0000
01f6 00eb 025f  |   _|		.DBG4T	0x00eb,0x025f,0x0001,0x0000
01fa 00fb 0262  |   b|		.DBG4T	0x00fb,0x0262,0x0001,0x0000
01fe 0123 0267  | # g|		.DBG4T	0x0123,0x0267,0x0001,0x0000
0202 0133 026b  | 3 k|		.DBG4T	0x0133,0x026b,0x0001,0x0000
0206 0143 026f  | C o|		.DBG4T	0x0143,0x026f,0x0001,0x0000
020a 0153 0273  | S s|		.DBG4T	0x0153,0x0273,0x0001,0x0000
020e 0163 0277  | c w|		.DBG4T	0x0163,0x0277,0x0001,0x0000
0212 017b 0000  | {  |		.DBG4T	0x017b,0x0000,0x0005,0x0000
0216 0193 027b  |   {|		.DBG4T	0x0193,0x027b,0x0002,0x0000
021a ; --------------------------------------------------------------------------------------
021a ; Debug chain
021a ; --------------------------------------------------------------------------------------
021a 0013 0000  |    |		.DBGLEN	0x0013,0x0000
021c 000b 000c  |    |		.DBGLNO	0x000b,0x000c,0x000e,0x0010,0x0012,0x0014,0x0016,0x0018,0x001a,0x001c,0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002a,0x002f,0x0030
022f ; --------------------------------------------------------------------------------------
022f ; Debug chain
022f ; --------------------------------------------------------------------------------------
022f 0012 0001  |    |		.DBGLEN	0x0012,0x0001
0231 0033 003f  | 3 ?|		.DBGLNO	0x0033,0x003f,0x0044,0x0046,0x0048,0x004a,0x004c,0x004e,0x0050,0x0052,0x0054,0x0056,0x0058,0x005a,0x005c,0x005e,0x0060,0x0062,0x0064
0244 ; --------------------------------------------------------------------------------------
0244 ; Debug chain
0244 ; --------------------------------------------------------------------------------------
0244 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0246 007b       | {  |		.DBGLNO	0x007b
0247 ; --------------------------------------------------------------------------------------
0247 ; Debug chain
0247 ; --------------------------------------------------------------------------------------
0247 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0249 008b       |    |		.DBGLNO	0x008b
024a ; --------------------------------------------------------------------------------------
024a ; Debug chain
024a ; --------------------------------------------------------------------------------------
024a 0000 0001  |    |		.DBGLEN	0x0000,0x0001
024c 0093       |    |		.DBGLNO	0x0093
024d ; --------------------------------------------------------------------------------------
024d ; Debug chain
024d ; --------------------------------------------------------------------------------------
024d 0000 0004  |    |		.DBGLEN	0x0000,0x0004
024f 009b 00a3  |    |		.DBGLNO	0x009b,0x00a3,0x00a8,0x00ac
0253 ; --------------------------------------------------------------------------------------
0253 ; Debug chain
0253 ; --------------------------------------------------------------------------------------
0253 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0255 00bb       |    |		.DBGLNO	0x00bb
0256 ; --------------------------------------------------------------------------------------
0256 ; Debug chain
0256 ; --------------------------------------------------------------------------------------
0256 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0258 00c3       |    |		.DBGLNO	0x00c3
0259 ; --------------------------------------------------------------------------------------
0259 ; Debug chain
0259 ; --------------------------------------------------------------------------------------
0259 0000 0001  |    |		.DBGLEN	0x0000,0x0001
025b 00cb       |    |		.DBGLNO	0x00cb
025c ; --------------------------------------------------------------------------------------
025c ; Debug chain
025c ; --------------------------------------------------------------------------------------
025c 0000 0001  |    |		.DBGLEN	0x0000,0x0001
025e 00db       |    |		.DBGLNO	0x00db
025f ; --------------------------------------------------------------------------------------
025f ; Debug chain
025f ; --------------------------------------------------------------------------------------
025f 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0261 00eb       |    |		.DBGLNO	0x00eb
0262 ; --------------------------------------------------------------------------------------
0262 ; Debug chain
0262 ; --------------------------------------------------------------------------------------
0262 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0264 00fb 0109  |    |		.DBGLNO	0x00fb,0x0109,0x010f
0267 ; --------------------------------------------------------------------------------------
0267 ; Debug chain
0267 ; --------------------------------------------------------------------------------------
0267 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0269 0123 0126  | # &|		.DBGLNO	0x0123,0x0126
026b ; --------------------------------------------------------------------------------------
026b ; Debug chain
026b ; --------------------------------------------------------------------------------------
026b 0000 0002  |    |		.DBGLEN	0x0000,0x0002
026d 0133 0136  | 3 6|		.DBGLNO	0x0133,0x0136
026f ; --------------------------------------------------------------------------------------
026f ; Debug chain
026f ; --------------------------------------------------------------------------------------
026f 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0271 0143 0146  | C F|		.DBGLNO	0x0143,0x0146
0273 ; --------------------------------------------------------------------------------------
0273 ; Debug chain
0273 ; --------------------------------------------------------------------------------------
0273 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0275 0153 0156  | S V|		.DBGLNO	0x0153,0x0156
0277 ; --------------------------------------------------------------------------------------
0277 ; Debug chain
0277 ; --------------------------------------------------------------------------------------
0277 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0279 0163 016f  | c o|		.DBGLNO	0x0163,0x016f
027b ; --------------------------------------------------------------------------------------
027b ; Debug chain
027b ; --------------------------------------------------------------------------------------
027b 0003 0007  |    |		.DBGLEN	0x0003,0x0007
027d 0193 0197  |    |		.DBGLNO	0x0193,0x0197,0x019b,0x019d,0x01a3,0x01a5,0x01af,0x01b4,0x01bb,0x01c0
0287 0000 0000  |    |		.BLANK	0000[0x179]