|
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_0e20ee
└─⟦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 01f8 | | .CONST 0x01f8 ; 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 0054 | T | .CONST 0x0054 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0018 | | .CONST 0x0018 ; Number of locals
000b INIT_0008:
000b 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated
000d 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated
000f 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated
0011 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
0013 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated
0015 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
0017 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated
0019 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated
001b e002 | | Load 0x0,0x2
001c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
001d 4801 |H | Short_Literal 0x1
001e 4802 |H | Short_Literal 0x2
001f e003 | | Load 0x0,0x3
0020 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0021 035c | \ | Declare_Type Array,Constrained,Visible
0022 4801 |H | Short_Literal 0x1
0023 4804 |H | Short_Literal 0x4
0024 e003 | | Load 0x0,0x3
0025 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0026 035c | \ | Declare_Type Array,Constrained,Visible
0027 4801 |H | Short_Literal 0x1
0028 4802 |H | Short_Literal 0x2
0029 e003 | | Load 0x0,0x3
002a 1b15 | | Execute Package,Field_Read,Field_Number 0x15
002b 035c | \ | Declare_Type Array,Constrained,Visible
002c 4801 |H | Short_Literal 0x1
002d 4804 |H | Short_Literal 0x4
002e e003 | | Load 0x0,0x3
002f 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0030 035c | \ | Declare_Type Array,Constrained,Visible
0031 e003 | | Load 0x0,0x3
0032 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0033 029f 01c3 | | Declare_Subprogram INIT_01c0,For_Call
0035 4806 |H | Short_Literal 0x6
0036 032e | . | Declare_Type Record,Defined,Visible
0037 00bf | | Action Accept_Activation
0038 4801 |H | Short_Literal 0x1
0039 4806 |H | Short_Literal 0x6
003a 00e9 | | Load_Encached String_Cache
003b 0334 | 4 | Declare_Variable Array,With_Constraint
003c 504b |PK | Indirect_Literal Any,0x88,{0x5443502f, 0x49502020}
003d 00e3 | | Load_Encached Natural_Cache
003e 4800 |H | Short_Literal 0x0
003f 48c7 |H | Short_Literal 0xc7
0040 e004 | | Load 0x0,0x4
0041 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0042 035b | [ | Declare_Type Array,Constrained
0043 0337 | 7 | Declare_Variable Array
0044 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0045 00c7 | | Action Elaborate_Subprogram
0046 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0047 00c7 | | Action Elaborate_Subprogram
0048 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0049 00c7 | | Action Elaborate_Subprogram
004a 1d10 | | Execute_Immediate Reference_Lex_1,0x10
004b 00c7 | | Action Elaborate_Subprogram
004c 1d11 | | Execute_Immediate Reference_Lex_1,0x11
004d 00c7 | | Action Elaborate_Subprogram
004e 1d12 | | Execute_Immediate Reference_Lex_1,0x12
004f 00c7 | | Action Elaborate_Subprogram
0050 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0051 00c7 | | Action Elaborate_Subprogram
0052 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0053 00c7 | | Action Elaborate_Subprogram
0054 BODY_0008:
0054 00bc | | Action Signal_Activated
0055 00bb | | Action Signal_Completion
0056 0000 0000 | | .XXX[0x2]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b | [ | .CONST 0x005b ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0001 | | .CONST 0x0001 ; Number of locals
005b BODY_0058:
005b INIT_0058:
005b e003 | | Load 0x0,0x3
005c 1b19 | | Execute Package,Field_Read,Field_Number 0x19
005d 00db | | Load_Top At_Offset_3
005e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
005f 0120 | | Execute Any,Is_Value
0060 6803 |h | Jump_Zero 0x64
0061 e002 | | Load 0x0,0x2
0062 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0063 7802 |x | Jump 0x66
0064 00db | | Load_Top At_Offset_3
0065 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0066 e003 | | Load 0x0,0x3
0067 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0068 e216 | | Load 0x1,0x16
0069 e002 | | Load 0x0,0x2
006a 181a | | Execute Package,Field_Execute,Field_Number 0x1a
006b e5ff | | Load 0x2,-0x1
006c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
006d 00db | | Load_Top At_Offset_3
006e 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
006f 00da | | Load_Top At_Offset_2
0070 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0071 e002 | | Load 0x0,0x2
0072 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0073 680d |h | Jump_Zero 0x81
0074 00da | | Load_Top At_Offset_2
0075 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0076 e002 | | Load 0x0,0x2
0077 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0078 00db | | Load_Top At_Offset_3
0079 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
007a 00da | | Load_Top At_Offset_2
007b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
007c e002 | | Load 0x0,0x2
007d 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
007e 00db | | Load_Top At_Offset_3
007f 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0080 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0081 0092 01cd | | Action Push_String_Extended,0x1cd ; "***: Ouverture canal echec"
0083 e005 | | Load 0x0,0x5
0084 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0085 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0086 0000 0000 | | .XXX[0x2]
0088 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020}
008c 0000 0000 | | .BLANK 0000[0x4]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093 | | .CONST 0x0093 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0001 | | .CONST 0x0001 ; Number of locals
0093 BODY_0090:
0093 INIT_0090:
0093 00da | | Load_Top At_Offset_2
0094 e5fe | | Load 0x2,-0x2
0095 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0096 e003 | | Load 0x0,0x3
0097 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0098 e5fe | | Load 0x2,-0x2
0099 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
009a 0120 | | Execute Any,Is_Value
009b 6803 |h | Jump_Zero 0x9f
009c e002 | | Load 0x0,0x2
009d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
009e 7802 |x | Jump 0xa1
009f e5fe | | Load 0x2,-0x2
00a0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00a1 e5fe | | Load 0x2,-0x2
00a2 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00a3 e216 | | Load 0x1,0x16
00a4 e002 | | Load 0x0,0x2
00a5 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00a6 e5fe | | Load 0x2,-0x2
00a7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00a8 e5fe | | Load 0x2,-0x2
00a9 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
00aa 00db | | Load_Top At_Offset_3
00ab 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00ac e002 | | Load 0x0,0x2
00ad 181f | | Execute Package,Field_Execute,Field_Number 0x1f
00ae 6807 |h | Jump_Zero 0xb6
00af 00db | | Load_Top At_Offset_3
00b0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00b1 e002 | | Load 0x0,0x2
00b2 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
00b3 e5fe | | Load 0x2,-0x2
00b4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00b5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00b6 0092 01cd | | Action Push_String_Extended,0x1cd ; "***: Ouverture canal echec"
00b8 e005 | | Load 0x0,0x5
00b9 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00ba 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00bb 0000 0000 | | .BLANK 0000[0x5]
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 00da | | Load_Top At_Offset_2
00c4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00c5 e002 | | Load 0x0,0x2
00c6 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00c7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00e3 | | .CONST 0x00e3 ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0006 | | .CONST 0x0006 ; Number of locals
00cb INIT_00c8:
00cb 00da | | Load_Top At_Offset_2
00cc e006 | | Load 0x0,0x6
00cd 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00ce 00d8 | | Load_Top At_Offset_0
00cf e007 | | Load 0x0,0x7
00d0 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00d1 4801 |H | Short_Literal 0x1
00d2 e5ff | | Load 0x2,-0x1
00d3 e006 | | Load 0x0,0x6
00d4 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
00d5 e008 | | Load 0x0,0x8
00d6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00d7 035b | [ | Declare_Type Array,Constrained
00d8 0337 | 7 | Declare_Variable Array
00d9 00da | | Load_Top At_Offset_2
00da e007 | | Load 0x0,0x7
00db 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00dc 00d9 | | Load_Top At_Offset_1
00dd 01d4 | | Execute Vector,Structure_Write
00de e5fc | | Load 0x2,-0x4
00df 00e4 | | Load_Encached Positive_Cache
00e0 03f1 | | Declare_Variable Discrete,With_Value
00e1 00e4 | | Load_Encached Positive_Cache
00e2 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
00e3 BODY_00c8:
00e3 e5f9 | | Load 0x2,-0x7
00e4 480c |H | Short_Literal 0xc
00e5 480d |H | Short_Literal 0xd
00e6 e404 | | Load 0x2,0x4
00e7 01ce | | Execute Vector,Slice_Write
00e8 e5fa | | Load 0x2,-0x6
00e9 480e |H | Short_Literal 0xe
00ea 4811 |H | Short_Literal 0x11
00eb e404 | | Load 0x2,0x4
00ec 01ce | | Execute Vector,Slice_Write
00ed e003 | | Load 0x0,0x3
00ee 1b19 | | Execute Package,Field_Read,Field_Number 0x19
00ef e5fb | | Load 0x2,-0x5
00f0 e5fd | | Load 0x2,-0x3
00f1 e5fe | | Load 0x2,-0x2
00f2 e5f8 | | Load 0x2,-0x8
00f3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00f4 e002 | | Load 0x0,0x2
00f5 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00f6 e5f8 | | Load 0x2,-0x8
00f7 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
00f8 00cf | | Action Mark_Auxiliary
00f9 780f |x | Jump 0x109
00fa e003 | | Load 0x0,0x3
00fb 1b19 | | Execute Package,Field_Read,Field_Number 0x19
00fc e5fb | | Load 0x2,-0x5
00fd e5fd | | Load 0x2,-0x3
00fe e5fe | | Load 0x2,-0x2
00ff e5f8 | | Load 0x2,-0x8
0100 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0101 e002 | | Load 0x0,0x2
0102 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0103 e5f8 | | Load 0x2,-0x8
0104 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0105 00d9 | | Load_Top At_Offset_1
0106 0a01 | | Execute_Immediate Plus,0x1
0107 005a | Z | Store_Top Discrete,At_Offset_2
0108 00c9 | | Action Pop_Auxiliary_Loop
0109 e5f8 | | Load 0x2,-0x8
010a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
010b e002 | | Load 0x0,0x2
010c 1820 | | Execute Package,Field_Execute,Field_Number 0x20
010d 0f00 | | Execute_Immediate Equal,0x0
010e 00da | | Load_Top At_Offset_2
010f e5fc | | Load 0x2,-0x4
0110 0a01 | | Execute_Immediate Plus,0x1
0111 027c | | | Execute Discrete,Less
0112 0279 | y | Execute Discrete,And
0113 77e6 |w | Jump_Nonzero 0xfa
0114 00ce | | Action Pop_Auxiliary
0115 4801 |H | Short_Literal 0x1
0116 0092 01ce | | Action Push_String_Extended,0x1ce ; "Ok"
0118 e5f8 | | Load 0x2,-0x8
0119 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
011a e003 | | Load 0x0,0x3
011b 181a | | Execute Package,Field_Execute,Field_Number 0x1a
011c e009 | | Load 0x0,0x9
011d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
011e 6810 |h | Jump_Zero 0x12f
011f 00e3 | | Load_Encached Natural_Cache
0120 e003 | | Load 0x0,0x3
0121 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0122 4800 |H | Short_Literal 0x0
0123 6018 |` | Indirect_Literal Discrete,0x13c,{0x00007fff, 0xffffffff}
0124 e404 | | Load 0x2,0x4
0125 e5f8 | | Load 0x2,-0x8
0126 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0127 e002 | | Load 0x0,0x2
0128 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0129 e5f8 | | Load 0x2,-0x8
012a 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
012b c217 | | Store 0x1,0x17
012c 4801 |H | Short_Literal 0x1
012d a5f7 | | Store_Unchecked 0x2,-0x9
012e 7806 |x | Jump 0x135
012f 4800 |H | Short_Literal 0x0
0130 a5f7 | | Store_Unchecked 0x2,-0x9
0131 0092 01cf | | Action Push_String_Extended,0x1cf ; "Echec de transmission"
0133 e005 | | Load 0x0,0x5
0134 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0135 e5f8 | | Load 0x2,-0x8
0136 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0137 e002 | | Load 0x0,0x2
0138 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0139 4508 |E | Exit_Suprogram New_Top_Offset 0x8
013a 0000 0000 | | .XXX[0x2]
013c 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0151 | Q | .CONST 0x0151 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0003 | | .CONST 0x0003 ; Number of locals
0143 INIT_0140:
0143 48c8 |H | Short_Literal 0xc8
0144 00db | | Load_Top At_Offset_3
0145 e007 | | Load 0x0,0x7
0146 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0147 e006 | | Load 0x0,0x6
0148 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0149 e00a | | Load 0x0,0xa
014a 0162 | b | Execute Variant_Record,Check_In_Type
014b 0007 | | Action Break_Optional
014c e5fe | | Load 0x2,-0x2
014d 4801 |H | Short_Literal 0x1
014e 00da | | Load_Top At_Offset_2
014f e006 | | Load 0x0,0x6
0150 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0151 BODY_0140:
0151 0092 01d0 | | Action Push_String_Extended,0x1d0 ; "***: Message recu sur "
0153 e5fe | | Load 0x2,-0x2
0154 00e0 | | Load_Encached Standard_Cache
0155 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0156 01cc | | Execute Vector,Catenate
0157 0092 01d1 | | Action Push_String_Extended,0x1d1 ; "="
0159 01cc | | Execute Vector,Catenate
015a 00d9 | | Load_Top At_Offset_1
015b 01cc | | Execute Vector,Catenate
015c e005 | | Load 0x0,0x5
015d 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
015e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
015f 0000 | | .XXX[0x1]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0168 | h | .CONST 0x0168 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0003 | | .CONST 0x0003 ; Number of locals
0163 INIT_0160:
0163 e00a | | Load 0x0,0xa
0164 02ff | | Declare_Variable Variant_Record
0165 00d8 | | Load_Top At_Offset_0
0166 1c00 | | Execute_Immediate Run_Utility,0x0
0167 00e3 | | Load_Encached Natural_Cache
0168 BODY_0160:
0168 e003 | | Load 0x0,0x3
0169 1b19 | | Execute Package,Field_Read,Field_Number 0x19
016a e5ff | | Load 0x2,-0x1
016b e5fc | | Load 0x2,-0x4
016c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
016d e002 | | Load 0x0,0x2
016e 181d | | Execute Package,Field_Execute,Field_Number 0x1d
016f e5fc | | Load 0x2,-0x4
0170 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0171 00cf | | Action Mark_Auxiliary
0172 780a |x | Jump 0x17d
0173 e003 | | Load 0x0,0x3
0174 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0175 e5ff | | Load 0x2,-0x1
0176 e5fc | | Load 0x2,-0x4
0177 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0178 e002 | | Load 0x0,0x2
0179 181d | | Execute Package,Field_Execute,Field_Number 0x1d
017a e5fc | | Load 0x2,-0x4
017b 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
017c 00c9 | | Action Pop_Auxiliary_Loop
017d e5fc | | Load 0x2,-0x4
017e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
017f e002 | | Load 0x0,0x2
0180 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0181 6ff1 |o | Jump_Zero 0x173
0182 00ce | | Action Pop_Auxiliary
0183 e5fc | | Load 0x2,-0x4
0184 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0185 e002 | | Load 0x0,0x2
0186 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0187 680f |h | Jump_Zero 0x197
0188 00e3 | | Load_Encached Natural_Cache
0189 e5fe | | Load 0x2,-0x2
018a e003 | | Load 0x0,0x3
018b 1b19 | | Execute Package,Field_Read,Field_Number 0x19
018c e5ff | | Load 0x2,-0x1
018d e5fc | | Load 0x2,-0x4
018e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
018f e002 | | Load 0x0,0x2
0190 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0191 e5fc | | Load 0x2,-0x4
0192 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0193 00d1 | | Pop_Control Pop_Count_1
0194 0059 | Y | Store_Top Discrete,At_Offset_1
0195 00d8 | | Load_Top At_Offset_0
0196 a5fd | | Store_Unchecked 0x2,-0x3
0197 e5fc | | Load 0x2,-0x4
0198 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0199 e002 | | Load 0x0,0x2
019a 181e | | Execute Package,Field_Execute,Field_Number 0x1e
019b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
019c 0000 0000 | | .BLANK 0000[0x4]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3 | | .CONST 0x01a3 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0001 | | .CONST 0x0001 ; Number of locals
01a3 BODY_01a0:
01a3 INIT_01a0:
01a3 00da | | Load_Top At_Offset_2
01a4 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
01a5 e00b | | Load 0x0,0xb
01a6 01c7 | | Execute Vector,Convert
01a7 0335 | 5 | Declare_Variable Array,Duplicate
01a8 00cd | | Action Spare6_Action
01a9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01aa 0000 0000 | | .BLANK 0000[0x6]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3 | | .CONST 0x01b3 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0001 | | .CONST 0x0001 ; Number of locals
01b3 BODY_01b0:
01b3 INIT_01b0:
01b3 00da | | Load_Top At_Offset_2
01b4 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
01b5 e00c | | Load 0x0,0xc
01b6 01c7 | | Execute Vector,Convert
01b7 0335 | 5 | Declare_Variable Array,Duplicate
01b8 00cd | | Action Spare6_Action
01b9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ba 0000 0000 | | .BLANK 0000[0x6]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3 | | .CONST 0x01c3 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0001 | | .CONST 0x0001 ; Number of locals
01c3 BODY_01c0:
01c3 INIT_01c0:
01c3 4601 |F | Jump_Case 0x2
01c4 7801 |x | Jump 0x1c6 ; case 0x0
01c5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
01c6 00da | | Load_Top At_Offset_2
01c7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01c8 0125 | % | Execute Any,Set_Constraint
01c9 00da | | Load_Top At_Offset_2
01ca 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01cb 1c00 | | Execute_Immediate Run_Utility,0x0
01cc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01cd ; --------------------------------------------------------------------------------------
01cd ; STRING TABLE
01cd ; --------------------------------------------------------------------------------------
01cd 000c | | .STRTAB 0x000c->0x01d3 ; "***: Ouverture canal echec"
01ce 0025 | % | .STRTAB 0x0025->0x01e0 ; "Ok"
01cf 0025 | % | .STRTAB 0x0025->0x01e1 ; "Echec de transmission"
01d0 0038 | 8 | .STRTAB 0x0038->0x01ec ; "***: Message recu sur "
01d1 004c | L | .STRTAB 0x004c->0x01f7 ; "="
01d2 004b | K | .STREND 0x004b->0x01f7
01d3 2a2a 2a3a |***:| .STRTAB_STRINGS
01f8 ; --------------------------------------------------------------------------------------
01f8 ; Debug Table
01f8 ; --------------------------------------------------------------------------------------
01f8 0004 000a | | .DEBUG4 0x0004,0x000a,0x8296,0x0000,0x0001,0x000b
01fe 000b 022a | *| .DBG4T 0x000b,0x022a,0x8000,0x8000
0202 0038 023e | 8 >| .DBG4T 0x0038,0x023e,0x8000,0x8000
0206 005b 0256 | [ V| .DBG4T 0x005b,0x0256,0x0001,0x0000
020a 0093 025d | ]| .DBG4T 0x0093,0x025d,0x0001,0x0000
020e 00c3 0264 | d| .DBG4T 0x00c3,0x0264,0x0001,0x0000
0212 00cb 0267 | g| .DBG4T 0x00cb,0x0267,0x0001,0x4000
0216 0143 0288 | C | .DBG4T 0x0143,0x0288,0x0001,0x0000
021a 0163 028d | c | .DBG4T 0x0163,0x028d,0x0001,0x4000
021e 01a3 02a1 | | .DBG4T 0x01a3,0x02a1,0x0002,0x0000
0222 01b3 02a4 | | .DBG4T 0x01b3,0x02a4,0x0002,0x0000
0226 01c3 0000 | | .DBG4T 0x01c3,0x0000,0x0005,0x0000
022a ; --------------------------------------------------------------------------------------
022a ; Debug chain
022a ; --------------------------------------------------------------------------------------
022a 0009 0000 | | .DBGLEN 0x0009,0x0000
022c 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b
0235 0003 0004 | | .XXX[0x9]
0237 0005 0006 | |
0239 0007 0008 | |
023b 0009 000a | |
023d 000b | |
023e ; --------------------------------------------------------------------------------------
023e ; Debug chain
023e ; --------------------------------------------------------------------------------------
023e 000b 0000 | | .DBGLEN 0x000b,0x0000
0240 0038 003d | 8 =| .DBGLNO 0x0038,0x003d,0x003e,0x0044,0x0046,0x0048,0x004a,0x004c,0x004e,0x0050,0x0052
024b 0004 0005 | | .XXX[0xb]
024d 0006 0007 | |
024f 0008 0009 | |
0251 000a 000b | |
0253 000c 000d | |
0255 000e | |
0256 ; --------------------------------------------------------------------------------------
0256 ; Debug chain
0256 ; --------------------------------------------------------------------------------------
0256 0000 0005 | | .DBGLEN 0x0000,0x0005
0258 005b 006f | [ o| .DBGLNO 0x005b,0x006f,0x0074,0x007a,0x0081
025d ; --------------------------------------------------------------------------------------
025d ; Debug chain
025d ; --------------------------------------------------------------------------------------
025d 0000 0005 | | .DBGLEN 0x0000,0x0005
025f 0093 0096 | | .DBGLNO 0x0093,0x0096,0x00aa,0x00af,0x00b6
0264 ; --------------------------------------------------------------------------------------
0264 ; Debug chain
0264 ; --------------------------------------------------------------------------------------
0264 0000 0001 | | .DBGLEN 0x0000,0x0001
0266 00c3 | | .DBGLNO 0x00c3
0267 ; --------------------------------------------------------------------------------------
0267 ; Debug chain
0267 ; --------------------------------------------------------------------------------------
0267 0005 000d | | .DBGLEN 0x0005,0x000d
0269 00cb 00ce | | .DBGLNO 0x00cb,0x00ce,0x00d1,0x00de,0x00e1,0x00e3,0x00e8,0x00ed,0x00f8,0x00fa,0x0105,0x0109,0x0115,0x011f,0x012c,0x012f,0x0131,0x0135
027b 0001 0002 | | .XXX[0xd]
027d 0003 0004 | |
027f 0005 0006 | |
0281 0004 0007 | |
0283 0008 0009 | |
0285 000a 000b | |
0287 000c | |
0288 ; --------------------------------------------------------------------------------------
0288 ; Debug chain
0288 ; --------------------------------------------------------------------------------------
0288 0002 0001 | | .DBGLEN 0x0002,0x0001
028a 0143 014c | C L| .DBGLNO 0x0143,0x014c,0x0151
028d ; --------------------------------------------------------------------------------------
028d ; Debug chain
028d ; --------------------------------------------------------------------------------------
028d 0002 0008 | | .DBGLEN 0x0002,0x0008
028f 0163 0167 | c g| .DBGLNO 0x0163,0x0167,0x0168,0x0171,0x0173,0x017d,0x0183,0x0188,0x0195,0x0197
0299 0001 0002 | | .XXX[0x8]
029b 0003 0002 | |
029d 0004 0005 | |
029f 0006 0007 | |
02a1 ; --------------------------------------------------------------------------------------
02a1 ; Debug chain
02a1 ; --------------------------------------------------------------------------------------
02a1 0000 0001 | | .DBGLEN 0x0000,0x0001
02a3 01a3 | | .DBGLNO 0x01a3
02a4 ; --------------------------------------------------------------------------------------
02a4 ; Debug chain
02a4 ; --------------------------------------------------------------------------------------
02a4 0000 0001 | | .DBGLEN 0x0000,0x0001
02a6 01b3 | | .DBGLNO 0x01b3
02a7 0000 0000 | | .BLANK 0000[0x159]