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

⟦24da6965a⟧

    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 0220       |    |		.CONST	0x0220								; 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 00a3  |    |		Declare_Subprogram	INIT_00a0,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 480a       |H   |		Short_Literal	0xa
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 480d       |H   |		Short_Literal	0xd
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 480d       |H   |		Short_Literal	0xd
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 e003       |    |		Load	0x0,0x3
009e 01c6       |    |		Execute	Vector,Convert_To_Formal
009f 00ca       |    |		Action	Exit_Nullary_Function
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 011c       |    |		.CONST	0x011c								; Address of begin
00a1 0004       |    |		.CONST	0x0004								; Address of exception handler
00a2 001a       |    |		.CONST	0x001a								; Number of locals
00a3			INIT_00a0:
00a3 4801       |H   |		Short_Literal	0x1
00a4 00db       |    |		Load_Top	At_Offset_3
00a5 01d5       |    |		Execute	Vector,Field_Reference
00a6 0007       |    |		Action	Break_Optional
00a7 4802       |H   |		Short_Literal	0x2
00a8 e5ff       |    |		Load	0x2,-0x1
00a9 01d5       |    |		Execute	Vector,Field_Reference
00aa 0007       |    |		Action	Break_Optional
00ab 4803       |H   |		Short_Literal	0x3
00ac e5ff       |    |		Load	0x2,-0x1
00ad 01d5       |    |		Execute	Vector,Field_Reference
00ae 0007       |    |		Action	Break_Optional
00af 4804       |H   |		Short_Literal	0x4
00b0 e5ff       |    |		Load	0x2,-0x1
00b1 01d5       |    |		Execute	Vector,Field_Reference
00b2 0007       |    |		Action	Break_Optional
00b3 4805       |H   |		Short_Literal	0x5
00b4 e5ff       |    |		Load	0x2,-0x1
00b5 01d5       |    |		Execute	Vector,Field_Reference
00b6 0007       |    |		Action	Break_Optional
00b7 4806       |H   |		Short_Literal	0x6
00b8 e5ff       |    |		Load	0x2,-0x1
00b9 01d5       |    |		Execute	Vector,Field_Reference
00ba 0007       |    |		Action	Break_Optional
00bb 4807       |H   |		Short_Literal	0x7
00bc e5ff       |    |		Load	0x2,-0x1
00bd 01d5       |    |		Execute	Vector,Field_Reference
00be 0007       |    |		Action	Break_Optional
00bf 4808       |H   |		Short_Literal	0x8
00c0 e5ff       |    |		Load	0x2,-0x1
00c1 01d5       |    |		Execute	Vector,Field_Reference
00c2 0007       |    |		Action	Break_Optional
00c3 4809       |H   |		Short_Literal	0x9
00c4 e5ff       |    |		Load	0x2,-0x1
00c5 01d5       |    |		Execute	Vector,Field_Reference
00c6 0007       |    |		Action	Break_Optional
00c7 480a       |H   |		Short_Literal	0xa
00c8 e5ff       |    |		Load	0x2,-0x1
00c9 01d5       |    |		Execute	Vector,Field_Reference
00ca 0007       |    |		Action	Break_Optional
00cb e01f       |    |		Load	0x0,0x1f
00cc 02ff       |    |		Declare_Variable	Variant_Record
00cd 4800       |H   |		Short_Literal	0x0
00ce e408       |    |		Load	0x2,0x8
00cf 8020       |    |		Call	0x0,0x20
00d0 00d9       |    |		Load_Top	At_Offset_1
00d1 016d       | m  |		Execute	Variant_Record,Structure_Write
00d2 e01f       |    |		Load	0x0,0x1f
00d3 02ff       |    |		Declare_Variable	Variant_Record
00d4 4800       |H   |		Short_Literal	0x0
00d5 e405       |    |		Load	0x2,0x5
00d6 8021       | !  |		Call	0x0,0x21
00d7 00d9       |    |		Load_Top	At_Offset_1
00d8 016d       | m  |		Execute	Variant_Record,Structure_Write
00d9 e01f       |    |		Load	0x0,0x1f
00da 02ff       |    |		Declare_Variable	Variant_Record
00db 4800       |H   |		Short_Literal	0x0
00dc e40b       |    |		Load	0x2,0xb
00dd 8022       | "  |		Call	0x0,0x22
00de 00d9       |    |		Load_Top	At_Offset_1
00df 016d       | m  |		Execute	Variant_Record,Structure_Write
00e0 e01f       |    |		Load	0x0,0x1f
00e1 02ff       |    |		Declare_Variable	Variant_Record
00e2 4800       |H   |		Short_Literal	0x0
00e3 e403       |    |		Load	0x2,0x3
00e4 8023       | #  |		Call	0x0,0x23
00e5 00d9       |    |		Load_Top	At_Offset_1
00e6 016d       | m  |		Execute	Variant_Record,Structure_Write
00e7 e01f       |    |		Load	0x0,0x1f
00e8 02ff       |    |		Declare_Variable	Variant_Record
00e9 4800       |H   |		Short_Literal	0x0
00ea e406       |    |		Load	0x2,0x6
00eb 8024       | $  |		Call	0x0,0x24
00ec 00d9       |    |		Load_Top	At_Offset_1
00ed 016d       | m  |		Execute	Variant_Record,Structure_Write
00ee e01f       |    |		Load	0x0,0x1f
00ef 02ff       |    |		Declare_Variable	Variant_Record
00f0 4800       |H   |		Short_Literal	0x0
00f1 e407       |    |		Load	0x2,0x7
00f2 8025       | %  |		Call	0x0,0x25
00f3 00d9       |    |		Load_Top	At_Offset_1
00f4 016d       | m  |		Execute	Variant_Record,Structure_Write
00f5 e01f       |    |		Load	0x0,0x1f
00f6 02ff       |    |		Declare_Variable	Variant_Record
00f7 4800       |H   |		Short_Literal	0x0
00f8 e409       |    |		Load	0x2,0x9
00f9 8026       | &  |		Call	0x0,0x26
00fa 00d9       |    |		Load_Top	At_Offset_1
00fb 016d       | m  |		Execute	Variant_Record,Structure_Write
00fc e01f       |    |		Load	0x0,0x1f
00fd 02ff       |    |		Declare_Variable	Variant_Record
00fe 4800       |H   |		Short_Literal	0x0
00ff e404       |    |		Load	0x2,0x4
0100 8027       | '  |		Call	0x0,0x27
0101 8028       | (  |		Call	0x0,0x28
0102 00d9       |    |		Load_Top	At_Offset_1
0103 016d       | m  |		Execute	Variant_Record,Structure_Write
0104 e01f       |    |		Load	0x0,0x1f
0105 02ff       |    |		Declare_Variable	Variant_Record
0106 00d8       |    |		Load_Top	At_Offset_0
0107 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0108 e01f       |    |		Load	0x0,0x1f
0109 02ff       |    |		Declare_Variable	Variant_Record
010a 00d8       |    |		Load_Top	At_Offset_0
010b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
010c e01f       |    |		Load	0x0,0x1f
010d 02ff       |    |		Declare_Variable	Variant_Record
010e 00d8       |    |		Load_Top	At_Offset_0
010f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0110 e01f       |    |		Load	0x0,0x1f
0111 02ff       |    |		Declare_Variable	Variant_Record
0112 00d8       |    |		Load_Top	At_Offset_0
0113 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0114 e01f       |    |		Load	0x0,0x1f
0115 02ff       |    |		Declare_Variable	Variant_Record
0116 00d8       |    |		Load_Top	At_Offset_0
0117 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0118 00e2       |    |		Load_Encached	Integer_Cache
0119 e029       | )  |		Load	0x0,0x29
011a 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
011b 0322       | "  |		Declare_Variable	Record
011c			BODY_00a0:
011c e02a       | *  |		Load	0x0,0x2a
011d 802b       | +  |		Call	0x0,0x2b
011e e02a       | *  |		Load	0x0,0x2a
011f 0092 01c8  |    |		Action	Push_String_Extended,0x1c8					; "********************************************************"
0121 802c       | ,  |		Call	0x0,0x2c
0122 e02a       | *  |		Load	0x0,0x2a
0123 0092 01c9  |    |		Action	Push_String_Extended,0x1c9					; "      quadrant F : UPDATE RULE "
0125 802c       | ,  |		Call	0x0,0x2c
0126 e02a       | *  |		Load	0x0,0x2a
0127 0092 01c8  |    |		Action	Push_String_Extended,0x1c8					; "********************************************************"
0129 802c       | ,  |		Call	0x0,0x2c
012a e02d       | -  |		Load	0x0,0x2d
012b 4800       |H   |		Short_Literal	0x0
012c e402       |    |		Load	0x2,0x2
012d 802e       | .  |		Call	0x0,0x2e
012e e02f       | /  |		Load	0x0,0x2f
012f 8030       | 0  |		Call	0x0,0x30
0130 e414       |    |		Load	0x2,0x14
0131 016d       | m  |		Execute	Variant_Record,Structure_Write
0132 e414       |    |		Load	0x2,0x14
0133 4800       |H   |		Short_Literal	0x0
0134 e408       |    |		Load	0x2,0x8
0135 8031       | 1  |		Call	0x0,0x31
0136 e412       |    |		Load	0x2,0x12
0137 8028       | (  |		Call	0x0,0x28
0138 e02f       | /  |		Load	0x0,0x2f
0139 8032       | 2  |		Call	0x0,0x32
013a e033       | 3  |		Load	0x0,0x33
013b 8030       | 0  |		Call	0x0,0x30
013c 00db       |    |		Load_Top	At_Offset_3
013d 016d       | m  |		Execute	Variant_Record,Structure_Write
013e 00da       |    |		Load_Top	At_Offset_2
013f e414       |    |		Load	0x2,0x14
0140 8034       | 4  |		Call	0x0,0x34
0141 e415       |    |		Load	0x2,0x15
0142 016d       | m  |		Execute	Variant_Record,Structure_Write
0143 e415       |    |		Load	0x2,0x15
0144 4800       |H   |		Short_Literal	0x0
0145 e405       |    |		Load	0x2,0x5
0146 8035       | 5  |		Call	0x0,0x35
0147 e40e       |    |		Load	0x2,0xe
0148 e414       |    |		Load	0x2,0x14
0149 8034       | 4  |		Call	0x0,0x34
014a e416       |    |		Load	0x2,0x16
014b 016d       | m  |		Execute	Variant_Record,Structure_Write
014c e416       |    |		Load	0x2,0x16
014d 4800       |H   |		Short_Literal	0x0
014e e403       |    |		Load	0x2,0x3
014f 8036       | 6  |		Call	0x0,0x36
0150 e40f       |    |		Load	0x2,0xf
0151 e416       |    |		Load	0x2,0x16
0152 8034       | 4  |		Call	0x0,0x34
0153 e417       |    |		Load	0x2,0x17
0154 016d       | m  |		Execute	Variant_Record,Structure_Write
0155 00db       |    |		Load_Top	At_Offset_3
0156 4800       |H   |		Short_Literal	0x0
0157 e406       |    |		Load	0x2,0x6
0158 8037       | 7  |		Call	0x0,0x37
0159 e410       |    |		Load	0x2,0x10
015a e417       |    |		Load	0x2,0x17
015b 8034       | 4  |		Call	0x0,0x34
015c 4800       |H   |		Short_Literal	0x0
015d e407       |    |		Load	0x2,0x7
015e 8038       | 8  |		Call	0x0,0x38
015f e039       | 9  |		Load	0x0,0x39
0160 4800       |H   |		Short_Literal	0x0
0161 e40a       |    |		Load	0x2,0xa
0162 803a       | :  |		Call	0x0,0x3a
0163 e02a       | *  |		Load	0x0,0x2a
0164 0092 01ca  |    |		Action	Push_String_Extended,0x1ca					; "The current position is :"
0166 803b       | ;  |		Call	0x0,0x3b
0167 e02a       | *  |		Load	0x0,0x2a
0168 e414       |    |		Load	0x2,0x14
0169 803c       | <  |		Call	0x0,0x3c
016a 00e0       |    |		Load_Encached	Standard_Cache
016b 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
016c 802c       | ,  |		Call	0x0,0x2c
016d e02a       | *  |		Load	0x0,0x2a
016e 0092 01cb  |    |		Action	Push_String_Extended,0x1cb					; "The down commande is : -"
0170 803b       | ;  |		Call	0x0,0x3b
0171 e02a       | *  |		Load	0x0,0x2a
0172 e412       |    |		Load	0x2,0x12
0173 803c       | <  |		Call	0x0,0x3c
0174 00e0       |    |		Load_Encached	Standard_Cache
0175 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0176 802c       | ,  |		Call	0x0,0x2c
0177 e02a       | *  |		Load	0x0,0x2a
0178 0092 01cc  |    |		Action	Push_String_Extended,0x1cc					; "The delta y val is :"
017a 803b       | ;  |		Call	0x0,0x3b
017b e02a       | *  |		Load	0x0,0x2a
017c e415       |    |		Load	0x2,0x15
017d 803c       | <  |		Call	0x0,0x3c
017e 00e0       |    |		Load_Encached	Standard_Cache
017f 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0180 802c       | ,  |		Call	0x0,0x2c
0181 e02a       | *  |		Load	0x0,0x2a
0182 802b       | +  |		Call	0x0,0x2b
0183 e03d       | =  |		Load	0x0,0x3d
0184 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0185 e03d       | =  |		Load	0x0,0x3d
0186 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0187 e029       | )  |		Load	0x0,0x29
0188 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0189 00d9       |    |		Load_Top	At_Offset_1
018a 017d       | }  |		Execute	Record,Structure_Write
018b 00d8       |    |		Load_Top	At_Offset_0
018c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
018d 6036       |`6  |		Indirect_Literal	Discrete,0x1c4,{0x00000000, 0x0000ea60}
018e 0271       | q  |		Execute	Discrete,Times
018f 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0190 00d9       |    |		Load_Top	At_Offset_1
0191 00d9       |    |		Load_Top	At_Offset_1
0192 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0193 4be8       |K   |		Short_Literal	0x3e8
0194 0271       | q  |		Execute	Discrete,Times
0195 0273       | s  |		Execute	Discrete,Plus
0196 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0197 00d9       |    |		Load_Top	At_Offset_1
0198 00d9       |    |		Load_Top	At_Offset_1
0199 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
019a 0273       | s  |		Execute	Discrete,Plus
019b 005a       | Z  |		Store_Top	Discrete,At_Offset_2
019c e03e       | >  |		Load	0x0,0x3e
019d 00da       |    |		Load_Top	At_Offset_2
019e 00e0       |    |		Load_Encached	Standard_Cache
019f 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01a0 0092 01cd  |    |		Action	Push_String_Extended,0x1cd					; " "
01a2 01cc       |    |		Execute	Vector,Catenate
01a3 e414       |    |		Load	0x2,0x14
01a4 803c       | <  |		Call	0x0,0x3c
01a5 00e0       |    |		Load_Encached	Standard_Cache
01a6 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01a7 01cc       |    |		Execute	Vector,Catenate
01a8 0092 01cd  |    |		Action	Push_String_Extended,0x1cd					; " "
01aa 01cc       |    |		Execute	Vector,Catenate
01ab 0092 01cd  |    |		Action	Push_String_Extended,0x1cd					; " "
01ad 01cc       |    |		Execute	Vector,Catenate
01ae e412       |    |		Load	0x2,0x12
01af 8028       | (  |		Call	0x0,0x28
01b0 803c       | <  |		Call	0x0,0x3c
01b1 00e0       |    |		Load_Encached	Standard_Cache
01b2 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01b3 01cc       |    |		Execute	Vector,Catenate
01b4 e415       |    |		Load	0x2,0x15
01b5 803c       | <  |		Call	0x0,0x3c
01b6 00e0       |    |		Load_Encached	Standard_Cache
01b7 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01b8 01cc       |    |		Execute	Vector,Catenate
01b9 e413       |    |		Load	0x2,0x13
01ba 803c       | <  |		Call	0x0,0x3c
01bb 00e0       |    |		Load_Encached	Standard_Cache
01bc 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01bd 01cc       |    |		Execute	Vector,Catenate
01be 0092 01ce  |    |		Action	Push_String_Extended,0x1ce					; " F"
01c0 01cc       |    |		Execute	Vector,Catenate
01c1 803f       | ?  |		Call	0x0,0x3f
01c2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01c3 0000       |    |		.XXX[0x1]
01c4 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000ea60}
01c8 ; --------------------------------------------------------------------------------------
01c8 ; STRING TABLE
01c8 ; --------------------------------------------------------------------------------------
01c8 0010       |    |		.STRTAB	0x0010->0x01d0							; "********************************************************"
01c9 0046       | F  |		.STRTAB	0x0046->0x01ec							; "      quadrant F : UPDATE RULE "
01ca 0063       | c  |		.STRTAB	0x0063->0x01fb							; "The current position is :"
01cb 007a       | z  |		.STRTAB	0x007a->0x0208							; "The down commande is : -"
01cc 0090       |    |		.STRTAB	0x0090->0x0214							; "The delta y val is :"
01cd 00a2       |    |		.STRTAB	0x00a2->0x021e							; " "
01ce 00a1       |    |		.STRTAB	0x00a1->0x021e							; " F"
01cf 00a1       |    |		.STREND 0x00a1->0x021f
01d0 2a2a 2a2a  |****|		.STRTAB_STRINGS
0220 ; --------------------------------------------------------------------------------------
0220 ; Debug Table
0220 ; --------------------------------------------------------------------------------------
0220 0004 0009  |    |		.DEBUG4	0x0004,0x0009,0x525a,0x0000,0x0001,0x0004
0226 000b 0236  |   6|		.DBG4T	0x000b,0x0236,0x0000,0x0000
022a 0010 023a  |   :|		.DBG4T	0x0010,0x023a,0x0000,0x0000
022e 001b 023e  |   >|		.DBG4T	0x001b,0x023e,0x0002,0x0000
0232 00a3 0242  |   B|		.DBG4T	0x00a3,0x0242,0x0001,0x0000
0236 ; --------------------------------------------------------------------------------------
0236 ; Debug chain
0236 ; --------------------------------------------------------------------------------------
0236 0002 0000  |    |		.DBGLEN	0x0002,0x0000
0238 000b 000d  |    |		.DBGLNO	0x000b,0x000d
023a ; --------------------------------------------------------------------------------------
023a ; Debug chain
023a ; --------------------------------------------------------------------------------------
023a 0002 0000  |    |		.DBGLEN	0x0002,0x0000
023c 0010 0012  |    |		.DBGLNO	0x0010,0x0012
023e ; --------------------------------------------------------------------------------------
023e ; Debug chain
023e ; --------------------------------------------------------------------------------------
023e 0001 0001  |    |		.DBGLEN	0x0001,0x0001
0240 001b 001c  |    |		.DBGLNO	0x001b,0x001c
0242 ; --------------------------------------------------------------------------------------
0242 ; Debug chain
0242 ; --------------------------------------------------------------------------------------
0242 0019 001d  |    |		.DBGLEN	0x0019,0x001d
0244 00a3 00a7  |    |		.DBGLNO	0x00a3,0x00a7,0x00ab,0x00af,0x00b3,0x00b7,0x00bb,0x00bf,0x00c3,0x00c7,0x00cb,0x00d2,0x00d9,0x00e0,0x00e7,0x00ee,0x00f5,0x00fc,0x0104,0x0108,0x010c,0x0110,0x0114,0x0118,0x0119,0x011c,0x011e,0x0122,0x0126,0x012a,0x012e,0x0132,0x0136,0x013a,0x013e,0x0143,0x0147,0x014c,0x0150,0x0155,0x0159,0x015f,0x0163,0x0167,0x016d,0x0171,0x0177,0x017b,0x0181,0x0183,0x018b,0x0190,0x0197,0x019c
027a 0000 0000  |    |		.BLANK	0000[0x186]