|
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_0810ad
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦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 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 0092 | | .CONST 0x0092 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0010 | | .CONST 0x0010 ; Number of locals 000b INIT_0008: 000b 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e e002 | | Load 0x0,0x2 000f 0337 | 7 | Declare_Variable Array 0010 4801 |H | Short_Literal 0x1 0011 480e |H | Short_Literal 0xe 0012 e003 | | Load 0x0,0x3 0013 035b | [ | Declare_Type Array,Constrained 0014 0337 | 7 | Declare_Variable Array 0015 483e |H> | Short_Literal 0x3e 0016 4801 |H | Short_Literal 0x1 0017 00da | | Load_Top At_Offset_2 0018 01d6 | | Execute Vector,Field_Write 0019 4813 |H | Short_Literal 0x13 001a 4802 |H | Short_Literal 0x2 001b 00da | | Load_Top At_Offset_2 001c 01d6 | | Execute Vector,Field_Write 001d 4842 |HB | Short_Literal 0x42 001e 4803 |H | Short_Literal 0x3 001f 00da | | Load_Top At_Offset_2 0020 01d6 | | Execute Vector,Field_Write 0021 4803 |H | Short_Literal 0x3 0022 4804 |H | Short_Literal 0x4 0023 00da | | Load_Top At_Offset_2 0024 01d6 | | Execute Vector,Field_Write 0025 4835 |H5 | Short_Literal 0x35 0026 4805 |H | Short_Literal 0x5 0027 00da | | Load_Top At_Offset_2 0028 01d6 | | Execute Vector,Field_Write 0029 4837 |H7 | Short_Literal 0x37 002a 4806 |H | Short_Literal 0x6 002b 00da | | Load_Top At_Offset_2 002c 01d6 | | Execute Vector,Field_Write 002d 4838 |H8 | Short_Literal 0x38 002e 4807 |H | Short_Literal 0x7 002f 00da | | Load_Top At_Offset_2 0030 01d6 | | Execute Vector,Field_Write 0031 4829 |H) | Short_Literal 0x29 0032 4808 |H | Short_Literal 0x8 0033 00da | | Load_Top At_Offset_2 0034 01d6 | | Execute Vector,Field_Write 0035 482a |H* | Short_Literal 0x2a 0036 4809 |H | Short_Literal 0x9 0037 00da | | Load_Top At_Offset_2 0038 01d6 | | Execute Vector,Field_Write 0039 482b |H+ | Short_Literal 0x2b 003a 480a |H | Short_Literal 0xa 003b 00da | | Load_Top At_Offset_2 003c 01d6 | | Execute Vector,Field_Write 003d 4827 |H' | Short_Literal 0x27 003e 480b |H | Short_Literal 0xb 003f 00da | | Load_Top At_Offset_2 0040 01d6 | | Execute Vector,Field_Write 0041 4825 |H% | Short_Literal 0x25 0042 480c |H | Short_Literal 0xc 0043 00da | | Load_Top At_Offset_2 0044 01d6 | | Execute Vector,Field_Write 0045 4839 |H9 | Short_Literal 0x39 0046 480d |H | Short_Literal 0xd 0047 00da | | Load_Top At_Offset_2 0048 01d6 | | Execute Vector,Field_Write 0049 484a |HJ | Short_Literal 0x4a 004a 480e |H | Short_Literal 0xe 004b 00da | | Load_Top At_Offset_2 004c 01d6 | | Execute Vector,Field_Write 004d 8004 | | Call 0x0,0x4 004e 00d9 | | Load_Top At_Offset_1 004f 01d4 | | Execute Vector,Structure_Write 0050 e002 | | Load 0x0,0x2 0051 0337 | 7 | Declare_Variable Array 0052 4801 |H | Short_Literal 0x1 0053 480d |H | Short_Literal 0xd 0054 e003 | | Load 0x0,0x3 0055 035b | [ | Declare_Type Array,Constrained 0056 0337 | 7 | Declare_Variable Array 0057 483e |H> | Short_Literal 0x3e 0058 4801 |H | Short_Literal 0x1 0059 00da | | Load_Top At_Offset_2 005a 01d6 | | Execute Vector,Field_Write 005b 4842 |HB | Short_Literal 0x42 005c 4802 |H | Short_Literal 0x2 005d 00da | | Load_Top At_Offset_2 005e 01d6 | | Execute Vector,Field_Write 005f 4803 |H | Short_Literal 0x3 0060 4803 |H | Short_Literal 0x3 0061 00da | | Load_Top At_Offset_2 0062 01d6 | | Execute Vector,Field_Write 0063 4837 |H7 | Short_Literal 0x37 0064 4804 |H | Short_Literal 0x4 0065 00da | | Load_Top At_Offset_2 0066 01d6 | | Execute Vector,Field_Write 0067 4838 |H8 | Short_Literal 0x38 0068 4805 |H | Short_Literal 0x5 0069 00da | | Load_Top At_Offset_2 006a 01d6 | | Execute Vector,Field_Write 006b 482a |H* | Short_Literal 0x2a 006c 4806 |H | Short_Literal 0x6 006d 00da | | Load_Top At_Offset_2 006e 01d6 | | Execute Vector,Field_Write 006f 482b |H+ | Short_Literal 0x2b 0070 4807 |H | Short_Literal 0x7 0071 00da | | Load_Top At_Offset_2 0072 01d6 | | Execute Vector,Field_Write 0073 4827 |H' | Short_Literal 0x27 0074 4808 |H | Short_Literal 0x8 0075 00da | | Load_Top At_Offset_2 0076 01d6 | | Execute Vector,Field_Write 0077 4825 |H% | Short_Literal 0x25 0078 4809 |H | Short_Literal 0x9 0079 00da | | Load_Top At_Offset_2 007a 01d6 | | Execute Vector,Field_Write 007b 4839 |H9 | Short_Literal 0x39 007c 480a |H | Short_Literal 0xa 007d 00da | | Load_Top At_Offset_2 007e 01d6 | | Execute Vector,Field_Write 007f 484a |HJ | Short_Literal 0x4a 0080 480b |H | Short_Literal 0xb 0081 00da | | Load_Top At_Offset_2 0082 01d6 | | Execute Vector,Field_Write 0083 4841 |HA | Short_Literal 0x41 0084 480c |H | Short_Literal 0xc 0085 00da | | Load_Top At_Offset_2 0086 01d6 | | Execute Vector,Field_Write 0087 483d |H= | Short_Literal 0x3d 0088 480d |H | Short_Literal 0xd 0089 00da | | Load_Top At_Offset_2 008a 01d6 | | Execute Vector,Field_Write 008b 8004 | | Call 0x0,0x4 008c 00d9 | | Load_Top At_Offset_1 008d 01d4 | | Execute Vector,Structure_Write 008e 029d 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call 0090 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0091 00c7 | | Action Elaborate_Subprogram 0092 BODY_0008: 0092 00bc | | Action Signal_Activated 0093 00bb | | Action Signal_Completion 0094 0000 0000 | | .BLANK 0000[0x4] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009b | | .CONST 0x009b ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0001 | | .CONST 0x0001 ; Number of locals 009b BODY_0098: 009b INIT_0098: 009b e5fb | | Load 0x2,-0x5 009c e5fc | | Load 0x2,-0x4 009d e5fd | | Load 0x2,-0x3 009e e5fe | | Load 0x2,-0x2 009f e5ff | | Load 0x2,-0x1 00a0 8210 | | Call 0x1,0x10 00a1 c5fb | | Store 0x2,-0x5 00a2 00cf | | Action Mark_Auxiliary 00a3 7808 |x | Jump 0xac 00a4 e5fb | | Load 0x2,-0x5 00a5 e5fc | | Load 0x2,-0x4 00a6 e5fd | | Load 0x2,-0x3 00a7 e5fe | | Load 0x2,-0x2 00a8 e5ff | | Load 0x2,-0x1 00a9 8210 | | Call 0x1,0x10 00aa c5fb | | Store 0x2,-0x5 00ab 00c9 | | Action Pop_Auxiliary_Loop 00ac e20e | | Load 0x1,0xe 00ad 8005 | | Call 0x0,0x5 00ae 8006 | | Call 0x0,0x6 00af 77f4 |w | Jump_Nonzero 0xa4 00b0 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00b1 0000 0000 | | .BLANK 0000[0x7] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00e1 | | .CONST 0x00e1 ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 000a | | .CONST 0x000a ; Number of locals 00bb INIT_00b8: 00bb e007 | | Load 0x0,0x7 00bc 0007 | | Action Break_Optional 00bd 4820 |H | Short_Literal 0x20 00be e008 | | Load 0x0,0x8 00bf 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00c0 1c08 | | Execute_Immediate Run_Utility,0x8 00c1 00d8 | | Load_Top At_Offset_0 00c2 1c00 | | Execute_Immediate Run_Utility,0x0 00c3 4820 |H | Short_Literal 0x20 00c4 e008 | | Load 0x0,0x8 00c5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00c6 1c08 | | Execute_Immediate Run_Utility,0x8 00c7 00d8 | | Load_Top At_Offset_0 00c8 1c00 | | Execute_Immediate Run_Utility,0x0 00c9 4820 |H | Short_Literal 0x20 00ca e008 | | Load 0x0,0x8 00cb 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00cc 1c08 | | Execute_Immediate Run_Utility,0x8 00cd 00d8 | | Load_Top At_Offset_0 00ce 1c00 | | Execute_Immediate Run_Utility,0x0 00cf 4820 |H | Short_Literal 0x20 00d0 e008 | | Load 0x0,0x8 00d1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00d2 1c08 | | Execute_Immediate Run_Utility,0x8 00d3 00d8 | | Load_Top At_Offset_0 00d4 1c00 | | Execute_Immediate Run_Utility,0x0 00d5 4820 |H | Short_Literal 0x20 00d6 e008 | | Load 0x0,0x8 00d7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00d8 1c08 | | Execute_Immediate Run_Utility,0x8 00d9 00d8 | | Load_Top At_Offset_0 00da 1c00 | | Execute_Immediate Run_Utility,0x0 00db e007 | | Load 0x0,0x7 00dc 0007 | | Action Break_Optional 00dd e009 | | Load 0x0,0x9 00de 0007 | | Action Break_Optional 00df e00a | | Load 0x0,0xa 00e0 0322 | " | Declare_Variable Record 00e1 BODY_00b8: 00e1 e00b | | Load 0x0,0xb 00e2 8005 | | Call 0x0,0x5 00e3 8006 | | Call 0x0,0x6 00e4 6808 |h | Jump_Zero 0xed 00e5 e5fb | | Load 0x2,-0x5 00e6 e5fc | | Load 0x2,-0x4 00e7 e5fd | | Load 0x2,-0x3 00e8 e5fe | | Load 0x2,-0x2 00e9 e5ff | | Load 0x2,-0x1 00ea 800c | | Call 0x0,0xc 00eb c5fb | | Store 0x2,-0x5 00ec 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00ed e00d | | Load 0x0,0xd 00ee 8005 | | Call 0x0,0x5 00ef 8006 | | Call 0x0,0x6 00f0 681a |h | Jump_Zero 0x10b 00f1 e404 | | Load 0x2,0x4 00f2 e403 | | Load 0x2,0x3 00f3 800e | | Call 0x0,0xe 00f4 00d2 | | Pop_Control Pop_Count_2 00f5 8005 | | Call 0x0,0x5 00f6 0f04 | | Execute_Immediate Equal,0x4 00f7 680e |h | Jump_Zero 0x106 00f8 800f | | Call 0x0,0xf 00f9 00d9 | | Load_Top At_Offset_1 00fa e5fe | | Load 0x2,-0x2 00fb e5ff | | Load 0x2,-0x1 00fc 8010 | | Call 0x0,0x10 00fd 003a | : | Store_Top Access,At_Offset_2 00fe e5fb | | Load 0x2,-0x5 00ff 00da | | Load_Top At_Offset_2 0100 e404 | | Load 0x2,0x4 0101 e403 | | Load 0x2,0x3 0102 8011 | | Call 0x0,0x11 0103 8012 | | Call 0x0,0x12 0104 c5fb | | Store 0x2,-0x5 0105 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0106 e20f | | Load 0x1,0xf 0107 0092 0217 | | Action Push_String_Extended,0x217 ; "Manque :=" 0109 8013 | | Call 0x0,0x13 010a 4505 |E | Exit_Suprogram New_Top_Offset 0x5 010b 8005 | | Call 0x0,0x5 010c 00d8 | | Load_Top At_Offset_0 010d 0d25 | % | Execute_Immediate Less,0x25 010e 702e |p. | Jump_Nonzero 0x13d 010f 0adb | | Execute_Immediate Plus,-0x25 0110 4625 |F% | Jump_Case 0x26 0111 7831 |x1 | Jump 0x143 ; case 0x0 0112 782b |x+ | Jump 0x13e ; case 0x1 0113 78bb |x | Jump 0x1cf ; case 0x2 0114 7829 |x) | Jump 0x13e ; case 0x3 0115 7828 |x( | Jump 0x13e ; case 0x4 0116 7864 |xd | Jump 0x17b ; case 0x5 0117 7863 |xc | Jump 0x17b ; case 0x6 0118 7825 |x% | Jump 0x13e ; case 0x7 0119 7824 |x$ | Jump 0x13e ; case 0x8 011a 7823 |x# | Jump 0x13e ; case 0x9 011b 7822 |x" | Jump 0x13e ; case 0xa 011c 7821 |x! | Jump 0x13e ; case 0xb 011d 7820 |x | Jump 0x13e ; case 0xc 011e 781f |x | Jump 0x13e ; case 0xd 011f 781e |x | Jump 0x13e ; case 0xe 0120 781d |x | Jump 0x13e ; case 0xf 0121 781c |x | Jump 0x13e ; case 0x10 0122 781b |x | Jump 0x13e ; case 0x11 0123 7857 |xW | Jump 0x17b ; case 0x12 0124 7856 |xV | Jump 0x17b ; case 0x13 0125 78d2 |x | Jump 0x1f8 ; case 0x14 0126 7817 |x | Jump 0x13e ; case 0x15 0127 7816 |x | Jump 0x13e ; case 0x16 0128 7815 |x | Jump 0x13e ; case 0x17 0129 7814 |x | Jump 0x13e ; case 0x18 012a 7813 |x | Jump 0x13e ; case 0x19 012b 7812 |x | Jump 0x13e ; case 0x1a 012c 7811 |x | Jump 0x13e ; case 0x1b 012d 7810 |x | Jump 0x13e ; case 0x1c 012e 780f |x | Jump 0x13e ; case 0x1d 012f 780e |x | Jump 0x13e ; case 0x1e 0130 780d |x | Jump 0x13e ; case 0x1f 0131 780c |x | Jump 0x13e ; case 0x20 0132 780b |x | Jump 0x13e ; case 0x21 0133 780a |x | Jump 0x13e ; case 0x22 0134 7809 |x | Jump 0x13e ; case 0x23 0135 7808 |x | Jump 0x13e ; case 0x24 0136 7800 |x | Jump 0x137 ; case 0x25 0137 800f | | Call 0x0,0xf 0138 e5fb | | Load 0x2,-0x5 0139 8014 | | Call 0x0,0x14 013a 8012 | | Call 0x0,0x12 013b c5fb | | Store 0x2,-0x5 013c 4505 |E | Exit_Suprogram New_Top_Offset 0x5 013d 00d1 | | Pop_Control Pop_Count_1 013e e20f | | Load 0x1,0xf 013f 0092 0218 | | Action Push_String_Extended,0x218 ; "Mauvaise instruction" 0141 8013 | | Call 0x0,0x13 0142 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0143 8005 | | Call 0x0,0x5 0144 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0145 800f | | Call 0x0,0xf 0146 8005 | | Call 0x0,0x5 0147 0f0a | | Execute_Immediate Equal,0xa 0148 682d |h- | Jump_Zero 0x176 0149 800f | | Call 0x0,0xf 014a e405 | | Load 0x2,0x5 014b 8015 | | Call 0x0,0x15 014c 00d1 | | Pop_Control Pop_Count_1 014d 8005 | | Call 0x0,0x5 014e 0f0c | | Execute_Immediate Equal,0xc 014f 6821 |h! | Jump_Zero 0x171 0150 800f | | Call 0x0,0xf 0151 e406 | | Load 0x2,0x6 0152 8015 | | Call 0x0,0x15 0153 00d1 | | Pop_Control Pop_Count_1 0154 8005 | | Call 0x0,0x5 0155 0f0c | | Execute_Immediate Equal,0xc 0156 6815 |h | Jump_Zero 0x16c 0157 800f | | Call 0x0,0xf 0158 00db | | Load_Top At_Offset_3 0159 8015 | | Call 0x0,0x15 015a 00d1 | | Pop_Control Pop_Count_1 015b 8005 | | Call 0x0,0x5 015c 0f0b | | Execute_Immediate Equal,0xb 015d 6809 |h | Jump_Zero 0x167 015e 800f | | Call 0x0,0xf 015f e5fb | | Load 0x2,-0x5 0160 e407 | | Load 0x2,0x7 0161 e406 | | Load 0x2,0x6 0162 e405 | | Load 0x2,0x5 0163 8016 | | Call 0x0,0x16 0164 8012 | | Call 0x0,0x12 0165 c5fb | | Store 0x2,-0x5 0166 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0167 e20f | | Load 0x1,0xf 0168 0092 0219 | | Action Push_String_Extended,0x219 ; "Manque )" 016a 8013 | | Call 0x0,0x13 016b 4505 |E | Exit_Suprogram New_Top_Offset 0x5 016c e20f | | Load 0x1,0xf 016d 0092 021a | | Action Push_String_Extended,0x21a ; "Manque ," 016f 8013 | | Call 0x0,0x13 0170 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0171 e20f | | Load 0x1,0xf 0172 0092 021a | | Action Push_String_Extended,0x21a ; "Manque ," 0174 8013 | | Call 0x0,0x13 0175 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0176 e20f | | Load 0x1,0xf 0177 0092 021b | | Action Push_String_Extended,0x21b ; "Manque (" 0179 8013 | | Call 0x0,0x13 017a 4505 |E | Exit_Suprogram New_Top_Offset 0x5 017b 8005 | | Call 0x0,0x5 017c 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 017d 800f | | Call 0x0,0xf 017e 8005 | | Call 0x0,0x5 017f 0f0a | | Execute_Immediate Equal,0xa 0180 6849 |hI | Jump_Zero 0x1ca 0181 800f | | Call 0x0,0xf 0182 e405 | | Load 0x2,0x5 0183 8015 | | Call 0x0,0x15 0184 00d1 | | Pop_Control Pop_Count_1 0185 8005 | | Call 0x0,0x5 0186 0f0c | | Execute_Immediate Equal,0xc 0187 683d |h= | Jump_Zero 0x1c5 0188 800f | | Call 0x0,0xf 0189 e406 | | Load 0x2,0x6 018a 8015 | | Call 0x0,0x15 018b 00d1 | | Pop_Control Pop_Count_1 018c 8005 | | Call 0x0,0x5 018d 0f0b | | Execute_Immediate Equal,0xb 018e 6831 |h1 | Jump_Zero 0x1c0 018f 800f | | Call 0x0,0xf 0190 00da | | Load_Top At_Offset_2 0191 00d8 | | Load_Top At_Offset_0 0192 482a |H* | Short_Literal 0x2a 0193 4838 |H8 | Short_Literal 0x38 0194 0262 | b | Execute Discrete,In_Range 0195 680a |h | Jump_Zero 0x1a0 0196 0b2a | * | Execute_Immediate Case_Compare,0x2a 0197 7011 |p | Jump_Nonzero 0x1a9 0198 0b2b | + | Execute_Immediate Case_Compare,0x2b 0199 7017 |p | Jump_Nonzero 0x1b1 019a 00d8 | | Load_Top At_Offset_0 019b 0c37 | 7 | Execute_Immediate Greater_Equal,0x37 019c 6803 |h | Jump_Zero 0x1a0 019d 0f38 | 8 | Execute_Immediate Equal,0x38 019e 7003 |p | Jump_Nonzero 0x1a2 019f 7819 |x | Jump 0x1b9 01a0 00d1 | | Pop_Control Pop_Count_1 01a1 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01a2 e5fb | | Load 0x2,-0x5 01a3 e406 | | Load 0x2,0x6 01a4 e405 | | Load 0x2,0x5 01a5 8017 | | Call 0x0,0x17 01a6 8012 | | Call 0x0,0x12 01a7 c5fb | | Store 0x2,-0x5 01a8 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01a9 00d1 | | Pop_Control Pop_Count_1 01aa e5fb | | Load 0x2,-0x5 01ab e406 | | Load 0x2,0x6 01ac e405 | | Load 0x2,0x5 01ad 8018 | | Call 0x0,0x18 01ae 8012 | | Call 0x0,0x12 01af c5fb | | Store 0x2,-0x5 01b0 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01b1 00d1 | | Pop_Control Pop_Count_1 01b2 e5fb | | Load 0x2,-0x5 01b3 e406 | | Load 0x2,0x6 01b4 e405 | | Load 0x2,0x5 01b5 8018 | | Call 0x0,0x18 01b6 8012 | | Call 0x0,0x12 01b7 c5fb | | Store 0x2,-0x5 01b8 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01b9 e5fb | | Load 0x2,-0x5 01ba e406 | | Load 0x2,0x6 01bb e405 | | Load 0x2,0x5 01bc 8019 | | Call 0x0,0x19 01bd 8012 | | Call 0x0,0x12 01be c5fb | | Store 0x2,-0x5 01bf 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01c0 e20f | | Load 0x1,0xf 01c1 0092 0219 | | Action Push_String_Extended,0x219 ; "Manque )" 01c3 8013 | | Call 0x0,0x13 01c4 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01c5 e20f | | Load 0x1,0xf 01c6 0092 021a | | Action Push_String_Extended,0x21a ; "Manque ," 01c8 8013 | | Call 0x0,0x13 01c9 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01ca e20f | | Load 0x1,0xf 01cb 0092 021b | | Action Push_String_Extended,0x21b ; "Manque (" 01cd 8013 | | Call 0x0,0x13 01ce 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01cf 800f | | Call 0x0,0xf 01d0 8005 | | Call 0x0,0x5 01d1 0f0a | | Execute_Immediate Equal,0xa 01d2 6820 |h | Jump_Zero 0x1f3 01d3 800f | | Call 0x0,0xf 01d4 e405 | | Load 0x2,0x5 01d5 8015 | | Call 0x0,0x15 01d6 00d1 | | Pop_Control Pop_Count_1 01d7 8005 | | Call 0x0,0x5 01d8 0f0c | | Execute_Immediate Equal,0xc 01d9 6814 |h | Jump_Zero 0x1ee 01da 800f | | Call 0x0,0xf 01db e007 | | Load 0x0,0x7 01dc 801a | | Call 0x0,0x1a 01dd c402 | | Store 0x2,0x2 01de 8005 | | Call 0x0,0x5 01df 0f0b | | Execute_Immediate Equal,0xb 01e0 6808 |h | Jump_Zero 0x1e9 01e1 800f | | Call 0x0,0xf 01e2 e5fb | | Load 0x2,-0x5 01e3 e402 | | Load 0x2,0x2 01e4 e405 | | Load 0x2,0x5 01e5 801b | | Call 0x0,0x1b 01e6 8012 | | Call 0x0,0x12 01e7 c5fb | | Store 0x2,-0x5 01e8 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01e9 e20f | | Load 0x1,0xf 01ea 0092 0219 | | Action Push_String_Extended,0x219 ; "Manque )" 01ec 8013 | | Call 0x0,0x13 01ed 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01ee e20f | | Load 0x1,0xf 01ef 0092 021a | | Action Push_String_Extended,0x21a ; "Manque ," 01f1 8013 | | Call 0x0,0x13 01f2 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01f3 e20f | | Load 0x1,0xf 01f4 0092 021b | | Action Push_String_Extended,0x21b ; "Manque (" 01f6 8013 | | Call 0x0,0x13 01f7 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01f8 800f | | Call 0x0,0xf 01f9 8005 | | Call 0x0,0x5 01fa 0f0a | | Execute_Immediate Equal,0xa 01fb 6816 |h | Jump_Zero 0x212 01fc 800f | | Call 0x0,0xf 01fd 00d8 | | Load_Top At_Offset_0 01fe 801c | | Call 0x0,0x1c 01ff 00d1 | | Pop_Control Pop_Count_1 0200 00d8 | | Load_Top At_Offset_0 0201 801d | | Call 0x0,0x1d 0202 00d1 | | Pop_Control Pop_Count_1 0203 8005 | | Call 0x0,0x5 0204 0f0b | | Execute_Immediate Equal,0xb 0205 6807 |h | Jump_Zero 0x20d 0206 800f | | Call 0x0,0xf 0207 e5fb | | Load 0x2,-0x5 0208 00d9 | | Load_Top At_Offset_1 0209 801e | | Call 0x0,0x1e 020a 8012 | | Call 0x0,0x12 020b c5fb | | Store 0x2,-0x5 020c 4505 |E | Exit_Suprogram New_Top_Offset 0x5 020d e20f | | Load 0x1,0xf 020e 0092 0219 | | Action Push_String_Extended,0x219 ; "Manque )" 0210 8013 | | Call 0x0,0x13 0211 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0212 e20f | | Load 0x1,0xf 0213 0092 021b | | Action Push_String_Extended,0x21b ; "Manque (" 0215 8013 | | Call 0x0,0x13 0216 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0217 ; -------------------------------------------------------------------------------------- 0217 ; STRING TABLE 0217 ; -------------------------------------------------------------------------------------- 0217 000c | | .STRTAB 0x000c->0x021d ; "Manque :=" 0218 0013 | | .STRTAB 0x0013->0x0221 ; "Mauvaise instruction" 0219 0025 | % | .STRTAB 0x0025->0x022b ; "Manque )" 021a 002b | + | .STRTAB 0x002b->0x022f ; "Manque ," 021b 0031 | 1 | .STRTAB 0x0031->0x0233 ; "Manque (" 021c 0037 | 7 | .STREND 0x0037->0x0237 021d 4d61 6e71 |Manq| .STRTAB_STRINGS 0238 ; -------------------------------------------------------------------------------------- 0238 ; Debug Table 0238 ; -------------------------------------------------------------------------------------- 0238 0004 0008 | | .DEBUG4 0x0004,0x0008,0xd5c7,0x0000,0x0001,0x0004 023e 000b 024e | N| .DBG4T 0x000b,0x024e,0x8000,0x0000 0242 000e 0251 | Q| .DBG4T 0x000e,0x0251,0x8000,0x0000 0246 009b 0257 | W| .DBG4T 0x009b,0x0257,0x0001,0x4000 024a 00bb 025f | _| .DBG4T 0x00bb,0x025f,0x0001,0x4000 024e ; -------------------------------------------------------------------------------------- 024e ; Debug chain 024e ; -------------------------------------------------------------------------------------- 024e 0001 0000 | | .DBGLEN 0x0001,0x0000 0250 000b | | .DBGLNO 0x000b 0251 ; -------------------------------------------------------------------------------------- 0251 ; Debug chain 0251 ; -------------------------------------------------------------------------------------- 0251 0004 0000 | | .DBGLEN 0x0004,0x0000 0253 000e 0050 | P| .DBGLNO 0x000e,0x0050,0x008e,0x0090 0257 ; -------------------------------------------------------------------------------------- 0257 ; Debug chain 0257 ; -------------------------------------------------------------------------------------- 0257 0000 0003 | | .DBGLEN 0x0000,0x0003 0259 009b 00a4 | | .DBGLNO 0x009b,0x00a4,0x00ac 025c 0001 0003 | | .XXX[0x3] 025e 0002 | | 025f ; -------------------------------------------------------------------------------------- 025f ; Debug chain 025f ; -------------------------------------------------------------------------------------- 025f 0006 0048 | H| .DBGLEN 0x0006,0x0048 0261 00bb 00bd | | .DBGLNO 0x00bb,0x00bd,0x00c9,0x00db,0x00dd,0x00df,0x00e1,0x00e5,0x00ed,0x00f1,0x00f5,0x00f8,0x00f9,0x00fe,0x0106,0x010b,0x0137,0x0138,0x013e,0x0143,0x0145,0x0146,0x0149,0x014a,0x014d,0x0150,0x0151,0x0154,0x0157,0x0158,0x015b,0x015e,0x015f,0x0167,0x016c,0x0171,0x0176,0x017b,0x017d,0x017e,0x0181,0x0182,0x0185,0x0188,0x0189,0x018c,0x018f,0x0190,0x01a2,0x01aa,0x01b2,0x01b9,0x01c0,0x01c5,0x01ca,0x01cf,0x01d0,0x01d3,0x01d4,0x01d7,0x01da,0x01db,0x01de,0x01e1,0x01e2,0x01e9,0x01ee,0x01f3,0x01f8,0x01f9,0x01fc,0x01fd,0x0200,0x0203,0x0206,0x0207,0x020d,0x0212 02af 0001 0002 | | .XXX[0x48] 02b1 0003 0004 | | 02b3 0005 0006 | | 02b5 0007 0008 | | 02b7 0009 000a | | 02b9 0047 0048 | G H| 02bb 0049 000b | I | 02bd 000c 000d | | 02bf 000e 000f | | 02c1 0010 0011 | | 02c3 0012 0013 | | 02c5 0014 0015 | | 02c7 0016 0017 | | 02c9 0018 0019 | | 02cb 001a 001b | | 02cd 001c 001d | | 02cf 001e 001f | | 02d1 0020 0021 | !| 02d3 0022 0023 | " #| 02d5 0024 0025 | $ %| 02d7 0026 0027 | & '| 02d9 0029 002a | ) *| 02db 002b 0028 | + (| 02dd 002d 002e | - .| 02df 002f 0030 | / 0| 02e1 0031 0032 | 1 2| 02e3 0033 0034 | 3 4| 02e5 0035 0036 | 5 6| 02e7 0037 0038 | 7 8| 02e9 0039 003a | 9 :| 02eb 003b 003c | ; <| 02ed 003d 003e | = >| 02ef 003f 0040 | ? @| 02f1 0041 0042 | A B| 02f3 0043 0044 | C D| 02f5 0045 0046 | E F| 02f7 0000 0000 | | .BLANK 0000[0x109]