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

⟦4fce55ab8⟧

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

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 01b0       |    |		.CONST	0x01b0								; 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 0034       | 4  |		.CONST	0x0034								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0016       |    |		.CONST	0x0016								; Number of locals
000b			INIT_0008:
000b 029a 003b  |   ;|		Declare_Subprogram	INIT_0038,For_Outer_Call,Visible,Unelaborated
000d 029a 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call,Visible,Unelaborated
000f 029a 014b  |   K|		Declare_Subprogram	INIT_0148,For_Outer_Call,Visible,Unelaborated
0011 029a 0163  |   c|		Declare_Subprogram	INIT_0160,For_Outer_Call,Visible,Unelaborated
0013 029a 016b  |   k|		Declare_Subprogram	INIT_0168,For_Outer_Call,Visible,Unelaborated
0015 029a 0173  |   s|		Declare_Subprogram	INIT_0170,For_Outer_Call,Visible,Unelaborated
0017 029a 0183  |    |		Declare_Subprogram	INIT_0180,For_Outer_Call,Visible,Unelaborated
0019 00bf       |    |		Action	Accept_Activation
001a 00e4       |    |		Load_Encached	Positive_Cache
001b 4801       |H   |		Short_Literal	0x1
001c 4820       |H   |		Short_Literal	0x20
001d e002       |    |		Load	0x0,0x2
001e 029f 018b  |    |		Declare_Subprogram	INIT_0188,For_Call
0020 4801       |H   |		Short_Literal	0x1
0021 035d       | ]  |		Declare_Type	Array,Defined
0022 00d8       |    |		Load_Top	At_Offset_0
0023 0337       | 7  |		Declare_Variable	Array
0024 00d8       |    |		Load_Top	At_Offset_0
0025 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0026 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0027 00c7       |    |		Action	Elaborate_Subprogram
0028 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0029 00c7       |    |		Action	Elaborate_Subprogram
002a 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
002b 00c7       |    |		Action	Elaborate_Subprogram
002c 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
002d 00c7       |    |		Action	Elaborate_Subprogram
002e 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
002f 00c7       |    |		Action	Elaborate_Subprogram
0030 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0031 00c7       |    |		Action	Elaborate_Subprogram
0032 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0033 00c7       |    |		Action	Elaborate_Subprogram
0034			BODY_0008:
0034 00bc       |    |		Action	Signal_Activated
0035 00bb       |    |		Action	Signal_Completion
0036 0000 0000  |    |		.XXX[0x2]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 003b       | ;  |		.CONST	0x003b								; Address of begin
0039 0004       |    |		.CONST	0x0004								; Address of exception handler
003a 0001       |    |		.CONST	0x0001								; Number of locals
003b			BODY_0038:
003b			INIT_0038:
003b 00da       |    |		Load_Top	At_Offset_2
003c 4801       |H   |		Short_Literal	0x1
003d e216       |    |		Load	0x1,0x16
003e 01d6       |    |		Execute	Vector,Field_Write
003f 00da       |    |		Load_Top	At_Offset_2
0040 4802       |H   |		Short_Literal	0x2
0041 e216       |    |		Load	0x1,0x16
0042 01d6       |    |		Execute	Vector,Field_Write
0043 4802       |H   |		Short_Literal	0x2
0044 e216       |    |		Load	0x1,0x16
0045 01d5       |    |		Execute	Vector,Field_Reference
0046 4802       |H   |		Short_Literal	0x2
0047 e5ff       |    |		Load	0x2,-0x1
0048 8003       |    |		Call	0x0,0x3
0049 8004       |    |		Call	0x0,0x4
004a 8005       |    |		Call	0x0,0x5
004b 00d1       |    |		Pop_Control	Pop_Count_1
004c 00da       |    |		Load_Top	At_Offset_2
004d 4803       |H   |		Short_Literal	0x3
004e e216       |    |		Load	0x1,0x16
004f 01d6       |    |		Execute	Vector,Field_Write
0050 4803       |H   |		Short_Literal	0x3
0051 e216       |    |		Load	0x1,0x16
0052 01d5       |    |		Execute	Vector,Field_Reference
0053 4803       |H   |		Short_Literal	0x3
0054 e5ff       |    |		Load	0x2,-0x1
0055 8003       |    |		Call	0x0,0x3
0056 8004       |    |		Call	0x0,0x4
0057 8006       |    |		Call	0x0,0x6
0058 00d1       |    |		Pop_Control	Pop_Count_1
0059 00da       |    |		Load_Top	At_Offset_2
005a 4804       |H   |		Short_Literal	0x4
005b e216       |    |		Load	0x1,0x16
005c 01d6       |    |		Execute	Vector,Field_Write
005d 4804       |H   |		Short_Literal	0x4
005e e216       |    |		Load	0x1,0x16
005f 01d5       |    |		Execute	Vector,Field_Reference
0060 4804       |H   |		Short_Literal	0x4
0061 e5ff       |    |		Load	0x2,-0x1
0062 8003       |    |		Call	0x0,0x3
0063 8004       |    |		Call	0x0,0x4
0064 8007       |    |		Call	0x0,0x7
0065 00d1       |    |		Pop_Control	Pop_Count_1
0066 00da       |    |		Load_Top	At_Offset_2
0067 4805       |H   |		Short_Literal	0x5
0068 e216       |    |		Load	0x1,0x16
0069 01d6       |    |		Execute	Vector,Field_Write
006a 4805       |H   |		Short_Literal	0x5
006b e216       |    |		Load	0x1,0x16
006c 01d5       |    |		Execute	Vector,Field_Reference
006d 4805       |H   |		Short_Literal	0x5
006e e5ff       |    |		Load	0x2,-0x1
006f 8003       |    |		Call	0x0,0x3
0070 8004       |    |		Call	0x0,0x4
0071 8008       |    |		Call	0x0,0x8
0072 00d1       |    |		Pop_Control	Pop_Count_1
0073 4802       |H   |		Short_Literal	0x2
0074 e216       |    |		Load	0x1,0x16
0075 01d5       |    |		Execute	Vector,Field_Reference
0076 4806       |H   |		Short_Literal	0x6
0077 e216       |    |		Load	0x1,0x16
0078 01d6       |    |		Execute	Vector,Field_Write
0079 4806       |H   |		Short_Literal	0x6
007a e216       |    |		Load	0x1,0x16
007b 01d5       |    |		Execute	Vector,Field_Reference
007c 4803       |H   |		Short_Literal	0x3
007d e5ff       |    |		Load	0x2,-0x1
007e 8003       |    |		Call	0x0,0x3
007f 8004       |    |		Call	0x0,0x4
0080 8006       |    |		Call	0x0,0x6
0081 00d1       |    |		Pop_Control	Pop_Count_1
0082 4802       |H   |		Short_Literal	0x2
0083 e216       |    |		Load	0x1,0x16
0084 01d5       |    |		Execute	Vector,Field_Reference
0085 4807       |H   |		Short_Literal	0x7
0086 e216       |    |		Load	0x1,0x16
0087 01d6       |    |		Execute	Vector,Field_Write
0088 4807       |H   |		Short_Literal	0x7
0089 e216       |    |		Load	0x1,0x16
008a 01d5       |    |		Execute	Vector,Field_Reference
008b 4804       |H   |		Short_Literal	0x4
008c e5ff       |    |		Load	0x2,-0x1
008d 8003       |    |		Call	0x0,0x3
008e 8004       |    |		Call	0x0,0x4
008f 8007       |    |		Call	0x0,0x7
0090 00d1       |    |		Pop_Control	Pop_Count_1
0091 4802       |H   |		Short_Literal	0x2
0092 e216       |    |		Load	0x1,0x16
0093 01d5       |    |		Execute	Vector,Field_Reference
0094 4808       |H   |		Short_Literal	0x8
0095 e216       |    |		Load	0x1,0x16
0096 01d6       |    |		Execute	Vector,Field_Write
0097 4808       |H   |		Short_Literal	0x8
0098 e216       |    |		Load	0x1,0x16
0099 01d5       |    |		Execute	Vector,Field_Reference
009a 4805       |H   |		Short_Literal	0x5
009b e5ff       |    |		Load	0x2,-0x1
009c 8003       |    |		Call	0x0,0x3
009d 8004       |    |		Call	0x0,0x4
009e 8008       |    |		Call	0x0,0x8
009f 00d1       |    |		Pop_Control	Pop_Count_1
00a0 4803       |H   |		Short_Literal	0x3
00a1 e216       |    |		Load	0x1,0x16
00a2 01d5       |    |		Execute	Vector,Field_Reference
00a3 4809       |H   |		Short_Literal	0x9
00a4 e216       |    |		Load	0x1,0x16
00a5 01d6       |    |		Execute	Vector,Field_Write
00a6 4809       |H   |		Short_Literal	0x9
00a7 e216       |    |		Load	0x1,0x16
00a8 01d5       |    |		Execute	Vector,Field_Reference
00a9 4804       |H   |		Short_Literal	0x4
00aa e5ff       |    |		Load	0x2,-0x1
00ab 8003       |    |		Call	0x0,0x3
00ac 8004       |    |		Call	0x0,0x4
00ad 8007       |    |		Call	0x0,0x7
00ae 00d1       |    |		Pop_Control	Pop_Count_1
00af 4803       |H   |		Short_Literal	0x3
00b0 e216       |    |		Load	0x1,0x16
00b1 01d5       |    |		Execute	Vector,Field_Reference
00b2 480a       |H   |		Short_Literal	0xa
00b3 e216       |    |		Load	0x1,0x16
00b4 01d6       |    |		Execute	Vector,Field_Write
00b5 480a       |H   |		Short_Literal	0xa
00b6 e216       |    |		Load	0x1,0x16
00b7 01d5       |    |		Execute	Vector,Field_Reference
00b8 4805       |H   |		Short_Literal	0x5
00b9 e5ff       |    |		Load	0x2,-0x1
00ba 8003       |    |		Call	0x0,0x3
00bb 8004       |    |		Call	0x0,0x4
00bc 8008       |    |		Call	0x0,0x8
00bd 00d1       |    |		Pop_Control	Pop_Count_1
00be 4804       |H   |		Short_Literal	0x4
00bf e216       |    |		Load	0x1,0x16
00c0 01d5       |    |		Execute	Vector,Field_Reference
00c1 480b       |H   |		Short_Literal	0xb
00c2 e216       |    |		Load	0x1,0x16
00c3 01d6       |    |		Execute	Vector,Field_Write
00c4 480b       |H   |		Short_Literal	0xb
00c5 e216       |    |		Load	0x1,0x16
00c6 01d5       |    |		Execute	Vector,Field_Reference
00c7 4805       |H   |		Short_Literal	0x5
00c8 e5ff       |    |		Load	0x2,-0x1
00c9 8003       |    |		Call	0x0,0x3
00ca 8004       |    |		Call	0x0,0x4
00cb 8008       |    |		Call	0x0,0x8
00cc 00d1       |    |		Pop_Control	Pop_Count_1
00cd 4806       |H   |		Short_Literal	0x6
00ce e216       |    |		Load	0x1,0x16
00cf 01d5       |    |		Execute	Vector,Field_Reference
00d0 480c       |H   |		Short_Literal	0xc
00d1 e216       |    |		Load	0x1,0x16
00d2 01d6       |    |		Execute	Vector,Field_Write
00d3 480c       |H   |		Short_Literal	0xc
00d4 e216       |    |		Load	0x1,0x16
00d5 01d5       |    |		Execute	Vector,Field_Reference
00d6 4804       |H   |		Short_Literal	0x4
00d7 e5ff       |    |		Load	0x2,-0x1
00d8 8003       |    |		Call	0x0,0x3
00d9 8004       |    |		Call	0x0,0x4
00da 8007       |    |		Call	0x0,0x7
00db 00d1       |    |		Pop_Control	Pop_Count_1
00dc 4806       |H   |		Short_Literal	0x6
00dd e216       |    |		Load	0x1,0x16
00de 01d5       |    |		Execute	Vector,Field_Reference
00df 480d       |H   |		Short_Literal	0xd
00e0 e216       |    |		Load	0x1,0x16
00e1 01d6       |    |		Execute	Vector,Field_Write
00e2 480d       |H   |		Short_Literal	0xd
00e3 e216       |    |		Load	0x1,0x16
00e4 01d5       |    |		Execute	Vector,Field_Reference
00e5 4805       |H   |		Short_Literal	0x5
00e6 e5ff       |    |		Load	0x2,-0x1
00e7 8003       |    |		Call	0x0,0x3
00e8 8004       |    |		Call	0x0,0x4
00e9 8008       |    |		Call	0x0,0x8
00ea 00d1       |    |		Pop_Control	Pop_Count_1
00eb 4809       |H   |		Short_Literal	0x9
00ec e216       |    |		Load	0x1,0x16
00ed 01d5       |    |		Execute	Vector,Field_Reference
00ee 480e       |H   |		Short_Literal	0xe
00ef e216       |    |		Load	0x1,0x16
00f0 01d6       |    |		Execute	Vector,Field_Write
00f1 480e       |H   |		Short_Literal	0xe
00f2 e216       |    |		Load	0x1,0x16
00f3 01d5       |    |		Execute	Vector,Field_Reference
00f4 4805       |H   |		Short_Literal	0x5
00f5 e5ff       |    |		Load	0x2,-0x1
00f6 8003       |    |		Call	0x0,0x3
00f7 8004       |    |		Call	0x0,0x4
00f8 8008       |    |		Call	0x0,0x8
00f9 00d1       |    |		Pop_Control	Pop_Count_1
00fa 480b       |H   |		Short_Literal	0xb
00fb e216       |    |		Load	0x1,0x16
00fc 01d5       |    |		Execute	Vector,Field_Reference
00fd 480f       |H   |		Short_Literal	0xf
00fe e216       |    |		Load	0x1,0x16
00ff 01d6       |    |		Execute	Vector,Field_Write
0100 480f       |H   |		Short_Literal	0xf
0101 e216       |    |		Load	0x1,0x16
0102 01d5       |    |		Execute	Vector,Field_Reference
0103 4802       |H   |		Short_Literal	0x2
0104 e5ff       |    |		Load	0x2,-0x1
0105 8003       |    |		Call	0x0,0x3
0106 8004       |    |		Call	0x0,0x4
0107 8005       |    |		Call	0x0,0x5
0108 00d1       |    |		Pop_Control	Pop_Count_1
0109 480f       |H   |		Short_Literal	0xf
010a e216       |    |		Load	0x1,0x16
010b 01d5       |    |		Execute	Vector,Field_Reference
010c 4810       |H   |		Short_Literal	0x10
010d e216       |    |		Load	0x1,0x16
010e 01d6       |    |		Execute	Vector,Field_Write
010f 4810       |H   |		Short_Literal	0x10
0110 e216       |    |		Load	0x1,0x16
0111 01d5       |    |		Execute	Vector,Field_Reference
0112 4803       |H   |		Short_Literal	0x3
0113 e5ff       |    |		Load	0x2,-0x1
0114 8003       |    |		Call	0x0,0x3
0115 8004       |    |		Call	0x0,0x4
0116 8006       |    |		Call	0x0,0x6
0117 00d1       |    |		Pop_Control	Pop_Count_1
0118 00cf       |    |		Action	Mark_Auxiliary
0119 4810       |H   |		Short_Literal	0x10
011a 4801       |H   |		Short_Literal	0x1
011b 0007       |    |		Action	Break_Optional
011c 00d8       |    |		Load_Top	At_Offset_0
011d e216       |    |		Load	0x1,0x16
011e 01d5       |    |		Execute	Vector,Field_Reference
011f 00d9       |    |		Load_Top	At_Offset_1
0120 0a10       |    |		Execute_Immediate	Plus,0x10
0121 e216       |    |		Load	0x1,0x16
0122 01d6       |    |		Execute	Vector,Field_Write
0123 00d8       |    |		Load_Top	At_Offset_0
0124 0a10       |    |		Execute_Immediate	Plus,0x10
0125 e216       |    |		Load	0x1,0x16
0126 01d5       |    |		Execute	Vector,Field_Reference
0127 00d8       |    |		Load_Top	At_Offset_0
0128 0092 019e  |    |		Action	Push_String_Extended,0x19e					; "global"
012a 8009       |    |		Call	0x0,0x9
012b 00d2       |    |		Pop_Control	Pop_Count_2
012c 00c8       |    |		Action	Pop_Auxiliary_Range
012d 3fee       |?   |		Loop_Increasing	0x11c
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 0092 019f  |    |		Action	Push_String_Extended,0x19f					; "Order Array :"
0135 e00a       |    |		Load	0x0,0xa
0136 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0137 00cf       |    |		Action	Mark_Auxiliary
0138 4820       |H   |		Short_Literal	0x20
0139 4801       |H   |		Short_Literal	0x1
013a 0007       |    |		Action	Break_Optional
013b 00d8       |    |		Load_Top	At_Offset_0
013c e216       |    |		Load	0x1,0x16
013d 01d5       |    |		Execute	Vector,Field_Reference
013e 800b       |    |		Call	0x0,0xb
013f 00c8       |    |		Action	Pop_Auxiliary_Range
0140 3ffa       |?   |		Loop_Increasing	0x13b
0141 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0142 0000 0000  |    |		.BLANK	0000[0x6]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014d       | M  |		.CONST	0x014d								; Address of begin
0149 0004       |    |		.CONST	0x0004								; Address of exception handler
014a 0002       |    |		.CONST	0x0002								; Number of locals
014b			INIT_0148:
014b 00e1       |    |		Load_Encached	Boolean_Cache
014c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
014d			BODY_0148:
014d 00cf       |    |		Action	Mark_Auxiliary
014e 4820       |H   |		Short_Literal	0x20
014f 4801       |H   |		Short_Literal	0x1
0150 0007       |    |		Action	Break_Optional
0151 00db       |    |		Load_Top	At_Offset_3
0152 e5ff       |    |		Load	0x2,-0x1
0153 800c       |    |		Call	0x0,0xc
0154 00da       |    |		Load_Top	At_Offset_2
0155 e216       |    |		Load	0x1,0x16
0156 01d5       |    |		Execute	Vector,Field_Reference
0157 800c       |    |		Call	0x0,0xc
0158 01df       |    |		Execute	Vector,Equal
0159 0278       | x  |		Execute	Discrete,Or
015a a402       |    |		Store_Unchecked	0x2,0x2
015b 00c8       |    |		Action	Pop_Auxiliary_Range
015c 3ff4       |?   |		Loop_Increasing	0x151
015d 00ce       |    |		Action	Pop_Auxiliary
015e 00d8       |    |		Load_Top	At_Offset_0
015f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
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 4801       |H   |		Short_Literal	0x1
0164 a214       |    |		Store_Unchecked	0x1,0x14
0165 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0166 0000 0000  |    |		.XXX[0x2]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b       | k  |		.CONST	0x016b								; Address of begin
0169 0004       |    |		.CONST	0x0004								; Address of exception handler
016a 0001       |    |		.CONST	0x0001								; Number of locals
016b			BODY_0168:
016b			INIT_0168:
016b e214       |    |		Load	0x1,0x14
016c 0a01       |    |		Execute_Immediate	Plus,0x1
016d c214       |    |		Store	0x1,0x14
016e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
016f 0000       |    |		.XXX[0x1]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173       | s  |		.CONST	0x0173								; Address of begin
0171 0004       |    |		.CONST	0x0004								; Address of exception handler
0172 0001       |    |		.CONST	0x0001								; Number of locals
0173			BODY_0170:
0173			INIT_0170:
0173 e214       |    |		Load	0x1,0x14
0174 e216       |    |		Load	0x1,0x16
0175 01d5       |    |		Execute	Vector,Field_Reference
0176 0320       |    |		Declare_Variable	Record,Duplicate
0177 00cd       |    |		Action	Spare6_Action
0178 00ca       |    |		Action	Exit_Nullary_Function
0179 0000 0000  |    |		.BLANK	0000[0x7]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183       |    |		.CONST	0x0183								; Address of begin
0181 0004       |    |		.CONST	0x0004								; Address of exception handler
0182 0001       |    |		.CONST	0x0001								; Number of locals
0183			BODY_0180:
0183			INIT_0180:
0183 e214       |    |		Load	0x1,0x14
0184 0c21       | !  |		Execute_Immediate	Greater_Equal,0x21
0185 00ca       |    |		Action	Exit_Nullary_Function
0186 0000 0000  |    |		.XXX[0x2]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b       |    |		.CONST	0x018b								; Address of begin
0189 0004       |    |		.CONST	0x0004								; Address of exception handler
018a 0001       |    |		.CONST	0x0001								; Number of locals
018b			BODY_0188:
018b			INIT_0188:
018b 00d1       |    |		Pop_Control	Pop_Count_1
018c 00da       |    |		Load_Top	At_Offset_2
018d 01d8       |    |		Execute	Vector,Element_Type
018e 0322       | "  |		Declare_Variable	Record
018f 00d8       |    |		Load_Top	At_Offset_0
0190 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0191 00db       |    |		Load_Top	At_Offset_3
0192 01dc       |    |		Execute	Vector,Last
0193 e5ff       |    |		Load	0x2,-0x1
0194 01dd       |    |		Execute	Vector,First
0195 0263       | c  |		Execute	Discrete,Above_Bound
0196 7006       |p   |		Jump_Nonzero	0x19d
0197 00da       |    |		Load_Top	At_Offset_2
0198 00d9       |    |		Load_Top	At_Offset_1
0199 e5ff       |    |		Load	0x2,-0x1
019a 01d6       |    |		Execute	Vector,Field_Write
019b 0a01       |    |		Execute_Immediate	Plus,0x1
019c 7ff8       |    |		Jump	0x195
019d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
019e ; --------------------------------------------------------------------------------------
019e ; STRING TABLE
019e ; --------------------------------------------------------------------------------------
019e 0006       |    |		.STRTAB	0x0006->0x01a1							; "global"
019f 000a       |    |		.STRTAB	0x000a->0x01a4							; "Order Array :"
01a0 0015       |    |		.STREND 0x0015->0x01aa
01a1 676c 6f62  |glob|		.STRTAB_STRINGS
01ab 0000 0000  |    |		.BLANK	0000[0x5]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; Debug Table
01b0 ; --------------------------------------------------------------------------------------
01b0 0004 0008  |    |		.DEBUG4	0x0004,0x0008,0xe38b,0x0000,0x0001,0x000a
01b6 000b 01de  |    |		.DBG4T	0x000b,0x01de,0x8000,0x0000
01ba 001a 01e7  |    |		.DBG4T	0x001a,0x01e7,0x8000,0x8000
01be 003b 01fb  | ;  |		.DBG4T	0x003b,0x01fb,0x0001,0x0000
01c2 0133 021f  | 3  |		.DBG4T	0x0133,0x021f,0x0001,0x0000
01c6 014b 0224  | K $|		.DBG4T	0x014b,0x0224,0x0002,0x0000
01ca 0163 022a  | c *|		.DBG4T	0x0163,0x022a,0x0001,0x0000
01ce 016b 022d  | k -|		.DBG4T	0x016b,0x022d,0x0001,0x0000
01d2 0173 0230  | s 0|		.DBG4T	0x0173,0x0230,0x0002,0x0000
01d6 0183 0233  |   3|		.DBG4T	0x0183,0x0233,0x0002,0x0000
01da 018b 0000  |    |		.DBG4T	0x018b,0x0000,0x0005,0x0000
01de ; --------------------------------------------------------------------------------------
01de ; Debug chain
01de ; --------------------------------------------------------------------------------------
01de 0007 0000  |    |		.DBGLEN	0x0007,0x0000
01e0 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017
01e7 ; --------------------------------------------------------------------------------------
01e7 ; Debug chain
01e7 ; --------------------------------------------------------------------------------------
01e7 0009 0000  |    |		.DBGLEN	0x0009,0x0000
01e9 001a 001b  |    |		.DBGLNO	0x001a,0x001b,0x0026,0x0028,0x002a,0x002c,0x002e,0x0030,0x0032
01f2 0002 0003  |    |		.XXX[0x9]
01f4 0004 0005  |    |
01f6 0006 0007  |    |
01f8 0008 0009  |    |
01fa 000a       |    |
01fb ; --------------------------------------------------------------------------------------
01fb ; Debug chain
01fb ; --------------------------------------------------------------------------------------
01fb 0000 0022  |   "|		.DBGLEN	0x0000,0x0022
01fd 003b 003f  | ; ?|		.DBGLNO	0x003b,0x003f,0x0043,0x004c,0x0050,0x0059,0x005d,0x0066,0x006a,0x0073,0x0079,0x0082,0x0088,0x0091,0x0097,0x00a0,0x00a6,0x00af,0x00b5,0x00be,0x00c4,0x00cd,0x00d3,0x00dc,0x00e2,0x00eb,0x00f1,0x00fa,0x0100,0x0109,0x010f,0x0119,0x011c,0x0123
021f ; --------------------------------------------------------------------------------------
021f ; Debug chain
021f ; --------------------------------------------------------------------------------------
021f 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0221 0133 0138  | 3 8|		.DBGLNO	0x0133,0x0138,0x013b
0224 ; --------------------------------------------------------------------------------------
0224 ; Debug chain
0224 ; --------------------------------------------------------------------------------------
0224 0001 0003  |    |		.DBGLEN	0x0001,0x0003
0226 014b 014e  | K N|		.DBGLNO	0x014b,0x014e,0x0151,0x015e
022a ; --------------------------------------------------------------------------------------
022a ; Debug chain
022a ; --------------------------------------------------------------------------------------
022a 0000 0001  |    |		.DBGLEN	0x0000,0x0001
022c 0163       | c  |		.DBGLNO	0x0163
022d ; --------------------------------------------------------------------------------------
022d ; Debug chain
022d ; --------------------------------------------------------------------------------------
022d 0000 0001  |    |		.DBGLEN	0x0000,0x0001
022f 016b       | k  |		.DBGLNO	0x016b
0230 ; --------------------------------------------------------------------------------------
0230 ; Debug chain
0230 ; --------------------------------------------------------------------------------------
0230 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0232 0173       | s  |		.DBGLNO	0x0173
0233 ; --------------------------------------------------------------------------------------
0233 ; Debug chain
0233 ; --------------------------------------------------------------------------------------
0233 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0235 0183       |    |		.DBGLNO	0x0183
0236 0000 0000  |    |		.BLANK	0000[0x1ca]