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

⟦511c31a1f⟧

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

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 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0200       |    |		.CONST	0x0200								; 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 8001       |    |		.CONST	0x8001								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0023       | #  |		.CONST	0x0023								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0007       |    |		.CONST	0x0007								; Number of locals
000b			INIT_0008:
000b e00f       |    |		Load	0x0,0xf
000c 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
000d 02c7       |    |		Declare_Variable	Any
000e 00d8       |    |		Load_Top	At_Offset_0
000f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0010 e00f       |    |		Load	0x0,0xf
0011 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0012 02c7       |    |		Declare_Variable	Any
0013 00d8       |    |		Load_Top	At_Offset_0
0014 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0015 e00f       |    |		Load	0x0,0xf
0016 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0017 02c7       |    |		Declare_Variable	Any
0018 00d8       |    |		Load_Top	At_Offset_0
0019 1c00       |    |		Execute_Immediate	Run_Utility,0x0
001a e00f       |    |		Load	0x0,0xf
001b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
001c 02c7       |    |		Declare_Variable	Any
001d 00d8       |    |		Load_Top	At_Offset_0
001e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
001f 00e3       |    |		Load_Encached	Natural_Cache
0020 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0021 029f 006b  |   k|		Declare_Subprogram	INIT_0068,For_Call
0023			BODY_0008:
0023 4801       |H   |		Short_Literal	0x1
0024 e406       |    |		Load	0x2,0x6
0025 e001       |    |		Load	0x0,0x1
0026 1b32       | 2  |		Execute	Package,Field_Read,Field_Number 0x32
0027 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0028 ebff       |    |		Load	0x5,-0x1
0029 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
002a e003       |    |		Load	0x0,0x3
002b 189c       |    |		Execute	Package,Field_Execute,Field_Number 0x9c
002c ca02       |    |		Store	0x5,0x2
002d ea02       |    |		Load	0x5,0x2
002e e00f       |    |		Load	0x0,0xf
002f 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0030 ca02       |    |		Store	0x5,0x2
0031 00cf       |    |		Action	Mark_Auxiliary
0032 7809       |x   |		Jump	0x3c
0033 00e2       |    |		Load_Encached	Integer_Cache
0034 00db       |    |		Load_Top	At_Offset_3
0035 0268       | h  |		Execute	Discrete,Successor
0036 005b       | [  |		Store_Top	Discrete,At_Offset_3
0037 ea02       |    |		Load	0x5,0x2
0038 e00f       |    |		Load	0x0,0xf
0039 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
003a ca02       |    |		Store	0x5,0x2
003b 00c9       |    |		Action	Pop_Auxiliary_Loop
003c ea02       |    |		Load	0x5,0x2
003d e00f       |    |		Load	0x0,0xf
003e 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
003f 6ff3       |o   |		Jump_Zero	0x33
0040 00ce       |    |		Action	Pop_Auxiliary
0041 ea02       |    |		Load	0x5,0x2
0042 e00f       |    |		Load	0x0,0xf
0043 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0044 ca02       |    |		Store	0x5,0x2
0045 00d9       |    |		Load_Top	At_Offset_1
0046 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0047 6808       |h   |		Jump_Zero	0x50
0048 8a07       |    |		Call	0x5,0x7
0049 e001       |    |		Load	0x0,0x1
004a 1b1f       |    |		Execute	Package,Field_Read,Field_Number 0x1f
004b e001       |    |		Load	0x0,0x1
004c 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
004d e010       |    |		Load	0x0,0x10
004e 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
004f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0050 4800       |H   |		Short_Literal	0x0
0051 480e       |H   |		Short_Literal	0xe
0052 e003       |    |		Load	0x0,0x3
0053 1862       | b  |		Execute	Package,Field_Execute,Field_Number 0x62
0054 e001       |    |		Load	0x0,0x1
0055 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0056 0092 01a5  |    |		Action	Push_String_Extended,0x1a5					; "CSU "
0058 4801       |H   |		Short_Literal	0x1
0059 e9ff       |    |		Load	0x4,-0x1
005a e003       |    |		Load	0x0,0x3
005b 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
005c 01cc       |    |		Execute	Vector,Catenate
005d 0092 01a6  |    |		Action	Push_String_Extended,0x1a6					; " uses no shared data structures."
005f 01cc       |    |		Execute	Vector,Catenate
0060 e003       |    |		Load	0x0,0x3
0061 1886       |    |		Execute	Package,Field_Execute,Field_Number 0x86
0062 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0063 0000 0000  |    |		.BLANK	0000[0x5]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 0083       |    |		.CONST	0x0083								; Address of begin
0069 0004       |    |		.CONST	0x0004								; Address of exception handler
006a 0005       |    |		.CONST	0x0005								; Number of locals
006b			INIT_0068:
006b 4801       |H   |		Short_Literal	0x1
006c ea06       |    |		Load	0x5,0x6
006d e00f       |    |		Load	0x0,0xf
006e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
006f 029f 017b  |   {|		Declare_Subprogram	INIT_0178,For_Call
0071 4801       |H   |		Short_Literal	0x1
0072 035d       | ]  |		Declare_Type	Array,Defined
0073 00d8       |    |		Load_Top	At_Offset_0
0074 0337       | 7  |		Declare_Variable	Array
0075 00d8       |    |		Load_Top	At_Offset_0
0076 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0077 4801       |H   |		Short_Literal	0x1
0078 ea06       |    |		Load	0x5,0x6
0079 e00f       |    |		Load	0x0,0xf
007a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
007b 029f 0193  |    |		Declare_Subprogram	INIT_0190,For_Call
007d 4801       |H   |		Short_Literal	0x1
007e 035d       | ]  |		Declare_Type	Array,Defined
007f 00d8       |    |		Load_Top	At_Offset_0
0080 0337       | 7  |		Declare_Variable	Array
0081 00d8       |    |		Load_Top	At_Offset_0
0082 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0083			BODY_0068:
0083 480a       |H   |		Short_Literal	0xa
0084 e003       |    |		Load	0x0,0x3
0085 1862       | b  |		Execute	Package,Field_Execute,Field_Number 0x62
0086 e001       |    |		Load	0x0,0x1
0087 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0088 4800       |H   |		Short_Literal	0x0
0089 0092 01a7  |    |		Action	Push_String_Extended,0x1a7					; "The data structures used by "
008b 4801       |H   |		Short_Literal	0x1
008c ebff       |    |		Load	0x5,-0x1
008d e003       |    |		Load	0x0,0x3
008e 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
008f 01cc       |    |		Execute	Vector,Catenate
0090 0092 01a8  |    |		Action	Push_String_Extended,0x1a8					; " are listed in Table"
0092 01cc       |    |		Execute	Vector,Catenate
0093 0092 01a5  |    |		Action	Push_String_Extended,0x1a5					; "CSU "
0095 4801       |H   |		Short_Literal	0x1
0096 ebff       |    |		Load	0x5,-0x1
0097 e003       |    |		Load	0x0,0x3
0098 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0099 01cc       |    |		Execute	Vector,Catenate
009a 0092 01a9  |    |		Action	Push_String_Extended,0x1a9					; " Shared Data Structures Used"
009c 01cc       |    |		Execute	Vector,Catenate
009d e010       |    |		Load	0x0,0x10
009e 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
009f 480b       |H   |		Short_Literal	0xb
00a0 e003       |    |		Load	0x0,0x3
00a1 1862       | b  |		Execute	Package,Field_Execute,Field_Number 0x62
00a2 e001       |    |		Load	0x0,0x1
00a3 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
00a4 58cf       |X   |		Indirect_Literal	Float,0x174,20.0
00a5 4802       |H   |		Short_Literal	0x2
00a6 0092 01aa  |    |		Action	Push_String_Extended,0x1aa					; "Name"
00a8 e010       |    |		Load	0x0,0x10
00a9 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00aa 480b       |H   |		Short_Literal	0xb
00ab e003       |    |		Load	0x0,0x3
00ac 1862       | b  |		Execute	Package,Field_Execute,Field_Number 0x62
00ad e001       |    |		Load	0x0,0x1
00ae 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
00af 58c0       |X   |		Indirect_Literal	Float,0x170,25.0
00b0 4802       |H   |		Short_Literal	0x2
00b1 0092 01ab  |    |		Action	Push_String_Extended,0x1ab					; "Defining CSU"
00b3 e010       |    |		Load	0x0,0x10
00b4 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00b5 480b       |H   |		Short_Literal	0xb
00b6 e003       |    |		Load	0x0,0x3
00b7 1862       | b  |		Execute	Package,Field_Execute,Field_Number 0x62
00b8 e001       |    |		Load	0x0,0x1
00b9 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
00ba 58b1       |X   |		Indirect_Literal	Float,0x16c,15.0
00bb 4802       |H   |		Short_Literal	0x2
00bc 0092 01ac  |    |		Action	Push_String_Extended,0x1ac					; "For Interface"
00be e010       |    |		Load	0x0,0x10
00bf 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00c0 4800       |H   |		Short_Literal	0x0
00c1 aa06       |    |		Store_Unchecked	0x5,0x6
00c2 00cf       |    |		Action	Mark_Auxiliary
00c3 7818       |x   |		Jump	0xdc
00c4 ea02       |    |		Load	0x5,0x2
00c5 e00f       |    |		Load	0x0,0xf
00c6 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
00c7 ca03       |    |		Store	0x5,0x3
00c8 ea02       |    |		Load	0x5,0x2
00c9 e00f       |    |		Load	0x0,0xf
00ca 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
00cb ca02       |    |		Store	0x5,0x2
00cc 00e2       |    |		Load_Encached	Integer_Cache
00cd ea06       |    |		Load	0x5,0x6
00ce 0268       | h  |		Execute	Discrete,Successor
00cf ca06       |    |		Store	0x5,0x6
00d0 ea03       |    |		Load	0x5,0x3
00d1 e016       |    |		Load	0x0,0x16
00d2 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00d3 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
00d4 ea06       |    |		Load	0x5,0x6
00d5 ec03       |    |		Load	0x6,0x3
00d6 01d6       |    |		Execute	Vector,Field_Write
00d7 ea03       |    |		Load	0x5,0x3
00d8 ea06       |    |		Load	0x5,0x6
00d9 00db       |    |		Load_Top	At_Offset_3
00da 01d6       |    |		Execute	Vector,Field_Write
00db 00c9       |    |		Action	Pop_Auxiliary_Loop
00dc ea02       |    |		Load	0x5,0x2
00dd e00f       |    |		Load	0x0,0xf
00de 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
00df 6fe4       |o   |		Jump_Zero	0xc4
00e0 00c9       |    |		Action	Pop_Auxiliary_Loop
00e1 ea06       |    |		Load	0x5,0x6
00e2 0aff       |    |		Execute_Immediate	Plus,-0x1
00e3 4801       |H   |		Short_Literal	0x1
00e4 0263       | c  |		Execute	Discrete,Above_Bound
00e5 702b       |p+  |		Jump_Nonzero	0x111
00e6 00d8       |    |		Load_Top	At_Offset_0
00e7 ec03       |    |		Load	0x6,0x3
00e8 01d7       |    |		Execute	Vector,Field_Read
00e9 e00f       |    |		Load	0x0,0xf
00ea 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
00eb 7023       |p#  |		Jump_Nonzero	0x10f
00ec 00cf       |    |		Action	Mark_Auxiliary
00ed ea06       |    |		Load	0x5,0x6
00ee 00da       |    |		Load_Top	At_Offset_2
00ef 0a01       |    |		Execute_Immediate	Plus,0x1
00f0 00d8       |    |		Load_Top	At_Offset_0
00f1 00e2       |    |		Load_Encached	Integer_Cache
00f2 0260       | `  |		Execute	Discrete,In_Type
00f3 7001       |p   |		Jump_Nonzero	0xf5
00f4 0801       |    |		Execute_Immediate	Raise,0x1
00f5 0263       | c  |		Execute	Discrete,Above_Bound
00f6 7017       |p   |		Jump_Nonzero	0x10e
00f7 4801       |H   |		Short_Literal	0x1
00f8 ec08       |    |		Load	0x6,0x8
00f9 ec03       |    |		Load	0x6,0x3
00fa 01d7       |    |		Execute	Vector,Field_Read
00fb e003       |    |		Load	0x0,0x3
00fc 1b49       | I  |		Execute	Package,Field_Read,Field_Number 0x49
00fd 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00fe 4801       |H   |		Short_Literal	0x1
00ff 00da       |    |		Load_Top	At_Offset_2
0100 ec03       |    |		Load	0x6,0x3
0101 01d7       |    |		Execute	Vector,Field_Read
0102 e003       |    |		Load	0x0,0x3
0103 1b49       | I  |		Execute	Package,Field_Read,Field_Number 0x49
0104 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0105 01df       |    |		Execute	Vector,Equal
0106 6805       |h   |		Jump_Zero	0x10c
0107 e00f       |    |		Load	0x0,0xf
0108 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0109 00d9       |    |		Load_Top	At_Offset_1
010a ec03       |    |		Load	0x6,0x3
010b 01d6       |    |		Execute	Vector,Field_Write
010c 00c8       |    |		Action	Pop_Auxiliary_Range
010d 3fe9       |?   |		Loop_Increasing	0xf7
010e 00ce       |    |		Action	Pop_Auxiliary
010f 00c8       |    |		Action	Pop_Auxiliary_Range
0110 3fd5       |?   |		Loop_Increasing	0xe6
0111 00c9       |    |		Action	Pop_Auxiliary_Loop
0112 ea06       |    |		Load	0x5,0x6
0113 4801       |H   |		Short_Literal	0x1
0114 0263       | c  |		Execute	Discrete,Above_Bound
0115 7053       |pS  |		Jump_Nonzero	0x169
0116 00d8       |    |		Load_Top	At_Offset_0
0117 ec03       |    |		Load	0x6,0x3
0118 01d7       |    |		Execute	Vector,Field_Read
0119 e00f       |    |		Load	0x0,0xf
011a 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
011b 704b       |pK  |		Jump_Nonzero	0x167
011c 4801       |H   |		Short_Literal	0x1
011d 480d       |H   |		Short_Literal	0xd
011e e003       |    |		Load	0x0,0x3
011f 1862       | b  |		Execute	Package,Field_Execute,Field_Number 0x62
0120 00ea       |    |		Load_Encached	Null_String_Cache
0121 4801       |H   |		Short_Literal	0x1
0122 ec08       |    |		Load	0x6,0x8
0123 ec03       |    |		Load	0x6,0x3
0124 01d7       |    |		Execute	Vector,Field_Read
0125 e003       |    |		Load	0x0,0x3
0126 1b49       | I  |		Execute	Package,Field_Read,Field_Number 0x49
0127 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0128 4801       |H   |		Short_Literal	0x1
0129 ec08       |    |		Load	0x6,0x8
012a ec03       |    |		Load	0x6,0x3
012b 01d7       |    |		Execute	Vector,Field_Read
012c e003       |    |		Load	0x0,0x3
012d 1b49       | I  |		Execute	Package,Field_Read,Field_Number 0x49
012e 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
012f e010       |    |		Load	0x0,0x10
0130 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0131 4801       |H   |		Short_Literal	0x1
0132 480d       |H   |		Short_Literal	0xd
0133 e003       |    |		Load	0x0,0x3
0134 1862       | b  |		Execute	Package,Field_Execute,Field_Number 0x62
0135 00ea       |    |		Load_Encached	Null_String_Cache
0136 4800       |H   |		Short_Literal	0x0
0137 ec08       |    |		Load	0x6,0x8
0138 ec03       |    |		Load	0x6,0x3
0139 01d7       |    |		Execute	Vector,Field_Read
013a e015       |    |		Load	0x0,0x15
013b 1874       | t  |		Execute	Package,Field_Execute,Field_Number 0x74
013c e003       |    |		Load	0x0,0x3
013d 1b49       | I  |		Execute	Package,Field_Read,Field_Number 0x49
013e 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
013f 00db       |    |		Load_Top	At_Offset_3
0140 ec03       |    |		Load	0x6,0x3
0141 01d7       |    |		Execute	Vector,Field_Read
0142 e015       |    |		Load	0x0,0x15
0143 1874       | t  |		Execute	Package,Field_Execute,Field_Number 0x74
0144 e015       |    |		Load	0x0,0x15
0145 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0146 e010       |    |		Load	0x0,0x10
0147 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0148 00d8       |    |		Load_Top	At_Offset_0
0149 ec05       |    |		Load	0x6,0x5
014a 01d7       |    |		Execute	Vector,Field_Read
014b e018       |    |		Load	0x0,0x18
014c 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
014d ca05       |    |		Store	0x5,0x5
014e ea05       |    |		Load	0x5,0x5
014f e018       |    |		Load	0x0,0x18
0150 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0151 680b       |h   |		Jump_Zero	0x15d
0152 4801       |H   |		Short_Literal	0x1
0153 480d       |H   |		Short_Literal	0xd
0154 e003       |    |		Load	0x0,0x3
0155 1862       | b  |		Execute	Package,Field_Execute,Field_Number 0x62
0156 e001       |    |		Load	0x0,0x1
0157 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0158 0092 01ad  |    |		Action	Push_String_Extended,0x1ad					; "Yes"
015a e010       |    |		Load	0x0,0x10
015b 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
015c 780a       |x   |		Jump	0x167
015d 4801       |H   |		Short_Literal	0x1
015e 480d       |H   |		Short_Literal	0xd
015f e003       |    |		Load	0x0,0x3
0160 1862       | b  |		Execute	Package,Field_Execute,Field_Number 0x62
0161 e001       |    |		Load	0x0,0x1
0162 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0163 0092 01ae  |    |		Action	Push_String_Extended,0x1ae					; "No"
0165 e010       |    |		Load	0x0,0x10
0166 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0167 00c8       |    |		Action	Pop_Auxiliary_Range
0168 3fad       |?   |		Loop_Increasing	0x116
0169 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
016a 0000 0000  |    |		.XXX[0x2]
016c 402e 0000  |@.  |		.DBL	15.0
016e 0000 0000  |    |
0170 4039 0000  |@9  |		.DBL	25.0
0172 0000 0000  |    |
0174 4034 0000  |@4  |		.DBL	20.0
0176 0000 0000  |    |
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 00d1       |    |		Pop_Control	Pop_Count_1
017c 00da       |    |		Load_Top	At_Offset_2
017d 01dc       |    |		Execute	Vector,Last
017e 00db       |    |		Load_Top	At_Offset_3
017f 01dd       |    |		Execute	Vector,First
0180 0263       | c  |		Execute	Discrete,Above_Bound
0181 700a       |p   |		Jump_Nonzero	0x18c
0182 00d8       |    |		Load_Top	At_Offset_0
0183 efff       |    |		Load	0x7,-0x1
0184 01d5       |    |		Execute	Vector,Field_Reference
0185 0125       | %  |		Execute	Any,Set_Constraint
0186 00d8       |    |		Load_Top	At_Offset_0
0187 efff       |    |		Load	0x7,-0x1
0188 01d5       |    |		Execute	Vector,Field_Reference
0189 1c00       |    |		Execute_Immediate	Run_Utility,0x0
018a 0a01       |    |		Execute_Immediate	Plus,0x1
018b 7ff4       |    |		Jump	0x180
018c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
018d 0000 0000  |    |		.XXX[0x3]
018f 0000       |    |
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193       |    |		.CONST	0x0193								; Address of begin
0191 0004       |    |		.CONST	0x0004								; Address of exception handler
0192 0001       |    |		.CONST	0x0001								; Number of locals
0193			BODY_0190:
0193			INIT_0190:
0193 00d1       |    |		Pop_Control	Pop_Count_1
0194 00da       |    |		Load_Top	At_Offset_2
0195 01dc       |    |		Execute	Vector,Last
0196 00db       |    |		Load_Top	At_Offset_3
0197 01dd       |    |		Execute	Vector,First
0198 0263       | c  |		Execute	Discrete,Above_Bound
0199 700a       |p   |		Jump_Nonzero	0x1a4
019a 00d8       |    |		Load_Top	At_Offset_0
019b efff       |    |		Load	0x7,-0x1
019c 01d5       |    |		Execute	Vector,Field_Reference
019d 0125       | %  |		Execute	Any,Set_Constraint
019e 00d8       |    |		Load_Top	At_Offset_0
019f efff       |    |		Load	0x7,-0x1
01a0 01d5       |    |		Execute	Vector,Field_Reference
01a1 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01a2 0a01       |    |		Execute_Immediate	Plus,0x1
01a3 7ff4       |    |		Jump	0x198
01a4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
01a5 ; --------------------------------------------------------------------------------------
01a5 ; STRING TABLE
01a5 ; --------------------------------------------------------------------------------------
01a5 0016       |    |		.STRTAB	0x0016->0x01b0							; "CSU "
01a6 0018       |    |		.STRTAB	0x0018->0x01b2							; " uses no shared data structures."
01a7 0036       | 6  |		.STRTAB	0x0036->0x01c2							; "The data structures used by "
01a8 0050       | P  |		.STRTAB	0x0050->0x01d0							; " are listed in Table"
01a9 0062       | b  |		.STRTAB	0x0062->0x01da							; " Shared Data Structures Used"
01aa 007c       | |  |		.STRTAB	0x007c->0x01e8							; "Name"
01ab 007e       | ~  |		.STRTAB	0x007e->0x01ea							; "Defining CSU"
01ac 0088       |    |		.STRTAB	0x0088->0x01f0							; "For Interface"
01ad 0093       |    |		.STRTAB	0x0093->0x01f6							; "Yes"
01ae 0094       |    |		.STRTAB	0x0094->0x01f8							; "No"
01af 0094       |    |		.STREND 0x0094->0x01f9
01b0 4353 5520  |CSU |		.STRTAB_STRINGS
01f9 0000 0000  |    |		.BLANK	0000[0x7]
0200 ; --------------------------------------------------------------------------------------
0200 ; Debug Table
0200 ; --------------------------------------------------------------------------------------
0200 0004 0012  |    |		.DEBUG4	0x0004,0x0012,0xfcc5,0x0000,0x0001,0x0000
0206 7f48 2c03  | H, |		.XXX[0x1fa]
0208 4803 d9f1  |H   |
020a ebed c78e  |    |
020c 27ef 4c01  |' L |
020e 29f1 8401  |)   |
0210 03e9 b027  |   '|
0212 4c03 3495  |L 4 |
0214 ebef 4c01  |  L |
0216 8a0d d428  |   (|
0218 a3b5 5f6e  |  _n|
021a 7bed 0fb7  |{   |
021c 2b42 8fef  |+B  |
021e cbf2 0e91  |    |
0220 5fc3 4c03  |_ L |
0222 dfb5 37cf  |  7 |
0224 5003 abf2  |P   |
0226 13ec 96d6  |    |
0228 82d5 b027  |   '|
022a 5001 b5f0  |P   |
022c 1f5c 2c03  | \, |
022e 5000 121d  |P   |
0230 ebef 5000  |  P |
0232 7dfe 9fed  |}   |
0234 0fb7 5000  |  P |
0236 c9f5 5fc3  |  _ |
0238 5400 19f5  |T   |
023a a402 d1f4  |    |
023c 2c03 5401  |, T |
023e da58 ce00  | X  |
0240 4ff5 e7cd  |O   |
0242 0fb7 8742  |   B|
0244 b5ee 9000  |    |
0246 67f7 4e98  |g N |
0248 73f4 f3b7  |s   |
024a 5400 d62f  |T  /|
024c e7c3 79ff  |  y |
024e 31f4 f3b7  |1   |
0250 5800 560c  |X V |
0252 47f4 a3b7  |G   |
0254 5801 65f8  |X e |
0256 a7f5 23b6  |  # |
0258 f683 21f5  |  ! |
025a 0fb7 5800  |  X |
025c 5dfd 5bd7  |] [ |
025e 26fc c3f4  |&   |
0260 9bf4 9a65  |   e|
0262 5bd7 5c02  |[ \ |
0264 ebec f3b5  |    |
0266 e38c dbf5  |    |
0268 b027 5c03  | '\ |
026a 37ed 0fb7  |7   |
026c 5c03 3398  |\ 3 |
026e e7f5 f68c  |    |
0270 e7f4 cff5  |    |
0272 0bf5 8268  |   h|
0274 e7f4 e3f5  |    |
0276 0fb7 6000  |  ` |
0278 eff5 b027  |   '|
027a 6002 12a5  |`   |
027c 5bd7 5280  |[ R |
027e fbf5 fab3  |    |
0280 7a02 b398  |z   |
0282 f3b7 6403  |  d |
0284 42eb 1399  |B   |
0286 b027 6403  | 'd |
0288 4a5d eb7c  |J] ||
028a 2c02 afac  |,   |
028c 0fc7 6401  |  d |
028e ee22 9bbf  | "  |
0290 6402 af99  |d   |
0292 73f5 87f4  |s   |
0294 7df3 63ed  |} c |
0296 b027 6802  | 'h |
0298 42a8 2c03  |B , |
029a b280 bfcf  |    |
029c 6800 6a2c  |h j,|
029e 8bcf 6800  |  h |
02a0 36d1 0fb7  |6   |
02a2 6800 f63c  |h  <|
02a4 0003 0bcd  |    |
02a6 b027 6c02  | 'l |
02a8 d27c cbb6  | |  |
02aa f71e c3b4  |    |
02ac 1301 82a8  |    |
02ae 2c01 7e5e  |, ~^|
02b0 876d f7f4  | m  |
02b2 aa5c 3f3a  | \?:|
02b4 17f5 0a85  |    |
02b6 f3f6 17f5  |    |
02b8 826b f5ee  | k  |
02ba 17f4 679d  |  g |
02bc 0fb7 7002  |  p |
02be aebe 4ff7  |  O |
02c0 1a92 43f7  |  C |
02c2 7003 f6ba  |p   |
02c4 4ff7 5296  |O R |
02c6 4ff7 2318  |O # |
02c8 2c03 7001  |, p |
02ca ebf6 37f5  |  7 |
02cc bb62 b7ce  | b  |
02ce 5a2e 3399  |Z.3 |
02d0 0fb7 7803  |  x |
02d2 c67f 43b7  |  C |
02d4 7802 aa76  |x  v|
02d6 37f7 52d6  |7 R |
02d8 93f7 4af0  |  J |
02da 6e68 db27  |nh '|
02dc 7b25 b027  |{% '|
02de 8f1e b5ee  |    |
02e0 c7f5 9344  |   D|
02e2 01f4 2c03  |  , |
02e4 7c00 aad5  ||   |
02e6 2fb7 7c03  |/ | |
02e8 fb20 2c03  |  , |
02ea 8002 faf2  |    |
02ec 9bbf 8003  |    |
02ee 6311 eff4  |c   |
02f0 a3b5 c346  |   F|
02f2 af23 03f7  | #  |
02f4 2df2 aa31  |-  1|
02f6 0fb4 b702  |    |
02f8 b5ee 92e4  |    |
02fa f3b6 cb8c  |    |
02fc 0fc5 1b70  |   p|
02fe 5344 2c02  |SD, |
0300 de2d 5f47  | -_G|
0302 5bf6 020f  |[   |
0304 a2af 5bf6  |  [ |
0306 d745 0bbf  | E  |
0308 8403 5f65  |  _e|
030a 0fb7 eaa8  |    |
030c e6ff 73d3  |  s |
030e 8801 3336  |  36|
0310 93b7 8800  |    |
0312 e2dd 0bbe  |    |
0314 af44 8b58  | D X|
0316 2c00 b287  |,   |
0318 8ff7 87f7  |    |
031a 8f83 9ff6  |    |
031c 2f53 abf7  |/S  |
031e d75e 02fc  | ^  |
0320 2c03 8c01  |,   |
0322 2f63 73d1  |/cs |
0324 4701 8f54  |G  T|
0326 f3b7 8c02  |    |
0328 933d 0bbf  | =  |
032a 8c03 3495  |  4 |
032c 26ff dff4  |&   |
032e cf38 1bb3  | 8  |
0330 dff6 5ad3  |  Z |
0332 73bf 8c00  |s   |
0334 71ff f3b7  |q   |
0336 8c02 336c  |  3l|
0338 2c03 9000  |,   |
033a db4d 0bbf  | M  |
033c 9002 4b6d  |  Km|
033e 0fb7 9000  |    |
0340 2784 4bf9  |' K |
0342 c794 3ffa  |  ? |
0344 1360 4bfb  | `K |
0346 2b4c 4bfb  |+LK |
0348 1b99 3bb7  |  ; |
034a 9002 1e99  |    |
034c 43bf 9401  |C   |
034e 5785 3bb7  |W ; |
0350 9400 5f14  |  _ |
0352 2c03 9400  |,   |
0354 0fa9 0bbf  |    |
0356 9401 7b6b  |  {k|
0358 dbf7 9402  |    |
035a 7e53 7000  |~Sp |
035c b3fa 8761  |   a|
035e 0fb5 0685  |    |
0360 be5c b3fb  | \  |
0362 835c f3b7  | \  |
0364 9802 7f79  |   y|
0366 0bbd 1287  |    |
0368 b3f7 9801  |    |
036a 1ea3 f3b7  |    |
036c 9800 e299  |    |
036e 0bf9 0b31  |   1|
0370 afd3 9800  |    |
0372 77f8 a3b7  |w   |
0374 9802 2ed8  |  . |
0376 f3b7 9c03  |    |
0378 b30c 7bf3  |  { |
037a 9c02 1744  |   D|
037c 2c01 aada  |,   |
037e dca7 1fd4  |    |
0380 b2ad 57f9  |  W |
0382 0fb4 bead  |    |
0384 63f9 37f9  |c 7 |
0386 02df 73bf  |  s |
0388 0b45 6ee1  | En |
038a 67f9 826b  |g  k|
038c f3b7 a002  |    |
038e aafd afd3  |    |
0390 a000 1f51  |   Q|
0392 0bbd cf00  |    |
0394 8e81 0fb7  |    |
0396 a400 f3f8  |    |
0398 a3b7 a400  |    |
039a bba7 dbf7  |    |
039c a400 5ff9  |  _ |
039e bffb 41f0  |  A |
03a0 0ffb a401  |    |
03a2 7ae1 0bbf  |z   |
03a4 a402 2b8d  |  + |
03a6 b3fa 5ad1  |  Z |
03a8 ebfb 175d  |   ]|
03aa cbfa fb34  |   4|
03ac 7bf1 2723  |{ '#|
03ae ddf0 1bfb  |    |
03b0 a800 4f51  |  OQ|
03b2 0fb7 a801  |    |
03b4 9b41 0bbd  | A  |
03b6 52ad ab54  |R  T|
03b8 2c03 a803  |,   |
03ba a7f4 a3b7  |    |
03bc a803 cff4  |    |
03be a3b7 ac01  |    |
03c0 bbf9 23b7  |  # |
03c2 ac01 c1fc  |    |
03c4 1fcb ac01  |    |
03c6 2337 1fd7  |#7  |
03c8 ac03 5def  |  ] |
03ca c402 93b7  |    |
03cc ac03 6f5f  |  o_|
03ce 73d3 ac03  |s   |
03d0 9336 8bfb  | 6  |
03d2 a735 0fb7  | 5  |
03d4 778f ddf2  |w   |
03d6 8bfa 3e5e  |  >^|
03d8 3b34 f3b7  |;4  |
03da ac01 9b55  |   U|
03dc 0fb7 b001  |    |
03de 930f 1fd4  |    |
03e0 1ff3 f3f5  |    |
03e2 b027 b002  | '  |
03e4 e61a bffa  |    |
03e6 e7f8 aa46  |   F|
03e8 87fa cffb  |    |
03ea 77f4 a3b6  |w   |
03ec 1e86 72f3  |  r |
03ee fa31 9b6d  | 1 m|
03f0 0fb7 b403  |    |
03f2 1390 f3b7  |    |
03f4 b400 9369  |   i|
03f6 b027 b402  | '  |
03f8 2f74 2c02  |/t, |
03fa bf6f 13fb  | o  |
03fc b401 1ad9  |    |
03fe 3bb7 b403  |;   |