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

⟦68b32cd58⟧

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

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 5900       |Y   |		.CONST	0x5900								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 01e0       |    |		.CONST	0x01e0								; 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 0014       |    |		.CONST	0x0014								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 000e       |    |		.CONST	0x000e								; Number of locals
000b			INIT_0008:
000b 029a 001b  |    |		Declare_Subprogram	INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 029a 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Outer_Call,Visible,Unelaborated
000f 00bf       |    |		Action	Accept_Activation
0010 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0011 00c7       |    |		Action	Elaborate_Subprogram
0012 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0013 00c7       |    |		Action	Elaborate_Subprogram
0014			BODY_0008:
0014 00bc       |    |		Action	Signal_Activated
0015 00bb       |    |		Action	Signal_Completion
0016 0000 0000  |    |		.XXX[0x2]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 001d       |    |		.CONST	0x001d								; Address of begin
0019 0004       |    |		.CONST	0x0004								; Address of exception handler
001a 0001       |    |		.CONST	0x0001								; Number of locals
001b			INIT_0018:
001b 0007       |    |		Action	Break_Optional
001c 0007       |    |		Action	Break_Optional
001d			BODY_0018:
001d 4801       |H   |		Short_Literal	0x1
001e 480c       |H   |		Short_Literal	0xc
001f e003       |    |		Load	0x0,0x3
0020 035b       | [  |		Declare_Type	Array,Constrained
0021 0337       | 7  |		Declare_Variable	Array
0022 e004       |    |		Load	0x0,0x4
0023 0337       | 7  |		Declare_Variable	Array
0024 e005       |    |		Load	0x0,0x5
0025 8006       |    |		Call	0x0,0x6
0026 4800       |H   |		Short_Literal	0x0
0027 00da       |    |		Load_Top	At_Offset_2
0028 01d6       |    |		Execute	Vector,Field_Write
0029 e004       |    |		Load	0x0,0x4
002a 01c3       |    |		Execute	Vector,Check_In_Type
002b 8007       |    |		Call	0x0,0x7
002c 4801       |H   |		Short_Literal	0x1
002d 00da       |    |		Load_Top	At_Offset_2
002e 01d6       |    |		Execute	Vector,Field_Write
002f e008       |    |		Load	0x0,0x8
0030 0337       | 7  |		Declare_Variable	Array
0031 e009       |    |		Load	0x0,0x9
0032 800a       |    |		Call	0x0,0xa
0033 4800       |H   |		Short_Literal	0x0
0034 00da       |    |		Load_Top	At_Offset_2
0035 01d6       |    |		Execute	Vector,Field_Write
0036 e008       |    |		Load	0x0,0x8
0037 01c3       |    |		Execute	Vector,Check_In_Type
0038 800b       |    |		Call	0x0,0xb
0039 4802       |H   |		Short_Literal	0x2
003a 00da       |    |		Load_Top	At_Offset_2
003b 01d6       |    |		Execute	Vector,Field_Write
003c e00c       |    |		Load	0x0,0xc
003d 0337       | 7  |		Declare_Variable	Array
003e 480d       |H   |		Short_Literal	0xd
003f 800d       |    |		Call	0x0,0xd
0040 4800       |H   |		Short_Literal	0x0
0041 00da       |    |		Load_Top	At_Offset_2
0042 01d6       |    |		Execute	Vector,Field_Write
0043 e00c       |    |		Load	0x0,0xc
0044 01c3       |    |		Execute	Vector,Check_In_Type
0045 800e       |    |		Call	0x0,0xe
0046 4803       |H   |		Short_Literal	0x3
0047 00da       |    |		Load_Top	At_Offset_2
0048 01d6       |    |		Execute	Vector,Field_Write
0049 e00f       |    |		Load	0x0,0xf
004a 0337       | 7  |		Declare_Variable	Array
004b 480c       |H   |		Short_Literal	0xc
004c 800d       |    |		Call	0x0,0xd
004d 4800       |H   |		Short_Literal	0x0
004e 00da       |    |		Load_Top	At_Offset_2
004f 01d6       |    |		Execute	Vector,Field_Write
0050 e00f       |    |		Load	0x0,0xf
0051 01c3       |    |		Execute	Vector,Check_In_Type
0052 8010       |    |		Call	0x0,0x10
0053 4804       |H   |		Short_Literal	0x4
0054 00da       |    |		Load_Top	At_Offset_2
0055 01d6       |    |		Execute	Vector,Field_Write
0056 e011       |    |		Load	0x0,0x11
0057 0337       | 7  |		Declare_Variable	Array
0058 480c       |H   |		Short_Literal	0xc
0059 8012       |    |		Call	0x0,0x12
005a 480d       |H   |		Short_Literal	0xd
005b 8013       |    |		Call	0x0,0x13
005c 8014       |    |		Call	0x0,0x14
005d 4800       |H   |		Short_Literal	0x0
005e 00da       |    |		Load_Top	At_Offset_2
005f 01d6       |    |		Execute	Vector,Field_Write
0060 e011       |    |		Load	0x0,0x11
0061 01c3       |    |		Execute	Vector,Check_In_Type
0062 8015       |    |		Call	0x0,0x15
0063 4805       |H   |		Short_Literal	0x5
0064 00da       |    |		Load_Top	At_Offset_2
0065 01d6       |    |		Execute	Vector,Field_Write
0066 e016       |    |		Load	0x0,0x16
0067 0337       | 7  |		Declare_Variable	Array
0068 8017       |    |		Call	0x0,0x17
0069 4800       |H   |		Short_Literal	0x0
006a 00da       |    |		Load_Top	At_Offset_2
006b 01d6       |    |		Execute	Vector,Field_Write
006c e016       |    |		Load	0x0,0x16
006d 01c3       |    |		Execute	Vector,Check_In_Type
006e 8018       |    |		Call	0x0,0x18
006f 4806       |H   |		Short_Literal	0x6
0070 00da       |    |		Load_Top	At_Offset_2
0071 01d6       |    |		Execute	Vector,Field_Write
0072 e019       |    |		Load	0x0,0x19
0073 0337       | 7  |		Declare_Variable	Array
0074 8017       |    |		Call	0x0,0x17
0075 4800       |H   |		Short_Literal	0x0
0076 00da       |    |		Load_Top	At_Offset_2
0077 01d6       |    |		Execute	Vector,Field_Write
0078 e019       |    |		Load	0x0,0x19
0079 01c3       |    |		Execute	Vector,Check_In_Type
007a 801a       |    |		Call	0x0,0x1a
007b 4807       |H   |		Short_Literal	0x7
007c 00da       |    |		Load_Top	At_Offset_2
007d 01d6       |    |		Execute	Vector,Field_Write
007e e01b       |    |		Load	0x0,0x1b
007f 0337       | 7  |		Declare_Variable	Array
0080 8017       |    |		Call	0x0,0x17
0081 4800       |H   |		Short_Literal	0x0
0082 00da       |    |		Load_Top	At_Offset_2
0083 01d6       |    |		Execute	Vector,Field_Write
0084 e01b       |    |		Load	0x0,0x1b
0085 01c3       |    |		Execute	Vector,Check_In_Type
0086 801c       |    |		Call	0x0,0x1c
0087 4808       |H   |		Short_Literal	0x8
0088 00da       |    |		Load_Top	At_Offset_2
0089 01d6       |    |		Execute	Vector,Field_Write
008a e01d       |    |		Load	0x0,0x1d
008b 0337       | 7  |		Declare_Variable	Array
008c 8017       |    |		Call	0x0,0x17
008d 4800       |H   |		Short_Literal	0x0
008e 00da       |    |		Load_Top	At_Offset_2
008f 01d6       |    |		Execute	Vector,Field_Write
0090 e01d       |    |		Load	0x0,0x1d
0091 01c3       |    |		Execute	Vector,Check_In_Type
0092 801e       |    |		Call	0x0,0x1e
0093 4809       |H   |		Short_Literal	0x9
0094 00da       |    |		Load_Top	At_Offset_2
0095 01d6       |    |		Execute	Vector,Field_Write
0096 e01f       |    |		Load	0x0,0x1f
0097 0337       | 7  |		Declare_Variable	Array
0098 8017       |    |		Call	0x0,0x17
0099 4800       |H   |		Short_Literal	0x0
009a 00da       |    |		Load_Top	At_Offset_2
009b 01d6       |    |		Execute	Vector,Field_Write
009c e01f       |    |		Load	0x0,0x1f
009d 01c3       |    |		Execute	Vector,Check_In_Type
009e 8020       |    |		Call	0x0,0x20
009f 480a       |H   |		Short_Literal	0xa
00a0 00da       |    |		Load_Top	At_Offset_2
00a1 01d6       |    |		Execute	Vector,Field_Write
00a2 e021       | !  |		Load	0x0,0x21
00a3 0337       | 7  |		Declare_Variable	Array
00a4 8017       |    |		Call	0x0,0x17
00a5 4800       |H   |		Short_Literal	0x0
00a6 00da       |    |		Load_Top	At_Offset_2
00a7 01d6       |    |		Execute	Vector,Field_Write
00a8 e021       | !  |		Load	0x0,0x21
00a9 01c3       |    |		Execute	Vector,Check_In_Type
00aa 8022       | "  |		Call	0x0,0x22
00ab 480b       |H   |		Short_Literal	0xb
00ac 00da       |    |		Load_Top	At_Offset_2
00ad 01d6       |    |		Execute	Vector,Field_Write
00ae e023       | #  |		Load	0x0,0x23
00af 0337       | 7  |		Declare_Variable	Array
00b0 8017       |    |		Call	0x0,0x17
00b1 4800       |H   |		Short_Literal	0x0
00b2 00da       |    |		Load_Top	At_Offset_2
00b3 01d6       |    |		Execute	Vector,Field_Write
00b4 e023       | #  |		Load	0x0,0x23
00b5 01c3       |    |		Execute	Vector,Check_In_Type
00b6 8024       | $  |		Call	0x0,0x24
00b7 480c       |H   |		Short_Literal	0xc
00b8 00da       |    |		Load_Top	At_Offset_2
00b9 01d6       |    |		Execute	Vector,Field_Write
00ba e003       |    |		Load	0x0,0x3
00bb 01c6       |    |		Execute	Vector,Convert_To_Formal
00bc 00ca       |    |		Action	Exit_Nullary_Function
00bd 0000 0000  |    |		.XXX[0x3]
00bf 0000       |    |
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 0147       | G  |		.CONST	0x0147								; Address of begin
00c1 0004       |    |		.CONST	0x0004								; Address of exception handler
00c2 001d       |    |		.CONST	0x001d								; Number of locals
00c3			INIT_00c0:
00c3 4801       |H   |		Short_Literal	0x1
00c4 00db       |    |		Load_Top	At_Offset_3
00c5 01d5       |    |		Execute	Vector,Field_Reference
00c6 0007       |    |		Action	Break_Optional
00c7 4802       |H   |		Short_Literal	0x2
00c8 e5ff       |    |		Load	0x2,-0x1
00c9 01d5       |    |		Execute	Vector,Field_Reference
00ca 0007       |    |		Action	Break_Optional
00cb 4803       |H   |		Short_Literal	0x3
00cc e5ff       |    |		Load	0x2,-0x1
00cd 01d5       |    |		Execute	Vector,Field_Reference
00ce 0007       |    |		Action	Break_Optional
00cf 4805       |H   |		Short_Literal	0x5
00d0 e5ff       |    |		Load	0x2,-0x1
00d1 01d5       |    |		Execute	Vector,Field_Reference
00d2 0007       |    |		Action	Break_Optional
00d3 4806       |H   |		Short_Literal	0x6
00d4 e5ff       |    |		Load	0x2,-0x1
00d5 01d5       |    |		Execute	Vector,Field_Reference
00d6 0007       |    |		Action	Break_Optional
00d7 4807       |H   |		Short_Literal	0x7
00d8 e5ff       |    |		Load	0x2,-0x1
00d9 01d5       |    |		Execute	Vector,Field_Reference
00da 0007       |    |		Action	Break_Optional
00db 4808       |H   |		Short_Literal	0x8
00dc e5ff       |    |		Load	0x2,-0x1
00dd 01d5       |    |		Execute	Vector,Field_Reference
00de 0007       |    |		Action	Break_Optional
00df 4809       |H   |		Short_Literal	0x9
00e0 e5ff       |    |		Load	0x2,-0x1
00e1 01d5       |    |		Execute	Vector,Field_Reference
00e2 0007       |    |		Action	Break_Optional
00e3 480a       |H   |		Short_Literal	0xa
00e4 e5ff       |    |		Load	0x2,-0x1
00e5 01d5       |    |		Execute	Vector,Field_Reference
00e6 0007       |    |		Action	Break_Optional
00e7 480b       |H   |		Short_Literal	0xb
00e8 e5ff       |    |		Load	0x2,-0x1
00e9 01d5       |    |		Execute	Vector,Field_Reference
00ea 0007       |    |		Action	Break_Optional
00eb 480c       |H   |		Short_Literal	0xc
00ec e5ff       |    |		Load	0x2,-0x1
00ed 01d5       |    |		Execute	Vector,Field_Reference
00ee 0007       |    |		Action	Break_Optional
00ef e025       | %  |		Load	0x0,0x25
00f0 02ff       |    |		Declare_Variable	Variant_Record
00f1 4800       |H   |		Short_Literal	0x0
00f2 e408       |    |		Load	0x2,0x8
00f3 8026       | &  |		Call	0x0,0x26
00f4 00d9       |    |		Load_Top	At_Offset_1
00f5 016d       | m  |		Execute	Variant_Record,Structure_Write
00f6 e025       | %  |		Load	0x0,0x25
00f7 02ff       |    |		Declare_Variable	Variant_Record
00f8 4800       |H   |		Short_Literal	0x0
00f9 e405       |    |		Load	0x2,0x5
00fa 8027       | '  |		Call	0x0,0x27
00fb 00d9       |    |		Load_Top	At_Offset_1
00fc 016d       | m  |		Execute	Variant_Record,Structure_Write
00fd e025       | %  |		Load	0x0,0x25
00fe 02ff       |    |		Declare_Variable	Variant_Record
00ff 4800       |H   |		Short_Literal	0x0
0100 e40b       |    |		Load	0x2,0xb
0101 8028       | (  |		Call	0x0,0x28
0102 00d9       |    |		Load_Top	At_Offset_1
0103 016d       | m  |		Execute	Variant_Record,Structure_Write
0104 e025       | %  |		Load	0x0,0x25
0105 02ff       |    |		Declare_Variable	Variant_Record
0106 4800       |H   |		Short_Literal	0x0
0107 e403       |    |		Load	0x2,0x3
0108 8029       | )  |		Call	0x0,0x29
0109 00d9       |    |		Load_Top	At_Offset_1
010a 016d       | m  |		Execute	Variant_Record,Structure_Write
010b e025       | %  |		Load	0x0,0x25
010c 02ff       |    |		Declare_Variable	Variant_Record
010d 4800       |H   |		Short_Literal	0x0
010e e406       |    |		Load	0x2,0x6
010f 802a       | *  |		Call	0x0,0x2a
0110 00d9       |    |		Load_Top	At_Offset_1
0111 016d       | m  |		Execute	Variant_Record,Structure_Write
0112 e025       | %  |		Load	0x0,0x25
0113 02ff       |    |		Declare_Variable	Variant_Record
0114 4800       |H   |		Short_Literal	0x0
0115 e407       |    |		Load	0x2,0x7
0116 802b       | +  |		Call	0x0,0x2b
0117 00d9       |    |		Load_Top	At_Offset_1
0118 016d       | m  |		Execute	Variant_Record,Structure_Write
0119 e025       | %  |		Load	0x0,0x25
011a 02ff       |    |		Declare_Variable	Variant_Record
011b 4800       |H   |		Short_Literal	0x0
011c e409       |    |		Load	0x2,0x9
011d 802c       | ,  |		Call	0x0,0x2c
011e 00d9       |    |		Load_Top	At_Offset_1
011f 016d       | m  |		Execute	Variant_Record,Structure_Write
0120 e025       | %  |		Load	0x0,0x25
0121 02ff       |    |		Declare_Variable	Variant_Record
0122 4800       |H   |		Short_Literal	0x0
0123 e404       |    |		Load	0x2,0x4
0124 802d       | -  |		Call	0x0,0x2d
0125 00d9       |    |		Load_Top	At_Offset_1
0126 016d       | m  |		Execute	Variant_Record,Structure_Write
0127 e025       | %  |		Load	0x0,0x25
0128 02ff       |    |		Declare_Variable	Variant_Record
0129 4800       |H   |		Short_Literal	0x0
012a e40c       |    |		Load	0x2,0xc
012b 802e       | .  |		Call	0x0,0x2e
012c 00d9       |    |		Load_Top	At_Offset_1
012d 016d       | m  |		Execute	Variant_Record,Structure_Write
012e e025       | %  |		Load	0x0,0x25
012f 02ff       |    |		Declare_Variable	Variant_Record
0130 00d8       |    |		Load_Top	At_Offset_0
0131 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0132 e025       | %  |		Load	0x0,0x25
0133 02ff       |    |		Declare_Variable	Variant_Record
0134 00d8       |    |		Load_Top	At_Offset_0
0135 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0136 e025       | %  |		Load	0x0,0x25
0137 02ff       |    |		Declare_Variable	Variant_Record
0138 00d8       |    |		Load_Top	At_Offset_0
0139 1c00       |    |		Execute_Immediate	Run_Utility,0x0
013a e025       | %  |		Load	0x0,0x25
013b 02ff       |    |		Declare_Variable	Variant_Record
013c 00d8       |    |		Load_Top	At_Offset_0
013d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
013e e025       | %  |		Load	0x0,0x25
013f 02ff       |    |		Declare_Variable	Variant_Record
0140 00d8       |    |		Load_Top	At_Offset_0
0141 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0142 00e2       |    |		Load_Encached	Integer_Cache
0143 e02f       | /  |		Load	0x0,0x2f
0144 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
0145 0322       | "  |		Declare_Variable	Record
0146 00e2       |    |		Load_Encached	Integer_Cache
0147			BODY_00c0:
0147 e030       | 0  |		Load	0x0,0x30
0148 4800       |H   |		Short_Literal	0x0
0149 e402       |    |		Load	0x2,0x2
014a 8031       | 1  |		Call	0x0,0x31
014b e032       | 2  |		Load	0x0,0x32
014c 8033       | 3  |		Call	0x0,0x33
014d e418       |    |		Load	0x2,0x18
014e 016d       | m  |		Execute	Variant_Record,Structure_Write
014f e418       |    |		Load	0x2,0x18
0150 4800       |H   |		Short_Literal	0x0
0151 e408       |    |		Load	0x2,0x8
0152 8034       | 4  |		Call	0x0,0x34
0153 e413       |    |		Load	0x2,0x13
0154 e032       | 2  |		Load	0x0,0x32
0155 8035       | 5  |		Call	0x0,0x35
0156 e036       | 6  |		Load	0x0,0x36
0157 8033       | 3  |		Call	0x0,0x33
0158 e417       |    |		Load	0x2,0x17
0159 016d       | m  |		Execute	Variant_Record,Structure_Write
015a e417       |    |		Load	0x2,0x17
015b e418       |    |		Load	0x2,0x18
015c 8037       | 7  |		Call	0x0,0x37
015d e416       |    |		Load	0x2,0x16
015e 016d       | m  |		Execute	Variant_Record,Structure_Write
015f e416       |    |		Load	0x2,0x16
0160 4800       |H   |		Short_Literal	0x0
0161 e405       |    |		Load	0x2,0x5
0162 8038       | 8  |		Call	0x0,0x38
0163 e40f       |    |		Load	0x2,0xf
0164 e418       |    |		Load	0x2,0x18
0165 8037       | 7  |		Call	0x0,0x37
0166 e419       |    |		Load	0x2,0x19
0167 016d       | m  |		Execute	Variant_Record,Structure_Write
0168 e419       |    |		Load	0x2,0x19
0169 4800       |H   |		Short_Literal	0x0
016a e403       |    |		Load	0x2,0x3
016b 8039       | 9  |		Call	0x0,0x39
016c e410       |    |		Load	0x2,0x10
016d e419       |    |		Load	0x2,0x19
016e 8037       | 7  |		Call	0x0,0x37
016f e41a       |    |		Load	0x2,0x1a
0170 016d       | m  |		Execute	Variant_Record,Structure_Write
0171 00db       |    |		Load_Top	At_Offset_3
0172 4800       |H   |		Short_Literal	0x0
0173 e406       |    |		Load	0x2,0x6
0174 803a       | :  |		Call	0x0,0x3a
0175 e411       |    |		Load	0x2,0x11
0176 e41a       |    |		Load	0x2,0x1a
0177 8037       | 7  |		Call	0x0,0x37
0178 4800       |H   |		Short_Literal	0x0
0179 e407       |    |		Load	0x2,0x7
017a 803b       | ;  |		Call	0x0,0x3b
017b e03c       | <  |		Load	0x0,0x3c
017c 4800       |H   |		Short_Literal	0x0
017d e40a       |    |		Load	0x2,0xa
017e 803d       | =  |		Call	0x0,0x3d
017f e413       |    |		Load	0x2,0x13
0180 803e       | >  |		Call	0x0,0x3e
0181 09ff       |    |		Execute_Immediate	Binary_Scale,-0x1
0182 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0183 00d8       |    |		Load_Top	At_Offset_0
0184 803f       | ?  |		Call	0x0,0x3f
0185 4800       |H   |		Short_Literal	0x0
0186 e409       |    |		Load	0x2,0x9
0187 8040       | @  |		Call	0x0,0x40
0188 e416       |    |		Load	0x2,0x16
0189 e415       |    |		Load	0x2,0x15
018a 8041       | A  |		Call	0x0,0x41
018b 6807       |h   |		Jump_Zero	0x193
018c e416       |    |		Load	0x2,0x16
018d e415       |    |		Load	0x2,0x15
018e 016d       | m  |		Execute	Variant_Record,Structure_Write
018f e416       |    |		Load	0x2,0x16
0190 4800       |H   |		Short_Literal	0x0
0191 e40c       |    |		Load	0x2,0xc
0192 8042       | B  |		Call	0x0,0x42
0193 e043       | C  |		Load	0x0,0x43
0194 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0195 e043       | C  |		Load	0x0,0x43
0196 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0197 e02f       | /  |		Load	0x0,0x2f
0198 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0199 00da       |    |		Load_Top	At_Offset_2
019a 017d       | }  |		Execute	Record,Structure_Write
019b 00d9       |    |		Load_Top	At_Offset_1
019c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
019d 6036       |`6  |		Indirect_Literal	Discrete,0x1d4,{0x00000000, 0x0000ea60}
019e 0271       | q  |		Execute	Discrete,Times
019f 005b       | [  |		Store_Top	Discrete,At_Offset_3
01a0 00da       |    |		Load_Top	At_Offset_2
01a1 00da       |    |		Load_Top	At_Offset_2
01a2 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
01a3 4be8       |K   |		Short_Literal	0x3e8
01a4 0271       | q  |		Execute	Discrete,Times
01a5 0273       | s  |		Execute	Discrete,Plus
01a6 005b       | [  |		Store_Top	Discrete,At_Offset_3
01a7 00da       |    |		Load_Top	At_Offset_2
01a8 00da       |    |		Load_Top	At_Offset_2
01a9 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
01aa 0273       | s  |		Execute	Discrete,Plus
01ab 005b       | [  |		Store_Top	Discrete,At_Offset_3
01ac e044       | D  |		Load	0x0,0x44
01ad 00db       |    |		Load_Top	At_Offset_3
01ae 00e0       |    |		Load_Encached	Standard_Cache
01af 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01b0 0092 01d8  |    |		Action	Push_String_Extended,0x1d8					; " "
01b2 01cc       |    |		Execute	Vector,Catenate
01b3 e418       |    |		Load	0x2,0x18
01b4 803e       | >  |		Call	0x0,0x3e
01b5 00e0       |    |		Load_Encached	Standard_Cache
01b6 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01b7 01cc       |    |		Execute	Vector,Catenate
01b8 0092 01d8  |    |		Action	Push_String_Extended,0x1d8					; " "
01ba 01cc       |    |		Execute	Vector,Catenate
01bb e413       |    |		Load	0x2,0x13
01bc 803e       | >  |		Call	0x0,0x3e
01bd 00e0       |    |		Load_Encached	Standard_Cache
01be 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01bf 01cc       |    |		Execute	Vector,Catenate
01c0 0092 01d8  |    |		Action	Push_String_Extended,0x1d8					; " "
01c2 01cc       |    |		Execute	Vector,Catenate
01c3 e416       |    |		Load	0x2,0x16
01c4 803e       | >  |		Call	0x0,0x3e
01c5 00e0       |    |		Load_Encached	Standard_Cache
01c6 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01c7 01cc       |    |		Execute	Vector,Catenate
01c8 e414       |    |		Load	0x2,0x14
01c9 803e       | >  |		Call	0x0,0x3e
01ca 00e0       |    |		Load_Encached	Standard_Cache
01cb 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01cc 01cc       |    |		Execute	Vector,Catenate
01cd 0092 01d9  |    |		Action	Push_String_Extended,0x1d9					; " B"
01cf 01cc       |    |		Execute	Vector,Catenate
01d0 8045       | E  |		Call	0x0,0x45
01d1 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01d2 0000 0000  |    |		.XXX[0x2]
01d4 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000ea60}
01d8 ; --------------------------------------------------------------------------------------
01d8 ; STRING TABLE
01d8 ; --------------------------------------------------------------------------------------
01d8 0006       |    |		.STRTAB	0x0006->0x01db							; " "
01d9 0005       |    |		.STRTAB	0x0005->0x01db							; " B"
01da 0005       |    |		.STREND 0x0005->0x01dc
01db 2020 4200  |  B |		.STRTAB_STRINGS
01dd 0000 0000  |    |		.XXX[0x3]
01df 0000       |    |
01e0 ; --------------------------------------------------------------------------------------
01e0 ; Debug Table
01e0 ; --------------------------------------------------------------------------------------
01e0 0004 0009  |    |		.DEBUG4	0x0004,0x0009,0x5147,0x0000,0x0001,0x0004
01e6 000b 01f6  |    |		.DBG4T	0x000b,0x01f6,0x0000,0x0000
01ea 0010 01fa  |    |		.DBG4T	0x0010,0x01fa,0x0000,0x0000
01ee 001b 01fe  |    |		.DBG4T	0x001b,0x01fe,0x0002,0x0000
01f2 00c3 0203  |    |		.DBG4T	0x00c3,0x0203,0x0001,0x0000
01f6 ; --------------------------------------------------------------------------------------
01f6 ; Debug chain
01f6 ; --------------------------------------------------------------------------------------
01f6 0002 0000  |    |		.DBGLEN	0x0002,0x0000
01f8 000b 000d  |    |		.DBGLNO	0x000b,0x000d
01fa ; --------------------------------------------------------------------------------------
01fa ; Debug chain
01fa ; --------------------------------------------------------------------------------------
01fa 0002 0000  |    |		.DBGLEN	0x0002,0x0000
01fc 0010 0012  |    |		.DBGLNO	0x0010,0x0012
01fe ; --------------------------------------------------------------------------------------
01fe ; Debug chain
01fe ; --------------------------------------------------------------------------------------
01fe 0002 0001  |    |		.DBGLEN	0x0002,0x0001
0200 001b 001c  |    |		.DBGLNO	0x001b,0x001c,0x001d
0203 ; --------------------------------------------------------------------------------------
0203 ; Debug chain
0203 ; --------------------------------------------------------------------------------------
0203 001c 0017  |    |		.DBGLEN	0x001c,0x0017
0205 00c3 00c7  |    |		.DBGLNO	0x00c3,0x00c7,0x00cb,0x00cf,0x00d3,0x00d7,0x00db,0x00df,0x00e3,0x00e7,0x00eb,0x00ef,0x00f6,0x00fd,0x0104,0x010b,0x0112,0x0119,0x0120,0x0127,0x012e,0x0132,0x0136,0x013a,0x013e,0x0142,0x0143,0x0146,0x0147,0x014b,0x014f,0x0153,0x0156,0x015a,0x015f,0x0163,0x0168,0x016c,0x0171,0x0175,0x017b,0x017f,0x0183,0x0188,0x018c,0x018f,0x0193,0x019b,0x01a0,0x01a7,0x01ac
0238 0000 0000  |    |		.BLANK	0000[0x1c8]