|
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: 4096 (0x1000) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5850da
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0680 | | .CONST 0x0680 ; 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 8004 | | .CONST 0x8004 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0058 | X | .CONST 0x0058 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0026 | & | .CONST 0x0026 ; Number of locals 000b INIT_0008: 000b 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated 000d 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 000f 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated 0011 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 0013 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated 0015 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated 0017 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated 0019 00bf | | Action Accept_Activation 001a 00ed | | Load_Encached Diana_Symbol_Rep_Cache 001b 02c7 | | Declare_Variable Any 001c 0092 05fd | | Action Push_String_Extended,0x5fd ; "LEFT" 001e 00eb | | Load_Encached Diana_Cache 001f 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0020 a214 | | Store_Unchecked 0x1,0x14 0021 00ed | | Load_Encached Diana_Symbol_Rep_Cache 0022 02c7 | | Declare_Variable Any 0023 0092 05fe | | Action Push_String_Extended,0x5fe ; "RIGHT" 0025 00eb | | Load_Encached Diana_Cache 0026 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0027 a215 | | Store_Unchecked 0x1,0x15 0028 029d 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call 002a 029d 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call 002c 029d 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call 002e 029d 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call 0030 029d 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call 0032 029d 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call 0034 029d 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call 0036 029d 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call 0038 029d 030b | | Declare_Subprogram INIT_0308,For_Outer_Call 003a 029d 0333 | 3| Declare_Subprogram INIT_0330,For_Outer_Call 003c 029d 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call 003e 029d 0383 | | Declare_Subprogram INIT_0380,For_Outer_Call 0040 029d 03bb | | Declare_Subprogram INIT_03b8,For_Outer_Call 0042 029d 03db | | Declare_Subprogram INIT_03d8,For_Outer_Call 0044 029d 03fb | | Declare_Subprogram INIT_03f8,For_Outer_Call 0046 029d 0433 | 3| Declare_Subprogram INIT_0430,For_Outer_Call 0048 029d 0453 | S| Declare_Subprogram INIT_0450,For_Outer_Call 004a 1d0d | | Execute_Immediate Reference_Lex_1,0xd 004b 00c7 | | Action Elaborate_Subprogram 004c 1d0e | | Execute_Immediate Reference_Lex_1,0xe 004d 00c7 | | Action Elaborate_Subprogram 004e 1d0f | | Execute_Immediate Reference_Lex_1,0xf 004f 00c7 | | Action Elaborate_Subprogram 0050 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0051 00c7 | | Action Elaborate_Subprogram 0052 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0053 00c7 | | Action Elaborate_Subprogram 0054 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0055 00c7 | | Action Elaborate_Subprogram 0056 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0057 00c7 | | Action Elaborate_Subprogram 0058 BODY_0008: 0058 00bc | | Action Signal_Activated 0059 00bb | | Action Signal_Completion 005a 0000 0000 | | .BLANK 0000[0x6] 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 0067 | g | .CONST 0x0067 ; Address of begin 0061 0004 | | .CONST 0x0004 ; Address of exception handler 0062 0002 | | .CONST 0x0002 ; Number of locals 0063 INIT_0060: 0063 00ef | | Load_Encached Diana_Sequence_Cache 0064 02c7 | | Declare_Variable Any 0065 00d8 | | Load_Top At_Offset_0 0066 1c00 | | Execute_Immediate Run_Utility,0x0 0067 BODY_0060: 0067 00d8 | | Load_Top At_Offset_0 0068 e5fd | | Load 0x2,-0x3 0069 e5fe | | Load 0x2,-0x2 006a 8220 | | Call 0x1,0x20 006b c402 | | Store 0x2,0x2 006c 00d8 | | Load_Top At_Offset_0 006d e5fd | | Load 0x2,-0x3 006e e5fe | | Load 0x2,-0x2 006f 8221 | ! | Call 0x1,0x21 0070 c402 | | Store 0x2,0x2 0071 00d8 | | Load_Top At_Offset_0 0072 e5fd | | Load 0x2,-0x3 0073 e5fe | | Load 0x2,-0x2 0074 8223 | # | Call 0x1,0x23 0075 c402 | | Store 0x2,0x2 0076 00d8 | | Load_Top At_Offset_0 0077 e5fd | | Load 0x2,-0x3 0078 e5fe | | Load 0x2,-0x2 0079 8222 | " | Call 0x1,0x22 007a c402 | | Store 0x2,0x2 007b 00d8 | | Load_Top At_Offset_0 007c e5fd | | Load 0x2,-0x3 007d e5fe | | Load 0x2,-0x2 007e 8226 | & | Call 0x1,0x26 007f c402 | | Store 0x2,0x2 0080 00d8 | | Load_Top At_Offset_0 0081 e5fd | | Load 0x2,-0x3 0082 e5fe | | Load 0x2,-0x2 0083 8225 | % | Call 0x1,0x25 0084 c402 | | Store 0x2,0x2 0085 00db | | Load_Top At_Offset_3 0086 00d9 | | Load_Top At_Offset_1 0087 8216 | | Call 0x1,0x16 0088 00d8 | | Load_Top At_Offset_0 0089 e5ff | | Load 0x2,-0x1 008a e001 | | Load 0x0,0x1 008b 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c 008c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 008d 0000 0000 | | .XXX[0x3] 008f 0000 | | 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0097 | | .CONST 0x0097 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0002 | | .CONST 0x0002 ; Number of locals 0093 INIT_0090: 0093 00ef | | Load_Encached Diana_Sequence_Cache 0094 02c7 | | Declare_Variable Any 0095 00d8 | | Load_Top At_Offset_0 0096 1c00 | | Execute_Immediate Run_Utility,0x0 0097 BODY_0090: 0097 00d8 | | Load_Top At_Offset_0 0098 e5fd | | Load 0x2,-0x3 0099 e5fe | | Load 0x2,-0x2 009a 8220 | | Call 0x1,0x20 009b c402 | | Store 0x2,0x2 009c 00d8 | | Load_Top At_Offset_0 009d e5fd | | Load 0x2,-0x3 009e e5fe | | Load 0x2,-0x2 009f 8221 | ! | Call 0x1,0x21 00a0 c402 | | Store 0x2,0x2 00a1 00d8 | | Load_Top At_Offset_0 00a2 e5fd | | Load 0x2,-0x3 00a3 e5fe | | Load 0x2,-0x2 00a4 8223 | # | Call 0x1,0x23 00a5 c402 | | Store 0x2,0x2 00a6 00d8 | | Load_Top At_Offset_0 00a7 e5fd | | Load 0x2,-0x3 00a8 e5fe | | Load 0x2,-0x2 00a9 8226 | & | Call 0x1,0x26 00aa c402 | | Store 0x2,0x2 00ab 00d8 | | Load_Top At_Offset_0 00ac e5fd | | Load 0x2,-0x3 00ad e5fe | | Load 0x2,-0x2 00ae 8225 | % | Call 0x1,0x25 00af c402 | | Store 0x2,0x2 00b0 00db | | Load_Top At_Offset_3 00b1 00d9 | | Load_Top At_Offset_1 00b2 8216 | | Call 0x1,0x16 00b3 00d8 | | Load_Top At_Offset_0 00b4 e5ff | | Load 0x2,-0x1 00b5 e001 | | Load 0x0,0x1 00b6 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c 00b7 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bf | | .CONST 0x00bf ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0002 | | .CONST 0x0002 ; Number of locals 00bb INIT_00b8: 00bb 00ef | | Load_Encached Diana_Sequence_Cache 00bc 02c7 | | Declare_Variable Any 00bd 00d8 | | Load_Top At_Offset_0 00be 1c00 | | Execute_Immediate Run_Utility,0x0 00bf BODY_00b8: 00bf 00d8 | | Load_Top At_Offset_0 00c0 e5fd | | Load 0x2,-0x3 00c1 e5fe | | Load 0x2,-0x2 00c2 8220 | | Call 0x1,0x20 00c3 c402 | | Store 0x2,0x2 00c4 00d8 | | Load_Top At_Offset_0 00c5 e5fd | | Load 0x2,-0x3 00c6 e5fe | | Load 0x2,-0x2 00c7 8221 | ! | Call 0x1,0x21 00c8 c402 | | Store 0x2,0x2 00c9 00d8 | | Load_Top At_Offset_0 00ca e5fd | | Load 0x2,-0x3 00cb e5fe | | Load 0x2,-0x2 00cc 8224 | $ | Call 0x1,0x24 00cd c402 | | Store 0x2,0x2 00ce 00d8 | | Load_Top At_Offset_0 00cf e5fd | | Load 0x2,-0x3 00d0 e5fe | | Load 0x2,-0x2 00d1 8225 | % | Call 0x1,0x25 00d2 c402 | | Store 0x2,0x2 00d3 00db | | Load_Top At_Offset_3 00d4 00d9 | | Load_Top At_Offset_1 00d5 8216 | | Call 0x1,0x16 00d6 00d8 | | Load_Top At_Offset_0 00d7 e5ff | | Load 0x2,-0x1 00d8 e001 | | Load 0x0,0x1 00d9 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c 00da 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00db 0000 0000 | | .BLANK 0000[0x5] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00eb | | .CONST 0x00eb ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0004 | | .CONST 0x0004 ; Number of locals 00e3 INIT_00e0: 00e3 00ef | | Load_Encached Diana_Sequence_Cache 00e4 02c7 | | Declare_Variable Any 00e5 00d8 | | Load_Top At_Offset_0 00e6 1c00 | | Execute_Immediate Run_Utility,0x0 00e7 029f 0473 | s| Declare_Subprogram INIT_0470,For_Call 00e9 029f 0483 | | Declare_Subprogram INIT_0480,For_Call 00eb BODY_00e0: 00eb 0092 05ff | | Action Push_String_Extended,0x5ff ; "UNIVERSAL_INTEGER_" 00ed e002 | | Load 0x0,0x2 00ee e003 | | Load 0x0,0x3 00ef 820d | | Call 0x1,0xd 00f0 0092 0600 | | Action Push_String_Extended,0x600 ; "UNIVERSAL_REAL_" 00f2 e004 | | Load 0x0,0x4 00f3 e005 | | Load 0x0,0x5 00f4 820e | | Call 0x1,0xe 00f5 48f8 |H | Short_Literal 0xf8 00f6 e004 | | Load 0x0,0x4 00f7 e002 | | Load 0x0,0x2 00f8 e004 | | Load 0x0,0x4 00f9 8403 | | Call 0x2,0x3 00fa 497a |Iz | Short_Literal 0x17a 00fb 00eb | | Load_Encached Diana_Cache 00fc 0098 | | Execute Package,Field_Read_Dynamic 00fd 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00fe 821d | | Call 0x1,0x1d 00ff 8404 | | Call 0x2,0x4 0100 48f7 |H | Short_Literal 0xf7 0101 e004 | | Load 0x0,0x4 0102 00d8 | | Load_Top At_Offset_0 0103 e002 | | Load 0x0,0x2 0104 8403 | | Call 0x2,0x3 0105 497a |Iz | Short_Literal 0x17a 0106 00eb | | Load_Encached Diana_Cache 0107 0098 | | Execute Package,Field_Read_Dynamic 0108 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0109 821d | | Call 0x1,0x1d 010a 8404 | | Call 0x2,0x4 010b 48f9 |H | Short_Literal 0xf9 010c e004 | | Load 0x0,0x4 010d e002 | | Load 0x0,0x2 010e e004 | | Load 0x0,0x4 010f 8403 | | Call 0x2,0x3 0110 497a |Iz | Short_Literal 0x17a 0111 00eb | | Load_Encached Diana_Cache 0112 0098 | | Execute Package,Field_Read_Dynamic 0113 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0114 821d | | Call 0x1,0x1d 0115 8404 | | Call 0x2,0x4 0116 e005 | | Load 0x0,0x5 0117 00db | | Load_Top At_Offset_3 0118 8216 | | Call 0x1,0x16 0119 00da | | Load_Top At_Offset_2 011a e005 | | Load 0x0,0x5 011b e001 | | Load 0x0,0x1 011c 185d | ] | Execute Package,Field_Execute,Field_Number 0x5d 011d 4975 |Iu | Short_Literal 0x175 011e 00eb | | Load_Encached Diana_Cache 011f 0098 | | Execute Package,Field_Read_Dynamic 0120 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0121 c402 | | Store 0x2,0x2 0122 00da | | Load_Top At_Offset_2 0123 e005 | | Load 0x0,0x5 0124 e001 | | Load 0x0,0x1 0125 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c 0126 00ef | | Load_Encached Diana_Sequence_Cache 0127 c402 | | Store 0x2,0x2 0128 48fa |H | Short_Literal 0xfa 0129 e006 | | Load 0x0,0x6 012a 00d8 | | Load_Top At_Offset_0 012b e006 | | Load 0x0,0x6 012c 8403 | | Call 0x2,0x3 012d 497a |Iz | Short_Literal 0x17a 012e 00eb | | Load_Encached Diana_Cache 012f 0098 | | Execute Package,Field_Read_Dynamic 0130 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0131 821d | | Call 0x1,0x1d 0132 8404 | | Call 0x2,0x4 0133 48fb |H | Short_Literal 0xfb 0134 e006 | | Load 0x0,0x6 0135 00d8 | | Load_Top At_Offset_0 0136 e006 | | Load 0x0,0x6 0137 8403 | | Call 0x2,0x3 0138 497a |Iz | Short_Literal 0x17a 0139 00eb | | Load_Encached Diana_Cache 013a 0098 | | Execute Package,Field_Read_Dynamic 013b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 013c 821d | | Call 0x1,0x1d 013d 8404 | | Call 0x2,0x4 013e e007 | | Load 0x0,0x7 013f 00db | | Load_Top At_Offset_3 0140 8216 | | Call 0x1,0x16 0141 00da | | Load_Top At_Offset_2 0142 e007 | | Load 0x0,0x7 0143 e001 | | Load 0x0,0x1 0144 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c 0145 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0146 0000 0000 | | .XXX[0x2] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 0151 | Q | .CONST 0x0151 ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0003 | | .CONST 0x0003 ; Number of locals 014b INIT_0148: 014b 00ef | | Load_Encached Diana_Sequence_Cache 014c 02c7 | | Declare_Variable Any 014d 00d8 | | Load_Top At_Offset_0 014e 1c00 | | Execute_Immediate Run_Utility,0x0 014f 029f 0493 | | Declare_Subprogram INIT_0490,For_Call 0151 BODY_0148: 0151 00d9 | | Load_Top At_Offset_1 0152 0092 0601 | | Action Push_String_Extended,0x601 ; "BOOLEAN_" 0154 e008 | | Load 0x0,0x8 0155 8220 | | Call 0x1,0x20 0156 c402 | | Store 0x2,0x2 0157 4807 |H | Short_Literal 0x7 0158 e008 | | Load 0x0,0x8 0159 00d8 | | Load_Top At_Offset_0 015a 8219 | | Call 0x1,0x19 015b 821c | | Call 0x1,0x1c 015c 497a |Iz | Short_Literal 0x17a 015d 00eb | | Load_Encached Diana_Cache 015e 0098 | | Execute Package,Field_Read_Dynamic 015f 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0160 821d | | Call 0x1,0x1d 0161 8403 | | Call 0x2,0x3 0162 4808 |H | Short_Literal 0x8 0163 e008 | | Load 0x0,0x8 0164 00d8 | | Load_Top At_Offset_0 0165 8219 | | Call 0x1,0x19 0166 821c | | Call 0x1,0x1c 0167 497a |Iz | Short_Literal 0x17a 0168 00eb | | Load_Encached Diana_Cache 0169 0098 | | Execute Package,Field_Read_Dynamic 016a 1816 | | Execute Package,Field_Execute,Field_Number 0x16 016b 821d | | Call 0x1,0x1d 016c 8403 | | Call 0x2,0x3 016d 4809 |H | Short_Literal 0x9 016e e008 | | Load 0x0,0x8 016f 00d8 | | Load_Top At_Offset_0 0170 8219 | | Call 0x1,0x19 0171 821c | | Call 0x1,0x1c 0172 497a |Iz | Short_Literal 0x17a 0173 00eb | | Load_Encached Diana_Cache 0174 0098 | | Execute Package,Field_Read_Dynamic 0175 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0176 821d | | Call 0x1,0x1d 0177 8403 | | Call 0x2,0x3 0178 480a |H | Short_Literal 0xa 0179 e008 | | Load 0x0,0x8 017a 00d8 | | Load_Top At_Offset_0 017b 821b | | Call 0x1,0x1b 017c 4975 |Iu | Short_Literal 0x175 017d 00eb | | Load_Encached Diana_Cache 017e 0098 | | Execute Package,Field_Read_Dynamic 017f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0180 821c | | Call 0x1,0x1c 0181 497a |Iz | Short_Literal 0x17a 0182 00eb | | Load_Encached Diana_Cache 0183 0098 | | Execute Package,Field_Read_Dynamic 0184 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0185 821d | | Call 0x1,0x1d 0186 8403 | | Call 0x2,0x3 0187 e009 | | Load 0x0,0x9 0188 00da | | Load_Top At_Offset_2 0189 8216 | | Call 0x1,0x16 018a 00d9 | | Load_Top At_Offset_1 018b e009 | | Load 0x0,0x9 018c e001 | | Load 0x0,0x1 018d 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c 018e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 018f 0000 | | .XXX[0x1] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 0197 | | .CONST 0x0197 ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0002 | | .CONST 0x0002 ; Number of locals 0193 INIT_0190: 0193 00ef | | Load_Encached Diana_Sequence_Cache 0194 02c7 | | Declare_Variable Any 0195 00d8 | | Load_Top At_Offset_0 0196 1c00 | | Execute_Immediate Run_Utility,0x0 0197 BODY_0190: 0197 00d8 | | Load_Top At_Offset_0 0198 0092 0602 | | Action Push_String_Extended,0x602 ; "CHARACTER_" 019a e00a | | Load 0x0,0xa 019b 8220 | | Call 0x1,0x20 019c c402 | | Store 0x2,0x2 019d e00b | | Load 0x0,0xb 019e 00d9 | | Load_Top At_Offset_1 019f 8216 | | Call 0x1,0x16 01a0 00d8 | | Load_Top At_Offset_0 01a1 e00b | | Load 0x0,0xb 01a2 e001 | | Load 0x0,0x1 01a3 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c 01a4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01a5 0000 0000 | | .XXX[0x3] 01a7 0000 | | 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01b3 | | .CONST 0x01b3 ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0004 | | .CONST 0x0004 ; Number of locals 01ab INIT_01a8: 01ab 00ef | | Load_Encached Diana_Sequence_Cache 01ac 02c7 | | Declare_Variable Any 01ad 00d8 | | Load_Top At_Offset_0 01ae 1c00 | | Execute_Immediate Run_Utility,0x0 01af 029f 04a3 | | Declare_Subprogram INIT_04a0,For_Call 01b1 029f 04b3 | | Declare_Subprogram INIT_04b0,For_Call 01b3 BODY_01a8: 01b3 00da | | Load_Top At_Offset_2 01b4 0092 0603 | | Action Push_String_Extended,0x603 ; "STRING_" 01b6 e00c | | Load 0x0,0xc 01b7 8220 | | Call 0x1,0x20 01b8 c402 | | Store 0x2,0x2 01b9 493e |I> | Short_Literal 0x13e 01ba e00c | | Load 0x0,0xc 01bb 00d8 | | Load_Top At_Offset_0 01bc 8403 | | Call 0x2,0x3 01bd 497a |Iz | Short_Literal 0x17a 01be 00eb | | Load_Encached Diana_Cache 01bf 0098 | | Execute Package,Field_Read_Dynamic 01c0 181f | | Execute Package,Field_Execute,Field_Number 0x1f 01c1 821d | | Call 0x1,0x1d 01c2 8404 | | Call 0x2,0x4 01c3 493f |I? | Short_Literal 0x13f 01c4 e00a | | Load 0x0,0xa 01c5 e00c | | Load 0x0,0xc 01c6 8403 | | Call 0x2,0x3 01c7 497a |Iz | Short_Literal 0x17a 01c8 00eb | | Load_Encached Diana_Cache 01c9 0098 | | Execute Package,Field_Read_Dynamic 01ca 181f | | Execute Package,Field_Execute,Field_Number 0x1f 01cb 821d | | Call 0x1,0x1d 01cc 8404 | | Call 0x2,0x4 01cd 4940 |I@ | Short_Literal 0x140 01ce e00c | | Load 0x0,0xc 01cf e00a | | Load 0x0,0xa 01d0 8403 | | Call 0x2,0x3 01d1 497a |Iz | Short_Literal 0x17a 01d2 00eb | | Load_Encached Diana_Cache 01d3 0098 | | Execute Package,Field_Read_Dynamic 01d4 181f | | Execute Package,Field_Execute,Field_Number 0x1f 01d5 821d | | Call 0x1,0x1d 01d6 8404 | | Call 0x2,0x4 01d7 4941 |IA | Short_Literal 0x141 01d8 e00a | | Load 0x0,0xa 01d9 00d8 | | Load_Top At_Offset_0 01da 8403 | | Call 0x2,0x3 01db 497a |Iz | Short_Literal 0x17a 01dc 00eb | | Load_Encached Diana_Cache 01dd 0098 | | Execute Package,Field_Read_Dynamic 01de 181f | | Execute Package,Field_Execute,Field_Number 0x1f 01df 821d | | Call 0x1,0x1d 01e0 8404 | | Call 0x2,0x4 01e1 e00d | | Load 0x0,0xd 01e2 00db | | Load_Top At_Offset_3 01e3 8216 | | Call 0x1,0x16 01e4 00da | | Load_Top At_Offset_2 01e5 e00d | | Load 0x0,0xd 01e6 e001 | | Load 0x0,0x1 01e7 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c 01e8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01e9 0000 0000 | | .BLANK 0000[0x7] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01fb | | .CONST 0x01fb ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0003 | | .CONST 0x0003 ; Number of locals 01f3 INIT_01f0: 01f3 00ef | | Load_Encached Diana_Sequence_Cache 01f4 02c7 | | Declare_Variable Any 01f5 00db | | Load_Top At_Offset_3 01f6 a402 | | Store_Unchecked 0x2,0x2 01f7 00ec | | Load_Encached Diana_Tree_Cache 01f8 02c7 | | Declare_Variable Any 01f9 00d8 | | Load_Top At_Offset_0 01fa 1c00 | | Execute_Immediate Run_Utility,0x0 01fb BODY_01f0: 01fb 00cf | | Action Mark_Auxiliary 01fc 780d |x | Jump 0x20a 01fd 00da | | Load_Top At_Offset_2 01fe 00eb | | Load_Encached Diana_Cache 01ff 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 0200 c403 | | Store 0x2,0x3 0201 e5fe | | Load 0x2,-0x2 0202 00da | | Load_Top At_Offset_2 0203 e001 | | Load 0x0,0x1 0204 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0205 00da | | Load_Top At_Offset_2 0206 0217 | | Execute Heap_Access,All_Reference 0207 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0208 c402 | | Store 0x2,0x2 0209 00c9 | | Action Pop_Auxiliary_Loop 020a 00da | | Load_Top At_Offset_2 020b 77f1 |w | Jump_Nonzero 0x1fd 020c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 020d 0000 0000 | | .XXX[0x3] 020f 0000 | | 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 021c | | .CONST 0x021c ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0002 | | .CONST 0x0002 ; Number of locals 0213 INIT_0210: 0213 00ec | | Load_Encached Diana_Tree_Cache 0214 02c7 | | Declare_Variable Any 0215 00db | | Load_Top At_Offset_3 0216 00eb | | Load_Encached Diana_Cache 0217 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0218 4817 |H | Short_Literal 0x17 0219 00eb | | Load_Encached Diana_Cache 021a 1879 | y | Execute Package,Field_Execute,Field_Number 0x79 021b a402 | | Store_Unchecked 0x2,0x2 021c BODY_0210: 021c 00db | | Load_Top At_Offset_3 021d 00d9 | | Load_Top At_Offset_1 021e 4959 |IY | Short_Literal 0x159 021f 00eb | | Load_Encached Diana_Cache 0220 0096 | | Execute Package,Entry 0221 00d8 | | Load_Top At_Offset_0 0222 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0223 0000 0000 | | .BLANK 0000[0x5] 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 0232 | 2 | .CONST 0x0232 ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0002 | | .CONST 0x0002 ; Number of locals 022b INIT_0228: 022b 00ec | | Load_Encached Diana_Tree_Cache 022c 02c7 | | Declare_Variable Any 022d 00db | | Load_Top At_Offset_3 022e e5fd | | Load 0x2,-0x3 022f 00eb | | Load_Encached Diana_Cache 0230 1879 | y | Execute Package,Field_Execute,Field_Number 0x79 0231 a402 | | Store_Unchecked 0x2,0x2 0232 BODY_0228: 0232 e5fe | | Load 0x2,-0x2 0233 00d9 | | Load_Top At_Offset_1 0234 4961 |Ia | Short_Literal 0x161 0235 00eb | | Load_Encached Diana_Cache 0236 0096 | | Execute Package,Entry 0237 00d8 | | Load_Top At_Offset_0 0238 00d9 | | Load_Top At_Offset_1 0239 496a |Ij | Short_Literal 0x16a 023a 00eb | | Load_Encached Diana_Cache 023b 0096 | | Execute Package,Entry 023c 00d8 | | Load_Top At_Offset_0 023d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 023e 0000 0000 | | .XXX[0x2] 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0270 | p | .CONST 0x0270 ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0006 | | .CONST 0x0006 ; Number of locals 0243 INIT_0240: 0243 00ec | | Load_Encached Diana_Tree_Cache 0244 02c7 | | Declare_Variable Any 0245 00db | | Load_Top At_Offset_3 0246 4907 |I | Short_Literal 0x107 0247 00eb | | Load_Encached Diana_Cache 0248 0096 | | Execute Package,Entry 0249 a402 | | Store_Unchecked 0x2,0x2 024a 00ec | | Load_Encached Diana_Tree_Cache 024b 02c7 | | Declare_Variable Any 024c 4823 |H# | Short_Literal 0x23 024d 00da | | Load_Top At_Offset_2 024e e214 | | Load 0x1,0x14 024f 8218 | | Call 0x1,0x18 0250 a403 | | Store_Unchecked 0x2,0x3 0251 00ec | | Load_Encached Diana_Tree_Cache 0252 02c7 | | Declare_Variable Any 0253 4823 |H# | Short_Literal 0x23 0254 00db | | Load_Top At_Offset_3 0255 e215 | | Load 0x1,0x15 0256 8218 | | Call 0x1,0x18 0257 a404 | | Store_Unchecked 0x2,0x4 0258 00ec | | Load_Encached Diana_Tree_Cache 0259 02c7 | | Declare_Variable Any 025a 00d9 | | Load_Top At_Offset_1 025b 00db | | Load_Top At_Offset_3 025c 4975 |Iu | Short_Literal 0x175 025d 00eb | | Load_Encached Diana_Cache 025e 0098 | | Execute Package,Field_Read_Dynamic 025f 180f | | Execute Package,Field_Execute,Field_Number 0xf 0260 4890 |H | Short_Literal 0x90 0261 00eb | | Load_Encached Diana_Cache 0262 187f | | Execute Package,Field_Execute,Field_Number 0x7f 0263 a405 | | Store_Unchecked 0x2,0x5 0264 00ec | | Load_Encached Diana_Tree_Cache 0265 02c7 | | Declare_Variable Any 0266 4800 |H | Short_Literal 0x0 0267 00eb | | Load_Encached Diana_Cache 0268 1878 | x | Execute Package,Field_Execute,Field_Number 0x78 0269 e5ff | | Load 0x2,-0x1 026a 8217 | | Call 0x1,0x17 026b 00db | | Load_Top At_Offset_3 026c 487e |H~ | Short_Literal 0x7e 026d 00eb | | Load_Encached Diana_Cache 026e 187e | ~ | Execute Package,Field_Execute,Field_Number 0x7e 026f a406 | | Store_Unchecked 0x2,0x6 0270 BODY_0240: 0270 00d8 | | Load_Top At_Offset_0 0271 4975 |Iu | Short_Literal 0x175 0272 00eb | | Load_Encached Diana_Cache 0273 0098 | | Execute Package,Field_Read_Dynamic 0274 180e | | Execute Package,Field_Execute,Field_Number 0xe 0275 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0276 0000 0000 | | .XXX[0x2] 0278 ; -------------------------------------------------------------------------------------- 0278 ; SUBPROGRAM 0278 ; -------------------------------------------------------------------------------------- 0278 02a0 | | .CONST 0x02a0 ; Address of begin 0279 0004 | | .CONST 0x0004 ; Address of exception handler 027a 0005 | | .CONST 0x0005 ; Number of locals 027b INIT_0278: 027b 00ec | | Load_Encached Diana_Tree_Cache 027c 02c7 | | Declare_Variable Any 027d 00db | | Load_Top At_Offset_3 027e 4907 |I | Short_Literal 0x107 027f 00eb | | Load_Encached Diana_Cache 0280 0096 | | Execute Package,Entry 0281 a402 | | Store_Unchecked 0x2,0x2 0282 00ec | | Load_Encached Diana_Tree_Cache 0283 02c7 | | Declare_Variable Any 0284 4823 |H# | Short_Literal 0x23 0285 00da | | Load_Top At_Offset_2 0286 e214 | | Load 0x1,0x14 0287 8218 | | Call 0x1,0x18 0288 a403 | | Store_Unchecked 0x2,0x3 0289 00ec | | Load_Encached Diana_Tree_Cache 028a 02c7 | | Declare_Variable Any 028b 00d9 | | Load_Top At_Offset_1 028c 4975 |Iu | Short_Literal 0x175 028d 00eb | | Load_Encached Diana_Cache 028e 0098 | | Execute Package,Field_Read_Dynamic 028f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0290 4890 |H | Short_Literal 0x90 0291 00eb | | Load_Encached Diana_Cache 0292 187f | | Execute Package,Field_Execute,Field_Number 0x7f 0293 a404 | | Store_Unchecked 0x2,0x4 0294 00ec | | Load_Encached Diana_Tree_Cache 0295 02c7 | | Declare_Variable Any 0296 4800 |H | Short_Literal 0x0 0297 00eb | | Load_Encached Diana_Cache 0298 1878 | x | Execute Package,Field_Execute,Field_Number 0x78 0299 e5ff | | Load 0x2,-0x1 029a 8217 | | Call 0x1,0x17 029b 00db | | Load_Top At_Offset_3 029c 487e |H~ | Short_Literal 0x7e 029d 00eb | | Load_Encached Diana_Cache 029e 187e | ~ | Execute Package,Field_Execute,Field_Number 0x7e 029f a405 | | Store_Unchecked 0x2,0x5 02a0 BODY_0278: 02a0 00d8 | | Load_Top At_Offset_0 02a1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02a2 0000 0000 | | .BLANK 0000[0x6] 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; SUBPROGRAM 02a8 ; -------------------------------------------------------------------------------------- 02a8 02d0 | | .CONST 0x02d0 ; Address of begin 02a9 0004 | | .CONST 0x0004 ; Address of exception handler 02aa 0005 | | .CONST 0x0005 ; Number of locals 02ab INIT_02a8: 02ab 00ec | | Load_Encached Diana_Tree_Cache 02ac 02c7 | | Declare_Variable Any 02ad 00db | | Load_Top At_Offset_3 02ae 4907 |I | Short_Literal 0x107 02af 00eb | | Load_Encached Diana_Cache 02b0 0096 | | Execute Package,Entry 02b1 a402 | | Store_Unchecked 0x2,0x2 02b2 00ec | | Load_Encached Diana_Tree_Cache 02b3 02c7 | | Declare_Variable Any 02b4 4823 |H# | Short_Literal 0x23 02b5 00da | | Load_Top At_Offset_2 02b6 e215 | | Load 0x1,0x15 02b7 8218 | | Call 0x1,0x18 02b8 a403 | | Store_Unchecked 0x2,0x3 02b9 00ec | | Load_Encached Diana_Tree_Cache 02ba 02c7 | | Declare_Variable Any 02bb 00d9 | | Load_Top At_Offset_1 02bc 4975 |Iu | Short_Literal 0x175 02bd 00eb | | Load_Encached Diana_Cache 02be 0098 | | Execute Package,Field_Read_Dynamic 02bf 180e | | Execute Package,Field_Execute,Field_Number 0xe 02c0 4890 |H | Short_Literal 0x90 02c1 00eb | | Load_Encached Diana_Cache 02c2 187f | | Execute Package,Field_Execute,Field_Number 0x7f 02c3 a404 | | Store_Unchecked 0x2,0x4 02c4 00ec | | Load_Encached Diana_Tree_Cache 02c5 02c7 | | Declare_Variable Any 02c6 4800 |H | Short_Literal 0x0 02c7 00eb | | Load_Encached Diana_Cache 02c8 1878 | x | Execute Package,Field_Execute,Field_Number 0x78 02c9 e5ff | | Load 0x2,-0x1 02ca 8217 | | Call 0x1,0x17 02cb 00db | | Load_Top At_Offset_3 02cc 487e |H~ | Short_Literal 0x7e 02cd 00eb | | Load_Encached Diana_Cache 02ce 187e | ~ | Execute Package,Field_Execute,Field_Number 0x7e 02cf a405 | | Store_Unchecked 0x2,0x5 02d0 BODY_02a8: 02d0 00d8 | | Load_Top At_Offset_0 02d1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02d2 0000 0000 | | .BLANK 0000[0x6] 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; SUBPROGRAM 02d8 ; -------------------------------------------------------------------------------------- 02d8 02db | | .CONST 0x02db ; Address of begin 02d9 0004 | | .CONST 0x0004 ; Address of exception handler 02da 0001 | | .CONST 0x0001 ; Number of locals 02db BODY_02d8: 02db INIT_02d8: 02db 00db | | Load_Top At_Offset_3 02dc 8217 | | Call 0x1,0x17 02dd 00db | | Load_Top At_Offset_3 02de 4894 |H | Short_Literal 0x94 02df 00eb | | Load_Encached Diana_Cache 02e0 187f | | Execute Package,Field_Execute,Field_Number 0x7f 02e1 487a |Hz | Short_Literal 0x7a 02e2 00eb | | Load_Encached Diana_Cache 02e3 187d | } | Execute Package,Field_Execute,Field_Number 0x7d 02e4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02e5 0000 0000 | | .XXX[0x3] 02e7 0000 | | 02e8 ; -------------------------------------------------------------------------------------- 02e8 ; SUBPROGRAM 02e8 ; -------------------------------------------------------------------------------------- 02e8 02f2 | | .CONST 0x02f2 ; Address of begin 02e9 0004 | | .CONST 0x0004 ; Address of exception handler 02ea 0002 | | .CONST 0x0002 ; Number of locals 02eb INIT_02e8: 02eb 00ec | | Load_Encached Diana_Tree_Cache 02ec 02c7 | | Declare_Variable Any 02ed 00db | | Load_Top At_Offset_3 02ee 4833 |H3 | Short_Literal 0x33 02ef 00eb | | Load_Encached Diana_Cache 02f0 1879 | y | Execute Package,Field_Execute,Field_Number 0x79 02f1 a402 | | Store_Unchecked 0x2,0x2 02f2 BODY_02e8: 02f2 e5fe | | Load 0x2,-0x2 02f3 00d9 | | Load_Top At_Offset_1 02f4 4963 |Ic | Short_Literal 0x163 02f5 00eb | | Load_Encached Diana_Cache 02f6 0096 | | Execute Package,Entry 02f7 00d8 | | Load_Top At_Offset_0 02f8 00d9 | | Load_Top At_Offset_1 02f9 496a |Ij | Short_Literal 0x16a 02fa 00eb | | Load_Encached Diana_Cache 02fb 0096 | | Execute Package,Entry 02fc e5fd | | Load 0x2,-0x3 02fd 00d9 | | Load_Top At_Offset_1 02fe e001 | | Load 0x0,0x1 02ff 18a3 | | Execute Package,Field_Execute,Field_Number 0xa3 0300 00d8 | | Load_Top At_Offset_0 0301 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0302 0000 0000 | | .BLANK 0000[0x6] 0308 ; -------------------------------------------------------------------------------------- 0308 ; SUBPROGRAM 0308 ; -------------------------------------------------------------------------------------- 0308 0327 | ' | .CONST 0x0327 ; Address of begin 0309 0004 | | .CONST 0x0004 ; Address of exception handler 030a 0006 | | .CONST 0x0006 ; Number of locals 030b INIT_0308: 030b 4800 |H | Short_Literal 0x0 030c 00db | | Load_Top At_Offset_3 030d 0092 0604 | | Action Push_String_Extended,0x604 ; "_" 030f e00e | | Load 0x0,0xe 0310 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0311 4800 |H | Short_Literal 0x0 0312 00d9 | | Load_Top At_Offset_1 0313 0aff | | Execute_Immediate Plus,-0x1 0314 00d8 | | Load_Top At_Offset_0 0315 00e2 | | Load_Encached Integer_Cache 0316 0260 | ` | Execute Discrete,In_Type 0317 7001 |p | Jump_Nonzero 0x319 0318 0801 | | Execute_Immediate Raise,0x1 0319 e5ff | | Load 0x2,-0x1 031a 01dd | | Execute Vector,First 031b e5ff | | Load 0x2,-0x1 031c 01cf | | Execute Vector,Slice_Read 031d 0092 0604 | | Action Push_String_Extended,0x604 ; "_" 031f e00e | | Load 0x0,0xe 0320 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0321 029f 04c3 | | Declare_Subprogram INIT_04c0,For_Call 0323 029f 04d3 | | Declare_Subprogram INIT_04d0,For_Call 0325 029f 04e3 | | Declare_Subprogram INIT_04e0,For_Call 0327 BODY_0308: 0327 8405 | | Call 0x2,0x5 0328 8406 | | Call 0x2,0x6 0329 4800 |H | Short_Literal 0x0 032a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 032b 0000 0000 | | .BLANK 0000[0x5] 0330 ; -------------------------------------------------------------------------------------- 0330 ; SUBPROGRAM 0330 ; -------------------------------------------------------------------------------------- 0330 0333 | 3 | .CONST 0x0333 ; Address of begin 0331 0004 | | .CONST 0x0004 ; Address of exception handler 0332 0001 | | .CONST 0x0001 ; Number of locals 0333 BODY_0330: 0333 INIT_0330: 0333 e5fd | | Load 0x2,-0x3 0334 821e | | Call 0x1,0x1e 0335 e5fe | | Load 0x2,-0x2 0336 e5ff | | Load 0x2,-0x1 0337 821d | | Call 0x1,0x1d 0338 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0339 0000 0000 | | .BLANK 0000[0x7] 0340 ; -------------------------------------------------------------------------------------- 0340 ; SUBPROGRAM 0340 ; -------------------------------------------------------------------------------------- 0340 0347 | G | .CONST 0x0347 ; Address of begin 0341 0004 | | .CONST 0x0004 ; Address of exception handler 0342 0003 | | .CONST 0x0003 ; Number of locals 0343 INIT_0340: 0343 029f 050b | | Declare_Subprogram INIT_0508,For_Call 0345 029f 0513 | | Declare_Subprogram INIT_0510,For_Call 0347 BODY_0340: 0347 e5fe | | Load 0x2,-0x2 0348 0092 0605 | | Action Push_String_Extended,0x605 ; "EQ" 034a 01cc | | Execute Vector,Catenate 034b 8402 | | Call 0x2,0x2 034c 497a |Iz | Short_Literal 0x17a 034d 00eb | | Load_Encached Diana_Cache 034e 0098 | | Execute Package,Field_Read_Dynamic 034f 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0350 821f | | Call 0x1,0x1f 0351 8403 | | Call 0x2,0x3 0352 e5fe | | Load 0x2,-0x2 0353 0092 0606 | | Action Push_String_Extended,0x606 ; "LT" 0355 01cc | | Execute Vector,Catenate 0356 8402 | | Call 0x2,0x2 0357 497a |Iz | Short_Literal 0x17a 0358 00eb | | Load_Encached Diana_Cache 0359 0098 | | Execute Package,Field_Read_Dynamic 035a 181b | | Execute Package,Field_Execute,Field_Number 0x1b 035b 821f | | Call 0x1,0x1f 035c 8403 | | Call 0x2,0x3 035d e5fe | | Load 0x2,-0x2 035e 0092 0607 | | Action Push_String_Extended,0x607 ; "GT" 0360 01cc | | Execute Vector,Catenate 0361 8402 | | Call 0x2,0x2 0362 497a |Iz | Short_Literal 0x17a 0363 00eb | | Load_Encached Diana_Cache 0364 0098 | | Execute Package,Field_Read_Dynamic 0365 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0366 821f | | Call 0x1,0x1f 0367 8403 | | Call 0x2,0x3 0368 e5fe | | Load 0x2,-0x2 0369 0092 0608 | | Action Push_String_Extended,0x608 ; "LE" 036b 01cc | | Execute Vector,Catenate 036c 8402 | | Call 0x2,0x2 036d 497a |Iz | Short_Literal 0x17a 036e 00eb | | Load_Encached Diana_Cache 036f 0098 | | Execute Package,Field_Read_Dynamic 0370 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0371 821f | | Call 0x1,0x1f 0372 8403 | | Call 0x2,0x3 0373 e5fe | | Load 0x2,-0x2 0374 0092 0609 | | Action Push_String_Extended,0x609 ; "GE" 0376 01cc | | Execute Vector,Catenate 0377 8402 | | Call 0x2,0x2 0378 497a |Iz | Short_Literal 0x17a 0379 00eb | | Load_Encached Diana_Cache 037a 0098 | | Execute Package,Field_Read_Dynamic 037b 181d | | Execute Package,Field_Execute,Field_Number 0x1d 037c 821f | | Call 0x1,0x1f 037d 8403 | | Call 0x2,0x3 037e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 037f 0000 | | .XXX[0x1] 0380 ; -------------------------------------------------------------------------------------- 0380 ; SUBPROGRAM 0380 ; -------------------------------------------------------------------------------------- 0380 0389 | | .CONST 0x0389 ; Address of begin 0381 0004 | | .CONST 0x0004 ; Address of exception handler 0382 0004 | | .CONST 0x0004 ; Number of locals 0383 INIT_0380: 0383 029f 0523 | #| Declare_Subprogram INIT_0520,For_Call 0385 029f 052b | +| Declare_Subprogram INIT_0528,For_Call 0387 029f 053b | ;| Declare_Subprogram INIT_0538,For_Call 0389 BODY_0380: 0389 e5fe | | Load 0x2,-0x2 038a 0092 060a | | Action Push_String_Extended,0x60a ; "ADD" 038c 01cc | | Execute Vector,Catenate 038d 8402 | | Call 0x2,0x2 038e 497a |Iz | Short_Literal 0x17a 038f 00eb | | Load_Encached Diana_Cache 0390 0098 | | Execute Package,Field_Read_Dynamic 0391 180e | | Execute Package,Field_Execute,Field_Number 0xe 0392 821f | | Call 0x1,0x1f 0393 8404 | | Call 0x2,0x4 0394 e5fe | | Load 0x2,-0x2 0395 0092 060b | | Action Push_String_Extended,0x60b ; "SUB" 0397 01cc | | Execute Vector,Catenate 0398 8402 | | Call 0x2,0x2 0399 497a |Iz | Short_Literal 0x17a 039a 00eb | | Load_Encached Diana_Cache 039b 0098 | | Execute Package,Field_Read_Dynamic 039c 180f | | Execute Package,Field_Execute,Field_Number 0xf 039d 821f | | Call 0x1,0x1f 039e 8404 | | Call 0x2,0x4 039f e5fe | | Load 0x2,-0x2 03a0 0092 060c | | Action Push_String_Extended,0x60c ; "PLUS" 03a2 01cc | | Execute Vector,Catenate 03a3 8403 | | Call 0x2,0x3 03a4 497a |Iz | Short_Literal 0x17a 03a5 00eb | | Load_Encached Diana_Cache 03a6 0098 | | Execute Package,Field_Read_Dynamic 03a7 180e | | Execute Package,Field_Execute,Field_Number 0xe 03a8 821f | | Call 0x1,0x1f 03a9 8404 | | Call 0x2,0x4 03aa e5fe | | Load 0x2,-0x2 03ab 0092 060d | | Action Push_String_Extended,0x60d ; "NEG" 03ad 01cc | | Execute Vector,Catenate 03ae 8403 | | Call 0x2,0x3 03af 497a |Iz | Short_Literal 0x17a 03b0 00eb | | Load_Encached Diana_Cache 03b1 0098 | | Execute Package,Field_Read_Dynamic 03b2 180f | | Execute Package,Field_Execute,Field_Number 0xf 03b3 821f | | Call 0x1,0x1f 03b4 8404 | | Call 0x2,0x4 03b5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03b6 0000 0000 | | .XXX[0x2] 03b8 ; -------------------------------------------------------------------------------------- 03b8 ; SUBPROGRAM 03b8 ; -------------------------------------------------------------------------------------- 03b8 03bf | | .CONST 0x03bf ; Address of begin 03b9 0004 | | .CONST 0x0004 ; Address of exception handler 03ba 0003 | | .CONST 0x0003 ; Number of locals 03bb INIT_03b8: 03bb 029f 054b | K| Declare_Subprogram INIT_0548,For_Call 03bd 029f 0553 | S| Declare_Subprogram INIT_0550,For_Call 03bf BODY_03b8: 03bf e5fe | | Load 0x2,-0x2 03c0 0092 060e | | Action Push_String_Extended,0x60e ; "REM" 03c2 01cc | | Execute Vector,Catenate 03c3 8402 | | Call 0x2,0x2 03c4 497a |Iz | Short_Literal 0x17a 03c5 00eb | | Load_Encached Diana_Cache 03c6 0098 | | Execute Package,Field_Read_Dynamic 03c7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03c8 821f | | Call 0x1,0x1f 03c9 8403 | | Call 0x2,0x3 03ca e5fe | | Load 0x2,-0x2 03cb 0092 060f | | Action Push_String_Extended,0x60f ; "MOD" 03cd 01cc | | Execute Vector,Catenate 03ce 8402 | | Call 0x2,0x2 03cf 497a |Iz | Short_Literal 0x17a 03d0 00eb | | Load_Encached Diana_Cache 03d1 0098 | | Execute Package,Field_Read_Dynamic 03d2 1812 | | Execute Package,Field_Execute,Field_Number 0x12 03d3 821f | | Call 0x1,0x1f 03d4 8403 | | Call 0x2,0x3 03d5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03d6 0000 0000 | | .XXX[0x2] 03d8 ; -------------------------------------------------------------------------------------- 03d8 ; SUBPROGRAM 03d8 ; -------------------------------------------------------------------------------------- 03d8 03df | | .CONST 0x03df ; Address of begin 03d9 0004 | | .CONST 0x0004 ; Address of exception handler 03da 0003 | | .CONST 0x0003 ; Number of locals 03db INIT_03d8: 03db 029f 0563 | c| Declare_Subprogram INIT_0560,For_Call 03dd 029f 056b | k| Declare_Subprogram INIT_0568,For_Call 03df BODY_03d8: 03df e5fe | | Load 0x2,-0x2 03e0 0092 0610 | | Action Push_String_Extended,0x610 ; "MUL" 03e2 01cc | | Execute Vector,Catenate 03e3 8402 | | Call 0x2,0x2 03e4 497a |Iz | Short_Literal 0x17a 03e5 00eb | | Load_Encached Diana_Cache 03e6 0098 | | Execute Package,Field_Read_Dynamic 03e7 1810 | | Execute Package,Field_Execute,Field_Number 0x10 03e8 821f | | Call 0x1,0x1f 03e9 8403 | | Call 0x2,0x3 03ea e5fe | | Load 0x2,-0x2 03eb 0092 0611 | | Action Push_String_Extended,0x611 ; "DIV" 03ed 01cc | | Execute Vector,Catenate 03ee 8402 | | Call 0x2,0x2 03ef 497a |Iz | Short_Literal 0x17a 03f0 00eb | | Load_Encached Diana_Cache 03f1 0098 | | Execute Package,Field_Read_Dynamic 03f2 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03f3 821f | | Call 0x1,0x1f 03f4 8403 | | Call 0x2,0x3 03f5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03f6 0000 0000 | | .XXX[0x2] 03f8 ; -------------------------------------------------------------------------------------- 03f8 ; SUBPROGRAM 03f8 ; -------------------------------------------------------------------------------------- 03f8 03ff | | .CONST 0x03ff ; Address of begin 03f9 0004 | | .CONST 0x0004 ; Address of exception handler 03fa 0003 | | .CONST 0x0003 ; Number of locals 03fb INIT_03f8: 03fb 029f 057b | {| Declare_Subprogram INIT_0578,For_Call 03fd 029f 058b | | Declare_Subprogram INIT_0588,For_Call 03ff BODY_03f8: 03ff e5fe | | Load 0x2,-0x2 0400 0092 0612 | | Action Push_String_Extended,0x612 ; "INTEGER_MUL" 0402 01cc | | Execute Vector,Catenate 0403 e00f | | Load 0x0,0xf 0404 e5ff | | Load 0x2,-0x1 0405 8402 | | Call 0x2,0x2 0406 497a |Iz | Short_Literal 0x17a 0407 00eb | | Load_Encached Diana_Cache 0408 0098 | | Execute Package,Field_Read_Dynamic 0409 1810 | | Execute Package,Field_Execute,Field_Number 0x10 040a 821f | | Call 0x1,0x1f 040b 8403 | | Call 0x2,0x3 040c 0092 0613 | | Action Push_String_Extended,0x613 ; "INTEGER_" 040e e5fe | | Load 0x2,-0x2 040f 01cc | | Execute Vector,Catenate 0410 0092 0610 | | Action Push_String_Extended,0x610 ; "MUL" 0412 01cc | | Execute Vector,Catenate 0413 e5ff | | Load 0x2,-0x1 0414 e00f | | Load 0x0,0xf 0415 8402 | | Call 0x2,0x2 0416 497a |Iz | Short_Literal 0x17a 0417 00eb | | Load_Encached Diana_Cache 0418 0098 | | Execute Package,Field_Read_Dynamic 0419 1810 | | Execute Package,Field_Execute,Field_Number 0x10 041a 821f | | Call 0x1,0x1f 041b 8403 | | Call 0x2,0x3 041c e5fe | | Load 0x2,-0x2 041d 0092 0614 | | Action Push_String_Extended,0x614 ; "INTEGER_DIV" 041f 01cc | | Execute Vector,Catenate 0420 e00f | | Load 0x0,0xf 0421 e5ff | | Load 0x2,-0x1 0422 8402 | | Call 0x2,0x2 0423 497a |Iz | Short_Literal 0x17a 0424 00eb | | Load_Encached Diana_Cache 0425 0098 | | Execute Package,Field_Read_Dynamic 0426 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0427 821f | | Call 0x1,0x1f 0428 8403 | | Call 0x2,0x3 0429 4503 |E | Exit_Suprogram New_Top_Offset 0x3 042a 0000 0000 | | .BLANK 0000[0x6] 0430 ; -------------------------------------------------------------------------------------- 0430 ; SUBPROGRAM 0430 ; -------------------------------------------------------------------------------------- 0430 0433 | 3 | .CONST 0x0433 ; Address of begin 0431 0004 | | .CONST 0x0004 ; Address of exception handler 0432 0001 | | .CONST 0x0001 ; Number of locals 0433 BODY_0430: 0433 INIT_0430: 0433 e5fd | | Load 0x2,-0x3 0434 e5fe | | Load 0x2,-0x2 0435 0092 0615 | | Action Push_String_Extended,0x615 ; "ABS" 0437 01cc | | Execute Vector,Catenate 0438 e5ff | | Load 0x2,-0x1 0439 00d8 | | Load_Top At_Offset_0 043a 821b | | Call 0x1,0x1b 043b 4975 |Iu | Short_Literal 0x175 043c 00eb | | Load_Encached Diana_Cache 043d 0098 | | Execute Package,Field_Read_Dynamic 043e 180e | | Execute Package,Field_Execute,Field_Number 0xe 043f 821c | | Call 0x1,0x1c 0440 497a |Iz | Short_Literal 0x17a 0441 00eb | | Load_Encached Diana_Cache 0442 0098 | | Execute Package,Field_Read_Dynamic 0443 180d | | Execute Package,Field_Execute,Field_Number 0xd 0444 821f | | Call 0x1,0x1f 0445 00eb | | Load_Encached Diana_Cache 0446 1867 | g | Execute Package,Field_Execute,Field_Number 0x67 0447 c5fd | | Store 0x2,-0x3 0448 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0449 0000 0000 | | .BLANK 0000[0x7] 0450 ; -------------------------------------------------------------------------------------- 0450 ; SUBPROGRAM 0450 ; -------------------------------------------------------------------------------------- 0450 0453 | S | .CONST 0x0453 ; Address of begin 0451 0004 | | .CONST 0x0004 ; Address of exception handler 0452 0001 | | .CONST 0x0001 ; Number of locals 0453 BODY_0450: 0453 INIT_0450: 0453 e5fd | | Load 0x2,-0x3 0454 e5fe | | Load 0x2,-0x2 0455 0092 0616 | | Action Push_String_Extended,0x616 ; "EXP" 0457 01cc | | Execute Vector,Catenate 0458 e5ff | | Load 0x2,-0x1 0459 e00f | | Load 0x0,0xf 045a 821b | | Call 0x1,0x1b 045b e5ff | | Load 0x2,-0x1 045c 821a | | Call 0x1,0x1a 045d 4975 |Iu | Short_Literal 0x175 045e 00eb | | Load_Encached Diana_Cache 045f 0098 | | Execute Package,Field_Read_Dynamic 0460 180f | | Execute Package,Field_Execute,Field_Number 0xf 0461 821c | | Call 0x1,0x1c 0462 497a |Iz | Short_Literal 0x17a 0463 00eb | | Load_Encached Diana_Cache 0464 0098 | | Execute Package,Field_Read_Dynamic 0465 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0466 821f | | Call 0x1,0x1f 0467 00eb | | Load_Encached Diana_Cache 0468 1867 | g | Execute Package,Field_Execute,Field_Number 0x67 0469 c5fd | | Store 0x2,-0x3 046a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 046b 0000 0000 | | .BLANK 0000[0x5] 0470 ; -------------------------------------------------------------------------------------- 0470 ; SUBPROGRAM 0470 ; -------------------------------------------------------------------------------------- 0470 0473 | s | .CONST 0x0473 ; Address of begin 0471 0004 | | .CONST 0x0004 ; Address of exception handler 0472 0001 | | .CONST 0x0001 ; Number of locals 0473 BODY_0470: 0473 INIT_0470: 0473 e7fd | | Load 0x3,-0x3 0474 e7fe | | Load 0x3,-0x2 0475 821b | | Call 0x1,0x1b 0476 e7ff | | Load 0x3,-0x1 0477 821a | | Call 0x1,0x1a 0478 4975 |Iu | Short_Literal 0x175 0479 00eb | | Load_Encached Diana_Cache 047a 0098 | | Execute Package,Field_Read_Dynamic 047b 180f | | Execute Package,Field_Execute,Field_Number 0xf 047c 821c | | Call 0x1,0x1c 047d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 047e 0000 0000 | | .XXX[0x2] 0480 ; -------------------------------------------------------------------------------------- 0480 ; SUBPROGRAM 0480 ; -------------------------------------------------------------------------------------- 0480 0483 | | .CONST 0x0483 ; Address of begin 0481 0004 | | .CONST 0x0004 ; Address of exception handler 0482 0001 | | .CONST 0x0001 ; Number of locals 0483 BODY_0480: 0483 INIT_0480: 0483 e402 | | Load 0x2,0x2 0484 00db | | Load_Top At_Offset_3 0485 00eb | | Load_Encached Diana_Cache 0486 1867 | g | Execute Package,Field_Execute,Field_Number 0x67 0487 c402 | | Store 0x2,0x2 0488 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0489 0000 0000 | | .BLANK 0000[0x7] 0490 ; -------------------------------------------------------------------------------------- 0490 ; SUBPROGRAM 0490 ; -------------------------------------------------------------------------------------- 0490 0493 | | .CONST 0x0493 ; Address of begin 0491 0004 | | .CONST 0x0004 ; Address of exception handler 0492 0001 | | .CONST 0x0001 ; Number of locals 0493 BODY_0490: 0493 INIT_0490: 0493 e402 | | Load 0x2,0x2 0494 00db | | Load_Top At_Offset_3 0495 00eb | | Load_Encached Diana_Cache 0496 1867 | g | Execute Package,Field_Execute,Field_Number 0x67 0497 c402 | | Store 0x2,0x2 0498 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0499 0000 0000 | | .BLANK 0000[0x7] 04a0 ; -------------------------------------------------------------------------------------- 04a0 ; SUBPROGRAM 04a0 ; -------------------------------------------------------------------------------------- 04a0 04a3 | | .CONST 0x04a3 ; Address of begin 04a1 0004 | | .CONST 0x0004 ; Address of exception handler 04a2 0001 | | .CONST 0x0001 ; Number of locals 04a3 BODY_04a0: 04a3 INIT_04a0: 04a3 e00c | | Load 0x0,0xc 04a4 e7fe | | Load 0x3,-0x2 04a5 821b | | Call 0x1,0x1b 04a6 e7ff | | Load 0x3,-0x1 04a7 821a | | Call 0x1,0x1a 04a8 4975 |Iu | Short_Literal 0x175 04a9 00eb | | Load_Encached Diana_Cache 04aa 0098 | | Execute Package,Field_Read_Dynamic 04ab 180f | | Execute Package,Field_Execute,Field_Number 0xf 04ac 821c | | Call 0x1,0x1c 04ad 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04ae 0000 0000 | | .XXX[0x2] 04b0 ; -------------------------------------------------------------------------------------- 04b0 ; SUBPROGRAM 04b0 ; -------------------------------------------------------------------------------------- 04b0 04b3 | | .CONST 0x04b3 ; Address of begin 04b1 0004 | | .CONST 0x0004 ; Address of exception handler 04b2 0001 | | .CONST 0x0001 ; Number of locals 04b3 BODY_04b0: 04b3 INIT_04b0: 04b3 e402 | | Load 0x2,0x2 04b4 00db | | Load_Top At_Offset_3 04b5 00eb | | Load_Encached Diana_Cache 04b6 1867 | g | Execute Package,Field_Execute,Field_Number 0x67 04b7 c402 | | Store 0x2,0x2 04b8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04b9 0000 0000 | | .BLANK 0000[0x7] 04c0 ; -------------------------------------------------------------------------------------- 04c0 ; SUBPROGRAM 04c0 ; -------------------------------------------------------------------------------------- 04c0 04c3 | | .CONST 0x04c3 ; Address of begin 04c1 0004 | | .CONST 0x0004 ; Address of exception handler 04c2 0001 | | .CONST 0x0001 ; Number of locals 04c3 BODY_04c0: 04c3 INIT_04c0: 04c3 e010 | | Load 0x0,0x10 04c4 180e | | Execute Package,Field_Execute,Field_Number 0xe 04c5 4801 |H | Short_Literal 0x1 04c6 0092 0617 | | Action Push_String_Extended,0x617 ; "Failing to establish operator " 04c8 e7ff | | Load 0x3,-0x1 04c9 01cc | | Execute Vector,Catenate 04ca e011 | | Load 0x0,0x11 04cb 1813 | | Execute Package,Field_Execute,Field_Number 0x13 04cc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04cd 0000 0000 | | .XXX[0x3] 04cf 0000 | | 04d0 ; -------------------------------------------------------------------------------------- 04d0 ; SUBPROGRAM 04d0 ; -------------------------------------------------------------------------------------- 04d0 04d3 | | .CONST 0x04d3 ; Address of begin 04d1 04da | | .CONST 0x04da ; Address of exception handler 04d2 0001 | | .CONST 0x0001 ; Number of locals 04d3 BODY_04d0: 04d3 INIT_04d0: 04d3 e5ff | | Load 0x2,-0x1 04d4 4992 |I | Short_Literal 0x192 04d5 00eb | | Load_Encached Diana_Cache 04d6 0098 | | Execute Package,Field_Read_Dynamic 04d7 1c02 | | Execute_Immediate Run_Utility,0x2 04d8 00cb | | Action Pop_Block_With_Result 04d9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04da TRAP_04d0: 04da 010e | | Execute Exception,Is_Constraint_Error 04db 6803 |h | Jump_Zero 0x4df 04dc e5ff | | Load 0x2,-0x1 04dd 8404 | | Call 0x2,0x4 04de 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04df 0100 | | Execute Exception,Raise 04e0 ; -------------------------------------------------------------------------------------- 04e0 ; SUBPROGRAM 04e0 ; -------------------------------------------------------------------------------------- 04e0 04ff | | .CONST 0x04ff ; Address of begin 04e1 0004 | | .CONST 0x0004 ; Address of exception handler 04e2 0006 | | .CONST 0x0006 ; Number of locals 04e3 INIT_04e0: 04e3 4800 |H | Short_Literal 0x0 04e4 e5ff | | Load 0x2,-0x1 04e5 0092 0604 | | Action Push_String_Extended,0x604 ; "_" 04e7 e00e | | Load 0x0,0xe 04e8 181f | | Execute Package,Field_Execute,Field_Number 0x1f 04e9 4800 |H | Short_Literal 0x0 04ea e5ff | | Load 0x2,-0x1 04eb 01dd | | Execute Vector,First 04ec 00da | | Load_Top At_Offset_2 04ed 0aff | | Execute_Immediate Plus,-0x1 04ee 00d8 | | Load_Top At_Offset_0 04ef 00e2 | | Load_Encached Integer_Cache 04f0 0260 | ` | Execute Discrete,In_Type 04f1 7001 |p | Jump_Nonzero 0x4f3 04f2 0801 | | Execute_Immediate Raise,0x1 04f3 e5ff | | Load 0x2,-0x1 04f4 01cf | | Execute Vector,Slice_Read 04f5 0092 0604 | | Action Push_String_Extended,0x604 ; "_" 04f7 e00e | | Load 0x0,0xe 04f8 181f | | Execute Package,Field_Execute,Field_Number 0x1f 04f9 029f 059b | | Declare_Subprogram INIT_0598,For_Call 04fb 029f 05bb | | Declare_Subprogram INIT_05b8,For_Call 04fd 029f 05db | | Declare_Subprogram INIT_05d8,For_Call 04ff BODY_04e0: 04ff 8604 | | Call 0x3,0x4 0500 8605 | | Call 0x3,0x5 0501 8606 | | Call 0x3,0x6 0502 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0503 0000 0000 | | .BLANK 0000[0x5] 0508 ; -------------------------------------------------------------------------------------- 0508 ; SUBPROGRAM 0508 ; -------------------------------------------------------------------------------------- 0508 050b | | .CONST 0x050b ; Address of begin 0509 0004 | | .CONST 0x0004 ; Address of exception handler 050a 0001 | | .CONST 0x0001 ; Number of locals 050b BODY_0508: 050b INIT_0508: 050b e008 | | Load 0x0,0x8 050c e5ff | | Load 0x2,-0x1 050d 8219 | | Call 0x1,0x19 050e 821c | | Call 0x1,0x1c 050f 00ca | | Action Exit_Nullary_Function 0510 ; -------------------------------------------------------------------------------------- 0510 ; SUBPROGRAM 0510 ; -------------------------------------------------------------------------------------- 0510 0513 | | .CONST 0x0513 ; Address of begin 0511 0004 | | .CONST 0x0004 ; Address of exception handler 0512 0001 | | .CONST 0x0001 ; Number of locals 0513 BODY_0510: 0513 INIT_0510: 0513 e5fd | | Load 0x2,-0x3 0514 00db | | Load_Top At_Offset_3 0515 00eb | | Load_Encached Diana_Cache 0516 1867 | g | Execute Package,Field_Execute,Field_Number 0x67 0517 c5fd | | Store 0x2,-0x3 0518 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0519 0000 0000 | | .BLANK 0000[0x7] 0520 ; -------------------------------------------------------------------------------------- 0520 ; SUBPROGRAM 0520 ; -------------------------------------------------------------------------------------- 0520 0523 | # | .CONST 0x0523 ; Address of begin 0521 0004 | | .CONST 0x0004 ; Address of exception handler 0522 0001 | | .CONST 0x0001 ; Number of locals 0523 BODY_0520: 0523 INIT_0520: 0523 e5ff | | Load 0x2,-0x1 0524 00d8 | | Load_Top At_Offset_0 0525 8219 | | Call 0x1,0x19 0526 821c | | Call 0x1,0x1c 0527 00ca | | Action Exit_Nullary_Function 0528 ; -------------------------------------------------------------------------------------- 0528 ; SUBPROGRAM 0528 ; -------------------------------------------------------------------------------------- 0528 052b | + | .CONST 0x052b ; Address of begin 0529 0004 | | .CONST 0x0004 ; Address of exception handler 052a 0001 | | .CONST 0x0001 ; Number of locals 052b BODY_0528: 052b INIT_0528: 052b e5ff | | Load 0x2,-0x1 052c 00d8 | | Load_Top At_Offset_0 052d 821b | | Call 0x1,0x1b 052e 4975 |Iu | Short_Literal 0x175 052f 00eb | | Load_Encached Diana_Cache 0530 0098 | | Execute Package,Field_Read_Dynamic 0531 180e | | Execute Package,Field_Execute,Field_Number 0xe 0532 821c | | Call 0x1,0x1c 0533 00ca | | Action Exit_Nullary_Function 0534 0000 0000 | | .BLANK 0000[0x4] 0538 ; -------------------------------------------------------------------------------------- 0538 ; SUBPROGRAM 0538 ; -------------------------------------------------------------------------------------- 0538 053b | ; | .CONST 0x053b ; Address of begin 0539 0004 | | .CONST 0x0004 ; Address of exception handler 053a 0001 | | .CONST 0x0001 ; Number of locals 053b BODY_0538: 053b INIT_0538: 053b e5fd | | Load 0x2,-0x3 053c 00db | | Load_Top At_Offset_3 053d 00eb | | Load_Encached Diana_Cache 053e 1867 | g | Execute Package,Field_Execute,Field_Number 0x67 053f c5fd | | Store 0x2,-0x3 0540 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0541 0000 0000 | | .BLANK 0000[0x7] 0548 ; -------------------------------------------------------------------------------------- 0548 ; SUBPROGRAM 0548 ; -------------------------------------------------------------------------------------- 0548 054b | K | .CONST 0x054b ; Address of begin 0549 0004 | | .CONST 0x0004 ; Address of exception handler 054a 0001 | | .CONST 0x0001 ; Number of locals 054b BODY_0548: 054b INIT_0548: 054b e5ff | | Load 0x2,-0x1 054c 00d8 | | Load_Top At_Offset_0 054d 8219 | | Call 0x1,0x19 054e 821c | | Call 0x1,0x1c 054f 00ca | | Action Exit_Nullary_Function 0550 ; -------------------------------------------------------------------------------------- 0550 ; SUBPROGRAM 0550 ; -------------------------------------------------------------------------------------- 0550 0553 | S | .CONST 0x0553 ; Address of begin 0551 0004 | | .CONST 0x0004 ; Address of exception handler 0552 0001 | | .CONST 0x0001 ; Number of locals 0553 BODY_0550: 0553 INIT_0550: 0553 e5fd | | Load 0x2,-0x3 0554 00db | | Load_Top At_Offset_3 0555 00eb | | Load_Encached Diana_Cache 0556 1867 | g | Execute Package,Field_Execute,Field_Number 0x67 0557 c5fd | | Store 0x2,-0x3 0558 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0559 0000 0000 | | .BLANK 0000[0x7] 0560 ; -------------------------------------------------------------------------------------- 0560 ; SUBPROGRAM 0560 ; -------------------------------------------------------------------------------------- 0560 0563 | c | .CONST 0x0563 ; Address of begin 0561 0004 | | .CONST 0x0004 ; Address of exception handler 0562 0001 | | .CONST 0x0001 ; Number of locals 0563 BODY_0560: 0563 INIT_0560: 0563 e5ff | | Load 0x2,-0x1 0564 00d8 | | Load_Top At_Offset_0 0565 8219 | | Call 0x1,0x19 0566 821c | | Call 0x1,0x1c 0567 00ca | | Action Exit_Nullary_Function 0568 ; -------------------------------------------------------------------------------------- 0568 ; SUBPROGRAM 0568 ; -------------------------------------------------------------------------------------- 0568 056b | k | .CONST 0x056b ; Address of begin 0569 0004 | | .CONST 0x0004 ; Address of exception handler 056a 0001 | | .CONST 0x0001 ; Number of locals 056b BODY_0568: 056b INIT_0568: 056b e5fd | | Load 0x2,-0x3 056c 00db | | Load_Top At_Offset_3 056d 00eb | | Load_Encached Diana_Cache 056e 1867 | g | Execute Package,Field_Execute,Field_Number 0x67 056f c5fd | | Store 0x2,-0x3 0570 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0571 0000 0000 | | .BLANK 0000[0x7] 0578 ; -------------------------------------------------------------------------------------- 0578 ; SUBPROGRAM 0578 ; -------------------------------------------------------------------------------------- 0578 057b | { | .CONST 0x057b ; Address of begin 0579 0004 | | .CONST 0x0004 ; Address of exception handler 057a 0001 | | .CONST 0x0001 ; Number of locals 057b BODY_0578: 057b INIT_0578: 057b e5ff | | Load 0x2,-0x1 057c e7fe | | Load 0x3,-0x2 057d 821b | | Call 0x1,0x1b 057e e7ff | | Load 0x3,-0x1 057f 821a | | Call 0x1,0x1a 0580 4975 |Iu | Short_Literal 0x175 0581 00eb | | Load_Encached Diana_Cache 0582 0098 | | Execute Package,Field_Read_Dynamic 0583 180f | | Execute Package,Field_Execute,Field_Number 0xf 0584 821c | | Call 0x1,0x1c 0585 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0586 0000 0000 | | .XXX[0x2] 0588 ; -------------------------------------------------------------------------------------- 0588 ; SUBPROGRAM 0588 ; -------------------------------------------------------------------------------------- 0588 058b | | .CONST 0x058b ; Address of begin 0589 0004 | | .CONST 0x0004 ; Address of exception handler 058a 0001 | | .CONST 0x0001 ; Number of locals 058b BODY_0588: 058b INIT_0588: 058b e5fd | | Load 0x2,-0x3 058c 00db | | Load_Top At_Offset_3 058d 00eb | | Load_Encached Diana_Cache 058e 1867 | g | Execute Package,Field_Execute,Field_Number 0x67 058f c5fd | | Store 0x2,-0x3 0590 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0591 0000 0000 | | .BLANK 0000[0x7] 0598 ; -------------------------------------------------------------------------------------- 0598 ; SUBPROGRAM 0598 ; -------------------------------------------------------------------------------------- 0598 05aa | | .CONST 0x05aa ; Address of begin 0599 05b2 | | .CONST 0x05b2 ; Address of exception handler 059a 0002 | | .CONST 0x0002 ; Number of locals 059b INIT_0598: 059b 0092 0618 | | Action Push_String_Extended,0x618 ; "Other_" 059d e603 | | Load 0x3,0x3 059e 0a01 | | Execute_Immediate Plus,0x1 059f 00d8 | | Load_Top At_Offset_0 05a0 00e2 | | Load_Encached Integer_Cache 05a1 0260 | ` | Execute Discrete,In_Type 05a2 7001 |p | Jump_Nonzero 0x5a4 05a3 0801 | | Execute_Immediate Raise,0x1 05a4 e5ff | | Load 0x2,-0x1 05a5 01dc | | Execute Vector,Last 05a6 e5ff | | Load 0x2,-0x1 05a7 01cf | | Execute Vector,Slice_Read 05a8 01cc | | Execute Vector,Catenate 05a9 0007 | | Action Break_Optional 05aa BODY_0598: 05aa 00d8 | | Load_Top At_Offset_0 05ab 4992 |I | Short_Literal 0x192 05ac 00eb | | Load_Encached Diana_Cache 05ad 0098 | | Execute Package,Field_Read_Dynamic 05ae 1c02 | | Execute_Immediate Run_Utility,0x2 05af 00cb | | Action Pop_Block_With_Result 05b0 00cb | | Action Pop_Block_With_Result 05b1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05b2 TRAP_0598: 05b2 010e | | Execute Exception,Is_Constraint_Error 05b3 6803 |h | Jump_Zero 0x5b7 05b4 00d9 | | Load_Top At_Offset_1 05b5 8404 | | Call 0x2,0x4 05b6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05b7 0100 | | Execute Exception,Raise 05b8 ; -------------------------------------------------------------------------------------- 05b8 ; SUBPROGRAM 05b8 ; -------------------------------------------------------------------------------------- 05b8 05c8 | | .CONST 0x05c8 ; Address of begin 05b9 05d0 | | .CONST 0x05d0 ; Address of exception handler 05ba 0002 | | .CONST 0x0002 ; Number of locals 05bb INIT_05b8: 05bb e603 | | Load 0x3,0x3 05bc 0a01 | | Execute_Immediate Plus,0x1 05bd 00d8 | | Load_Top At_Offset_0 05be 00e2 | | Load_Encached Integer_Cache 05bf 0260 | ` | Execute Discrete,In_Type 05c0 7001 |p | Jump_Nonzero 0x5c2 05c1 0801 | | Execute_Immediate Raise,0x1 05c2 e5ff | | Load 0x2,-0x1 05c3 01dc | | Execute Vector,Last 05c4 e5ff | | Load 0x2,-0x1 05c5 01cf | | Execute Vector,Slice_Read 05c6 0335 | 5 | Declare_Variable Array,Duplicate 05c7 00cd | | Action Spare6_Action 05c8 BODY_05b8: 05c8 00d8 | | Load_Top At_Offset_0 05c9 4992 |I | Short_Literal 0x192 05ca 00eb | | Load_Encached Diana_Cache 05cb 0098 | | Execute Package,Field_Read_Dynamic 05cc 1c02 | | Execute_Immediate Run_Utility,0x2 05cd 00cb | | Action Pop_Block_With_Result 05ce 00cb | | Action Pop_Block_With_Result 05cf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05d0 TRAP_05b8: 05d0 010e | | Execute Exception,Is_Constraint_Error 05d1 6803 |h | Jump_Zero 0x5d5 05d2 00d9 | | Load_Top At_Offset_1 05d3 8404 | | Call 0x2,0x4 05d4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05d5 0100 | | Execute Exception,Raise 05d6 0000 0000 | | .XXX[0x2] 05d8 ; -------------------------------------------------------------------------------------- 05d8 ; SUBPROGRAM 05d8 ; -------------------------------------------------------------------------------------- 05d8 05e4 | | .CONST 0x05e4 ; Address of begin 05d9 05f7 | | .CONST 0x05f7 ; Address of exception handler 05da 0002 | | .CONST 0x0002 ; Number of locals 05db INIT_05d8: 05db 0092 0619 | | Action Push_String_Extended,0x619 ; "FLOAT" 05dd e602 | | Load 0x3,0x2 05de e5ff | | Load 0x2,-0x1 05df 01dc | | Execute Vector,Last 05e0 e5ff | | Load 0x2,-0x1 05e1 01cf | | Execute Vector,Slice_Read 05e2 01cc | | Execute Vector,Catenate 05e3 0007 | | Action Break_Optional 05e4 BODY_05d8: 05e4 4801 |H | Short_Literal 0x1 05e5 e5ff | | Load 0x2,-0x1 05e6 0092 061a | | Action Push_String_Extended,0x61a ; "float" 05e8 e00e | | Load 0x0,0xe 05e9 181d | | Execute Package,Field_Execute,Field_Number 0x1d 05ea e5ff | | Load 0x2,-0x1 05eb 01dd | | Execute Vector,First 05ec 027d | } | Execute Discrete,Greater 05ed 6808 |h | Jump_Zero 0x5f6 05ee 00d8 | | Load_Top At_Offset_0 05ef 4992 |I | Short_Literal 0x192 05f0 00eb | | Load_Encached Diana_Cache 05f1 0098 | | Execute Package,Field_Read_Dynamic 05f2 1c02 | | Execute_Immediate Run_Utility,0x2 05f3 00cb | | Action Pop_Block_With_Result 05f4 00cb | | Action Pop_Block_With_Result 05f5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05f6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05f7 TRAP_05d8: 05f7 010e | | Execute Exception,Is_Constraint_Error 05f8 6803 |h | Jump_Zero 0x5fc 05f9 00d9 | | Load_Top At_Offset_1 05fa 8404 | | Call 0x2,0x4 05fb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05fc 0100 | | Execute Exception,Raise 05fd ; -------------------------------------------------------------------------------------- 05fd ; STRING TABLE 05fd ; -------------------------------------------------------------------------------------- 05fd 003e | > | .STRTAB 0x003e->0x061c ; "LEFT" 05fe 0040 | @ | .STRTAB 0x0040->0x061e ; "RIGHT" 05ff 0043 | C | .STRTAB 0x0043->0x0620 ; "UNIVERSAL_INTEGER_" 0600 0053 | S | .STRTAB 0x0053->0x0629 ; "UNIVERSAL_REAL_" 0601 0060 | ` | .STRTAB 0x0060->0x0631 ; "BOOLEAN_" 0602 0066 | f | .STRTAB 0x0066->0x0635 ; "CHARACTER_" 0603 006e | n | .STRTAB 0x006e->0x063a ; "STRING_" 0604 0073 | s | .STRTAB 0x0073->0x063d ; "_" 0605 0072 | r | .STRTAB 0x0072->0x063e ; "EQ" 0606 0072 | r | .STRTAB 0x0072->0x063f ; "LT" 0607 0072 | r | .STRTAB 0x0072->0x0640 ; "GT" 0608 0072 | r | .STRTAB 0x0072->0x0641 ; "LE" 0609 0072 | r | .STRTAB 0x0072->0x0642 ; "GE" 060a 0072 | r | .STRTAB 0x0072->0x0643 ; "ADD" 060b 0073 | s | .STRTAB 0x0073->0x0644 ; "SUB" 060c 0074 | t | .STRTAB 0x0074->0x0646 ; "PLUS" 060d 0076 | v | .STRTAB 0x0076->0x0648 ; "NEG" 060e 0077 | w | .STRTAB 0x0077->0x0649 ; "REM" 060f 0078 | x | .STRTAB 0x0078->0x064b ; "MOD" 0610 0079 | y | .STRTAB 0x0079->0x064c ; "MUL" 0611 007a | z | .STRTAB 0x007a->0x064e ; "DIV" 0612 007b | { | .STRTAB 0x007b->0x064f ; "INTEGER_MUL" 0613 0084 | | .STRTAB 0x0084->0x0655 ; "INTEGER_" 0614 008a | | .STRTAB 0x008a->0x0659 ; "INTEGER_DIV" 0615 0093 | | .STRTAB 0x0093->0x065e ; "ABS" 0616 0094 | | .STRTAB 0x0094->0x0660 ; "EXP" 0617 0095 | | .STRTAB 0x0095->0x0661 ; "Failing to establish operator " 0618 00b1 | | .STRTAB 0x00b1->0x0670 ; "Other_" 0619 00b5 | | .STRTAB 0x00b5->0x0673 ; "FLOAT" 061a 00b8 | | .STRTAB 0x00b8->0x0676 ; "float" 061b 00bb | | .STREND 0x00bb->0x0678 061c 4c45 4654 |LEFT| .STRTAB_STRINGS 0679 0000 0000 | | .BLANK 0000[0x7] 0680 ; -------------------------------------------------------------------------------------- 0680 ; Debug Table 0680 ; -------------------------------------------------------------------------------------- 0680 0004 000d | | .DEBUG4 0x0004,0x000d,0x50b2,0x0000,0x0001,0x0000 0686 2064 3254 | d2T| .XXX[0x38] 0688 0002 a024 | $| 068a 7e34 0000 |~4 | 068c 4015 aa34 |@ 4| 068e 0000 4015 | @ | 0690 aa64 0000 | d | 0692 4015 aa84 |@ | 0694 0000 4015 | @ | 0696 aa94 0000 | | 0698 4015 aaa4 |@ | 069a 0000 4015 | @ | 069c aab4 0000 | | 069e 4015 aac4 |@ | 06a0 0000 4015 | @ | 06a2 aad4 0000 | | 06a4 4015 aae4 |@ | 06a6 0000 4015 | @ | 06a8 ab34 0000 | 4 | 06aa 4015 ab44 |@ D| 06ac 0004 2064 | d| 06ae 3274 0004 |2t | 06b0 2064 3284 | d2 | 06b2 0000 801f | | 06b4 9a64 0000 | d | 06b6 801f 9a74 | t| 06b8 0000 a01f | | 06ba c8c4 0004 | | 06bc 2064 3290 | d2 | 06be 0000 0000 | | .BLANK 0000[0x142]