|
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_63accd
└─⟦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 0270 | p | .CONST 0x0270 ; 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 005c | \ | .CONST 0x005c ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001f | | .CONST 0x001f ; Number of locals 000b INIT_0008: 000b 0092 0214 | | Action Push_String_Extended,0x214 ; "Evenement" 000d 0129 | ) | Execute Any,Make_Visible 000e 0092 0215 | | Action Push_String_Extended,0x215 ; "Fin Evenement" 0010 0129 | ) | Execute Any,Make_Visible 0011 4800 |H | Short_Literal 0x0 0012 4806 |H | Short_Literal 0x6 0013 029f 0063 | c| Declare_Subprogram INIT_0060,For_Call 0015 03fe | | Declare_Type Discrete,Defined,Visible 0016 4800 |H | Short_Literal 0x0 0017 4801 |H | Short_Literal 0x1 0018 029f 008b | | Declare_Subprogram INIT_0088,For_Call 001a 03fe | | Declare_Type Discrete,Defined,Visible 001b 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 001d 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated 001f 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated 0021 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated 0023 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 0025 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 0027 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 0029 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated 002b 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 002d 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated 002f 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 0031 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 0033 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated 0035 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 0037 e002 | | Load 0x0,0x2 0038 e003 | | Load 0x0,0x3 0039 e20f | | Load 0x1,0xf 003a e004 | | Load 0x0,0x4 003b e210 | | Load 0x1,0x10 003c 02a0 | | Declare_Subprogram Null_Subprogram 003d 4805 |H | Short_Literal 0x5 003e 032e | . | Declare_Type Record,Defined,Visible 003f 00bf | | Action Accept_Activation 0040 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0041 00c7 | | Action Elaborate_Subprogram 0042 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0043 00c7 | | Action Elaborate_Subprogram 0044 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0045 00c7 | | Action Elaborate_Subprogram 0046 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0047 00c7 | | Action Elaborate_Subprogram 0048 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0049 00c7 | | Action Elaborate_Subprogram 004a 1d16 | | Execute_Immediate Reference_Lex_1,0x16 004b 00c7 | | Action Elaborate_Subprogram 004c 1d17 | | Execute_Immediate Reference_Lex_1,0x17 004d 00c7 | | Action Elaborate_Subprogram 004e 1d18 | | Execute_Immediate Reference_Lex_1,0x18 004f 00c7 | | Action Elaborate_Subprogram 0050 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0051 00c7 | | Action Elaborate_Subprogram 0052 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0053 00c7 | | Action Elaborate_Subprogram 0054 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0055 00c7 | | Action Elaborate_Subprogram 0056 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0057 00c7 | | Action Elaborate_Subprogram 0058 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0059 00c7 | | Action Elaborate_Subprogram 005a 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 005b 00c7 | | Action Elaborate_Subprogram 005c BODY_0008: 005c 00bc | | Action Signal_Activated 005d 00bb | | Action Signal_Completion 005e 0000 0000 | | .XXX[0x2] 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 0063 | c | .CONST 0x0063 ; Address of begin 0061 0004 | | .CONST 0x0004 ; Address of exception handler 0062 0001 | | .CONST 0x0001 ; Number of locals 0063 BODY_0060: 0063 INIT_0060: 0063 4607 |F | Jump_Case 0x8 0064 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0065 7807 |x | Jump 0x6d ; case 0x1 0066 780a |x | Jump 0x71 ; case 0x2 0067 780e |x | Jump 0x76 ; case 0x3 0068 7811 |x | Jump 0x7a ; case 0x4 0069 7812 |x | Jump 0x7c ; case 0x5 006a 7813 |x | Jump 0x7e ; case 0x6 006b 7816 |x | Jump 0x82 ; case 0x7 006c 4302 |C | .XXX[0x1] 006d 00da | | Load_Top At_Offset_2 006e 0091 020b | | Action Push_String_Extended_Indexed,0x20b ; "COUPURE_SECTEUR" 0070 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0071 00db | | Load_Top At_Offset_3 0072 00db | | Load_Top At_Offset_3 0073 00e0 | | Load_Encached Standard_Cache 0074 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0075 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0076 00da | | Load_Top At_Offset_2 0077 00e0 | | Load_Encached Standard_Cache 0078 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0079 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 007a 00db | | Load_Top At_Offset_3 007b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 007c 00db | | Load_Top At_Offset_3 007d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 007e e20f | | Load 0x1,0xf 007f 00dc | | Load_Top At_Offset_4 0080 0267 | g | Execute Discrete,Predecessor 0081 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0082 e20f | | Load 0x1,0xf 0083 00dc | | Load_Top At_Offset_4 0084 0268 | h | Execute Discrete,Successor 0085 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0086 0000 0000 | | .XXX[0x2] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 008b | | .CONST 0x008b ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0001 | | .CONST 0x0001 ; Number of locals 008b BODY_0088: 008b INIT_0088: 008b 4607 |F | Jump_Case 0x8 008c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 008d 7807 |x | Jump 0x95 ; case 0x1 008e 780a |x | Jump 0x99 ; case 0x2 008f 780e |x | Jump 0x9e ; case 0x3 0090 7811 |x | Jump 0xa2 ; case 0x4 0091 7812 |x | Jump 0xa4 ; case 0x5 0092 7813 |x | Jump 0xa6 ; case 0x6 0093 7816 |x | Jump 0xaa ; case 0x7 0094 4302 |C | .XXX[0x1] 0095 00da | | Load_Top At_Offset_2 0096 0091 0212 | | Action Push_String_Extended_Indexed,0x212 ; "TETE_PRINCIPALE" 0098 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0099 00db | | Load_Top At_Offset_3 009a 00db | | Load_Top At_Offset_3 009b 00e0 | | Load_Encached Standard_Cache 009c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 009d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 009e 00da | | Load_Top At_Offset_2 009f 00e0 | | Load_Encached Standard_Cache 00a0 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00a1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00a2 00db | | Load_Top At_Offset_3 00a3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00a4 00db | | Load_Top At_Offset_3 00a5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00a6 e210 | | Load 0x1,0x10 00a7 00dc | | Load_Top At_Offset_4 00a8 0267 | g | Execute Discrete,Predecessor 00a9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00aa e210 | | Load 0x1,0x10 00ab 00dc | | Load_Top At_Offset_4 00ac 0268 | h | Execute Discrete,Successor 00ad 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00ae 0000 0000 | | .XXX[0x2] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b3 | | .CONST 0x00b3 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0001 | | .CONST 0x0001 ; Number of locals 00b3 BODY_00b0: 00b3 INIT_00b0: 00b3 e5fa | | Load 0x2,-0x6 00b4 00db | | Load_Top At_Offset_3 00b5 8212 | | Call 0x1,0x12 00b6 00d1 | | Pop_Control Pop_Count_1 00b7 e5fa | | Load 0x2,-0x6 00b8 e5fe | | Load 0x2,-0x2 00b9 8213 | | Call 0x1,0x13 00ba 00d1 | | Pop_Control Pop_Count_1 00bb e5fa | | Load 0x2,-0x6 00bc e5fd | | Load 0x2,-0x3 00bd 8214 | | Call 0x1,0x14 00be 00d1 | | Pop_Control Pop_Count_1 00bf e5fa | | Load 0x2,-0x6 00c0 e5fc | | Load 0x2,-0x4 00c1 8215 | | Call 0x1,0x15 00c2 00d1 | | Pop_Control Pop_Count_1 00c3 e5fa | | Load 0x2,-0x6 00c4 e5fb | | Load 0x2,-0x5 00c5 8216 | | Call 0x1,0x16 00c6 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00c7 0000 | | .XXX[0x1] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cb | | .CONST 0x00cb ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0001 | | .CONST 0x0001 ; Number of locals 00cb BODY_00c8: 00cb INIT_00c8: 00cb 00da | | Load_Top At_Offset_2 00cc e5fe | | Load 0x2,-0x2 00cd 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00ce 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00cf 0000 | | .XXX[0x1] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d3 | | .CONST 0x00d3 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0001 | | .CONST 0x0001 ; Number of locals 00d3 BODY_00d0: 00d3 INIT_00d0: 00d3 00da | | Load_Top At_Offset_2 00d4 e5fe | | Load 0x2,-0x2 00d5 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00d6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00d7 0000 | | .XXX[0x1] 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 00da | | Load_Top At_Offset_2 00dc e5fe | | Load 0x2,-0x2 00dd 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00de 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00df 0000 | | .XXX[0x1] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e3 | | .CONST 0x00e3 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0001 | | .CONST 0x0001 ; Number of locals 00e3 BODY_00e0: 00e3 INIT_00e0: 00e3 00da | | Load_Top At_Offset_2 00e4 e5fe | | Load 0x2,-0x2 00e5 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 00e6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00e7 0000 | | .XXX[0x1] 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 00da | | Load_Top At_Offset_2 00ec e5fe | | Load 0x2,-0x2 00ed 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 00ee 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00ef 0000 | | .XXX[0x1] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f3 | | .CONST 0x00f3 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0001 | | .CONST 0x0001 ; Number of locals 00f3 BODY_00f0: 00f3 INIT_00f0: 00f3 00da | | Load_Top At_Offset_2 00f4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00f5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00f6 0000 0000 | | .XXX[0x2] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00fb | | .CONST 0x00fb ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0001 | | .CONST 0x0001 ; Number of locals 00fb BODY_00f8: 00fb INIT_00f8: 00fb 00da | | Load_Top At_Offset_2 00fc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00fd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00fe 0000 0000 | | .XXX[0x2] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 00da | | Load_Top At_Offset_2 0104 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0105 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0106 0000 0000 | | .XXX[0x2] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 010b | | .CONST 0x010b ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0001 | | .CONST 0x0001 ; Number of locals 010b BODY_0108: 010b INIT_0108: 010b 00da | | Load_Top At_Offset_2 010c 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 010d 0320 | | Declare_Variable Record,Duplicate 010e 00cd | | Action Spare6_Action 010f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0113 | | .CONST 0x0113 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0001 | | .CONST 0x0001 ; Number of locals 0113 BODY_0110: 0113 INIT_0110: 0113 00da | | Load_Top At_Offset_2 0114 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0115 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0116 0000 0000 | | .XXX[0x2] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011b | | .CONST 0x011b ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0001 | | .CONST 0x0001 ; Number of locals 011b BODY_0118: 011b INIT_0118: 011b 4823 |H# | Short_Literal 0x23 011c 4823 |H# | Short_Literal 0x23 011d 4823 |H# | Short_Literal 0x23 011e 4823 |H# | Short_Literal 0x23 011f 4823 |H# | Short_Literal 0x23 0120 e20d | | Load 0x1,0xd 0121 e5ff | | Load 0x2,-0x1 0122 8217 | | Call 0x1,0x17 0123 00e0 | | Load_Encached Standard_Cache 0124 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0125 8005 | | Call 0x0,0x5 0126 01cc | | Execute Vector,Catenate 0127 01cb | | Execute Vector,Append 0128 e5ff | | Load 0x2,-0x1 0129 8218 | | Call 0x1,0x18 012a 00e0 | | Load_Encached Standard_Cache 012b 1818 | | Execute Package,Field_Execute,Field_Number 0x18 012c 8005 | | Call 0x0,0x5 012d 01cc | | Execute Vector,Catenate 012e 01cb | | Execute Vector,Append 012f e5ff | | Load 0x2,-0x1 0130 8219 | | Call 0x1,0x19 0131 e20f | | Load 0x1,0xf 0132 011c | | Execute Any,Convert_Unchecked 0133 1c01 | | Execute_Immediate Run_Utility,0x1 0134 01cc | | Execute Vector,Catenate 0135 01cb | | Execute Vector,Append 0136 e5ff | | Load 0x2,-0x1 0137 821a | | Call 0x1,0x1a 0138 8006 | | Call 0x0,0x6 0139 01cc | | Execute Vector,Catenate 013a 01cb | | Execute Vector,Append 013b e5ff | | Load 0x2,-0x1 013c 821b | | Call 0x1,0x1b 013d e210 | | Load 0x1,0x10 013e 011c | | Execute Any,Convert_Unchecked 013f 1c01 | | Execute_Immediate Run_Utility,0x1 0140 01cc | | Execute Vector,Catenate 0141 01cb | | Execute Vector,Append 0142 e20e | | Load 0x1,0xe 0143 01cc | | Execute Vector,Catenate 0144 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0145 0000 0000 | | .XXX[0x3] 0147 0000 | | 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 014e | N | .CONST 0x014e ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0003 | | .CONST 0x0003 ; Number of locals 014b INIT_0148: 014b e21f | | Load 0x1,0x1f 014c 0322 | " | Declare_Variable Record 014d 00e3 | | Load_Encached Natural_Cache 014e BODY_0148: 014e 00d8 | | Load_Top At_Offset_0 014f 00da | | Load_Top At_Offset_2 0150 e5ff | | Load 0x2,-0x1 0151 821e | | Call 0x1,0x1e 0152 00d1 | | Pop_Control Pop_Count_1 0153 0059 | Y | Store_Top Discrete,At_Offset_1 0154 00d9 | | Load_Top At_Offset_1 0155 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0156 0000 0000 | | .XXX[0x2] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 0164 | d | .CONST 0x0164 ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0009 | | .CONST 0x0009 ; Number of locals 015b INIT_0158: 015b e004 | | Load 0x0,0x4 015c 0322 | " | Declare_Variable Record 015d 00e3 | | Load_Encached Natural_Cache 015e 03e9 | | Declare_Variable Discrete,Duplicate 015f 03e9 | | Declare_Variable Discrete,Duplicate 0160 03e9 | | Declare_Variable Discrete,Duplicate 0161 03e9 | | Declare_Variable Discrete,Duplicate 0162 03e9 | | Declare_Variable Discrete,Duplicate 0163 03e9 | | Declare_Variable Discrete,Duplicate 0164 BODY_0158: 0164 e403 | | Load 0x2,0x3 0165 e20d | | Load 0x1,0xd 0166 e5ff | | Load 0x2,-0x1 0167 8007 | | Call 0x0,0x7 0168 c403 | | Store 0x2,0x3 0169 e404 | | Load 0x2,0x4 016a 4823 |H# | Short_Literal 0x23 016b e403 | | Load 0x2,0x3 016c 0a01 | | Execute_Immediate Plus,0x1 016d 00d8 | | Load_Top At_Offset_0 016e 00e2 | | Load_Encached Integer_Cache 016f 0260 | ` | Execute Discrete,In_Type 0170 7001 |p | Jump_Nonzero 0x172 0171 0801 | | Execute_Immediate Raise,0x1 0172 e5ff | | Load 0x2,-0x1 0173 01dc | | Execute Vector,Last 0174 e5ff | | Load 0x2,-0x1 0175 01cf | | Execute Vector,Slice_Read 0176 8008 | | Call 0x0,0x8 0177 c404 | | Store 0x2,0x4 0178 e405 | | Load 0x2,0x5 0179 4823 |H# | Short_Literal 0x23 017a e404 | | Load 0x2,0x4 017b 0a01 | | Execute_Immediate Plus,0x1 017c 00d8 | | Load_Top At_Offset_0 017d 00e2 | | Load_Encached Integer_Cache 017e 0260 | ` | Execute Discrete,In_Type 017f 7001 |p | Jump_Nonzero 0x181 0180 0801 | | Execute_Immediate Raise,0x1 0181 e5ff | | Load 0x2,-0x1 0182 01dc | | Execute Vector,Last 0183 e5ff | | Load 0x2,-0x1 0184 01cf | | Execute Vector,Slice_Read 0185 8008 | | Call 0x0,0x8 0186 c405 | | Store 0x2,0x5 0187 00db | | Load_Top At_Offset_3 0188 4823 |H# | Short_Literal 0x23 0189 e405 | | Load 0x2,0x5 018a 0a01 | | Execute_Immediate Plus,0x1 018b 00d8 | | Load_Top At_Offset_0 018c 00e2 | | Load_Encached Integer_Cache 018d 0260 | ` | Execute Discrete,In_Type 018e 7001 |p | Jump_Nonzero 0x190 018f 0801 | | Execute_Immediate Raise,0x1 0190 e5ff | | Load 0x2,-0x1 0191 01dc | | Execute Vector,Last 0192 e5ff | | Load 0x2,-0x1 0193 01cf | | Execute Vector,Slice_Read 0194 8008 | | Call 0x0,0x8 0195 c406 | | Store 0x2,0x6 0196 00da | | Load_Top At_Offset_2 0197 e402 | | Load 0x2,0x2 0198 e406 | | Load 0x2,0x6 0199 0a01 | | Execute_Immediate Plus,0x1 019a 00d8 | | Load_Top At_Offset_0 019b 00e2 | | Load_Encached Integer_Cache 019c 0260 | ` | Execute Discrete,In_Type 019d 7001 |p | Jump_Nonzero 0x19f 019e 0801 | | Execute_Immediate Raise,0x1 019f e5ff | | Load 0x2,-0x1 01a0 01dc | | Execute Vector,Last 01a1 e5ff | | Load 0x2,-0x1 01a2 01cf | | Execute Vector,Slice_Read 01a3 8009 | | Call 0x0,0x9 01a4 00d1 | | Pop_Control Pop_Count_1 01a5 005b | [ | Store_Top Discrete,At_Offset_3 01a6 00d9 | | Load_Top At_Offset_1 01a7 4823 |H# | Short_Literal 0x23 01a8 e407 | | Load 0x2,0x7 01a9 0a02 | | Execute_Immediate Plus,0x2 01aa 00d8 | | Load_Top At_Offset_0 01ab 00e2 | | Load_Encached Integer_Cache 01ac 0260 | ` | Execute Discrete,In_Type 01ad 7001 |p | Jump_Nonzero 0x1af 01ae 0801 | | Execute_Immediate Raise,0x1 01af e5ff | | Load 0x2,-0x1 01b0 01dc | | Execute Vector,Last 01b1 e5ff | | Load 0x2,-0x1 01b2 01cf | | Execute Vector,Slice_Read 01b3 8008 | | Call 0x0,0x8 01b4 005a | Z | Store_Top Discrete,At_Offset_2 01b5 00d8 | | Load_Top At_Offset_0 01b6 e20e | | Load 0x1,0xe 01b7 00db | | Load_Top At_Offset_3 01b8 0a01 | | Execute_Immediate Plus,0x1 01b9 00d8 | | Load_Top At_Offset_0 01ba 00e2 | | Load_Encached Integer_Cache 01bb 0260 | ` | Execute Discrete,In_Type 01bc 7001 |p | Jump_Nonzero 0x1be 01bd 0801 | | Execute_Immediate Raise,0x1 01be e5ff | | Load 0x2,-0x1 01bf 01dc | | Execute Vector,Last 01c0 e5ff | | Load 0x2,-0x1 01c1 01cf | | Execute Vector,Slice_Read 01c2 8007 | | Call 0x0,0x7 01c3 0059 | Y | Store_Top Discrete,At_Offset_1 01c4 e5fe | | Load 0x2,-0x2 01c5 00db | | Load_Top At_Offset_3 01c6 0a02 | | Execute_Immediate Plus,0x2 01c7 00d8 | | Load_Top At_Offset_0 01c8 00e2 | | Load_Encached Integer_Cache 01c9 0260 | ` | Execute Discrete,In_Type 01ca 7001 |p | Jump_Nonzero 0x1cc 01cb 0801 | | Execute_Immediate Raise,0x1 01cc 00db | | Load_Top At_Offset_3 01cd 0aff | | Execute_Immediate Plus,-0x1 01ce e5ff | | Load 0x2,-0x1 01cf 01cf | | Execute Vector,Slice_Read 01d0 e210 | | Load 0x1,0x10 01d1 1c02 | | Execute_Immediate Run_Utility,0x2 01d2 e402 | | Load 0x2,0x2 01d3 e405 | | Load 0x2,0x5 01d4 0a01 | | Execute_Immediate Plus,0x1 01d5 00d8 | | Load_Top At_Offset_0 01d6 00e2 | | Load_Encached Integer_Cache 01d7 0260 | ` | Execute Discrete,In_Type 01d8 7001 |p | Jump_Nonzero 0x1da 01d9 0801 | | Execute_Immediate Raise,0x1 01da e406 | | Load 0x2,0x6 01db 0aff | | Execute_Immediate Plus,-0x1 01dc e5ff | | Load 0x2,-0x1 01dd 01cf | | Execute Vector,Slice_Read 01de e20f | | Load 0x1,0xf 01df 1c02 | | Execute_Immediate Run_Utility,0x2 01e0 e404 | | Load 0x2,0x4 01e1 0a01 | | Execute_Immediate Plus,0x1 01e2 00d8 | | Load_Top At_Offset_0 01e3 00e2 | | Load_Encached Integer_Cache 01e4 0260 | ` | Execute Discrete,In_Type 01e5 7001 |p | Jump_Nonzero 0x1e7 01e6 0801 | | Execute_Immediate Raise,0x1 01e7 e405 | | Load 0x2,0x5 01e8 0aff | | Execute_Immediate Plus,-0x1 01e9 e5ff | | Load 0x2,-0x1 01ea 01cf | | Execute Vector,Slice_Read 01eb 00e2 | | Load_Encached Integer_Cache 01ec 00e0 | | Load_Encached Standard_Cache 01ed 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01ee 00d8 | | Load_Top At_Offset_0 01ef e003 | | Load 0x0,0x3 01f0 0260 | ` | Execute Discrete,In_Type 01f1 7001 |p | Jump_Nonzero 0x1f3 01f2 0801 | | Execute_Immediate Raise,0x1 01f3 e403 | | Load 0x2,0x3 01f4 0a01 | | Execute_Immediate Plus,0x1 01f5 00d8 | | Load_Top At_Offset_0 01f6 00e2 | | Load_Encached Integer_Cache 01f7 0260 | ` | Execute Discrete,In_Type 01f8 7001 |p | Jump_Nonzero 0x1fa 01f9 0801 | | Execute_Immediate Raise,0x1 01fa e404 | | Load 0x2,0x4 01fb 0aff | | Execute_Immediate Plus,-0x1 01fc e5ff | | Load 0x2,-0x1 01fd 01cf | | Execute Vector,Slice_Read 01fe 00e2 | | Load_Encached Integer_Cache 01ff 00e0 | | Load_Encached Standard_Cache 0200 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0201 00d8 | | Load_Top At_Offset_0 0202 e002 | | Load 0x0,0x2 0203 0260 | ` | Execute Discrete,In_Type 0204 7001 |p | Jump_Nonzero 0x206 0205 0801 | | Execute_Immediate Raise,0x1 0206 8211 | | Call 0x1,0x11 0207 00d1 | | Pop_Control Pop_Count_1 0208 00d8 | | Load_Top At_Offset_0 0209 a5fd | | Store_Unchecked 0x2,-0x3 020a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 020b ; -------------------------------------------------------------------------------------- 020b ; STRING TABLE 020b ; -------------------------------------------------------------------------------------- 020b 0018 | | .STRTAB 0x0018->0x0217 ; "COUPURE_SECTEUR" 020c 0025 | % | .STRTAB 0x0025->0x021e ; "CARTE_ACCEPTEE" 020d 0031 | 1 | .STRTAB 0x0031->0x0225 ; "CARTE_REFUSEE_VEILLE" 020e 0043 | C | .STRTAB 0x0043->0x022f ; "CARTE_REFUSEE_SITE" 020f 0053 | S | .STRTAB 0x0053->0x0238 ; "CARTE_REFUSEE_PROG" 0210 0063 | c | .STRTAB 0x0063->0x0241 ; "CARTE_REFUSEE_APB" 0211 0072 | r | .STRTAB 0x0072->0x024a ; "CARTE_REFUSEE_PLAGE" 0212 0083 | | .STRTAB 0x0083->0x0253 ; "TETE_PRINCIPALE" 0213 0090 | | .STRTAB 0x0090->0x025b ; "TETE_AUXILIAIRE" 0214 009d | | .STRTAB 0x009d->0x0262 ; "Evenement" 0215 00a4 | | .STRTAB 0x00a4->0x0267 ; "Fin Evenement" 0216 00af | | .STREND 0x00af->0x026d 0217 434f 5550 |COUP| .STRTAB_STRINGS 026e 0000 0000 | | .XXX[0x2] 0270 ; -------------------------------------------------------------------------------------- 0270 ; Debug Table 0270 ; -------------------------------------------------------------------------------------- 0270 0004 0009 | | .DEBUG4 0x0004,0x0009,0x737c,0x0000,0x0001,0x0012 0276 000b 02be | | .DBG4T 0x000b,0x02be,0x8000,0x8000 027a 0040 02e6 | @ | .DBG4T 0x0040,0x02e6,0x8000,0x8000 027e 0063 0000 | c | .DBG4T 0x0063,0x0000,0x0005,0x0000 0282 008b 0000 | | .DBG4T 0x008b,0x0000,0x0005,0x0000 0286 00b3 0304 | | .DBG4T 0x00b3,0x0304,0x0001,0x0000 028a 00cb 030b | | .DBG4T 0x00cb,0x030b,0x0001,0x0000 028e 00d3 030e | | .DBG4T 0x00d3,0x030e,0x0001,0x0000 0292 00db 0311 | | .DBG4T 0x00db,0x0311,0x0001,0x0000 0296 00e3 0314 | | .DBG4T 0x00e3,0x0314,0x0001,0x0000 029a 00eb 0317 | | .DBG4T 0x00eb,0x0317,0x0001,0x0000 029e 00f3 031a | | .DBG4T 0x00f3,0x031a,0x0002,0x0000 02a2 00fb 031d | | .DBG4T 0x00fb,0x031d,0x0002,0x0000 02a6 0103 0320 | | .DBG4T 0x0103,0x0320,0x0002,0x0000 02aa 010b 0323 | #| .DBG4T 0x010b,0x0323,0x0002,0x0000 02ae 0113 0326 | &| .DBG4T 0x0113,0x0326,0x0002,0x0000 02b2 011b 0329 | )| .DBG4T 0x011b,0x0329,0x0002,0x0000 02b6 014b 032c | K ,| .DBG4T 0x014b,0x032c,0x0002,0x0000 02ba 015b 0332 | [ 2| .DBG4T 0x015b,0x0332,0x0001,0x0000 02be ; -------------------------------------------------------------------------------------- 02be ; Debug chain 02be ; -------------------------------------------------------------------------------------- 02be 0013 0000 | | .DBGLEN 0x0013,0x0000 02c0 000b 000e | | .DBGLNO 0x000b,0x000e,0x0011,0x0016,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0031,0x0033,0x0035,0x0037 02d3 0001 0002 | | .XXX[0x13] 02d5 0004 0005 | | 02d7 0007 0008 | | 02d9 0009 000a | | 02db 000b 000c | | 02dd 000d 000e | | 02df 000f 0010 | | 02e1 0011 0012 | | 02e3 0013 0014 | | 02e5 0015 | | 02e6 ; -------------------------------------------------------------------------------------- 02e6 ; Debug chain 02e6 ; -------------------------------------------------------------------------------------- 02e6 000e 0000 | | .DBGLEN 0x000e,0x0000 02e8 0040 0042 | @ B| .DBGLNO 0x0040,0x0042,0x0044,0x0046,0x0048,0x004a,0x004c,0x004e,0x0050,0x0052,0x0054,0x0056,0x0058,0x005a 02f6 0002 0003 | | .XXX[0xe] 02f8 0004 0005 | | 02fa 0006 0007 | | 02fc 0008 0009 | | 02fe 000a 000b | | 0300 000c 000d | | 0302 000e 000f | | 0304 ; -------------------------------------------------------------------------------------- 0304 ; Debug chain 0304 ; -------------------------------------------------------------------------------------- 0304 0000 0005 | | .DBGLEN 0x0000,0x0005 0306 00b3 00b7 | | .DBGLNO 0x00b3,0x00b7,0x00bb,0x00bf,0x00c3 030b ; -------------------------------------------------------------------------------------- 030b ; Debug chain 030b ; -------------------------------------------------------------------------------------- 030b 0000 0001 | | .DBGLEN 0x0000,0x0001 030d 00cb | | .DBGLNO 0x00cb 030e ; -------------------------------------------------------------------------------------- 030e ; Debug chain 030e ; -------------------------------------------------------------------------------------- 030e 0000 0001 | | .DBGLEN 0x0000,0x0001 0310 00d3 | | .DBGLNO 0x00d3 0311 ; -------------------------------------------------------------------------------------- 0311 ; Debug chain 0311 ; -------------------------------------------------------------------------------------- 0311 0000 0001 | | .DBGLEN 0x0000,0x0001 0313 00db | | .DBGLNO 0x00db 0314 ; -------------------------------------------------------------------------------------- 0314 ; Debug chain 0314 ; -------------------------------------------------------------------------------------- 0314 0000 0001 | | .DBGLEN 0x0000,0x0001 0316 00e3 | | .DBGLNO 0x00e3 0317 ; -------------------------------------------------------------------------------------- 0317 ; Debug chain 0317 ; -------------------------------------------------------------------------------------- 0317 0000 0001 | | .DBGLEN 0x0000,0x0001 0319 00eb | | .DBGLNO 0x00eb 031a ; -------------------------------------------------------------------------------------- 031a ; Debug chain 031a ; -------------------------------------------------------------------------------------- 031a 0000 0001 | | .DBGLEN 0x0000,0x0001 031c 00f3 | | .DBGLNO 0x00f3 031d ; -------------------------------------------------------------------------------------- 031d ; Debug chain 031d ; -------------------------------------------------------------------------------------- 031d 0000 0001 | | .DBGLEN 0x0000,0x0001 031f 00fb | | .DBGLNO 0x00fb 0320 ; -------------------------------------------------------------------------------------- 0320 ; Debug chain 0320 ; -------------------------------------------------------------------------------------- 0320 0000 0001 | | .DBGLEN 0x0000,0x0001 0322 0103 | | .DBGLNO 0x0103 0323 ; -------------------------------------------------------------------------------------- 0323 ; Debug chain 0323 ; -------------------------------------------------------------------------------------- 0323 0000 0001 | | .DBGLEN 0x0000,0x0001 0325 010b | | .DBGLNO 0x010b 0326 ; -------------------------------------------------------------------------------------- 0326 ; Debug chain 0326 ; -------------------------------------------------------------------------------------- 0326 0000 0001 | | .DBGLEN 0x0000,0x0001 0328 0113 | | .DBGLNO 0x0113 0329 ; -------------------------------------------------------------------------------------- 0329 ; Debug chain 0329 ; -------------------------------------------------------------------------------------- 0329 0000 0001 | | .DBGLEN 0x0000,0x0001 032b 011b | | .DBGLNO 0x011b 032c ; -------------------------------------------------------------------------------------- 032c ; Debug chain 032c ; -------------------------------------------------------------------------------------- 032c 0002 0002 | | .DBGLEN 0x0002,0x0002 032e 014b 014d | K M| .DBGLNO 0x014b,0x014d,0x014e,0x0154 0332 ; -------------------------------------------------------------------------------------- 0332 ; Debug chain 0332 ; -------------------------------------------------------------------------------------- 0332 0002 0009 | | .DBGLEN 0x0002,0x0009 0334 015b 015d | [ ]| .DBGLNO 0x015b,0x015d,0x0164,0x0169,0x0178,0x0187,0x0196,0x01a6,0x01b5,0x01c4,0x0208 033f 0000 0000 | | .BLANK 0000[0xc1]