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

⟦5688a95e0⟧

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

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 0268       | h  |		.CONST	0x0268								; 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 00c4       |    |		.CONST	0x00c4								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0028       | (  |		.CONST	0x0028								; Number of locals
000b			INIT_0008:
000b 4808       |H   |		Short_Literal	0x8
000c 4800       |H   |		Short_Literal	0x0
000d 4805       |H   |		Short_Literal	0x5
000e 029f 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Call
0010 03fb       |    |		Declare_Type	Discrete,Defined,Visible,With_Size
0011 0007       |    |		Action	Break_Optional
0012 e003       |    |		Load	0x0,0x3
0013 e004       |    |		Load	0x0,0x4
0014 00da       |    |		Load_Top	At_Offset_2
0015 e005       |    |		Load	0x0,0x5
0016 00d8       |    |		Load_Top	At_Offset_0
0017 e005       |    |		Load	0x0,0x5
0018 e006       |    |		Load	0x0,0x6
0019 e007       |    |		Load	0x0,0x7
001a 029f 0133  |   3|		Declare_Subprogram	INIT_0130,For_Call
001c 4808       |H   |		Short_Literal	0x8
001d 032e       | .  |		Declare_Type	Record,Defined,Visible
001e 00d8       |    |		Load_Top	At_Offset_0
001f 02a0       |    |		Declare_Subprogram	Null_Subprogram
0020 4818       |H   |		Short_Literal	0x18
0021 03d4       |    |		Declare_Type	Access,Defined,Visible,Accesses_Protected
0022 00d8       |    |		Load_Top	At_Offset_0
0023 0221       | !  |		Execute	Access,Allow_Deallocate
0024 e007       |    |		Load	0x0,0x7
0025 0266       | f  |		Execute	Discrete,Bounds
0026 00da       |    |		Load_Top	At_Offset_2
0027 02a0       |    |		Declare_Subprogram	Null_Subprogram
0028 4801       |H   |		Short_Literal	0x1
0029 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
002a 00d8       |    |		Load_Top	At_Offset_0
002b 02a0       |    |		Declare_Subprogram	Null_Subprogram
002c 4818       |H   |		Short_Literal	0x18
002d 03d4       |    |		Declare_Type	Access,Defined,Visible,Accesses_Protected
002e 00d8       |    |		Load_Top	At_Offset_0
002f 0221       | !  |		Execute	Access,Allow_Deallocate
0030 0007       |    |		Action	Break_Optional
0031 0007       |    |		Action	Break_Optional
0032 0007       |    |		Action	Break_Optional
0033 0007       |    |		Action	Break_Optional
0034 0007       |    |		Action	Break_Optional
0035 a008       |    |		Store_Unchecked	0x0,0x8
0036 00c6       |    |		Action	Check_Subprogram_Elaborated
0037 00db       |    |		Load_Top	At_Offset_3
0038 0129       | )  |		Execute	Any,Make_Visible
0039 00db       |    |		Load_Top	At_Offset_3
003a 0129       | )  |		Execute	Any,Make_Visible
003b e009       |    |		Load	0x0,0x9
003c 0129       | )  |		Execute	Any,Make_Visible
003d e00a       |    |		Load	0x0,0xa
003e 0129       | )  |		Execute	Any,Make_Visible
003f 4800       |H   |		Short_Literal	0x0
0040 0129       | )  |		Execute	Any,Make_Visible
0041 a008       |    |		Store_Unchecked	0x0,0x8
0042 00c6       |    |		Action	Check_Subprogram_Elaborated
0043 e210       |    |		Load	0x1,0x10
0044 0129       | )  |		Execute	Any,Make_Visible
0045 e211       |    |		Load	0x1,0x11
0046 0129       | )  |		Execute	Any,Make_Visible
0047 e00b       |    |		Load	0x0,0xb
0048 0129       | )  |		Execute	Any,Make_Visible
0049 e00c       |    |		Load	0x0,0xc
004a 0129       | )  |		Execute	Any,Make_Visible
004b 4800       |H   |		Short_Literal	0x0
004c 0129       | )  |		Execute	Any,Make_Visible
004d e20f       |    |		Load	0x1,0xf
004e e004       |    |		Load	0x0,0x4
004f e006       |    |		Load	0x0,0x6
0050 00d8       |    |		Load_Top	At_Offset_0
0051 e20d       |    |		Load	0x1,0xd
0052 e005       |    |		Load	0x0,0x5
0053 00d8       |    |		Load_Top	At_Offset_0
0054 e005       |    |		Load	0x0,0x5
0055 e007       |    |		Load	0x0,0x7
0056 e006       |    |		Load	0x0,0x6
0057 029f 0153  |   S|		Declare_Subprogram	INIT_0150,For_Call
0059 480a       |H   |		Short_Literal	0xa
005a 032e       | .  |		Declare_Type	Record,Defined,Visible
005b e00d       |    |		Load	0x0,0xd
005c 0266       | f  |		Execute	Discrete,Bounds
005d 00da       |    |		Load_Top	At_Offset_2
005e 029f 00f3  |    |		Declare_Subprogram	INIT_00f0,For_Call
0060 4801       |H   |		Short_Literal	0x1
0061 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
0062 00d8       |    |		Load_Top	At_Offset_0
0063 02a0       |    |		Declare_Subprogram	Null_Subprogram
0064 4818       |H   |		Short_Literal	0x18
0065 03d4       |    |		Declare_Type	Access,Defined,Visible,Accesses_Protected
0066 00d8       |    |		Load_Top	At_Offset_0
0067 0221       | !  |		Execute	Access,Allow_Deallocate
0068 0007       |    |		Action	Break_Optional
0069 00da       |    |		Load_Top	At_Offset_2
006a 0322       | "  |		Declare_Variable	Record
006b e20f       |    |		Load	0x1,0xf
006c 00d9       |    |		Load_Top	At_Offset_1
006d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
006e e002       |    |		Load	0x0,0x2
006f 00d9       |    |		Load_Top	At_Offset_1
0070 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0071 4800       |H   |		Short_Literal	0x0
0072 00d9       |    |		Load_Top	At_Offset_1
0073 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0074 4800       |H   |		Short_Literal	0x0
0075 00d9       |    |		Load_Top	At_Offset_1
0076 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0077 4800       |H   |		Short_Literal	0x0
0078 00d9       |    |		Load_Top	At_Offset_1
0079 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
007a 4800       |H   |		Short_Literal	0x0
007b 00d9       |    |		Load_Top	At_Offset_1
007c 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
007d 4800       |H   |		Short_Literal	0x0
007e 00d9       |    |		Load_Top	At_Offset_1
007f 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0080 4800       |H   |		Short_Literal	0x0
0081 00d9       |    |		Load_Top	At_Offset_1
0082 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
0083 4800       |H   |		Short_Literal	0x0
0084 00d9       |    |		Load_Top	At_Offset_1
0085 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
0086 4800       |H   |		Short_Literal	0x0
0087 00d9       |    |		Load_Top	At_Offset_1
0088 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
0089 0129       | )  |		Execute	Any,Make_Visible
008a 0007       |    |		Action	Break_Optional
008b a008       |    |		Store_Unchecked	0x0,0x8
008c 00c6       |    |		Action	Check_Subprogram_Elaborated
008d 00da       |    |		Load_Top	At_Offset_2
008e 0129       | )  |		Execute	Any,Make_Visible
008f 00da       |    |		Load_Top	At_Offset_2
0090 0129       | )  |		Execute	Any,Make_Visible
0091 e00e       |    |		Load	0x0,0xe
0092 0129       | )  |		Execute	Any,Make_Visible
0093 e00f       |    |		Load	0x0,0xf
0094 0129       | )  |		Execute	Any,Make_Visible
0095 4800       |H   |		Short_Literal	0x0
0096 0129       | )  |		Execute	Any,Make_Visible
0097 4800       |H   |		Short_Literal	0x0
0098 481f       |H   |		Short_Literal	0x1f
0099 029f 010b  |    |		Declare_Subprogram	INIT_0108,For_Call
009b 03fe       |    |		Declare_Type	Discrete,Defined,Visible
009c 00d8       |    |		Load_Top	At_Offset_0
009d 0266       | f  |		Execute	Discrete,Bounds
009e 00e1       |    |		Load_Encached	Boolean_Cache
009f 02a0       |    |		Declare_Subprogram	Null_Subprogram
00a0 4801       |H   |		Short_Literal	0x1
00a1 035e       | ^  |		Declare_Type	Array,Defined,Visible
00a2 00d8       |    |		Load_Top	At_Offset_0
00a3 0336       | 6  |		Declare_Variable	Array,Visible
00a4 00d8       |    |		Load_Top	At_Offset_0
00a5 0335       | 5  |		Declare_Variable	Array,Duplicate
00a6 00cd       |    |		Action	Spare6_Action
00a7 481f       |H   |		Short_Literal	0x1f
00a8 4800       |H   |		Short_Literal	0x0
00a9 4800       |H   |		Short_Literal	0x0
00aa 00d9       |    |		Load_Top	At_Offset_1
00ab e228       | (  |		Load	0x1,0x28
00ac 01d6       |    |		Execute	Vector,Field_Write
00ad 3ffb       |?   |		Loop_Increasing	0xa9
00ae 00d9       |    |		Load_Top	At_Offset_1
00af 01d4       |    |		Execute	Vector,Structure_Write
00b0 00d9       |    |		Load_Top	At_Offset_1
00b1 0337       | 7  |		Declare_Variable	Array
00b2 481f       |H   |		Short_Literal	0x1f
00b3 4818       |H   |		Short_Literal	0x18
00b4 4801       |H   |		Short_Literal	0x1
00b5 00d9       |    |		Load_Top	At_Offset_1
00b6 e228       | (  |		Load	0x1,0x28
00b7 01d6       |    |		Execute	Vector,Field_Write
00b8 3ffb       |?   |		Loop_Increasing	0xb4
00b9 4817       |H   |		Short_Literal	0x17
00ba 4800       |H   |		Short_Literal	0x0
00bb 4800       |H   |		Short_Literal	0x0
00bc 00d9       |    |		Load_Top	At_Offset_1
00bd e228       | (  |		Load	0x1,0x28
00be 01d6       |    |		Execute	Vector,Field_Write
00bf 3ffb       |?   |		Loop_Increasing	0xbb
00c0 00da       |    |		Load_Top	At_Offset_2
00c1 01c3       |    |		Execute	Vector,Check_In_Type
00c2 0129       | )  |		Execute	Any,Make_Visible
00c3 00bf       |    |		Action	Accept_Activation
00c4			BODY_0008:
00c4 00bc       |    |		Action	Signal_Activated
00c5 00bb       |    |		Action	Signal_Completion
00c6 0000 0000  |    |		.XXX[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 4607       |F   |		Jump_Case	0x8
00cc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00cd 7807       |x   |		Jump	0xd5								; case 0x1
00ce 780a       |x   |		Jump	0xd9								; case 0x2
00cf 780e       |x   |		Jump	0xde								; case 0x3
00d0 7811       |x   |		Jump	0xe2								; case 0x4
00d1 7812       |x   |		Jump	0xe4								; case 0x5
00d2 7813       |x   |		Jump	0xe6								; case 0x6
00d3 7816       |x   |		Jump	0xea								; case 0x7
00d4 4302       |C   |		.XXX[0x1]
00d5 00da       |    |		Load_Top	At_Offset_2
00d6 0091 0172  |   r|		Action	Push_String_Extended_Indexed,0x172				; "STATIC_GRAY"
00d8 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00d9 00db       |    |		Load_Top	At_Offset_3
00da 00db       |    |		Load_Top	At_Offset_3
00db 00e0       |    |		Load_Encached	Standard_Cache
00dc 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00dd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00de 00da       |    |		Load_Top	At_Offset_2
00df 00e0       |    |		Load_Encached	Standard_Cache
00e0 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00e1 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00e2 00db       |    |		Load_Top	At_Offset_3
00e3 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00e4 00db       |    |		Load_Top	At_Offset_3
00e5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00e6 e20d       |    |		Load	0x1,0xd
00e7 00dc       |    |		Load_Top	At_Offset_4
00e8 0267       | g  |		Execute	Discrete,Predecessor
00e9 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00ea e20d       |    |		Load	0x1,0xd
00eb 00dc       |    |		Load_Top	At_Offset_4
00ec 0268       | h  |		Execute	Discrete,Successor
00ed 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00ee 0000 0000  |    |		.XXX[0x2]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3       |    |		.CONST	0x00f3								; Address of begin
00f1 0004       |    |		.CONST	0x0004								; Address of exception handler
00f2 0001       |    |		.CONST	0x0001								; Number of locals
00f3			BODY_00f0:
00f3			INIT_00f0:
00f3 00d1       |    |		Pop_Control	Pop_Count_1
00f4 00da       |    |		Load_Top	At_Offset_2
00f5 01d8       |    |		Execute	Vector,Element_Type
00f6 0322       | "  |		Declare_Variable	Record
00f7 00d8       |    |		Load_Top	At_Offset_0
00f8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00f9 00db       |    |		Load_Top	At_Offset_3
00fa 01dc       |    |		Execute	Vector,Last
00fb e5ff       |    |		Load	0x2,-0x1
00fc 01dd       |    |		Execute	Vector,First
00fd 0263       | c  |		Execute	Discrete,Above_Bound
00fe 7006       |p   |		Jump_Nonzero	0x105
00ff 00da       |    |		Load_Top	At_Offset_2
0100 00d9       |    |		Load_Top	At_Offset_1
0101 e5ff       |    |		Load	0x2,-0x1
0102 01d6       |    |		Execute	Vector,Field_Write
0103 0a01       |    |		Execute_Immediate	Plus,0x1
0104 7ff8       |    |		Jump	0xfd
0105 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0106 0000 0000  |    |		.XXX[0x2]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b       |    |		.CONST	0x010b								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0001       |    |		.CONST	0x0001								; Number of locals
010b			BODY_0108:
010b			INIT_0108:
010b 4607       |F   |		Jump_Case	0x8
010c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
010d 7807       |x   |		Jump	0x115								; case 0x1
010e 780a       |x   |		Jump	0x119								; case 0x2
010f 780e       |x   |		Jump	0x11e								; case 0x3
0110 7811       |x   |		Jump	0x122								; case 0x4
0111 7812       |x   |		Jump	0x124								; case 0x5
0112 7813       |x   |		Jump	0x126								; case 0x6
0113 7816       |x   |		Jump	0x12a								; case 0x7
0114 4302       |C   |		.XXX[0x1]
0115 00da       |    |		Load_Top	At_Offset_2
0116 0091 0178  |   x|		Action	Push_String_Extended_Indexed,0x178				; "XVIFI31"
0118 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0119 00db       |    |		Load_Top	At_Offset_3
011a 00db       |    |		Load_Top	At_Offset_3
011b 00e0       |    |		Load_Encached	Standard_Cache
011c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
011d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
011e 00da       |    |		Load_Top	At_Offset_2
011f 00e0       |    |		Load_Encached	Standard_Cache
0120 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0121 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0122 00db       |    |		Load_Top	At_Offset_3
0123 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0124 00db       |    |		Load_Top	At_Offset_3
0125 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0126 e225       | %  |		Load	0x1,0x25
0127 00dc       |    |		Load_Top	At_Offset_4
0128 0267       | g  |		Execute	Discrete,Predecessor
0129 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
012a e225       | %  |		Load	0x1,0x25
012b 00dc       |    |		Load_Top	At_Offset_4
012c 0268       | h  |		Execute	Discrete,Successor
012d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
012e 0000 0000  |    |		.XXX[0x2]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133       | 3  |		.CONST	0x0133								; Address of begin
0131 0004       |    |		.CONST	0x0004								; Address of exception handler
0132 0001       |    |		.CONST	0x0001								; Number of locals
0133			BODY_0130:
0133			INIT_0130:
0133 4601       |F   |		Jump_Case	0x2
0134 7801       |x   |		Jump	0x136								; case 0x0
0135 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0136 e002       |    |		Load	0x0,0x2
0137 00db       |    |		Load_Top	At_Offset_3
0138 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0139 4800       |H   |		Short_Literal	0x0
013a 00db       |    |		Load_Top	At_Offset_3
013b 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
013c 4800       |H   |		Short_Literal	0x0
013d 00db       |    |		Load_Top	At_Offset_3
013e 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
013f 4800       |H   |		Short_Literal	0x0
0140 00db       |    |		Load_Top	At_Offset_3
0141 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0142 4800       |H   |		Short_Literal	0x0
0143 00db       |    |		Load_Top	At_Offset_3
0144 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0145 4800       |H   |		Short_Literal	0x0
0146 00db       |    |		Load_Top	At_Offset_3
0147 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0148 4800       |H   |		Short_Literal	0x0
0149 00db       |    |		Load_Top	At_Offset_3
014a 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
014b 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
014c 0000 0000  |    |		.BLANK	0000[0x4]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153       | S  |		.CONST	0x0153								; Address of begin
0151 0004       |    |		.CONST	0x0004								; Address of exception handler
0152 0001       |    |		.CONST	0x0001								; Number of locals
0153			BODY_0150:
0153			INIT_0150:
0153 4601       |F   |		Jump_Case	0x2
0154 7801       |x   |		Jump	0x156								; case 0x0
0155 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0156 e002       |    |		Load	0x0,0x2
0157 00db       |    |		Load_Top	At_Offset_3
0158 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0159 4800       |H   |		Short_Literal	0x0
015a 00db       |    |		Load_Top	At_Offset_3
015b 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
015c 4800       |H   |		Short_Literal	0x0
015d 00db       |    |		Load_Top	At_Offset_3
015e 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
015f 4800       |H   |		Short_Literal	0x0
0160 00db       |    |		Load_Top	At_Offset_3
0161 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0162 4800       |H   |		Short_Literal	0x0
0163 00db       |    |		Load_Top	At_Offset_3
0164 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0165 4800       |H   |		Short_Literal	0x0
0166 00db       |    |		Load_Top	At_Offset_3
0167 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0168 4800       |H   |		Short_Literal	0x0
0169 00db       |    |		Load_Top	At_Offset_3
016a 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
016b 4800       |H   |		Short_Literal	0x0
016c 00db       |    |		Load_Top	At_Offset_3
016d 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
016e 4800       |H   |		Short_Literal	0x0
016f 00db       |    |		Load_Top	At_Offset_3
0170 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
0171 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0172 ; --------------------------------------------------------------------------------------
0172 ; STRING TABLE
0172 ; --------------------------------------------------------------------------------------
0172 004e       | N  |		.STRTAB	0x004e->0x0199							; "STATIC_GRAY"
0173 0057       | W  |		.STRTAB	0x0057->0x019e							; "GRAYSCALE"
0174 005e       | ^  |		.STRTAB	0x005e->0x01a3							; "STATIC_COLOR"
0175 0068       | h  |		.STRTAB	0x0068->0x01a9							; "PSEUDO_COLOR"
0176 0072       | r  |		.STRTAB	0x0072->0x01af							; "TRUE_COLOR"
0177 007a       | z  |		.STRTAB	0x007a->0x01b4							; "DIRECT_COLOR"
0178 0084       |    |		.STRTAB	0x0084->0x01ba							; "XVIFI31"
0179 0089       |    |		.STRTAB	0x0089->0x01bd							; "XVIFI30"
017a 008e       |    |		.STRTAB	0x008e->0x01c1							; "XVIFI29"
017b 0093       |    |		.STRTAB	0x0093->0x01c4							; "XVIFI28"
017c 0098       |    |		.STRTAB	0x0098->0x01c8							; "XVIFI27"
017d 009d       |    |		.STRTAB	0x009d->0x01cb							; "XVIFI26"
017e 00a2       |    |		.STRTAB	0x00a2->0x01cf							; "XVIFI25"
017f 00a7       |    |		.STRTAB	0x00a7->0x01d2							; "XVIFI24"
0180 00ac       |    |		.STRTAB	0x00ac->0x01d6							; "XVIFI23"
0181 00b1       |    |		.STRTAB	0x00b1->0x01d9							; "XVIFI22"
0182 00b6       |    |		.STRTAB	0x00b6->0x01dd							; "XVIFI21"
0183 00bb       |    |		.STRTAB	0x00bb->0x01e0							; "XVIFI20"
0184 00c0       |    |		.STRTAB	0x00c0->0x01e4							; "XVIFI19"
0185 00c5       |    |		.STRTAB	0x00c5->0x01e7							; "XVIFI18"
0186 00ca       |    |		.STRTAB	0x00ca->0x01eb							; "XVIFI17"
0187 00cf       |    |		.STRTAB	0x00cf->0x01ee							; "XVIFI16"
0188 00d4       |    |		.STRTAB	0x00d4->0x01f2							; "XVIFI15"
0189 00d9       |    |		.STRTAB	0x00d9->0x01f5							; "XVIFI14"
018a 00de       |    |		.STRTAB	0x00de->0x01f9							; "XVIFI13"
018b 00e3       |    |		.STRTAB	0x00e3->0x01fc							; "XVIFI12"
018c 00e8       |    |		.STRTAB	0x00e8->0x0200							; "XVIFI11"
018d 00ed       |    |		.STRTAB	0x00ed->0x0203							; "XVIFI10"
018e 00f2       |    |		.STRTAB	0x00f2->0x0207							; "XVIFI09"
018f 00f7       |    |		.STRTAB	0x00f7->0x020a							; "VISUAL_BITS_PER_RGB_MASK"
0190 010d       |    |		.STRTAB	0x010d->0x0216							; "VISUAL_COLORMAP_SIZE_MASK"
0191 0124       | $  |		.STRTAB	0x0124->0x0223							; "VISUAL_BLUE_MASK_MASK"
0192 0137       | 7  |		.STRTAB	0x0137->0x022d							; "VISUAL_GREEN_MASK_MASK"
0193 014b       | K  |		.STRTAB	0x014b->0x0238							; "VISUAL_RED_MASK_MASK"
0194 015d       | ]  |		.STRTAB	0x015d->0x0242							; "VISUAL_CLASS_MASK"
0195 016c       | l  |		.STRTAB	0x016c->0x024b							; "VISUAL_DEPTH_MASK"
0196 017b       | {  |		.STRTAB	0x017b->0x0253							; "VISUAL_SCREEN_MASK"
0197 018b       |    |		.STRTAB	0x018b->0x025c							; "VISUAL_ID_MASK"
0198 0197       |    |		.STREND 0x0197->0x0263
0199 5354 4154  |STAT|		.STRTAB_STRINGS
0264 0000 0000  |    |		.BLANK	0000[0x4]
0268 ; --------------------------------------------------------------------------------------
0268 ; Debug Table
0268 ; --------------------------------------------------------------------------------------
0268 0004 0000  |    |		.DEBUG4	0x0004,0x0000,0x48ee,0x0000,0x0001,0x0006
026e 000b 0286  |    |		.DBG4T	0x000b,0x0286,0x8000,0x0000
0272 00cb 0000  |    |		.DBG4T	0x00cb,0x0000,0x0005,0x0000
0276 00f3 0000  |    |		.DBG4T	0x00f3,0x0000,0x0005,0x0000
027a 010b 0000  |    |		.DBG4T	0x010b,0x0000,0x0005,0x0000
027e 0133 0000  | 3  |		.DBG4T	0x0133,0x0000,0x0005,0x0000
0282 0153 0000  | S  |		.DBG4T	0x0153,0x0000,0x0005,0x0000
0286 ; --------------------------------------------------------------------------------------
0286 ; Debug chain
0286 ; --------------------------------------------------------------------------------------
0286 0018 0000  |    |		.DBGLEN	0x0018,0x0000
0288 000b 0011  |    |		.DBGLNO	0x000b,0x0011,0x0012,0x001e,0x0024,0x002a,0x0030,0x0031,0x0032,0x0033,0x0034,0x0035,0x0041,0x004d,0x005b,0x0062,0x0068,0x0069,0x008a,0x008b,0x0097,0x009c,0x00a2,0x00b0
02a0 0000 0000  |    |		.BLANK	0000[0x160]