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

⟦f7722d326⟧

    Length: 2048 (0x800)
    Notes: 00_class, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0500e0

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 5813       |X   |		.CONST	0x5813								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0208       |    |		.CONST	0x0208								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 0001       |    |		.CONST	0x0001								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0096       |    |		.CONST	0x0096								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0022       | "  |		.CONST	0x0022								; Number of locals
000b			INIT_0008:
000b 4805       |H   |		Short_Literal	0x5							; Debug Table 0x0 = .DEBUG	0x000b,0x0242,0x8000,0x0000,0x0056,0xb4c5,0x0000,0x000b
													; Debug Table 0x0.0x0 = 0xb,0xffff
													; Debug Table 0x0.0x1 = 0xb,0xfffe
													; Debug Table 0x0.0x2 = 0xb,0xfffd
000c 032b       | +  |		Declare_Type	Record,Incomplete,Visible
000d 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x0.0x3 = 0xd,0xfffc
000e 02a0       |    |		Declare_Subprogram	Null_Subprogram
000f 03ae       |    |		Declare_Type	Heap_Access,Defined,Visible
0010 4802       |H   |		Short_Literal	0x2							; Debug Table 0x0.0x4 = 0x10,0xfffb
													; Debug Table 0x0.0x5 = 0x10,0xfffa
0011 032b       | +  |		Declare_Type	Record,Incomplete,Visible
0012 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x0.0x6 = 0x12,0xfff9
0013 02a0       |    |		Declare_Subprogram	Null_Subprogram
0014 03ae       |    |		Declare_Type	Heap_Access,Defined,Visible
0015 00e9       |    |		Load_Encached	String_Cache						; Debug Table 0x0.0x7 = 0x15,0xfff8
													; Debug Table 0x0.0x8 = 0x15,0xfff7
0016 02a0       |    |		Declare_Subprogram	Null_Subprogram
0017 03ae       |    |		Declare_Type	Heap_Access,Defined,Visible
0018 02a0       |    |		Declare_Subprogram	Null_Subprogram					; Debug Table 0x0.0x9 = 0x18,0xfff6
													; Debug Table 0x0.0xa = 0x18,0xfff5
0019 4800       |H   |		Short_Literal	0x0
001a 032e       | .  |		Declare_Type	Record,Defined,Visible
001b 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x0.0xb = 0x1b,0xfff4
001c 02a0       |    |		Declare_Subprogram	Null_Subprogram
001d 03ae       |    |		Declare_Type	Heap_Access,Defined,Visible
001e e001       |    |		Load	0x0,0x1								; Debug Table 0x0.0xc = 0x1e,0xfff3
													; Debug Table 0x0.0xd = 0x1e,0xfff2
001f 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0020 e002       |    |		Load	0x0,0x2
0021 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0022 029f 009b  |    |		Declare_Subprogram	INIT_0098,For_Call
0024 4802       |H   |		Short_Literal	0x2
0025 032e       | .  |		Declare_Type	Record,Defined,Visible
0026 4fff       |O   |		Short_Literal	-0x1							; Debug Table 0x0.0xe = 0x26,0xfff1
0027 481f       |H   |		Short_Literal	0x1f
0028 00e2       |    |		Load_Encached	Integer_Cache
0029 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
002a 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0x10 = 0x2a,0xffef
													; Debug Table 0x0.0xf = 0x2a,0xfff0
002b 481f       |H   |		Short_Literal	0x1f
002c 029f 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Call
002e 03fe       |    |		Declare_Type	Discrete,Defined,Visible
002f 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x0.0x11 = 0x2f,0xffee
0030 e20e       |    |		Load	0x1,0xe
0031 00e5       |    |		Load_Encached	Long_Integer_Cache
0032 02a0       |    |		Declare_Subprogram	Null_Subprogram
0033 4803       |H   |		Short_Literal	0x3
0034 032e       | .  |		Declare_Type	Record,Defined,Visible
0035 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x0.0x12 = 0x35,0xffed
0036 02a0       |    |		Declare_Subprogram	Null_Subprogram
0037 03ae       |    |		Declare_Type	Heap_Access,Defined,Visible
0038 4802       |H   |		Short_Literal	0x2							; Debug Table 0x0.0x13 = 0x38,0xffec
													; Debug Table 0x0.0x14 = 0x38,0xffeb
