|
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]