|
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_1fb093
└─⟦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 03c0 | | .CONST 0x03c0 ; 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 0090 | | .CONST 0x0090 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 002f | / | .CONST 0x002f ; Number of locals
000b INIT_0008:
000b 029a 009b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0098
000d 029a 00a3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00a0
000f 029a 00ab | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00a8
0011 029a 00bb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00b8
0013 029a 00c3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00c0
0015 029a 00d3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00d0
0017 029a 00e3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00e0
0019 029a 00f3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00f0
001b 029a 00fb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00f8
001d 029a 010b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0108
001f 029a 011b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0118
0021 029a 0123 | #| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0120
0023 029a 01a3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01a0
0025 029a 01b3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01b0
0027 029a 01e3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01e0
0029 029a 0203 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0200
002b 029a 0213 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0210
002d 029a 021b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0218
002f 029a 0223 | #| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0220
0031 029a 02a3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02a0
0033 029a 02b3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02b0
0035 029a 02c3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02c0
0037 029a 034b | K| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0348
0039 029a 035b | [| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0358
003b 029a 0363 | c| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0360
003d 029a 036b | k| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0368
003f 029a 037b | {| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0378
0041 029a 038b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0388
0043 00bf | | Action Accept_Activation
0044 4830 |H0 | Short_Literal 0x30
0045 4839 |H9 | Short_Literal 0x39
0046 00e8 | | Load_Encached Character_Cache
0047 03f8 | | Declare_Type Discrete,Constrained
0048 4861 |Ha | Short_Literal 0x61
0049 487a |Hz | Short_Literal 0x7a
004a 00e8 | | Load_Encached Character_Cache
004b 03f8 | | Declare_Type Discrete,Constrained
004c 4841 |HA | Short_Literal 0x41
004d 485a |HZ | Short_Literal 0x5a
004e 00e8 | | Load_Encached Character_Cache
004f 03f8 | | Declare_Type Discrete,Constrained
0050 0092 0391 | | Action Push_String_Extended,0x391 ; "FALSE"
0052 0092 0392 | | Action Push_String_Extended,0x392 ; "TRUE"
0054 00e1 | | Load_Encached Boolean_Cache
0055 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0056 00e1 | | Load_Encached Boolean_Cache
0057 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0058 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0059 00c7 | | Action Elaborate_Subprogram
005a 1d0e | | Execute_Immediate Reference_Lex_1,0xe
005b 00c7 | | Action Elaborate_Subprogram
005c 1d0f | | Execute_Immediate Reference_Lex_1,0xf
005d 00c7 | | Action Elaborate_Subprogram
005e 1d10 | | Execute_Immediate Reference_Lex_1,0x10
005f 00c7 | | Action Elaborate_Subprogram
0060 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0061 00c7 | | Action Elaborate_Subprogram
0062 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0063 00c7 | | Action Elaborate_Subprogram
0064 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0065 00c7 | | Action Elaborate_Subprogram
0066 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0067 00c7 | | Action Elaborate_Subprogram
0068 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0069 00c7 | | Action Elaborate_Subprogram
006a 1d16 | | Execute_Immediate Reference_Lex_1,0x16
006b 00c7 | | Action Elaborate_Subprogram
006c 1d17 | | Execute_Immediate Reference_Lex_1,0x17
006d 00c7 | | Action Elaborate_Subprogram
006e 1d18 | | Execute_Immediate Reference_Lex_1,0x18
006f 00c7 | | Action Elaborate_Subprogram
0070 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0071 00c7 | | Action Elaborate_Subprogram
0072 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0073 00c7 | | Action Elaborate_Subprogram
0074 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0075 00c7 | | Action Elaborate_Subprogram
0076 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0077 00c7 | | Action Elaborate_Subprogram
0078 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0079 00c7 | | Action Elaborate_Subprogram
007a 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
007b 00c7 | | Action Elaborate_Subprogram
007c 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
007d 00c7 | | Action Elaborate_Subprogram
007e 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
007f 00c7 | | Action Elaborate_Subprogram
0080 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0081 00c7 | | Action Elaborate_Subprogram
0082 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0083 00c7 | | Action Elaborate_Subprogram
0084 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0085 00c7 | | Action Elaborate_Subprogram
0086 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0087 00c7 | | Action Elaborate_Subprogram
0088 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0089 00c7 | | Action Elaborate_Subprogram
008a 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
008b 00c7 | | Action Elaborate_Subprogram
008c 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
008d 00c7 | | Action Elaborate_Subprogram
008e 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
008f 00c7 | | Action Elaborate_Subprogram
0090 BODY_0008:
0090 00bc | | Action Signal_Activated
0091 00bb | | Action Signal_Completion
0092 0000 0000 | | .BLANK 0000[0x6]
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 4800 |H | Short_Literal 0x0
009c a22e | . | Store_Unchecked 0x1,0x2e
009d 4801 |H | Short_Literal 0x1
009e a22f | / | Store_Unchecked 0x1,0x2f
009f 4501 |E | Exit_Subprogram 0x1
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3 | | .CONST 0x00a3 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0001 | | .CONST 0x0001 ; Number of locals
00a3 BODY_00a0:
00a3 INIT_00a0:
00a3 4801 |H | Short_Literal 0x1
00a4 a22e | . | Store_Unchecked 0x1,0x2e
00a5 4801 |H | Short_Literal 0x1
00a6 a22f | / | Store_Unchecked 0x1,0x2f
00a7 4501 |E | Exit_Subprogram 0x1
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab | | .CONST 0x00ab ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0001 | | .CONST 0x0001 ; Number of locals
00ab BODY_00a8:
00ab INIT_00a8:
00ab 00da | | Load_Top At_Offset_2
00ac e002 | | Load 0x0,0x2
00ad 181f | | Execute Package,Field_Execute,Field_Number 0x1f
00ae 4801 |H | Short_Literal 0x1
00af a22e | . | Store_Unchecked 0x1,0x2e
00b0 4801 |H | Short_Literal 0x1
00b1 a22f | / | Store_Unchecked 0x1,0x2f
00b2 4502 |E | Exit_Subprogram 0x2
00b3 0000 0000 | | .BLANK 0000[0x5]
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 e22e | . | Load 0x1,0x2e
00bc 00ca | | Action Exit_Nullary_Function
00bd 0000 0000 | | .XXX[0x3]
00bf 0000 | |
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 e22f | / | Load 0x1,0x2f
00c4 6803 |h | Jump_Zero 0xc8
00c5 e002 | | Load 0x0,0x2
00c6 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
00c7 00ca | | Action Exit_Nullary_Function
00c8 e002 | | Load 0x0,0x2
00c9 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
00ca 00ca | | Action Exit_Nullary_Function
00cb 0000 0000 | | .BLANK 0000[0x5]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 e22e | . | Load 0x1,0x2e
00d4 6804 |h | Jump_Zero 0xd9
00d5 4801 |H | Short_Literal 0x1
00d6 8211 | | Call 0x1,0x11
00d7 e002 | | Load 0x0,0x2
00d8 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
00d9 4501 |E | Exit_Subprogram 0x1
00da 0000 0000 | | .BLANK 0000[0x6]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 e22e | . | Load 0x1,0x2e
00e4 6804 |h | Jump_Zero 0xe9
00e5 00da | | Load_Top At_Offset_2
00e6 8211 | | Call 0x1,0x11
00e7 e002 | | Load 0x0,0x2
00e8 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
00e9 4502 |E | Exit_Subprogram 0x2
00ea 0000 0000 | | .BLANK 0000[0x6]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 00da | | Load_Top At_Offset_2
00f4 8003 | | Call 0x0,0x3
00f5 8213 | | Call 0x1,0x13
00f6 4502 |E | Exit_Subprogram 0x2
00f7 0000 | | .XXX[0x1]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb 4801 |H | Short_Literal 0x1
00fc e002 | | Load 0x0,0x2
00fd 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
00fe e22f | / | Load 0x1,0x2f
00ff 7001 |p | Jump_Nonzero 0x101
0100 8212 | | Call 0x1,0x12
0101 4501 |E | Exit_Subprogram 0x1
0102 0000 0000 | | .BLANK 0000[0x6]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b | | .CONST 0x010b ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0001 | | .CONST 0x0001 ; Number of locals
010b BODY_0108:
010b INIT_0108:
010b 00da | | Load_Top At_Offset_2
010c e002 | | Load 0x0,0x2
010d 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
010e e22f | / | Load 0x1,0x2f
010f 7002 |p | Jump_Nonzero 0x112
0110 00da | | Load_Top At_Offset_2
0111 8213 | | Call 0x1,0x13
0112 4502 |E | Exit_Subprogram 0x2
0113 0000 0000 | | .BLANK 0000[0x5]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b 00da | | Load_Top At_Offset_2
011c 8003 | | Call 0x0,0x3
011d 8216 | | Call 0x1,0x16
011e 4502 |E | Exit_Subprogram 0x2
011f 0000 | | .XXX[0x1]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0125 | % | .CONST 0x0125 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0002 | | .CONST 0x0002 ; Number of locals
0123 INIT_0120:
0123 00da | | Load_Top At_Offset_2
0124 8003 | | Call 0x0,0x3
0125 BODY_0120:
0125 00d8 | | Load_Top At_Offset_0
0126 0092 0393 | | Action Push_String_Extended,0x393 ; "+"
0128 01df | | Execute Vector,Equal
0129 706e |pn | Jump_Nonzero 0x198
012a 00d8 | | Load_Top At_Offset_0
012b 0092 0394 | | Action Push_String_Extended,0x394 ; "-"
012d 01df | | Execute Vector,Equal
012e 7067 |pg | Jump_Nonzero 0x196
012f 00d8 | | Load_Top At_Offset_0
0130 0092 0395 | | Action Push_String_Extended,0x395 ; "*"
0132 01df | | Execute Vector,Equal
0133 7060 |p` | Jump_Nonzero 0x194
0134 00d8 | | Load_Top At_Offset_0
0135 0092 0396 | | Action Push_String_Extended,0x396 ; "/"
0137 01df | | Execute Vector,Equal
0138 7059 |pY | Jump_Nonzero 0x192
0139 00d8 | | Load_Top At_Offset_0
013a 0092 0397 | | Action Push_String_Extended,0x397 ; "="
013c 01df | | Execute Vector,Equal
013d 7052 |pR | Jump_Nonzero 0x190
013e 00d8 | | Load_Top At_Offset_0
013f 0092 0398 | | Action Push_String_Extended,0x398 ; "<>"
0141 01df | | Execute Vector,Equal
0142 704b |pK | Jump_Nonzero 0x18e
0143 00d8 | | Load_Top At_Offset_0
0144 0092 0399 | | Action Push_String_Extended,0x399 ; "<"
0146 01df | | Execute Vector,Equal
0147 7044 |pD | Jump_Nonzero 0x18c
0148 00d8 | | Load_Top At_Offset_0
0149 0092 039a | | Action Push_String_Extended,0x39a ; "<="
014b 01df | | Execute Vector,Equal
014c 703d |p= | Jump_Nonzero 0x18a
014d 00d8 | | Load_Top At_Offset_0
014e 0092 039b | | Action Push_String_Extended,0x39b ; ">"
0150 01df | | Execute Vector,Equal
0151 7036 |p6 | Jump_Nonzero 0x188
0152 00d8 | | Load_Top At_Offset_0
0153 0092 039c | | Action Push_String_Extended,0x39c ; ">="
0155 01df | | Execute Vector,Equal
0156 702f |p/ | Jump_Nonzero 0x186
0157 00d8 | | Load_Top At_Offset_0
0158 0092 039d | | Action Push_String_Extended,0x39d ; "non"
015a 01df | | Execute Vector,Equal
015b 7028 |p( | Jump_Nonzero 0x184
015c 00d8 | | Load_Top At_Offset_0
015d 0092 039e | | Action Push_String_Extended,0x39e ; "et"
015f 01df | | Execute Vector,Equal
0160 7021 |p! | Jump_Nonzero 0x182
0161 00d8 | | Load_Top At_Offset_0
0162 0092 039f | | Action Push_String_Extended,0x39f ; "ou"
0164 01df | | Execute Vector,Equal
0165 701a |p | Jump_Nonzero 0x180
0166 00d8 | | Load_Top At_Offset_0
0167 0092 03a0 | | Action Push_String_Extended,0x3a0 ; "."
0169 01df | | Execute Vector,Equal
016a 7013 |p | Jump_Nonzero 0x17e
016b 00d8 | | Load_Top At_Offset_0
016c 0092 03a1 | | Action Push_String_Extended,0x3a1 ; ","
016e 01df | | Execute Vector,Equal
016f 700c |p | Jump_Nonzero 0x17c
0170 00d8 | | Load_Top At_Offset_0
0171 0092 03a2 | | Action Push_String_Extended,0x3a2 ; "("
0173 01df | | Execute Vector,Equal
0174 7005 |p | Jump_Nonzero 0x17a
0175 00d8 | | Load_Top At_Offset_0
0176 0092 03a3 | | Action Push_String_Extended,0x3a3 ; ")"
0178 01df | | Execute Vector,Equal
0179 4401 |D | Exit_Subprogram With_Result,0x1
017a 4801 |H | Short_Literal 0x1
017b 4401 |D | Exit_Subprogram With_Result,0x1
017c 4801 |H | Short_Literal 0x1
017d 4401 |D | Exit_Subprogram With_Result,0x1
017e 4801 |H | Short_Literal 0x1
017f 4401 |D | Exit_Subprogram With_Result,0x1
0180 4801 |H | Short_Literal 0x1
0181 4401 |D | Exit_Subprogram With_Result,0x1
0182 4801 |H | Short_Literal 0x1
0183 4401 |D | Exit_Subprogram With_Result,0x1
0184 4801 |H | Short_Literal 0x1
0185 4401 |D | Exit_Subprogram With_Result,0x1
0186 4801 |H | Short_Literal 0x1
0187 4401 |D | Exit_Subprogram With_Result,0x1
0188 4801 |H | Short_Literal 0x1
0189 4401 |D | Exit_Subprogram With_Result,0x1
018a 4801 |H | Short_Literal 0x1
018b 4401 |D | Exit_Subprogram With_Result,0x1
018c 4801 |H | Short_Literal 0x1
018d 4401 |D | Exit_Subprogram With_Result,0x1
018e 4801 |H | Short_Literal 0x1
018f 4401 |D | Exit_Subprogram With_Result,0x1
0190 4801 |H | Short_Literal 0x1
0191 4401 |D | Exit_Subprogram With_Result,0x1
0192 4801 |H | Short_Literal 0x1
0193 4401 |D | Exit_Subprogram With_Result,0x1
0194 4801 |H | Short_Literal 0x1
0195 4401 |D | Exit_Subprogram With_Result,0x1
0196 4801 |H | Short_Literal 0x1
0197 4401 |D | Exit_Subprogram With_Result,0x1
0198 4801 |H | Short_Literal 0x1
0199 4401 |D | Exit_Subprogram With_Result,0x1
019a 0000 0000 | | .BLANK 0000[0x6]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a5 | | .CONST 0x01a5 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0002 | | .CONST 0x0002 ; Number of locals
01a3 INIT_01a0:
01a3 00da | | Load_Top At_Offset_2
01a4 8003 | | Call 0x0,0x3
01a5 BODY_01a0:
01a5 00d8 | | Load_Top At_Offset_0
01a6 e22c | , | Load 0x1,0x2c
01a7 01df | | Execute Vector,Equal
01a8 7004 |p | Jump_Nonzero 0x1ad
01a9 00d8 | | Load_Top At_Offset_0
01aa e22d | - | Load 0x1,0x2d
01ab 01df | | Execute Vector,Equal
01ac 4401 |D | Exit_Subprogram With_Result,0x1
01ad 4801 |H | Short_Literal 0x1
01ae 4401 |D | Exit_Subprogram With_Result,0x1
01af 0000 | | .XXX[0x1]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b5 | | .CONST 0x01b5 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0002 | | .CONST 0x0002 ; Number of locals
01b3 INIT_01b0:
01b3 00da | | Load_Top At_Offset_2
01b4 8003 | | Call 0x0,0x3
01b5 BODY_01b0:
01b5 00d8 | | Load_Top At_Offset_0
01b6 01dd | | Execute Vector,First
01b7 00d9 | | Load_Top At_Offset_1
01b8 01d7 | | Execute Vector,Field_Read
01b9 e229 | ) | Load 0x1,0x29
01ba 0260 | ` | Execute Discrete,In_Type
01bb 6802 |h | Jump_Zero 0x1be
01bc 4801 |H | Short_Literal 0x1
01bd 4401 |D | Exit_Subprogram With_Result,0x1
01be 00d8 | | Load_Top At_Offset_0
01bf 01dd | | Execute Vector,First
01c0 0a01 | | Execute_Immediate Plus,0x1
01c1 00d9 | | Load_Top At_Offset_1
01c2 01d7 | | Execute Vector,Field_Read
01c3 e229 | ) | Load 0x1,0x29
01c4 0260 | ` | Execute Discrete,In_Type
01c5 6816 |h | Jump_Zero 0x1dc
01c6 00d8 | | Load_Top At_Offset_0
01c7 01dd | | Execute Vector,First
01c8 00d9 | | Load_Top At_Offset_1
01c9 01d7 | | Execute Vector,Field_Read
01ca 00d8 | | Load_Top At_Offset_0
01cb 4820 |H | Short_Literal 0x20
01cc 482d |H- | Short_Literal 0x2d
01cd 0262 | b | Execute Discrete,In_Range
01ce 680a |h | Jump_Zero 0x1d9
01cf 00d8 | | Load_Top At_Offset_0
01d0 4821 |H! | Short_Literal 0x21
01d1 482a |H* | Short_Literal 0x2a
01d2 0262 | b | Execute Discrete,In_Range
01d3 7005 |p | Jump_Nonzero 0x1d9
01d4 0f2c | , | Execute_Immediate Equal,0x2c
01d5 7004 |p | Jump_Nonzero 0x1da
01d6 7800 |x | Jump 0x1d7
01d7 4801 |H | Short_Literal 0x1
01d8 4401 |D | Exit_Subprogram With_Result,0x1
01d9 00d1 | | Pop_Control Pop_Count_1
01da 4800 |H | Short_Literal 0x0
01db 4401 |D | Exit_Subprogram With_Result,0x1
01dc 4800 |H | Short_Literal 0x0
01dd 4401 |D | Exit_Subprogram With_Result,0x1
01de 0000 0000 | | .XXX[0x2]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e5 | | .CONST 0x01e5 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0002 | | .CONST 0x0002 ; Number of locals
01e3 INIT_01e0:
01e3 00da | | Load_Top At_Offset_2
01e4 8003 | | Call 0x0,0x3
01e5 BODY_01e0:
01e5 00d8 | | Load_Top At_Offset_0
01e6 01dd | | Execute Vector,First
01e7 00d9 | | Load_Top At_Offset_1
01e8 01d7 | | Execute Vector,Field_Read
01e9 e22a | * | Load 0x1,0x2a
01ea 0260 | ` | Execute Discrete,In_Type
01eb 7007 |p | Jump_Nonzero 0x1f3
01ec 00d8 | | Load_Top At_Offset_0
01ed 01dd | | Execute Vector,First
01ee 00d9 | | Load_Top At_Offset_1
01ef 01d7 | | Execute Vector,Field_Read
01f0 e22b | + | Load 0x1,0x2b
01f1 0260 | ` | Execute Discrete,In_Type
01f2 6809 |h | Jump_Zero 0x1fc
01f3 00db | | Load_Top At_Offset_3
01f4 8219 | | Call 0x1,0x19
01f5 7003 |p | Jump_Nonzero 0x1f9
01f6 00db | | Load_Top At_Offset_3
01f7 8218 | | Call 0x1,0x18
01f8 7801 |x | Jump 0x1fa
01f9 4801 |H | Short_Literal 0x1
01fa 0f00 | | Execute_Immediate Equal,0x0
01fb 4401 |D | Exit_Subprogram With_Result,0x1
01fc 4800 |H | Short_Literal 0x0
01fd 4401 |D | Exit_Subprogram With_Result,0x1
01fe 0000 0000 | | .XXX[0x2]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203 | | .CONST 0x0203 ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0001 | | .CONST 0x0001 ; Number of locals
0203 BODY_0200:
0203 INIT_0200:
0203 00da | | Load_Top At_Offset_2
0204 8003 | | Call 0x0,0x3
0205 e5fe | | Load 0x2,-0x2
0206 8003 | | Call 0x0,0x3
0207 01df | | Execute Vector,Equal
0208 4402 |D | Exit_Subprogram With_Result,0x2
0209 0000 0000 | | .BLANK 0000[0x7]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213 | | .CONST 0x0213 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0001 | | .CONST 0x0001 ; Number of locals
0213 BODY_0210:
0213 INIT_0210:
0213 00da | | Load_Top At_Offset_2
0214 8003 | | Call 0x0,0x3
0215 e5fe | | Load 0x2,-0x2
0216 01df | | Execute Vector,Equal
0217 4402 |D | Exit_Subprogram With_Result,0x2
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b | | .CONST 0x021b ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0001 | | .CONST 0x0001 ; Number of locals
021b BODY_0218:
021b INIT_0218:
021b 00da | | Load_Top At_Offset_2
021c e5fe | | Load 0x2,-0x2
021d 8003 | | Call 0x0,0x3
021e 01df | | Execute Vector,Equal
021f 4402 |D | Exit_Subprogram With_Result,0x2
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0225 | % | .CONST 0x0225 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0002 | | .CONST 0x0002 ; Number of locals
0223 INIT_0220:
0223 00da | | Load_Top At_Offset_2
0224 8003 | | Call 0x0,0x3
0225 BODY_0220:
0225 00d8 | | Load_Top At_Offset_0
0226 0092 0393 | | Action Push_String_Extended,0x393 ; "+"
0228 01df | | Execute Vector,Equal
0229 6802 |h | Jump_Zero 0x22c
022a 4800 |H | Short_Literal 0x0
022b 4401 |D | Exit_Subprogram With_Result,0x1
022c 00d8 | | Load_Top At_Offset_0
022d 0092 0394 | | Action Push_String_Extended,0x394 ; "-"
022f 01df | | Execute Vector,Equal
0230 6802 |h | Jump_Zero 0x233
0231 4801 |H | Short_Literal 0x1
0232 4401 |D | Exit_Subprogram With_Result,0x1
0233 00d8 | | Load_Top At_Offset_0
0234 0092 0395 | | Action Push_String_Extended,0x395 ; "*"
0236 01df | | Execute Vector,Equal
0237 6802 |h | Jump_Zero 0x23a
0238 4802 |H | Short_Literal 0x2
0239 4401 |D | Exit_Subprogram With_Result,0x1
023a 00d8 | | Load_Top At_Offset_0
023b 0092 0396 | | Action Push_String_Extended,0x396 ; "/"
023d 01df | | Execute Vector,Equal
023e 6802 |h | Jump_Zero 0x241
023f 4803 |H | Short_Literal 0x3
0240 4401 |D | Exit_Subprogram With_Result,0x1
0241 00d8 | | Load_Top At_Offset_0
0242 0092 0397 | | Action Push_String_Extended,0x397 ; "="
0244 01df | | Execute Vector,Equal
0245 6802 |h | Jump_Zero 0x248
0246 4809 |H | Short_Literal 0x9
0247 4401 |D | Exit_Subprogram With_Result,0x1
0248 00d8 | | Load_Top At_Offset_0
0249 0092 0398 | | Action Push_String_Extended,0x398 ; "<>"
024b 01df | | Execute Vector,Equal
024c 6802 |h | Jump_Zero 0x24f
024d 4806 |H | Short_Literal 0x6
024e 4401 |D | Exit_Subprogram With_Result,0x1
024f 00d8 | | Load_Top At_Offset_0
0250 0092 0399 | | Action Push_String_Extended,0x399 ; "<"
0252 01df | | Execute Vector,Equal
0253 6802 |h | Jump_Zero 0x256
0254 4804 |H | Short_Literal 0x4
0255 4401 |D | Exit_Subprogram With_Result,0x1
0256 00d8 | | Load_Top At_Offset_0
0257 0092 039a | | Action Push_String_Extended,0x39a ; "<="
0259 01df | | Execute Vector,Equal
025a 6802 |h | Jump_Zero 0x25d
025b 4805 |H | Short_Literal 0x5
025c 4401 |D | Exit_Subprogram With_Result,0x1
025d 00d8 | | Load_Top At_Offset_0
025e 0092 039b | | Action Push_String_Extended,0x39b ; ">"
0260 01df | | Execute Vector,Equal
0261 6802 |h | Jump_Zero 0x264
0262 4807 |H | Short_Literal 0x7
0263 4401 |D | Exit_Subprogram With_Result,0x1
0264 00d8 | | Load_Top At_Offset_0
0265 0092 039c | | Action Push_String_Extended,0x39c ; ">="
0267 01df | | Execute Vector,Equal
0268 6802 |h | Jump_Zero 0x26b
0269 4808 |H | Short_Literal 0x8
026a 4401 |D | Exit_Subprogram With_Result,0x1
026b 00d8 | | Load_Top At_Offset_0
026c 0092 039d | | Action Push_String_Extended,0x39d ; "non"
026e 01df | | Execute Vector,Equal
026f 6802 |h | Jump_Zero 0x272
0270 4832 |H2 | Short_Literal 0x32
0271 4401 |D | Exit_Subprogram With_Result,0x1
0272 00d8 | | Load_Top At_Offset_0
0273 0092 039e | | Action Push_String_Extended,0x39e ; "et"
0275 01df | | Execute Vector,Equal
0276 6802 |h | Jump_Zero 0x279
0277 4835 |H5 | Short_Literal 0x35
0278 4401 |D | Exit_Subprogram With_Result,0x1
0279 00d8 | | Load_Top At_Offset_0
027a 0092 039f | | Action Push_String_Extended,0x39f ; "ou"
027c 01df | | Execute Vector,Equal
027d 6802 |h | Jump_Zero 0x280
027e 4836 |H6 | Short_Literal 0x36
027f 4401 |D | Exit_Subprogram With_Result,0x1
0280 00d8 | | Load_Top At_Offset_0
0281 0092 03a0 | | Action Push_String_Extended,0x3a0 ; "."
0283 01df | | Execute Vector,Equal
0284 6802 |h | Jump_Zero 0x287
0285 480d |H | Short_Literal 0xd
0286 4401 |D | Exit_Subprogram With_Result,0x1
0287 00d8 | | Load_Top At_Offset_0
0288 0092 03a1 | | Action Push_String_Extended,0x3a1 ; ","
028a 01df | | Execute Vector,Equal
028b 6802 |h | Jump_Zero 0x28e
028c 480a |H | Short_Literal 0xa
028d 4401 |D | Exit_Subprogram With_Result,0x1
028e 00d8 | | Load_Top At_Offset_0
028f 0092 03a2 | | Action Push_String_Extended,0x3a2 ; "("
0291 01df | | Execute Vector,Equal
0292 6802 |h | Jump_Zero 0x295
0293 480b |H | Short_Literal 0xb
0294 4401 |D | Exit_Subprogram With_Result,0x1
0295 00d8 | | Load_Top At_Offset_0
0296 0092 03a3 | | Action Push_String_Extended,0x3a3 ; ")"
0298 01df | | Execute Vector,Equal
0299 6802 |h | Jump_Zero 0x29c
029a 480c |H | Short_Literal 0xc
029b 4401 |D | Exit_Subprogram With_Result,0x1
029c 0831 | 1 | Execute_Immediate Raise,0x31
029d 0000 0000 | | .XXX[0x3]
029f 0000 | |
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3 | | .CONST 0x02a3 ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0001 | | .CONST 0x0001 ; Number of locals
02a3 BODY_02a0:
02a3 INIT_02a0:
02a3 00da | | Load_Top At_Offset_2
02a4 8219 | | Call 0x1,0x19
02a5 6805 |h | Jump_Zero 0x2ab
02a6 00da | | Load_Top At_Offset_2
02a7 8003 | | Call 0x0,0x3
02a8 00e1 | | Load_Encached Boolean_Cache
02a9 1c02 | | Execute_Immediate Run_Utility,0x2
02aa 4401 |D | Exit_Subprogram With_Result,0x1
02ab 0831 | 1 | Execute_Immediate Raise,0x31
02ac 0000 0000 | | .BLANK 0000[0x4]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3 | | .CONST 0x02b3 ; Address of begin
02b1 0004 | | .CONST 0x0004 ; Address of exception handler
02b2 0001 | | .CONST 0x0001 ; Number of locals
02b3 BODY_02b0:
02b3 INIT_02b0:
02b3 00da | | Load_Top At_Offset_2
02b4 821a | | Call 0x1,0x1a
02b5 6806 |h | Jump_Zero 0x2bc
02b6 00da | | Load_Top At_Offset_2
02b7 8003 | | Call 0x0,0x3
02b8 00e2 | | Load_Encached Integer_Cache
02b9 00e0 | | Load_Encached Standard_Cache
02ba 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02bb 4401 |D | Exit_Subprogram With_Result,0x1
02bc 0831 | 1 | Execute_Immediate Raise,0x31
02bd 0000 0000 | | .XXX[0x3]
02bf 0000 | |
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3 | | .CONST 0x02c3 ; Address of begin
02c1 0004 | | .CONST 0x0004 ; Address of exception handler
02c2 0001 | | .CONST 0x0001 ; Number of locals
02c3 BODY_02c0:
02c3 INIT_02c0:
02c3 00da | | Load_Top At_Offset_2
02c4 4636 |F6 | Jump_Case 0x36
02c5 783a |x: | Jump 0x300 ; case 0x0
02c6 783d |x= | Jump 0x304 ; case 0x1
02c7 7840 |x@ | Jump 0x308 ; case 0x2
02c8 7843 |xC | Jump 0x30c ; case 0x3
02c9 784e |xN | Jump 0x318 ; case 0x4
02ca 7851 |xQ | Jump 0x31c ; case 0x5
02cb 7848 |xH | Jump 0x314 ; case 0x6
02cc 7853 |xS | Jump 0x320 ; case 0x7
02cd 7856 |xV | Jump 0x324 ; case 0x8
02ce 7841 |xA | Jump 0x310 ; case 0x9
02cf 7864 |xd | Jump 0x334 ; case 0xa
02d0 7867 |xg | Jump 0x338 ; case 0xb
02d1 786a |xj | Jump 0x33c ; case 0xc
02d2 785d |x] | Jump 0x330 ; case 0xd
02d3 786c |xl | Jump 0x340 ; case 0xe
02d4 786b |xk | Jump 0x340 ; case 0xf
02d5 786a |xj | Jump 0x340 ; case 0x10
02d6 7869 |xi | Jump 0x340 ; case 0x11
02d7 7868 |xh | Jump 0x340 ; case 0x12
02d8 7867 |xg | Jump 0x340 ; case 0x13
02d9 7866 |xf | Jump 0x340 ; case 0x14
02da 7865 |xe | Jump 0x340 ; case 0x15
02db 7864 |xd | Jump 0x340 ; case 0x16
02dc 7863 |xc | Jump 0x340 ; case 0x17
02dd 7862 |xb | Jump 0x340 ; case 0x18
02de 7861 |xa | Jump 0x340 ; case 0x19
02df 7860 |x` | Jump 0x340 ; case 0x1a
02e0 785f |x_ | Jump 0x340 ; case 0x1b
02e1 785e |x^ | Jump 0x340 ; case 0x1c
02e2 785d |x] | Jump 0x340 ; case 0x1d
02e3 785c |x\ | Jump 0x340 ; case 0x1e
02e4 785b |x[ | Jump 0x340 ; case 0x1f
02e5 785a |xZ | Jump 0x340 ; case 0x20
02e6 7859 |xY | Jump 0x340 ; case 0x21
02e7 7858 |xX | Jump 0x340 ; case 0x22
02e8 7857 |xW | Jump 0x340 ; case 0x23
02e9 7856 |xV | Jump 0x340 ; case 0x24
02ea 7855 |xU | Jump 0x340 ; case 0x25
02eb 7854 |xT | Jump 0x340 ; case 0x26
02ec 7853 |xS | Jump 0x340 ; case 0x27
02ed 7852 |xR | Jump 0x340 ; case 0x28
02ee 7851 |xQ | Jump 0x340 ; case 0x29
02ef 7850 |xP | Jump 0x340 ; case 0x2a
02f0 784f |xO | Jump 0x340 ; case 0x2b
02f1 784e |xN | Jump 0x340 ; case 0x2c
02f2 784d |xM | Jump 0x340 ; case 0x2d
02f3 784c |xL | Jump 0x340 ; case 0x2e
02f4 784b |xK | Jump 0x340 ; case 0x2f
02f5 784a |xJ | Jump 0x340 ; case 0x30
02f6 7849 |xI | Jump 0x340 ; case 0x31
02f7 7830 |x0 | Jump 0x328 ; case 0x32
02f8 7847 |xG | Jump 0x340 ; case 0x33
02f9 7846 |xF | Jump 0x340 ; case 0x34
02fa 7831 |x1 | Jump 0x32c ; case 0x35
02fb 7800 |x | Jump 0x2fc ; case 0x36
02fc 0092 039f | | Action Push_String_Extended,0x39f ; "ou"
02fe 8004 | | Call 0x0,0x4
02ff 4401 |D | Exit_Subprogram With_Result,0x1
0300 0092 0393 | | Action Push_String_Extended,0x393 ; "+"
0302 8004 | | Call 0x0,0x4
0303 4401 |D | Exit_Subprogram With_Result,0x1
0304 0092 0394 | | Action Push_String_Extended,0x394 ; "-"
0306 8004 | | Call 0x0,0x4
0307 4401 |D | Exit_Subprogram With_Result,0x1
0308 0092 0395 | | Action Push_String_Extended,0x395 ; "*"
030a 8004 | | Call 0x0,0x4
030b 4401 |D | Exit_Subprogram With_Result,0x1
030c 0092 0396 | | Action Push_String_Extended,0x396 ; "/"
030e 8004 | | Call 0x0,0x4
030f 4401 |D | Exit_Subprogram With_Result,0x1
0310 0092 0397 | | Action Push_String_Extended,0x397 ; "="
0312 8004 | | Call 0x0,0x4
0313 4401 |D | Exit_Subprogram With_Result,0x1
0314 0092 0398 | | Action Push_String_Extended,0x398 ; "<>"
0316 8004 | | Call 0x0,0x4
0317 4401 |D | Exit_Subprogram With_Result,0x1
0318 0092 0399 | | Action Push_String_Extended,0x399 ; "<"
031a 8004 | | Call 0x0,0x4
031b 4401 |D | Exit_Subprogram With_Result,0x1
031c 0092 039a | | Action Push_String_Extended,0x39a ; "<="
031e 8004 | | Call 0x0,0x4
031f 4401 |D | Exit_Subprogram With_Result,0x1
0320 0092 039b | | Action Push_String_Extended,0x39b ; ">"
0322 8004 | | Call 0x0,0x4
0323 4401 |D | Exit_Subprogram With_Result,0x1
0324 0092 039c | | Action Push_String_Extended,0x39c ; ">="
0326 8004 | | Call 0x0,0x4
0327 4401 |D | Exit_Subprogram With_Result,0x1
0328 0092 039d | | Action Push_String_Extended,0x39d ; "non"
032a 8004 | | Call 0x0,0x4
032b 4401 |D | Exit_Subprogram With_Result,0x1
032c 0092 039e | | Action Push_String_Extended,0x39e ; "et"
032e 8004 | | Call 0x0,0x4
032f 4401 |D | Exit_Subprogram With_Result,0x1
0330 0092 03a0 | | Action Push_String_Extended,0x3a0 ; "."
0332 8004 | | Call 0x0,0x4
0333 4401 |D | Exit_Subprogram With_Result,0x1
0334 0092 03a1 | | Action Push_String_Extended,0x3a1 ; ","
0336 8004 | | Call 0x0,0x4
0337 4401 |D | Exit_Subprogram With_Result,0x1
0338 0092 03a2 | | Action Push_String_Extended,0x3a2 ; "("
033a 8004 | | Call 0x0,0x4
033b 4401 |D | Exit_Subprogram With_Result,0x1
033c 0092 03a3 | | Action Push_String_Extended,0x3a3 ; ")"
033e 8004 | | Call 0x0,0x4
033f 4401 |D | Exit_Subprogram With_Result,0x1
0340 0092 03a4 | | Action Push_String_Extended,0x3a4 ; "INCONNU"
0342 8004 | | Call 0x0,0x4
0343 4401 |D | Exit_Subprogram With_Result,0x1
0344 0000 0000 | | .BLANK 0000[0x4]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034b | K | .CONST 0x034b ; Address of begin
0349 0004 | | .CONST 0x0004 ; Address of exception handler
034a 0001 | | .CONST 0x0001 ; Number of locals
034b BODY_0348:
034b INIT_0348:
034b 00da | | Load_Top At_Offset_2
034c 00e1 | | Load_Encached Boolean_Cache
034d 011c | | Execute Any,Convert_Unchecked
034e 1c01 | | Execute_Immediate Run_Utility,0x1
034f 8004 | | Call 0x0,0x4
0350 4401 |D | Exit_Subprogram With_Result,0x1
0351 0000 0000 | | .BLANK 0000[0x7]
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 00da | | Load_Top At_Offset_2
035c 00e0 | | Load_Encached Standard_Cache
035d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
035e 8004 | | Call 0x0,0x4
035f 4401 |D | Exit_Subprogram With_Result,0x1
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0363 | c | .CONST 0x0363 ; Address of begin
0361 0004 | | .CONST 0x0004 ; Address of exception handler
0362 0001 | | .CONST 0x0001 ; Number of locals
0363 BODY_0360:
0363 INIT_0360:
0363 00da | | Load_Top At_Offset_2
0364 4401 |D | Exit_Subprogram With_Result,0x1
0365 0000 0000 | | .XXX[0x3]
0367 0000 | |
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 036b | k | .CONST 0x036b ; Address of begin
0369 0004 | | .CONST 0x0004 ; Address of exception handler
036a 0001 | | .CONST 0x0001 ; Number of locals
036b BODY_0368:
036b INIT_0368:
036b 00da | | Load_Top At_Offset_2
036c 8003 | | Call 0x0,0x3
036d e5fe | | Load 0x2,-0x2
036e 8003 | | Call 0x0,0x3
036f 01cc | | Execute Vector,Catenate
0370 8004 | | Call 0x0,0x4
0371 4402 |D | Exit_Subprogram With_Result,0x2
0372 0000 0000 | | .BLANK 0000[0x6]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 037b | { | .CONST 0x037b ; Address of begin
0379 0004 | | .CONST 0x0004 ; Address of exception handler
037a 0001 | | .CONST 0x0001 ; Number of locals
037b BODY_0378:
037b INIT_0378:
037b 00da | | Load_Top At_Offset_2
037c 8003 | | Call 0x0,0x3
037d e5fe | | Load 0x2,-0x2
037e 01cc | | Execute Vector,Catenate
037f 8004 | | Call 0x0,0x4
0380 4402 |D | Exit_Subprogram With_Result,0x2
0381 0000 0000 | | .BLANK 0000[0x7]
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 038b | | .CONST 0x038b ; Address of begin
0389 0004 | | .CONST 0x0004 ; Address of exception handler
038a 0001 | | .CONST 0x0001 ; Number of locals
038b BODY_0388:
038b INIT_0388:
038b 00da | | Load_Top At_Offset_2
038c e5fe | | Load 0x2,-0x2
038d 8003 | | Call 0x0,0x3
038e 01cc | | Execute Vector,Catenate
038f 8004 | | Call 0x0,0x4
0390 4402 |D | Exit_Subprogram With_Result,0x2
0391 ; --------------------------------------------------------------------------------------
0391 ; STRING TABLE
0391 ; --------------------------------------------------------------------------------------
0391 002a | * | .STRTAB 0x002a->0x03a6 ; "FALSE"
0392 002d | - | .STRTAB 0x002d->0x03a8 ; "TRUE"
0393 002f | / | .STRTAB 0x002f->0x03aa ; "+"
; "+"
; "+"
0394 002e | . | .STRTAB 0x002e->0x03ab ; "-"
; "-"
; "-"
0395 002d | - | .STRTAB 0x002d->0x03ab ; "*"
; "*"
; "*"
0396 002c | , | .STRTAB 0x002c->0x03ac ; "/"
; "/"
; "/"
0397 002b | + | .STRTAB 0x002b->0x03ac ; "="
; "="
; "="
0398 002a | * | .STRTAB 0x002a->0x03ad ; "<>"
; "<>"
; "<>"
0399 002a | * | .STRTAB 0x002a->0x03ae ; "<"
; "<"
; "<"
039a 0029 | ) | .STRTAB 0x0029->0x03ae ; "<="
; "<="
; "<="
039b 0029 | ) | .STRTAB 0x0029->0x03af ; ">"
; ">"
; ">"
039c 0028 | ( | .STRTAB 0x0028->0x03b0 ; ">="
; ">="
; ">="
039d 0028 | ( | .STRTAB 0x0028->0x03b1 ; "non"
; "non"
; "non"
039e 0029 | ) | .STRTAB 0x0029->0x03b2 ; "et"
; "et"
; "et"
039f 0029 | ) | .STRTAB 0x0029->0x03b3 ; "ou"
; "ou"
; "ou"
03a0 0029 | ) | .STRTAB 0x0029->0x03b4 ; "."
; "."
; "."
03a1 0028 | ( | .STRTAB 0x0028->0x03b5 ; ","
; ","
; ","
03a2 0027 | ' | .STRTAB 0x0027->0x03b5 ; "("
; "("
; "("
03a3 0026 | & | .STRTAB 0x0026->0x03b6 ; ")"
; ")"
; ")"
03a4 0025 | % | .STRTAB 0x0025->0x03b6 ; "INCONNU"
03a5 002a | * | .STREND 0x002a->0x03ba
03a6 4641 4c53 |FALS| .STRTAB_STRINGS
03ba 0000 0000 | | .BLANK 0000[0x6]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; Debug Table
03c0 ; --------------------------------------------------------------------------------------
03c0 0004 0008 | | .DEBUG4 0x0004,0x0008,0xcf39,0x0000,0x0001,0x001e
03c6 000b 043e | >| .DBG4T 0x000b,0x043e,0x8000,0x8000
03ca 0044 0478 | D x| .DBG4T 0x0044,0x0478,0x8000,0x0000
03ce 009b 049d | | .DBG4T 0x009b,0x049d,0x0001,0x0000
03d2 00a3 04a1 | | .DBG4T 0x00a3,0x04a1,0x0001,0x0000
03d6 00ab 04a5 | | .DBG4T 0x00ab,0x04a5,0x0001,0x0000
03da 00bb 04aa | | .DBG4T 0x00bb,0x04aa,0x0002,0x0000
03de 00c3 04ad | | .DBG4T 0x00c3,0x04ad,0x0002,0x0000
03e2 00d3 04b2 | | .DBG4T 0x00d3,0x04b2,0x0001,0x0000
03e6 00e3 04b6 | | .DBG4T 0x00e3,0x04b6,0x0001,0x0000
03ea 00f3 04ba | | .DBG4T 0x00f3,0x04ba,0x0001,0x0000
03ee 00fb 04bd | | .DBG4T 0x00fb,0x04bd,0x0001,0x0000
03f2 010b 04c2 | | .DBG4T 0x010b,0x04c2,0x0001,0x0000
03f6 011b 04c7 | | .DBG4T 0x011b,0x04c7,0x0001,0x0000
03fa 0123 04ca | # | .DBG4T 0x0123,0x04ca,0x0002,0x0000
03fe 01a3 04ce | | .DBG4T 0x01a3,0x04ce,0x0002,0x0000
0402 01b3 04d2 | | .DBG4T 0x01b3,0x04d2,0x0002,0x0000
0406 01e3 04dc | | .DBG4T 0x01e3,0x04dc,0x0002,0x0000
040a 0203 04e0 | | .DBG4T 0x0203,0x04e0,0x0002,0x0000
040e 0213 04e3 | | .DBG4T 0x0213,0x04e3,0x0002,0x0000
0412 021b 04e6 | | .DBG4T 0x021b,0x04e6,0x0002,0x0000
0416 0223 04e9 | # | .DBG4T 0x0223,0x04e9,0x0002,0x0000
041a 02a3 050e | | .DBG4T 0x02a3,0x050e,0x0002,0x0000
041e 02b3 0512 | | .DBG4T 0x02b3,0x0512,0x0002,0x0000
0422 02c3 0516 | | .DBG4T 0x02c3,0x0516,0x0002,0x4000
0426 034b 053e | K >| .DBG4T 0x034b,0x053e,0x0002,0x0000
042a 035b 0541 | [ A| .DBG4T 0x035b,0x0541,0x0002,0x0000
042e 0363 0544 | c D| .DBG4T 0x0363,0x0544,0x0002,0x0000
0432 036b 0547 | k G| .DBG4T 0x036b,0x0547,0x0002,0x0000
0436 037b 054a | { J| .DBG4T 0x037b,0x054a,0x0002,0x0000
043a 038b 054d | M| .DBG4T 0x038b,0x054d,0x0002,0x0000
043e ; --------------------------------------------------------------------------------------
043e ; Debug chain
043e ; --------------------------------------------------------------------------------------
043e 001c 0000 | | .DBGLEN 0x001c,0x0000
0440 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0031,0x0033,0x0035,0x0037,0x0039,0x003b,0x003d,0x003f,0x0041
045c 0002 0003 | | .XXX[0x1c]
045e 0004 0005 | |
0460 0006 0007 | |
0462 0008 0009 | |
0464 000a 000b | |
0466 000c 0016 | |
0468 0017 0018 | |
046a 0019 001a | |
046c 001b 001c | |
046e 001d 001e | |
0470 001f 0020 | |
0472 0021 0022 | ! "|
0474 0023 0024 | # $|
0476 0025 0026 | % &|
0478 ; --------------------------------------------------------------------------------------
0478 ; Debug chain
0478 ; --------------------------------------------------------------------------------------
0478 0023 0000 | # | .DBGLEN 0x0023,0x0000
047a 0044 0048 | D H| .DBGLNO 0x0044,0x0048,0x004c,0x0050,0x0052,0x0054,0x0056,0x0058,0x005a,0x005c,0x005e,0x0060,0x0062,0x0064,0x0066,0x0068,0x006a,0x006c,0x006e,0x0070,0x0072,0x0074,0x0076,0x0078,0x007a,0x007c,0x007e,0x0080,0x0082,0x0084,0x0086,0x0088,0x008a,0x008c,0x008e
049d ; --------------------------------------------------------------------------------------
049d ; Debug chain
049d ; --------------------------------------------------------------------------------------
049d 0000 0002 | | .DBGLEN 0x0000,0x0002
049f 009b 009d | | .DBGLNO 0x009b,0x009d
04a1 ; --------------------------------------------------------------------------------------
04a1 ; Debug chain
04a1 ; --------------------------------------------------------------------------------------
04a1 0000 0002 | | .DBGLEN 0x0000,0x0002
04a3 00a3 00a5 | | .DBGLNO 0x00a3,0x00a5
04a5 ; --------------------------------------------------------------------------------------
04a5 ; Debug chain
04a5 ; --------------------------------------------------------------------------------------
04a5 0000 0003 | | .DBGLEN 0x0000,0x0003
04a7 00ab 00ae | | .DBGLNO 0x00ab,0x00ae,0x00b0
04aa ; --------------------------------------------------------------------------------------
04aa ; Debug chain
04aa ; --------------------------------------------------------------------------------------
04aa 0000 0001 | | .DBGLEN 0x0000,0x0001
04ac 00bb | | .DBGLNO 0x00bb
04ad ; --------------------------------------------------------------------------------------
04ad ; Debug chain
04ad ; --------------------------------------------------------------------------------------
04ad 0000 0003 | | .DBGLEN 0x0000,0x0003
04af 00c3 00c5 | | .DBGLNO 0x00c3,0x00c5,0x00c8
04b2 ; --------------------------------------------------------------------------------------
04b2 ; Debug chain
04b2 ; --------------------------------------------------------------------------------------
04b2 0000 0002 | | .DBGLEN 0x0000,0x0002
04b4 00d3 00d5 | | .DBGLNO 0x00d3,0x00d5
04b6 ; --------------------------------------------------------------------------------------
04b6 ; Debug chain
04b6 ; --------------------------------------------------------------------------------------
04b6 0000 0002 | | .DBGLEN 0x0000,0x0002
04b8 00e3 00e5 | | .DBGLNO 0x00e3,0x00e5
04ba ; --------------------------------------------------------------------------------------
04ba ; Debug chain
04ba ; --------------------------------------------------------------------------------------
04ba 0000 0001 | | .DBGLEN 0x0000,0x0001
04bc 00f3 | | .DBGLNO 0x00f3
04bd ; --------------------------------------------------------------------------------------
04bd ; Debug chain
04bd ; --------------------------------------------------------------------------------------
04bd 0000 0003 | | .DBGLEN 0x0000,0x0003
04bf 00fb 00fe | | .DBGLNO 0x00fb,0x00fe,0x0100
04c2 ; --------------------------------------------------------------------------------------
04c2 ; Debug chain
04c2 ; --------------------------------------------------------------------------------------
04c2 0000 0003 | | .DBGLEN 0x0000,0x0003
04c4 010b 010e | | .DBGLNO 0x010b,0x010e,0x0110
04c7 ; --------------------------------------------------------------------------------------
04c7 ; Debug chain
04c7 ; --------------------------------------------------------------------------------------
04c7 0000 0001 | | .DBGLEN 0x0000,0x0001
04c9 011b | | .DBGLNO 0x011b
04ca ; --------------------------------------------------------------------------------------
04ca ; Debug chain
04ca ; --------------------------------------------------------------------------------------
04ca 0001 0001 | | .DBGLEN 0x0001,0x0001
04cc 0123 0125 | # %| .DBGLNO 0x0123,0x0125
04ce ; --------------------------------------------------------------------------------------
04ce ; Debug chain
04ce ; --------------------------------------------------------------------------------------
04ce 0001 0001 | | .DBGLEN 0x0001,0x0001
04d0 01a3 01a5 | | .DBGLNO 0x01a3,0x01a5
04d2 ; --------------------------------------------------------------------------------------
04d2 ; Debug chain
04d2 ; --------------------------------------------------------------------------------------
04d2 0001 0007 | | .DBGLEN 0x0001,0x0007
04d4 01b3 01b5 | | .DBGLNO 0x01b3,0x01b5,0x01bc,0x01be,0x01c6,0x01d7,0x01da,0x01dc
04dc ; --------------------------------------------------------------------------------------
04dc ; Debug chain
04dc ; --------------------------------------------------------------------------------------
04dc 0001 0001 | | .DBGLEN 0x0001,0x0001
04de 01e3 01e5 | | .DBGLNO 0x01e3,0x01e5
04e0 ; --------------------------------------------------------------------------------------
04e0 ; Debug chain
04e0 ; --------------------------------------------------------------------------------------
04e0 0000 0001 | | .DBGLEN 0x0000,0x0001
04e2 0203 | | .DBGLNO 0x0203
04e3 ; --------------------------------------------------------------------------------------
04e3 ; Debug chain
04e3 ; --------------------------------------------------------------------------------------
04e3 0000 0001 | | .DBGLEN 0x0000,0x0001
04e5 0213 | | .DBGLNO 0x0213
04e6 ; --------------------------------------------------------------------------------------
04e6 ; Debug chain
04e6 ; --------------------------------------------------------------------------------------
04e6 0000 0001 | | .DBGLEN 0x0000,0x0001
04e8 021b | | .DBGLNO 0x021b
04e9 ; --------------------------------------------------------------------------------------
04e9 ; Debug chain
04e9 ; --------------------------------------------------------------------------------------
04e9 0001 0022 | "| .DBGLEN 0x0001,0x0022
04eb 0223 0225 | # %| .DBGLNO 0x0223,0x0225,0x022a,0x022c,0x0231,0x0233,0x0238,0x023a,0x023f,0x0241,0x0246,0x0248,0x024d,0x024f,0x0254,0x0256,0x025b,0x025d,0x0262,0x0264,0x0269,0x026b,0x0270,0x0272,0x0277,0x0279,0x027e,0x0280,0x0285,0x0287,0x028c,0x028e,0x0293,0x0295,0x029a
050e ; --------------------------------------------------------------------------------------
050e ; Debug chain
050e ; --------------------------------------------------------------------------------------
050e 0000 0002 | | .DBGLEN 0x0000,0x0002
0510 02a3 02a6 | | .DBGLNO 0x02a3,0x02a6
0512 ; --------------------------------------------------------------------------------------
0512 ; Debug chain
0512 ; --------------------------------------------------------------------------------------
0512 0000 0002 | | .DBGLEN 0x0000,0x0002
0514 02b3 02b6 | | .DBGLNO 0x02b3,0x02b6
0516 ; --------------------------------------------------------------------------------------
0516 ; Debug chain
0516 ; --------------------------------------------------------------------------------------
0516 0000 0013 | | .DBGLEN 0x0000,0x0013
0518 02c3 02fc | | .DBGLNO 0x02c3,0x02fc,0x0300,0x0304,0x0308,0x030c,0x0310,0x0314,0x0318,0x031c,0x0320,0x0324,0x0328,0x032c,0x0330,0x0334,0x0338,0x033c,0x0340
052b 0001 000e | | .XXX[0x13]
052d 0002 0003 | |
052f 0004 0005 | |
0531 0006 0007 | |
0533 0008 0009 | |
0535 000a 000b | |
0537 000c 000d | |
0539 000f 0010 | |
053b 0011 0012 | |
053d 0013 | |
053e ; --------------------------------------------------------------------------------------
053e ; Debug chain
053e ; --------------------------------------------------------------------------------------
053e 0000 0001 | | .DBGLEN 0x0000,0x0001
0540 034b | K | .DBGLNO 0x034b
0541 ; --------------------------------------------------------------------------------------
0541 ; Debug chain
0541 ; --------------------------------------------------------------------------------------
0541 0000 0001 | | .DBGLEN 0x0000,0x0001
0543 035b | [ | .DBGLNO 0x035b
0544 ; --------------------------------------------------------------------------------------
0544 ; Debug chain
0544 ; --------------------------------------------------------------------------------------
0544 0000 0001 | | .DBGLEN 0x0000,0x0001
0546 0363 | c | .DBGLNO 0x0363
0547 ; --------------------------------------------------------------------------------------
0547 ; Debug chain
0547 ; --------------------------------------------------------------------------------------
0547 0000 0001 | | .DBGLEN 0x0000,0x0001
0549 036b | k | .DBGLNO 0x036b
054a ; --------------------------------------------------------------------------------------
054a ; Debug chain
054a ; --------------------------------------------------------------------------------------
054a 0000 0001 | | .DBGLEN 0x0000,0x0001
054c 037b | { | .DBGLNO 0x037b
054d ; --------------------------------------------------------------------------------------
054d ; Debug chain
054d ; --------------------------------------------------------------------------------------
054d 0000 0001 | | .DBGLEN 0x0000,0x0001
054f 038b | | .DBGLNO 0x038b
0550 0000 0000 | | .BLANK 0000[0xb0]