0039 032b       | +  |		Declare_Type	Record,Incomplete,Visible
003a 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x0.0x15 = 0x3a,0xffea
003b 02a0       |    |		Declare_Subprogram	Null_Subprogram
003c 03ae       |    |		Declare_Type	Heap_Access,Defined,Visible
003d 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0x16 = 0x3d,0xffe9
													; Debug Table 0x0.0x17 = 0x3d,0xffe8
003e 4803       |H   |		Short_Literal	0x3
003f 029f 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Call
0041 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0042 e001       |    |		Load	0x0,0x1								; Debug Table 0x0.0x18 = 0x42,0xffe7
0043 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0044 00e3       |    |		Load_Encached	Natural_Cache
0045 00da       |    |		Load_Top	At_Offset_2
0046 02a0       |    |		Declare_Subprogram	Null_Subprogram
0047 4803       |H   |		Short_Literal	0x3
0048 032e       | .  |		Declare_Type	Record,Defined,Visible
0049 00e4       |    |		Load_Encached	Positive_Cache						; Debug Table 0x0.0x19 = 0x49,0xffe6
004a 0266       | f  |		Execute	Discrete,Bounds
004b 00da       |    |		Load_Top	At_Offset_2
004c 02a0       |    |		Declare_Subprogram	Null_Subprogram
004d 4801       |H   |		Short_Literal	0x1
004e 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
004f 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x0.0x1a = 0x4f,0xffe5
0050 02a0       |    |		Declare_Subprogram	Null_Subprogram
0051 03ae       |    |		Declare_Type	Heap_Access,Defined,Visible
0052 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x0.0x1b = 0x52,0xffe4
													; Debug Table 0x0.0x1c = 0x52,0xffe3
0053 e214       |    |		Load	0x1,0x14
0054 00de       |    |		Load_Top	At_Offset_6
0055 029f 00e3  |    |		Declare_Subprogram	INIT_00e0,For_Call
0057 4803       |H   |		Short_Literal	0x3
0058 032e       | .  |		Declare_Type	Record,Defined,Visible
0059 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x0.0x1d = 0x59,0xffe2
005a 02a0       |    |		Declare_Subprogram	Null_Subprogram
005b 03ae       |    |		Declare_Type	Heap_Access,Defined,Visible
005c e20e       |    |		Load	0x1,0xe								; Debug Table 0x0.0x1e = 0x5c,0xffe1
													; Debug Table 0x0.0x1f = 0x5c,0xffe0
005d e20e       |    |		Load	0x1,0xe
005e e20e       |    |		Load	0x1,0xe
005f e211       |    |		Load	0x1,0x11
0060 00eb       |    |		Load_Encached	Diana_Cache
0061 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0062 00eb       |    |		Load_Encached	Diana_Cache
0063 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0064 00eb       |    |		Load_Encached	Diana_Cache
0065 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0066 e214       |    |		Load	0x1,0x14
0067 e210       |    |		Load	0x1,0x10
0068 e210       |    |		Load	0x1,0x10
0069 e210       |    |		Load	0x1,0x10
006a e21a       |    |		Load	0x1,0x1a
006b 00e1       |    |		Load_Encached	Boolean_Cache
006c 00e1       |    |		Load_Encached	Boolean_Cache
006d 00e3       |    |		Load_Encached	Natural_Cache
006e 00e3       |    |		Load_Encached	Natural_Cache
006f 00e1       |    |		Load_Encached	Boolean_Cache
0070 00e1       |    |		Load_Encached	Boolean_Cache
0071 00e1       |    |		Load_Encached	Boolean_Cache
0072 e220       |    |		Load	0x1,0x20
0073 00e3       |    |		Load_Encached	Natural_Cache
0074 00e3       |    |		Load_Encached	Natural_Cache
0075 e215       |    |		Load	0x1,0x15
0076 00e3       |    |		Load_Encached	Natural_Cache
0077 e213       |    |		Load	0x1,0x13
0078 029f 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Call
007a 4819       |H   |		Short_Literal	0x19
007b 032e       | .  |		Declare_Type	Record,Defined,Visible
007c 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x0.0x20 = 0x7c,0xffdf
007d 02a0       |    |		Declare_Subprogram	Null_Subprogram
007e 03ae       |    |		Declare_Type	Heap_Access,Defined,Visible
007f 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x0.0x21 = 0x7f,0xffde
													; Debug Table 0x0.0x22 = 0x7f,0xffdd
