|
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_0340e4
└─⟦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 0418 | | .CONST 0x0418 ; 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 006a | j | .CONST 0x006a ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0024 | $ | .CONST 0x0024 ; Number of locals 000b INIT_0008: 000b 00c4 | | Action Make_Default 000c 00c4 | | Action Make_Default 000d 00c4 | | Action Make_Default 000e 00c4 | | Action Make_Default 000f 00c4 | | Action Make_Default 0010 00c4 | | Action Make_Default 0011 00c4 | | Action Make_Default 0012 00c4 | | Action Make_Default 0013 00c4 | | Action Make_Default 0014 00c4 | | Action Make_Default 0015 00c4 | | Action Make_Default 0016 00c4 | | Action Make_Default 0017 00c4 | | Action Make_Default 0018 00c4 | | Action Make_Default 0019 00c4 | | Action Make_Default 001a 00c4 | | Action Make_Default 001b 00c4 | | Action Make_Default 001c 00c4 | | Action Make_Default 001d 00c4 | | Action Make_Default 001e 00c4 | | Action Make_Default 001f 00c4 | | Action Make_Default 0020 4800 |H | Short_Literal 0x0 0021 480e |H | Short_Literal 0xe 0022 029f 0073 | s| Declare_Subprogram INIT_0070,For_Call 0024 03fe | | Declare_Type Discrete,Defined,Visible 0025 c21b | | Store 0x1,0x1b 0026 4800 |H | Short_Literal 0x0 0027 4802 |H | Short_Literal 0x2 0028 e21b | | Load 0x1,0x1b 0029 03f9 | | Declare_Type Discrete,Constrained,Visible 002a c21c | | Store 0x1,0x1c 002b 4806 |H | Short_Literal 0x6 002c 480b |H | Short_Literal 0xb 002d e21b | | Load 0x1,0x1b 002e 03f9 | | Declare_Type Discrete,Constrained,Visible 002f c20f | | Store 0x1,0xf 0030 480c |H | Short_Literal 0xc 0031 480d |H | Short_Literal 0xd 0032 e21b | | Load 0x1,0x1b 0033 03f9 | | Declare_Type Discrete,Constrained,Visible 0034 c21d | | Store 0x1,0x1d 0035 4803 |H | Short_Literal 0x3 0036 4804 |H | Short_Literal 0x4 0037 e21b | | Load 0x1,0x1b 0038 03f9 | | Declare_Type Discrete,Constrained,Visible 0039 c21e | | Store 0x1,0x1e 003a 4805 |H | Short_Literal 0x5 003b 4805 |H | Short_Literal 0x5 003c e21b | | Load 0x1,0x1b 003d 03f9 | | Declare_Type Discrete,Constrained,Visible 003e c21f | | Store 0x1,0x1f 003f 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated 0041 c220 | | Store 0x1,0x20 0042 4800 |H | Short_Literal 0x0 0043 4809 |H | Short_Literal 0x9 0044 029f 00e3 | | Declare_Subprogram INIT_00e0,For_Call 0046 03fe | | Declare_Type Discrete,Defined,Visible 0047 c221 | ! | Store 0x1,0x21 0048 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated 004a c215 | | Store 0x1,0x15 004b 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated 004d c216 | | Store 0x1,0x16 004e 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated 0050 c217 | | Store 0x1,0x17 0051 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated 0053 c218 | | Store 0x1,0x18 0054 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated 0056 c219 | | Store 0x1,0x19 0057 00bf | | Action Accept_Activation 0058 029d 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call 005a 029d 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call 005c 1d15 | | Execute_Immediate Reference_Lex_1,0x15 005d 00c7 | | Action Elaborate_Subprogram 005e 1d16 | | Execute_Immediate Reference_Lex_1,0x16 005f 00c7 | | Action Elaborate_Subprogram 0060 029d 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call 0062 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0063 00c7 | | Action Elaborate_Subprogram 0064 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0065 00c7 | | Action Elaborate_Subprogram 0066 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0067 00c7 | | Action Elaborate_Subprogram 0068 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0069 00c7 | | Action Elaborate_Subprogram 006a BODY_0008: 006a 00bc | | Action Signal_Activated 006b 00bb | | Action Signal_Completion 006c 0000 0000 | | .BLANK 0000[0x4] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0073 | s | .CONST 0x0073 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0001 | | .CONST 0x0001 ; Number of locals 0073 BODY_0070: 0073 INIT_0070: 0073 4607 |F | Jump_Case 0x8 0074 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0075 7806 |x | Jump 0x7c ; case 0x1 0076 7809 |x | Jump 0x80 ; case 0x2 0077 780d |x | Jump 0x85 ; case 0x3 0078 7810 |x | Jump 0x89 ; case 0x4 0079 7811 |x | Jump 0x8b ; case 0x5 007a 7812 |x | Jump 0x8d ; case 0x6 007b 7815 |x | Jump 0x91 ; case 0x7 007c 00da | | Load_Top At_Offset_2 007d 0091 0352 | R| Action Push_String_Extended_Indexed,0x352 ; "AND_OP" 007f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0080 00db | | Load_Top At_Offset_3 0081 00db | | Load_Top At_Offset_3 0082 00e0 | | Load_Encached Standard_Cache 0083 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0084 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0085 00da | | Load_Top At_Offset_2 0086 00e0 | | Load_Encached Standard_Cache 0087 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0088 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0089 00db | | Load_Top At_Offset_3 008a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 008b 00db | | Load_Top At_Offset_3 008c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 008d e21b | | Load 0x1,0x1b 008e 00dc | | Load_Top At_Offset_4 008f 0267 | g | Execute Discrete,Predecessor 0090 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0091 e21b | | Load 0x1,0x1b 0092 00dc | | Load_Top At_Offset_4 0093 0268 | h | Execute Discrete,Successor 0094 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0095 0000 0000 | | .XXX[0x3] 0097 0000 | | 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 00da | | Load_Top At_Offset_2 009c 460e |F | Jump_Case 0xf 009d 7811 |x | Jump 0xaf ; case 0x0 009e 7813 |x | Jump 0xb2 ; case 0x1 009f 7815 |x | Jump 0xb5 ; case 0x2 00a0 7817 |x | Jump 0xb8 ; case 0x3 00a1 7819 |x | Jump 0xbb ; case 0x4 00a2 781b |x | Jump 0xbe ; case 0x5 00a3 781d |x | Jump 0xc1 ; case 0x6 00a4 781f |x | Jump 0xc4 ; case 0x7 00a5 7821 |x! | Jump 0xc7 ; case 0x8 00a6 7826 |x& | Jump 0xcd ; case 0x9 00a7 7822 |x" | Jump 0xca ; case 0xa 00a8 7827 |x' | Jump 0xd0 ; case 0xb 00a9 7829 |x) | Jump 0xd3 ; case 0xc 00aa 782b |x+ | Jump 0xd6 ; case 0xd 00ab 7800 |x | Jump 0xac ; case 0xe 00ac 0092 036b | k| Action Push_String_Extended,0x36b ; "<UNKNOWN>" 00ae 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00af 0092 036c | l| Action Push_String_Extended,0x36c ; "and" 00b1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00b2 0092 036d | m| Action Push_String_Extended,0x36d ; "or" 00b4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00b5 0092 036e | n| Action Push_String_Extended,0x36e ; "xor" 00b7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00b8 0092 036f | o| Action Push_String_Extended,0x36f ; "and then" 00ba 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00bb 0092 0370 | p| Action Push_String_Extended,0x370 ; "or else" 00bd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00be 0092 0371 | q| Action Push_String_Extended,0x371 ; "not" 00c0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00c1 0092 0372 | r| Action Push_String_Extended,0x372 ; "=" 00c3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00c4 0092 0373 | s| Action Push_String_Extended,0x373 ; "/=" 00c6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00c7 0092 0374 | t| Action Push_String_Extended,0x374 ; "<" 00c9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ca 0092 0375 | u| Action Push_String_Extended,0x375 ; ">" 00cc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00cd 0092 0376 | v| Action Push_String_Extended,0x376 ; "<=" 00cf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00d0 0092 0377 | w| Action Push_String_Extended,0x377 ; ">=" 00d2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00d3 0092 0378 | x| Action Push_String_Extended,0x378 ; "in" 00d5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00d6 0092 0379 | y| Action Push_String_Extended,0x379 ; "not in" 00d8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00d9 0000 0000 | | .BLANK 0000[0x7] 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 4607 |F | Jump_Case 0x8 00e4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00e5 7806 |x | Jump 0xec ; case 0x1 00e6 7809 |x | Jump 0xf0 ; case 0x2 00e7 780d |x | Jump 0xf5 ; case 0x3 00e8 7810 |x | Jump 0xf9 ; case 0x4 00e9 7811 |x | Jump 0xfb ; case 0x5 00ea 7812 |x | Jump 0xfd ; case 0x6 00eb 7815 |x | Jump 0x101 ; case 0x7 00ec 00da | | Load_Top At_Offset_2 00ed 0091 0361 | a| Action Push_String_Extended_Indexed,0x361 ; "EXPRESSION" 00ef 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00f0 00db | | Load_Top At_Offset_3 00f1 00db | | Load_Top At_Offset_3 00f2 00e0 | | Load_Encached Standard_Cache 00f3 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00f4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00f5 00da | | Load_Top At_Offset_2 00f6 00e0 | | Load_Encached Standard_Cache 00f7 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00f8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00f9 00db | | Load_Top At_Offset_3 00fa 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00fb 00db | | Load_Top At_Offset_3 00fc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00fd e221 | ! | Load 0x1,0x21 00fe 00dc | | Load_Top At_Offset_4 00ff 0267 | g | Execute Discrete,Predecessor 0100 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0101 e221 | ! | Load 0x1,0x21 0102 00dc | | Load_Top At_Offset_4 0103 0268 | h | Execute Discrete,Successor 0104 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0105 0000 0000 | | .XXX[0x3] 0107 0000 | | 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 0112 | | .CONST 0x0112 ; Address of begin 0109 016c | l | .CONST 0x016c ; Address of exception handler 010a 0002 | | .CONST 0x0002 ; Number of locals 010b INIT_0108: 010b 00ec | | Load_Encached Diana_Tree_Cache 010c 02c7 | | Declare_Variable Any 010d 00db | | Load_Top At_Offset_3 010e e001 | | Load 0x0,0x1 010f 1b58 | X | Execute Package,Field_Read,Field_Number 0x58 0110 180f | | Execute Package,Field_Execute,Field_Number 0xf 0111 a402 | | Store_Unchecked 0x2,0x2 0112 BODY_0108: 0112 00cf | | Action Mark_Auxiliary 0113 00d9 | | Load_Top At_Offset_1 0114 00eb | | Load_Encached Diana_Cache 0115 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0116 00d8 | | Load_Top At_Offset_0 0117 0d04 | | Execute_Immediate Less,0x4 0118 7028 |p( | Jump_Nonzero 0x141 0119 00d8 | | Load_Top At_Offset_0 011a 0c17 | | Execute_Immediate Greater_Equal,0x17 011b 7020 |p | Jump_Nonzero 0x13c 011c 0afc | | Execute_Immediate Plus,-0x4 011d 4612 |F | Jump_Case 0x13 011e 783b |x; | Jump 0x15a ; case 0x0 011f 7822 |x" | Jump 0x142 ; case 0x1 0120 7842 |xB | Jump 0x163 ; case 0x2 0121 7820 |x | Jump 0x142 ; case 0x3 0122 783e |x> | Jump 0x161 ; case 0x4 0123 7825 |x% | Jump 0x149 ; case 0x5 0124 781d |x | Jump 0x142 ; case 0x6 0125 781c |x | Jump 0x142 ; case 0x7 0126 781b |x | Jump 0x142 ; case 0x8 0127 781a |x | Jump 0x142 ; case 0x9 0128 783c |x< | Jump 0x165 ; case 0xa 0129 7818 |x | Jump 0x142 ; case 0xb 012a 7828 |x( | Jump 0x153 ; case 0xc 012b 7816 |x | Jump 0x142 ; case 0xd 012c 7821 |x! | Jump 0x14e ; case 0xe 012d 7814 |x | Jump 0x142 ; case 0xf 012e 7813 |x | Jump 0x142 ; case 0x10 012f 7812 |x | Jump 0x142 ; case 0x11 0130 7800 |x | Jump 0x131 ; case 0x12 0131 00d9 | | Load_Top At_Offset_1 0132 00eb | | Load_Encached Diana_Cache 0133 18fc | | Execute Package,Field_Execute,Field_Number 0xfc 0134 00eb | | Load_Encached Diana_Cache 0135 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0136 0f6e | n | Execute_Immediate Equal,0x6e 0137 7002 |p | Jump_Nonzero 0x13a 0138 4804 |H | Short_Literal 0x4 0139 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 013a 4805 |H | Short_Literal 0x5 013b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 013c 0b61 | a | Execute_Immediate Case_Compare,0x61 013d 7029 |p) | Jump_Nonzero 0x167 013e 0fa1 | | Execute_Immediate Equal,-0x5f 013f 7004 |p | Jump_Nonzero 0x144 0140 7801 |x | Jump 0x142 0141 00d1 | | Pop_Control Pop_Count_1 0142 4809 |H | Short_Literal 0x9 0143 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0144 00d9 | | Load_Top At_Offset_1 0145 00eb | | Load_Encached Diana_Cache 0146 18ca | | Execute Package,Field_Execute,Field_Number 0xca 0147 c402 | | Store 0x2,0x2 0148 7821 |x! | Jump 0x16a 0149 00d9 | | Load_Top At_Offset_1 014a 00eb | | Load_Encached Diana_Cache 014b 18c5 | | Execute Package,Field_Execute,Field_Number 0xc5 014c c402 | | Store 0x2,0x2 014d 781c |x | Jump 0x16a 014e 00d9 | | Load_Top At_Offset_1 014f 00eb | | Load_Encached Diana_Cache 0150 18c0 | | Execute Package,Field_Execute,Field_Number 0xc0 0151 c402 | | Store 0x2,0x2 0152 7817 |x | Jump 0x16a 0153 00d9 | | Load_Top At_Offset_1 0154 e001 | | Load 0x0,0x1 0155 1b58 | X | Execute Package,Field_Read,Field_Number 0x58 0156 180e | | Execute Package,Field_Execute,Field_Number 0xe 0157 8216 | | Call 0x1,0x16 0158 8222 | " | Call 0x1,0x22 0159 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 015a 00d9 | | Load_Top At_Offset_1 015b e001 | | Load 0x0,0x1 015c 1b58 | X | Execute Package,Field_Read,Field_Number 0x58 015d 180e | | Execute Package,Field_Execute,Field_Number 0xe 015e 8216 | | Call 0x1,0x16 015f 8222 | " | Call 0x1,0x22 0160 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0161 4805 |H | Short_Literal 0x5 0162 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0163 4802 |H | Short_Literal 0x2 0164 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0165 4807 |H | Short_Literal 0x7 0166 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0167 00d1 | | Pop_Control Pop_Count_1 0168 4808 |H | Short_Literal 0x8 0169 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 016a 00c9 | | Action Pop_Auxiliary_Loop 016b 7fa7 | | Jump 0x113 016c TRAP_0108: 016c e002 | | Load 0x0,0x2 016d 010f | | Execute Exception,Equal 016e 6802 |h | Jump_Zero 0x171 016f 4806 |H | Short_Literal 0x6 0170 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0171 010c | | Execute Exception,Is_Program_Error 0172 6802 |h | Jump_Zero 0x175 0173 4809 |H | Short_Literal 0x9 0174 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0175 4809 |H | Short_Literal 0x9 0176 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0177 0000 | | .XXX[0x1] 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 0182 | | .CONST 0x0182 ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0002 | | .CONST 0x0002 ; Number of locals 017b INIT_0178: 017b 00ec | | Load_Encached Diana_Tree_Cache 017c 02c7 | | Declare_Variable Any 017d 00db | | Load_Top At_Offset_3 017e e001 | | Load 0x0,0x1 017f 1b58 | X | Execute Package,Field_Read,Field_Number 0x58 0180 180f | | Execute Package,Field_Execute,Field_Number 0xf 0181 a402 | | Store_Unchecked 0x2,0x2 0182 BODY_0178: 0182 00cf | | Action Mark_Auxiliary 0183 00d9 | | Load_Top At_Offset_1 0184 00eb | | Load_Encached Diana_Cache 0185 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0186 00d8 | | Load_Top At_Offset_0 0187 0d04 | | Execute_Immediate Less,0x4 0188 701d |p | Jump_Nonzero 0x1a6 0189 00d8 | | Load_Top At_Offset_0 018a 0c16 | | Execute_Immediate Greater_Equal,0x16 018b 7017 |p | Jump_Nonzero 0x1a3 018c 0afc | | Execute_Immediate Plus,-0x4 018d 4611 |F | Jump_Case 0x12 018e 7831 |x1 | Jump 0x1c0 ; case 0x0 018f 7817 |x | Jump 0x1a7 ; case 0x1 0190 7827 |x' | Jump 0x1b8 ; case 0x2 0191 7815 |x | Jump 0x1a7 ; case 0x3 0192 7814 |x | Jump 0x1a7 ; case 0x4 0193 781a |x | Jump 0x1ae ; case 0x5 0194 7812 |x | Jump 0x1a7 ; case 0x6 0195 7811 |x | Jump 0x1a7 ; case 0x7 0196 7810 |x | Jump 0x1a7 ; case 0x8 0197 780f |x | Jump 0x1a7 ; case 0x9 0198 780e |x | Jump 0x1a7 ; case 0xa 0199 780d |x | Jump 0x1a7 ; case 0xb 019a 7818 |x | Jump 0x1b3 ; case 0xc 019b 780b |x | Jump 0x1a7 ; case 0xd 019c 7832 |x2 | Jump 0x1cf ; case 0xe 019d 7809 |x | Jump 0x1a7 ; case 0xf 019e 781e |x | Jump 0x1bd ; case 0x10 019f 7800 |x | Jump 0x1a0 ; case 0x11 01a0 00d9 | | Load_Top At_Offset_1 01a1 8223 | # | Call 0x1,0x23 01a2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01a3 0fa1 | | Execute_Immediate Equal,-0x5f 01a4 7004 |p | Jump_Nonzero 0x1a9 01a5 7801 |x | Jump 0x1a7 01a6 00d1 | | Pop_Control Pop_Count_1 01a7 e002 | | Load 0x0,0x2 01a8 0257 | W | Execute Discrete,Raise 01a9 00d9 | | Load_Top At_Offset_1 01aa 00eb | | Load_Encached Diana_Cache 01ab 18ca | | Execute Package,Field_Execute,Field_Number 0xca 01ac c402 | | Store 0x2,0x2 01ad 7825 |x% | Jump 0x1d3 01ae 00d9 | | Load_Top At_Offset_1 01af 00eb | | Load_Encached Diana_Cache 01b0 18c5 | | Execute Package,Field_Execute,Field_Number 0xc5 01b1 c402 | | Store 0x2,0x2 01b2 7820 |x | Jump 0x1d3 01b3 00d9 | | Load_Top At_Offset_1 01b4 00eb | | Load_Encached Diana_Cache 01b5 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 01b6 c402 | | Store 0x2,0x2 01b7 781b |x | Jump 0x1d3 01b8 00d9 | | Load_Top At_Offset_1 01b9 00eb | | Load_Encached Diana_Cache 01ba 18d3 | | Execute Package,Field_Execute,Field_Number 0xd3 01bb 8223 | # | Call 0x1,0x23 01bc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01bd 00d9 | | Load_Top At_Offset_1 01be 8223 | # | Call 0x1,0x23 01bf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01c0 00d9 | | Load_Top At_Offset_1 01c1 00eb | | Load_Encached Diana_Cache 01c2 18b5 | | Execute Package,Field_Execute,Field_Number 0xb5 01c3 00eb | | Load_Encached Diana_Cache 01c4 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01c5 0b9d | | Execute_Immediate Case_Compare,0x9d 01c6 7003 |p | Jump_Nonzero 0x1ca 01c7 0f9c | | Execute_Immediate Equal,-0x64 01c8 7004 |p | Jump_Nonzero 0x1cd 01c9 08e2 | | Execute_Immediate Raise,0xe2 01ca 00d1 | | Pop_Control Pop_Count_1 01cb 4804 |H | Short_Literal 0x4 01cc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01cd 4803 |H | Short_Literal 0x3 01ce 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01cf 00d9 | | Load_Top At_Offset_1 01d0 00eb | | Load_Encached Diana_Cache 01d1 18c0 | | Execute Package,Field_Execute,Field_Number 0xc0 01d2 c402 | | Store 0x2,0x2 01d3 00c9 | | Action Pop_Auxiliary_Loop 01d4 7fae | | Jump 0x183 01d5 0000 0000 | | .XXX[0x3] 01d7 0000 | | 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01e2 | | .CONST 0x01e2 ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0002 | | .CONST 0x0002 ; Number of locals 01db INIT_01d8: 01db 00ec | | Load_Encached Diana_Tree_Cache 01dc 02c7 | | Declare_Variable Any 01dd 00db | | Load_Top At_Offset_3 01de e001 | | Load 0x0,0x1 01df 1b58 | X | Execute Package,Field_Read,Field_Number 0x58 01e0 180f | | Execute Package,Field_Execute,Field_Number 0xf 01e1 a402 | | Store_Unchecked 0x2,0x2 01e2 BODY_01d8: 01e2 00cf | | Action Mark_Auxiliary 01e3 00d9 | | Load_Top At_Offset_1 01e4 00eb | | Load_Encached Diana_Cache 01e5 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01e6 00d8 | | Load_Top At_Offset_0 01e7 0d04 | | Execute_Immediate Less,0x4 01e8 701a |p | Jump_Nonzero 0x203 01e9 00d8 | | Load_Top At_Offset_0 01ea 0c11 | | Execute_Immediate Greater_Equal,0x11 01eb 7014 |p | Jump_Nonzero 0x200 01ec 0afc | | Execute_Immediate Plus,-0x4 01ed 460c |F | Jump_Case 0xd 01ee 7821 |x! | Jump 0x210 ; case 0x0 01ef 7814 |x | Jump 0x204 ; case 0x1 01f0 7826 |x& | Jump 0x217 ; case 0x2 01f1 7812 |x | Jump 0x204 ; case 0x3 01f2 7811 |x | Jump 0x204 ; case 0x4 01f3 7811 |x | Jump 0x205 ; case 0x5 01f4 780f |x | Jump 0x204 ; case 0x6 01f5 780e |x | Jump 0x204 ; case 0x7 01f6 780d |x | Jump 0x204 ; case 0x8 01f7 780c |x | Jump 0x204 ; case 0x9 01f8 780b |x | Jump 0x204 ; case 0xa 01f9 780a |x | Jump 0x204 ; case 0xb 01fa 7800 |x | Jump 0x1fb ; case 0xc 01fb 00d9 | | Load_Top At_Offset_1 01fc 00eb | | Load_Encached Diana_Cache 01fd 18d9 | | Execute Package,Field_Execute,Field_Number 0xd9 01fe c402 | | Store 0x2,0x2 01ff 781e |x | Jump 0x21e 0200 0f93 | | Execute_Immediate Equal,-0x6d 0201 7008 |p | Jump_Nonzero 0x20a 0202 7801 |x | Jump 0x204 0203 00d1 | | Pop_Control Pop_Count_1 0204 08e2 | | Execute_Immediate Raise,0xe2 0205 00d9 | | Load_Top At_Offset_1 0206 00eb | | Load_Encached Diana_Cache 0207 18c5 | | Execute Package,Field_Execute,Field_Number 0xc5 0208 c402 | | Store 0x2,0x2 0209 7814 |x | Jump 0x21e 020a 4801 |H | Short_Literal 0x1 020b 00da | | Load_Top At_Offset_2 020c 00eb | | Load_Encached Diana_Cache 020d 1889 | | Execute Package,Field_Execute,Field_Number 0x89 020e 8224 | $ | Call 0x1,0x24 020f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0210 00d9 | | Load_Top At_Offset_1 0211 00eb | | Load_Encached Diana_Cache 0212 18c6 | | Execute Package,Field_Execute,Field_Number 0xc6 0213 e001 | | Load 0x0,0x1 0214 1b58 | X | Execute Package,Field_Read,Field_Number 0x58 0215 180e | | Execute Package,Field_Execute,Field_Number 0xe 0216 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0217 00d9 | | Load_Top At_Offset_1 0218 00eb | | Load_Encached Diana_Cache 0219 18c5 | | Execute Package,Field_Execute,Field_Number 0xc5 021a e001 | | Load 0x0,0x1 021b 1b58 | X | Execute Package,Field_Read,Field_Number 0x58 021c 180e | | Execute Package,Field_Execute,Field_Number 0xe 021d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 021e 00c9 | | Action Pop_Auxiliary_Loop 021f 7fc3 | | Jump 0x1e3 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 022a | * | .CONST 0x022a ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0002 | | .CONST 0x0002 ; Number of locals 0223 INIT_0220: 0223 00ec | | Load_Encached Diana_Tree_Cache 0224 02c7 | | Declare_Variable Any 0225 00db | | Load_Top At_Offset_3 0226 e001 | | Load 0x0,0x1 0227 1b58 | X | Execute Package,Field_Read,Field_Number 0x58 0228 180f | | Execute Package,Field_Execute,Field_Number 0xf 0229 a402 | | Store_Unchecked 0x2,0x2 022a BODY_0220: 022a 00cf | | Action Mark_Auxiliary 022b 00d9 | | Load_Top At_Offset_1 022c 00eb | | Load_Encached Diana_Cache 022d 1814 | | Execute Package,Field_Execute,Field_Number 0x14 022e 00d8 | | Load_Top At_Offset_0 022f 0d04 | | Execute_Immediate Less,0x4 0230 701a |p | Jump_Nonzero 0x24b 0231 00d8 | | Load_Top At_Offset_0 0232 0c11 | | Execute_Immediate Greater_Equal,0x11 0233 7014 |p | Jump_Nonzero 0x248 0234 0afc | | Execute_Immediate Plus,-0x4 0235 460c |F | Jump_Case 0xd 0236 7821 |x! | Jump 0x258 ; case 0x0 0237 7814 |x | Jump 0x24c ; case 0x1 0238 7826 |x& | Jump 0x25f ; case 0x2 0239 7812 |x | Jump 0x24c ; case 0x3 023a 7811 |x | Jump 0x24c ; case 0x4 023b 7811 |x | Jump 0x24d ; case 0x5 023c 780f |x | Jump 0x24c ; case 0x6 023d 780e |x | Jump 0x24c ; case 0x7 023e 780d |x | Jump 0x24c ; case 0x8 023f 780c |x | Jump 0x24c ; case 0x9 0240 780b |x | Jump 0x24c ; case 0xa 0241 780a |x | Jump 0x24c ; case 0xb 0242 7800 |x | Jump 0x243 ; case 0xc 0243 00d9 | | Load_Top At_Offset_1 0244 00eb | | Load_Encached Diana_Cache 0245 18d9 | | Execute Package,Field_Execute,Field_Number 0xd9 0246 c402 | | Store 0x2,0x2 0247 781e |x | Jump 0x266 0248 0f93 | | Execute_Immediate Equal,-0x6d 0249 7008 |p | Jump_Nonzero 0x252 024a 7801 |x | Jump 0x24c 024b 00d1 | | Pop_Control Pop_Count_1 024c 08e2 | | Execute_Immediate Raise,0xe2 024d 00d9 | | Load_Top At_Offset_1 024e 00eb | | Load_Encached Diana_Cache 024f 18c5 | | Execute Package,Field_Execute,Field_Number 0xc5 0250 c402 | | Store 0x2,0x2 0251 7814 |x | Jump 0x266 0252 4802 |H | Short_Literal 0x2 0253 00da | | Load_Top At_Offset_2 0254 00eb | | Load_Encached Diana_Cache 0255 1889 | | Execute Package,Field_Execute,Field_Number 0x89 0256 8224 | $ | Call 0x1,0x24 0257 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0258 00d9 | | Load_Top At_Offset_1 0259 00eb | | Load_Encached Diana_Cache 025a 18c7 | | Execute Package,Field_Execute,Field_Number 0xc7 025b e001 | | Load 0x0,0x1 025c 1b58 | X | Execute Package,Field_Read,Field_Number 0x58 025d 180e | | Execute Package,Field_Execute,Field_Number 0xe 025e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 025f 00d9 | | Load_Top At_Offset_1 0260 00eb | | Load_Encached Diana_Cache 0261 18e7 | | Execute Package,Field_Execute,Field_Number 0xe7 0262 e001 | | Load 0x0,0x1 0263 1b58 | X | Execute Package,Field_Read,Field_Number 0x58 0264 180e | | Execute Package,Field_Execute,Field_Number 0xe 0265 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0266 00c9 | | Action Pop_Auxiliary_Loop 0267 7fc3 | | Jump 0x22b 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 0272 | r | .CONST 0x0272 ; Address of begin 0269 0004 | | .CONST 0x0004 ; Address of exception handler 026a 0002 | | .CONST 0x0002 ; Number of locals 026b INIT_0268: 026b 00ec | | Load_Encached Diana_Tree_Cache 026c 02c7 | | Declare_Variable Any 026d 00db | | Load_Top At_Offset_3 026e e001 | | Load 0x0,0x1 026f 1b58 | X | Execute Package,Field_Read,Field_Number 0x58 0270 180f | | Execute Package,Field_Execute,Field_Number 0xf 0271 a402 | | Store_Unchecked 0x2,0x2 0272 BODY_0268: 0272 00cf | | Action Mark_Auxiliary 0273 00d9 | | Load_Top At_Offset_1 0274 00eb | | Load_Encached Diana_Cache 0275 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0276 00d8 | | Load_Top At_Offset_0 0277 0d09 | | Execute_Immediate Less,0x9 0278 700b |p | Jump_Nonzero 0x284 0279 00d8 | | Load_Top At_Offset_0 027a 0c11 | | Execute_Immediate Greater_Equal,0x11 027b 7005 |p | Jump_Nonzero 0x281 027c 0b09 | | Execute_Immediate Case_Compare,0x9 027d 7008 |p | Jump_Nonzero 0x286 027e 0f10 | | Execute_Immediate Equal,0x10 027f 700c |p | Jump_Nonzero 0x28c 0280 7804 |x | Jump 0x285 0281 0f93 | | Execute_Immediate Equal,-0x6d 0282 700e |p | Jump_Nonzero 0x291 0283 7801 |x | Jump 0x285 0284 00d1 | | Pop_Control Pop_Count_1 0285 08e2 | | Execute_Immediate Raise,0xe2 0286 00d1 | | Pop_Control Pop_Count_1 0287 00d9 | | Load_Top At_Offset_1 0288 00eb | | Load_Encached Diana_Cache 0289 18c5 | | Execute Package,Field_Execute,Field_Number 0xc5 028a c402 | | Store 0x2,0x2 028b 780b |x | Jump 0x297 028c 00d9 | | Load_Top At_Offset_1 028d 00eb | | Load_Encached Diana_Cache 028e 18d9 | | Execute Package,Field_Execute,Field_Number 0xd9 028f c402 | | Store 0x2,0x2 0290 7806 |x | Jump 0x297 0291 4801 |H | Short_Literal 0x1 0292 00da | | Load_Top At_Offset_2 0293 00eb | | Load_Encached Diana_Cache 0294 1889 | | Execute Package,Field_Execute,Field_Number 0x89 0295 8224 | $ | Call 0x1,0x24 0296 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0297 00c9 | | Action Pop_Auxiliary_Loop 0298 7fda | | Jump 0x273 0299 0000 0000 | | .BLANK 0000[0x7] 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 460e |F | Jump_Case 0xf 02a5 7812 |x | Jump 0x2b8 ; case 0x0 02a6 7811 |x | Jump 0x2b8 ; case 0x1 02a7 7810 |x | Jump 0x2b8 ; case 0x2 02a8 7815 |x | Jump 0x2be ; case 0x3 02a9 7814 |x | Jump 0x2be ; case 0x4 02aa 780b |x | Jump 0x2b6 ; case 0x5 02ab 780e |x | Jump 0x2ba ; case 0x6 02ac 780d |x | Jump 0x2ba ; case 0x7 02ad 780c |x | Jump 0x2ba ; case 0x8 02ae 780b |x | Jump 0x2ba ; case 0x9 02af 780a |x | Jump 0x2ba ; case 0xa 02b0 7809 |x | Jump 0x2ba ; case 0xb 02b1 780a |x | Jump 0x2bc ; case 0xc 02b2 7809 |x | Jump 0x2bc ; case 0xd 02b3 7800 |x | Jump 0x2b4 ; case 0xe 02b4 4809 |H | Short_Literal 0x9 02b5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02b6 4803 |H | Short_Literal 0x3 02b7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02b8 4800 |H | Short_Literal 0x0 02b9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02ba 4801 |H | Short_Literal 0x1 02bb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02bc 4802 |H | Short_Literal 0x2 02bd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02be 4800 |H | Short_Literal 0x0 02bf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; SUBPROGRAM 02c0 ; -------------------------------------------------------------------------------------- 02c0 02c5 | | .CONST 0x02c5 ; Address of begin 02c1 0004 | | .CONST 0x0004 ; Address of exception handler 02c2 0002 | | .CONST 0x0002 ; Number of locals 02c3 INIT_02c0: 02c3 029f 02fb | | Declare_Subprogram INIT_02f8,For_Call 02c5 BODY_02c0: 02c5 00db | | Load_Top At_Offset_3 02c6 00eb | | Load_Encached Diana_Cache 02c7 1814 | | Execute Package,Field_Execute,Field_Number 0x14 02c8 0b86 | | Execute_Immediate Case_Compare,0x86 02c9 7004 |p | Jump_Nonzero 0x2ce 02ca 0f87 | | Execute_Immediate Equal,-0x79 02cb 7005 |p | Jump_Nonzero 0x2d1 02cc 8402 | | Call 0x2,0x2 02cd 7805 |x | Jump 0x2d3 02ce 00d1 | | Pop_Control Pop_Count_1 02cf 480c |H | Short_Literal 0xc 02d0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02d1 480d |H | Short_Literal 0xd 02d2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02d3 0831 | 1 | Execute_Immediate Raise,0x31 02d4 0000 0000 | | .BLANK 0000[0x4] 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; SUBPROGRAM 02d8 ; -------------------------------------------------------------------------------------- 02d8 02df | | .CONST 0x02df ; Address of begin 02d9 0004 | | .CONST 0x0004 ; Address of exception handler 02da 0002 | | .CONST 0x0002 ; Number of locals 02db INIT_02d8: 02db 00ee | | Load_Encached Diana_Seq_Type_Cache 02dc 02c7 | | Declare_Variable Any 02dd 00db | | Load_Top At_Offset_3 02de a402 | | Store_Unchecked 0x2,0x2 02df BODY_02d8: 02df 00cf | | Action Mark_Auxiliary 02e0 e5fe | | Load 0x2,-0x2 02e1 0aff | | Execute_Immediate Plus,-0x1 02e2 4801 |H | Short_Literal 0x1 02e3 0263 | c | Execute Discrete,Above_Bound 02e4 7006 |p | Jump_Nonzero 0x2eb 02e5 00db | | Load_Top At_Offset_3 02e6 00eb | | Load_Encached Diana_Cache 02e7 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a 02e8 c402 | | Store 0x2,0x2 02e9 00c8 | | Action Pop_Auxiliary_Range 02ea 3ffa |? | Loop_Increasing 0x2e5 02eb 00ce | | Action Pop_Auxiliary 02ec 00d8 | | Load_Top At_Offset_0 02ed 00eb | | Load_Encached Diana_Cache 02ee 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59 02ef e001 | | Load 0x0,0x1 02f0 1b58 | X | Execute Package,Field_Read,Field_Number 0x58 02f1 180e | | Execute Package,Field_Execute,Field_Number 0xe 02f2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02f3 0000 0000 | | .BLANK 0000[0x5] 02f8 ; -------------------------------------------------------------------------------------- 02f8 ; SUBPROGRAM 02f8 ; -------------------------------------------------------------------------------------- 02f8 0300 | | .CONST 0x0300 ; Address of begin 02f9 0004 | | .CONST 0x0004 ; Address of exception handler 02fa 0002 | | .CONST 0x0002 ; Number of locals 02fb INIT_02f8: 02fb e5ff | | Load 0x2,-0x1 02fc 00eb | | Load_Encached Diana_Cache 02fd 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 02fe 00eb | | Load_Encached Diana_Cache 02ff 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0300 BODY_02f8: 0300 00d8 | | Load_Top At_Offset_0 0301 0092 036c | l| Action Push_String_Extended,0x36c ; "and" 0303 01df | | Execute Vector,Equal 0304 6803 |h | Jump_Zero 0x308 0305 4800 |H | Short_Literal 0x0 0306 00cb | | Action Pop_Block_With_Result 0307 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0308 00d8 | | Load_Top At_Offset_0 0309 0092 036d | m| Action Push_String_Extended,0x36d ; "or" 030b 01df | | Execute Vector,Equal 030c 6803 |h | Jump_Zero 0x310 030d 4801 |H | Short_Literal 0x1 030e 00cb | | Action Pop_Block_With_Result 030f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0310 00d8 | | Load_Top At_Offset_0 0311 0092 036e | n| Action Push_String_Extended,0x36e ; "xor" 0313 01df | | Execute Vector,Equal 0314 6803 |h | Jump_Zero 0x318 0315 4802 |H | Short_Literal 0x2 0316 00cb | | Action Pop_Block_With_Result 0317 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0318 00d8 | | Load_Top At_Offset_0 0319 0092 0371 | q| Action Push_String_Extended,0x371 ; "not" 031b 01df | | Execute Vector,Equal 031c 6803 |h | Jump_Zero 0x320 031d 4805 |H | Short_Literal 0x5 031e 00cb | | Action Pop_Block_With_Result 031f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0320 00d8 | | Load_Top At_Offset_0 0321 0092 0372 | r| Action Push_String_Extended,0x372 ; "=" 0323 01df | | Execute Vector,Equal 0324 6803 |h | Jump_Zero 0x328 0325 4806 |H | Short_Literal 0x6 0326 00cb | | Action Pop_Block_With_Result 0327 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0328 00d8 | | Load_Top At_Offset_0 0329 0092 0373 | s| Action Push_String_Extended,0x373 ; "/=" 032b 01df | | Execute Vector,Equal 032c 6803 |h | Jump_Zero 0x330 032d 4807 |H | Short_Literal 0x7 032e 00cb | | Action Pop_Block_With_Result 032f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0330 00d8 | | Load_Top At_Offset_0 0331 0092 0374 | t| Action Push_String_Extended,0x374 ; "<" 0333 01df | | Execute Vector,Equal 0334 6803 |h | Jump_Zero 0x338 0335 4808 |H | Short_Literal 0x8 0336 00cb | | Action Pop_Block_With_Result 0337 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0338 00d8 | | Load_Top At_Offset_0 0339 0092 0376 | v| Action Push_String_Extended,0x376 ; "<=" 033b 01df | | Execute Vector,Equal 033c 6803 |h | Jump_Zero 0x340 033d 4809 |H | Short_Literal 0x9 033e 00cb | | Action Pop_Block_With_Result 033f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0340 00d8 | | Load_Top At_Offset_0 0341 0092 0375 | u| Action Push_String_Extended,0x375 ; ">" 0343 01df | | Execute Vector,Equal 0344 6803 |h | Jump_Zero 0x348 0345 480a |H | Short_Literal 0xa 0346 00cb | | Action Pop_Block_With_Result 0347 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0348 00d8 | | Load_Top At_Offset_0 0349 0092 0377 | w| Action Push_String_Extended,0x377 ; ">=" 034b 01df | | Execute Vector,Equal 034c 6803 |h | Jump_Zero 0x350 034d 480b |H | Short_Literal 0xb 034e 00cb | | Action Pop_Block_With_Result 034f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0350 e002 | | Load 0x0,0x2 0351 0257 | W | Execute Discrete,Raise 0352 ; -------------------------------------------------------------------------------------- 0352 ; STRING TABLE 0352 ; -------------------------------------------------------------------------------------- 0352 0052 | R | .STRTAB 0x0052->0x037b ; "AND_OP" 0353 0056 | V | .STRTAB 0x0056->0x037e ; "OR_OP" 0354 0059 | Y | .STRTAB 0x0059->0x0380 ; "XOR_OP" 0355 005d | ] | .STRTAB 0x005d->0x0383 ; "AND_THEN_OP" 0356 0066 | f | .STRTAB 0x0066->0x0389 ; "OR_ELSE_OP" 0357 006e | n | .STRTAB 0x006e->0x038e ; "NOT_OP" 0358 0072 | r | .STRTAB 0x0072->0x0391 ; "EQUAL" 0359 0075 | u | .STRTAB 0x0075->0x0393 ; "NOT_EQUAL" 035a 007c | | | .STRTAB 0x007c->0x0398 ; "LESS_THAN" 035b 0083 | | .STRTAB 0x0083->0x039c ; "LESS_THAN_OR_EQUAL" 035c 0093 | | .STRTAB 0x0093->0x03a5 ; "GREATER_THAN" 035d 009d | | .STRTAB 0x009d->0x03ab ; "GREATER_THAN_OR_EQUAL" 035e 00b0 | | .STRTAB 0x00b0->0x03b6 ; "IN_OP" 035f 00b3 | | .STRTAB 0x00b3->0x03b8 ; "NOT_IN_OP" 0360 00ba | | .STRTAB 0x00ba->0x03bd ; "NOT_AN_OPERATOR" 0361 00c7 | | .STRTAB 0x00c7->0x03c4 ; "EXPRESSION" 0362 00cf | | .STRTAB 0x00cf->0x03c9 ; "RELATION" 0363 00d5 | | .STRTAB 0x00d5->0x03cd ; "MEMBERSHIP" 0364 00dd | | .STRTAB 0x00dd->0x03d2 ; "NOT_EXPRESSION" 0365 00e9 | | .STRTAB 0x00e9->0x03d9 ; "IDENTIFIER" 0366 00f1 | | .STRTAB 0x00f1->0x03de ; "LITERAL" 0367 00f6 | | .STRTAB 0x00f6->0x03e2 ; "FUNCTION_CALL" 0368 0101 | | .STRTAB 0x0101->0x03e8 ; "ATTRIBUTE" 0369 0108 | | .STRTAB 0x0108->0x03ed ; "MEMBERSHIP_RANGE" 036a 0116 | | .STRTAB 0x0116->0x03f5 ; "NOT_AN_EXPRESSION" 036b 0125 | % | .STRTAB 0x0125->0x03fd ; "<UNKNOWN>" 036c 012c | , | .STRTAB 0x012c->0x0402 ; "and" 036d 012d | - | .STRTAB 0x012d->0x0403 ; "or" 036e 012d | - | .STRTAB 0x012d->0x0404 ; "xor" 036f 012e | . | .STRTAB 0x012e->0x0406 ; "and then" 0370 0134 | 4 | .STRTAB 0x0134->0x040a ; "or else" 0371 0139 | 9 | .STRTAB 0x0139->0x040d ; "not" 0372 013a | : | .STRTAB 0x013a->0x040f ; "=" 0373 0139 | 9 | .STRTAB 0x0139->0x040f ; "/=" 0374 0139 | 9 | .STRTAB 0x0139->0x0410 ; "<" 0375 0138 | 8 | .STRTAB 0x0138->0x0411 ; ">" 0376 0137 | 7 | .STRTAB 0x0137->0x0411 ; "<=" 0377 0137 | 7 | .STRTAB 0x0137->0x0412 ; ">=" 0378 0137 | 7 | .STRTAB 0x0137->0x0413 ; "in" 0379 0137 | 7 | .STRTAB 0x0137->0x0414 ; "not in" 037a 013b | ; | .STREND 0x013b->0x0417 037b 414e 445f |AND_| .STRTAB_STRINGS 0418 ; -------------------------------------------------------------------------------------- 0418 ; Debug Table 0418 ; -------------------------------------------------------------------------------------- 0418 0004 0004 | | .DEBUG4 0x0004,0x0004,0x2fa9,0x0000,0x0001,0x000e 041e 000b 0456 | V| .DBG4T 0x000b,0x0456,0x8000,0x0000 0422 0058 0465 | X e| .DBG4T 0x0058,0x0465,0x8000,0x8000 0426 0073 0000 | s | .DBG4T 0x0073,0x0000,0x0005,0x0000 042a 009b 0479 | y| .DBG4T 0x009b,0x0479,0x0002,0x4000 042e 00e3 0000 | | .DBG4T 0x00e3,0x0000,0x0005,0x0000 0432 010b 049b | | .DBG4T 0x010b,0x049b,0x0002,0x4000 0436 017b 04c0 | { | .DBG4T 0x017b,0x04c0,0x0002,0x4000 043a 01db 04dd | | .DBG4T 0x01db,0x04dd,0x0002,0x4000 043e 0223 04ee | # | .DBG4T 0x0223,0x04ee,0x0002,0x4000 0442 026b 04ff | k | .DBG4T 0x026b,0x04ff,0x0002,0x4000 0446 02a3 050c | | .DBG4T 0x02a3,0x050c,0x0002,0x4000 044a 02c3 051c | | .DBG4T 0x02c3,0x051c,0x0002,0x4000 044e 02db 0526 | &| .DBG4T 0x02db,0x0526,0x0002,0x0000 0452 02fb 052c | ,| .DBG4T 0x02fb,0x052c,0x0004,0x0000 0456 ; -------------------------------------------------------------------------------------- 0456 ; Debug chain 0456 ; -------------------------------------------------------------------------------------- 0456 000d 0000 | | .DBGLEN 0x000d,0x0000 0458 0020 0026 | &| .DBGLNO 0x0020,0x0026,0x002b,0x0030,0x0035,0x003a,0x003f,0x0042,0x0048,0x004b,0x004e,0x0051,0x0054 0465 ; -------------------------------------------------------------------------------------- 0465 ; Debug chain 0465 ; -------------------------------------------------------------------------------------- 0465 0009 0000 | | .DBGLEN 0x0009,0x0000 0467 0058 005a | X Z| .DBGLNO 0x0058,0x005a,0x005c,0x005e,0x0060,0x0062,0x0064,0x0066,0x0068 0470 0003 0004 | | .XXX[0x9] 0472 0005 0006 | | 0474 0007 0008 | | 0476 0009 000a | | 0478 000b | | 0479 ; -------------------------------------------------------------------------------------- 0479 ; Debug chain 0479 ; -------------------------------------------------------------------------------------- 0479 0000 0010 | | .DBGLEN 0x0000,0x0010 047b 009b 00ac | | .DBGLNO 0x009b,0x00ac,0x00af,0x00b2,0x00b5,0x00b8,0x00bb,0x00be,0x00c1,0x00c4,0x00c7,0x00ca,0x00cd,0x00d0,0x00d3,0x00d6 048b 0001 0010 | | .XXX[0x10] 048d 0002 0003 | | 048f 0004 0005 | | 0491 0006 0007 | | 0493 0008 0009 | | 0495 000a 000b | | 0497 000c 000d | | 0499 000e 000f | | 049b ; -------------------------------------------------------------------------------------- 049b ; Debug chain 049b ; -------------------------------------------------------------------------------------- 049b 0001 0011 | | .DBGLEN 0x0001,0x0011 049d 010b 0113 | | .DBGLNO 0x010b,0x0113,0x0131,0x0138,0x013a,0x0142,0x0144,0x0149,0x014e,0x0153,0x015a,0x0161,0x0163,0x0165,0x0168,0x016f,0x0173,0x0175 04af 0002 000b | | .XXX[0x11] 04b1 000d 000c | | 04b3 000f 0003 | | 04b5 0004 0005 | | 04b7 0006 0007 | | 04b9 0008 0009 | | 04bb 000a 000e | | 04bd 0010 0011 | | 04bf 0012 | | 04c0 ; -------------------------------------------------------------------------------------- 04c0 ; Debug chain 04c0 ; -------------------------------------------------------------------------------------- 04c0 0001 000d | | .DBGLEN 0x0001,0x000d 04c2 017b 0183 | { | .DBGLNO 0x017b,0x0183,0x01a0,0x01a7,0x01a9,0x01ae,0x01b3,0x01b8,0x01bd,0x01c0,0x01c9,0x01cb,0x01cd,0x01cf 04d0 0002 0008 | | .XXX[0xd] 04d2 000e 0003 | | 04d4 0004 0005 | | 04d6 0006 0007 | | 04d8 0009 000c | | 04da 000a 000b | | 04dc 000d | | 04dd ; -------------------------------------------------------------------------------------- 04dd ; Debug chain 04dd ; -------------------------------------------------------------------------------------- 04dd 0001 0007 | | .DBGLEN 0x0001,0x0007 04df 01db 01e3 | | .DBGLNO 0x01db,0x01e3,0x01fb,0x0204,0x0205,0x020a,0x0210,0x0217 04e7 0002 0004 | | .XXX[0x7] 04e9 0008 0003 | | 04eb 0005 0006 | | 04ed 0007 | | 04ee ; -------------------------------------------------------------------------------------- 04ee ; Debug chain 04ee ; -------------------------------------------------------------------------------------- 04ee 0001 0007 | | .DBGLEN 0x0001,0x0007 04f0 0223 022b | # +| .DBGLNO 0x0223,0x022b,0x0243,0x024c,0x024d,0x0252,0x0258,0x025f 04f8 0002 0004 | | .XXX[0x7] 04fa 0008 0003 | | 04fc 0005 0006 | | 04fe 0007 | | 04ff ; -------------------------------------------------------------------------------------- 04ff ; Debug chain 04ff ; -------------------------------------------------------------------------------------- 04ff 0001 0005 | | .DBGLEN 0x0001,0x0005 0501 026b 0273 | k s| .DBGLNO 0x026b,0x0273,0x0285,0x0287,0x028c,0x0291 0507 0002 0006 | | .XXX[0x5] 0509 0003 0004 | | 050b 0005 | | 050c ; -------------------------------------------------------------------------------------- 050c ; Debug chain 050c ; -------------------------------------------------------------------------------------- 050c 0000 0007 | | .DBGLEN 0x0000,0x0007 050e 02a3 02b4 | | .DBGLNO 0x02a3,0x02b4,0x02b6,0x02b8,0x02ba,0x02bc,0x02be 0515 0001 0007 | | .XXX[0x7] 0517 0002 0003 | | 0519 0004 0005 | | 051b 0006 | | 051c ; -------------------------------------------------------------------------------------- 051c ; Debug chain 051c ; -------------------------------------------------------------------------------------- 051c 0000 0004 | | .DBGLEN 0x0000,0x0004 051e 02c5 02cc | | .DBGLNO 0x02c5,0x02cc,0x02cf,0x02d1 0522 0001 0004 | | .XXX[0x4] 0524 0002 0003 | | 0526 ; -------------------------------------------------------------------------------------- 0526 ; Debug chain 0526 ; -------------------------------------------------------------------------------------- 0526 0001 0003 | | .DBGLEN 0x0001,0x0003 0528 02db 02e0 | | .DBGLNO 0x02db,0x02e0,0x02e5,0x02ec 052c ; -------------------------------------------------------------------------------------- 052c ; Debug chain 052c ; -------------------------------------------------------------------------------------- 052c 0001 0015 | | .DBGLEN 0x0001,0x0015 052e 02fb 0300 | | .DBGLNO 0x02fb,0x0300,0x0305,0x0308,0x030d,0x0310,0x0315,0x0318,0x031d,0x0320,0x0325,0x0328,0x032d,0x0330,0x0335,0x0338,0x033d,0x0340,0x0345,0x0348,0x034d,0x0350 0544 0000 0000 | | .BLANK 0000[0xbc]