|
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 - metrics - download
Length: 3072 (0xc00)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_09ac9f
└─⟦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 0400 | | .CONST 0x0400 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 002c | , | .CONST 0x002c ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0014 | | .CONST 0x0014 ; Number of locals
000b INIT_0008:
000b 029a 0033 | 3| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0030
000d 029a 00bb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00b8
000f 029a 00eb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00e8
0011 029a 019b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0198
0013 029a 035b | [| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0358
0015 029a 0383 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0380
0017 029a 03ab | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_03a8
0019 029a 03b3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_03b0
001b 00bf | | Action Accept_Activation
001c 1d0d | | Execute_Immediate Reference_Lex_1,0xd
001d 00c7 | | Action Elaborate_Subprogram
001e 1d0e | | Execute_Immediate Reference_Lex_1,0xe
001f 00c7 | | Action Elaborate_Subprogram
0020 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0021 00c7 | | Action Elaborate_Subprogram
0022 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0023 00c7 | | Action Elaborate_Subprogram
0024 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0025 00c7 | | Action Elaborate_Subprogram
0026 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0027 00c7 | | Action Elaborate_Subprogram
0028 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0029 00c7 | | Action Elaborate_Subprogram
002a 1d14 | | Execute_Immediate Reference_Lex_1,0x14
002b 00c7 | | Action Elaborate_Subprogram
002c BODY_0008:
002c 00bc | | Action Signal_Activated
002d 00bb | | Action Signal_Completion
002e 0000 0000 | | .XXX[0x2]
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 0050 | P | .CONST 0x0050 ; Address of begin
0031 0004 | | .CONST 0x0004 ; Address of exception handler
0032 0004 | | .CONST 0x0004 ; Number of locals
0033 INIT_0030:
0033 4801 |H | Short_Literal 0x1
0034 4802 |H | Short_Literal 0x2
0035 e002 | | Load 0x0,0x2
0036 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0037 035b | [ | Declare_Type Array,Constrained
0038 0337 | 7 | Declare_Variable Array
0039 00d8 | | Load_Top At_Offset_0
003a 0335 | 5 | Declare_Variable Array,Duplicate
003b 00cd | | Action Spare6_Action
003c 4800 |H | Short_Literal 0x0
003d 4801 |H | Short_Literal 0x1
003e 00da | | Load_Top At_Offset_2
003f 01d6 | | Execute Vector,Field_Write
0040 4800 |H | Short_Literal 0x0
0041 4802 |H | Short_Literal 0x2
0042 00da | | Load_Top At_Offset_2
0043 01d6 | | Execute Vector,Field_Write
0044 00d9 | | Load_Top At_Offset_1
0045 01d4 | | Execute Vector,Structure_Write
0046 e003 | | Load 0x0,0x3
0047 0322 | " | Declare_Variable Record
0048 00d8 | | Load_Top At_Offset_0
0049 1c00 | | Execute_Immediate Run_Utility,0x0
004a 4801 |H | Short_Literal 0x1
004b 4802 |H | Short_Literal 0x2
004c e002 | | Load 0x0,0x2
004d 1b15 | | Execute Package,Field_Read,Field_Number 0x15
004e 035b | [ | Declare_Type Array,Constrained
004f 0337 | 7 | Declare_Variable Array
0050 BODY_0030:
0050 e5ff | | Load 0x2,-0x1
0051 00da | | Load_Top At_Offset_2
0052 017d | } | Execute Record,Structure_Write
0053 00da | | Load_Top At_Offset_2
0054 00da | | Load_Top At_Offset_2
0055 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0056 00d9 | | Load_Top At_Offset_1
0057 e5ff | | Load 0x2,-0x1
0058 017f | | Execute Record,Equal
0059 682d |h- | Jump_Zero 0x87
005a e002 | | Load 0x0,0x2
005b 1b19 | | Execute Package,Field_Read,Field_Number 0x19
005c e5fe | | Load 0x2,-0x2
005d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
005e 0120 | | Execute Any,Is_Value
005f 6803 |h | Jump_Zero 0x63
0060 e004 | | Load 0x0,0x4
0061 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0062 7802 |x | Jump 0x65
0063 e5fe | | Load 0x2,-0x2
0064 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0065 00da | | Load_Top At_Offset_2
0066 4801 |H | Short_Literal 0x1
0067 4806 |H | Short_Literal 0x6
0068 00e9 | | Load_Encached String_Cache
0069 0334 | 4 | Declare_Variable Array,With_Constraint
006a 5041 |PA | Indirect_Literal Any,0xac,{0x5443502f, 0x49502020}
006b e004 | | Load 0x0,0x4
006c 181a | | Execute Package,Field_Execute,Field_Number 0x1a
006d e5fe | | Load 0x2,-0x2
006e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
006f e5fe | | Load 0x2,-0x2
0070 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0071 e5fe | | Load 0x2,-0x2
0072 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0073 e004 | | Load 0x0,0x4
0074 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0075 6804 |h | Jump_Zero 0x7a
0076 0092 03dc | | Action Push_String_Extended,0x3dc ; "connection ouverte"
0078 e005 | | Load 0x0,0x5
0079 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
007a e5fe | | Load 0x2,-0x2
007b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
007c e004 | | Load 0x0,0x4
007d 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
007e e5ff | | Load 0x2,-0x1
007f 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0080 e5fe | | Load 0x2,-0x2
0081 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0082 e004 | | Load 0x0,0x4
0083 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0084 e5ff | | Load 0x2,-0x1
0085 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0086 4501 |E | Exit_Subprogram 0x1
0087 e002 | | Load 0x0,0x2
0088 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0089 e5fe | | Load 0x2,-0x2
008a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
008b 0120 | | Execute Any,Is_Value
008c 6803 |h | Jump_Zero 0x90
008d e004 | | Load 0x0,0x4
008e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
008f 7802 |x | Jump 0x92
0090 e5fe | | Load 0x2,-0x2
0091 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0092 e5ff | | Load 0x2,-0x1
0093 340a |4 | Execute Record,Field_Reference,Field_Number 0xa
0094 4801 |H | Short_Literal 0x1
0095 4806 |H | Short_Literal 0x6
0096 00e9 | | Load_Encached String_Cache
0097 0334 | 4 | Declare_Variable Array,With_Constraint
0098 5017 |P | Indirect_Literal Any,0xb0,{0x5443502f, 0x49502020}
0099 e004 | | Load 0x0,0x4
009a 181a | | Execute Package,Field_Execute,Field_Number 0x1a
009b e5fe | | Load 0x2,-0x2
009c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
009d e5fe | | Load 0x2,-0x2
009e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
009f e5fe | | Load 0x2,-0x2
00a0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00a1 e004 | | Load 0x0,0x4
00a2 181f | | Execute Package,Field_Execute,Field_Number 0x1f
00a3 6804 |h | Jump_Zero 0xa8
00a4 0092 03dc | | Action Push_String_Extended,0x3dc ; "connection ouverte"
00a6 e005 | | Load 0x0,0x5
00a7 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00a8 4501 |E | Exit_Subprogram 0x1
00a9 0000 0000 | | .XXX[0x3]
00ab 0000 | |
00ac 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020}
00b0 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020}
00b4 0000 0000 | | .BLANK 0000[0x4]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb | | .CONST 0x00bb ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0001 | | .CONST 0x0001 ; Number of locals
00bb BODY_00b8:
00bb INIT_00b8:
00bb 00cf | | Action Mark_Auxiliary
00bc 7812 |x | Jump 0xcf
00bd e002 | | Load 0x0,0x2
00be 1b19 | | Execute Package,Field_Read,Field_Number 0x19
00bf 6020 |` | Indirect_Literal Discrete,0xe0,{0x00007fff, 0xffffffff}
00c0 e5ff | | Load 0x2,-0x1
00c1 340a |4 | Execute Record,Field_Reference,Field_Number 0xa
00c2 e5ff | | Load 0x2,-0x1
00c3 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
00c4 e5fe | | Load 0x2,-0x2
00c5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00c6 e004 | | Load 0x0,0x4
00c7 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00c8 e5fe | | Load 0x2,-0x2
00c9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00ca 0092 03dd | | Action Push_String_Extended,0x3dd ; "."
00cc e005 | | Load 0x0,0x5
00cd 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
00ce 00c9 | | Action Pop_Auxiliary_Loop
00cf e5fe | | Load 0x2,-0x2
00d0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00d1 e004 | | Load 0x0,0x4
00d2 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00d3 6fe9 |o | Jump_Zero 0xbd
00d4 00ce | | Action Pop_Auxiliary
00d5 4801 |H | Short_Literal 0x1
00d6 e005 | | Load 0x0,0x5
00d7 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
00d8 00db | | Load_Top At_Offset_3
00d9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00da e004 | | Load 0x0,0x4
00db 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00dc 6800 |h | Jump_Zero 0xdd
00dd 4501 |E | Exit_Subprogram 0x1
00de 0000 0000 | | .XXX[0x2]
00e0 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
00e4 0000 0000 | | .BLANK 0000[0x4]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00ef | | .CONST 0x00ef ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0003 | | .CONST 0x0003 ; Number of locals
00eb INIT_00e8:
00eb e006 | | Load 0x0,0x6
00ec 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00ed 029f 03c3 | | Declare_Subprogram For_Call,INIT_03c0
00ef BODY_00e8:
00ef 00d9 | | Load_Top At_Offset_1
00f0 e5ff | | Load 0x2,-0x1
00f1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00f2 e007 | | Load 0x0,0x7
00f3 011c | | Execute Any,Convert_Unchecked
00f4 1c01 | | Execute_Immediate Run_Utility,0x1
00f5 e006 | | Load 0x0,0x6
00f6 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00f7 003a | : | Store_Top Access,At_Offset_2
00f8 00d9 | | Load_Top At_Offset_1
00f9 0092 03de | | Action Push_String_Extended,0x3de ; "+++"
00fb e006 | | Load 0x0,0x6
00fc 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00fd 003a | : | Store_Top Access,At_Offset_2
00fe e5fe | | Load 0x2,-0x2
00ff 00da | | Load_Top At_Offset_2
0100 8403 | | Call 0x2,0x3
0101 00d1 | | Pop_Control Pop_Count_1
0102 00e3 | | Load_Encached Natural_Cache
0103 e002 | | Load 0x0,0x2
0104 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0105 4800 |H | Short_Literal 0x0
0106 67d9 |g | Indirect_Literal Discrete,0xe0,{0x00007fff, 0xffffffff}
0107 e5ff | | Load 0x2,-0x1
0108 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0109 e5fe | | Load 0x2,-0x2
010a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
010b e004 | | Load 0x0,0x4
010c 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
010d e5fe | | Load 0x2,-0x2
010e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
010f e5fe | | Load 0x2,-0x2
0110 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0111 e5fe | | Load 0x2,-0x2
0112 e5ff | | Load 0x2,-0x1
0113 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0114 00e0 | | Load_Encached Standard_Cache
0115 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0116 e006 | | Load 0x0,0x6
0117 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0118 8403 | | Call 0x2,0x3
0119 00d1 | | Pop_Control Pop_Count_1
011a 00e3 | | Load_Encached Natural_Cache
011b e002 | | Load 0x0,0x2
011c 1b19 | | Execute Package,Field_Read,Field_Number 0x19
011d 4800 |H | Short_Literal 0x0
011e 67c1 |g | Indirect_Literal Discrete,0xe0,{0x00007fff, 0xffffffff}
011f e5ff | | Load 0x2,-0x1
0120 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0121 e5fe | | Load 0x2,-0x2
0122 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0123 e004 | | Load 0x0,0x4
0124 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0125 e5fe | | Load 0x2,-0x2
0126 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0127 e5fe | | Load 0x2,-0x2
0128 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0129 e5fe | | Load 0x2,-0x2
012a e5ff | | Load 0x2,-0x1
012b 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
012c 00e0 | | Load_Encached Standard_Cache
012d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
012e e006 | | Load 0x0,0x6
012f 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0130 8403 | | Call 0x2,0x3
0131 00d1 | | Pop_Control Pop_Count_1
0132 00e3 | | Load_Encached Natural_Cache
0133 e002 | | Load 0x0,0x2
0134 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0135 4800 |H | Short_Literal 0x0
0136 67a9 |g | Indirect_Literal Discrete,0xe0,{0x00007fff, 0xffffffff}
0137 e5ff | | Load 0x2,-0x1
0138 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0139 e5fe | | Load 0x2,-0x2
013a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
013b e004 | | Load 0x0,0x4
013c 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
013d e5fe | | Load 0x2,-0x2
013e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
013f e5fe | | Load 0x2,-0x2
0140 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0141 e5ff | | Load 0x2,-0x1
0142 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0143 0f01 | | Execute_Immediate Equal,0x1
0144 6808 |h | Jump_Zero 0x14d
0145 e5fe | | Load 0x2,-0x2
0146 0092 03df | | Action Push_String_Extended,0x3df ; " 1"
0148 e006 | | Load 0x0,0x6
0149 1817 | | Execute Package,Field_Execute,Field_Number 0x17
014a 8403 | | Call 0x2,0x3
014b 00d1 | | Pop_Control Pop_Count_1
014c 7807 |x | Jump 0x154
014d e5fe | | Load 0x2,-0x2
014e 0092 03e0 | | Action Push_String_Extended,0x3e0 ; " 0"
0150 e006 | | Load 0x0,0x6
0151 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0152 8403 | | Call 0x2,0x3
0153 00d1 | | Pop_Control Pop_Count_1
0154 e5fe | | Load 0x2,-0x2
0155 e5ff | | Load 0x2,-0x1
0156 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0157 00e0 | | Load_Encached Standard_Cache
0158 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0159 e006 | | Load 0x0,0x6
015a 1817 | | Execute Package,Field_Execute,Field_Number 0x17
015b 8403 | | Call 0x2,0x3
015c 00d1 | | Pop_Control Pop_Count_1
015d 00e3 | | Load_Encached Natural_Cache
015e e002 | | Load 0x0,0x2
015f 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0160 4800 |H | Short_Literal 0x0
0161 677e |g~ | Indirect_Literal Discrete,0xe0,{0x00007fff, 0xffffffff}
0162 e5ff | | Load 0x2,-0x1
0163 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9
0164 e5fe | | Load 0x2,-0x2
0165 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0166 e004 | | Load 0x0,0x4
0167 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0168 e5fe | | Load 0x2,-0x2
0169 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
016a e5fe | | Load 0x2,-0x2
016b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
016c 00e3 | | Load_Encached Natural_Cache
016d e002 | | Load 0x0,0x2
016e 1b19 | | Execute Package,Field_Read,Field_Number 0x19
016f 4800 |H | Short_Literal 0x0
0170 676f |go | Indirect_Literal Discrete,0xe0,{0x00007fff, 0xffffffff}
0171 e5ff | | Load 0x2,-0x1
0172 340a |4 | Execute Record,Field_Reference,Field_Number 0xa
0173 e5fe | | Load 0x2,-0x2
0174 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0175 e004 | | Load 0x0,0x4
0176 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0177 e5fe | | Load 0x2,-0x2
0178 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0179 e5fe | | Load 0x2,-0x2
017a 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
017b 00e3 | | Load_Encached Natural_Cache
017c e002 | | Load 0x0,0x2
017d 1b19 | | Execute Package,Field_Read,Field_Number 0x19
017e 4800 |H | Short_Literal 0x0
017f 6760 |g` | Indirect_Literal Discrete,0xe0,{0x00007fff, 0xffffffff}
0180 e5ff | | Load 0x2,-0x1
0181 340b |4 | Execute Record,Field_Reference,Field_Number 0xb
0182 e5fe | | Load 0x2,-0x2
0183 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0184 e004 | | Load 0x0,0x4
0185 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0186 e5fe | | Load 0x2,-0x2
0187 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0188 e5fe | | Load 0x2,-0x2
0189 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
018a 00d9 | | Load_Top At_Offset_1
018b e5ff | | Load 0x2,-0x1
018c 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
018d e006 | | Load 0x0,0x6
018e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
018f 003a | : | Store_Top Access,At_Offset_2
0190 e5fe | | Load 0x2,-0x2
0191 00da | | Load_Top At_Offset_2
0192 8403 | | Call 0x2,0x3
0193 4502 |E | Exit_Subprogram 0x2
0194 0000 0000 | | .BLANK 0000[0x4]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 01bf | | .CONST 0x01bf ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 000a | | .CONST 0x000a ; Number of locals
019b INIT_0198:
019b 4801 |H | Short_Literal 0x1
019c 48ff |H | Short_Literal 0xff
019d e008 | | Load 0x0,0x8
019e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
019f 035b | [ | Declare_Type Array,Constrained
01a0 0337 | 7 | Declare_Variable Array
01a1 00e4 | | Load_Encached Positive_Cache
01a2 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
01a3 4801 |H | Short_Literal 0x1
01a4 4802 |H | Short_Literal 0x2
01a5 e008 | | Load 0x0,0x8
01a6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01a7 035b | [ | Declare_Type Array,Constrained
01a8 0337 | 7 | Declare_Variable Array
01a9 4801 |H | Short_Literal 0x1
01aa 4804 |H | Short_Literal 0x4
01ab e008 | | Load 0x0,0x8
01ac 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01ad 035b | [ | Declare_Type Array,Constrained
01ae 0337 | 7 | Declare_Variable Array
01af 4801 |H | Short_Literal 0x1
01b0 4802 |H | Short_Literal 0x2
01b1 e008 | | Load 0x0,0x8
01b2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01b3 035b | [ | Declare_Type Array,Constrained
01b4 0337 | 7 | Declare_Variable Array
01b5 e006 | | Load 0x0,0x6
01b6 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01b7 00e1 | | Load_Encached Boolean_Cache
01b8 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
01b9 00e4 | | Load_Encached Positive_Cache
01ba 4801 |H | Short_Literal 0x1
01bb 48ff |H | Short_Literal 0xff
01bc 00e9 | | Load_Encached String_Cache
01bd 035b | [ | Declare_Type Array,Constrained
01be 0337 | 7 | Declare_Variable Array
01bf BODY_0198:
01bf 00e3 | | Load_Encached Natural_Cache
01c0 e402 | | Load 0x2,0x2
01c1 e002 | | Load 0x0,0x2
01c2 1b19 | | Execute Package,Field_Read,Field_Number 0x19
01c3 618c |a | Indirect_Literal Discrete,0x350,{0x00007fff, 0xffffffff}
01c4 e5fe | | Load 0x2,-0x2
01c5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01c6 e004 | | Load 0x0,0x4
01c7 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
01c8 e5fe | | Load 0x2,-0x2
01c9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01ca 00d1 | | Pop_Control Pop_Count_1
01cb e5fe | | Load 0x2,-0x2
01cc 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01cd e402 | | Load 0x2,0x2
01ce e009 | | Load 0x0,0x9
01cf 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01d0 e006 | | Load 0x0,0x6
01d1 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01d2 a407 | | Store_Unchecked 0x2,0x7
01d3 4800 |H | Short_Literal 0x0
01d4 0053 | S | Store_Top_Unchecked Discrete,At_Offset_3
01d5 4801 |H | Short_Literal 0x1
01d6 a403 | | Store_Unchecked 0x2,0x3
01d7 00cf | | Action Mark_Auxiliary
01d8 7837 |x7 | Jump 0x210
01d9 e403 | | Load 0x2,0x3
01da e407 | | Load 0x2,0x7
01db e006 | | Load 0x0,0x6
01dc 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01dd 0f2b | + | Execute_Immediate Equal,0x2b
01de e403 | | Load 0x2,0x3
01df 0a01 | | Execute_Immediate Plus,0x1
01e0 00d8 | | Load_Top At_Offset_0
01e1 00e4 | | Load_Encached Positive_Cache
01e2 0260 | ` | Execute Discrete,In_Type
01e3 7001 |p | Jump_Nonzero 0x1e5
01e4 0801 | | Execute_Immediate Raise,0x1
01e5 e407 | | Load 0x2,0x7
01e6 e006 | | Load 0x0,0x6
01e7 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01e8 0f2b | + | Execute_Immediate Equal,0x2b
01e9 0279 | y | Execute Discrete,And
01ea e403 | | Load 0x2,0x3
01eb 0a02 | | Execute_Immediate Plus,0x2
01ec 00d8 | | Load_Top At_Offset_0
01ed 00e4 | | Load_Encached Positive_Cache
01ee 0260 | ` | Execute Discrete,In_Type
01ef 7001 |p | Jump_Nonzero 0x1f1
01f0 0801 | | Execute_Immediate Raise,0x1
01f1 e407 | | Load 0x2,0x7
01f2 e006 | | Load 0x0,0x6
01f3 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01f4 0f2b | + | Execute_Immediate Equal,0x2b
01f5 0279 | y | Execute Discrete,And
01f6 6815 |h | Jump_Zero 0x20c
01f7 e402 | | Load 0x2,0x2
01f8 e009 | | Load 0x0,0x9
01f9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01fa e006 | | Load 0x0,0x6
01fb 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01fc a407 | | Store_Unchecked 0x2,0x7
01fd e407 | | Load 0x2,0x7
01fe 4820 |H | Short_Literal 0x20
01ff e403 | | Load 0x2,0x3
0200 0aff | | Execute_Immediate Plus,-0x1
0201 00d8 | | Load_Top At_Offset_0
0202 00e3 | | Load_Encached Natural_Cache
0203 0260 | ` | Execute Discrete,In_Type
0204 7001 |p | Jump_Nonzero 0x206
0205 0801 | | Execute_Immediate Raise,0x1
0206 e006 | | Load 0x0,0x6
0207 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0208 c407 | | Store 0x2,0x7
0209 4801 |H | Short_Literal 0x1
020a a408 | | Store_Unchecked 0x2,0x8
020b 7803 |x | Jump 0x20f
020c e403 | | Load 0x2,0x3
020d 0a01 | | Execute_Immediate Plus,0x1
020e c403 | | Store 0x2,0x3
020f 00c9 | | Action Pop_Auxiliary_Loop
0210 00db | | Load_Top At_Offset_3
0211 0f00 | | Execute_Immediate Equal,0x0
0212 e403 | | Load 0x2,0x3
0213 0dfe | | Execute_Immediate Less,0xfe
0214 0279 | y | Execute Discrete,And
0215 77c3 |w | Jump_Nonzero 0x1d9
0216 00ce | | Action Pop_Auxiliary
0217 00e4 | | Load_Encached Positive_Cache
0218 e00a | | Load 0x0,0xa
0219 1b0f | | Execute Package,Field_Read,Field_Number 0xf
021a e407 | | Load 0x2,0x7
021b e006 | | Load 0x0,0x6
021c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
021d e00a | | Load 0x0,0xa
021e 1816 | | Execute Package,Field_Execute,Field_Number 0x16
021f e5ff | | Load 0x2,-0x1
0220 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0221 005a | Z | Store_Top Discrete,At_Offset_2
0222 00e3 | | Load_Encached Natural_Cache
0223 e405 | | Load 0x2,0x5
0224 e002 | | Load 0x0,0x2
0225 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0226 6129 |a) | Indirect_Literal Discrete,0x350,{0x00007fff, 0xffffffff}
0227 e5fe | | Load 0x2,-0x2
0228 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0229 e004 | | Load 0x0,0x4
022a 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
022b e5fe | | Load 0x2,-0x2
022c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
022d 00d1 | | Pop_Control Pop_Count_1
022e e5fe | | Load 0x2,-0x2
022f 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0230 e405 | | Load 0x2,0x5
0231 e5ff | | Load 0x2,-0x1
0232 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0233 00e3 | | Load_Encached Natural_Cache
0234 e404 | | Load 0x2,0x4
0235 e002 | | Load 0x0,0x2
0236 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0237 6118 |a | Indirect_Literal Discrete,0x350,{0x00007fff, 0xffffffff}
0238 e5fe | | Load 0x2,-0x2
0239 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
023a e004 | | Load 0x0,0x4
023b 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
023c e5fe | | Load 0x2,-0x2
023d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
023e 00d1 | | Pop_Control Pop_Count_1
023f e5fe | | Load 0x2,-0x2
0240 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0241 e404 | | Load 0x2,0x4
0242 e009 | | Load 0x0,0x9
0243 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0244 00e2 | | Load_Encached Integer_Cache
0245 00e0 | | Load_Encached Standard_Cache
0246 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0247 00d8 | | Load_Top At_Offset_0
0248 00e3 | | Load_Encached Natural_Cache
0249 0260 | ` | Execute Discrete,In_Type
024a 7001 |p | Jump_Nonzero 0x24c
024b 0801 | | Execute_Immediate Raise,0x1
024c e5ff | | Load 0x2,-0x1
024d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
024e 00e3 | | Load_Encached Natural_Cache
024f e405 | | Load 0x2,0x5
0250 e002 | | Load 0x0,0x2
0251 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0252 60fd |` | Indirect_Literal Discrete,0x350,{0x00007fff, 0xffffffff}
0253 e5fe | | Load 0x2,-0x2
0254 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0255 e004 | | Load 0x0,0x4
0256 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0257 e5fe | | Load 0x2,-0x2
0258 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0259 00d1 | | Pop_Control Pop_Count_1
025a e5fe | | Load 0x2,-0x2
025b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
025c 00e3 | | Load_Encached Natural_Cache
025d e404 | | Load 0x2,0x4
025e e002 | | Load 0x0,0x2
025f 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0260 60ef |` | Indirect_Literal Discrete,0x350,{0x00007fff, 0xffffffff}
0261 e5fe | | Load 0x2,-0x2
0262 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0263 e004 | | Load 0x0,0x4
0264 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0265 e5fe | | Load 0x2,-0x2
0266 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0267 00d1 | | Pop_Control Pop_Count_1
0268 e5fe | | Load 0x2,-0x2
0269 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
026a e404 | | Load 0x2,0x4
026b e009 | | Load 0x0,0x9
026c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
026d 00e2 | | Load_Encached Integer_Cache
026e 00e0 | | Load_Encached Standard_Cache
026f 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0270 00d8 | | Load_Top At_Offset_0
0271 00e3 | | Load_Encached Natural_Cache
0272 0260 | ` | Execute Discrete,In_Type
0273 7001 |p | Jump_Nonzero 0x275
0274 0801 | | Execute_Immediate Raise,0x1
0275 e5ff | | Load 0x2,-0x1
0276 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0277 00e3 | | Load_Encached Natural_Cache
0278 e405 | | Load 0x2,0x5
0279 e002 | | Load 0x0,0x2
027a 1b19 | | Execute Package,Field_Read,Field_Number 0x19
027b 60d4 |` | Indirect_Literal Discrete,0x350,{0x00007fff, 0xffffffff}
027c e5fe | | Load 0x2,-0x2
027d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
027e e004 | | Load 0x0,0x4
027f 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0280 e5fe | | Load 0x2,-0x2
0281 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0282 00d1 | | Pop_Control Pop_Count_1
0283 e5fe | | Load 0x2,-0x2
0284 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0285 e405 | | Load 0x2,0x5
0286 e5ff | | Load 0x2,-0x1
0287 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0288 00e3 | | Load_Encached Natural_Cache
0289 e404 | | Load 0x2,0x4
028a e002 | | Load 0x0,0x2
028b 1b19 | | Execute Package,Field_Read,Field_Number 0x19
028c 60c3 |` | Indirect_Literal Discrete,0x350,{0x00007fff, 0xffffffff}
028d e5fe | | Load 0x2,-0x2
028e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
028f e004 | | Load 0x0,0x4
0290 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0291 e5fe | | Load 0x2,-0x2
0292 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0293 00d1 | | Pop_Control Pop_Count_1
0294 e5fe | | Load 0x2,-0x2
0295 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0296 e404 | | Load 0x2,0x4
0297 e009 | | Load 0x0,0x9
0298 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0299 00e2 | | Load_Encached Integer_Cache
029a 00e0 | | Load_Encached Standard_Cache
029b 1819 | | Execute Package,Field_Execute,Field_Number 0x19
029c 0f01 | | Execute_Immediate Equal,0x1
029d 6804 |h | Jump_Zero 0x2a2
029e 4801 |H | Short_Literal 0x1
029f e5ff | | Load 0x2,-0x1
02a0 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
02a1 7803 |x | Jump 0x2a5
02a2 4800 |H | Short_Literal 0x0
02a3 e5ff | | Load 0x2,-0x1
02a4 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
02a5 00e3 | | Load_Encached Natural_Cache
02a6 e404 | | Load 0x2,0x4
02a7 e002 | | Load 0x0,0x2
02a8 1b19 | | Execute Package,Field_Read,Field_Number 0x19
02a9 60a6 |` | Indirect_Literal Discrete,0x350,{0x00007fff, 0xffffffff}
02aa e5fe | | Load 0x2,-0x2
02ab 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02ac e004 | | Load 0x0,0x4
02ad 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
02ae e5fe | | Load 0x2,-0x2
02af 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02b0 00d1 | | Pop_Control Pop_Count_1
02b1 e5fe | | Load 0x2,-0x2
02b2 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02b3 e404 | | Load 0x2,0x4
02b4 e009 | | Load 0x0,0x9
02b5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02b6 00e2 | | Load_Encached Integer_Cache
02b7 00e0 | | Load_Encached Standard_Cache
02b8 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02b9 e5ff | | Load 0x2,-0x1
02ba 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
02bb 00e3 | | Load_Encached Natural_Cache
02bc e406 | | Load 0x2,0x6
02bd e002 | | Load 0x0,0x2
02be 1b19 | | Execute Package,Field_Read,Field_Number 0x19
02bf 6090 |` | Indirect_Literal Discrete,0x350,{0x00007fff, 0xffffffff}
02c0 e5fe | | Load 0x2,-0x2
02c1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02c2 e004 | | Load 0x0,0x4
02c3 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
02c4 e5fe | | Load 0x2,-0x2
02c5 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02c6 00d1 | | Pop_Control Pop_Count_1
02c7 e5fe | | Load 0x2,-0x2
02c8 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02c9 e406 | | Load 0x2,0x6
02ca e5ff | | Load 0x2,-0x1
02cb 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
02cc 00e3 | | Load_Encached Natural_Cache
02cd e406 | | Load 0x2,0x6
02ce e002 | | Load 0x0,0x2
02cf 1b19 | | Execute Package,Field_Read,Field_Number 0x19
02d0 607f |` | Indirect_Literal Discrete,0x350,{0x00007fff, 0xffffffff}
02d1 e5fe | | Load 0x2,-0x2
02d2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02d3 e004 | | Load 0x0,0x4
02d4 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
02d5 e5fe | | Load 0x2,-0x2
02d6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02d7 00d1 | | Pop_Control Pop_Count_1
02d8 e5fe | | Load 0x2,-0x2
02d9 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02da e406 | | Load 0x2,0x6
02db e5ff | | Load 0x2,-0x1
02dc 380a |8 | Execute Record,Field_Write,Field_Number 0xa
02dd 00e3 | | Load_Encached Natural_Cache
02de e406 | | Load 0x2,0x6
02df e002 | | Load 0x0,0x2
02e0 1b19 | | Execute Package,Field_Read,Field_Number 0x19
02e1 606e |`n | Indirect_Literal Discrete,0x350,{0x00007fff, 0xffffffff}
02e2 e5fe | | Load 0x2,-0x2
02e3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02e4 e004 | | Load 0x0,0x4
02e5 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
02e6 e5fe | | Load 0x2,-0x2
02e7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02e8 00d1 | | Pop_Control Pop_Count_1
02e9 e5fe | | Load 0x2,-0x2
02ea 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02eb e406 | | Load 0x2,0x6
02ec e5ff | | Load 0x2,-0x1
02ed 380b |8 | Execute Record,Field_Write,Field_Number 0xb
02ee 00e3 | | Load_Encached Natural_Cache
02ef e402 | | Load 0x2,0x2
02f0 e002 | | Load 0x0,0x2
02f1 1b19 | | Execute Package,Field_Read,Field_Number 0x19
02f2 605d |`] | Indirect_Literal Discrete,0x350,{0x00007fff, 0xffffffff}
02f3 e5fe | | Load 0x2,-0x2
02f4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02f5 e004 | | Load 0x0,0x4
02f6 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
02f7 e5fe | | Load 0x2,-0x2
02f8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02f9 00d1 | | Pop_Control Pop_Count_1
02fa e5fe | | Load 0x2,-0x2
02fb 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02fc e402 | | Load 0x2,0x2
02fd e009 | | Load 0x0,0x9
02fe 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02ff e006 | | Load 0x0,0x6
0300 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0301 a407 | | Store_Unchecked 0x2,0x7
0302 4800 |H | Short_Literal 0x0
0303 0053 | S | Store_Top_Unchecked Discrete,At_Offset_3
0304 4801 |H | Short_Literal 0x1
0305 a403 | | Store_Unchecked 0x2,0x3
0306 e402 | | Load 0x2,0x2
0307 e009 | | Load 0x0,0x9
0308 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0309 e006 | | Load 0x0,0x6
030a 1817 | | Execute Package,Field_Execute,Field_Number 0x17
030b a407 | | Store_Unchecked 0x2,0x7
030c 00cf | | Action Mark_Auxiliary
030d 7837 |x7 | Jump 0x345
030e e403 | | Load 0x2,0x3
030f e407 | | Load 0x2,0x7
0310 e006 | | Load 0x0,0x6
0311 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0312 0f2b | + | Execute_Immediate Equal,0x2b
0313 e403 | | Load 0x2,0x3
0314 0a01 | | Execute_Immediate Plus,0x1
0315 00d8 | | Load_Top At_Offset_0
0316 00e4 | | Load_Encached Positive_Cache
0317 0260 | ` | Execute Discrete,In_Type
0318 7001 |p | Jump_Nonzero 0x31a
0319 0801 | | Execute_Immediate Raise,0x1
031a e407 | | Load 0x2,0x7
031b e006 | | Load 0x0,0x6
031c 1814 | | Execute Package,Field_Execute,Field_Number 0x14
031d 0f2b | + | Execute_Immediate Equal,0x2b
031e 0279 | y | Execute Discrete,And
031f e403 | | Load 0x2,0x3
0320 0a02 | | Execute_Immediate Plus,0x2
0321 00d8 | | Load_Top At_Offset_0
0322 00e4 | | Load_Encached Positive_Cache
0323 0260 | ` | Execute Discrete,In_Type
0324 7001 |p | Jump_Nonzero 0x326
0325 0801 | | Execute_Immediate Raise,0x1
0326 e407 | | Load 0x2,0x7
0327 e006 | | Load 0x0,0x6
0328 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0329 0f2b | + | Execute_Immediate Equal,0x2b
032a 0279 | y | Execute Discrete,And
032b 6815 |h | Jump_Zero 0x341
032c e402 | | Load 0x2,0x2
032d e009 | | Load 0x0,0x9
032e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
032f e006 | | Load 0x0,0x6
0330 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0331 a407 | | Store_Unchecked 0x2,0x7
0332 e407 | | Load 0x2,0x7
0333 4820 |H | Short_Literal 0x20
0334 e403 | | Load 0x2,0x3
0335 0aff | | Execute_Immediate Plus,-0x1
0336 00d8 | | Load_Top At_Offset_0
0337 00e3 | | Load_Encached Natural_Cache
0338 0260 | ` | Execute Discrete,In_Type
0339 7001 |p | Jump_Nonzero 0x33b
033a 0801 | | Execute_Immediate Raise,0x1
033b e006 | | Load 0x0,0x6
033c 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
033d c407 | | Store 0x2,0x7
033e 4801 |H | Short_Literal 0x1
033f a408 | | Store_Unchecked 0x2,0x8
0340 7803 |x | Jump 0x344
0341 e403 | | Load 0x2,0x3
0342 0a01 | | Execute_Immediate Plus,0x1
0343 c403 | | Store 0x2,0x3
0344 00c9 | | Action Pop_Auxiliary_Loop
0345 00db | | Load_Top At_Offset_3
0346 0f00 | | Execute_Immediate Equal,0x0
0347 e403 | | Load 0x2,0x3
0348 0dfe | | Execute_Immediate Less,0xfe
0349 0279 | y | Execute Discrete,And
034a 77c3 |w | Jump_Nonzero 0x30e
034b 00ce | | Action Pop_Auxiliary
034c 00db | | Load_Top At_Offset_3
034d e5ff | | Load 0x2,-0x1
034e 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
034f 4501 |E | Exit_Subprogram 0x1
0350 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
0354 0000 0000 | | .BLANK 0000[0x4]
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 035b | [ | .CONST 0x035b ; Address of begin
0359 0004 | | .CONST 0x0004 ; Address of exception handler
035a 0001 | | .CONST 0x0001 ; Number of locals
035b BODY_0358:
035b INIT_0358:
035b e002 | | Load 0x0,0x2
035c 1b19 | | Execute Package,Field_Read,Field_Number 0x19
035d e5fe | | Load 0x2,-0x2
035e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
035f 0120 | | Execute Any,Is_Value
0360 6803 |h | Jump_Zero 0x364
0361 e004 | | Load 0x0,0x4
0362 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0363 7802 |x | Jump 0x366
0364 e5fe | | Load 0x2,-0x2
0365 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0366 e5ff | | Load 0x2,-0x1
0367 4801 |H | Short_Literal 0x1
0368 4806 |H | Short_Literal 0x6
0369 00e9 | | Load_Encached String_Cache
036a 0334 | 4 | Declare_Variable Array,With_Constraint
036b 5010 |P | Indirect_Literal Any,0x37c,{0x5443502f, 0x49502020}
036c e004 | | Load 0x0,0x4
036d 181a | | Execute Package,Field_Execute,Field_Number 0x1a
036e e5fe | | Load 0x2,-0x2
036f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0370 e5fe | | Load 0x2,-0x2
0371 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0372 00db | | Load_Top At_Offset_3
0373 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0374 e004 | | Load 0x0,0x4
0375 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0376 6804 |h | Jump_Zero 0x37b
0377 0092 03dc | | Action Push_String_Extended,0x3dc ; "connection ouverte"
0379 e005 | | Load 0x0,0x5
037a 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
037b 4502 |E | Exit_Subprogram 0x2
037c 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020}
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 0383 | | .CONST 0x0383 ; Address of begin
0381 0004 | | .CONST 0x0004 ; Address of exception handler
0382 0001 | | .CONST 0x0001 ; Number of locals
0383 BODY_0380:
0383 INIT_0380:
0383 00cf | | Action Mark_Auxiliary
0384 780e |x | Jump 0x393
0385 e002 | | Load 0x0,0x2
0386 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0387 601c |` | Indirect_Literal Discrete,0x3a4,{0x00007fff, 0xffffffff}
0388 e5ff | | Load 0x2,-0x1
0389 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
038a e004 | | Load 0x0,0x4
038b 181d | | Execute Package,Field_Execute,Field_Number 0x1d
038c e5ff | | Load 0x2,-0x1
038d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
038e 0092 03dd | | Action Push_String_Extended,0x3dd ; "."
0390 e005 | | Load 0x0,0x5
0391 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0392 00c9 | | Action Pop_Auxiliary_Loop
0393 00db | | Load_Top At_Offset_3
0394 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0395 e004 | | Load 0x0,0x4
0396 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0397 6fed |o | Jump_Zero 0x385
0398 00ce | | Action Pop_Auxiliary
0399 4801 |H | Short_Literal 0x1
039a e005 | | Load 0x0,0x5
039b 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
039c 00da | | Load_Top At_Offset_2
039d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
039e e004 | | Load 0x0,0x4
039f 1820 | | Execute Package,Field_Execute,Field_Number 0x20
03a0 6800 |h | Jump_Zero 0x3a1
03a1 4501 |E | Exit_Subprogram 0x1
03a2 0000 0000 | | .XXX[0x2]
03a4 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03ab | | .CONST 0x03ab ; Address of begin
03a9 0004 | | .CONST 0x0004 ; Address of exception handler
03aa 0001 | | .CONST 0x0001 ; Number of locals
03ab BODY_03a8:
03ab INIT_03a8:
03ab 00da | | Load_Top At_Offset_2
03ac 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03ad e004 | | Load 0x0,0x4
03ae 181e | | Execute Package,Field_Execute,Field_Number 0x1e
03af 4501 |E | Exit_Subprogram 0x1
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b3 | | .CONST 0x03b3 ; Address of begin
03b1 0004 | | .CONST 0x0004 ; Address of exception handler
03b2 0001 | | .CONST 0x0001 ; Number of locals
03b3 BODY_03b0:
03b3 INIT_03b0:
03b3 00da | | Load_Top At_Offset_2
03b4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03b5 e004 | | Load 0x0,0x4
03b6 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03b7 0092 03e1 | | Action Push_String_Extended,0x3e1 ; "connection fermee"
03b9 e005 | | Load 0x0,0x5
03ba 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
03bb 4501 |E | Exit_Subprogram 0x1
03bc 0000 0000 | | .BLANK 0000[0x4]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03c3 | | .CONST 0x03c3 ; Address of begin
03c1 0004 | | .CONST 0x0004 ; Address of exception handler
03c2 0001 | | .CONST 0x0001 ; Number of locals
03c3 BODY_03c0:
03c3 INIT_03c0:
03c3 00e3 | | Load_Encached Natural_Cache
03c4 e002 | | Load 0x0,0x2
03c5 1b19 | | Execute Package,Field_Read,Field_Number 0x19
03c6 4800 |H | Short_Literal 0x0
03c7 6010 |` | Indirect_Literal Discrete,0x3d8,{0x00007fff, 0xffffffff}
03c8 e7ff | | Load 0x3,-0x1
03c9 e006 | | Load 0x0,0x6
03ca 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03cb e009 | | Load 0x0,0x9
03cc 1814 | | Execute Package,Field_Execute,Field_Number 0x14
03cd e7fe | | Load 0x3,-0x2
03ce 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03cf e004 | | Load 0x0,0x4
03d0 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
03d1 e7fe | | Load 0x3,-0x2
03d2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
03d3 e7fe | | Load 0x3,-0x2
03d4 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
03d5 4502 |E | Exit_Subprogram 0x2
03d6 0000 0000 | | .XXX[0x2]
03d8 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
03dc ; --------------------------------------------------------------------------------------
03dc ; STRING TABLE
03dc ; --------------------------------------------------------------------------------------
03dc 000e | | .STRTAB 0x000e->0x03e3 ; "connection ouverte"
; "connection ouverte"
; "connection ouverte"
03dd 001e | | .STRTAB 0x001e->0x03ec ; "."
; "."
03de 001d | | .STRTAB 0x001d->0x03ec ; "+++"
03df 001e | | .STRTAB 0x001e->0x03ee ; " 1"
03e0 001e | | .STRTAB 0x001e->0x03ef ; " 0"
03e1 001e | | .STRTAB 0x001e->0x03f0 ; "connection fermee"
03e2 002d | - | .STREND 0x002d->0x03f8
03e3 636f 6e6e |conn| .STRTAB_STRINGS
03f9 0000 0000 | | .BLANK 0000[0x7]
0400 ; --------------------------------------------------------------------------------------
0400 ; Debug Table
0400 ; --------------------------------------------------------------------------------------
0400 0004 000a | | .DEBUG4 0x0004,0x000a,0x6d36,0x0000,0x0001,0x000b
0406 000b 0432 | 2| .DBG4T 0x000b,0x0432,0x8000,0x0000
040a 001c 043c | <| .DBG4T 0x001c,0x043c,0x8000,0x0000
040e 0033 0447 | 3 G| .DBG4T 0x0033,0x0447,0x0001,0x0000
0412 00bb 0457 | W| .DBG4T 0x00bb,0x0457,0x0001,0x4000
0416 00eb 0465 | e| .DBG4T 0x00eb,0x0465,0x0001,0x0000
041a 019b 047a | z| .DBG4T 0x019b,0x047a,0x0001,0x4000
041e 035b 04dd | [ | .DBG4T 0x035b,0x04dd,0x0001,0x0000
0422 0383 04e2 | | .DBG4T 0x0383,0x04e2,0x0001,0x4000
0426 03ab 04f0 | | .DBG4T 0x03ab,0x04f0,0x0001,0x0000
042a 03b3 04f3 | | .DBG4T 0x03b3,0x04f3,0x0001,0x0000
042e 03c3 04f7 | | .DBG4T 0x03c3,0x04f7,0x0001,0x0000
0432 ; --------------------------------------------------------------------------------------
0432 ; Debug chain
0432 ; --------------------------------------------------------------------------------------
0432 0008 0000 | | .DBGLEN 0x0008,0x0000
0434 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019
043c ; --------------------------------------------------------------------------------------
043c ; Debug chain
043c ; --------------------------------------------------------------------------------------
043c 0008 0001 | | .DBGLEN 0x0008,0x0001
043e 001c 001e | | .DBGLNO 0x001c,0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002a,0x002c
0447 ; --------------------------------------------------------------------------------------
0447 ; Debug chain
0447 ; --------------------------------------------------------------------------------------
0447 0003 000b | | .DBGLEN 0x0003,0x000b
0449 0033 0046 | 3 F| .DBGLNO 0x0033,0x0046,0x004a,0x0050,0x0053,0x0056,0x005a,0x0071,0x0076,0x007a,0x0080,0x0087,0x009f,0x00a4
0457 ; --------------------------------------------------------------------------------------
0457 ; Debug chain
0457 ; --------------------------------------------------------------------------------------
0457 0000 0006 | | .DBGLEN 0x0000,0x0006
0459 00bd 00ca | | .DBGLNO 0x00bd,0x00ca,0x00cf,0x00d5,0x00d8,0x00dd
045f 0002 0003 | | .XXX[0x6]
0461 0001 0004 | |
0463 0005 0006 | |
0465 ; --------------------------------------------------------------------------------------
0465 ; Debug chain
0465 ; --------------------------------------------------------------------------------------
0465 0002 0011 | | .DBGLEN 0x0002,0x0011
0467 00eb 00ed | | .DBGLNO 0x00eb,0x00ed,0x00ef,0x00f8,0x00fe,0x0102,0x0111,0x011a,0x0129,0x0132,0x0141,0x0145,0x014d,0x0154,0x015d,0x016c,0x017b,0x018a,0x0190
047a ; --------------------------------------------------------------------------------------
047a ; Debug chain
047a ; --------------------------------------------------------------------------------------
047a 0009 002c | ,| .DBGLEN 0x0009,0x002c
047c 019b 01a1 | | .DBGLNO 0x019b,0x01a1,0x01a3,0x01a9,0x01af,0x01b5,0x01b7,0x01b9,0x01ba,0x01bf,0x01cd,0x01d3,0x01d5,0x01d9,0x01f7,0x01fd,0x0209,0x020c,0x0210,0x0217,0x0222,0x0230,0x0233,0x0241,0x024e,0x025c,0x026a,0x0277,0x0285,0x0288,0x0296,0x029e,0x02a2,0x02a5,0x02b3,0x02bb,0x02c9,0x02cc,0x02da,0x02dd,0x02eb,0x02ee,0x02fc,0x0302,0x0304,0x0306,0x030e,0x032c,0x0332,0x033e,0x0341,0x0345,0x034c
04b1 0001 0002 | | .XXX[0x2c]
04b3 0003 0004 | |
04b5 0006 0007 | |
04b7 0008 0009 | |
04b9 000a 0005 | |
04bb 000b 000c | |
04bd 000d 000e | |
04bf 000f 0010 | |
04c1 0011 0012 | |
04c3 0013 0014 | |
04c5 0015 0016 | |
04c7 0017 0018 | |
04c9 0019 001a | |
04cb 001b 001c | |
04cd 001d 001e | |
04cf 001f 0020 | |
04d1 0021 0022 | ! "|
04d3 0023 0024 | # $|
04d5 0025 0027 | % '|
04d7 0028 0029 | ( )|
04d9 002a 002b | * +|
04db 0026 002c | & ,|
04dd ; --------------------------------------------------------------------------------------
04dd ; Debug chain
04dd ; --------------------------------------------------------------------------------------
04dd 0000 0003 | | .DBGLEN 0x0000,0x0003
04df 035b 0372 | [ r| .DBGLNO 0x035b,0x0372,0x0377
04e2 ; --------------------------------------------------------------------------------------
04e2 ; Debug chain
04e2 ; --------------------------------------------------------------------------------------
04e2 0000 0006 | | .DBGLEN 0x0000,0x0006
04e4 0385 038e | | .DBGLNO 0x0385,0x038e,0x0393,0x0399,0x039c,0x03a1
04ea 0002 0003 | | .XXX[0x6]
04ec 0001 0004 | |
04ee 0005 0006 | |
04f0 ; --------------------------------------------------------------------------------------
04f0 ; Debug chain
04f0 ; --------------------------------------------------------------------------------------
04f0 0000 0001 | | .DBGLEN 0x0000,0x0001
04f2 03ab | | .DBGLNO 0x03ab
04f3 ; --------------------------------------------------------------------------------------
04f3 ; Debug chain
04f3 ; --------------------------------------------------------------------------------------
04f3 0000 0002 | | .DBGLEN 0x0000,0x0002
04f5 03b3 03b7 | | .DBGLNO 0x03b3,0x03b7
04f7 ; --------------------------------------------------------------------------------------
04f7 ; Debug chain
04f7 ; --------------------------------------------------------------------------------------
04f7 0000 0001 | | .DBGLEN 0x0000,0x0001
04f9 03c3 | | .DBGLNO 0x03c3
04fa 0000 0000 | | .BLANK 0000[0x106]