|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_07b8f6
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
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 0260 | ` | .CONST 0x0260 ; 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 8031 | 1 | Call 0x0,0x31
0149 e030 | 0 | Load 0x0,0x30
014a 0092 0204 | | Action Push_String_Extended,0x204 ; "********************************************************"
014c 8032 | 2 | Call 0x0,0x32
014d e030 | 0 | Load 0x0,0x30
014e 0092 0205 | | Action Push_String_Extended,0x205 ; " quadrant B : UPDATE RULE "
0150 8032 | 2 | Call 0x0,0x32
0151 e030 | 0 | Load 0x0,0x30
0152 0092 0204 | | Action Push_String_Extended,0x204 ; "********************************************************"
0154 8032 | 2 | Call 0x0,0x32
0155 e033 | 3 | Load 0x0,0x33
0156 4800 |H | Short_Literal 0x0
0157 e402 | | Load 0x2,0x2
0158 8034 | 4 | Call 0x0,0x34
0159 e035 | 5 | Load 0x0,0x35
015a 8036 | 6 | Call 0x0,0x36
015b e418 | | Load 0x2,0x18
015c 016d | m | Execute Variant_Record,Structure_Write
015d e418 | | Load 0x2,0x18
015e 4800 |H | Short_Literal 0x0
015f e408 | | Load 0x2,0x8
0160 8037 | 7 | Call 0x0,0x37
0161 e413 | | Load 0x2,0x13
0162 e035 | 5 | Load 0x0,0x35
0163 8038 | 8 | Call 0x0,0x38
0164 e039 | 9 | Load 0x0,0x39
0165 8036 | 6 | Call 0x0,0x36
0166 e417 | | Load 0x2,0x17
0167 016d | m | Execute Variant_Record,Structure_Write
0168 e417 | | Load 0x2,0x17
0169 e418 | | Load 0x2,0x18
016a 803a | : | Call 0x0,0x3a
016b e416 | | Load 0x2,0x16
016c 016d | m | Execute Variant_Record,Structure_Write
016d e416 | | Load 0x2,0x16
016e 4800 |H | Short_Literal 0x0
016f e405 | | Load 0x2,0x5
0170 803b | ; | Call 0x0,0x3b
0171 e40f | | Load 0x2,0xf
0172 e418 | | Load 0x2,0x18
0173 803a | : | Call 0x0,0x3a
0174 e419 | | Load 0x2,0x19
0175 016d | m | Execute Variant_Record,Structure_Write
0176 e419 | | Load 0x2,0x19
0177 4800 |H | Short_Literal 0x0
0178 e403 | | Load 0x2,0x3
0179 803c | < | Call 0x0,0x3c
017a e410 | | Load 0x2,0x10
017b e419 | | Load 0x2,0x19
017c 803a | : | Call 0x0,0x3a
017d e41a | | Load 0x2,0x1a
017e 016d | m | Execute Variant_Record,Structure_Write
017f 00db | | Load_Top At_Offset_3
0180 4800 |H | Short_Literal 0x0
0181 e406 | | Load 0x2,0x6
0182 803d | = | Call 0x0,0x3d
0183 e411 | | Load 0x2,0x11
0184 e41a | | Load 0x2,0x1a
0185 803a | : | Call 0x0,0x3a
0186 4800 |H | Short_Literal 0x0
0187 e407 | | Load 0x2,0x7
0188 803e | > | Call 0x0,0x3e
0189 e03f | ? | Load 0x0,0x3f
018a 4800 |H | Short_Literal 0x0
018b e40a | | Load 0x2,0xa
018c 8040 | @ | Call 0x0,0x40
018d e413 | | Load 0x2,0x13
018e 8041 | A | Call 0x0,0x41
018f 09ff | | Execute_Immediate Binary_Scale,-0x1
0190 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0191 00d8 | | Load_Top At_Offset_0
0192 8042 | B | Call 0x0,0x42
0193 4800 |H | Short_Literal 0x0
0194 e409 | | Load 0x2,0x9
0195 8043 | C | Call 0x0,0x43
0196 e416 | | Load 0x2,0x16
0197 e415 | | Load 0x2,0x15
0198 8044 | D | Call 0x0,0x44
0199 6807 |h | Jump_Zero 0x1a1
019a e416 | | Load 0x2,0x16
019b e415 | | Load 0x2,0x15
019c 016d | m | Execute Variant_Record,Structure_Write
019d e416 | | Load 0x2,0x16
019e 4800 |H | Short_Literal 0x0
019f e40c | | Load 0x2,0xc
01a0 8045 | E | Call 0x0,0x45
01a1 e030 | 0 | Load 0x0,0x30
01a2 0092 0206 | | Action Push_String_Extended,0x206 ; "The current position is :"
01a4 8046 | F | Call 0x0,0x46
01a5 e030 | 0 | Load 0x0,0x30
01a6 e418 | | Load 0x2,0x18
01a7 8041 | A | Call 0x0,0x41
01a8 00e0 | | Load_Encached Standard_Cache
01a9 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01aa 8032 | 2 | Call 0x0,0x32
01ab e030 | 0 | Load 0x0,0x30
01ac 0092 0207 | | Action Push_String_Extended,0x207 ; "The up commande is :"
01ae 8046 | F | Call 0x0,0x46
01af e030 | 0 | Load 0x0,0x30
01b0 e413 | | Load 0x2,0x13
01b1 8041 | A | Call 0x0,0x41
01b2 00e0 | | Load_Encached Standard_Cache
01b3 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01b4 8032 | 2 | Call 0x0,0x32
01b5 e030 | 0 | Load 0x0,0x30
01b6 0092 0208 | | Action Push_String_Extended,0x208 ; "The delta y val is :"
01b8 8046 | F | Call 0x0,0x46
01b9 e030 | 0 | Load 0x0,0x30
01ba e416 | | Load 0x2,0x16
01bb 8041 | A | Call 0x0,0x41
01bc 00e0 | | Load_Encached Standard_Cache
01bd 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01be 8032 | 2 | Call 0x0,0x32
01bf e030 | 0 | Load 0x0,0x30
01c0 8031 | 1 | Call 0x0,0x31
01c1 e047 | G | Load 0x0,0x47
01c2 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01c3 e047 | G | Load 0x0,0x47
01c4 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01c5 e02f | / | Load 0x0,0x2f
01c6 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
01c7 00da | | Load_Top At_Offset_2
01c8 017d | } | Execute Record,Structure_Write
01c9 00d9 | | Load_Top At_Offset_1
01ca 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01cb 6034 |`4 | Indirect_Literal Discrete,0x200,{0x00000000, 0x0000ea60}
01cc 0271 | q | Execute Discrete,Times
01cd 005b | [ | Store_Top Discrete,At_Offset_3
01ce 00da | | Load_Top At_Offset_2
01cf 00da | | Load_Top At_Offset_2
01d0 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01d1 4be8 |K | Short_Literal 0x3e8
01d2 0271 | q | Execute Discrete,Times
01d3 0273 | s | Execute Discrete,Plus
01d4 005b | [ | Store_Top Discrete,At_Offset_3
01d5 00da | | Load_Top At_Offset_2
01d6 00da | | Load_Top At_Offset_2
01d7 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
01d8 0273 | s | Execute Discrete,Plus
01d9 005b | [ | Store_Top Discrete,At_Offset_3
01da e048 | H | Load 0x0,0x48
01db 00db | | Load_Top At_Offset_3
01dc 00e0 | | Load_Encached Standard_Cache
01dd 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01de 0092 0209 | | Action Push_String_Extended,0x209 ; " "
01e0 01cc | | Execute Vector,Catenate
01e1 e418 | | Load 0x2,0x18
01e2 8041 | A | Call 0x0,0x41
01e3 00e0 | | Load_Encached Standard_Cache
01e4 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01e5 01cc | | Execute Vector,Catenate
01e6 0092 0209 | | Action Push_String_Extended,0x209 ; " "
01e8 01cc | | Execute Vector,Catenate
01e9 e413 | | Load 0x2,0x13
01ea 8041 | A | Call 0x0,0x41
01eb 00e0 | | Load_Encached Standard_Cache
01ec 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01ed 01cc | | Execute Vector,Catenate
01ee 0092 0209 | | Action Push_String_Extended,0x209 ; " "
01f0 01cc | | Execute Vector,Catenate
01f1 e416 | | Load 0x2,0x16
01f2 8041 | A | Call 0x0,0x41
01f3 00e0 | | Load_Encached Standard_Cache
01f4 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01f5 01cc | | Execute Vector,Catenate
01f6 e414 | | Load 0x2,0x14
01f7 8041 | A | Call 0x0,0x41
01f8 00e0 | | Load_Encached Standard_Cache
01f9 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01fa 01cc | | Execute Vector,Catenate
01fb 0092 020a | | Action Push_String_Extended,0x20a ; " B"
01fd 01cc | | Execute Vector,Catenate
01fe 8049 | I | Call 0x0,0x49
01ff 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0200 0000 0000 | | .LITERAL {0x00000000, 0x0000ea60}
0204 ; --------------------------------------------------------------------------------------
0204 ; STRING TABLE
0204 ; --------------------------------------------------------------------------------------
0204 0010 | | .STRTAB 0x0010->0x020c ; "********************************************************"
0205 0046 | F | .STRTAB 0x0046->0x0228 ; " quadrant B : UPDATE RULE "
0206 0063 | c | .STRTAB 0x0063->0x0237 ; "The current position is :"
0207 007a | z | .STRTAB 0x007a->0x0244 ; "The up commande is :"
0208 008c | | .STRTAB 0x008c->0x024e ; "The delta y val is :"
0209 009e | | .STRTAB 0x009e->0x0258 ; " "
020a 009d | | .STRTAB 0x009d->0x0258 ; " B"
020b 009d | | .STREND 0x009d->0x0259
020c 2a2a 2a2a |****| .STRTAB_STRINGS
025a 0000 0000 | | .BLANK 0000[0x6]
0260 ; --------------------------------------------------------------------------------------
0260 ; Debug Table
0260 ; --------------------------------------------------------------------------------------
0260 0004 0009 | | .DEBUG4 0x0004,0x0009,0x5256,0x0000,0x0001,0x0004
0266 000b 0276 | v| .DBG4T 0x000b,0x0276,0x0000,0x0000
026a 0010 027a | z| .DBG4T 0x0010,0x027a,0x0000,0x0000
026e 001b 027e | ~| .DBG4T 0x001b,0x027e,0x0002,0x0000
0272 00c3 0283 | | .DBG4T 0x00c3,0x0283,0x0001,0x0000
0276 ; --------------------------------------------------------------------------------------
0276 ; Debug chain
0276 ; --------------------------------------------------------------------------------------
0276 0002 0000 | | .DBGLEN 0x0002,0x0000
0278 000b 000d | | .DBGLNO 0x000b,0x000d
027a ; --------------------------------------------------------------------------------------
027a ; Debug chain
027a ; --------------------------------------------------------------------------------------
027a 0002 0000 | | .DBGLEN 0x0002,0x0000
027c 0010 0012 | | .DBGLNO 0x0010,0x0012
027e ; --------------------------------------------------------------------------------------
027e ; Debug chain
027e ; --------------------------------------------------------------------------------------
027e 0002 0001 | | .DBGLEN 0x0002,0x0001
0280 001b 001c | | .DBGLNO 0x001b,0x001c,0x001d
0283 ; --------------------------------------------------------------------------------------
0283 ; Debug chain
0283 ; --------------------------------------------------------------------------------------
0283 001c 0022 | "| .DBGLEN 0x001c,0x0022
0285 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,0x0149,0x014d,0x0151,0x0155,0x0159,0x015d,0x0161,0x0164,0x0168,0x016d,0x0171,0x0176,0x017a,0x017f,0x0183,0x0189,0x018d,0x0191,0x0196,0x019a,0x019d,0x01a1,0x01a5,0x01ab,0x01af,0x01b5,0x01b9,0x01bf,0x01c1,0x01c9,0x01ce,0x01d5,0x01da
02c3 0000 0000 | | .BLANK 0000[0x13d]