0080 e003       |    |		Load	0x0,0x3
0081 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0082 00da       |    |		Load_Top	At_Offset_2
0083 e211       |    |		Load	0x1,0x11
0084 49a4       |I   |		Short_Literal	0x1a4
0085 00eb       |    |		Load_Encached	Diana_Cache
0086 0098       |    |		Execute	Package,Field_Read_Dynamic
0087 029f 0113  |    |		Declare_Subprogram	INIT_0110,For_Call
0089 e20d       |    |		Load	0x1,0xd
008a 0326       | &  |		Complete_Type	Record,By_Defining
008b e20e       |    |		Load	0x1,0xe								; Debug Table 0x0.0x23 = 0x8b,0xffdc
008c e210       |    |		Load	0x1,0x10
008d 02a0       |    |		Declare_Subprogram	Null_Subprogram
008e e20f       |    |		Load	0x1,0xf
008f 0326       | &  |		Complete_Type	Record,By_Defining
0090 e218       |    |		Load	0x1,0x18							; Debug Table 0x0.0x24 = 0x90,0xffdb
0091 e21a       |    |		Load	0x1,0x1a
0092 02a0       |    |		Declare_Subprogram	Null_Subprogram
0093 e219       |    |		Load	0x1,0x19
0094 0326       | &  |		Complete_Type	Record,By_Defining
0095 00bf       |    |		Action	Accept_Activation
0096			BODY_0008:
0096 00bc       |    |		Action	Signal_Activated
0097 00bb       |    |		Action	Signal_Completion
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b       |    |		.CONST	0x009b								; Address of begin
0099 0004       |    |		.CONST	0x0004								; Address of exception handler
009a 0001       |    |		.CONST	0x0001								; Number of locals
009b			BODY_0098:
009b			INIT_0098:
009b 4608       |F   |		Jump_Case	0x9							; Debug Table 0x1 = .DEBUG	0x009b,0x028e,0x0005,0x0000,0x0056,0xb4c5,0x0000,0x0048
009c 7808       |x   |		Jump	0xa5								; case 0x0
009d 780e       |x   |		Jump	0xac								; case 0x1
009e 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
009f 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
00a0 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
00a1 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
00a2 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
00a3 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x7
00a4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x8
00a5 00da       |    |		Load_Top	At_Offset_2
00a6 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
00a7 0125       | %  |		Execute	Any,Set_Constraint
00a8 00da       |    |		Load_Top	At_Offset_2
00a9 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
00aa 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00ab 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
00ac 00da       |    |		Load_Top	At_Offset_2
00ad 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
00ae 0125       | %  |		Execute	Any,Set_Constraint
00af 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3       |    |		.CONST	0x00b3								; Address of begin
00b1 0004       |    |		.CONST	0x0004								; Address of exception handler
00b2 0001       |    |		.CONST	0x0001								; Number of locals
00b3			BODY_00b0:
00b3			INIT_00b0:
00b3 4603       |F   |		Jump_Case	0x4							; Debug Table 0x2 = .DEBUG	0x00b3,0x0290,0x0005,0x0000,0x0056,0xb4c5,0x0000,0x006c
00b4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00b5 7802       |x   |		Jump	0xb8								; case 0x1
00b6 7805       |x   |		Jump	0xbc								; case 0x2
00b7 7809       |x   |		Jump	0xc1								; case 0x3
00b8 00da       |    |		Load_Top	At_Offset_2
00b9 0091 0128  |   (|		Action	Push_String_Extended_Indexed,0x128				; "LIBRARY_UNIT"
00bb 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00bc 00db       |    |		Load_Top	At_Offset_3
00bd 00db       |    |		Load_Top	At_Offset_3
00be 00e0       |    |		Load_Encached	Standard_Cache
00bf 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00c0 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00c1 00da       |    |		Load_Top	At_Offset_2
00c2 00e0       |    |		Load_Encached	Standard_Cache
00c3 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00c4 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00c5 0000 0000  |    |		.XXX[0x3]
00c7 0000       |    |
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 4603       |F   |		Jump_Case	0x4							; Debug Table 0x3 = .DEBUG	0x00cb,0x0292,0x0005,0x0000,0x0056,0xb4c5,0x0000,0x00ba
00cc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00cd 7802       |x   |		Jump	0xd0								; case 0x1
00ce 7805       |x   |		Jump	0xd4								; case 0x2
00cf 7809       |x   |		Jump	0xd9								; case 0x3
00d0 00da       |    |		Load_Top	At_Offset_2
00d1 0091 0148  |   H|		Action	Push_String_Extended_Indexed,0x148				; "IN_PARAMETER"
00d3 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00d4 00db       |    |		Load_Top	At_Offset_3
00d5 00db       |    |		Load_Top	At_Offset_3
00d6 00e0       |    |		Load_Encached	Standard_Cache
00d7 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00d8 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00d9 00da       |    |		Load_Top	At_Offset_2
00da 00e0       |    |		Load_Encached	Standard_Cache
00db 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00dc 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00dd 0000 0000  |    |		.XXX[0x3]
00df 0000       |    |
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3       |    |		.CONST	0x00e3								; Address of begin
00e1 0004       |    |		.CONST	0x0004								; Address of exception handler
00e2 0001       |    |		.CONST	0x0001								; Number of locals
00e3			BODY_00e0:
00e3			INIT_00e0:
00e3 4608       |F   |		Jump_Case	0x9							; Debug Table 0x4 = .DEBUG	0x00e3,0x0294,0x0005,0x0000,0x0056,0xb4c5,0x0000,0x00ea
00e4 7808       |x   |		Jump	0xed								; case 0x0
00e5 780b       |x   |		Jump	0xf1								; case 0x1
00e6 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
00e7 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
00e8 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
00e9 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
00ea 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
00eb 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x7
00ec 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x8
00ed 00da       |    |		Load_Top	At_Offset_2
00ee 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
00ef 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00f0 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
00f1 00da       |    |		Load_Top	At_Offset_2
00f2 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
00f3 1c01       |    |		Execute_Immediate	Run_Utility,0x1
00f4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
00f5 0000 0000  |    |		.XXX[0x3]
00f7 0000       |    |
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb       |    |		.CONST	0x00fb								; Address of begin
00f9 0004       |    |		.CONST	0x0004								; Address of exception handler
00fa 0001       |    |		.CONST	0x0001								; Number of locals
00fb			BODY_00f8:
00fb			INIT_00f8:
00fb 4608       |F   |		Jump_Case	0x9							; Debug Table 0x5 = .DEBUG	0x00fb,0x0296,0x0005,0x0000,0x0056,0xb4c5,0x0000,0x0107
00fc 7808       |x   |		Jump	0x105								; case 0x0
00fd 780b       |x   |		Jump	0x109								; case 0x1
00fe 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
00ff 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0100 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0101 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
0102 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
0103 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x7
0104 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x8
0105 00da       |    |		Load_Top	At_Offset_2
0106 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
0107 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0108 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0109 00da       |    |		Load_Top	At_Offset_2
010a 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
010b 1c01       |    |		Execute_Immediate	Run_Utility,0x1
010c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
010d 0000 0000  |    |		.XXX[0x3]
010f 0000       |    |
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113       |    |		.CONST	0x0113								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0001       |    |		.CONST	0x0001								; Number of locals
0113			BODY_0110:
0113			INIT_0110:
0113 4608       |F   |		Jump_Case	0x9							; Debug Table 0x6 = .DEBUG	0x0113,0x0298,0x0005,0x0000,0x0056,0xb4c5,0x0000,0x0198
0114 7808       |x   |		Jump	0x11d								; case 0x0
0115 780e       |x   |		Jump	0x124								; case 0x1
0116 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
0117 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0118 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0119 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
011a 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
011b 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x7
011c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x8
011d 00da       |    |		Load_Top	At_Offset_2
011e 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
011f 0125       | %  |		Execute	Any,Set_Constraint
0120 00da       |    |		Load_Top	At_Offset_2
0121 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0122 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0123 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0124 00da       |    |		Load_Top	At_Offset_2
0125 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0126 0125       | %  |		Execute	Any,Set_Constraint
0127 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0128 ; --------------------------------------------------------------------------------------
0128 ; STRING TABLE
0128 ; --------------------------------------------------------------------------------------
0128 004a       | J  |		.STRTAB	0x004a->0x014d							; "LIBRARY_UNIT"
0129 0054       | T  |		.STRTAB	0x0054->0x0153							; "HOLE"
012a 0056       | V  |		.STRTAB	0x0056->0x0155							; "POLYMORPHIC_PARAM"
012b 0065       | e  |		.STRTAB	0x0065->0x015d							; "POLYDEBUG_INFO"
012c 0071       | q  |		.STRTAB	0x0071->0x0164							; "CODE_SEGMENT"
012d 007b       | {  |		.STRTAB	0x007b->0x016a							; "EXCEPTION_NUMBER"
012e 0089       |    |		.STRTAB	0x0089->0x0172							; "DIANA_REFERENCE1"
012f 0097       |    |		.STRTAB	0x0097->0x017a							; "DIANA_REFERENCE2"
0130 00a5       |    |		.STRTAB	0x00a5->0x0182							; "MICROCODE_ASSIST"
0131 00b3       |    |		.STRTAB	0x00b3->0x018a							; "PROTO_PACKAGE_TYPE"
0132 00c3       |    |		.STRTAB	0x00c3->0x0193							; "COMP_UNIT_INDEX"
0133 00d0       |    |		.STRTAB	0x00d0->0x019b							; "INSTANTIATION_INDEX"
0134 00e1       |    |		.STRTAB	0x00e1->0x01a4							; "SPARE12"
0135 00e6       |    |		.STRTAB	0x00e6->0x01a8							; "SPARE13"
0136 00eb       |    |		.STRTAB	0x00eb->0x01ab							; "SPARE14"
0137 00f0       |    |		.STRTAB	0x00f0->0x01af							; "SPARE15"
0138 00f5       |    |		.STRTAB	0x00f5->0x01b2							; "SPARE16"
0139 00fa       |    |		.STRTAB	0x00fa->0x01b6							; "SPARE17"
013a 00ff       |    |		.STRTAB	0x00ff->0x01b9							; "SPARE18"
013b 0104       |    |		.STRTAB	0x0104->0x01bd							; "SPARE19"
013c 0109       |    |		.STRTAB	0x0109->0x01c0							; "SPARE20"
013d 010e       |    |		.STRTAB	0x010e->0x01c4							; "SPARE21"
013e 0113       |    |		.STRTAB	0x0113->0x01c7							; "SPARE22"
013f 0118       |    |		.STRTAB	0x0118->0x01cb							; "SPARE23"
0140 011d       |    |		.STRTAB	0x011d->0x01ce							; "SPARE24"
0141 0122       | "  |		.STRTAB	0x0122->0x01d2							; "SPARE25"
0142 0127       | '  |		.STRTAB	0x0127->0x01d5							; "SPARE26"
0143 012c       | ,  |		.STRTAB	0x012c->0x01d9							; "SPARE27"
0144 0131       | 1  |		.STRTAB	0x0131->0x01dc							; "SPARE28"
0145 0136       | 6  |		.STRTAB	0x0136->0x01e0							; "SPARE29"
0146 013b       | ;  |		.STRTAB	0x013b->0x01e3							; "SPARE30"
0147 0140       | @  |		.STRTAB	0x0140->0x01e7							; "SPARE31"
0148 0145       | E  |		.STRTAB	0x0145->0x01ea							; "IN_PARAMETER"
0149 014f       | O  |		.STRTAB	0x014f->0x01f0							; "IN_OUT_PARAMETER"
014a 015d       | ]  |		.STRTAB	0x015d->0x01f8							; "OUT_PARAMETER"
014b 0168       | h  |		.STRTAB	0x0168->0x01ff							; "FUNCTION_RESULT"
014c 0175       | u  |		.STREND 0x0175->0x0206
014d 4c49 4252  |LIBR|		.STRTAB_STRINGS
0207 0000       |    |		.XXX[0x1]
0208 ; --------------------------------------------------------------------------------------
0208 ; Debug Table
0208 ; --------------------------------------------------------------------------------------
0208 0003 0007  |    |		.CONST	0x0003,0x0007
020a 000b 0242  |   B|		.DEBUG	0x000b,0x0242,0x8000,0x0000,0x0056,0xb4c5,0x0000,0x000b
0212 009b 028e  |    |		.DEBUG	0x009b,0x028e,0x0005,0x0000,0x0056,0xb4c5,0x0000,0x0048
021a 00b3 0290  |    |		.DEBUG	0x00b3,0x0290,0x0005,0x0000,0x0056,0xb4c5,0x0000,0x006c
0222 00cb 0292  |    |		.DEBUG	0x00cb,0x0292,0x0005,0x0000,0x0056,0xb4c5,0x0000,0x00ba
022a 00e3 0294  |    |		.DEBUG	0x00e3,0x0294,0x0005,0x0000,0x0056,0xb4c5,0x0000,0x00ea
0232 00fb 0296  |    |		.DEBUG	0x00fb,0x0296,0x0005,0x0000,0x0056,0xb4c5,0x0000,0x0107
023a 0113 0298  |    |		.DEBUG	0x0113,0x0298,0x0005,0x0000,0x0056,0xb4c5,0x0000,0x0198
0242 ; --------------------------------------------------------------------------------------
0242 ; Debug3 Subtable 0x0
0242 ; --------------------------------------------------------------------------------------
0242 0025 0000  | %  |		.DBG3TAB	0x0025,0x0000
0244 000b ffff  |    |		.CONST	0x000b,0xffff
0246 000b fffe  |    |		.CONST	0x000b,0xfffe
0248 000b fffd  |    |		.CONST	0x000b,0xfffd
024a 000d fffc  |    |		.CONST	0x000d,0xfffc
024c 0010 fffb  |    |		.CONST	0x0010,0xfffb
024e 0010 fffa  |    |		.CONST	0x0010,0xfffa
0250 0012 fff9  |    |		.CONST	0x0012,0xfff9
0252 0015 fff8  |    |		.CONST	0x0015,0xfff8
0254 0015 fff7  |    |		.CONST	0x0015,0xfff7
0256 0018 fff6  |    |		.CONST	0x0018,0xfff6
0258 0018 fff5  |    |		.CONST	0x0018,0xfff5
025a 001b fff4  |    |		.CONST	0x001b,0xfff4
025c 001e fff3  |    |		.CONST	0x001e,0xfff3
025e 001e fff2  |    |		.CONST	0x001e,0xfff2
0260 0026 fff1  | &  |		.CONST	0x0026,0xfff1
0262 002a fff0  | *  |		.CONST	0x002a,0xfff0
0264 002a ffef  | *  |		.CONST	0x002a,0xffef
0266 002f ffee  | /  |		.CONST	0x002f,0xffee
0268 0035 ffed  | 5  |		.CONST	0x0035,0xffed
026a 0038 ffec  | 8  |		.CONST	0x0038,0xffec
026c 0038 ffeb  | 8  |		.CONST	0x0038,0xffeb
026e 003a ffea  | :  |		.CONST	0x003a,0xffea
0270 003d ffe9  | =  |		.CONST	0x003d,0xffe9
0272 003d ffe8  | =  |		.CONST	0x003d,0xffe8
0274 0042 ffe7  | B  |		.CONST	0x0042,0xffe7
0276 0049 ffe6  | I  |		.CONST	0x0049,0xffe6
0278 004f ffe5  | O  |		.CONST	0x004f,0xffe5
027a 0052 ffe4  | R  |		.CONST	0x0052,0xffe4
027c 0052 ffe3  | R  |		.CONST	0x0052,0xffe3
027e 0059 ffe2  | Y  |		.CONST	0x0059,0xffe2
0280 005c ffe1  | \  |		.CONST	0x005c,0xffe1
0282 005c ffe0  | \  |		.CONST	0x005c,0xffe0
0284 007c ffdf  | |  |		.CONST	0x007c,0xffdf
0286 007f ffde  |    |		.CONST	0x007f,0xffde
0288 007f ffdd  |    |		.CONST	0x007f,0xffdd
028a 008b ffdc  |    |		.CONST	0x008b,0xffdc
028c 0090 ffdb  |    |		.CONST	0x0090,0xffdb
028e ; --------------------------------------------------------------------------------------
028e ; Debug3 Subtable 0x1
028e ; --------------------------------------------------------------------------------------
028e 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0290 ; --------------------------------------------------------------------------------------
0290 ; Debug3 Subtable 0x2
0290 ; --------------------------------------------------------------------------------------
0290 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0292 ; --------------------------------------------------------------------------------------
0292 ; Debug3 Subtable 0x3
0292 ; --------------------------------------------------------------------------------------
0292 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0294 ; --------------------------------------------------------------------------------------
0294 ; Debug3 Subtable 0x4
0294 ; --------------------------------------------------------------------------------------
0294 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0296 ; --------------------------------------------------------------------------------------
0296 ; Debug3 Subtable 0x5
0296 ; --------------------------------------------------------------------------------------
0296 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0298 ; --------------------------------------------------------------------------------------
0298 ; Debug3 Subtable 0x6
0298 ; --------------------------------------------------------------------------------------
0298 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
029a 0000 0000  |    |		.BLANK	0000[0x166]