|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 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 INIT_0098,For_Outer_Call,Visible,Unelaborated 000d 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated 000f 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated 0011 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated 0013 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 0015 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated 0017 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 0019 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 001b 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated 001d 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated 001f 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 0021 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated 0023 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated 0025 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated 0027 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated 0029 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated 002b 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated 002d 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated 002f 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated 0031 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated 0033 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated 0035 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated 0037 029a 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call,Visible,Unelaborated 0039 029a 035b | [| Declare_Subprogram INIT_0358,For_Outer_Call,Visible,Unelaborated 003b 029a 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call,Visible,Unelaborated 003d 029a 036b | k| Declare_Subprogram INIT_0368,For_Outer_Call,Visible,Unelaborated 003f 029a 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call,Visible,Unelaborated 0041 029a 038b | | Declare_Subprogram INIT_0388,For_Outer_Call,Visible,Unelaborated 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Value,New_Top_Offset 0x1 017a 4801 |H | Short_Literal 0x1 017b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 017c 4801 |H | Short_Literal 0x1 017d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 017e 4801 |H | Short_Literal 0x1 017f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0180 4801 |H | Short_Literal 0x1 0181 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0182 4801 |H | Short_Literal 0x1 0183 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0184 4801 |H | Short_Literal 0x1 0185 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0186 4801 |H | Short_Literal 0x1 0187 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0188 4801 |H | Short_Literal 0x1 0189 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 018a 4801 |H | Short_Literal 0x1 018b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 018c 4801 |H | Short_Literal 0x1 018d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 018e 4801 |H | Short_Literal 0x1 018f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0190 4801 |H | Short_Literal 0x1 0191 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0192 4801 |H | Short_Literal 0x1 0193 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0194 4801 |H | Short_Literal 0x1 0195 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0196 4801 |H | Short_Literal 0x1 0197 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0198 4801 |H | Short_Literal 0x1 0199 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 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_Value,New_Top_Offset 0x1 01ad 4801 |H | Short_Literal 0x1 01ae 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 0x1 01d9 00d1 | | Pop_Control Pop_Count_1 01da 4800 |H | Short_Literal 0x0 01db 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01dc 4800 |H | Short_Literal 0x0 01dd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 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_Value,New_Top_Offset 0x1 01fc 4800 |H | Short_Literal 0x0 01fd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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 0x37 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_Value,New_Top_Offset 0x1 0300 0092 0393 | | Action Push_String_Extended,0x393 ; "+" 0302 8004 | | Call 0x0,0x4 0303 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0304 0092 0394 | | Action Push_String_Extended,0x394 ; "-" 0306 8004 | | Call 0x0,0x4 0307 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0308 0092 0395 | | Action Push_String_Extended,0x395 ; "*" 030a 8004 | | Call 0x0,0x4 030b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 030c 0092 0396 | | Action Push_String_Extended,0x396 ; "/" 030e 8004 | | Call 0x0,0x4 030f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0310 0092 0397 | | Action Push_String_Extended,0x397 ; "=" 0312 8004 | | Call 0x0,0x4 0313 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0314 0092 0398 | | Action Push_String_Extended,0x398 ; "<>" 0316 8004 | | Call 0x0,0x4 0317 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0318 0092 0399 | | Action Push_String_Extended,0x399 ; "<" 031a 8004 | | Call 0x0,0x4 031b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 031c 0092 039a | | Action Push_String_Extended,0x39a ; "<=" 031e 8004 | | Call 0x0,0x4 031f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0320 0092 039b | | Action Push_String_Extended,0x39b ; ">" 0322 8004 | | Call 0x0,0x4 0323 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0324 0092 039c | | Action Push_String_Extended,0x39c ; ">=" 0326 8004 | | Call 0x0,0x4 0327 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0328 0092 039d | | Action Push_String_Extended,0x39d ; "non" 032a 8004 | | Call 0x0,0x4 032b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 032c 0092 039e | | Action Push_String_Extended,0x39e ; "et" 032e 8004 | | Call 0x0,0x4 032f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0330 0092 03a0 | | Action Push_String_Extended,0x3a0 ; "." 0332 8004 | | Call 0x0,0x4 0333 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0334 0092 03a1 | | Action Push_String_Extended,0x3a1 ; "," 0336 8004 | | Call 0x0,0x4 0337 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0338 0092 03a2 | | Action Push_String_Extended,0x3a2 ; "(" 033a 8004 | | Call 0x0,0x4 033b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 033c 0092 03a3 | | Action Push_String_Extended,0x3a3 ; ")" 033e 8004 | | Call 0x0,0x4 033f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0340 0092 03a4 | | Action Push_String_Extended,0x3a4 ; "INCONNU" 0342 8004 | | Call 0x0,0x4 0343 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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" 039e 0029 | ) | .STRTAB 0x0029->0x03b2 ; "et" 039f 0029 | ) | .STRTAB 0x0029->0x03b3 ; "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]