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

⟦e7480d894⟧

    Length: 1024 (0x400)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5e40f2

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 01c8       |    |		.CONST	0x01c8								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 8001       |    |		.CONST	0x8001								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0010       |    |		.CONST	0x0010								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0001       |    |		.CONST	0x0001								; Number of locals
000b			INIT_0008:
000b 029a 001b  |    |		Declare_Subprogram	INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf       |    |		Action	Accept_Activation
000e 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
000f 00c7       |    |		Action	Elaborate_Subprogram
0010			BODY_0008:
0010 00bc       |    |		Action	Signal_Activated
0011 00bb       |    |		Action	Signal_Completion
0012 0000 0000  |    |		.BLANK	0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 0065       | e  |		.CONST	0x0065								; Address of begin
0019 0004       |    |		.CONST	0x0004								; Address of exception handler
001a 0012       |    |		.CONST	0x0012								; Number of locals
001b			INIT_0018:
001b e001       |    |		Load	0x0,0x1
001c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
001d 02c7       |    |		Declare_Variable	Any
001e 00d8       |    |		Load_Top	At_Offset_0
001f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0020 e001       |    |		Load	0x0,0x1
0021 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0022 02ff       |    |		Declare_Variable	Variant_Record
0023 00d8       |    |		Load_Top	At_Offset_0
0024 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0025 00e1       |    |		Load_Encached	Boolean_Cache
0026 e001       |    |		Load	0x0,0x1
0027 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0028 02c7       |    |		Declare_Variable	Any
0029 00d8       |    |		Load_Top	At_Offset_0
002a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
002b e001       |    |		Load	0x0,0x1
002c 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
002d 02ff       |    |		Declare_Variable	Variant_Record
002e 00d8       |    |		Load_Top	At_Offset_0
002f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0030 00e1       |    |		Load_Encached	Boolean_Cache
0031 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0032 e001       |    |		Load	0x0,0x1
0033 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0034 e001       |    |		Load	0x0,0x1
0035 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0036 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0037 e002       |    |		Load	0x0,0x2
0038 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0039 02c7       |    |		Declare_Variable	Any
003a 00d8       |    |		Load_Top	At_Offset_0
003b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
003c e001       |    |		Load	0x0,0x1
003d 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
003e 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
003f 02c7       |    |		Declare_Variable	Any
0040 00d8       |    |		Load_Top	At_Offset_0
0041 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0042 e001       |    |		Load	0x0,0x1
0043 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0044 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0045 02c7       |    |		Declare_Variable	Any
0046 00d8       |    |		Load_Top	At_Offset_0
0047 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0048 e001       |    |		Load	0x0,0x1
0049 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
004a 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
004b 02c7       |    |		Declare_Variable	Any
004c 00d8       |    |		Load_Top	At_Offset_0
004d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
004e e001       |    |		Load	0x0,0x1
004f 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0050 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0051 02c7       |    |		Declare_Variable	Any
0052 00d8       |    |		Load_Top	At_Offset_0
0053 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0054 00e1       |    |		Load_Encached	Boolean_Cache
0055 e001       |    |		Load	0x0,0x1
0056 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0057 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
0058 02c7       |    |		Declare_Variable	Any
0059 00d8       |    |		Load_Top	At_Offset_0
005a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
005b 00e2       |    |		Load_Encached	Integer_Cache
005c 0605       |    |		Execute_Immediate	Set_Value_Unchecked,0x5
005d e003       |    |		Load	0x0,0x3
005e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
005f 02c7       |    |		Declare_Variable	Any
0060 e004       |    |		Load	0x0,0x4
0061 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0062 e003       |    |		Load	0x0,0x3
0063 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0064 a412       |    |		Store_Unchecked	0x2,0x12
0065			BODY_0018:
0065 e001       |    |		Load	0x0,0x1
0066 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0067 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0068 e405       |    |		Load	0x2,0x5
0069 0120       |    |		Execute	Any,Is_Value
006a 6803       |h   |		Jump_Zero	0x6e
006b e001       |    |		Load	0x0,0x1
006c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
006d 7801       |x   |		Jump	0x6f
006e e405       |    |		Load	0x2,0x5
006f 6130       |a0  |		Indirect_Literal	Discrete,0x1a0,{0x00000000, 0x00004000}
0070 e003       |    |		Load	0x0,0x3
0071 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0072 e005       |    |		Load	0x0,0x5
0073 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0074 e001       |    |		Load	0x0,0x1
0075 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0076 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0077 e5ff       |    |		Load	0x2,-0x1
0078 e001       |    |		Load	0x0,0x1
0079 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
007a 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
007b c405       |    |		Store	0x2,0x5
007c c409       |    |		Store	0x2,0x9
007d e001       |    |		Load	0x0,0x1
007e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
007f e406       |    |		Load	0x2,0x6
0080 611f       |a   |		Indirect_Literal	Discrete,0x1a0,{0x00000000, 0x00004000}
0081 e003       |    |		Load	0x0,0x3
0082 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0083 4800       |H   |		Short_Literal	0x0
0084 e405       |    |		Load	0x2,0x5
0085 e001       |    |		Load	0x0,0x1
0086 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
0087 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0088 00d1       |    |		Pop_Control	Pop_Count_1
0089 c408       |    |		Store	0x2,0x8
008a e001       |    |		Load	0x0,0x1
008b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
008c 00e1       |    |		Load_Encached	Boolean_Cache
008d 6112       |a   |		Indirect_Literal	Discrete,0x1a0,{0x00000000, 0x00004000}
008e e003       |    |		Load	0x0,0x3
008f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0090 e405       |    |		Load	0x2,0x5
0091 e001       |    |		Load	0x0,0x1
0092 1b3b       | ;  |		Execute	Package,Field_Read,Field_Number 0x3b
0093 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0094 c407       |    |		Store	0x2,0x7
0095 c408       |    |		Store	0x2,0x8
0096 e407       |    |		Load	0x2,0x7
0097 680a       |h   |		Jump_Zero	0xa2
0098 e001       |    |		Load	0x0,0x1
0099 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
009a 6105       |a   |		Indirect_Literal	Discrete,0x1a0,{0x00000000, 0x00004000}
009b e003       |    |		Load	0x0,0x3
009c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
009d e405       |    |		Load	0x2,0x5
009e e001       |    |		Load	0x0,0x1
009f 1b3b       | ;  |		Execute	Package,Field_Read,Field_Number 0x3b
00a0 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
00a1 c408       |    |		Store	0x2,0x8
00a2 e001       |    |		Load	0x0,0x1
00a3 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00a4 00db       |    |		Load_Top	At_Offset_3
00a5 0120       |    |		Execute	Any,Is_Value
00a6 6804       |h   |		Jump_Zero	0xab
00a7 e001       |    |		Load	0x0,0x1
00a8 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
00a9 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
00aa 7801       |x   |		Jump	0xac
00ab 00db       |    |		Load_Top	At_Offset_3
00ac e40e       |    |		Load	0x2,0xe
00ad 0120       |    |		Execute	Any,Is_Value
00ae 6804       |h   |		Jump_Zero	0xb3
00af e001       |    |		Load	0x0,0x1
00b0 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
00b1 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
00b2 7801       |x   |		Jump	0xb4
00b3 e40e       |    |		Load	0x2,0xe
00b4 e406       |    |		Load	0x2,0x6
00b5 60ea       |`   |		Indirect_Literal	Discrete,0x1a0,{0x00000000, 0x00004000}
00b6 4801       |H   |		Short_Literal	0x1
00b7 4800       |H   |		Short_Literal	0x0
00b8 e003       |    |		Load	0x0,0x3
00b9 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00ba 4800       |H   |		Short_Literal	0x0
00bb e001       |    |		Load	0x0,0x1
00bc 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
00bd 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
00be 00d1       |    |		Pop_Control	Pop_Count_1
00bf c40e       |    |		Store	0x2,0xe
00c0 c410       |    |		Store	0x2,0x10
00c1 c408       |    |		Store	0x2,0x8
00c2 e001       |    |		Load	0x0,0x1
00c3 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00c4 e40c       |    |		Load	0x2,0xc
00c5 0120       |    |		Execute	Any,Is_Value
00c6 6802       |h   |		Jump_Zero	0xc9
00c7 00f1       |    |		Load_Encached	Diana_Temp_Seq
00c8 7801       |x   |		Jump	0xca
00c9 e40c       |    |		Load	0x2,0xc
00ca e40b       |    |		Load	0x2,0xb
00cb 0120       |    |		Execute	Any,Is_Value
00cc 6804       |h   |		Jump_Zero	0xd1
00cd e001       |    |		Load	0x0,0x1
00ce 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
00cf 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
00d0 7801       |x   |		Jump	0xd2
00d1 e40b       |    |		Load	0x2,0xb
00d2 e40d       |    |		Load	0x2,0xd
00d3 0120       |    |		Execute	Any,Is_Value
00d4 6802       |h   |		Jump_Zero	0xd7
00d5 00ec       |    |		Load_Encached	Diana_Tree_Cache
00d6 7801       |x   |		Jump	0xd8
00d7 e40d       |    |		Load	0x2,0xd
00d8 e40a       |    |		Load	0x2,0xa
00d9 0120       |    |		Execute	Any,Is_Value
00da 6803       |h   |		Jump_Zero	0xde
00db e002       |    |		Load	0x0,0x2
00dc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00dd 7801       |x   |		Jump	0xdf
00de e40a       |    |		Load	0x2,0xa
00df 60c0       |`   |		Indirect_Literal	Discrete,0x1a0,{0x00000000, 0x00004000}
00e0 e412       |    |		Load	0x2,0x12
00e1 4800       |H   |		Short_Literal	0x0
00e2 e001       |    |		Load	0x0,0x1
00e3 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
00e4 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00e5 e001       |    |		Load	0x0,0x1
00e6 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
00e7 4802       |H   |		Short_Literal	0x2
00e8 4801       |H   |		Short_Literal	0x1
00e9 e40e       |    |		Load	0x2,0xe
00ea e001       |    |		Load	0x0,0x1
00eb 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
00ec 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00ed c40a       |    |		Store	0x2,0xa
00ee c40d       |    |		Store	0x2,0xd
00ef c40b       |    |		Store	0x2,0xb
00f0 c40c       |    |		Store	0x2,0xc
00f1 c408       |    |		Store	0x2,0x8
00f2 e408       |    |		Load	0x2,0x8
00f3 0f04       |    |		Execute_Immediate	Equal,0x4
00f4 a40f       |    |		Store_Unchecked	0x2,0xf
00f5 00db       |    |		Load_Top	At_Offset_3
00f6 688e       |h   |		Jump_Zero	0x185
00f7 e006       |    |		Load	0x0,0x6
00f8 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00f9 4804       |H   |		Short_Literal	0x4
00fa e5ff       |    |		Load	0x2,-0x1
00fb 0092 01a4  |    |		Action	Push_String_Extended,0x1a4					; " has"
00fd 01cc       |    |		Execute	Vector,Catenate
00fe e40b       |    |		Load	0x2,0xb
00ff 4975       |Iu  |		Short_Literal	0x175
0100 00eb       |    |		Load_Encached	Diana_Cache
0101 0098       |    |		Execute	Package,Field_Read_Dynamic
0102 1836       | 6  |		Execute	Package,Field_Execute,Field_Number 0x36
0103 e40c       |    |		Load	0x2,0xc
0104 4975       |Iu  |		Short_Literal	0x175
0105 00eb       |    |		Load_Encached	Diana_Cache
0106 0098       |    |		Execute	Package,Field_Read_Dynamic
0107 1836       | 6  |		Execute	Package,Field_Execute,Field_Number 0x36
0108 0273       | s  |		Execute	Discrete,Plus
0109 00d8       |    |		Load_Top	At_Offset_0
010a 00e2       |    |		Load_Encached	Integer_Cache
010b 0260       | `  |		Execute	Discrete,In_Type
010c 7001       |p   |		Jump_Nonzero	0x10e
010d 0801       |    |		Execute_Immediate	Raise,0x1
010e 00e0       |    |		Load_Encached	Standard_Cache
010f 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0110 01cc       |    |		Execute	Vector,Catenate
0111 0092 01a5  |    |		Action	Push_String_Extended,0x1a5					; " IMMEDIATE dependents ("
0113 01cc       |    |		Execute	Vector,Catenate
0114 e40b       |    |		Load	0x2,0xb
0115 e007       |    |		Load	0x0,0x7
0116 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0117 e40c       |    |		Load	0x2,0xc
0118 e007       |    |		Load	0x0,0x7
0119 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
011a 0273       | s  |		Execute	Discrete,Plus
011b 00d8       |    |		Load_Top	At_Offset_0
011c 00e2       |    |		Load_Encached	Integer_Cache
011d 0260       | `  |		Execute	Discrete,In_Type
011e 7001       |p   |		Jump_Nonzero	0x120
011f 0801       |    |		Execute_Immediate	Raise,0x1
0120 00e0       |    |		Load_Encached	Standard_Cache
0121 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0122 01cc       |    |		Execute	Vector,Catenate
0123 0092 01a6  |    |		Action	Push_String_Extended,0x1a6					; " specs):"
0125 01cc       |    |		Execute	Vector,Catenate
0126 e008       |    |		Load	0x0,0x8
0127 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0128 00cf       |    |		Action	Mark_Auxiliary
0129 4801       |H   |		Short_Literal	0x1
012a 00db       |    |		Load_Top	At_Offset_3
012b 0264       | d  |		Execute	Discrete,Below_Bound
012c 7029       |p)  |		Jump_Nonzero	0x156
012d e40b       |    |		Load	0x2,0xb
012e 7002       |p   |		Jump_Nonzero	0x131
012f 00d2       |    |		Pop_Control	Pop_Count_2
0130 7825       |x%  |		Jump	0x156
0131 e40b       |    |		Load	0x2,0xb
0132 0217       |    |		Execute	Heap_Access,All_Reference
0133 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0134 c40d       |    |		Store	0x2,0xd
0135 e006       |    |		Load	0x0,0x6
0136 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0137 4804       |H   |		Short_Literal	0x4
0138 0092 01a7  |    |		Action	Push_String_Extended,0x1a7					; "   "
013a e40d       |    |		Load	0x2,0xd
013b e001       |    |		Load	0x0,0x1
013c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
013d 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
013e 01cc       |    |		Execute	Vector,Catenate
013f e008       |    |		Load	0x0,0x8
0140 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0141 e40b       |    |		Load	0x2,0xb
0142 0217       |    |		Execute	Heap_Access,All_Reference
0143 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0144 c40b       |    |		Store	0x2,0xb
0145 e411       |    |		Load	0x2,0x11
0146 0aff       |    |		Execute_Immediate	Plus,-0x1
0147 c411       |    |		Store	0x2,0x11
0148 00d8       |    |		Load_Top	At_Offset_0
0149 0f01       |    |		Execute_Immediate	Equal,0x1
014a 6809       |h   |		Jump_Zero	0x154
014b e40b       |    |		Load	0x2,0xb
014c 6807       |h   |		Jump_Zero	0x154
014d e006       |    |		Load	0x0,0x6
014e 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
014f 4804       |H   |		Short_Literal	0x4
0150 0092 01a8  |    |		Action	Push_String_Extended,0x1a8					; "   etc..."
0152 e008       |    |		Load	0x0,0x8
0153 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0154 00c8       |    |		Action	Pop_Auxiliary_Range
0155 37d7       |7   |		Loop_Decreasing	0x12d
0156 00c9       |    |		Action	Pop_Auxiliary_Loop
0157 4801       |H   |		Short_Literal	0x1
0158 00db       |    |		Load_Top	At_Offset_3
0159 0264       | d  |		Execute	Discrete,Below_Bound
015a 7029       |p)  |		Jump_Nonzero	0x184
015b e40c       |    |		Load	0x2,0xc
015c 7002       |p   |		Jump_Nonzero	0x15f
015d 00d2       |    |		Pop_Control	Pop_Count_2
015e 7825       |x%  |		Jump	0x184
015f e40c       |    |		Load	0x2,0xc
0160 0217       |    |		Execute	Heap_Access,All_Reference
0161 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0162 c40d       |    |		Store	0x2,0xd
0163 e006       |    |		Load	0x0,0x6
0164 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0165 4804       |H   |		Short_Literal	0x4
0166 0092 01a7  |    |		Action	Push_String_Extended,0x1a7					; "   "
0168 e40d       |    |		Load	0x2,0xd
0169 e001       |    |		Load	0x0,0x1
016a 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
016b 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
016c 01cc       |    |		Execute	Vector,Catenate
016d e008       |    |		Load	0x0,0x8
016e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
016f e40c       |    |		Load	0x2,0xc
0170 0217       |    |		Execute	Heap_Access,All_Reference
0171 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0172 c40b       |    |		Store	0x2,0xb
0173 e411       |    |		Load	0x2,0x11
0174 0aff       |    |		Execute_Immediate	Plus,-0x1
0175 c411       |    |		Store	0x2,0x11
0176 00d8       |    |		Load_Top	At_Offset_0
0177 0f01       |    |		Execute_Immediate	Equal,0x1
0178 6809       |h   |		Jump_Zero	0x182
0179 e40c       |    |		Load	0x2,0xc
017a 6807       |h   |		Jump_Zero	0x182
017b e006       |    |		Load	0x0,0x6
017c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
017d 4804       |H   |		Short_Literal	0x4
017e 0092 01a9  |    |		Action	Push_String_Extended,0x1a9					; "   etc... "
0180 e008       |    |		Load	0x0,0x8
0181 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0182 00c8       |    |		Action	Pop_Auxiliary_Range
0183 37d7       |7   |		Loop_Decreasing	0x15b
0184 00ce       |    |		Action	Pop_Auxiliary
0185 e407       |    |		Load	0x2,0x7
0186 680a       |h   |		Jump_Zero	0x191
0187 e001       |    |		Load	0x0,0x1
0188 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0189 6016       |`   |		Indirect_Literal	Discrete,0x1a0,{0x00000000, 0x00004000}
018a e003       |    |		Load	0x0,0x3
018b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
018c e405       |    |		Load	0x2,0x5
018d e001       |    |		Load	0x0,0x1
018e 1b3b       | ;  |		Execute	Package,Field_Read,Field_Number 0x3b
018f 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0190 c408       |    |		Store	0x2,0x8
0191 00d8       |    |		Load_Top	At_Offset_0
0192 4801       |H   |		Short_Literal	0x1
0193 4800       |H   |		Short_Literal	0x0
0194 e003       |    |		Load	0x0,0x3
0195 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0196 c412       |    |		Store	0x2,0x12
0197 e406       |    |		Load	0x2,0x6
0198 e403       |    |		Load	0x2,0x3
0199 016d       | m  |		Execute	Variant_Record,Structure_Write
019a e405       |    |		Load	0x2,0x5
019b c402       |    |		Store	0x2,0x2
019c 00db       |    |		Load_Top	At_Offset_3
019d a404       |    |		Store_Unchecked	0x2,0x4
019e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
019f 0000       |    |		.XXX[0x1]
01a0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
01a4 ; --------------------------------------------------------------------------------------
01a4 ; STRING TABLE
01a4 ; --------------------------------------------------------------------------------------
01a4 000e       |    |		.STRTAB	0x000e->0x01ab							; " has"
01a5 0010       |    |		.STRTAB	0x0010->0x01ad							; " IMMEDIATE dependents ("
01a6 0025       | %  |		.STRTAB	0x0025->0x01b8							; " specs):"
01a7 002b       | +  |		.STRTAB	0x002b->0x01bc							; "   "
01a8 002c       | ,  |		.STRTAB	0x002c->0x01be							; "   etc..."
01a9 0033       | 3  |		.STRTAB	0x0033->0x01c2							; "   etc... "
01aa 003b       | ;  |		.STREND 0x003b->0x01c7
01ab 2068 6173  | has|		.STRTAB_STRINGS
01c8 ; --------------------------------------------------------------------------------------
01c8 ; Debug Table
01c8 ; --------------------------------------------------------------------------------------
01c8 0004 000e  |    |		.DEBUG4	0x0004,0x000e,0xb7b0,0x0000,0x0001,0x0000
01ce 0000 0000  |    |		.BLANK	0000[0x13]
01e1 67f0       |g   |		.XXX[0x1]
01e2 0000 0000  |    |		.BLANK	0000[0x7]
01e9 0110       |    |		.XXX[0x1]
01ea 0000 0000  |    |		.BLANK	0000[0x4]
01ee 0020 000f  |    |		.XXX[0x3]
01f0 8000       |    |
01f1 0000 0000  |    |		.BLANK	0000[0x6]
01f7 2000 0080  |    |		.XXX[0x2]
01f9 0000 0000  |    |		.BLANK	0000[0x7]