|
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_773cc3
└─⟦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 02a8 | | .CONST 0x02a8 ; 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 006a | j | .CONST 0x006a ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0022 | " | .CONST 0x0022 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 48ff |H | Short_Literal 0xff
000d 00e3 | | Load_Encached Natural_Cache
000e 03f9 | | Declare_Type Discrete,Constrained,Visible
000f 4800 |H | Short_Literal 0x0
0010 4801 |H | Short_Literal 0x1
0011 029f 0073 | s| Declare_Subprogram INIT_0070,For_Call
0013 03fe | | Declare_Type Discrete,Defined,Visible
0014 4800 |H | Short_Literal 0x0
0015 4801 |H | Short_Literal 0x1
0016 029f 009b | | Declare_Subprogram INIT_0098,For_Call
0018 03fe | | Declare_Type Discrete,Defined,Visible
0019 4800 |H | Short_Literal 0x0
001a 4802 |H | Short_Literal 0x2
001b 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call
001d 03fe | | Declare_Type Discrete,Defined,Visible
001e 4800 |H | Short_Literal 0x0
001f 4801 |H | Short_Literal 0x1
0020 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call
0022 03fe | | Declare_Type Discrete,Defined,Visible
0023 0092 0277 | w| Action Push_String_Extended,0x277 ; "Parametre"
0025 0129 | ) | Execute Any,Make_Visible
0026 0092 0278 | x| Action Push_String_Extended,0x278 ; "Fin Parametre"
0028 0129 | ) | Execute Any,Make_Visible
0029 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
002b 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated
002d 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated
002f 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated
0031 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated
0033 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated
0035 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated
0037 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated
0039 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
003b 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
003d 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated
003f 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated
0041 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated
0043 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated
0045 e20d | | Load 0x1,0xd
0046 e20e | | Load 0x1,0xe
0047 e20f | | Load 0x1,0xf
0048 e210 | | Load 0x1,0x10
0049 e211 | | Load 0x1,0x11
004a 02a0 | | Declare_Subprogram Null_Subprogram
004b 4805 |H | Short_Literal 0x5
004c 032e | . | Declare_Type Record,Defined,Visible
004d 00bf | | Action Accept_Activation
004e 1d14 | | Execute_Immediate Reference_Lex_1,0x14
004f 00c7 | | Action Elaborate_Subprogram
0050 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0051 00c7 | | Action Elaborate_Subprogram
0052 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0053 00c7 | | Action Elaborate_Subprogram
0054 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0055 00c7 | | Action Elaborate_Subprogram
0056 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0057 00c7 | | Action Elaborate_Subprogram
0058 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0059 00c7 | | Action Elaborate_Subprogram
005a 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
005b 00c7 | | Action Elaborate_Subprogram
005c 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
005d 00c7 | | Action Elaborate_Subprogram
005e 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
005f 00c7 | | Action Elaborate_Subprogram
0060 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0061 00c7 | | Action Elaborate_Subprogram
0062 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0063 00c7 | | Action Elaborate_Subprogram
0064 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0065 00c7 | | Action Elaborate_Subprogram
0066 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0067 00c7 | | Action Elaborate_Subprogram
0068 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
0069 00c7 | | Action Elaborate_Subprogram
006a BODY_0008:
006a 00bc | | Action Signal_Activated
006b 00bb | | Action Signal_Completion
006c 0000 0000 | | .BLANK 0000[0x4]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073 | s | .CONST 0x0073 ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0001 | | .CONST 0x0001 ; Number of locals
0073 BODY_0070:
0073 INIT_0070:
0073 4607 |F | Jump_Case 0x8
0074 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0075 7807 |x | Jump 0x7d ; case 0x1
0076 780a |x | Jump 0x81 ; case 0x2
0077 780e |x | Jump 0x86 ; case 0x3
0078 7811 |x | Jump 0x8a ; case 0x4
0079 7812 |x | Jump 0x8c ; case 0x5
007a 7813 |x | Jump 0x8e ; case 0x6
007b 7816 |x | Jump 0x92 ; case 0x7
007c 4302 |C | .XXX[0x1]
007d 00da | | Load_Top At_Offset_2
007e 0091 026e | n| Action Push_String_Extended_Indexed,0x26e ; "INACTIF"
0080 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0081 00db | | Load_Top At_Offset_3
0082 00db | | Load_Top At_Offset_3
0083 00e0 | | Load_Encached Standard_Cache
0084 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0085 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0086 00da | | Load_Top At_Offset_2
0087 00e0 | | Load_Encached Standard_Cache
0088 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0089 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
008a 00db | | Load_Top At_Offset_3
008b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
008c 00db | | Load_Top At_Offset_3
008d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
008e e20e | | Load 0x1,0xe
008f 00dc | | Load_Top At_Offset_4
0090 0267 | g | Execute Discrete,Predecessor
0091 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0092 e20e | | Load 0x1,0xe
0093 00dc | | Load_Top At_Offset_4
0094 0268 | h | Execute Discrete,Successor
0095 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0096 0000 0000 | | .XXX[0x2]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b | | .CONST 0x009b ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0001 | | .CONST 0x0001 ; Number of locals
009b BODY_0098:
009b INIT_0098:
009b 4607 |F | Jump_Case 0x8
009c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
009d 7807 |x | Jump 0xa5 ; case 0x1
009e 780a |x | Jump 0xa9 ; case 0x2
009f 780e |x | Jump 0xae ; case 0x3
00a0 7811 |x | Jump 0xb2 ; case 0x4
00a1 7812 |x | Jump 0xb4 ; case 0x5
00a2 7813 |x | Jump 0xb6 ; case 0x6
00a3 7816 |x | Jump 0xba ; case 0x7
00a4 4302 |C | .XXX[0x1]
00a5 00da | | Load_Top At_Offset_2
00a6 0091 0270 | p| Action Push_String_Extended_Indexed,0x270 ; "EN_VEILLE"
00a8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00a9 00db | | Load_Top At_Offset_3
00aa 00db | | Load_Top At_Offset_3
00ab 00e0 | | Load_Encached Standard_Cache
00ac 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00ad 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00ae 00da | | Load_Top At_Offset_2
00af 00e0 | | Load_Encached Standard_Cache
00b0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00b1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00b2 00db | | Load_Top At_Offset_3
00b3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00b4 00db | | Load_Top At_Offset_3
00b5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00b6 e20f | | Load 0x1,0xf
00b7 00dc | | Load_Top At_Offset_4
00b8 0267 | g | Execute Discrete,Predecessor
00b9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00ba e20f | | Load 0x1,0xf
00bb 00dc | | Load_Top At_Offset_4
00bc 0268 | h | Execute Discrete,Successor
00bd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00be 0000 0000 | | .XXX[0x2]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3 | | .CONST 0x00c3 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0001 | | .CONST 0x0001 ; Number of locals
00c3 BODY_00c0:
00c3 INIT_00c0:
00c3 4607 |F | Jump_Case 0x8
00c4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00c5 7807 |x | Jump 0xcd ; case 0x1
00c6 780a |x | Jump 0xd1 ; case 0x2
00c7 780e |x | Jump 0xd6 ; case 0x3
00c8 7811 |x | Jump 0xda ; case 0x4
00c9 7812 |x | Jump 0xdc ; case 0x5
00ca 7813 |x | Jump 0xde ; case 0x6
00cb 7816 |x | Jump 0xe2 ; case 0x7
00cc 4302 |C | .XXX[0x1]
00cd 00da | | Load_Top At_Offset_2
00ce 0091 0272 | r| Action Push_String_Extended_Indexed,0x272 ; "CONTACT"
00d0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00d1 00db | | Load_Top At_Offset_3
00d2 00db | | Load_Top At_Offset_3
00d3 00e0 | | Load_Encached Standard_Cache
00d4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00d5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00d6 00da | | Load_Top At_Offset_2
00d7 00e0 | | Load_Encached Standard_Cache
00d8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00d9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00da 00db | | Load_Top At_Offset_3
00db 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00dc 00db | | Load_Top At_Offset_3
00dd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00de e210 | | Load 0x1,0x10
00df 00dc | | Load_Top At_Offset_4
00e0 0267 | g | Execute Discrete,Predecessor
00e1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00e2 e210 | | Load 0x1,0x10
00e3 00dc | | Load_Top At_Offset_4
00e4 0268 | h | Execute Discrete,Successor
00e5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00e6 0000 0000 | | .XXX[0x2]
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 4607 |F | Jump_Case 0x8
00ec 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00ed 7807 |x | Jump 0xf5 ; case 0x1
00ee 780a |x | Jump 0xf9 ; case 0x2
00ef 780e |x | Jump 0xfe ; case 0x3
00f0 7811 |x | Jump 0x102 ; case 0x4
00f1 7812 |x | Jump 0x104 ; case 0x5
00f2 7813 |x | Jump 0x106 ; case 0x6
00f3 7816 |x | Jump 0x10a ; case 0x7
00f4 4302 |C | .XXX[0x1]
00f5 00da | | Load_Top At_Offset_2
00f6 0091 0275 | u| Action Push_String_Extended_Indexed,0x275 ; "ANOMALIES"
00f8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00f9 00db | | Load_Top At_Offset_3
00fa 00db | | Load_Top At_Offset_3
00fb 00e0 | | Load_Encached Standard_Cache
00fc 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00fd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00fe 00da | | Load_Top At_Offset_2
00ff 00e0 | | Load_Encached Standard_Cache
0100 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0101 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0102 00db | | Load_Top At_Offset_3
0103 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0104 00db | | Load_Top At_Offset_3
0105 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0106 e211 | | Load 0x1,0x11
0107 00dc | | Load_Top At_Offset_4
0108 0267 | g | Execute Discrete,Predecessor
0109 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
010a e211 | | Load 0x1,0x11
010b 00dc | | Load_Top At_Offset_4
010c 0268 | h | Execute Discrete,Successor
010d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
010e 0000 0000 | | .XXX[0x2]
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 e5fa | | Load 0x2,-0x6
0114 00db | | Load_Top At_Offset_3
0115 8215 | | Call 0x1,0x15
0116 00d1 | | Pop_Control Pop_Count_1
0117 e5fa | | Load 0x2,-0x6
0118 e5fe | | Load 0x2,-0x2
0119 8216 | | Call 0x1,0x16
011a 00d1 | | Pop_Control Pop_Count_1
011b e5fa | | Load 0x2,-0x6
011c e5fd | | Load 0x2,-0x3
011d 8217 | | Call 0x1,0x17
011e 00d1 | | Pop_Control Pop_Count_1
011f e5fa | | Load 0x2,-0x6
0120 e5fc | | Load 0x2,-0x4
0121 8218 | | Call 0x1,0x18
0122 00d1 | | Pop_Control Pop_Count_1
0123 e5fa | | Load 0x2,-0x6
0124 e5fb | | Load 0x2,-0x5
0125 8219 | | Call 0x1,0x19
0126 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0127 0000 | | .XXX[0x1]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b | + | .CONST 0x012b ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0001 | | .CONST 0x0001 ; Number of locals
012b BODY_0128:
012b INIT_0128:
012b 00da | | Load_Top At_Offset_2
012c e5fe | | Load 0x2,-0x2
012d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
012e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
012f 0000 | | .XXX[0x1]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133 | 3 | .CONST 0x0133 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0001 | | .CONST 0x0001 ; Number of locals
0133 BODY_0130:
0133 INIT_0130:
0133 00da | | Load_Top At_Offset_2
0134 e5fe | | Load 0x2,-0x2
0135 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0136 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0137 0000 | | .XXX[0x1]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b | ; | .CONST 0x013b ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0001 | | .CONST 0x0001 ; Number of locals
013b BODY_0138:
013b INIT_0138:
013b 00da | | Load_Top At_Offset_2
013c e5fe | | Load 0x2,-0x2
013d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
013e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
013f 0000 | | .XXX[0x1]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143 | C | .CONST 0x0143 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0001 | | .CONST 0x0001 ; Number of locals
0143 BODY_0140:
0143 INIT_0140:
0143 00da | | Load_Top At_Offset_2
0144 e5fe | | Load 0x2,-0x2
0145 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0146 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0147 0000 | | .XXX[0x1]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b | K | .CONST 0x014b ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0001 | | .CONST 0x0001 ; Number of locals
014b BODY_0148:
014b INIT_0148:
014b 00da | | Load_Top At_Offset_2
014c e5fe | | Load 0x2,-0x2
014d 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
014e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
014f 0000 | | .XXX[0x1]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153 | S | .CONST 0x0153 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0001 | | .CONST 0x0001 ; Number of locals
0153 BODY_0150:
0153 INIT_0150:
0153 00da | | Load_Top At_Offset_2
0154 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0155 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0156 0000 0000 | | .XXX[0x2]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b 00da | | Load_Top At_Offset_2
015c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
015d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
015e 0000 0000 | | .XXX[0x2]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163 | c | .CONST 0x0163 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0001 | | .CONST 0x0001 ; Number of locals
0163 BODY_0160:
0163 INIT_0160:
0163 00da | | Load_Top At_Offset_2
0164 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0165 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0166 0000 0000 | | .XXX[0x2]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b | k | .CONST 0x016b ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0001 | | .CONST 0x0001 ; Number of locals
016b BODY_0168:
016b INIT_0168:
016b 00da | | Load_Top At_Offset_2
016c 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
016d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
016e 0000 0000 | | .XXX[0x2]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 00da | | Load_Top At_Offset_2
0174 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0175 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0176 0000 0000 | | .XXX[0x2]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b | { | .CONST 0x017b ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0001 | | .CONST 0x0001 ; Number of locals
017b BODY_0178:
017b INIT_0178:
017b 4823 |H# | Short_Literal 0x23
017c 4823 |H# | Short_Literal 0x23
017d 4823 |H# | Short_Literal 0x23
017e 4823 |H# | Short_Literal 0x23
017f 4823 |H# | Short_Literal 0x23
0180 e212 | | Load 0x1,0x12
0181 e5ff | | Load 0x2,-0x1
0182 821a | | Call 0x1,0x1a
0183 00e0 | | Load_Encached Standard_Cache
0184 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0185 01cc | | Execute Vector,Catenate
0186 01cb | | Execute Vector,Append
0187 e5ff | | Load 0x2,-0x1
0188 821b | | Call 0x1,0x1b
0189 e20e | | Load 0x1,0xe
018a 011c | | Execute Any,Convert_Unchecked
018b 1c01 | | Execute_Immediate Run_Utility,0x1
018c 01cc | | Execute Vector,Catenate
018d 01cb | | Execute Vector,Append
018e e5ff | | Load 0x2,-0x1
018f 821c | | Call 0x1,0x1c
0190 e20f | | Load 0x1,0xf
0191 011c | | Execute Any,Convert_Unchecked
0192 1c01 | | Execute_Immediate Run_Utility,0x1
0193 01cc | | Execute Vector,Catenate
0194 01cb | | Execute Vector,Append
0195 e5ff | | Load 0x2,-0x1
0196 821d | | Call 0x1,0x1d
0197 e210 | | Load 0x1,0x10
0198 011c | | Execute Any,Convert_Unchecked
0199 1c01 | | Execute_Immediate Run_Utility,0x1
019a 01cc | | Execute Vector,Catenate
019b 01cb | | Execute Vector,Append
019c e5ff | | Load 0x2,-0x1
019d 821e | | Call 0x1,0x1e
019e e211 | | Load 0x1,0x11
019f 011c | | Execute Any,Convert_Unchecked
01a0 1c01 | | Execute_Immediate Run_Utility,0x1
01a1 01cc | | Execute Vector,Catenate
01a2 01cb | | Execute Vector,Append
01a3 e213 | | Load 0x1,0x13
01a4 01cc | | Execute Vector,Catenate
01a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a6 0000 0000 | | .XXX[0x2]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ae | | .CONST 0x01ae ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0003 | | .CONST 0x0003 ; Number of locals
01ab INIT_01a8:
01ab e222 | " | Load 0x1,0x22
01ac 0322 | " | Declare_Variable Record
01ad 00e3 | | Load_Encached Natural_Cache
01ae BODY_01a8:
01ae 00d8 | | Load_Top At_Offset_0
01af 00da | | Load_Top At_Offset_2
01b0 e5ff | | Load 0x2,-0x1
01b1 8221 | ! | Call 0x1,0x21
01b2 00d1 | | Pop_Control Pop_Count_1
01b3 0059 | Y | Store_Top Discrete,At_Offset_1
01b4 00d9 | | Load_Top At_Offset_1
01b5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01b6 0000 0000 | | .XXX[0x2]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01c2 | | .CONST 0x01c2 ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0008 | | .CONST 0x0008 ; Number of locals
01bb INIT_01b8:
01bb 00e3 | | Load_Encached Natural_Cache
01bc 03e9 | | Declare_Variable Discrete,Duplicate
01bd 03e9 | | Declare_Variable Discrete,Duplicate
01be 03e9 | | Declare_Variable Discrete,Duplicate
01bf 03e9 | | Declare_Variable Discrete,Duplicate
01c0 03e9 | | Declare_Variable Discrete,Duplicate
01c1 03e9 | | Declare_Variable Discrete,Duplicate
01c2 BODY_01b8:
01c2 e402 | | Load 0x2,0x2
01c3 e212 | | Load 0x1,0x12
01c4 e5ff | | Load 0x2,-0x1
01c5 8002 | | Call 0x0,0x2
01c6 c402 | | Store 0x2,0x2
01c7 e403 | | Load 0x2,0x3
01c8 4823 |H# | Short_Literal 0x23
01c9 e402 | | Load 0x2,0x2
01ca 0a01 | | Execute_Immediate Plus,0x1
01cb 00d8 | | Load_Top At_Offset_0
01cc 00e2 | | Load_Encached Integer_Cache
01cd 0260 | ` | Execute Discrete,In_Type
01ce 7001 |p | Jump_Nonzero 0x1d0
01cf 0801 | | Execute_Immediate Raise,0x1
01d0 e5ff | | Load 0x2,-0x1
01d1 01dc | | Execute Vector,Last
01d2 e5ff | | Load 0x2,-0x1
01d3 01cf | | Execute Vector,Slice_Read
01d4 8003 | | Call 0x0,0x3
01d5 c403 | | Store 0x2,0x3
01d6 e404 | | Load 0x2,0x4
01d7 4823 |H# | Short_Literal 0x23
01d8 e403 | | Load 0x2,0x3
01d9 0a01 | | Execute_Immediate Plus,0x1
01da 00d8 | | Load_Top At_Offset_0
01db 00e2 | | Load_Encached Integer_Cache
01dc 0260 | ` | Execute Discrete,In_Type
01dd 7001 |p | Jump_Nonzero 0x1df
01de 0801 | | Execute_Immediate Raise,0x1
01df e5ff | | Load 0x2,-0x1
01e0 01dc | | Execute Vector,Last
01e1 e5ff | | Load 0x2,-0x1
01e2 01cf | | Execute Vector,Slice_Read
01e3 8003 | | Call 0x0,0x3
01e4 c404 | | Store 0x2,0x4
01e5 00db | | Load_Top At_Offset_3
01e6 4823 |H# | Short_Literal 0x23
01e7 e404 | | Load 0x2,0x4
01e8 0a01 | | Execute_Immediate Plus,0x1
01e9 00d8 | | Load_Top At_Offset_0
01ea 00e2 | | Load_Encached Integer_Cache
01eb 0260 | ` | Execute Discrete,In_Type
01ec 7001 |p | Jump_Nonzero 0x1ee
01ed 0801 | | Execute_Immediate Raise,0x1
01ee e5ff | | Load 0x2,-0x1
01ef 01dc | | Execute Vector,Last
01f0 e5ff | | Load 0x2,-0x1
01f1 01cf | | Execute Vector,Slice_Read
01f2 8003 | | Call 0x0,0x3
01f3 c405 | | Store 0x2,0x5
01f4 00da | | Load_Top At_Offset_2
01f5 4823 |H# | Short_Literal 0x23
01f6 e405 | | Load 0x2,0x5
01f7 0a01 | | Execute_Immediate Plus,0x1
01f8 00d8 | | Load_Top At_Offset_0
01f9 00e2 | | Load_Encached Integer_Cache
01fa 0260 | ` | Execute Discrete,In_Type
01fb 7001 |p | Jump_Nonzero 0x1fd
01fc 0801 | | Execute_Immediate Raise,0x1
01fd e5ff | | Load 0x2,-0x1
01fe 01dc | | Execute Vector,Last
01ff e5ff | | Load 0x2,-0x1
0200 01cf | | Execute Vector,Slice_Read
0201 8003 | | Call 0x0,0x3
0202 005b | [ | Store_Top Discrete,At_Offset_3
0203 00d9 | | Load_Top At_Offset_1
0204 4823 |H# | Short_Literal 0x23
0205 e406 | | Load 0x2,0x6
0206 0a01 | | Execute_Immediate Plus,0x1
0207 00d8 | | Load_Top At_Offset_0
0208 00e2 | | Load_Encached Integer_Cache
0209 0260 | ` | Execute Discrete,In_Type
020a 7001 |p | Jump_Nonzero 0x20c
020b 0801 | | Execute_Immediate Raise,0x1
020c e5ff | | Load 0x2,-0x1
020d 01dc | | Execute Vector,Last
020e e5ff | | Load 0x2,-0x1
020f 01cf | | Execute Vector,Slice_Read
0210 8003 | | Call 0x0,0x3
0211 005a | Z | Store_Top Discrete,At_Offset_2
0212 00d8 | | Load_Top At_Offset_0
0213 e213 | | Load 0x1,0x13
0214 00db | | Load_Top At_Offset_3
0215 0a01 | | Execute_Immediate Plus,0x1
0216 00d8 | | Load_Top At_Offset_0
0217 00e2 | | Load_Encached Integer_Cache
0218 0260 | ` | Execute Discrete,In_Type
0219 7001 |p | Jump_Nonzero 0x21b
021a 0801 | | Execute_Immediate Raise,0x1
021b e5ff | | Load 0x2,-0x1
021c 01dc | | Execute Vector,Last
021d e5ff | | Load 0x2,-0x1
021e 01cf | | Execute Vector,Slice_Read
021f 8002 | | Call 0x0,0x2
0220 0059 | Y | Store_Top Discrete,At_Offset_1
0221 e5fe | | Load 0x2,-0x2
0222 00db | | Load_Top At_Offset_3
0223 0a01 | | Execute_Immediate Plus,0x1
0224 00d8 | | Load_Top At_Offset_0
0225 00e2 | | Load_Encached Integer_Cache
0226 0260 | ` | Execute Discrete,In_Type
0227 7001 |p | Jump_Nonzero 0x229
0228 0801 | | Execute_Immediate Raise,0x1
0229 00db | | Load_Top At_Offset_3
022a 0aff | | Execute_Immediate Plus,-0x1
022b e5ff | | Load 0x2,-0x1
022c 01cf | | Execute Vector,Slice_Read
022d e211 | | Load 0x1,0x11
022e 1c02 | | Execute_Immediate Run_Utility,0x2
022f e405 | | Load 0x2,0x5
0230 0a01 | | Execute_Immediate Plus,0x1
0231 00d8 | | Load_Top At_Offset_0
0232 00e2 | | Load_Encached Integer_Cache
0233 0260 | ` | Execute Discrete,In_Type
0234 7001 |p | Jump_Nonzero 0x236
0235 0801 | | Execute_Immediate Raise,0x1
0236 e406 | | Load 0x2,0x6
0237 0aff | | Execute_Immediate Plus,-0x1
0238 e5ff | | Load 0x2,-0x1
0239 01cf | | Execute Vector,Slice_Read
023a e210 | | Load 0x1,0x10
023b 1c02 | | Execute_Immediate Run_Utility,0x2
023c e404 | | Load 0x2,0x4
023d 0a01 | | Execute_Immediate Plus,0x1
023e 00d8 | | Load_Top At_Offset_0
023f 00e2 | | Load_Encached Integer_Cache
0240 0260 | ` | Execute Discrete,In_Type
0241 7001 |p | Jump_Nonzero 0x243
0242 0801 | | Execute_Immediate Raise,0x1
0243 e405 | | Load 0x2,0x5
0244 0aff | | Execute_Immediate Plus,-0x1
0245 e5ff | | Load 0x2,-0x1
0246 01cf | | Execute Vector,Slice_Read
0247 e20f | | Load 0x1,0xf
0248 1c02 | | Execute_Immediate Run_Utility,0x2
0249 e403 | | Load 0x2,0x3
024a 0a01 | | Execute_Immediate Plus,0x1
024b 00d8 | | Load_Top At_Offset_0
024c 00e2 | | Load_Encached Integer_Cache
024d 0260 | ` | Execute Discrete,In_Type
024e 7001 |p | Jump_Nonzero 0x250
024f 0801 | | Execute_Immediate Raise,0x1
0250 e404 | | Load 0x2,0x4
0251 0aff | | Execute_Immediate Plus,-0x1
0252 e5ff | | Load 0x2,-0x1
0253 01cf | | Execute Vector,Slice_Read
0254 e20e | | Load 0x1,0xe
0255 1c02 | | Execute_Immediate Run_Utility,0x2
0256 e402 | | Load 0x2,0x2
0257 0a01 | | Execute_Immediate Plus,0x1
0258 00d8 | | Load_Top At_Offset_0
0259 00e2 | | Load_Encached Integer_Cache
025a 0260 | ` | Execute Discrete,In_Type
025b 7001 |p | Jump_Nonzero 0x25d
025c 0801 | | Execute_Immediate Raise,0x1
025d e403 | | Load 0x2,0x3
025e 0aff | | Execute_Immediate Plus,-0x1
025f e5ff | | Load 0x2,-0x1
0260 01cf | | Execute Vector,Slice_Read
0261 00e2 | | Load_Encached Integer_Cache
0262 00e0 | | Load_Encached Standard_Cache
0263 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0264 00d8 | | Load_Top At_Offset_0
0265 e20d | | Load 0x1,0xd
0266 0260 | ` | Execute Discrete,In_Type
0267 7001 |p | Jump_Nonzero 0x269
0268 0801 | | Execute_Immediate Raise,0x1
0269 8214 | | Call 0x1,0x14
026a 00d1 | | Pop_Control Pop_Count_1
026b 00d8 | | Load_Top At_Offset_0
026c a5fd | | Store_Unchecked 0x2,-0x3
026d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
026e ; --------------------------------------------------------------------------------------
026e ; STRING TABLE
026e ; --------------------------------------------------------------------------------------
026e 0018 | | .STRTAB 0x0018->0x027a ; "INACTIF"
026f 001d | | .STRTAB 0x001d->0x027d ; "ACTIF"
0270 0020 | | .STRTAB 0x0020->0x0280 ; "EN_VEILLE"
0271 0027 | ' | .STRTAB 0x0027->0x0284 ; "EN_SERVICE"
0272 002f | / | .STRTAB 0x002f->0x0289 ; "CONTACT"
0273 0034 | 4 | .STRTAB 0x0034->0x028d ; "BOUCLE"
0274 0038 | 8 | .STRTAB 0x0038->0x0290 ; "BP"
0275 0038 | 8 | .STRTAB 0x0038->0x0291 ; "ANOMALIES"
0276 003f | ? | .STRTAB 0x003f->0x0295 ; "TOUS"
0277 0041 | A | .STRTAB 0x0041->0x0297 ; "Parametre"
0278 0048 | H | .STRTAB 0x0048->0x029c ; "Fin Parametre"
0279 0053 | S | .STREND 0x0053->0x02a2
027a 494e 4143 |INAC| .STRTAB_STRINGS
02a3 0000 0000 | | .BLANK 0000[0x5]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; Debug Table
02a8 ; --------------------------------------------------------------------------------------
02a8 0004 0009 | | .DEBUG4 0x0004,0x0009,0x71a6,0x0000,0x0001,0x0014
02ae 000b 02fe | | .DBG4T 0x000b,0x02fe,0x8000,0x8000
02b2 004e 032c | N ,| .DBG4T 0x004e,0x032c,0x8000,0x8000
02b6 0073 0000 | s | .DBG4T 0x0073,0x0000,0x0005,0x0000
02ba 009b 0000 | | .DBG4T 0x009b,0x0000,0x0005,0x0000
02be 00c3 0000 | | .DBG4T 0x00c3,0x0000,0x0005,0x0000
02c2 00eb 0000 | | .DBG4T 0x00eb,0x0000,0x0005,0x0000
02c6 0113 034a | J| .DBG4T 0x0113,0x034a,0x0001,0x0000
02ca 012b 0351 | + Q| .DBG4T 0x012b,0x0351,0x0001,0x0000
02ce 0133 0354 | 3 T| .DBG4T 0x0133,0x0354,0x0001,0x0000
02d2 013b 0357 | ; W| .DBG4T 0x013b,0x0357,0x0001,0x0000
02d6 0143 035a | C Z| .DBG4T 0x0143,0x035a,0x0001,0x0000
02da 014b 035d | K ]| .DBG4T 0x014b,0x035d,0x0001,0x0000
02de 0153 0360 | S `| .DBG4T 0x0153,0x0360,0x0002,0x0000
02e2 015b 0363 | [ c| .DBG4T 0x015b,0x0363,0x0002,0x0000
02e6 0163 0366 | c f| .DBG4T 0x0163,0x0366,0x0002,0x0000
02ea 016b 0369 | k i| .DBG4T 0x016b,0x0369,0x0002,0x0000
02ee 0173 036c | s l| .DBG4T 0x0173,0x036c,0x0002,0x0000
02f2 017b 036f | { o| .DBG4T 0x017b,0x036f,0x0002,0x0000
02f6 01ab 0372 | r| .DBG4T 0x01ab,0x0372,0x0002,0x0000
02fa 01bb 0378 | x| .DBG4T 0x01bb,0x0378,0x0001,0x0000
02fe ; --------------------------------------------------------------------------------------
02fe ; Debug chain
02fe ; --------------------------------------------------------------------------------------
02fe 0016 0000 | | .DBGLEN 0x0016,0x0000
0300 000b 000f | | .DBGLNO 0x000b,0x000f,0x0014,0x0019,0x001e,0x0023,0x0026,0x0029,0x002b,0x002d,0x002f,0x0031,0x0033,0x0035,0x0037,0x0039,0x003b,0x003d,0x003f,0x0041,0x0043,0x0045
0316 0002 0003 | | .XXX[0x16]
0318 0004 0005 | |
031a 0006 0007 | |
031c 0008 000a | |
031e 000b 000c | |
0320 000d 000e | |
0322 000f 0010 | |
0324 0011 0012 | |
0326 0013 0014 | |
0328 0015 0016 | |
032a 0017 0018 | |
032c ; --------------------------------------------------------------------------------------
032c ; Debug chain
032c ; --------------------------------------------------------------------------------------
032c 000e 0000 | | .DBGLEN 0x000e,0x0000
032e 004e 0050 | N P| .DBGLNO 0x004e,0x0050,0x0052,0x0054,0x0056,0x0058,0x005a,0x005c,0x005e,0x0060,0x0062,0x0064,0x0066,0x0068
033c 0002 0003 | | .XXX[0xe]
033e 0004 0005 | |
0340 0006 0007 | |
0342 0008 0009 | |
0344 000a 000b | |
0346 000c 000d | |
0348 000e 000f | |
034a ; --------------------------------------------------------------------------------------
034a ; Debug chain
034a ; --------------------------------------------------------------------------------------
034a 0000 0005 | | .DBGLEN 0x0000,0x0005
034c 0113 0117 | | .DBGLNO 0x0113,0x0117,0x011b,0x011f,0x0123
0351 ; --------------------------------------------------------------------------------------
0351 ; Debug chain
0351 ; --------------------------------------------------------------------------------------
0351 0000 0001 | | .DBGLEN 0x0000,0x0001
0353 012b | + | .DBGLNO 0x012b
0354 ; --------------------------------------------------------------------------------------
0354 ; Debug chain
0354 ; --------------------------------------------------------------------------------------
0354 0000 0001 | | .DBGLEN 0x0000,0x0001
0356 0133 | 3 | .DBGLNO 0x0133
0357 ; --------------------------------------------------------------------------------------
0357 ; Debug chain
0357 ; --------------------------------------------------------------------------------------
0357 0000 0001 | | .DBGLEN 0x0000,0x0001
0359 013b | ; | .DBGLNO 0x013b
035a ; --------------------------------------------------------------------------------------
035a ; Debug chain
035a ; --------------------------------------------------------------------------------------
035a 0000 0001 | | .DBGLEN 0x0000,0x0001
035c 0143 | C | .DBGLNO 0x0143
035d ; --------------------------------------------------------------------------------------
035d ; Debug chain
035d ; --------------------------------------------------------------------------------------
035d 0000 0001 | | .DBGLEN 0x0000,0x0001
035f 014b | K | .DBGLNO 0x014b
0360 ; --------------------------------------------------------------------------------------
0360 ; Debug chain
0360 ; --------------------------------------------------------------------------------------
0360 0000 0001 | | .DBGLEN 0x0000,0x0001
0362 0153 | S | .DBGLNO 0x0153
0363 ; --------------------------------------------------------------------------------------
0363 ; Debug chain
0363 ; --------------------------------------------------------------------------------------
0363 0000 0001 | | .DBGLEN 0x0000,0x0001
0365 015b | [ | .DBGLNO 0x015b
0366 ; --------------------------------------------------------------------------------------
0366 ; Debug chain
0366 ; --------------------------------------------------------------------------------------
0366 0000 0001 | | .DBGLEN 0x0000,0x0001
0368 0163 | c | .DBGLNO 0x0163
0369 ; --------------------------------------------------------------------------------------
0369 ; Debug chain
0369 ; --------------------------------------------------------------------------------------
0369 0000 0001 | | .DBGLEN 0x0000,0x0001
036b 016b | k | .DBGLNO 0x016b
036c ; --------------------------------------------------------------------------------------
036c ; Debug chain
036c ; --------------------------------------------------------------------------------------
036c 0000 0001 | | .DBGLEN 0x0000,0x0001
036e 0173 | s | .DBGLNO 0x0173
036f ; --------------------------------------------------------------------------------------
036f ; Debug chain
036f ; --------------------------------------------------------------------------------------
036f 0000 0001 | | .DBGLEN 0x0000,0x0001
0371 017b | { | .DBGLNO 0x017b
0372 ; --------------------------------------------------------------------------------------
0372 ; Debug chain
0372 ; --------------------------------------------------------------------------------------
0372 0002 0002 | | .DBGLEN 0x0002,0x0002
0374 01ab 01ad | | .DBGLNO 0x01ab,0x01ad,0x01ae,0x01b4
0378 ; --------------------------------------------------------------------------------------
0378 ; Debug chain
0378 ; --------------------------------------------------------------------------------------
0378 0001 0009 | | .DBGLEN 0x0001,0x0009
037a 01bb 01c2 | | .DBGLNO 0x01bb,0x01c2,0x01c7,0x01d6,0x01e5,0x01f4,0x0203,0x0212,0x0221,0x026b
0384 0000 0000 | | .BLANK 0000[0x7c]