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

⟦1c90637f8⟧

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

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 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0238       | 8  |		.CONST	0x0238								; 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 0050       | P  |		.CONST	0x0050								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 000a       |    |		.CONST	0x000a								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 4806       |H   |		Short_Literal	0x6
000d 029f 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Call
000f 03fd       |    |		Declare_Type	Discrete,Defined
0010 4800       |H   |		Short_Literal	0x0
0011 4805       |H   |		Short_Literal	0x5
0012 00da       |    |		Load_Top	At_Offset_2
0013 03f8       |    |		Declare_Type	Discrete,Constrained
0014 0007       |    |		Action	Break_Optional
0015 4801       |H   |		Short_Literal	0x1
0016 4808       |H   |		Short_Literal	0x8
0017 00e9       |    |		Load_Encached	String_Cache
0018 0334       | 4  |		Declare_Variable	Array,With_Constraint
0019 00d8       |    |		Load_Top	At_Offset_0
001a 0335       | 5  |		Declare_Variable	Array,Duplicate
001b 00d0       |    |		Action	Swap_Control
001c 00d1       |    |		Pop_Control	Pop_Count_1
001d 4808       |H   |		Short_Literal	0x8
001e 4801       |H   |		Short_Literal	0x1
001f 4820       |H   |		Short_Literal	0x20
0020 00d9       |    |		Load_Top	At_Offset_1
0021 e405       |    |		Load	0x2,0x5
0022 01d6       |    |		Execute	Vector,Field_Write
0023 3ffb       |?   |		Loop_Increasing	0x1f
0024 00d9       |    |		Load_Top	At_Offset_1
0025 01d4       |    |		Execute	Vector,Structure_Write
0026 00da       |    |		Load_Top	At_Offset_2
0027 0266       | f  |		Execute	Discrete,Bounds
0028 00e1       |    |		Load_Encached	Boolean_Cache
0029 02a0       |    |		Declare_Subprogram	Null_Subprogram
002a 4801       |H   |		Short_Literal	0x1
002b 035d       | ]  |		Declare_Type	Array,Defined
002c 00d8       |    |		Load_Top	At_Offset_0
002d 0337       | 7  |		Declare_Variable	Array
002e 4801       |H   |		Short_Literal	0x1
002f 4803       |H   |		Short_Literal	0x3
0030 00da       |    |		Load_Top	At_Offset_2
0031 01d6       |    |		Execute	Vector,Field_Write
0032 4801       |H   |		Short_Literal	0x1
0033 4804       |H   |		Short_Literal	0x4
0034 00da       |    |		Load_Top	At_Offset_2
0035 01d6       |    |		Execute	Vector,Field_Write
0036 4802       |H   |		Short_Literal	0x2
0037 4800       |H   |		Short_Literal	0x0
0038 4800       |H   |		Short_Literal	0x0
0039 00d9       |    |		Load_Top	At_Offset_1
003a e406       |    |		Load	0x2,0x6
003b 01d6       |    |		Execute	Vector,Field_Write
003c 3ffb       |?   |		Loop_Increasing	0x38
003d 4800       |H   |		Short_Literal	0x0
003e 4805       |H   |		Short_Literal	0x5
003f 00da       |    |		Load_Top	At_Offset_2
0040 01d6       |    |		Execute	Vector,Field_Write
0041 4800       |H   |		Short_Literal	0x0
0042 4806       |H   |		Short_Literal	0x6
0043 00da       |    |		Load_Top	At_Offset_2
0044 01d6       |    |		Execute	Vector,Field_Write
0045 00d9       |    |		Load_Top	At_Offset_1
0046 01c3       |    |		Execute	Vector,Check_In_Type
0047 0007       |    |		Action	Break_Optional
0048 029f 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Call
004a 029f 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Call
004c 029f 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Call
004e 029f 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Call
0050			BODY_0008:
0050 e5fa       |    |		Load	0x2,-0x6
0051 6811       |h   |		Jump_Zero	0x63
0052 e405       |    |		Load	0x2,0x5
0053 0337       | 7  |		Declare_Variable	Array
0054 4800       |H   |		Short_Literal	0x0
0055 4806       |H   |		Short_Literal	0x6
0056 00da       |    |		Load_Top	At_Offset_2
0057 01d6       |    |		Execute	Vector,Field_Write
0058 4805       |H   |		Short_Literal	0x5
0059 4800       |H   |		Short_Literal	0x0
005a 4801       |H   |		Short_Literal	0x1
005b 00d9       |    |		Load_Top	At_Offset_1
005c e40b       |    |		Load	0x2,0xb
005d 01d6       |    |		Execute	Vector,Field_Write
005e 3ffb       |?   |		Loop_Increasing	0x5a
005f e405       |    |		Load	0x2,0x5
0060 01c3       |    |		Execute	Vector,Check_In_Type
0061 e406       |    |		Load	0x2,0x6
0062 01d4       |    |		Execute	Vector,Structure_Write
0063 e5fb       |    |		Load	0x2,-0x5
0064 6804       |h   |		Jump_Zero	0x69
0065 4801       |H   |		Short_Literal	0x1
0066 4806       |H   |		Short_Literal	0x6
0067 e406       |    |		Load	0x2,0x6
0068 01d6       |    |		Execute	Vector,Field_Write
0069 e5fd       |    |		Load	0x2,-0x3
006a 6817       |h   |		Jump_Zero	0x82
006b e20e       |    |		Load	0x1,0xe
006c 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
006d e20e       |    |		Load	0x1,0xe
006e 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
006f e20e       |    |		Load	0x1,0xe
0070 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0071 e20e       |    |		Load	0x1,0xe
0072 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0073 e20e       |    |		Load	0x1,0xe
0074 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0075 e20e       |    |		Load	0x1,0xe
0076 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0077 e20e       |    |		Load	0x1,0xe
0078 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0079 e20e       |    |		Load	0x1,0xe
007a 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
007b e20e       |    |		Load	0x1,0xe
007c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
007d e20e       |    |		Load	0x1,0xe
007e 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
007f 0092 01db  |    |		Action	Push_String_Extended,0x1db					; "Load Time Version"
0081 840a       |    |		Call	0x2,0xa
0082 e5fc       |    |		Load	0x2,-0x4
0083 6815       |h   |		Jump_Zero	0x99
0084 00ea       |    |		Load_Encached	Null_String_Cache
0085 e20f       |    |		Load	0x1,0xf
0086 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0087 e20f       |    |		Load	0x1,0xf
0088 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0089 00ea       |    |		Load_Encached	Null_String_Cache
008a e20f       |    |		Load	0x1,0xf
008b 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
008c e20f       |    |		Load	0x1,0xf
008d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
008e e20f       |    |		Load	0x1,0xf
008f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0090 e20f       |    |		Load	0x1,0xf
0091 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0092 e20f       |    |		Load	0x1,0xf
0093 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0094 e20f       |    |		Load	0x1,0xf
0095 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0096 0092 01dc  |    |		Action	Push_String_Extended,0x1dc					; "Execution Time"
0098 840a       |    |		Call	0x2,0xa
0099 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
009a 0000 0000  |    |		.BLANK	0000[0x6]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3       |    |		.CONST	0x00a3								; Address of begin
00a1 0004       |    |		.CONST	0x0004								; Address of exception handler
00a2 0001       |    |		.CONST	0x0001								; Number of locals
00a3			BODY_00a0:
00a3			INIT_00a0:
00a3 4603       |F   |		Jump_Case	0x4
00a4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00a5 7802       |x   |		Jump	0xa8								; case 0x1
00a6 7805       |x   |		Jump	0xac								; case 0x2
00a7 7809       |x   |		Jump	0xb1								; case 0x3
00a8 00da       |    |		Load_Top	At_Offset_2
00a9 0091 01d4  |    |		Action	Push_String_Extended_Indexed,0x1d4				; "MACHINE"
00ab 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00ac 00db       |    |		Load_Top	At_Offset_3
00ad 00db       |    |		Load_Top	At_Offset_3
00ae 00e0       |    |		Load_Encached	Standard_Cache
00af 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00b0 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00b1 00da       |    |		Load_Top	At_Offset_2
00b2 00e0       |    |		Load_Encached	Standard_Cache
00b3 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00b4 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00b5 0000 0000  |    |		.XXX[0x3]
00b7 0000       |    |
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 e5ff       |    |		Load	0x2,-0x1
00bd e00c       |    |		Load	0x0,0xc
00be 185e       | ^  |		Execute	Package,Field_Execute,Field_Number 0x5e
00bf 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
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 e5ff       |    |		Load	0x2,-0x1
00c5 e00c       |    |		Load	0x0,0xc
00c6 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
00c7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
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 e5ff       |    |		Load	0x2,-0x1
00cd e00c       |    |		Load	0x0,0xc
00ce 183f       | ?  |		Execute	Package,Field_Execute,Field_Number 0x3f
00cf 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00db       |    |		.CONST	0x00db								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0005       |    |		.CONST	0x0005								; Number of locals
00d3			INIT_00d0:
00d3 029f 011b  |    |		Declare_Subprogram	INIT_0118,For_Call
00d5 029f 014b  |   K|		Declare_Subprogram	INIT_0148,For_Call
00d7 029f 0163  |   c|		Declare_Subprogram	INIT_0160,For_Call
00d9 029f 017b  |   {|		Declare_Subprogram	INIT_0178,For_Call
00db			BODY_00d0:
00db 4802       |H   |		Short_Literal	0x2
00dc 8409       |    |		Call	0x2,0x9
00dd 4820       |H   |		Short_Literal	0x20
00de e5fe       |    |		Load	0x2,-0x2
00df e005       |    |		Load	0x0,0x5
00e0 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
00e1 01cb       |    |		Execute	Vector,Append
00e2 e7ff       |    |		Load	0x3,-0x1
00e3 01cc       |    |		Execute	Vector,Catenate
00e4 0092 01dd  |    |		Action	Push_String_Extended,0x1dd					; " Information"
00e6 01cc       |    |		Execute	Vector,Catenate
00e7 8602       |    |		Call	0x3,0x2
00e8 e7fe       |    |		Load	0x3,-0x2
00e9 0092 01de  |    |		Action	Push_String_Extended,0x1de					; " ("
00eb 01cc       |    |		Execute	Vector,Catenate
00ec e7fd       |    |		Load	0x3,-0x3
00ed 01cc       |    |		Execute	Vector,Catenate
00ee 0092 01df  |    |		Action	Push_String_Extended,0x1df					; ")"
00f0 01cc       |    |		Execute	Vector,Catenate
00f1 4800       |H   |		Short_Literal	0x0
00f2 8604       |    |		Call	0x3,0x4
00f3 482e       |H.  |		Short_Literal	0x2e
00f4 e7fc       |    |		Load	0x3,-0x4
00f5 01cb       |    |		Execute	Vector,Append
00f6 e7fb       |    |		Load	0x3,-0x5
00f7 01cc       |    |		Execute	Vector,Catenate
00f8 4801       |H   |		Short_Literal	0x1
00f9 8604       |    |		Call	0x3,0x4
00fa e7f9       |    |		Load	0x3,-0x7
00fb 0092 01e0  |    |		Action	Push_String_Extended,0x1e0					; " at "
00fd 01cc       |    |		Execute	Vector,Catenate
00fe e7fa       |    |		Load	0x3,-0x6
00ff 01cc       |    |		Execute	Vector,Catenate
0100 4802       |H   |		Short_Literal	0x2
0101 8604       |    |		Call	0x3,0x4
0102 e7f5       |    |		Load	0x3,-0xb
0103 4805       |H   |		Short_Literal	0x5
0104 8604       |    |		Call	0x3,0x4
0105 e7f8       |    |		Load	0x3,-0x8
0106 4803       |H   |		Short_Literal	0x3
0107 8604       |    |		Call	0x3,0x4
0108 e7f7       |    |		Load	0x3,-0x9
0109 4804       |H   |		Short_Literal	0x4
010a 8604       |    |		Call	0x3,0x4
010b e7f6       |    |		Load	0x3,-0xa
010c 4806       |H   |		Short_Literal	0x6
010d 8605       |    |		Call	0x3,0x5
010e 4801       |H   |		Short_Literal	0x1
010f 8409       |    |		Call	0x2,0x9
0110 450c       |E   |		Exit_Suprogram	New_Top_Offset 0xc
0111 0000 0000  |    |		.BLANK	0000[0x7]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 0138       | 8  |		.CONST	0x0138								; Address of begin
0119 0004       |    |		.CONST	0x0004								; Address of exception handler
011a 0005       |    |		.CONST	0x0005								; Number of locals
011b			INIT_0118:
011b 0092 01e1  |    |		Action	Push_String_Extended,0x1e1					; "== "
011d 0092 01e2  |    |		Action	Push_String_Extended,0x1e2					; " =="
011f e9ff       |    |		Load	0x4,-0x1
0120 01db       |    |		Execute	Vector,Length
0121 0a03       |    |		Execute_Immediate	Plus,0x3
0122 0a03       |    |		Execute_Immediate	Plus,0x3
0123 00e2       |    |		Load_Encached	Integer_Cache
0124 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0125 4801       |H   |		Short_Literal	0x1
0126 00d9       |    |		Load_Top	At_Offset_1
0127 00e9       |    |		Load_Encached	String_Cache
0128 0334       | 4  |		Declare_Variable	Array,With_Constraint
0129 00d8       |    |		Load_Top	At_Offset_0
012a 0335       | 5  |		Declare_Variable	Array,Duplicate
012b 00d0       |    |		Action	Swap_Control
012c 00d1       |    |		Pop_Control	Pop_Count_1
012d 00d9       |    |		Load_Top	At_Offset_1
012e 01d9       |    |		Execute	Vector,Reverse_Bounds
012f 0263       | c  |		Execute	Discrete,Above_Bound
0130 7005       |p   |		Jump_Nonzero	0x136
0131 483d       |H=  |		Short_Literal	0x3d
0132 00d9       |    |		Load_Top	At_Offset_1
0133 e806       |    |		Load	0x4,0x6
0134 01d6       |    |		Execute	Vector,Field_Write
0135 3ffb       |?   |		Loop_Increasing	0x131
0136 00d9       |    |		Load_Top	At_Offset_1
0137 01d4       |    |		Execute	Vector,Structure_Write
0138			BODY_0118:
0138 00d8       |    |		Load_Top	At_Offset_0
0139 8408       |    |		Call	0x2,0x8
013a 00db       |    |		Load_Top	At_Offset_3
013b 8407       |    |		Call	0x2,0x7
013c e9ff       |    |		Load	0x4,-0x1
013d 8407       |    |		Call	0x2,0x7
013e 00da       |    |		Load_Top	At_Offset_2
013f 8408       |    |		Call	0x2,0x8
0140 00d8       |    |		Load_Top	At_Offset_0
0141 8408       |    |		Call	0x2,0x8
0142 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0143 0000 0000  |    |		.BLANK	0000[0x5]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014f       | O  |		.CONST	0x014f								; Address of begin
0149 0004       |    |		.CONST	0x0004								; Address of exception handler
014a 0002       |    |		.CONST	0x0002								; Number of locals
014b			INIT_0148:
014b 00da       |    |		Load_Top	At_Offset_2
014c e402       |    |		Load	0x2,0x2
014d 025e       | ^  |		Execute	Discrete,Convert
014e 1c01       |    |		Execute_Immediate	Run_Utility,0x1
014f			BODY_0148:
014f 00d8       |    |		Load_Top	At_Offset_0
0150 4801       |H   |		Short_Literal	0x1
0151 4808       |H   |		Short_Literal	0x8
0152 00db       |    |		Load_Top	At_Offset_3
0153 01db       |    |		Execute	Vector,Length
0154 0272       | r  |		Execute	Discrete,Minus
0155 e404       |    |		Load	0x2,0x4
0156 01cf       |    |		Execute	Vector,Slice_Read
0157 01cc       |    |		Execute	Vector,Catenate
0158 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0159 0000 0000  |    |		.BLANK	0000[0x7]
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 00da       |    |		Load_Top	At_Offset_2
0164 e406       |    |		Load	0x2,0x6
0165 01d7       |    |		Execute	Vector,Field_Read
0166 680b       |h   |		Jump_Zero	0x172
0167 00db       |    |		Load_Top	At_Offset_3
0168 01db       |    |		Execute	Vector,Length
0169 6808       |h   |		Jump_Zero	0x172
016a 00da       |    |		Load_Top	At_Offset_2
016b 8603       |    |		Call	0x3,0x3
016c 8407       |    |		Call	0x2,0x7
016d 0092 01e3  |    |		Action	Push_String_Extended,0x1e3					; " => "
016f 8407       |    |		Call	0x2,0x7
0170 00db       |    |		Load_Top	At_Offset_3
0171 8408       |    |		Call	0x2,0x8
0172 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0173 0000 0000  |    |		.BLANK	0000[0x5]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 0186       |    |		.CONST	0x0186								; Address of begin
0179 0004       |    |		.CONST	0x0004								; Address of exception handler
017a 0003       |    |		.CONST	0x0003								; Number of locals
017b			INIT_0178:
017b e00d       |    |		Load	0x0,0xd
017c e00e       |    |		Load	0x0,0xe
017d 4804       |H   |		Short_Literal	0x4
017e 0092 01e4  |    |		Action	Push_String_Extended,0x1e4					; " "
0180 e00f       |    |		Load	0x0,0xf
0181 0387       |    |		Declare_Variable	Package
0182 00d8       |    |		Load_Top	At_Offset_0
0183 020f       |    |		Execute	Module,Activate
0184 029f 01bb  |    |		Declare_Subprogram	INIT_01b8,For_Call
0186			BODY_0178:
0186 e9ff       |    |		Load	0x4,-0x1
0187 e406       |    |		Load	0x2,0x6
0188 01d7       |    |		Execute	Vector,Field_Read
0189 6829       |h)  |		Jump_Zero	0x1b3
018a e9fe       |    |		Load	0x4,-0x2
018b 01db       |    |		Execute	Vector,Length
018c 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
018d 6825       |h%  |		Jump_Zero	0x1b3
018e 4800       |H   |		Short_Literal	0x0
018f 0092 01e5  |    |		Action	Push_String_Extended,0x1e5					; "Subsystem"
0191 00db       |    |		Load_Top	At_Offset_3
0192 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0193 4800       |H   |		Short_Literal	0x0
0194 0092 01e6  |    |		Action	Push_String_Extended,0x1e6					; "Spec_View"
0196 00db       |    |		Load_Top	At_Offset_3
0197 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0198 4800       |H   |		Short_Literal	0x0
0199 0092 01e7  |    |		Action	Push_String_Extended,0x1e7					; "Load_View"
019b 00db       |    |		Load_Top	At_Offset_3
019c 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
019d 4800       |H   |		Short_Literal	0x0
019e 0092 01e8  |    |		Action	Push_String_Extended,0x1e8					; "Context"
01a0 00db       |    |		Load_Top	At_Offset_3
01a1 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
01a2 00cf       |    |		Action	Mark_Auxiliary
01a3 e9fe       |    |		Load	0x4,-0x2
01a4 01d9       |    |		Execute	Vector,Reverse_Bounds
01a5 0263       | c  |		Execute	Discrete,Above_Bound
01a6 7003       |p   |		Jump_Nonzero	0x1aa
01a7 8803       |    |		Call	0x4,0x3
01a8 00c8       |    |		Action	Pop_Auxiliary_Range
01a9 3ffd       |?   |		Loop_Increasing	0x1a7
01aa 00ce       |    |		Action	Pop_Auxiliary
01ab 4801       |H   |		Short_Literal	0x1
01ac 00da       |    |		Load_Top	At_Offset_2
01ad 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01ae 4801       |H   |		Short_Literal	0x1
01af 8409       |    |		Call	0x2,0x9
01b0 e5ff       |    |		Load	0x2,-0x1
01b1 00da       |    |		Load_Top	At_Offset_2
01b2 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
01b3 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01b4 0000 0000  |    |		.BLANK	0000[0x4]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bf       |    |		.CONST	0x01bf								; Address of begin
01b9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ba 0002       |    |		.CONST	0x0002								; Number of locals
01bb			INIT_01b8:
01bb e806       |    |		Load	0x4,0x6
01bc e9fe       |    |		Load	0x4,-0x2
01bd 01d7       |    |		Execute	Vector,Field_Read
01be 0007       |    |		Action	Break_Optional
01bf			BODY_01b8:
01bf 00d8       |    |		Load_Top	At_Offset_0
01c0 e20d       |    |		Load	0x1,0xd
01c1 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01c2 e802       |    |		Load	0x4,0x2
01c3 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01c4 00d8       |    |		Load_Top	At_Offset_0
01c5 e20d       |    |		Load	0x1,0xd
01c6 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
01c7 e802       |    |		Load	0x4,0x2
01c8 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01c9 00d8       |    |		Load_Top	At_Offset_0
01ca e20d       |    |		Load	0x1,0xd
01cb 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01cc e802       |    |		Load	0x4,0x2
01cd 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01ce 00d8       |    |		Load_Top	At_Offset_0
01cf e20d       |    |		Load	0x1,0xd
01d0 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01d1 e802       |    |		Load	0x4,0x2
01d2 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01d3 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01d4 ; --------------------------------------------------------------------------------------
01d4 ; STRING TABLE
01d4 ; --------------------------------------------------------------------------------------
01d4 002c       | ,  |		.STRTAB	0x002c->0x01ea							; "MACHINE"
01d5 0031       | 1  |		.STRTAB	0x0031->0x01ed							; "USER"
01d6 0033       | 3  |		.STRTAB	0x0033->0x01ef							; "DATE"
01d7 0035       | 5  |		.STRTAB	0x0035->0x01f1							; "VERSION"
01d8 003a       | :  |		.STRTAB	0x003a->0x01f5							; "ACTIVITY"
01d9 0040       | @  |		.STRTAB	0x0040->0x01f9							; "COMMENTS"
01da 0046       | F  |		.STRTAB	0x0046->0x01fd							; "SUBSYSTEMS"
01db 004e       | N  |		.STRTAB	0x004e->0x0202							; "Load Time Version"
01dc 005d       | ]  |		.STRTAB	0x005d->0x020a							; "Execution Time"
01dd 0069       | i  |		.STRTAB	0x0069->0x0211							; " Information"
01de 0073       | s  |		.STRTAB	0x0073->0x0217							; " ("
01df 0073       | s  |		.STRTAB	0x0073->0x0218							; ")"
01e0 0072       | r  |		.STRTAB	0x0072->0x0219							; " at "
01e1 0074       | t  |		.STRTAB	0x0074->0x021b							; "== "
01e2 0075       | u  |		.STRTAB	0x0075->0x021c							; " =="
01e3 0076       | v  |		.STRTAB	0x0076->0x021e							; " => "
01e4 0078       | x  |		.STRTAB	0x0078->0x0220							; " "
01e5 0077       | w  |		.STRTAB	0x0077->0x0220							; "Subsystem"
01e6 007e       | ~  |		.STRTAB	0x007e->0x0225							; "Spec_View"
01e7 0085       |    |		.STRTAB	0x0085->0x0229							; "Load_View"
01e8 008c       |    |		.STRTAB	0x008c->0x022e							; "Context"
01e9 0091       |    |		.STREND 0x0091->0x0231
01ea 4d41 4348  |MACH|		.STRTAB_STRINGS
0232 0000 0000  |    |		.BLANK	0000[0x6]
0238 ; --------------------------------------------------------------------------------------
0238 ; Debug Table
0238 ; --------------------------------------------------------------------------------------
0238 0004 0006  |    |		.DEBUG4	0x0004,0x0006,0x28ce,0x0000,0x0001,0x0000
023e 1d22 8000  | "  |		.XXX[0x28]
0240 0097 0000  |    |
0242 0001 0000  |    |
0244 0077 0023  | w #|
0246 4d49 4352  |MICR|
0248 4f43 4f44  |OCOD|
024a 455f 5459  |E_TY|
024c 5045 532e  |PES.|
024e 4e41 5455  |NATU|
0250 5241 4c53  |RALS|
0252 2e4e 4154  |.NAT|
0254 5552 414c  |URAL|
0256 5f32 333c  |_23<|
0258 6617 0015  |f   |
025a 5354 414e  |STAN|
025c 4441 5244  |DARD|
025e 2e4c 4f4e  |.LON|
0260 475f 494e  |G_IN|
0262 5445 4745  |TEGE|
0264 5261 0800  |Ra  |
0266 0000 0000  |    |		.BLANK	0000[0x4]
026a 1000 1500  |    |		.XXX[0x8]
026c 012d 9310  | -  |
026e 0015 0002  |    |
0270 2a2a 9308  |**  |
0272 0000 0000  |    |		.BLANK	0000[0x4]
0276 0208       |    |		.XXX[0x1]
0277 0000 0000  |    |		.BLANK	0000[0x4]
027b 1708       |    |		.XXX[0x1]
027c 0000 0000  |    |		.BLANK	0000[0x4]
0280 0100 083e  |   >|		.XXX[0x1d]
0282 1c00 0001  |    |
0284 b000 0000  |    |
0286 0200 0000  |    |
0288 b600 489a  |  H |
028a 9286 a49e  |    |
028c 869e 888a  |    |
028e bea8 b2a0  |    |
0290 8aa6 5cac  |  \ |
0292 82a4 9282  |    |
0294 9ca8 be86  |    |
0296 9882 aaa6  |    |
0298 8abe 929c  |    |
029a 888a b077  |   w|
029c 32da       |2   |
029d 0000 0000  |    |		.BLANK	0000[0x4]
02a1 cc2e 0044  | . D|		.XXX[0x127]
02a3 9a92 86a4  |    |
02a5 9e86 9e88  |    |
02a7 8abe a8b2  |    |
02a9 a08a a65c  |   \|
02ab 9c82 a8aa  |    |
02ad a482 98a6  |    |
02af 5c9c 82a8  |\   |
02b1 aaa4 8298  |    |
02b3 be70 0000  | p  |
02b5 0000 0010  |    |
02b7 8716 0000  |    |
02b9 0488 0000  |    |
02bb 0004 0000  |    |
02bd 0738 0091  | 8  |
02bf 3525 0d49  |5% I|
02c1 3d0d 3d11  |= = |
02c3 157d 5165  | }Qe|
02c5 4115 4cb9  |A L |
02c7 0555 6125  | Ua%|
02c9 3125 0549  |1% I|
02cb 657d 4d51  |e}MQ|
02cd 0551 157d  | Q }|
02cf 5165 4114  |QeA |
02d1 ee65 c8e6  | e  |
02d3 4070 003d  |@p =|
02d5 4555 1555  |EU U|
02d7 157d 4d55  | }MU|
02d9 0d0d 154d  |   M|
02db 4d3d 4998  |M=I |
02dd 5c00 6d35  |\ m5|
02df 250d 493d  |% I=|
02e1 0d3d 1115  | =  |
02e3 7d51 6541  |}QeA|
02e5 154c b935  | L 5|
02e7 3d11 5531  |= U1|
02e9 157d 3905  | }9 |
02eb 3514 0000  |5   |
02ed e640 7000  | @p |
02ef 3119 2531  |1 %1|
02f1 3115 497c  |1 I||
02f3 ccc9 7ccc  |  | |
02f5 d598 5c00  |  \ |
02f7 8935 250d  | 5% |
02f9 493d 0d3d  |I= =|
02fb 1115 7d51  |  }Q|
02fd 6541 154c  |eA L|
02ff b939 0551  | 9 Q|
0301 5549 0531  |UI 1|
0303 4cb9 3905  |L 9 |
0305 5155 4905  |QUI |
0307 317c d000  |1|  |
0309 00e6 4070  |  @p|
030b 0045 2105  | E! |
030d 4d7d 3525  |M}5%|
030f 0d49 3d7d  | I=}|
0311 0d3d 3951  | =9Q|
0313 1561 5198  | aQ |
0315 5c00 414d  |\ AM|
0317 5105 3911  |Q 9 |
0319 0549 10b9  | I  |
031b 093d 3d31  | ==1|
031d 1505 3800  |  8 |
031f 00e6 4070  |  @p|
0321 0021 5165  | !Qe|
0323 4115 7d51  |A }Q|
0325 3d4d 985c  |=M \|
0327 0085 3525  |  5%|
0329 0d49 3d0d  | I= |
032b 3d11 157d  |=  }|
032d 5165 4115  |QeA |
032f 4cb9 5165  |L Qe|
0331 4115 7d11  |A } |
0333 254d 4131  |%MA1|
0335 050d 1535  |   5|
0337 1539 5000  | 9P |
0339 00e6 4070  |  @p|
033b 001d 3d19  |  = |
033d 7d2d 2539  |}-%9|
033f 1198 5c00  |  \ |
0341 6535 250d  |e5% |
0343 493d 0d3d  |I= =|
0345 1115 7d51  |  }Q|
0347 6541 154c  |eA L|
0349 b95d 3d49  | ]=I|
034b 117d 2d25  | }-%|
034d 3910 0000  |9   |
034f e640 7000  | @p |
0351 350d 5549  |5 UI|
0353 4915 3951  |I 9Q|
0355 7d19 4905  |} I |
0357 3515 985c  |5  \|
0359 0091 3525  |  5%|
035b 0d49 3d0d  | I= |
035d 3d11 157d  |=  }|
035f 5165 4115  |QeA |
0361 4cb9 0d3d  |L  =|
0363 3951 493d  |9QI=|
0365 317d 1125  |1} %|
0367 4d41 3105  |MA1 |
0369 0d15 3515  |  5 |
036b 3950 0000  |9P  |
036d e640 7000  | @p |
036f 3119 2531  |1 %1|
0371 3115 497c  |1 I||
0373 e0d1 7ce4  |  | |
0375 d598 5c00  |  \ |
0377 8d35 250d  | 5% |
0379 493d 0d3d  |I= =|
037b 1115 7d51  |  }Q|
037d 6541 154c  |eA L|
037f b939 0551  | 9 Q|
0381 5549 0531  |UI 1|
0383 4cb9 3905  |L 9 |
0385 5155 4905  |QUI |
0387 317c c4c8  |1|  |
0389 0000 e640  |   @|
038b 7000 2111  |p ! |
038d 0551 057d  | Q }|
038f 513d 4d98  |Q=M |
0391 5c00 8535  |\  5|
0393 250d 493d  |% I=|
0395 0d3d 1115  | =  |
0397 7d51 6541  |}QeA|
0399 154c b911  | L  |
039b 0551 057d  | Q }|
039d 1125 4d41  | %MA|
039f 3105 0d15  |1   |
03a1 3515 3950  |5 9P|
03a3 0000 0000  |    |
03a5 0021 1f08  | !  |
03a7 0000 0a08  |    |
03a9 0000 0008  |    |
03ab 0000 01c8  |    |
03ad 00d2 6a4a  |  jJ|
03af 1a92 7a1a  |  z |
03b1 7a22 2afa  |z"* |
03b3 a2ca 822a  |   *|
03b5 9972 1a0a  | r  |
03b7 820a 124a  |   J|
03b9 624a a2c9  |bJ  |
03bb dccb 6800  |  h |
03bd 0000 0000  |    |
03bf 0000 0330  |   0|
03c1 b800 5272  |  Rr|
03c3 0aa2 aa92  |    |
03c5 0a62 f999  | b  |
03c7 9000       |    |
03c8 0000 0000  |    |		.BLANK	0000[0x4]
03cc 0002 c000  |    |		.XXX[0x34]
03ce 0000 1000  |    |
03d0 000d 1002  |    |
03d2 44d4 9435  |D  5|
03d4 24f4 34f4  |$ 4 |
03d6 4455 f545  |DU E|
03d8 9504 5532  |  U2|
03da e554 e494  | T  |
03dc e495 4494  |  D |
03de 14c4 95a4  |    |
03e0 5445 f464  |TE d|
03e2 14d4 94c5  |    |
03e4 93b9 9723  |   #|
03e6 9901 c000  |    |
03e8 a454 e545  | T E|
03ea 2595 f4e4  |%   |
03ec 14d4 5661  |  Va|
03ee 7002 44d4  |p D |
03f0 9435 24f4  | 5$ |
03f2 34f4 4455  |4 DU|
03f4 f545 9504  | E  |
03f6 5532 e4f4  |U2  |
03f8 6465 3455  |de4U|
03fa 45f5 44f5  |E D |
03fc f454 e545  | T E|
03fe 2595 f444  |%  D|