|
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: 3072 (0xc00) Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0eacf9
└─⟦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 03a0 | | .CONST 0x03a0 ; 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 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0047 | G | .CONST 0x0047 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001f | | .CONST 0x001f ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 480e |H | Short_Literal 0xe 000d 029f 0053 | S| Declare_Subprogram INIT_0050,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 4800 |H | Short_Literal 0x0 0011 4804 |H | Short_Literal 0x4 0012 029f 007b | {| Declare_Subprogram INIT_0078,For_Call 0014 03fe | | Declare_Type Discrete,Defined,Visible 0015 4801 |H | Short_Literal 0x1 0016 48ff |H | Short_Literal 0xff 0017 00e9 | | Load_Encached String_Cache 0018 035c | \ | Declare_Type Array,Constrained,Visible 0019 00e1 | | Load_Encached Boolean_Cache 001a 0400 | | Execute_Immediate Set_Value_Visible_Unchecked,0x0 001b 00e1 | | Load_Encached Boolean_Cache 001c 0400 | | Execute_Immediate Set_Value_Visible_Unchecked,0x0 001d e002 | | Load 0x0,0x2 001e 0336 | 6 | Declare_Variable Array,Visible 001f e003 | | Load 0x0,0x3 0020 0321 | ! | Declare_Variable Record,Visible 0021 e004 | | Load 0x0,0x4 0022 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0023 02c6 | | Declare_Variable Any,Visible 0024 00d8 | | Load_Top At_Offset_0 0025 1c00 | | Execute_Immediate Run_Utility,0x0 0026 e20f | | Load 0x1,0xf 0027 0336 | 6 | Declare_Variable Array,Visible 0028 00e3 | | Load_Encached Natural_Cache 0029 0129 | ) | Execute Any,Make_Visible 002a e20f | | Load 0x1,0xf 002b 0336 | 6 | Declare_Variable Array,Visible 002c 00e3 | | Load_Encached Natural_Cache 002d 0129 | ) | Execute Any,Make_Visible 002e e20e | | Load 0x1,0xe 002f 0404 | | Execute_Immediate Set_Value_Visible_Unchecked,0x4 0030 e20d | | Load 0x1,0xd 0031 0129 | ) | Execute Any,Make_Visible 0032 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated 0034 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated 0036 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 0038 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 003a 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated 003c 00bf | | Action Accept_Activation 003d 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 003e 00c7 | | Action Elaborate_Subprogram 003f 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0040 00c7 | | Action Elaborate_Subprogram 0041 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0042 00c7 | | Action Elaborate_Subprogram 0043 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0044 00c7 | | Action Elaborate_Subprogram 0045 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0046 00c7 | | Action Elaborate_Subprogram 0047 BODY_0008: 0047 00be | | Action Activate_Tasks 0048 00bc | | Action Signal_Activated 0049 00bb | | Action Signal_Completion 004a 0000 0000 | | .BLANK 0000[0x6] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0053 | S | .CONST 0x0053 ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0001 | | .CONST 0x0001 ; Number of locals 0053 BODY_0050: 0053 INIT_0050: 0053 4607 |F | Jump_Case 0x8 0054 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0055 7807 |x | Jump 0x5d ; case 0x1 0056 780a |x | Jump 0x61 ; case 0x2 0057 780e |x | Jump 0x66 ; case 0x3 0058 7811 |x | Jump 0x6a ; case 0x4 0059 7812 |x | Jump 0x6c ; case 0x5 005a 7813 |x | Jump 0x6e ; case 0x6 005b 7816 |x | Jump 0x72 ; case 0x7 005c 4302 |C | .XXX[0x1] 005d 00da | | Load_Top At_Offset_2 005e 0091 0296 | | Action Push_String_Extended_Indexed,0x296 ; "TYP_CODE_SITE" 0060 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0061 00db | | Load_Top At_Offset_3 0062 00db | | Load_Top At_Offset_3 0063 00e0 | | Load_Encached Standard_Cache 0064 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0065 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0066 00da | | Load_Top At_Offset_2 0067 00e0 | | Load_Encached Standard_Cache 0068 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0069 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 006a 00db | | Load_Top At_Offset_3 006b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 006c 00db | | Load_Top At_Offset_3 006d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 006e e20d | | Load 0x1,0xd 006f 00dc | | Load_Top At_Offset_4 0070 0267 | g | Execute Discrete,Predecessor 0071 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0072 e20d | | Load 0x1,0xd 0073 00dc | | Load_Top At_Offset_4 0074 0268 | h | Execute Discrete,Successor 0075 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0076 0000 0000 | | .XXX[0x2] 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 007b | { | .CONST 0x007b ; Address of begin 0079 0004 | | .CONST 0x0004 ; Address of exception handler 007a 0001 | | .CONST 0x0001 ; Number of locals 007b BODY_0078: 007b INIT_0078: 007b 4607 |F | Jump_Case 0x8 007c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 007d 7807 |x | Jump 0x85 ; case 0x1 007e 780a |x | Jump 0x89 ; case 0x2 007f 780e |x | Jump 0x8e ; case 0x3 0080 7811 |x | Jump 0x92 ; case 0x4 0081 7812 |x | Jump 0x94 ; case 0x5 0082 7813 |x | Jump 0x96 ; case 0x6 0083 7816 |x | Jump 0x9a ; case 0x7 0084 4302 |C | .XXX[0x1] 0085 00da | | Load_Top At_Offset_2 0086 0091 02a5 | | Action Push_String_Extended_Indexed,0x2a5 ; "IDENTIFICATEUR" 0088 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0089 00db | | Load_Top At_Offset_3 008a 00db | | Load_Top At_Offset_3 008b 00e0 | | Load_Encached Standard_Cache 008c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 008d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 008e 00da | | Load_Top At_Offset_2 008f 00e0 | | Load_Encached Standard_Cache 0090 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0091 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0092 00db | | Load_Top At_Offset_3 0093 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0094 00db | | Load_Top At_Offset_3 0095 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0096 e20e | | Load 0x1,0xe 0097 00dc | | Load_Top At_Offset_4 0098 0267 | g | Execute Discrete,Predecessor 0099 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 009a e20e | | Load 0x1,0xe 009b 00dc | | Load_Top At_Offset_4 009c 0268 | h | Execute Discrete,Successor 009d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 009e 0000 0000 | | .XXX[0x2] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a9 | | .CONST 0x00a9 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0003 | | .CONST 0x0003 ; Number of locals 00a3 INIT_00a0: 00a3 4801 |H | Short_Literal 0x1 00a4 4828 |H( | Short_Literal 0x28 00a5 00e9 | | Load_Encached String_Cache 00a6 035b | [ | Declare_Type Array,Constrained 00a7 0337 | 7 | Declare_Variable Array 00a8 00e3 | | Load_Encached Natural_Cache 00a9 BODY_00a0: 00a9 e212 | | Load 0x1,0x12 00aa 8005 | | Call 0x0,0x5 00ab 00d1 | | Pop_Control Pop_Count_1 00ac e213 | | Load 0x1,0x13 00ad 4801 |H | Short_Literal 0x1 00ae 4800 |H | Short_Literal 0x0 00af 8006 | | Call 0x0,0x6 00b0 00d1 | | Pop_Control Pop_Count_1 00b1 0092 02aa | | Action Push_String_Extended,0x2aa ; "Donnez le nom du fichier de configuration" 00b3 e004 | | Load 0x0,0x4 00b4 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00b5 00e3 | | Load_Encached Natural_Cache 00b6 00da | | Load_Top At_Offset_2 00b7 e004 | | Load 0x0,0x4 00b8 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 00b9 00d1 | | Pop_Control Pop_Count_1 00ba 0059 | Y | Store_Top Discrete,At_Offset_1 00bb e214 | | Load 0x1,0x14 00bc 00ea | | Load_Encached Null_String_Cache 00bd 4801 |H | Short_Literal 0x1 00be 00db | | Load_Top At_Offset_3 00bf e402 | | Load 0x2,0x2 00c0 01cf | | Execute Vector,Slice_Read 00c1 4800 |H | Short_Literal 0x0 00c2 e004 | | Load 0x0,0x4 00c3 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00c4 c214 | | Store 0x1,0x14 00c5 e214 | | Load 0x1,0x14 00c6 e004 | | Load 0x0,0x4 00c7 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00c8 6805 |h | Jump_Zero 0xce 00c9 0092 02ab | | Action Push_String_Extended,0x2ab ; "Lecture du fichier de configuration" 00cb e004 | | Load 0x0,0x4 00cc 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00cd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00ce 0092 02ac | | Action Push_String_Extended,0x2ac ; "Echec d'ouverture du fichier de configuration !" 00d0 e004 | | Load 0x0,0x4 00d1 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00d2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00d3 0000 0000 | | .BLANK 0000[0x5] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00db | | .CONST 0x00db ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0001 | | .CONST 0x0001 ; Number of locals 00db BODY_00d8: 00db INIT_00d8: 00db e214 | | Load 0x1,0x14 00dc e004 | | Load 0x0,0x4 00dd 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00de c214 | | Store 0x1,0x14 00df 0092 02ad | | Action Push_String_Extended,0x2ad ; "Fermeture du fichier de configuration" 00e1 e004 | | Load 0x0,0x4 00e2 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00e3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00e4 0000 0000 | | .BLANK 0000[0x4] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00eb | | .CONST 0x00eb ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0001 | | .CONST 0x0001 ; Number of locals 00eb BODY_00e8: 00eb INIT_00e8: 00eb e216 | | Load 0x1,0x16 00ec e213 | | Load 0x1,0x13 00ed 8007 | | Call 0x0,0x7 00ee 027c | | | Execute Discrete,Less 00ef 6802 |h | Jump_Zero 0xf2 00f0 4805 |H | Short_Literal 0x5 00f1 00ca | | Action Exit_Nullary_Function 00f2 e213 | | Load 0x1,0x13 00f3 8007 | | Call 0x0,0x7 00f4 e215 | | Load 0x1,0x15 00f5 01d7 | | Execute Vector,Field_Read 00f6 00d8 | | Load_Top At_Offset_0 00f7 0d20 | | Execute_Immediate Less,0x20 00f8 704b |pK | Jump_Nonzero 0x144 00f9 00d8 | | Load_Top At_Offset_0 00fa 0c61 | a | Execute_Immediate Greater_Equal,0x61 00fb 7045 |pE | Jump_Nonzero 0x141 00fc 0ae0 | | Execute_Immediate Plus,-0x20 00fd 4640 |F@ | Jump_Case 0x41 00fe 784b |xK | Jump 0x14a ; case 0x0 00ff 783f |x? | Jump 0x13f ; case 0x1 0100 783e |x> | Jump 0x13f ; case 0x2 0101 784c |xL | Jump 0x14e ; case 0x3 0102 783c |x< | Jump 0x13f ; case 0x4 0103 783b |x; | Jump 0x13f ; case 0x5 0104 783a |x: | Jump 0x13f ; case 0x6 0105 7839 |x9 | Jump 0x13f ; case 0x7 0106 7838 |x8 | Jump 0x13f ; case 0x8 0107 7837 |x7 | Jump 0x13f ; case 0x9 0108 7836 |x6 | Jump 0x13f ; case 0xa 0109 7835 |x5 | Jump 0x13f ; case 0xb 010a 7841 |xA | Jump 0x14c ; case 0xc 010b 7840 |x@ | Jump 0x14c ; case 0xd 010c 7832 |x2 | Jump 0x13f ; case 0xe 010d 7831 |x1 | Jump 0x13f ; case 0xf 010e 7839 |x9 | Jump 0x148 ; case 0x10 010f 7838 |x8 | Jump 0x148 ; case 0x11 0110 7837 |x7 | Jump 0x148 ; case 0x12 0111 7836 |x6 | Jump 0x148 ; case 0x13 0112 7835 |x5 | Jump 0x148 ; case 0x14 0113 7834 |x4 | Jump 0x148 ; case 0x15 0114 7833 |x3 | Jump 0x148 ; case 0x16 0115 7832 |x2 | Jump 0x148 ; case 0x17 0116 7831 |x1 | Jump 0x148 ; case 0x18 0117 7830 |x0 | Jump 0x148 ; case 0x19 0118 7833 |x3 | Jump 0x14c ; case 0x1a 0119 7832 |x2 | Jump 0x14c ; case 0x1b 011a 7824 |x$ | Jump 0x13f ; case 0x1c 011b 7830 |x0 | Jump 0x14c ; case 0x1d 011c 7822 |x" | Jump 0x13f ; case 0x1e 011d 7821 |x! | Jump 0x13f ; case 0x1f 011e 7820 |x | Jump 0x13f ; case 0x20 011f 7826 |x& | Jump 0x146 ; case 0x21 0120 7825 |x% | Jump 0x146 ; case 0x22 0121 7824 |x$ | Jump 0x146 ; case 0x23 0122 7823 |x# | Jump 0x146 ; case 0x24 0123 7822 |x" | Jump 0x146 ; case 0x25 0124 7821 |x! | Jump 0x146 ; case 0x26 0125 7820 |x | Jump 0x146 ; case 0x27 0126 781f |x | Jump 0x146 ; case 0x28 0127 781e |x | Jump 0x146 ; case 0x29 0128 781d |x | Jump 0x146 ; case 0x2a 0129 781c |x | Jump 0x146 ; case 0x2b 012a 781b |x | Jump 0x146 ; case 0x2c 012b 781a |x | Jump 0x146 ; case 0x2d 012c 7819 |x | Jump 0x146 ; case 0x2e 012d 7818 |x | Jump 0x146 ; case 0x2f 012e 7817 |x | Jump 0x146 ; case 0x30 012f 7816 |x | Jump 0x146 ; case 0x31 0130 7815 |x | Jump 0x146 ; case 0x32 0131 7814 |x | Jump 0x146 ; case 0x33 0132 7813 |x | Jump 0x146 ; case 0x34 0133 7812 |x | Jump 0x146 ; case 0x35 0134 7811 |x | Jump 0x146 ; case 0x36 0135 7810 |x | Jump 0x146 ; case 0x37 0136 780f |x | Jump 0x146 ; case 0x38 0137 780e |x | Jump 0x146 ; case 0x39 0138 780d |x | Jump 0x146 ; case 0x3a 0139 7805 |x | Jump 0x13f ; case 0x3b 013a 7804 |x | Jump 0x13f ; case 0x3c 013b 7803 |x | Jump 0x13f ; case 0x3d 013c 7802 |x | Jump 0x13f ; case 0x3e 013d 7808 |x | Jump 0x146 ; case 0x3f 013e 7800 |x | Jump 0x13f ; case 0x40 013f 4804 |H | Short_Literal 0x4 0140 00ca | | Action Exit_Nullary_Function 0141 0c7b | { | Execute_Immediate Greater_Equal,0x7b 0142 6803 |h | Jump_Zero 0x146 0143 7ffb | | Jump 0x13f 0144 00d1 | | Pop_Control Pop_Count_1 0145 7ff9 | | Jump 0x13f 0146 4800 |H | Short_Literal 0x0 0147 00ca | | Action Exit_Nullary_Function 0148 4801 |H | Short_Literal 0x1 0149 00ca | | Action Exit_Nullary_Function 014a 4803 |H | Short_Literal 0x3 014b 00ca | | Action Exit_Nullary_Function 014c 4802 |H | Short_Literal 0x2 014d 00ca | | Action Exit_Nullary_Function 014e 4805 |H | Short_Literal 0x5 014f 00ca | | Action Exit_Nullary_Function 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0154 | T | .CONST 0x0154 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0002 | | .CONST 0x0002 ; Number of locals 0153 INIT_0150: 0153 00e2 | | Load_Encached Integer_Cache 0154 BODY_0150: 0154 4800 |H | Short_Literal 0x0 0155 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0156 4801 |H | Short_Literal 0x1 0157 a218 | | Store_Unchecked 0x1,0x18 0158 00cf | | Action Mark_Auxiliary 0159 821d | | Call 0x1,0x1d 015a 00da | | Load_Top At_Offset_2 015b e212 | | Load 0x1,0x12 015c 8008 | | Call 0x0,0x8 015d 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 015e 00d9 | | Load_Top At_Offset_1 015f 0c01 | | Execute_Immediate Greater_Equal,0x1 0160 680d |h | Jump_Zero 0x16e 0161 e213 | | Load 0x1,0x13 0162 8007 | | Call 0x0,0x7 0163 e215 | | Load 0x1,0x15 0164 01d7 | | Execute Vector,Field_Read 0165 e218 | | Load 0x1,0x18 0166 e217 | | Load 0x1,0x17 0167 01d6 | | Execute Vector,Field_Write 0168 e213 | | Load 0x1,0x13 0169 8009 | | Call 0x0,0x9 016a 00d1 | | Pop_Control Pop_Count_1 016b e218 | | Load 0x1,0x18 016c 0a01 | | Execute_Immediate Plus,0x1 016d c218 | | Store 0x1,0x18 016e 00d9 | | Load_Top At_Offset_1 016f 7003 |p | Jump_Nonzero 0x173 0170 e213 | | Load 0x1,0x13 0171 8009 | | Call 0x0,0x9 0172 00d1 | | Pop_Control Pop_Count_1 0173 00d9 | | Load_Top At_Offset_1 0174 4ffd |O | Short_Literal -0x3 0175 027f | | Execute Discrete,Equal 0176 680d |h | Jump_Zero 0x184 0177 e213 | | Load 0x1,0x13 0178 8007 | | Call 0x0,0x7 0179 e215 | | Load 0x1,0x15 017a 01d7 | | Execute Vector,Field_Read 017b e218 | | Load 0x1,0x18 017c e217 | | Load 0x1,0x17 017d 01d6 | | Execute Vector,Field_Write 017e e213 | | Load 0x1,0x13 017f 8009 | | Call 0x0,0x9 0180 00d1 | | Pop_Control Pop_Count_1 0181 e218 | | Load 0x1,0x18 0182 0a01 | | Execute_Immediate Plus,0x1 0183 c218 | | Store 0x1,0x18 0184 00d9 | | Load_Top At_Offset_1 0185 0d00 | | Execute_Immediate Less,0x0 0186 6801 |h | Jump_Zero 0x188 0187 7802 |x | Jump 0x18a 0188 00c9 | | Action Pop_Auxiliary_Loop 0189 7fcf | | Jump 0x159 018a 00ce | | Action Pop_Auxiliary 018b 00d8 | | Load_Top At_Offset_0 018c 00d8 | | Load_Top At_Offset_0 018d 4ffb |O | Short_Literal -0x5 018e 4fff |O | Short_Literal -0x1 018f 0262 | b | Execute Discrete,In_Range 0190 6822 |h" | Jump_Zero 0x1b3 0191 00d8 | | Load_Top At_Offset_0 0192 4ffc |O | Short_Literal -0x4 0193 027f | | Execute Discrete,Equal 0194 7017 |p | Jump_Nonzero 0x1ac 0195 00d8 | | Load_Top At_Offset_0 0196 4ffd |O | Short_Literal -0x3 0197 027f | | Execute Discrete,Equal 0198 700f |p | Jump_Nonzero 0x1a8 0199 00d8 | | Load_Top At_Offset_0 019a 4ffe |O | Short_Literal -0x2 019b 027f | | Execute Discrete,Equal 019c 7007 |p | Jump_Nonzero 0x1a4 019d 4fff |O | Short_Literal -0x1 019e 027f | | Execute Discrete,Equal 019f 7001 |p | Jump_Nonzero 0x1a1 01a0 780f |x | Jump 0x1b0 01a1 4800 |H | Short_Literal 0x0 01a2 a219 | | Store_Unchecked 0x1,0x19 01a3 7812 |x | Jump 0x1b6 01a4 00d1 | | Pop_Control Pop_Count_1 01a5 4801 |H | Short_Literal 0x1 01a6 a219 | | Store_Unchecked 0x1,0x19 01a7 780e |x | Jump 0x1b6 01a8 00d1 | | Pop_Control Pop_Count_1 01a9 4802 |H | Short_Literal 0x2 01aa a219 | | Store_Unchecked 0x1,0x19 01ab 780a |x | Jump 0x1b6 01ac 00d1 | | Pop_Control Pop_Count_1 01ad 4803 |H | Short_Literal 0x3 01ae a219 | | Store_Unchecked 0x1,0x19 01af 7806 |x | Jump 0x1b6 01b0 4804 |H | Short_Literal 0x4 01b1 a219 | | Store_Unchecked 0x1,0x19 01b2 7803 |x | Jump 0x1b6 01b3 00d1 | | Pop_Control Pop_Count_1 01b4 4803 |H | Short_Literal 0x3 01b5 a219 | | Store_Unchecked 0x1,0x19 01b6 4808 |H | Short_Literal 0x8 01b7 a21a | | Store_Unchecked 0x1,0x1a 01b8 e219 | | Load 0x1,0x19 01b9 0f00 | | Execute_Immediate Equal,0x0 01ba e219 | | Load 0x1,0x19 01bb 0f02 | | Execute_Immediate Equal,0x2 01bc 0278 | x | Execute Discrete,Or 01bd 68aa |h | Jump_Zero 0x268 01be 4801 |H | Short_Literal 0x1 01bf e218 | | Load 0x1,0x18 01c0 0aff | | Execute_Immediate Plus,-0x1 01c1 e217 | | Load 0x1,0x17 01c2 01cf | | Execute Vector,Slice_Read 01c3 0092 02ae | | Action Push_String_Extended,0x2ae ; "CODE_SITE" 01c5 01df | | Execute Vector,Equal 01c6 6803 |h | Jump_Zero 0x1ca 01c7 4800 |H | Short_Literal 0x0 01c8 a21a | | Store_Unchecked 0x1,0x1a 01c9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01ca 4801 |H | Short_Literal 0x1 01cb e218 | | Load 0x1,0x18 01cc 0aff | | Execute_Immediate Plus,-0x1 01cd e217 | | Load 0x1,0x17 01ce 01cf | | Execute Vector,Slice_Read 01cf 0092 02af | | Action Push_String_Extended,0x2af ; "PLAGES_HORAIRES" 01d1 01df | | Execute Vector,Equal 01d2 6803 |h | Jump_Zero 0x1d6 01d3 480e |H | Short_Literal 0xe 01d4 a21a | | Store_Unchecked 0x1,0x1a 01d5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01d6 4801 |H | Short_Literal 0x1 01d7 e218 | | Load 0x1,0x18 01d8 0aff | | Execute_Immediate Plus,-0x1 01d9 e217 | | Load 0x1,0x17 01da 01cf | | Execute Vector,Slice_Read 01db 0092 02b0 | | Action Push_String_Extended,0x2b0 ; "LECTEURS" 01dd 01df | | Execute Vector,Equal 01de 6803 |h | Jump_Zero 0x1e2 01df 4801 |H | Short_Literal 0x1 01e0 a21a | | Store_Unchecked 0x1,0x1a 01e1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01e2 4801 |H | Short_Literal 0x1 01e3 e218 | | Load 0x1,0x18 01e4 0aff | | Execute_Immediate Plus,-0x1 01e5 e217 | | Load 0x1,0x17 01e6 01cf | | Execute Vector,Slice_Read 01e7 0092 02b1 | | Action Push_String_Extended,0x2b1 ; "FIN" 01e9 01df | | Execute Vector,Equal 01ea 6803 |h | Jump_Zero 0x1ee 01eb 4802 |H | Short_Literal 0x2 01ec a21a | | Store_Unchecked 0x1,0x1a 01ed 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01ee 4801 |H | Short_Literal 0x1 01ef e218 | | Load 0x1,0x18 01f0 0aff | | Execute_Immediate Plus,-0x1 01f1 e217 | | Load 0x1,0x17 01f2 01cf | | Execute Vector,Slice_Read 01f3 0092 02b2 | | Action Push_String_Extended,0x2b2 ; "PORTES" 01f5 01df | | Execute Vector,Equal 01f6 6803 |h | Jump_Zero 0x1fa 01f7 4803 |H | Short_Literal 0x3 01f8 a21a | | Store_Unchecked 0x1,0x1a 01f9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01fa 4801 |H | Short_Literal 0x1 01fb e218 | | Load 0x1,0x18 01fc 0aff | | Execute_Immediate Plus,-0x1 01fd e217 | | Load 0x1,0x17 01fe 01cf | | Execute Vector,Slice_Read 01ff 0092 02b3 | | Action Push_String_Extended,0x2b3 ; "ZONES" 0201 01df | | Execute Vector,Equal 0202 6803 |h | Jump_Zero 0x206 0203 4804 |H | Short_Literal 0x4 0204 a21a | | Store_Unchecked 0x1,0x1a 0205 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0206 4801 |H | Short_Literal 0x1 0207 e218 | | Load 0x1,0x18 0208 0aff | | Execute_Immediate Plus,-0x1 0209 e217 | | Load 0x1,0x17 020a 01cf | | Execute Vector,Slice_Read 020b 0092 02b4 | | Action Push_String_Extended,0x2b4 ; "PORTEURS" 020d 01df | | Execute Vector,Equal 020e 6803 |h | Jump_Zero 0x212 020f 4805 |H | Short_Literal 0x5 0210 a21a | | Store_Unchecked 0x1,0x1a 0211 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0212 4801 |H | Short_Literal 0x1 0213 e218 | | Load 0x1,0x18 0214 0aff | | Execute_Immediate Plus,-0x1 0215 e217 | | Load 0x1,0x17 0216 01cf | | Execute Vector,Slice_Read 0217 0092 02b5 | | Action Push_String_Extended,0x2b5 ; "GROUPES" 0219 01df | | Execute Vector,Equal 021a 6803 |h | Jump_Zero 0x21e 021b 4806 |H | Short_Literal 0x6 021c a21a | | Store_Unchecked 0x1,0x1a 021d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 021e 4801 |H | Short_Literal 0x1 021f e218 | | Load 0x1,0x18 0220 0aff | | Execute_Immediate Plus,-0x1 0221 e217 | | Load 0x1,0x17 0222 01cf | | Execute Vector,Slice_Read 0223 0092 02b6 | | Action Push_String_Extended,0x2b6 ; "ACCES" 0225 01df | | Execute Vector,Equal 0226 6803 |h | Jump_Zero 0x22a 0227 4807 |H | Short_Literal 0x7 0228 a21a | | Store_Unchecked 0x1,0x1a 0229 4501 |E | Exit_Suprogram New_Top_Offset 0x1 022a 4801 |H | Short_Literal 0x1 022b e218 | | Load 0x1,0x18 022c 0aff | | Execute_Immediate Plus,-0x1 022d e217 | | Load 0x1,0x17 022e 01cf | | Execute Vector,Slice_Read 022f 0092 02b7 | | Action Push_String_Extended,0x2b7 ; ":" 0231 01df | | Execute Vector,Equal 0232 6803 |h | Jump_Zero 0x236 0233 4809 |H | Short_Literal 0x9 0234 a21a | | Store_Unchecked 0x1,0x1a 0235 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0236 4801 |H | Short_Literal 0x1 0237 e218 | | Load 0x1,0x18 0238 0aff | | Execute_Immediate Plus,-0x1 0239 e217 | | Load 0x1,0x17 023a 01cf | | Execute Vector,Slice_Read 023b 0092 02b8 | | Action Push_String_Extended,0x2b8 ; ";" 023d 01df | | Execute Vector,Equal 023e 6803 |h | Jump_Zero 0x242 023f 480a |H | Short_Literal 0xa 0240 a21a | | Store_Unchecked 0x1,0x1a 0241 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0242 4801 |H | Short_Literal 0x1 0243 e218 | | Load 0x1,0x18 0244 0aff | | Execute_Immediate Plus,-0x1 0245 e217 | | Load 0x1,0x17 0246 01cf | | Execute Vector,Slice_Read 0247 0092 02b9 | | Action Push_String_Extended,0x2b9 ; "," 0249 01df | | Execute Vector,Equal 024a 6803 |h | Jump_Zero 0x24e 024b 480b |H | Short_Literal 0xb 024c a21a | | Store_Unchecked 0x1,0x1a 024d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 024e 4801 |H | Short_Literal 0x1 024f e218 | | Load 0x1,0x18 0250 0aff | | Execute_Immediate Plus,-0x1 0251 e217 | | Load 0x1,0x17 0252 01cf | | Execute Vector,Slice_Read 0253 0092 02ba | | Action Push_String_Extended,0x2ba ; "-" 0255 01df | | Execute Vector,Equal 0256 6803 |h | Jump_Zero 0x25a 0257 480c |H | Short_Literal 0xc 0258 a21a | | Store_Unchecked 0x1,0x1a 0259 4501 |E | Exit_Suprogram New_Top_Offset 0x1 025a 4801 |H | Short_Literal 0x1 025b e218 | | Load 0x1,0x18 025c 0aff | | Execute_Immediate Plus,-0x1 025d e217 | | Load 0x1,0x17 025e 01cf | | Execute Vector,Slice_Read 025f 0092 02bb | | Action Push_String_Extended,0x2bb ; "=" 0261 01df | | Execute Vector,Equal 0262 6803 |h | Jump_Zero 0x266 0263 480d |H | Short_Literal 0xd 0264 a21a | | Store_Unchecked 0x1,0x1a 0265 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0266 4808 |H | Short_Literal 0x8 0267 a21a | | Store_Unchecked 0x1,0x1a 0268 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0269 0000 0000 | | .BLANK 0000[0x7] 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 0273 | s | .CONST 0x0273 ; Address of begin 0271 0004 | | .CONST 0x0004 ; Address of exception handler 0272 0001 | | .CONST 0x0001 ; Number of locals 0273 BODY_0270: 0273 INIT_0270: 0273 00cf | | Action Mark_Auxiliary 0274 e214 | | Load 0x1,0x14 0275 e004 | | Load 0x0,0x4 0276 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0277 e219 | | Load 0x1,0x19 0278 0f04 | | Execute_Immediate Equal,0x4 0279 0279 | y | Execute Discrete,And 027a 6803 |h | Jump_Zero 0x27e 027b 4801 |H | Short_Literal 0x1 027c a211 | | Store_Unchecked 0x1,0x11 027d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 027e e219 | | Load 0x1,0x19 027f 0f04 | | Execute_Immediate Equal,0x4 0280 680e |h | Jump_Zero 0x28f 0281 e213 | | Load 0x1,0x13 0282 800a | | Call 0x0,0xa 0283 00d1 | | Pop_Control Pop_Count_1 0284 e213 | | Load 0x1,0x13 0285 4801 |H | Short_Literal 0x1 0286 800b | | Call 0x0,0xb 0287 00d1 | | Pop_Control Pop_Count_1 0288 00e3 | | Load_Encached Natural_Cache 0289 e215 | | Load 0x1,0x15 028a e214 | | Load 0x1,0x14 028b e004 | | Load 0x0,0x4 028c 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 028d 00d1 | | Pop_Control Pop_Count_1 028e c216 | | Store 0x1,0x16 028f 821e | | Call 0x1,0x1e 0290 e219 | | Load 0x1,0x19 0291 0e04 | | Execute_Immediate Not_Equal,0x4 0292 6801 |h | Jump_Zero 0x294 0293 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0294 00c9 | | Action Pop_Auxiliary_Loop 0295 7fde | | Jump 0x274 0296 ; -------------------------------------------------------------------------------------- 0296 ; STRING TABLE 0296 ; -------------------------------------------------------------------------------------- 0296 004e | N | .STRTAB 0x004e->0x02bd ; "TYP_CODE_SITE" 0297 0059 | Y | .STRTAB 0x0059->0x02c3 ; "TYP_LECTEURS" 0298 0063 | c | .STRTAB 0x0063->0x02c9 ; "TYP_FIN" 0299 0068 | h | .STRTAB 0x0068->0x02cd ; "TYP_PORTES" 029a 0070 | p | .STRTAB 0x0070->0x02d2 ; "TYP_ZONES" 029b 0077 | w | .STRTAB 0x0077->0x02d6 ; "TYP_PORTEURS" 029c 0081 | | .STRTAB 0x0081->0x02dc ; "TYP_GROUPES" 029d 008a | | .STRTAB 0x008a->0x02e2 ; "TYP_ACCES" 029e 0091 | | .STRTAB 0x0091->0x02e6 ; "TYP_INCONNU" 029f 009a | | .STRTAB 0x009a->0x02ec ; "TYP_DOUBLE_POINT" 02a0 00a8 | | .STRTAB 0x00a8->0x02f4 ; "TYP_POINT_VIRGULE" 02a1 00b7 | | .STRTAB 0x00b7->0x02fc ; "TYP_VIRGULE" 02a2 00c0 | | .STRTAB 0x00c0->0x0302 ; "TYP_TIRET" 02a3 00c7 | | .STRTAB 0x00c7->0x0306 ; "TYP_EGAL" 02a4 00cd | | .STRTAB 0x00cd->0x030a ; "TYP_PLAGES_HORAIRES" 02a5 00de | | .STRTAB 0x00de->0x0314 ; "IDENTIFICATEUR" 02a6 00ea | | .STRTAB 0x00ea->0x031b ; "ENTIER" 02a7 00ee | | .STRTAB 0x00ee->0x031e ; "SEPARATOR" 02a8 00f5 | | .STRTAB 0x00f5->0x0322 ; "ERREUR" 02a9 00f9 | | .STRTAB 0x00f9->0x0325 ; "TERMINE" 02aa 00fe | | .STRTAB 0x00fe->0x0329 ; "Donnez le nom du fichier de configuration" 02ab 0125 | % | .STRTAB 0x0125->0x033d ; "Lecture du fichier de configuration" 02ac 0146 | F | .STRTAB 0x0146->0x034f ; "Echec d'ouverture du fichier de configuration !" 02ad 0173 | s | .STRTAB 0x0173->0x0366 ; "Fermeture du fichier de configuration" 02ae 0196 | | .STRTAB 0x0196->0x0379 ; "CODE_SITE" 02af 019d | | .STRTAB 0x019d->0x037d ; "PLAGES_HORAIRES" 02b0 01aa | | .STRTAB 0x01aa->0x0385 ; "LECTEURS" 02b1 01b0 | | .STRTAB 0x01b0->0x0389 ; "FIN" 02b2 01b1 | | .STRTAB 0x01b1->0x038a ; "PORTES" 02b3 01b5 | | .STRTAB 0x01b5->0x038d ; "ZONES" 02b4 01b8 | | .STRTAB 0x01b8->0x0390 ; "PORTEURS" 02b5 01be | | .STRTAB 0x01be->0x0394 ; "GROUPES" 02b6 01c3 | | .STRTAB 0x01c3->0x0397 ; "ACCES" 02b7 01c6 | | .STRTAB 0x01c6->0x039a ; ":" 02b8 01c5 | | .STRTAB 0x01c5->0x039a ; ";" 02b9 01c4 | | .STRTAB 0x01c4->0x039b ; "," 02ba 01c3 | | .STRTAB 0x01c3->0x039b ; "-" 02bb 01c2 | | .STRTAB 0x01c2->0x039c ; "=" 02bc 01c1 | | .STREND 0x01c1->0x039c 02bd 5459 505f |TYP_| .STRTAB_STRINGS 039d 0000 0000 | | .XXX[0x3] 039f 0000 | | 03a0 ; -------------------------------------------------------------------------------------- 03a0 ; Debug Table 03a0 ; -------------------------------------------------------------------------------------- 03a0 0004 0009 | | .DEBUG4 0x0004,0x0009,0x55cc,0x0000,0x0001,0x0009 03a6 000b 03ca | | .DBG4T 0x000b,0x03ca,0x8000,0x0000 03aa 003d 03df | = | .DBG4T 0x003d,0x03df,0x8000,0x0000 03ae 0053 0000 | S | .DBG4T 0x0053,0x0000,0x0005,0x0000 03b2 007b 0000 | { | .DBG4T 0x007b,0x0000,0x0005,0x0000 03b6 00a3 03e6 | | .DBG4T 0x00a3,0x03e6,0x0001,0x0000 03ba 00db 03f2 | | .DBG4T 0x00db,0x03f2,0x0001,0x0000 03be 00eb 03f6 | | .DBG4T 0x00eb,0x03f6,0x0002,0x4000 03c2 0153 040a | S | .DBG4T 0x0153,0x040a,0x0001,0x0000 03c6 0273 0443 | s C| .DBG4T 0x0273,0x0443,0x0001,0x0000 03ca ; -------------------------------------------------------------------------------------- 03ca ; Debug chain 03ca ; -------------------------------------------------------------------------------------- 03ca 0013 0000 | | .DBGLEN 0x0013,0x0000 03cc 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0015,0x0019,0x001b,0x001d,0x001f,0x0021,0x0026,0x0028,0x002a,0x002c,0x002e,0x0030,0x0032,0x0034,0x0036,0x0038,0x003a 03df ; -------------------------------------------------------------------------------------- 03df ; Debug chain 03df ; -------------------------------------------------------------------------------------- 03df 0005 0000 | | .DBGLEN 0x0005,0x0000 03e1 003d 003f | = ?| .DBGLNO 0x003d,0x003f,0x0041,0x0043,0x0045 03e6 ; -------------------------------------------------------------------------------------- 03e6 ; Debug chain 03e6 ; -------------------------------------------------------------------------------------- 03e6 0002 0008 | | .DBGLEN 0x0002,0x0008 03e8 00a3 00a8 | | .DBGLNO 0x00a3,0x00a8,0x00a9,0x00ac,0x00b1,0x00b5,0x00bb,0x00c5,0x00c9,0x00ce 03f2 ; -------------------------------------------------------------------------------------- 03f2 ; Debug chain 03f2 ; -------------------------------------------------------------------------------------- 03f2 0000 0002 | | .DBGLEN 0x0000,0x0002 03f4 00db 00df | | .DBGLNO 0x00db,0x00df 03f6 ; -------------------------------------------------------------------------------------- 03f6 ; Debug chain 03f6 ; -------------------------------------------------------------------------------------- 03f6 0000 0009 | | .DBGLEN 0x0000,0x0009 03f8 00eb 00f0 | | .DBGLNO 0x00eb,0x00f0,0x00f2,0x013f,0x0146,0x0148,0x014a,0x014c,0x014e 0401 0001 0002 | | .XXX[0x9] 0403 0003 0009 | | 0405 0004 0005 | | 0407 0006 0007 | | 0409 0008 | | 040a ; -------------------------------------------------------------------------------------- 040a ; Debug chain 040a ; -------------------------------------------------------------------------------------- 040a 0001 0036 | 6| .DBGLEN 0x0001,0x0036 040c 0153 0154 | S T| .DBGLNO 0x0153,0x0154,0x0156,0x0158,0x0159,0x015e,0x0161,0x0168,0x016b,0x016e,0x0170,0x0173,0x0177,0x017e,0x0181,0x0184,0x0187,0x018b,0x01a1,0x01a5,0x01a9,0x01ad,0x01b0,0x01b4,0x01b6,0x01b8,0x01be,0x01c7,0x01ca,0x01d3,0x01d6,0x01df,0x01e2,0x01eb,0x01ee,0x01f7,0x01fa,0x0203,0x0206,0x020f,0x0212,0x021b,0x021e,0x0227,0x022a,0x0233,0x0236,0x023f,0x0242,0x024b,0x024e,0x0257,0x025a,0x0263,0x0266 0443 ; -------------------------------------------------------------------------------------- 0443 ; Debug chain 0443 ; -------------------------------------------------------------------------------------- 0443 0000 000b | | .DBGLEN 0x0000,0x000b 0445 0273 0274 | s t| .DBGLNO 0x0273,0x0274,0x027b,0x027d,0x027e,0x0281,0x0284,0x0288,0x028f,0x0290,0x0293 0450 0000 0000 | | .BLANK 0000[0x1b0]