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

⟦d420204ad⟧

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

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 0258       | X  |		.CONST	0x0258								; 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 00bb  |    |		Declare_Subprogram	INIT_00b8,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 001c       |    |		.CONST	0x001c								; 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			BODY_0018:
001c 4801       |H   |		Short_Literal	0x1
001d 480c       |H   |		Short_Literal	0xc
001e e003       |    |		Load	0x0,0x3
001f 035b       | [  |		Declare_Type	Array,Constrained
0020 0337       | 7  |		Declare_Variable	Array
0021 e004       |    |		Load	0x0,0x4
0022 0337       | 7  |		Declare_Variable	Array
0023 e005       |    |		Load	0x0,0x5
0024 8006       |    |		Call	0x0,0x6
0025 4800       |H   |		Short_Literal	0x0
0026 00da       |    |		Load_Top	At_Offset_2
0027 01d6       |    |		Execute	Vector,Field_Write
0028 e004       |    |		Load	0x0,0x4
0029 01c3       |    |		Execute	Vector,Check_In_Type
002a 8007       |    |		Call	0x0,0x7
002b 4801       |H   |		Short_Literal	0x1
002c 00da       |    |		Load_Top	At_Offset_2
002d 01d6       |    |		Execute	Vector,Field_Write
002e e008       |    |		Load	0x0,0x8
002f 0337       | 7  |		Declare_Variable	Array
0030 e009       |    |		Load	0x0,0x9
0031 800a       |    |		Call	0x0,0xa
0032 4800       |H   |		Short_Literal	0x0
0033 00da       |    |		Load_Top	At_Offset_2
0034 01d6       |    |		Execute	Vector,Field_Write
0035 e008       |    |		Load	0x0,0x8
0036 01c3       |    |		Execute	Vector,Check_In_Type
0037 800b       |    |		Call	0x0,0xb
0038 4802       |H   |		Short_Literal	0x2
0039 00da       |    |		Load_Top	At_Offset_2
003a 01d6       |    |		Execute	Vector,Field_Write
003b e00c       |    |		Load	0x0,0xc
003c 0337       | 7  |		Declare_Variable	Array
003d 480c       |H   |		Short_Literal	0xc
003e 800d       |    |		Call	0x0,0xd
003f 4800       |H   |		Short_Literal	0x0
0040 00da       |    |		Load_Top	At_Offset_2
0041 01d6       |    |		Execute	Vector,Field_Write
0042 e00c       |    |		Load	0x0,0xc
0043 01c3       |    |		Execute	Vector,Check_In_Type
0044 800e       |    |		Call	0x0,0xe
0045 4803       |H   |		Short_Literal	0x3
0046 00da       |    |		Load_Top	At_Offset_2
0047 01d6       |    |		Execute	Vector,Field_Write
0048 e00f       |    |		Load	0x0,0xf
0049 0337       | 7  |		Declare_Variable	Array
004a 480c       |H   |		Short_Literal	0xc
004b 8010       |    |		Call	0x0,0x10
004c 4800       |H   |		Short_Literal	0x0
004d 00da       |    |		Load_Top	At_Offset_2
004e 01d6       |    |		Execute	Vector,Field_Write
004f e00f       |    |		Load	0x0,0xf
0050 01c3       |    |		Execute	Vector,Check_In_Type
0051 8011       |    |		Call	0x0,0x11
0052 4804       |H   |		Short_Literal	0x4
0053 00da       |    |		Load_Top	At_Offset_2
0054 01d6       |    |		Execute	Vector,Field_Write
0055 e012       |    |		Load	0x0,0x12
0056 0337       | 7  |		Declare_Variable	Array
0057 8013       |    |		Call	0x0,0x13
0058 4800       |H   |		Short_Literal	0x0
0059 00da       |    |		Load_Top	At_Offset_2
005a 01d6       |    |		Execute	Vector,Field_Write
005b e012       |    |		Load	0x0,0x12
005c 01c3       |    |		Execute	Vector,Check_In_Type
005d 8014       |    |		Call	0x0,0x14
005e 4805       |H   |		Short_Literal	0x5
005f 00da       |    |		Load_Top	At_Offset_2
0060 01d6       |    |		Execute	Vector,Field_Write
0061 e015       |    |		Load	0x0,0x15
0062 0337       | 7  |		Declare_Variable	Array
0063 8013       |    |		Call	0x0,0x13
0064 4800       |H   |		Short_Literal	0x0
0065 00da       |    |		Load_Top	At_Offset_2
0066 01d6       |    |		Execute	Vector,Field_Write
0067 e015       |    |		Load	0x0,0x15
0068 01c3       |    |		Execute	Vector,Check_In_Type
0069 8016       |    |		Call	0x0,0x16
006a 4806       |H   |		Short_Literal	0x6
006b 00da       |    |		Load_Top	At_Offset_2
006c 01d6       |    |		Execute	Vector,Field_Write
006d e017       |    |		Load	0x0,0x17
006e 0337       | 7  |		Declare_Variable	Array
006f 8013       |    |		Call	0x0,0x13
0070 4800       |H   |		Short_Literal	0x0
0071 00da       |    |		Load_Top	At_Offset_2
0072 01d6       |    |		Execute	Vector,Field_Write
0073 e017       |    |		Load	0x0,0x17
0074 01c3       |    |		Execute	Vector,Check_In_Type
0075 8018       |    |		Call	0x0,0x18
0076 4807       |H   |		Short_Literal	0x7
0077 00da       |    |		Load_Top	At_Offset_2
0078 01d6       |    |		Execute	Vector,Field_Write
0079 e019       |    |		Load	0x0,0x19
007a 0337       | 7  |		Declare_Variable	Array
007b 8013       |    |		Call	0x0,0x13
007c 4800       |H   |		Short_Literal	0x0
007d 00da       |    |		Load_Top	At_Offset_2
007e 01d6       |    |		Execute	Vector,Field_Write
007f e019       |    |		Load	0x0,0x19
0080 01c3       |    |		Execute	Vector,Check_In_Type
0081 801a       |    |		Call	0x0,0x1a
0082 4808       |H   |		Short_Literal	0x8
0083 00da       |    |		Load_Top	At_Offset_2
0084 01d6       |    |		Execute	Vector,Field_Write
0085 e01b       |    |		Load	0x0,0x1b
0086 0337       | 7  |		Declare_Variable	Array
0087 8013       |    |		Call	0x0,0x13
0088 4800       |H   |		Short_Literal	0x0
0089 00da       |    |		Load_Top	At_Offset_2
008a 01d6       |    |		Execute	Vector,Field_Write
008b e01b       |    |		Load	0x0,0x1b
008c 01c3       |    |		Execute	Vector,Check_In_Type
008d 801c       |    |		Call	0x0,0x1c
008e 4809       |H   |		Short_Literal	0x9
008f 00da       |    |		Load_Top	At_Offset_2
0090 01d6       |    |		Execute	Vector,Field_Write
0091 e01d       |    |		Load	0x0,0x1d
0092 0337       | 7  |		Declare_Variable	Array
0093 8013       |    |		Call	0x0,0x13
0094 4800       |H   |		Short_Literal	0x0
0095 00da       |    |		Load_Top	At_Offset_2
0096 01d6       |    |		Execute	Vector,Field_Write
0097 e01d       |    |		Load	0x0,0x1d
0098 01c3       |    |		Execute	Vector,Check_In_Type
0099 801e       |    |		Call	0x0,0x1e
009a 480a       |H   |		Short_Literal	0xa
009b 00da       |    |		Load_Top	At_Offset_2
009c 01d6       |    |		Execute	Vector,Field_Write
009d e01f       |    |		Load	0x0,0x1f
009e 0337       | 7  |		Declare_Variable	Array
009f 8013       |    |		Call	0x0,0x13
00a0 4800       |H   |		Short_Literal	0x0
00a1 00da       |    |		Load_Top	At_Offset_2
00a2 01d6       |    |		Execute	Vector,Field_Write
00a3 e01f       |    |		Load	0x0,0x1f
00a4 01c3       |    |		Execute	Vector,Check_In_Type
00a5 8020       |    |		Call	0x0,0x20
00a6 480b       |H   |		Short_Literal	0xb
00a7 00da       |    |		Load_Top	At_Offset_2
00a8 01d6       |    |		Execute	Vector,Field_Write
00a9 e021       | !  |		Load	0x0,0x21
00aa 0337       | 7  |		Declare_Variable	Array
00ab 8013       |    |		Call	0x0,0x13
00ac 4800       |H   |		Short_Literal	0x0
00ad 00da       |    |		Load_Top	At_Offset_2
00ae 01d6       |    |		Execute	Vector,Field_Write
00af e021       | !  |		Load	0x0,0x21
00b0 01c3       |    |		Execute	Vector,Check_In_Type
00b1 8022       | "  |		Call	0x0,0x22
00b2 480c       |H   |		Short_Literal	0xc
00b3 00da       |    |		Load_Top	At_Offset_2
00b4 01d6       |    |		Execute	Vector,Field_Write
00b5 e003       |    |		Load	0x0,0x3
00b6 01c6       |    |		Execute	Vector,Convert_To_Formal
00b7 00ca       |    |		Action	Exit_Nullary_Function
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 013b       | ;  |		.CONST	0x013b								; Address of begin
00b9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ba 001c       |    |		.CONST	0x001c								; Number of locals
00bb			INIT_00b8:
00bb 4801       |H   |		Short_Literal	0x1
00bc 00db       |    |		Load_Top	At_Offset_3
00bd 01d5       |    |		Execute	Vector,Field_Reference
00be 0007       |    |		Action	Break_Optional
00bf 4802       |H   |		Short_Literal	0x2
00c0 e5ff       |    |		Load	0x2,-0x1
00c1 01d5       |    |		Execute	Vector,Field_Reference
00c2 0007       |    |		Action	Break_Optional
00c3 4804       |H   |		Short_Literal	0x4
00c4 e5ff       |    |		Load	0x2,-0x1
00c5 01d5       |    |		Execute	Vector,Field_Reference
00c6 0007       |    |		Action	Break_Optional
00c7 4805       |H   |		Short_Literal	0x5
00c8 e5ff       |    |		Load	0x2,-0x1
00c9 01d5       |    |		Execute	Vector,Field_Reference
00ca 0007       |    |		Action	Break_Optional
00cb 4806       |H   |		Short_Literal	0x6
00cc e5ff       |    |		Load	0x2,-0x1
00cd 01d5       |    |		Execute	Vector,Field_Reference
00ce 0007       |    |		Action	Break_Optional
00cf 4807       |H   |		Short_Literal	0x7
00d0 e5ff       |    |		Load	0x2,-0x1
00d1 01d5       |    |		Execute	Vector,Field_Reference
00d2 0007       |    |		Action	Break_Optional
00d3 4808       |H   |		Short_Literal	0x8
00d4 e5ff       |    |		Load	0x2,-0x1
00d5 01d5       |    |		Execute	Vector,Field_Reference
00d6 0007       |    |		Action	Break_Optional
00d7 4809       |H   |		Short_Literal	0x9
00d8 e5ff       |    |		Load	0x2,-0x1
00d9 01d5       |    |		Execute	Vector,Field_Reference
00da 0007       |    |		Action	Break_Optional
00db 480a       |H   |		Short_Literal	0xa
00dc e5ff       |    |		Load	0x2,-0x1
00dd 01d5       |    |		Execute	Vector,Field_Reference
00de 0007       |    |		Action	Break_Optional
00df 480b       |H   |		Short_Literal	0xb
00e0 e5ff       |    |		Load	0x2,-0x1
00e1 01d5       |    |		Execute	Vector,Field_Reference
00e2 0007       |    |		Action	Break_Optional
00e3 480c       |H   |		Short_Literal	0xc
00e4 e5ff       |    |		Load	0x2,-0x1
00e5 01d5       |    |		Execute	Vector,Field_Reference
00e6 0007       |    |		Action	Break_Optional
00e7 e023       | #  |		Load	0x0,0x23
00e8 02ff       |    |		Declare_Variable	Variant_Record
00e9 4800       |H   |		Short_Literal	0x0
00ea e407       |    |		Load	0x2,0x7
00eb 8024       | $  |		Call	0x0,0x24
00ec 00d9       |    |		Load_Top	At_Offset_1
00ed 016d       | m  |		Execute	Variant_Record,Structure_Write
00ee e023       | #  |		Load	0x0,0x23
00ef 02ff       |    |		Declare_Variable	Variant_Record
00f0 4800       |H   |		Short_Literal	0x0
00f1 e404       |    |		Load	0x2,0x4
00f2 8025       | %  |		Call	0x0,0x25
00f3 00d9       |    |		Load_Top	At_Offset_1
00f4 016d       | m  |		Execute	Variant_Record,Structure_Write
00f5 e023       | #  |		Load	0x0,0x23
00f6 02ff       |    |		Declare_Variable	Variant_Record
00f7 4800       |H   |		Short_Literal	0x0
00f8 e40a       |    |		Load	0x2,0xa
00f9 8026       | &  |		Call	0x0,0x26
00fa 00d9       |    |		Load_Top	At_Offset_1
00fb 016d       | m  |		Execute	Variant_Record,Structure_Write
00fc e023       | #  |		Load	0x0,0x23
00fd 02ff       |    |		Declare_Variable	Variant_Record
00fe 4800       |H   |		Short_Literal	0x0
00ff e403       |    |		Load	0x2,0x3
0100 8027       | '  |		Call	0x0,0x27
0101 00d9       |    |		Load_Top	At_Offset_1
0102 016d       | m  |		Execute	Variant_Record,Structure_Write
0103 e023       | #  |		Load	0x0,0x23
0104 02ff       |    |		Declare_Variable	Variant_Record
0105 4800       |H   |		Short_Literal	0x0
0106 e405       |    |		Load	0x2,0x5
0107 8028       | (  |		Call	0x0,0x28
0108 00d9       |    |		Load_Top	At_Offset_1
0109 016d       | m  |		Execute	Variant_Record,Structure_Write
010a e023       | #  |		Load	0x0,0x23
010b 02ff       |    |		Declare_Variable	Variant_Record
010c 4800       |H   |		Short_Literal	0x0
010d e406       |    |		Load	0x2,0x6
010e 8029       | )  |		Call	0x0,0x29
010f 00d9       |    |		Load_Top	At_Offset_1
0110 016d       | m  |		Execute	Variant_Record,Structure_Write
0111 e023       | #  |		Load	0x0,0x23
0112 02ff       |    |		Declare_Variable	Variant_Record
0113 4800       |H   |		Short_Literal	0x0
0114 e408       |    |		Load	0x2,0x8
0115 802a       | *  |		Call	0x0,0x2a
0116 00d9       |    |		Load_Top	At_Offset_1
0117 016d       | m  |		Execute	Variant_Record,Structure_Write
0118 e023       | #  |		Load	0x0,0x23
0119 02ff       |    |		Declare_Variable	Variant_Record
011a 4800       |H   |		Short_Literal	0x0
011b e40b       |    |		Load	0x2,0xb
011c 802b       | +  |		Call	0x0,0x2b
011d 00d9       |    |		Load_Top	At_Offset_1
011e 016d       | m  |		Execute	Variant_Record,Structure_Write
011f e023       | #  |		Load	0x0,0x23
0120 02ff       |    |		Declare_Variable	Variant_Record
0121 00d8       |    |		Load_Top	At_Offset_0
0122 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0123 e023       | #  |		Load	0x0,0x23
0124 02ff       |    |		Declare_Variable	Variant_Record
0125 00d8       |    |		Load_Top	At_Offset_0
0126 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0127 e023       | #  |		Load	0x0,0x23
0128 02ff       |    |		Declare_Variable	Variant_Record
0129 00d8       |    |		Load_Top	At_Offset_0
012a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
012b e023       | #  |		Load	0x0,0x23
012c 02ff       |    |		Declare_Variable	Variant_Record
012d 00d8       |    |		Load_Top	At_Offset_0
012e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
012f e023       | #  |		Load	0x0,0x23
0130 02ff       |    |		Declare_Variable	Variant_Record
0131 00d8       |    |		Load_Top	At_Offset_0
0132 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0133 e023       | #  |		Load	0x0,0x23
0134 02ff       |    |		Declare_Variable	Variant_Record
0135 00d8       |    |		Load_Top	At_Offset_0
0136 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0137 00e2       |    |		Load_Encached	Integer_Cache
0138 e02c       | ,  |		Load	0x0,0x2c
0139 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
013a 0322       | "  |		Declare_Variable	Record
013b			BODY_00b8:
013b e02d       | -  |		Load	0x0,0x2d
013c 802e       | .  |		Call	0x0,0x2e
013d e02d       | -  |		Load	0x0,0x2d
013e 0092 0200  |    |		Action	Push_String_Extended,0x200					; "********************************************************"
0140 802f       | /  |		Call	0x0,0x2f
0141 e02d       | -  |		Load	0x0,0x2d
0142 0092 0201  |    |		Action	Push_String_Extended,0x201					; "      quadrant C : UPDATE RULE "
0144 802f       | /  |		Call	0x0,0x2f
0145 e02d       | -  |		Load	0x0,0x2d
0146 0092 0200  |    |		Action	Push_String_Extended,0x200					; "********************************************************"
0148 802f       | /  |		Call	0x0,0x2f
0149 e030       | 0  |		Load	0x0,0x30
014a 4800       |H   |		Short_Literal	0x0
014b e402       |    |		Load	0x2,0x2
014c 8031       | 1  |		Call	0x0,0x31
014d e032       | 2  |		Load	0x0,0x32
014e 8033       | 3  |		Call	0x0,0x33
014f e416       |    |		Load	0x2,0x16
0150 016d       | m  |		Execute	Variant_Record,Structure_Write
0151 e416       |    |		Load	0x2,0x16
0152 4800       |H   |		Short_Literal	0x0
0153 e407       |    |		Load	0x2,0x7
0154 8034       | 4  |		Call	0x0,0x34
0155 e413       |    |		Load	0x2,0x13
0156 e032       | 2  |		Load	0x0,0x32
0157 8035       | 5  |		Call	0x0,0x35
0158 e036       | 6  |		Load	0x0,0x36
0159 8033       | 3  |		Call	0x0,0x33
015a 00db       |    |		Load_Top	At_Offset_3
015b 016d       | m  |		Execute	Variant_Record,Structure_Write
015c 00da       |    |		Load_Top	At_Offset_2
015d e416       |    |		Load	0x2,0x16
015e 8037       | 7  |		Call	0x0,0x37
015f e417       |    |		Load	0x2,0x17
0160 016d       | m  |		Execute	Variant_Record,Structure_Write
0161 e417       |    |		Load	0x2,0x17
0162 4800       |H   |		Short_Literal	0x0
0163 e404       |    |		Load	0x2,0x4
0164 8038       | 8  |		Call	0x0,0x38
0165 e40f       |    |		Load	0x2,0xf
0166 e416       |    |		Load	0x2,0x16
0167 8037       | 7  |		Call	0x0,0x37
0168 e418       |    |		Load	0x2,0x18
0169 016d       | m  |		Execute	Variant_Record,Structure_Write
016a e418       |    |		Load	0x2,0x18
016b 4800       |H   |		Short_Literal	0x0
016c e403       |    |		Load	0x2,0x3
016d 8039       | 9  |		Call	0x0,0x39
016e e410       |    |		Load	0x2,0x10
016f e418       |    |		Load	0x2,0x18
0170 8037       | 7  |		Call	0x0,0x37
0171 e419       |    |		Load	0x2,0x19
0172 016d       | m  |		Execute	Variant_Record,Structure_Write
0173 00db       |    |		Load_Top	At_Offset_3
0174 4800       |H   |		Short_Literal	0x0
0175 e405       |    |		Load	0x2,0x5
0176 803a       | :  |		Call	0x0,0x3a
0177 e411       |    |		Load	0x2,0x11
0178 e419       |    |		Load	0x2,0x19
0179 8037       | 7  |		Call	0x0,0x37
017a 4800       |H   |		Short_Literal	0x0
017b e406       |    |		Load	0x2,0x6
017c 803b       | ;  |		Call	0x0,0x3b
017d e413       |    |		Load	0x2,0x13
017e 803c       | <  |		Call	0x0,0x3c
017f 09ff       |    |		Execute_Immediate	Binary_Scale,-0x1
0180 803d       | =  |		Call	0x0,0x3d
0181 e414       |    |		Load	0x2,0x14
0182 8037       | 7  |		Call	0x0,0x37
0183 e415       |    |		Load	0x2,0x15
0184 016d       | m  |		Execute	Variant_Record,Structure_Write
0185 e009       |    |		Load	0x0,0x9
0186 e415       |    |		Load	0x2,0x15
0187 803e       | >  |		Call	0x0,0x3e
0188 6803       |h   |		Jump_Zero	0x18c
0189 e009       |    |		Load	0x0,0x9
018a e415       |    |		Load	0x2,0x15
018b 016d       | m  |		Execute	Variant_Record,Structure_Write
018c e415       |    |		Load	0x2,0x15
018d 4800       |H   |		Short_Literal	0x0
018e e40b       |    |		Load	0x2,0xb
018f 803f       | ?  |		Call	0x0,0x3f
0190 e415       |    |		Load	0x2,0x15
0191 8040       | @  |		Call	0x0,0x40
0192 4800       |H   |		Short_Literal	0x0
0193 e40c       |    |		Load	0x2,0xc
0194 8041       | A  |		Call	0x0,0x41
0195 e009       |    |		Load	0x0,0x9
0196 4800       |H   |		Short_Literal	0x0
0197 e409       |    |		Load	0x2,0x9
0198 8042       | B  |		Call	0x0,0x42
0199 e009       |    |		Load	0x0,0x9
019a 4800       |H   |		Short_Literal	0x0
019b e408       |    |		Load	0x2,0x8
019c 8043       | C  |		Call	0x0,0x43
019d e02d       | -  |		Load	0x0,0x2d
019e 0092 0202  |    |		Action	Push_String_Extended,0x202					; "The current position is :"
01a0 8044       | D  |		Call	0x0,0x44
01a1 e02d       | -  |		Load	0x0,0x2d
01a2 e416       |    |		Load	0x2,0x16
01a3 803c       | <  |		Call	0x0,0x3c
01a4 00e0       |    |		Load_Encached	Standard_Cache
01a5 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01a6 802f       | /  |		Call	0x0,0x2f
01a7 e02d       | -  |		Load	0x0,0x2d
01a8 0092 0203  |    |		Action	Push_String_Extended,0x203					; "The up commande is :"
01aa 8044       | D  |		Call	0x0,0x44
01ab e02d       | -  |		Load	0x0,0x2d
01ac e413       |    |		Load	0x2,0x13
01ad 803c       | <  |		Call	0x0,0x3c
01ae 00e0       |    |		Load_Encached	Standard_Cache
01af 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01b0 802f       | /  |		Call	0x0,0x2f
01b1 e02d       | -  |		Load	0x0,0x2d
01b2 0092 0204  |    |		Action	Push_String_Extended,0x204					; "The delta y val is :"
01b4 8044       | D  |		Call	0x0,0x44
01b5 e02d       | -  |		Load	0x0,0x2d
01b6 e417       |    |		Load	0x2,0x17
01b7 803c       | <  |		Call	0x0,0x3c
01b8 00e0       |    |		Load_Encached	Standard_Cache
01b9 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01ba 802f       | /  |		Call	0x0,0x2f
01bb e02d       | -  |		Load	0x0,0x2d
01bc 802e       | .  |		Call	0x0,0x2e
01bd e045       | E  |		Load	0x0,0x45
01be 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
01bf e045       | E  |		Load	0x0,0x45
01c0 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
01c1 e02c       | ,  |		Load	0x0,0x2c
01c2 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
01c3 00d9       |    |		Load_Top	At_Offset_1
01c4 017d       | }  |		Execute	Record,Structure_Write
01c5 00d8       |    |		Load_Top	At_Offset_0
01c6 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01c7 6034       |`4  |		Indirect_Literal	Discrete,0x1fc,{0x00000000, 0x0000ea60}
01c8 0271       | q  |		Execute	Discrete,Times
01c9 005a       | Z  |		Store_Top	Discrete,At_Offset_2
01ca 00d9       |    |		Load_Top	At_Offset_1
01cb 00d9       |    |		Load_Top	At_Offset_1
01cc 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
01cd 4be8       |K   |		Short_Literal	0x3e8
01ce 0271       | q  |		Execute	Discrete,Times
01cf 0273       | s  |		Execute	Discrete,Plus
01d0 005a       | Z  |		Store_Top	Discrete,At_Offset_2
01d1 00d9       |    |		Load_Top	At_Offset_1
01d2 00d9       |    |		Load_Top	At_Offset_1
01d3 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
01d4 0273       | s  |		Execute	Discrete,Plus
01d5 005a       | Z  |		Store_Top	Discrete,At_Offset_2
01d6 e046       | F  |		Load	0x0,0x46
01d7 00da       |    |		Load_Top	At_Offset_2
01d8 00e0       |    |		Load_Encached	Standard_Cache
01d9 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01da 0092 0205  |    |		Action	Push_String_Extended,0x205					; " "
01dc 01cc       |    |		Execute	Vector,Catenate
01dd e416       |    |		Load	0x2,0x16
01de 803c       | <  |		Call	0x0,0x3c
01df 00e0       |    |		Load_Encached	Standard_Cache
01e0 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01e1 01cc       |    |		Execute	Vector,Catenate
01e2 0092 0205  |    |		Action	Push_String_Extended,0x205					; " "
01e4 01cc       |    |		Execute	Vector,Catenate
01e5 e413       |    |		Load	0x2,0x13
01e6 803c       | <  |		Call	0x0,0x3c
01e7 00e0       |    |		Load_Encached	Standard_Cache
01e8 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01e9 01cc       |    |		Execute	Vector,Catenate
01ea 0092 0205  |    |		Action	Push_String_Extended,0x205					; " "
01ec 01cc       |    |		Execute	Vector,Catenate
01ed e417       |    |		Load	0x2,0x17
01ee 803c       | <  |		Call	0x0,0x3c
01ef 00e0       |    |		Load_Encached	Standard_Cache
01f0 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01f1 01cc       |    |		Execute	Vector,Catenate
01f2 e414       |    |		Load	0x2,0x14
01f3 803c       | <  |		Call	0x0,0x3c
01f4 00e0       |    |		Load_Encached	Standard_Cache
01f5 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01f6 01cc       |    |		Execute	Vector,Catenate
01f7 0092 0206  |    |		Action	Push_String_Extended,0x206					; " C"
01f9 01cc       |    |		Execute	Vector,Catenate
01fa 8047       | G  |		Call	0x0,0x47
01fb 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01fc 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000ea60}
0200 ; --------------------------------------------------------------------------------------
0200 ; STRING TABLE
0200 ; --------------------------------------------------------------------------------------
0200 0010       |    |		.STRTAB	0x0010->0x0208							; "********************************************************"
0201 0046       | F  |		.STRTAB	0x0046->0x0224							; "      quadrant C : UPDATE RULE "
0202 0063       | c  |		.STRTAB	0x0063->0x0233							; "The current position is :"
0203 007a       | z  |		.STRTAB	0x007a->0x0240							; "The up commande is :"
0204 008c       |    |		.STRTAB	0x008c->0x024a							; "The delta y val is :"
0205 009e       |    |		.STRTAB	0x009e->0x0254							; " "
0206 009d       |    |		.STRTAB	0x009d->0x0254							; " C"
0207 009d       |    |		.STREND 0x009d->0x0255
0208 2a2a 2a2a  |****|		.STRTAB_STRINGS
0256 0000 0000  |    |		.XXX[0x2]
0258 ; --------------------------------------------------------------------------------------
0258 ; Debug Table
0258 ; --------------------------------------------------------------------------------------
0258 0004 0009  |    |		.DEBUG4	0x0004,0x0009,0x5257,0x0000,0x0001,0x0004
025e 000b 026e  |   n|		.DBG4T	0x000b,0x026e,0x0000,0x0000
0262 0010 0272  |   r|		.DBG4T	0x0010,0x0272,0x0000,0x0000
0266 001b 0276  |   v|		.DBG4T	0x001b,0x0276,0x0002,0x0000
026a 00bb 027a  |   z|		.DBG4T	0x00bb,0x027a,0x0001,0x0000
026e ; --------------------------------------------------------------------------------------
026e ; Debug chain
026e ; --------------------------------------------------------------------------------------
026e 0002 0000  |    |		.DBGLEN	0x0002,0x0000
0270 000b 000d  |    |		.DBGLNO	0x000b,0x000d
0272 ; --------------------------------------------------------------------------------------
0272 ; Debug chain
0272 ; --------------------------------------------------------------------------------------
0272 0002 0000  |    |		.DBGLEN	0x0002,0x0000
0274 0010 0012  |    |		.DBGLNO	0x0010,0x0012
0276 ; --------------------------------------------------------------------------------------
0276 ; Debug chain
0276 ; --------------------------------------------------------------------------------------
0276 0001 0001  |    |		.DBGLEN	0x0001,0x0001
0278 001b 001c  |    |		.DBGLNO	0x001b,0x001c
027a ; --------------------------------------------------------------------------------------
027a ; Debug chain
027a ; --------------------------------------------------------------------------------------
027a 001b 0023  |   #|		.DBGLEN	0x001b,0x0023
027c 00bb 00bf  |    |		.DBGLNO	0x00bb,0x00bf,0x00c3,0x00c7,0x00cb,0x00cf,0x00d3,0x00d7,0x00db,0x00df,0x00e3,0x00e7,0x00ee,0x00f5,0x00fc,0x0103,0x010a,0x0111,0x0118,0x011f,0x0123,0x0127,0x012b,0x012f,0x0133,0x0137,0x0138,0x013b,0x013d,0x0141,0x0145,0x0149,0x014d,0x0151,0x0155,0x0158,0x015c,0x0161,0x0165,0x016a,0x016e,0x0173,0x0177,0x017d,0x0185,0x0189,0x018c,0x0190,0x0195,0x0199,0x019d,0x01a1,0x01a7,0x01ab,0x01b1,0x01b5,0x01bb,0x01bd,0x01c5,0x01ca,0x01d1,0x01d6
02ba 0000 0000  |    |		.BLANK	0000[0x146]