|
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_6a18da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 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 000c | | .DEBUG4 0x0004,0x000c,0x001c,0x0000,0x0001,0x0000
0686 0000 0000 | | .BLANK 0000[0x17a]