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

⟦b8b3fce9b⟧

    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 03b0       |    |		.CONST	0x03b0								; 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 8002       |    |		.CONST	0x8002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0018       |    |		.CONST	0x0018								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0010       |    |		.CONST	0x0010								; Number of locals
000b			INIT_0008:
000b 029a 0023  |   #|		Declare_Subprogram	INIT_0020,For_Outer_Call,Visible,Unelaborated
000d 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
000e 0129       | )  |		Execute	Any,Make_Visible
000f 029a 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call,Visible,Unelaborated
0011 00bf       |    |		Action	Accept_Activation
0012 029d 0173  |   s|		Declare_Subprogram	INIT_0170,For_Outer_Call
0014 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0015 00c7       |    |		Action	Elaborate_Subprogram
0016 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0017 00c7       |    |		Action	Elaborate_Subprogram
0018			BODY_0008:
0018 00bc       |    |		Action	Signal_Activated
0019 00bb       |    |		Action	Signal_Completion
001a 0000 0000  |    |		.BLANK	0000[0x6]
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 006e       | n  |		.CONST	0x006e								; Address of begin
0021 011c       |    |		.CONST	0x011c								; Address of exception handler
0022 0016       |    |		.CONST	0x0016								; Number of locals
0023			INIT_0020:
0023 00e1       |    |		Load_Encached	Boolean_Cache
0024 e001       |    |		Load	0x0,0x1
0025 e002       |    |		Load	0x0,0x2
0026 e5fe       |    |		Load	0x2,-0x2
0027 0335       | 5  |		Declare_Variable	Array,Duplicate
0028 00cd       |    |		Action	Spare6_Action
0029 e003       |    |		Load	0x0,0x3
002a 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
002b 0387       |    |		Declare_Variable	Package
002c 00d8       |    |		Load_Top	At_Offset_0
002d 020f       |    |		Execute	Module,Activate
002e e5fa       |    |		Load	0x2,-0x6
002f e5ff       |    |		Load	0x2,-0x1
0030 8210       |    |		Call	0x1,0x10
0031 4801       |H   |		Short_Literal	0x1
0032 4802       |H   |		Short_Literal	0x2
0033 00e9       |    |		Load_Encached	String_Cache
0034 035b       | [  |		Declare_Type	Array,Constrained
0035 0337       | 7  |		Declare_Variable	Array
0036 4801       |H   |		Short_Literal	0x1
0037 4850       |HP  |		Short_Literal	0x50
0038 00e9       |    |		Load_Encached	String_Cache
0039 035b       | [  |		Declare_Type	Array,Constrained
003a 0337       | 7  |		Declare_Variable	Array
003b 00e3       |    |		Load_Encached	Natural_Cache
003c 4801       |H   |		Short_Literal	0x1
003d 4850       |HP  |		Short_Literal	0x50
003e 00e9       |    |		Load_Encached	String_Cache
003f 035b       | [  |		Declare_Type	Array,Constrained
0040 00e3       |    |		Load_Encached	Natural_Cache
0041 00e3       |    |		Load_Encached	Natural_Cache
0042 00e3       |    |		Load_Encached	Natural_Cache
0043 029f 0183  |    |		Declare_Subprogram	INIT_0180,For_Call
0045 4804       |H   |		Short_Literal	0x4
0046 032d       | -  |		Declare_Type	Record,Defined
0047 00d8       |    |		Load_Top	At_Offset_0
0048 0322       | "  |		Declare_Variable	Record
0049 00d8       |    |		Load_Top	At_Offset_0
004a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
004b e004       |    |		Load	0x0,0x4
004c 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
004d 0322       | "  |		Declare_Variable	Record
004e e5ff       |    |		Load	0x2,-0x1
004f e004       |    |		Load	0x0,0x4
0050 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0051 00d9       |    |		Load_Top	At_Offset_1
0052 017d       | }  |		Execute	Record,Structure_Write
0053 00d8       |    |		Load_Top	At_Offset_0
0054 3408       |4   |		Execute	Record,Field_Reference,Field_Number 0x8
0055 0007       |    |		Action	Break_Optional
0056 00d9       |    |		Load_Top	At_Offset_1
0057 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
0058 0007       |    |		Action	Break_Optional
0059 e004       |    |		Load	0x0,0x4
005a 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
005b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
005c 0322       | "  |		Declare_Variable	Record
005d 00e3       |    |		Load_Encached	Natural_Cache
005e 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
005f 03e9       |    |		Declare_Variable	Discrete,Duplicate
0060 00e3       |    |		Load_Encached	Natural_Cache
0061 00e1       |    |		Load_Encached	Boolean_Cache
0062 4a00       |J   |		Short_Literal	0x200
0063 4a09       |J   |		Short_Literal	0x209
0064 00e3       |    |		Load_Encached	Natural_Cache
0065 03f8       |    |		Declare_Type	Discrete,Constrained
0066 029f 01b3  |    |		Declare_Subprogram	INIT_01b0,For_Call
0068 029f 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Call
006a 029f 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Call
006c 029f 02ab  |    |		Declare_Subprogram	INIT_02a8,For_Call
006e			BODY_0020:
006e 4801       |H   |		Short_Literal	0x1
006f 0092 0339  |   9|		Action	Push_String_Extended,0x339					; "Microcode trace for Wcs version "
0071 e404       |    |		Load	0x2,0x4
0072 01cc       |    |		Execute	Vector,Catenate
0073 e403       |    |		Load	0x2,0x3
0074 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0075 e5fb       |    |		Load	0x2,-0x5
0076 a402       |    |		Store_Unchecked	0x2,0x2
0077 e5fb       |    |		Load	0x2,-0x5
0078 680e       |h   |		Jump_Zero	0x87
0079 00e1       |    |		Load_Encached	Boolean_Cache
007a e404       |    |		Load	0x2,0x4
007b 8413       |    |		Call	0x2,0x13
007c c411       |    |		Store	0x2,0x11
007d e411       |    |		Load	0x2,0x11
007e 7008       |p   |		Jump_Nonzero	0x87
007f 00e1       |    |		Load_Encached	Boolean_Cache
0080 e404       |    |		Load	0x2,0x4
0081 8414       |    |		Call	0x2,0x14
0082 c411       |    |		Store	0x2,0x11
0083 e411       |    |		Load	0x2,0x11
0084 7002       |p   |		Jump_Nonzero	0x87
0085 4800       |H   |		Short_Literal	0x0
0086 a402       |    |		Store_Unchecked	0x2,0x2
0087 e5fd       |    |		Load	0x2,-0x3
0088 6804       |h   |		Jump_Zero	0x8d
0089 e5fd       |    |		Load	0x2,-0x3
008a 609d       |`   |		Indirect_Literal	Discrete,0x128,{0x00000000, 0x00000400}
008b 027b       | {  |		Execute	Discrete,Greater_Equal
008c 6803       |h   |		Jump_Zero	0x90
008d 4800       |H   |		Short_Literal	0x0
008e a410       |    |		Store_Unchecked	0x2,0x10
008f 7805       |x   |		Jump	0x95
0090 4bff       |K   |		Short_Literal	0x3ff
0091 e5fd       |    |		Load	0x2,-0x3
0092 0272       | r  |		Execute	Discrete,Minus
0093 0a01       |    |		Execute_Immediate	Plus,0x1
0094 c410       |    |		Store	0x2,0x10
0095 00cf       |    |		Action	Mark_Auxiliary
0096 4bff       |K   |		Short_Literal	0x3ff
0097 e410       |    |		Load	0x2,0x10
0098 0263       | c  |		Execute	Discrete,Above_Bound
0099 704f       |pO  |		Jump_Nonzero	0xe9
009a 00d8       |    |		Load_Top	At_Offset_0
009b e40b       |    |		Load	0x2,0xb
009c 01d5       |    |		Execute	Vector,Field_Reference
009d e40d       |    |		Load	0x2,0xd
009e 017d       | }  |		Execute	Record,Structure_Write
009f 0092 033a  |   :|		Action	Push_String_Extended,0x33a					; " "
00a1 0092 033b  |   ;|		Action	Push_String_Extended,0x33b					; "H"
00a3 e40d       |    |		Load	0x2,0xd
00a4 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00a5 e003       |    |		Load	0x0,0x3
00a6 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
00a7 0092 033a  |   :|		Action	Push_String_Extended,0x33a					; " "
00a9 0092 033c  |   <|		Action	Push_String_Extended,0x33c					; "C"
00ab e40d       |    |		Load	0x2,0xd
00ac 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00ad e003       |    |		Load	0x0,0x3
00ae 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
00af 01cc       |    |		Execute	Vector,Catenate
00b0 e405       |    |		Load	0x2,0x5
00b1 01d4       |    |		Execute	Vector,Structure_Write
00b2 e402       |    |		Load	0x2,0x2
00b3 6802       |h   |		Jump_Zero	0xb6
00b4 8415       |    |		Call	0x2,0x15
00b5 780c       |x   |		Jump	0xc2
00b6 4801       |H   |		Short_Literal	0x1
00b7 e405       |    |		Load	0x2,0x5
00b8 4820       |H   |		Short_Literal	0x20
00b9 4805       |H   |		Short_Literal	0x5
00ba 4810       |H   |		Short_Literal	0x10
00bb e40d       |    |		Load	0x2,0xd
00bc 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00bd e005       |    |		Load	0x0,0x5
00be 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00bf 01cc       |    |		Execute	Vector,Catenate
00c0 e403       |    |		Load	0x2,0x3
00c1 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00c2 e40d       |    |		Load	0x2,0xd
00c3 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00c4 e412       |    |		Load	0x2,0x12
00c5 0260       | `  |		Execute	Discrete,In_Type
00c6 6820       |h   |		Jump_Zero	0xe7
00c7 00d8       |    |		Load_Top	At_Offset_0
00c8 4bff       |K   |		Short_Literal	0x3ff
00c9 027f       |    |		Execute	Discrete,Equal
00ca 7006       |p   |		Jump_Nonzero	0xd1
00cb 00d8       |    |		Load_Top	At_Offset_0
00cc 0a01       |    |		Execute_Immediate	Plus,0x1
00cd e40b       |    |		Load	0x2,0xb
00ce 01d5       |    |		Execute	Vector,Field_Reference
00cf 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00d0 7016       |p   |		Jump_Nonzero	0xe7
00d1 00d8       |    |		Load_Top	At_Offset_0
00d2 a40e       |    |		Store_Unchecked	0x2,0xe
00d3 00cf       |    |		Action	Mark_Auxiliary
00d4 e410       |    |		Load	0x2,0x10
00d5 00da       |    |		Load_Top	At_Offset_2
00d6 0264       | d  |		Execute	Discrete,Below_Bound
00d7 700c       |p   |		Jump_Nonzero	0xe4
00d8 00d8       |    |		Load_Top	At_Offset_0
00d9 0aff       |    |		Execute_Immediate	Plus,-0x1
00da c40f       |    |		Store	0x2,0xf
00db 00d8       |    |		Load_Top	At_Offset_0
00dc e40b       |    |		Load	0x2,0xb
00dd 01d5       |    |		Execute	Vector,Field_Reference
00de 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00df 7002       |p   |		Jump_Nonzero	0xe2
00e0 00d2       |    |		Pop_Control	Pop_Count_2
00e1 7802       |x   |		Jump	0xe4
00e2 00c8       |    |		Action	Pop_Auxiliary_Range
00e3 37f4       |7   |		Loop_Decreasing	0xd8
00e4 00ce       |    |		Action	Pop_Auxiliary
00e5 00d2       |    |		Pop_Control	Pop_Count_2
00e6 7802       |x   |		Jump	0xe9
00e7 00c8       |    |		Action	Pop_Auxiliary_Range
00e8 3fb1       |?   |		Loop_Increasing	0x9a
00e9 00ce       |    |		Action	Pop_Auxiliary
00ea 4801       |H   |		Short_Literal	0x1
00eb 00ea       |    |		Load_Encached	Null_String_Cache
00ec e403       |    |		Load	0x2,0x3
00ed 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00ee 4801       |H   |		Short_Literal	0x1
00ef 00ea       |    |		Load_Encached	Null_String_Cache
00f0 e403       |    |		Load	0x2,0x3
00f1 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00f2 e402       |    |		Load	0x2,0x2
00f3 680d       |h   |		Jump_Zero	0x101
00f4 4801       |H   |		Short_Literal	0x1
00f5 e40f       |    |		Load	0x2,0xf
00f6 e40b       |    |		Load	0x2,0xb
00f7 01d5       |    |		Execute	Vector,Field_Reference
00f8 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00f9 e40e       |    |		Load	0x2,0xe
00fa e40b       |    |		Load	0x2,0xb
00fb 01d5       |    |		Execute	Vector,Field_Reference
00fc 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00fd e006       |    |		Load	0x0,0x6
00fe 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00ff e403       |    |		Load	0x2,0x3
0100 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0101 4801       |H   |		Short_Literal	0x1
0102 00ea       |    |		Load_Encached	Null_String_Cache
0103 e403       |    |		Load	0x2,0x3
0104 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0105 4801       |H   |		Short_Literal	0x1
0106 00ea       |    |		Load_Encached	Null_String_Cache
0107 e403       |    |		Load	0x2,0x3
0108 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0109 e5fc       |    |		Load	0x2,-0x4
010a 680e       |h   |		Jump_Zero	0x119
010b 4801       |H   |		Short_Literal	0x1
010c 0092 033d  |   =|		Action	Push_String_Extended,0x33d					; "Micro Stack contents :"
010e e403       |    |		Load	0x2,0x3
010f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0110 00cf       |    |		Action	Mark_Auxiliary
0111 e003       |    |		Load	0x0,0x3
0112 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
0113 01d9       |    |		Execute	Vector,Reverse_Bounds
0114 0007       |    |		Action	Break_Optional
0115 8416       |    |		Call	0x2,0x16
0116 00c8       |    |		Action	Pop_Auxiliary_Range
0117 3ffd       |?   |		Loop_Increasing	0x115
0118 00ce       |    |		Action	Pop_Auxiliary
0119 e403       |    |		Load	0x2,0x3
011a 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
011b 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
011c			TRAP_0020:
011c e006       |    |		Load	0x0,0x6
011d 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
011e 010f       |    |		Execute	Exception,Equal
011f 6807       |h   |		Jump_Zero	0x127
0120 0092 033e  |   >|		Action	Push_String_Extended,0x33e					; "No WCS map for version "
0122 e404       |    |		Load	0x2,0x4
0123 01cc       |    |		Execute	Vector,Catenate
0124 e007       |    |		Load	0x0,0x7
0125 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0126 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0127 0100       |    |		Execute	Exception,Raise
0128 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000400}
012c 0000 0000  |    |		.BLANK	0000[0x4]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 014c       | L  |		.CONST	0x014c								; Address of begin
0131 0162       | b  |		.CONST	0x0162								; Address of exception handler
0132 0008       |    |		.CONST	0x0008								; Number of locals
0133			INIT_0130:
0133 00db       |    |		Load_Top	At_Offset_3
0134 0092 033f  |   ?|		Action	Push_String_Extended,0x33f					; "$"
0136 8210       |    |		Call	0x1,0x10
0137 4801       |H   |		Short_Literal	0x1
0138 4802       |H   |		Short_Literal	0x2
0139 00e9       |    |		Load_Encached	String_Cache
013a 035b       | [  |		Declare_Type	Array,Constrained
013b 0337       | 7  |		Declare_Variable	Array
013c 4801       |H   |		Short_Literal	0x1
013d 4850       |HP  |		Short_Literal	0x50
013e 00e9       |    |		Load_Encached	String_Cache
013f 035b       | [  |		Declare_Type	Array,Constrained
0140 0337       | 7  |		Declare_Variable	Array
0141 00e3       |    |		Load_Encached	Natural_Cache
0142 e004       |    |		Load	0x0,0x4
0143 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0144 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0145 0322       | "  |		Declare_Variable	Record
0146 4a00       |J   |		Short_Literal	0x200
0147 4a09       |J   |		Short_Literal	0x209
0148 00e3       |    |		Load_Encached	Natural_Cache
0149 03f8       |    |		Declare_Type	Discrete,Constrained
014a 029f 02fb  |    |		Declare_Subprogram	INIT_02f8,For_Call
014c			BODY_0130:
014c 0092 0340  |   @|		Action	Push_String_Extended,0x340					; "Microcode label using Wcs version "
014e e402       |    |		Load	0x2,0x2
014f 01cc       |    |		Execute	Vector,Catenate
0150 e007       |    |		Load	0x0,0x7
0151 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0152 4800       |H   |		Short_Literal	0x0
0153 00db       |    |		Load_Top	At_Offset_3
0154 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0155 4800       |H   |		Short_Literal	0x0
0156 00db       |    |		Load_Top	At_Offset_3
0157 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0158 e5ff       |    |		Load	0x2,-0x1
0159 00db       |    |		Load_Top	At_Offset_3
015a 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
015b 0092 0341  |   A|		Action	Push_String_Extended,0x341					; "<default>"
015d e402       |    |		Load	0x2,0x2
015e e006       |    |		Load	0x0,0x6
015f 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0160 8408       |    |		Call	0x2,0x8
0161 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0162			TRAP_0130:
0162 e006       |    |		Load	0x0,0x6
0163 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
0164 010f       |    |		Execute	Exception,Equal
0165 6807       |h   |		Jump_Zero	0x16d
0166 0092 033e  |   >|		Action	Push_String_Extended,0x33e					; "No WCS map for version "
0168 e402       |    |		Load	0x2,0x2
0169 01cc       |    |		Execute	Vector,Catenate
016a e007       |    |		Load	0x0,0x7
016b 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
016c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
016d 0100       |    |		Execute	Exception,Raise
016e 0000 0000  |    |		.XXX[0x2]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0175       | u  |		.CONST	0x0175								; Address of begin
0171 0004       |    |		.CONST	0x0004								; Address of exception handler
0172 0002       |    |		.CONST	0x0002								; Number of locals
0173			INIT_0170:
0173 029f 031b  |    |		Declare_Subprogram	INIT_0318,For_Call
0175			BODY_0170:
0175 e5fe       |    |		Load	0x2,-0x2
0176 01db       |    |		Execute	Vector,Length
0177 7002       |p   |		Jump_Nonzero	0x17a
0178 8402       |    |		Call	0x2,0x2
0179 7802       |x   |		Jump	0x17c
017a e5fe       |    |		Load	0x2,-0x2
017b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
017c 0831       | 1  |		Execute_Immediate	Raise,0x31
017d 0000 0000  |    |		.XXX[0x3]
017f 0000       |    |
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 4608       |F   |		Jump_Case	0x9
0184 7808       |x   |		Jump	0x18d								; case 0x0
0185 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0186 7821       |x!  |		Jump	0x1a8								; case 0x2
0187 7820       |x   |		Jump	0x1a8								; case 0x3
0188 781f       |x   |		Jump	0x1a8								; case 0x4
0189 781e       |x   |		Jump	0x1a8								; case 0x5
018a 781d       |x   |		Jump	0x1a8								; case 0x6
018b 781c       |x   |		Jump	0x1a8								; case 0x7
018c 781b       |x   |		Jump	0x1a8								; case 0x8
018d e408       |    |		Load	0x2,0x8
018e 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
018f 0337       | 7  |		Declare_Variable	Array
0190 4850       |HP  |		Short_Literal	0x50
0191 4801       |H   |		Short_Literal	0x1
0192 4820       |H   |		Short_Literal	0x20
0193 00d9       |    |		Load_Top	At_Offset_1
0194 e602       |    |		Load	0x3,0x2
0195 01d6       |    |		Execute	Vector,Field_Write
0196 3ffb       |?   |		Loop_Increasing	0x192
0197 00db       |    |		Load_Top	At_Offset_3
0198 00d9       |    |		Load_Top	At_Offset_1
0199 00d9       |    |		Load_Top	At_Offset_1
019a 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
019b 0119       |    |		Execute	Any,Check_In_Formal_Type
019c 00d1       |    |		Pop_Control	Pop_Count_1
019d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
019e 4800       |H   |		Short_Literal	0x0
019f 00db       |    |		Load_Top	At_Offset_3
01a0 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01a1 4800       |H   |		Short_Literal	0x0
01a2 00db       |    |		Load_Top	At_Offset_3
01a3 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
01a4 4800       |H   |		Short_Literal	0x0
01a5 00db       |    |		Load_Top	At_Offset_3
01a6 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
01a7 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
01a8 0869       | i  |		Execute_Immediate	Raise,0x69
01a9 0000 0000  |    |		.BLANK	0000[0x7]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3       |    |		.CONST	0x01b3								; Address of begin
01b1 01bb       |    |		.CONST	0x01bb								; Address of exception handler
01b2 0001       |    |		.CONST	0x0001								; Number of locals
01b3			BODY_01b0:
01b3			INIT_01b0:
01b3 0092 0341  |   A|		Action	Push_String_Extended,0x341					; "<default>"
01b5 e404       |    |		Load	0x2,0x4
01b6 e006       |    |		Load	0x0,0x6
01b7 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
01b8 4801       |H   |		Short_Literal	0x1
01b9 a7fe       |    |		Store_Unchecked	0x3,-0x2
01ba 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01bb			TRAP_01b0:
01bb 0007       |    |		Action	Break_Optional
01bc 4800       |H   |		Short_Literal	0x0
01bd a7fe       |    |		Store_Unchecked	0x3,-0x2
01be 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01bf 0000       |    |		.XXX[0x1]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3       |    |		.CONST	0x01c3								; Address of begin
01c1 01cb       |    |		.CONST	0x01cb								; Address of exception handler
01c2 0001       |    |		.CONST	0x0001								; Number of locals
01c3			BODY_01c0:
01c3			INIT_01c0:
01c3 0092 0342  |   B|		Action	Push_String_Extended,0x342					; "!local.ucode_maps.microcode."
01c5 e404       |    |		Load	0x2,0x4
01c6 e006       |    |		Load	0x0,0x6
01c7 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
01c8 4801       |H   |		Short_Literal	0x1
01c9 a7fe       |    |		Store_Unchecked	0x3,-0x2
01ca 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01cb			TRAP_01c0:
01cb 0007       |    |		Action	Break_Optional
01cc 4801       |H   |		Short_Literal	0x1
01cd a7fe       |    |		Store_Unchecked	0x3,-0x2
01ce 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01cf 0000       |    |		.XXX[0x1]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01e4       |    |		.CONST	0x01e4								; Address of begin
01d1 0004       |    |		.CONST	0x0004								; Address of exception handler
01d2 0006       |    |		.CONST	0x0006								; Number of locals
01d3			INIT_01d0:
01d3 e40d       |    |		Load	0x2,0xd
01d4 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01d5 e006       |    |		Load	0x0,0x6
01d6 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
01d7 00d8       |    |		Load_Top	At_Offset_0
01d8 01dd       |    |		Execute	Vector,First
01d9 00e3       |    |		Load_Encached	Natural_Cache
01da 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
01db 00e3       |    |		Load_Encached	Natural_Cache
01dc 00e3       |    |		Load_Encached	Natural_Cache
01dd 4801       |H   |		Short_Literal	0x1
01de e602       |    |		Load	0x3,0x2
01df 482b       |H+  |		Short_Literal	0x2b
01e0 e005       |    |		Load	0x0,0x5
01e1 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
01e2 00e3       |    |		Load_Encached	Natural_Cache
01e3 03f1       |    |		Declare_Variable	Discrete,With_Value
01e4			BODY_01d0:
01e4 00d8       |    |		Load_Top	At_Offset_0
01e5 7006       |p   |		Jump_Nonzero	0x1ec
01e6 e602       |    |		Load	0x3,0x2
01e7 01dc       |    |		Execute	Vector,Last
01e8 005b       | [  |		Store_Top	Discrete,At_Offset_3
01e9 4800       |H   |		Short_Literal	0x0
01ea 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
01eb 7812       |x   |		Jump	0x1fe
01ec 00d8       |    |		Load_Top	At_Offset_0
01ed 0aff       |    |		Execute_Immediate	Plus,-0x1
01ee 005b       | [  |		Store_Top	Discrete,At_Offset_3
01ef 480a       |H   |		Short_Literal	0xa
01f0 00d9       |    |		Load_Top	At_Offset_1
01f1 0a01       |    |		Execute_Immediate	Plus,0x1
01f2 00d8       |    |		Load_Top	At_Offset_0
01f3 00e2       |    |		Load_Encached	Integer_Cache
01f4 0260       | `  |		Execute	Discrete,In_Type
01f5 7001       |p   |		Jump_Nonzero	0x1f7
01f6 0801       |    |		Execute_Immediate	Raise,0x1
01f7 e602       |    |		Load	0x3,0x2
01f8 01dc       |    |		Execute	Vector,Last
01f9 e602       |    |		Load	0x3,0x2
01fa 01cf       |    |		Execute	Vector,Slice_Read
01fb e003       |    |		Load	0x0,0x3
01fc 183a       | :  |		Execute	Package,Field_Execute,Field_Number 0x3a
01fd 005a       | Z  |		Store_Top	Discrete,At_Offset_2
01fe 4801       |H   |		Short_Literal	0x1
01ff e409       |    |		Load	0x2,0x9
0200 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0201 e409       |    |		Load	0x2,0x9
0202 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0203 01cf       |    |		Execute	Vector,Slice_Read
0204 e603       |    |		Load	0x3,0x3
0205 e604       |    |		Load	0x3,0x4
0206 e602       |    |		Load	0x3,0x2
0207 01cf       |    |		Execute	Vector,Slice_Read
0208 01df       |    |		Execute	Vector,Equal
0209 682b       |h+  |		Jump_Zero	0x235
020a e419       |    |		Load	0x2,0x19
020b 4bff       |K   |		Short_Literal	0x3ff
020c 027f       |    |		Execute	Discrete,Equal
020d 7006       |p   |		Jump_Nonzero	0x214
020e e419       |    |		Load	0x2,0x19
020f 0a01       |    |		Execute_Immediate	Plus,0x1
0210 e40b       |    |		Load	0x2,0xb
0211 01d5       |    |		Execute	Vector,Field_Reference
0212 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0213 7021       |p!  |		Jump_Nonzero	0x235
0214 e409       |    |		Load	0x2,0x9
0215 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0216 00da       |    |		Load_Top	At_Offset_2
0217 027f       |    |		Execute	Discrete,Equal
0218 6802       |h   |		Jump_Zero	0x21b
0219 00d9       |    |		Load_Top	At_Offset_1
021a 680c       |h   |		Jump_Zero	0x227
021b e409       |    |		Load	0x2,0x9
021c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
021d 0a01       |    |		Execute_Immediate	Plus,0x1
021e 00da       |    |		Load_Top	At_Offset_2
021f 027f       |    |		Execute	Discrete,Equal
0220 6814       |h   |		Jump_Zero	0x235
0221 e409       |    |		Load	0x2,0x9
0222 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0223 6803       |h   |		Jump_Zero	0x227
0224 e409       |    |		Load	0x2,0x9
0225 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0226 680e       |h   |		Jump_Zero	0x235
0227 4800       |H   |		Short_Literal	0x0
0228 0092 0343  |   C|		Action	Push_String_Extended,0x343					; "."
022a e403       |    |		Load	0x2,0x3
022b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
022c e409       |    |		Load	0x2,0x9
022d 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
022e 0a01       |    |		Execute_Immediate	Plus,0x1
022f e409       |    |		Load	0x2,0x9
0230 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0231 00d9       |    |		Load_Top	At_Offset_1
0232 e409       |    |		Load	0x2,0x9
0233 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0234 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0235 e409       |    |		Load	0x2,0x9
0236 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0237 6820       |h   |		Jump_Zero	0x258
0238 e409       |    |		Load	0x2,0x9
0239 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
023a 7010       |p   |		Jump_Nonzero	0x24b
023b 4800       |H   |		Short_Literal	0x0
023c 4829       |H)  |		Short_Literal	0x29
023d 0092 0344  |   D|		Action	Push_String_Extended,0x344					; " ("
023f 4820       |H   |		Short_Literal	0x20
0240 4800       |H   |		Short_Literal	0x0
0241 480a       |H   |		Short_Literal	0xa
0242 e409       |    |		Load	0x2,0x9
0243 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0244 e005       |    |		Load	0x0,0x5
0245 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0246 01cc       |    |		Execute	Vector,Catenate
0247 01cb       |    |		Execute	Vector,Append
0248 e403       |    |		Load	0x2,0x3
0249 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
024a 780d       |x   |		Jump	0x258
024b 4800       |H   |		Short_Literal	0x0
024c 0092 0345  |   E|		Action	Push_String_Extended,0x345					; " +"
024e 4820       |H   |		Short_Literal	0x20
024f 4800       |H   |		Short_Literal	0x0
0250 480a       |H   |		Short_Literal	0xa
0251 e409       |    |		Load	0x2,0x9
0252 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0253 e005       |    |		Load	0x0,0x5
0254 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0255 01cc       |    |		Execute	Vector,Catenate
0256 e403       |    |		Load	0x2,0x3
0257 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0258 4801       |H   |		Short_Literal	0x1
0259 00ea       |    |		Load_Encached	Null_String_Cache
025a e403       |    |		Load	0x2,0x3
025b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
025c 4800       |H   |		Short_Literal	0x0
025d 4820       |H   |		Short_Literal	0x20
025e 4820       |H   |		Short_Literal	0x20
025f 4820       |H   |		Short_Literal	0x20
0260 4804       |H   |		Short_Literal	0x4
0261 480a       |H   |		Short_Literal	0xa
0262 e419       |    |		Load	0x2,0x19
0263 e005       |    |		Load	0x0,0x5
0264 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0265 0092 0346  |   F|		Action	Push_String_Extended,0x346					; " - "
0267 01cc       |    |		Execute	Vector,Catenate
0268 e405       |    |		Load	0x2,0x5
0269 01cc       |    |		Execute	Vector,Catenate
026a 01cb       |    |		Execute	Vector,Append
026b e602       |    |		Load	0x3,0x2
026c 01cc       |    |		Execute	Vector,Catenate
026d 01cb       |    |		Execute	Vector,Append
026e e403       |    |		Load	0x2,0x3
026f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0270 e408       |    |		Load	0x2,0x8
0271 0322       | "  |		Declare_Variable	Record
0272 e408       |    |		Load	0x2,0x8
0273 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
0274 0337       | 7  |		Declare_Variable	Array
0275 4850       |HP  |		Short_Literal	0x50
0276 4801       |H   |		Short_Literal	0x1
0277 4820       |H   |		Short_Literal	0x20
0278 00d9       |    |		Load_Top	At_Offset_1
0279 e608       |    |		Load	0x3,0x8
027a 01d6       |    |		Execute	Vector,Field_Write
027b 3ffb       |?   |		Loop_Increasing	0x277
027c e408       |    |		Load	0x2,0x8
027d 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
027e 0119       |    |		Execute	Any,Check_In_Formal_Type
027f 00d9       |    |		Load_Top	At_Offset_1
0280 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0281 00db       |    |		Load_Top	At_Offset_3
0282 e603       |    |		Load	0x3,0x3
0283 0272       | r  |		Execute	Discrete,Minus
0284 0a01       |    |		Execute_Immediate	Plus,0x1
0285 00d9       |    |		Load_Top	At_Offset_1
0286 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0287 00da       |    |		Load_Top	At_Offset_2
0288 00d9       |    |		Load_Top	At_Offset_1
0289 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
028a 4800       |H   |		Short_Literal	0x0
028b 00d9       |    |		Load_Top	At_Offset_1
028c 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
028d e409       |    |		Load	0x2,0x9
028e 017d       | }  |		Execute	Record,Structure_Write
028f 00db       |    |		Load_Top	At_Offset_3
0290 00db       |    |		Load_Top	At_Offset_3
0291 e602       |    |		Load	0x3,0x2
0292 01cf       |    |		Execute	Vector,Slice_Read
0293 4801       |H   |		Short_Literal	0x1
0294 e604       |    |		Load	0x3,0x4
0295 e603       |    |		Load	0x3,0x3
0296 0272       | r  |		Execute	Discrete,Minus
0297 0a01       |    |		Execute_Immediate	Plus,0x1
0298 00d8       |    |		Load_Top	At_Offset_0
0299 00e2       |    |		Load_Encached	Integer_Cache
029a 0260       | `  |		Execute	Discrete,In_Type
029b 7001       |p   |		Jump_Nonzero	0x29d
029c 0801       |    |		Execute_Immediate	Raise,0x1
029d e409       |    |		Load	0x2,0x9
029e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
029f 01ce       |    |		Execute	Vector,Slice_Write
02a0 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02a1 0000 0000  |    |		.BLANK	0000[0x7]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02ab       |    |		.CONST	0x02ab								; Address of begin
02a9 02da       |    |		.CONST	0x02da								; Address of exception handler
02aa 0001       |    |		.CONST	0x0001								; Number of locals
02ab			BODY_02a8:
02ab			INIT_02a8:
02ab e402       |    |		Load	0x2,0x2
02ac 6815       |h   |		Jump_Zero	0x2c2
02ad 4801       |H   |		Short_Literal	0x1
02ae 4820       |H   |		Short_Literal	0x20
02af 4802       |H   |		Short_Literal	0x2
02b0 480a       |H   |		Short_Literal	0xa
02b1 e419       |    |		Load	0x2,0x19
02b2 e005       |    |		Load	0x0,0x5
02b3 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
02b4 0092 0346  |   F|		Action	Push_String_Extended,0x346					; " - "
02b6 01cc       |    |		Execute	Vector,Catenate
02b7 e419       |    |		Load	0x2,0x19
02b8 e40c       |    |		Load	0x2,0xc
02b9 3408       |4   |		Execute	Record,Field_Reference,Field_Number 0x8
02ba 01d5       |    |		Execute	Vector,Field_Reference
02bb 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02bc e006       |    |		Load	0x0,0x6
02bd 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
02be 01cc       |    |		Execute	Vector,Catenate
02bf e403       |    |		Load	0x2,0x3
02c0 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02c1 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02c2 4801       |H   |		Short_Literal	0x1
02c3 4820       |H   |		Short_Literal	0x20
02c4 4802       |H   |		Short_Literal	0x2
02c5 480a       |H   |		Short_Literal	0xa
02c6 e419       |    |		Load	0x2,0x19
02c7 e005       |    |		Load	0x0,0x5
02c8 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
02c9 0092 0346  |   F|		Action	Push_String_Extended,0x346					; " - "
02cb 01cc       |    |		Execute	Vector,Catenate
02cc 4820       |H   |		Short_Literal	0x20
02cd 4805       |H   |		Short_Literal	0x5
02ce 4810       |H   |		Short_Literal	0x10
02cf e419       |    |		Load	0x2,0x19
02d0 e40c       |    |		Load	0x2,0xc
02d1 3408       |4   |		Execute	Record,Field_Reference,Field_Number 0x8
02d2 01d5       |    |		Execute	Vector,Field_Reference
02d3 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02d4 e005       |    |		Load	0x0,0x5
02d5 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
02d6 01cc       |    |		Execute	Vector,Catenate
02d7 e403       |    |		Load	0x2,0x3
02d8 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02d9 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02da			TRAP_02a8:
02da 0007       |    |		Action	Break_Optional
02db 4801       |H   |		Short_Literal	0x1
02dc 4820       |H   |		Short_Literal	0x20
02dd 4802       |H   |		Short_Literal	0x2
02de 480a       |H   |		Short_Literal	0xa
02df e419       |    |		Load	0x2,0x19
02e0 e005       |    |		Load	0x0,0x5
02e1 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
02e2 0092 0346  |   F|		Action	Push_String_Extended,0x346					; " - "
02e4 01cc       |    |		Execute	Vector,Catenate
02e5 4820       |H   |		Short_Literal	0x20
02e6 4805       |H   |		Short_Literal	0x5
02e7 4810       |H   |		Short_Literal	0x10
02e8 e419       |    |		Load	0x2,0x19
02e9 e40c       |    |		Load	0x2,0xc
02ea 3408       |4   |		Execute	Record,Field_Reference,Field_Number 0x8
02eb 01d5       |    |		Execute	Vector,Field_Reference
02ec 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02ed e005       |    |		Load	0x0,0x5
02ee 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
02ef 01cc       |    |		Execute	Vector,Catenate
02f0 0092 0347  |   G|		Action	Push_String_Extended,0x347					; " could not resolve label"
02f2 01cc       |    |		Execute	Vector,Catenate
02f3 e403       |    |		Load	0x2,0x3
02f4 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02f5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02f6 0000 0000  |    |		.XXX[0x2]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02ff       |    |		.CONST	0x02ff								; Address of begin
02f9 0004       |    |		.CONST	0x0004								; Address of exception handler
02fa 0002       |    |		.CONST	0x0002								; Number of locals
02fb			INIT_02f8:
02fb e406       |    |		Load	0x2,0x6
02fc 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02fd e006       |    |		Load	0x0,0x6
02fe 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
02ff			BODY_02f8:
02ff 0092 033a  |   :|		Action	Push_String_Extended,0x33a					; " "
0301 4820       |H   |		Short_Literal	0x20
0302 4805       |H   |		Short_Literal	0x5
0303 4810       |H   |		Short_Literal	0x10
0304 e406       |    |		Load	0x2,0x6
0305 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0306 e005       |    |		Load	0x0,0x5
0307 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0308 01cc       |    |		Execute	Vector,Catenate
0309 0092 0346  |   F|		Action	Push_String_Extended,0x346					; " - "
030b 01cc       |    |		Execute	Vector,Catenate
030c e007       |    |		Load	0x0,0x7
030d 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
030e 00d8       |    |		Load_Top	At_Offset_0
030f e007       |    |		Load	0x0,0x7
0310 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0311 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0312 0000 0000  |    |		.BLANK	0000[0x6]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 0327       | '  |		.CONST	0x0327								; Address of begin
0319 0004       |    |		.CONST	0x0004								; Address of exception handler
031a 0003       |    |		.CONST	0x0003								; Number of locals
031b			INIT_0318:
031b e5ff       |    |		Load	0x2,-0x1
031c 4800       |H   |		Short_Literal	0x0
031d e008       |    |		Load	0x0,0x8
031e 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
031f 4801       |H   |		Short_Literal	0x1
0320 00d9       |    |		Load_Top	At_Offset_1
0321 0092 0348  |   H|		Action	Push_String_Extended,0x348					; ".ucode"
0323 e005       |    |		Load	0x0,0x5
0324 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0325 00e3       |    |		Load_Encached	Natural_Cache
0326 03f1       |    |		Declare_Variable	Discrete,With_Value
0327			BODY_0318:
0327 00d8       |    |		Load_Top	At_Offset_0
0328 7008       |p   |		Jump_Nonzero	0x331
0329 4801       |H   |		Short_Literal	0x1
032a 00da       |    |		Load_Top	At_Offset_2
032b 0092 0349  |   I|		Action	Push_String_Extended,0x349					; "_ucode"
032d e005       |    |		Load	0x0,0x5
032e 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
032f 0afb       |    |		Execute_Immediate	Plus,-0x5
0330 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0331 00d9       |    |		Load_Top	At_Offset_1
0332 01dd       |    |		Execute	Vector,First
0333 00d9       |    |		Load_Top	At_Offset_1
0334 0aff       |    |		Execute_Immediate	Plus,-0x1
0335 00db       |    |		Load_Top	At_Offset_3
0336 01cf       |    |		Execute	Vector,Slice_Read
0337 00cb       |    |		Action	Pop_Block_With_Result
0338 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0339 ; --------------------------------------------------------------------------------------
0339 ; STRING TABLE
0339 ; --------------------------------------------------------------------------------------
0339 0024       | $  |		.STRTAB	0x0024->0x034b							; "Microcode trace for Wcs version "
033a 0042       | B  |		.STRTAB	0x0042->0x035b							; " "
033b 0041       | A  |		.STRTAB	0x0041->0x035b							; "H"
033c 0040       | @  |		.STRTAB	0x0040->0x035c							; "C"
033d 003f       | ?  |		.STRTAB	0x003f->0x035c							; "Micro Stack contents :"
033e 0053       | S  |		.STRTAB	0x0053->0x0367							; "No WCS map for version "
033f 0068       | h  |		.STRTAB	0x0068->0x0373							; "$"
0340 0067       | g  |		.STRTAB	0x0067->0x0373							; "Microcode label using Wcs version "
0341 0087       |    |		.STRTAB	0x0087->0x0384							; "<default>"
0342 008e       |    |		.STRTAB	0x008e->0x0389							; "!local.ucode_maps.microcode."
0343 00a8       |    |		.STRTAB	0x00a8->0x0397							; "."
0344 00a7       |    |		.STRTAB	0x00a7->0x0397							; " ("
0345 00a7       |    |		.STRTAB	0x00a7->0x0398							; " +"
0346 00a7       |    |		.STRTAB	0x00a7->0x0399							; " - "
0347 00a8       |    |		.STRTAB	0x00a8->0x039b							; " could not resolve label"
0348 00be       |    |		.STRTAB	0x00be->0x03a7							; ".ucode"
0349 00c2       |    |		.STRTAB	0x00c2->0x03aa							; "_ucode"
034a 00c6       |    |		.STREND 0x00c6->0x03ad
034b 4d69 6372  |Micr|		.STRTAB_STRINGS
03ad 0000 0000  |    |		.XXX[0x3]
03af 0000       |    |
03b0 ; --------------------------------------------------------------------------------------
03b0 ; Debug Table
03b0 ; --------------------------------------------------------------------------------------
03b0 0004 000e  |    |		.DEBUG4	0x0004,0x000e,0x1edd,0x0000,0x0001,0x0000
03b6 fd74 0001  | t  |		.XXX[0x46]
03b8 402b fd84  |@+  |
03ba 0001 402b  |  @+|
03bc fd94 0001  |    |
03be 402b fda4  |@+  |
03c0 0001 402b  |  @+|
03c2 fdb4 0001  |    |
03c4 402b fdc4  |@+  |
03c6 0001 402b  |  @+|
03c8 fdd4 0001  |    |
03ca 402b fde4  |@+  |
03cc 0001 402b  |  @+|
03ce fe04 0001  |    |
03d0 402b fe14  |@+  |
03d2 0001 402b  |  @+|
03d4 fe24 0001  | $  |
03d6 402b fe64  |@+ d|
03d8 0001 402b  |  @+|
03da fec4 0001  |    |
03dc 402b fef4  |@+  |
03de 0001 402b  |  @+|
03e0 ff04 0001  |    |
03e2 402b ff24  |@+ $|
03e4 0001 402b  |  @+|
03e6 ff44 0001  | D  |
03e8 402b ff64  |@+ d|
03ea 0001 402b  |  @+|
03ec ffa4 0001  |    |
03ee 402b fff4  |@+  |
03f0 0001 402c  |  @,|
03f2 0004 0001  |    |
03f4 402c 0014  |@,  |
03f6 0001 402c  |  @,|
03f8 0024 0001  | $  |
03fa 402c 0030  |@, 0|
03fc 0000 0000  |    |		.BLANK	0000[0x4]