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

⟦7ebf83983⟧

    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 0238       | 8  |		.CONST	0x0238								; 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 00b3  |    |		Declare_Subprogram	INIT_00b0,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 480b       |H   |		Short_Literal	0xb
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 e003       |    |		Load	0x0,0x3
00aa 01c6       |    |		Execute	Vector,Convert_To_Formal
00ab 00ca       |    |		Action	Exit_Nullary_Function
00ac 0000 0000  |    |		.BLANK	0000[0x4]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 012b       | +  |		.CONST	0x012b								; Address of begin
00b1 0004       |    |		.CONST	0x0004								; Address of exception handler
00b2 001a       |    |		.CONST	0x001a								; Number of locals
00b3			INIT_00b0:
00b3 4801       |H   |		Short_Literal	0x1
00b4 00db       |    |		Load_Top	At_Offset_3
00b5 01d5       |    |		Execute	Vector,Field_Reference
00b6 0007       |    |		Action	Break_Optional
00b7 4802       |H   |		Short_Literal	0x2
00b8 e5ff       |    |		Load	0x2,-0x1
00b9 01d5       |    |		Execute	Vector,Field_Reference
00ba 0007       |    |		Action	Break_Optional
00bb 4804       |H   |		Short_Literal	0x4
00bc e5ff       |    |		Load	0x2,-0x1
00bd 01d5       |    |		Execute	Vector,Field_Reference
00be 0007       |    |		Action	Break_Optional
00bf 4805       |H   |		Short_Literal	0x5
00c0 e5ff       |    |		Load	0x2,-0x1
00c1 01d5       |    |		Execute	Vector,Field_Reference
00c2 0007       |    |		Action	Break_Optional
00c3 4806       |H   |		Short_Literal	0x6
00c4 e5ff       |    |		Load	0x2,-0x1
00c5 01d5       |    |		Execute	Vector,Field_Reference
00c6 0007       |    |		Action	Break_Optional
00c7 4807       |H   |		Short_Literal	0x7
00c8 e5ff       |    |		Load	0x2,-0x1
00c9 01d5       |    |		Execute	Vector,Field_Reference
00ca 0007       |    |		Action	Break_Optional
00cb 4808       |H   |		Short_Literal	0x8
00cc e5ff       |    |		Load	0x2,-0x1
00cd 01d5       |    |		Execute	Vector,Field_Reference
00ce 0007       |    |		Action	Break_Optional
00cf 4809       |H   |		Short_Literal	0x9
00d0 e5ff       |    |		Load	0x2,-0x1
00d1 01d5       |    |		Execute	Vector,Field_Reference
00d2 0007       |    |		Action	Break_Optional
00d3 480a       |H   |		Short_Literal	0xa
00d4 e5ff       |    |		Load	0x2,-0x1
00d5 01d5       |    |		Execute	Vector,Field_Reference
00d6 0007       |    |		Action	Break_Optional
00d7 480b       |H   |		Short_Literal	0xb
00d8 e5ff       |    |		Load	0x2,-0x1
00d9 01d5       |    |		Execute	Vector,Field_Reference
00da 0007       |    |		Action	Break_Optional
00db e021       | !  |		Load	0x0,0x21
00dc 02ff       |    |		Declare_Variable	Variant_Record
00dd 4800       |H   |		Short_Literal	0x0
00de e407       |    |		Load	0x2,0x7
00df 8022       | "  |		Call	0x0,0x22
00e0 00d9       |    |		Load_Top	At_Offset_1
00e1 016d       | m  |		Execute	Variant_Record,Structure_Write
00e2 e021       | !  |		Load	0x0,0x21
00e3 02ff       |    |		Declare_Variable	Variant_Record
00e4 4800       |H   |		Short_Literal	0x0
00e5 e404       |    |		Load	0x2,0x4
00e6 8023       | #  |		Call	0x0,0x23
00e7 00d9       |    |		Load_Top	At_Offset_1
00e8 016d       | m  |		Execute	Variant_Record,Structure_Write
00e9 e021       | !  |		Load	0x0,0x21
00ea 02ff       |    |		Declare_Variable	Variant_Record
00eb 4800       |H   |		Short_Literal	0x0
00ec e40a       |    |		Load	0x2,0xa
00ed 8024       | $  |		Call	0x0,0x24
00ee 00d9       |    |		Load_Top	At_Offset_1
00ef 016d       | m  |		Execute	Variant_Record,Structure_Write
00f0 e021       | !  |		Load	0x0,0x21
00f1 02ff       |    |		Declare_Variable	Variant_Record
00f2 4800       |H   |		Short_Literal	0x0
00f3 e403       |    |		Load	0x2,0x3
00f4 8025       | %  |		Call	0x0,0x25
00f5 00d9       |    |		Load_Top	At_Offset_1
00f6 016d       | m  |		Execute	Variant_Record,Structure_Write
00f7 e021       | !  |		Load	0x0,0x21
00f8 02ff       |    |		Declare_Variable	Variant_Record
00f9 4800       |H   |		Short_Literal	0x0
00fa e405       |    |		Load	0x2,0x5
00fb 8026       | &  |		Call	0x0,0x26
00fc 00d9       |    |		Load_Top	At_Offset_1
00fd 016d       | m  |		Execute	Variant_Record,Structure_Write
00fe e021       | !  |		Load	0x0,0x21
00ff 02ff       |    |		Declare_Variable	Variant_Record
0100 4800       |H   |		Short_Literal	0x0
0101 e406       |    |		Load	0x2,0x6
0102 8027       | '  |		Call	0x0,0x27
0103 00d9       |    |		Load_Top	At_Offset_1
0104 016d       | m  |		Execute	Variant_Record,Structure_Write
0105 e021       | !  |		Load	0x0,0x21
0106 02ff       |    |		Declare_Variable	Variant_Record
0107 4800       |H   |		Short_Literal	0x0
0108 e408       |    |		Load	0x2,0x8
0109 8028       | (  |		Call	0x0,0x28
010a 00d9       |    |		Load_Top	At_Offset_1
010b 016d       | m  |		Execute	Variant_Record,Structure_Write
010c e021       | !  |		Load	0x0,0x21
010d 02ff       |    |		Declare_Variable	Variant_Record
010e 4800       |H   |		Short_Literal	0x0
010f e40b       |    |		Load	0x2,0xb
0110 8029       | )  |		Call	0x0,0x29
0111 00d9       |    |		Load_Top	At_Offset_1
0112 016d       | m  |		Execute	Variant_Record,Structure_Write
0113 e021       | !  |		Load	0x0,0x21
0114 02ff       |    |		Declare_Variable	Variant_Record
0115 00d8       |    |		Load_Top	At_Offset_0
0116 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0117 e021       | !  |		Load	0x0,0x21
0118 02ff       |    |		Declare_Variable	Variant_Record
0119 00d8       |    |		Load_Top	At_Offset_0
011a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
011b e021       | !  |		Load	0x0,0x21
011c 02ff       |    |		Declare_Variable	Variant_Record
011d 00d8       |    |		Load_Top	At_Offset_0
011e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
011f e021       | !  |		Load	0x0,0x21
0120 02ff       |    |		Declare_Variable	Variant_Record
0121 00d8       |    |		Load_Top	At_Offset_0
0122 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0123 e021       | !  |		Load	0x0,0x21
0124 02ff       |    |		Declare_Variable	Variant_Record
0125 00d8       |    |		Load_Top	At_Offset_0
0126 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0127 00e2       |    |		Load_Encached	Integer_Cache
0128 e02a       | *  |		Load	0x0,0x2a
0129 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
012a 0322       | "  |		Declare_Variable	Record
012b			BODY_00b0:
012b e02b       | +  |		Load	0x0,0x2b
012c 802c       | ,  |		Call	0x0,0x2c
012d e02b       | +  |		Load	0x0,0x2b
012e 0092 01dc  |    |		Action	Push_String_Extended,0x1dc					; "********************************************************"
0130 802d       | -  |		Call	0x0,0x2d
0131 e02b       | +  |		Load	0x0,0x2b
0132 0092 01dd  |    |		Action	Push_String_Extended,0x1dd					; "      quadrant D : UPDATE RULE "
0134 802d       | -  |		Call	0x0,0x2d
0135 e02b       | +  |		Load	0x0,0x2b
0136 0092 01dc  |    |		Action	Push_String_Extended,0x1dc					; "********************************************************"
0138 802d       | -  |		Call	0x0,0x2d
0139 e02e       | .  |		Load	0x0,0x2e
013a 4800       |H   |		Short_Literal	0x0
013b e402       |    |		Load	0x2,0x2
013c 802f       | /  |		Call	0x0,0x2f
013d e030       | 0  |		Load	0x0,0x30
013e 8031       | 1  |		Call	0x0,0x31
013f e414       |    |		Load	0x2,0x14
0140 016d       | m  |		Execute	Variant_Record,Structure_Write
0141 e414       |    |		Load	0x2,0x14
0142 4800       |H   |		Short_Literal	0x0
0143 e407       |    |		Load	0x2,0x7
0144 8032       | 2  |		Call	0x0,0x32
0145 e412       |    |		Load	0x2,0x12
0146 8033       | 3  |		Call	0x0,0x33
0147 e030       | 0  |		Load	0x0,0x30
0148 8034       | 4  |		Call	0x0,0x34
0149 e035       | 5  |		Load	0x0,0x35
014a 8031       | 1  |		Call	0x0,0x31
014b 00db       |    |		Load_Top	At_Offset_3
014c 016d       | m  |		Execute	Variant_Record,Structure_Write
014d 00da       |    |		Load_Top	At_Offset_2
014e e414       |    |		Load	0x2,0x14
014f 8036       | 6  |		Call	0x0,0x36
0150 e415       |    |		Load	0x2,0x15
0151 016d       | m  |		Execute	Variant_Record,Structure_Write
0152 e415       |    |		Load	0x2,0x15
0153 4800       |H   |		Short_Literal	0x0
0154 e404       |    |		Load	0x2,0x4
0155 8037       | 7  |		Call	0x0,0x37
0156 e40e       |    |		Load	0x2,0xe
0157 e414       |    |		Load	0x2,0x14
0158 8036       | 6  |		Call	0x0,0x36
0159 e416       |    |		Load	0x2,0x16
015a 016d       | m  |		Execute	Variant_Record,Structure_Write
015b e416       |    |		Load	0x2,0x16
015c 4800       |H   |		Short_Literal	0x0
015d e403       |    |		Load	0x2,0x3
015e 8038       | 8  |		Call	0x0,0x38
015f e40f       |    |		Load	0x2,0xf
0160 e416       |    |		Load	0x2,0x16
0161 8036       | 6  |		Call	0x0,0x36
0162 e417       |    |		Load	0x2,0x17
0163 016d       | m  |		Execute	Variant_Record,Structure_Write
0164 00db       |    |		Load_Top	At_Offset_3
0165 4800       |H   |		Short_Literal	0x0
0166 e405       |    |		Load	0x2,0x5
0167 8039       | 9  |		Call	0x0,0x39
0168 e410       |    |		Load	0x2,0x10
0169 e417       |    |		Load	0x2,0x17
016a 8036       | 6  |		Call	0x0,0x36
016b 4800       |H   |		Short_Literal	0x0
016c e406       |    |		Load	0x2,0x6
016d 803a       | :  |		Call	0x0,0x3a
016e e009       |    |		Load	0x0,0x9
016f 4800       |H   |		Short_Literal	0x0
0170 e409       |    |		Load	0x2,0x9
0171 803b       | ;  |		Call	0x0,0x3b
0172 e009       |    |		Load	0x0,0x9
0173 4800       |H   |		Short_Literal	0x0
0174 e408       |    |		Load	0x2,0x8
0175 803c       | <  |		Call	0x0,0x3c
0176 e02b       | +  |		Load	0x0,0x2b
0177 0092 01de  |    |		Action	Push_String_Extended,0x1de					; "The current position is :"
0179 803d       | =  |		Call	0x0,0x3d
017a e02b       | +  |		Load	0x0,0x2b
017b e414       |    |		Load	0x2,0x14
017c 803e       | >  |		Call	0x0,0x3e
017d 00e0       |    |		Load_Encached	Standard_Cache
017e 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
017f 802d       | -  |		Call	0x0,0x2d
0180 e02b       | +  |		Load	0x0,0x2b
0181 0092 01df  |    |		Action	Push_String_Extended,0x1df					; "The down commande is : -"
0183 803d       | =  |		Call	0x0,0x3d
0184 e02b       | +  |		Load	0x0,0x2b
0185 e412       |    |		Load	0x2,0x12
0186 803e       | >  |		Call	0x0,0x3e
0187 00e0       |    |		Load_Encached	Standard_Cache
0188 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0189 802d       | -  |		Call	0x0,0x2d
018a e02b       | +  |		Load	0x0,0x2b
018b 0092 01e0  |    |		Action	Push_String_Extended,0x1e0					; "The delta y val is :"
018d 803d       | =  |		Call	0x0,0x3d
018e e02b       | +  |		Load	0x0,0x2b
018f e415       |    |		Load	0x2,0x15
0190 803e       | >  |		Call	0x0,0x3e
0191 00e0       |    |		Load_Encached	Standard_Cache
0192 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0193 802d       | -  |		Call	0x0,0x2d
0194 e02b       | +  |		Load	0x0,0x2b
0195 802c       | ,  |		Call	0x0,0x2c
0196 e03f       | ?  |		Load	0x0,0x3f
0197 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0198 e03f       | ?  |		Load	0x0,0x3f
0199 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
019a e02a       | *  |		Load	0x0,0x2a
019b 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
019c 00d9       |    |		Load_Top	At_Offset_1
019d 017d       | }  |		Execute	Record,Structure_Write
019e 00d8       |    |		Load_Top	At_Offset_0
019f 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01a0 6037       |`7  |		Indirect_Literal	Discrete,0x1d8,{0x00000000, 0x0000ea60}
01a1 0271       | q  |		Execute	Discrete,Times
01a2 005a       | Z  |		Store_Top	Discrete,At_Offset_2
01a3 00d9       |    |		Load_Top	At_Offset_1
01a4 00d9       |    |		Load_Top	At_Offset_1
01a5 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
01a6 4be8       |K   |		Short_Literal	0x3e8
01a7 0271       | q  |		Execute	Discrete,Times
01a8 0273       | s  |		Execute	Discrete,Plus
01a9 005a       | Z  |		Store_Top	Discrete,At_Offset_2
01aa 00d9       |    |		Load_Top	At_Offset_1
01ab 00d9       |    |		Load_Top	At_Offset_1
01ac 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
01ad 0273       | s  |		Execute	Discrete,Plus
01ae 005a       | Z  |		Store_Top	Discrete,At_Offset_2
01af e040       | @  |		Load	0x0,0x40
01b0 00da       |    |		Load_Top	At_Offset_2
01b1 00e0       |    |		Load_Encached	Standard_Cache
01b2 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01b3 0092 01e1  |    |		Action	Push_String_Extended,0x1e1					; " "
01b5 01cc       |    |		Execute	Vector,Catenate
01b6 e414       |    |		Load	0x2,0x14
01b7 803e       | >  |		Call	0x0,0x3e
01b8 00e0       |    |		Load_Encached	Standard_Cache
01b9 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01ba 01cc       |    |		Execute	Vector,Catenate
01bb 0092 01e1  |    |		Action	Push_String_Extended,0x1e1					; " "
01bd 01cc       |    |		Execute	Vector,Catenate
01be e412       |    |		Load	0x2,0x12
01bf 8033       | 3  |		Call	0x0,0x33
01c0 803e       | >  |		Call	0x0,0x3e
01c1 00e0       |    |		Load_Encached	Standard_Cache
01c2 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01c3 01cc       |    |		Execute	Vector,Catenate
01c4 0092 01e1  |    |		Action	Push_String_Extended,0x1e1					; " "
01c6 01cc       |    |		Execute	Vector,Catenate
01c7 e415       |    |		Load	0x2,0x15
01c8 803e       | >  |		Call	0x0,0x3e
01c9 00e0       |    |		Load_Encached	Standard_Cache
01ca 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01cb 01cc       |    |		Execute	Vector,Catenate
01cc e413       |    |		Load	0x2,0x13
01cd 803e       | >  |		Call	0x0,0x3e
01ce 00e0       |    |		Load_Encached	Standard_Cache
01cf 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01d0 01cc       |    |		Execute	Vector,Catenate
01d1 0092 01e2  |    |		Action	Push_String_Extended,0x1e2					; " D"
01d3 01cc       |    |		Execute	Vector,Catenate
01d4 8041       | A  |		Call	0x0,0x41
01d5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01d6 0000 0000  |    |		.XXX[0x2]
01d8 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000ea60}
01dc ; --------------------------------------------------------------------------------------
01dc ; STRING TABLE
01dc ; --------------------------------------------------------------------------------------
01dc 0010       |    |		.STRTAB	0x0010->0x01e4							; "********************************************************"
01dd 0046       | F  |		.STRTAB	0x0046->0x0200							; "      quadrant D : UPDATE RULE "
01de 0063       | c  |		.STRTAB	0x0063->0x020f							; "The current position is :"
01df 007a       | z  |		.STRTAB	0x007a->0x021c							; "The down commande is : -"
01e0 0090       |    |		.STRTAB	0x0090->0x0228							; "The delta y val is :"
01e1 00a2       |    |		.STRTAB	0x00a2->0x0232							; " "
01e2 00a1       |    |		.STRTAB	0x00a1->0x0232							; " D"
01e3 00a1       |    |		.STREND 0x00a1->0x0233
01e4 2a2a 2a2a  |****|		.STRTAB_STRINGS
0234 0000 0000  |    |		.BLANK	0000[0x4]
0238 ; --------------------------------------------------------------------------------------
0238 ; Debug Table
0238 ; --------------------------------------------------------------------------------------
0238 0004 0009  |    |		.DEBUG4	0x0004,0x0009,0x5258,0x0000,0x0001,0x0004
023e 000b 024e  |   N|		.DBG4T	0x000b,0x024e,0x0000,0x0000
0242 0010 0252  |   R|		.DBG4T	0x0010,0x0252,0x0000,0x0000
0246 001b 0256  |   V|		.DBG4T	0x001b,0x0256,0x0002,0x0000
024a 00b3 025a  |   Z|		.DBG4T	0x00b3,0x025a,0x0001,0x0000
024e ; --------------------------------------------------------------------------------------
024e ; Debug chain
024e ; --------------------------------------------------------------------------------------
024e 0002 0000  |    |		.DBGLEN	0x0002,0x0000
0250 000b 000d  |    |		.DBGLNO	0x000b,0x000d
0252 ; --------------------------------------------------------------------------------------
0252 ; Debug chain
0252 ; --------------------------------------------------------------------------------------
0252 0002 0000  |    |		.DBGLEN	0x0002,0x0000
0254 0010 0012  |    |		.DBGLNO	0x0010,0x0012
0256 ; --------------------------------------------------------------------------------------
0256 ; Debug chain
0256 ; --------------------------------------------------------------------------------------
0256 0001 0001  |    |		.DBGLEN	0x0001,0x0001
0258 001b 001c  |    |		.DBGLNO	0x001b,0x001c
025a ; --------------------------------------------------------------------------------------
025a ; Debug chain
025a ; --------------------------------------------------------------------------------------
025a 0019 001e  |    |		.DBGLEN	0x0019,0x001e
025c 00b3 00b7  |    |		.DBGLNO	0x00b3,0x00b7,0x00bb,0x00bf,0x00c3,0x00c7,0x00cb,0x00cf,0x00d3,0x00d7,0x00db,0x00e2,0x00e9,0x00f0,0x00f7,0x00fe,0x0105,0x010c,0x0113,0x0117,0x011b,0x011f,0x0123,0x0127,0x0128,0x012b,0x012d,0x0131,0x0135,0x0139,0x013d,0x0141,0x0145,0x0149,0x014d,0x0152,0x0156,0x015b,0x015f,0x0164,0x0168,0x016e,0x0172,0x0176,0x017a,0x0180,0x0184,0x018a,0x018e,0x0194,0x0196,0x019e,0x01a3,0x01aa,0x01af
0293 0000 0000  |    |		.BLANK	0000[0x16d]