|
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: 6144 (0x1800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6148f2
└─⟦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 0838 | 8 | .CONST 0x0838 ; 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 0005 | | .CONST 0x0005 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00ba | | .CONST 0x00ba ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 003a | : | .CONST 0x003a ; Number of locals
000b INIT_0008:
000b 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e 0007 | | Action Break_Optional
000f 0007 | | Action Break_Optional
0010 0007 | | Action Break_Optional
0011 0007 | | Action Break_Optional
0012 e002 | | Load 0x0,0x2
0013 0007 | | Action Break_Optional
0014 e003 | | Load 0x0,0x3
0015 00d8 | | Load_Top At_Offset_0
0016 e004 | | Load 0x0,0x4
0017 00d8 | | Load_Top At_Offset_0
0018 e004 | | Load 0x0,0x4
0019 00d8 | | Load_Top At_Offset_0
001a 02a0 | | Declare_Subprogram Null_Subprogram
001b 4806 |H | Short_Literal 0x6
001c 032d | - | Declare_Type Record,Defined
001d 00d8 | | Load_Top At_Offset_0
001e 02a0 | | Declare_Subprogram Null_Subprogram
001f 4818 |H | Short_Literal 0x18
0020 03d3 | | Declare_Type Access,Defined,Accesses_Protected
0021 e005 | | Load 0x0,0x5
0022 0266 | f | Execute Discrete,Bounds
0023 00da | | Load_Top At_Offset_2
0024 02a0 | | Declare_Subprogram Null_Subprogram
0025 4801 |H | Short_Literal 0x1
0026 0350 | P | Declare_Type Array,Defined,Bounds_With_Object
0027 00d8 | | Load_Top At_Offset_0
0028 02a0 | | Declare_Subprogram Null_Subprogram
0029 4818 |H | Short_Literal 0x18
002a 03d3 | | Declare_Type Access,Defined,Accesses_Protected
002b a006 | | Store_Unchecked 0x0,0x6
002c 00c6 | | Action Check_Subprogram_Elaborated
002d 00db | | Load_Top At_Offset_3
002e 00db | | Load_Top At_Offset_3
002f e007 | | Load 0x0,0x7
0030 e008 | | Load 0x0,0x8
0031 4800 |H | Short_Literal 0x0
0032 0007 | | Action Break_Optional
0033 029b 039b | | Declare_Subprogram INIT_0398,For_Outer_Call,Unelaborated
0035 e004 | | Load 0x0,0x4
0036 0632 | 2 | Execute_Immediate Set_Value_Unchecked,0x32
0037 e004 | | Load 0x0,0x4
0038 0602 | | Execute_Immediate Set_Value_Unchecked,0x2
0039 e004 | | Load 0x0,0x4
003a 0640 | @ | Execute_Immediate Set_Value_Unchecked,0x40
003b 4800 |H | Short_Literal 0x0
003c 4823 |H# | Short_Literal 0x23
003d e009 | | Load 0x0,0x9
003e 035b | [ | Declare_Type Array,Constrained
003f 0337 | 7 | Declare_Variable Array
0040 4800 |H | Short_Literal 0x0
0041 4823 |H# | Short_Literal 0x23
0042 e009 | | Load 0x0,0x9
0043 035b | [ | Declare_Type Array,Constrained
0044 0337 | 7 | Declare_Variable Array
0045 e004 | | Load 0x0,0x4
0046 0007 | | Action Break_Optional
0047 e00a | | Load 0x0,0xa
0048 0322 | " | Declare_Variable Record
0049 e00a | | Load 0x0,0xa
004a 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
004b 0337 | 7 | Declare_Variable Array
004c 4801 |H | Short_Literal 0x1
004d 481f |H | Short_Literal 0x1f
004e 00da | | Load_Top At_Offset_2
004f 01d6 | | Execute Vector,Field_Write
0050 4801 |H | Short_Literal 0x1
0051 481e |H | Short_Literal 0x1e
0052 00da | | Load_Top At_Offset_2
0053 01d6 | | Execute Vector,Field_Write
0054 481d |H | Short_Literal 0x1d
0055 4800 |H | Short_Literal 0x0
0056 4800 |H | Short_Literal 0x0
0057 00d9 | | Load_Top At_Offset_1
0058 e220 | | Load 0x1,0x20
0059 01d6 | | Execute Vector,Field_Write
005a 3ffb |? | Loop_Increasing 0x56
005b e00a | | Load 0x0,0xa
005c 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
005d 0119 | | Execute Any,Check_In_Formal_Type
005e 00d9 | | Load_Top At_Offset_1
005f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0060 4801 |H | Short_Literal 0x1
0061 00d9 | | Load_Top At_Offset_1
0062 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0063 4801 |H | Short_Literal 0x1
0064 00d9 | | Load_Top At_Offset_1
0065 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0066 e00b | | Load 0x0,0xb
0067 00d9 | | Load_Top At_Offset_1
0068 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0069 e00c | | Load 0x0,0xc
006a 00d9 | | Load_Top At_Offset_1
006b 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
006c 4800 |H | Short_Literal 0x0
006d 00d9 | | Load_Top At_Offset_1
006e 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
006f 4800 |H | Short_Literal 0x0
0070 00d9 | | Load_Top At_Offset_1
0071 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0072 e00b | | Load 0x0,0xb
0073 00d9 | | Load_Top At_Offset_1
0074 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0075 e00c | | Load 0x0,0xc
0076 00d9 | | Load_Top At_Offset_1
0077 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0078 e00d | | Load 0x0,0xd
0079 0007 | | Action Break_Optional
007a e00e | | Load 0x0,0xe
007b 0322 | " | Declare_Variable Record
007c e00f | | Load 0x0,0xf
007d 0007 | | Action Break_Optional
007e e010 | | Load 0x0,0x10
007f 0007 | | Action Break_Optional
0080 e010 | | Load 0x0,0x10
0081 0007 | | Action Break_Optional
0082 e011 | | Load 0x0,0x11
0083 0322 | " | Declare_Variable Record
0084 00e1 | | Load_Encached Boolean_Cache
0085 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0086 00e1 | | Load_Encached Boolean_Cache
0087 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0088 00e1 | | Load_Encached Boolean_Cache
0089 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
008a 00e1 | | Load_Encached Boolean_Cache
008b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
008c 00e1 | | Load_Encached Boolean_Cache
008d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
008e 4800 |H | Short_Literal 0x0
008f 48ff |H | Short_Literal 0xff
0090 e012 | | Load 0x0,0x12
0091 035b | [ | Declare_Type Array,Constrained
0092 0337 | 7 | Declare_Variable Array
0093 00d8 | | Load_Top At_Offset_0
0094 1c00 | | Execute_Immediate Run_Utility,0x0
0095 e212 | | Load 0x1,0x12
0096 0007 | | Action Break_Optional
0097 4800 |H | Short_Literal 0x0
0098 480c |H | Short_Literal 0xc
0099 e013 | | Load 0x0,0x13
009a 0334 | 4 | Declare_Variable Array,With_Constraint
009b 52dc |R | Indirect_Literal Any,0x378,{0x35303078, 0x3530302b}
009c e014 | | Load 0x0,0x14
009d 0007 | | Action Break_Optional
009e e00f | | Load 0x0,0xf
009f 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
00a0 e004 | | Load 0x0,0x4
00a1 0007 | | Action Break_Optional
00a2 e015 | | Load 0x0,0x15
00a3 0322 | " | Declare_Variable Record
00a4 e015 | | Load 0x0,0x15
00a5 0322 | " | Declare_Variable Record
00a6 029d 03eb | | Declare_Subprogram INIT_03e8,For_Outer_Call
00a8 029d 040b | | Declare_Subprogram INIT_0408,For_Outer_Call
00aa 1d18 | | Execute_Immediate Reference_Lex_1,0x18
00ab 00c7 | | Action Elaborate_Subprogram
00ac 029d 0433 | 3| Declare_Subprogram INIT_0430,For_Outer_Call
00ae 029d 045b | [| Declare_Subprogram INIT_0458,For_Outer_Call
00b0 029d 0513 | | Declare_Subprogram INIT_0510,For_Outer_Call
00b2 029d 052b | +| Declare_Subprogram INIT_0528,For_Outer_Call
00b4 029d 05ab | | Declare_Subprogram INIT_05a8,For_Outer_Call
00b6 1d0d | | Execute_Immediate Reference_Lex_1,0xd
00b7 00c7 | | Action Elaborate_Subprogram
00b8 029f 06cb | | Declare_Subprogram INIT_06c8,For_Call
00ba BODY_0008:
00ba 823a | : | Call 0x1,0x3a
00bb 00bc | | Action Signal_Activated
00bc 00bb | | Action Signal_Completion
00bd 0000 0000 | | .XXX[0x3]
00bf 0000 | |
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00f5 | | .CONST 0x00f5 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0014 | | .CONST 0x0014 ; Number of locals
00c3 INIT_00c0:
00c3 e016 | | Load 0x0,0x16
00c4 0007 | | Action Break_Optional
00c5 e016 | | Load 0x0,0x16
00c6 0007 | | Action Break_Optional
00c7 49f4 |I | Short_Literal 0x1f4
00c8 e004 | | Load 0x0,0x4
00c9 03f1 | | Declare_Variable Discrete,With_Value
00ca 49f4 |I | Short_Literal 0x1f4
00cb e004 | | Load 0x0,0x4
00cc 03f1 | | Declare_Variable Discrete,With_Value
00cd e004 | | Load 0x0,0x4
00ce 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00cf e004 | | Load 0x0,0x4
00d0 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00d1 e017 | | Load 0x0,0x17
00d2 0007 | | Action Break_Optional
00d3 e018 | | Load 0x0,0x18
00d4 0322 | " | Declare_Variable Record
00d5 00d8 | | Load_Top At_Offset_0
00d6 1c00 | | Execute_Immediate Run_Utility,0x0
00d7 e019 | | Load 0x0,0x19
00d8 0322 | " | Declare_Variable Record
00d9 00d8 | | Load_Top At_Offset_0
00da 1c00 | | Execute_Immediate Run_Utility,0x0
00db e01a | | Load 0x0,0x1a
00dc 0337 | 7 | Declare_Variable Array
00dd e01b | | Load 0x0,0x1b
00de 0322 | " | Declare_Variable Record
00df 00d8 | | Load_Top At_Offset_0
00e0 1c00 | | Execute_Immediate Run_Utility,0x0
00e1 00e1 | | Load_Encached Boolean_Cache
00e2 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00e3 00e1 | | Load_Encached Boolean_Cache
00e4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00e5 e01c | | Load 0x0,0x1c
00e6 0322 | " | Declare_Variable Record
00e7 00d8 | | Load_Top At_Offset_0
00e8 1c00 | | Execute_Immediate Run_Utility,0x0
00e9 e5ff | | Load 0x2,-0x1
00ea 801d | | Call 0x0,0x1d
00eb e01e | | Load 0x0,0x1e
00ec 02ff | | Declare_Variable Variant_Record
00ed 00d8 | | Load_Top At_Offset_0
00ee 1c00 | | Execute_Immediate Run_Utility,0x0
00ef e004 | | Load 0x0,0x4
00f0 0007 | | Action Break_Optional
00f1 e004 | | Load 0x0,0x4
00f2 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00f3 029f 070b | | Declare_Subprogram INIT_0708,For_Call
00f5 BODY_00c0:
00f5 e5fd | | Load 0x2,-0x3
00f6 a219 | | Store_Unchecked 0x1,0x19
00f7 e5fb | | Load 0x2,-0x5
00f8 a21b | | Store_Unchecked 0x1,0x1b
00f9 e5fc | | Load 0x2,-0x4
00fa a21a | | Store_Unchecked 0x1,0x1a
00fb e5ff | | Load 0x2,-0x1
00fc e016 | | Load 0x0,0x16
00fd 03b6 | | Declare_Variable Access,By_Allocation,With_Value
00fe a402 | | Store_Unchecked 0x2,0x2
00ff e5fe | | Load 0x2,-0x2
0100 e016 | | Load 0x0,0x16
0101 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0102 a403 | | Store_Unchecked 0x2,0x3
0103 e5fa | | Load 0x2,-0x6
0104 a228 | ( | Store_Unchecked 0x1,0x28
0105 e5f9 | | Load 0x2,-0x7
0106 a229 | ) | Store_Unchecked 0x1,0x29
0107 e5f8 | | Load 0x2,-0x8
0108 a22a | * | Store_Unchecked 0x1,0x2a
0109 00cf | | Action Mark_Auxiliary
010a e21c | | Load 0x1,0x1c
010b 01d9 | | Execute Vector,Reverse_Bounds
010c 0007 | | Action Break_Optional
010d e21a | | Load 0x1,0x1a
010e 0237 | 7 | Execute Float,Convert_From_Discrete
010f 00d9 | | Load_Top At_Offset_1
0110 0237 | 7 | Execute Float,Convert_From_Discrete
0111 5a62 |Zb | Indirect_Literal Float,0x374,2.0
0112 023b | ; | Execute Float,Times
0113 5a5c |Z\ | Indirect_Literal Float,0x370,3.141592653589793
0114 023b | ; | Execute Float,Times
0115 5a56 |ZV | Indirect_Literal Float,0x36c,36.0
0116 023a | : | Execute Float,Divide
0117 801f | | Call 0x0,0x1f
0118 023b | ; | Execute Float,Times
0119 0235 | 5 | Execute Float,Round_To_Discrete
011a e004 | | Load 0x0,0x4
011b 025e | ^ | Execute Discrete,Convert
011c 00d9 | | Load_Top At_Offset_1
011d e21c | | Load 0x1,0x1c
011e 01d6 | | Execute Vector,Field_Write
011f e21a | | Load 0x1,0x1a
0120 0237 | 7 | Execute Float,Convert_From_Discrete
0121 00d9 | | Load_Top At_Offset_1
0122 0237 | 7 | Execute Float,Convert_From_Discrete
0123 5a50 |ZP | Indirect_Literal Float,0x374,2.0
0124 023b | ; | Execute Float,Times
0125 5a4a |ZJ | Indirect_Literal Float,0x370,3.141592653589793
0126 023b | ; | Execute Float,Times
0127 5a44 |ZD | Indirect_Literal Float,0x36c,36.0
0128 023a | : | Execute Float,Divide
0129 8020 | | Call 0x0,0x20
012a 023b | ; | Execute Float,Times
012b 0235 | 5 | Execute Float,Round_To_Discrete
012c e004 | | Load 0x0,0x4
012d 025e | ^ | Execute Discrete,Convert
012e 00d9 | | Load_Top At_Offset_1
012f e21d | | Load 0x1,0x1d
0130 01d6 | | Execute Vector,Field_Write
0131 00c8 | | Action Pop_Auxiliary_Range
0132 3fda |? | Loop_Increasing 0x10d
0133 00ce | | Action Pop_Auxiliary
0134 e40f | | Load 0x2,0xf
0135 e00d | | Load 0x0,0xd
0136 e410 | | Load 0x2,0x10
0137 8021 | ! | Call 0x0,0x21
0138 c220 | | Store 0x1,0x20
0139 00d1 | | Pop_Control Pop_Count_1
013a e220 | | Load 0x1,0x20
013b e00d | | Load 0x0,0xd
013c 022f | / | Execute Access,Equal
013d 6809 |h | Jump_Zero 0x147
013e 0092 0810 | | Action Push_String_Extended,0x810 ; "Cannot open display: "
0140 e40f | | Load 0x2,0xf
0141 8022 | " | Call 0x0,0x22
0142 8023 | # | Call 0x0,0x23
0143 01cc | | Execute Vector,Catenate
0144 e024 | $ | Load 0x0,0x24
0145 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0146 08e2 | | Execute_Immediate Raise,0xe2
0147 e220 | | Load 0x1,0x20
0148 8025 | % | Call 0x0,0x25
0149 a222 | " | Store_Unchecked 0x1,0x22
014a 4900 |I | Short_Literal 0x100
014b a21e | | Store_Unchecked 0x1,0x1e
014c e5fa | | Load 0x2,-0x6
014d 680d |h | Jump_Zero 0x15b
014e e222 | " | Load 0x1,0x22
014f e220 | | Load 0x1,0x20
0150 8026 | & | Call 0x0,0x26
0151 a404 | | Store_Unchecked 0x2,0x4
0152 e222 | " | Load 0x1,0x22
0153 e220 | | Load 0x1,0x20
0154 8027 | ' | Call 0x0,0x27
0155 a405 | | Store_Unchecked 0x2,0x5
0156 4800 |H | Short_Literal 0x0
0157 a406 | | Store_Unchecked 0x2,0x6
0158 4800 |H | Short_Literal 0x0
0159 a407 | | Store_Unchecked 0x2,0x7
015a 7801 |x | Jump 0x15c
015b 8414 | | Call 0x2,0x14
015c e222 | " | Load 0x1,0x22
015d e220 | | Load 0x1,0x20
015e 8028 | ( | Call 0x0,0x28
015f a22e | . | Store_Unchecked 0x1,0x2e
0160 e222 | " | Load 0x1,0x22
0161 e220 | | Load 0x1,0x20
0162 8029 | ) | Call 0x0,0x29
0163 a22f | / | Store_Unchecked 0x1,0x2f
0164 e222 | " | Load 0x1,0x22
0165 e220 | | Load 0x1,0x20
0166 802a | * | Call 0x0,0x2a
0167 e225 | % | Load 0x1,0x25
0168 017d | } | Execute Record,Structure_Write
0169 e222 | " | Load 0x1,0x22
016a e220 | | Load 0x1,0x20
016b 802b | + | Call 0x0,0x2b
016c 0c03 | | Execute_Immediate Greater_Equal,0x3
016d 6803 |h | Jump_Zero 0x171
016e e221 | ! | Load 0x1,0x21
016f 8239 | 9 | Call 0x1,0x39
0170 7806 |x | Jump 0x177
0171 4800 |H | Short_Literal 0x0
0172 a226 | & | Store_Unchecked 0x1,0x26
0173 e222 | " | Load 0x1,0x22
0174 e220 | | Load 0x1,0x20
0175 802c | , | Call 0x0,0x2c
0176 a230 | 0 | Store_Unchecked 0x1,0x30
0177 e01a | | Load 0x0,0x1a
0178 0337 | 7 | Declare_Variable Array
0179 4801 |H | Short_Literal 0x1
017a 481e |H | Short_Literal 0x1e
017b 00da | | Load_Top At_Offset_2
017c 01d6 | | Execute Vector,Field_Write
017d 4801 |H | Short_Literal 0x1
017e 4812 |H | Short_Literal 0x12
017f 00da | | Load_Top At_Offset_2
0180 01d6 | | Execute Vector,Field_Write
0181 4811 |H | Short_Literal 0x11
0182 4800 |H | Short_Literal 0x0
0183 4800 |H | Short_Literal 0x0
0184 00d9 | | Load_Top At_Offset_1
0185 e415 | | Load 0x2,0x15
0186 01d6 | | Execute Vector,Field_Write
0187 3ffb |? | Loop_Increasing 0x183
0188 481d |H | Short_Literal 0x1d
0189 4813 |H | Short_Literal 0x13
018a 4800 |H | Short_Literal 0x0
018b 00d9 | | Load_Top At_Offset_1
018c e415 | | Load 0x2,0x15
018d 01d6 | | Execute Vector,Field_Write
018e 3ffb |? | Loop_Increasing 0x18a
018f 4800 |H | Short_Literal 0x0
0190 481f |H | Short_Literal 0x1f
0191 00da | | Load_Top At_Offset_2
0192 01d6 | | Execute Vector,Field_Write
0193 e01a | | Load 0x0,0x1a
0194 01c3 | | Execute Vector,Check_In_Type
0195 e40b | | Load 0x2,0xb
0196 01d4 | | Execute Vector,Structure_Write
0197 e230 | 0 | Load 0x1,0x30
0198 e40c | | Load 0x2,0xc
0199 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
019a e225 | % | Load 0x1,0x25
019b e40c | | Load 0x2,0xc
019c 380d |8 | Execute Record,Field_Write,Field_Number 0xd
019d e40c | | Load 0x2,0xc
019e e40b | | Load 0x2,0xb
019f e22e | . | Load 0x1,0x2e
01a0 4801 |H | Short_Literal 0x1
01a1 e22f | / | Load 0x1,0x2f
01a2 4800 |H | Short_Literal 0x0
01a3 e405 | | Load 0x2,0x5
01a4 00d8 | | Load_Top At_Offset_0
01a5 e02d | - | Load 0x0,0x2d
01a6 0260 | ` | Execute Discrete,In_Type
01a7 7001 |p | Jump_Nonzero 0x1a9
01a8 0801 | | Execute_Immediate Raise,0x1
01a9 00d8 | | Load_Top At_Offset_0
01aa e02e | . | Load 0x0,0x2e
01ab 0260 | ` | Execute Discrete,In_Type
01ac 7001 |p | Jump_Nonzero 0x1ae
01ad 0801 | | Execute_Immediate Raise,0x1
01ae e404 | | Load 0x2,0x4
01af 00d8 | | Load_Top At_Offset_0
01b0 e02d | - | Load 0x0,0x2d
01b1 0260 | ` | Execute Discrete,In_Type
01b2 7001 |p | Jump_Nonzero 0x1b4
01b3 0801 | | Execute_Immediate Raise,0x1
01b4 00d8 | | Load_Top At_Offset_0
01b5 e02e | . | Load 0x0,0x2e
01b6 0260 | ` | Execute Discrete,In_Type
01b7 7001 |p | Jump_Nonzero 0x1b9
01b8 0801 | | Execute_Immediate Raise,0x1
01b9 e407 | | Load 0x2,0x7
01ba 00d8 | | Load_Top At_Offset_0
01bb e02f | / | Load 0x0,0x2f
01bc 0260 | ` | Execute Discrete,In_Type
01bd 7001 |p | Jump_Nonzero 0x1bf
01be 0801 | | Execute_Immediate Raise,0x1
01bf e406 | | Load 0x2,0x6
01c0 00d8 | | Load_Top At_Offset_0
01c1 e02f | / | Load 0x0,0x2f
01c2 0260 | ` | Execute Discrete,In_Type
01c3 7001 |p | Jump_Nonzero 0x1c5
01c4 0801 | | Execute_Immediate Raise,0x1
01c5 e222 | " | Load 0x1,0x22
01c6 e220 | | Load 0x1,0x20
01c7 8030 | 0 | Call 0x0,0x30
01c8 e220 | | Load 0x1,0x20
01c9 8031 | 1 | Call 0x0,0x31
01ca e221 | ! | Load 0x1,0x21
01cb 017d | } | Execute Record,Structure_Write
01cc e032 | 2 | Load 0x0,0x32
01cd 0337 | 7 | Declare_Variable Array
01ce 4801 |H | Short_Literal 0x1
01cf 481d |H | Short_Literal 0x1d
01d0 00da | | Load_Top At_Offset_2
01d1 01d6 | | Execute Vector,Field_Write
01d2 4801 |H | Short_Literal 0x1
01d3 481c |H | Short_Literal 0x1c
01d4 00da | | Load_Top At_Offset_2
01d5 01d6 | | Execute Vector,Field_Write
01d6 481b |H | Short_Literal 0x1b
01d7 4800 |H | Short_Literal 0x0
01d8 4800 |H | Short_Literal 0x0
01d9 00d9 | | Load_Top At_Offset_1
01da e415 | | Load 0x2,0x15
01db 01d6 | | Execute Vector,Field_Write
01dc 3ffb |? | Loop_Increasing 0x1d8
01dd 4800 |H | Short_Literal 0x0
01de 481e |H | Short_Literal 0x1e
01df 00da | | Load_Top At_Offset_2
01e0 01d6 | | Execute Vector,Field_Write
01e1 4800 |H | Short_Literal 0x0
01e2 481f |H | Short_Literal 0x1f
01e3 00da | | Load_Top At_Offset_2
01e4 01d6 | | Execute Vector,Field_Write
01e5 e032 | 2 | Load 0x0,0x32
01e6 01c3 | | Execute Vector,Check_In_Type
01e7 e409 | | Load 0x2,0x9
01e8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01e9 e406 | | Load 0x2,0x6
01ea e409 | | Load 0x2,0x9
01eb 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01ec e407 | | Load 0x2,0x7
01ed e409 | | Load 0x2,0x9
01ee 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01ef e404 | | Load 0x2,0x4
01f0 e409 | | Load 0x2,0x9
01f1 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01f2 e405 | | Load 0x2,0x5
01f3 e409 | | Load 0x2,0x9
01f4 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
01f5 e017 | | Load 0x0,0x17
01f6 e033 | 3 | Load 0x0,0x33
01f7 e21f | | Load 0x1,0x1f
01f8 e409 | | Load 0x2,0x9
01f9 4801 |H | Short_Literal 0x1
01fa 4800 |H | Short_Literal 0x0
01fb e034 | 4 | Load 0x0,0x34
01fc 0334 | 4 | Declare_Variable Array,With_Constraint
01fd 4800 |H | Short_Literal 0x0
01fe 4804 |H | Short_Literal 0x4
01ff e013 | | Load 0x0,0x13
0200 0334 | 4 | Declare_Variable Array,With_Constraint
0201 517e |Q~ | Indirect_Literal Any,0x380,{0x576f726d, 0x73000000}
0202 4800 |H | Short_Literal 0x0
0203 4804 |H | Short_Literal 0x4
0204 e013 | | Load 0x0,0x13
0205 0334 | 4 | Declare_Variable Array,With_Constraint
0206 517d |Q} | Indirect_Literal Any,0x384,{0x576f726d, 0x73000000}
0207 e221 | ! | Load 0x1,0x21
0208 e220 | | Load 0x1,0x20
0209 8035 | 5 | Call 0x0,0x35
020a c408 | | Store 0x2,0x8
020b 4800 |H | Short_Literal 0x0
020c 4800 |H | Short_Literal 0x0
020d 480b |H | Short_Literal 0xb
020e e013 | | Load 0x0,0x13
020f 0334 | 4 | Declare_Variable Array,With_Constraint
0210 5177 |Qw | Indirect_Literal Any,0x388,{0x574d5f50, 0x524f544f}
0211 e220 | | Load 0x1,0x20
0212 8036 | 6 | Call 0x0,0x36
0213 e231 | 1 | Load 0x1,0x31
0214 017d | } | Execute Record,Structure_Write
0215 4800 |H | Short_Literal 0x0
0216 4800 |H | Short_Literal 0x0
0217 480f |H | Short_Literal 0xf
0218 e013 | | Load 0x0,0x13
0219 0334 | 4 | Declare_Variable Array,With_Constraint
021a 5175 |Qu | Indirect_Literal Any,0x390,{0x574d5f44, 0x454c4554}
021b e220 | | Load 0x1,0x20
021c 8036 | 6 | Call 0x0,0x36
021d e232 | 2 | Load 0x1,0x32
021e 017d | } | Execute Record,Structure_Write
021f e017 | | Load 0x0,0x17
0220 4801 |H | Short_Literal 0x1
0221 4801 |H | Short_Literal 0x1
0222 e037 | 7 | Load 0x0,0x37
0223 0334 | 4 | Declare_Variable Array,With_Constraint
0224 e232 | 2 | Load 0x1,0x32
0225 4801 |H | Short_Literal 0x1
0226 00da | | Load_Top At_Offset_2
0227 01d6 | | Execute Vector,Field_Write
0228 e221 | ! | Load 0x1,0x21
0229 e220 | | Load 0x1,0x20
022a 8038 | 8 | Call 0x0,0x38
022b c408 | | Store 0x2,0x8
022c e221 | ! | Load 0x1,0x21
022d e220 | | Load 0x1,0x20
022e 8039 | 9 | Call 0x0,0x39
022f e03a | : | Load 0x0,0x3a
0230 0337 | 7 | Declare_Variable Array
0231 4801 |H | Short_Literal 0x1
0232 4810 |H | Short_Literal 0x10
0233 00da | | Load_Top At_Offset_2
0234 01d6 | | Execute Vector,Field_Write
0235 4801 |H | Short_Literal 0x1
0236 480e |H | Short_Literal 0xe
0237 00da | | Load_Top At_Offset_2
0238 01d6 | | Execute Vector,Field_Write
0239 4801 |H | Short_Literal 0x1
023a 481d |H | Short_Literal 0x1d
023b 00da | | Load_Top At_Offset_2
023c 01d6 | | Execute Vector,Field_Write
023d 4801 |H | Short_Literal 0x1
023e 481f |H | Short_Literal 0x1f
023f 00da | | Load_Top At_Offset_2
0240 01d6 | | Execute Vector,Field_Write
0241 4801 |H | Short_Literal 0x1
0242 480f |H | Short_Literal 0xf
0243 00da | | Load_Top At_Offset_2
0244 01d6 | | Execute Vector,Field_Write
0245 480d |H | Short_Literal 0xd
0246 4800 |H | Short_Literal 0x0
0247 4800 |H | Short_Literal 0x0
0248 00d9 | | Load_Top At_Offset_1
0249 e415 | | Load 0x2,0x15
024a 01d6 | | Execute Vector,Field_Write
024b 3ffb |? | Loop_Increasing 0x247
024c 481c |H | Short_Literal 0x1c
024d 4811 |H | Short_Literal 0x11
024e 4800 |H | Short_Literal 0x0
024f 00d9 | | Load_Top At_Offset_1
0250 e415 | | Load 0x2,0x15
0251 01d6 | | Execute Vector,Field_Write
0252 3ffb |? | Loop_Increasing 0x24e
0253 4800 |H | Short_Literal 0x0
0254 481e |H | Short_Literal 0x1e
0255 00da | | Load_Top At_Offset_2
0256 01d6 | | Execute Vector,Field_Write
0257 e03a | : | Load 0x0,0x3a
0258 01c3 | | Execute Vector,Check_In_Type
0259 e221 | ! | Load 0x1,0x21
025a e220 | | Load 0x1,0x20
025b 803b | ; | Call 0x0,0x3b
025c e03c | < | Load 0x0,0x3c
025d e03d | = | Load 0x0,0x3d
025e e221 | ! | Load 0x1,0x21
025f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0260 e220 | | Load 0x1,0x20
0261 803e | > | Call 0x0,0x3e
0262 a223 | # | Store_Unchecked 0x1,0x23
0263 e03c | < | Load 0x0,0x3c
0264 e03d | = | Load 0x0,0x3d
0265 e221 | ! | Load 0x1,0x21
0266 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0267 e220 | | Load 0x1,0x20
0268 803e | > | Call 0x0,0x3e
0269 a224 | $ | Store_Unchecked 0x1,0x24
026a e222 | " | Load 0x1,0x22
026b e220 | | Load 0x1,0x20
026c 803f | ? | Call 0x0,0x3f
026d e224 | $ | Load 0x1,0x24
026e e220 | | Load 0x1,0x20
026f 8040 | @ | Call 0x0,0x40
0270 4800 |H | Short_Literal 0x0
0271 e21b | | Load 0x1,0x1b
0272 0aff | | Execute_Immediate Plus,-0x1
0273 e212 | | Load 0x1,0x12
0274 03ba | | Declare_Variable Access,By_Allocation,With_Constraint
0275 a22c | , | Store_Unchecked 0x1,0x2c
0276 00cf | | Action Mark_Auxiliary
0277 e22c | , | Load 0x1,0x2c
0278 0227 | ' | Execute Access,All_Reference
0279 01d9 | | Execute Vector,Reverse_Bounds
027a 0263 | c | Execute Discrete,Above_Bound
027b 700a |p | Jump_Nonzero 0x286
027c e219 | | Load 0x1,0x19
027d e405 | | Load 0x2,0x5
027e e404 | | Load 0x2,0x4
027f 8218 | | Call 0x1,0x18
0280 00d9 | | Load_Top At_Offset_1
0281 e22c | , | Load 0x1,0x2c
0282 0227 | ' | Execute Access,All_Reference
0283 01d6 | | Execute Vector,Field_Write
0284 00c8 | | Action Pop_Auxiliary_Range
0285 3ff6 |? | Loop_Increasing 0x27c
0286 00c9 | | Action Pop_Auxiliary_Loop
0287 0007 | | Action Break_Optional
0288 e220 | | Load 0x1,0x20
0289 8041 | A | Call 0x0,0x41
028a 7004 |p | Jump_Nonzero 0x28f
028b e40d | | Load 0x2,0xd
028c 7002 |p | Jump_Nonzero 0x28f
028d e40e | | Load 0x2,0xe
028e 70a4 |p | Jump_Nonzero 0x333
028f e411 | | Load 0x2,0x11
0290 e220 | | Load 0x1,0x20
0291 8042 | B | Call 0x0,0x42
0292 00d1 | | Pop_Control Pop_Count_1
0293 e411 | | Load 0x2,0x11
0294 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0295 0f0f | | Execute_Immediate Equal,0xf
0296 680b |h | Jump_Zero 0x2a2
0297 e411 | | Load 0x2,0x11
0298 260f |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xf
0299 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
029a 0f02 | | Execute_Immediate Equal,0x2
029b 6803 |h | Jump_Zero 0x29f
029c 4800 |H | Short_Literal 0x0
029d a40e | | Store_Unchecked 0x2,0xe
029e 7894 |x | Jump 0x333
029f 4801 |H | Short_Literal 0x1
02a0 a40e | | Store_Unchecked 0x2,0xe
02a1 7891 |x | Jump 0x333
02a2 e411 | | Load 0x2,0x11
02a3 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02a4 0f04 | | Execute_Immediate Equal,0x4
02a5 6806 |h | Jump_Zero 0x2ac
02a6 e411 | | Load 0x2,0x11
02a7 2607 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7
02a8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02a9 0f02 | | Execute_Immediate Equal,0x2
02aa 6888 |h | Jump_Zero 0x333
02ab 4509 |E | Exit_Suprogram New_Top_Offset 0x9
02ac e411 | | Load 0x2,0x11
02ad 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02ae 0f02 | | Execute_Immediate Equal,0x2
02af 680c |h | Jump_Zero 0x2bc
02b0 4800 |H | Short_Literal 0x0
02b1 e411 | | Load 0x2,0x11
02b2 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
02b3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02b4 e220 | | Load 0x1,0x20
02b5 8043 | C | Call 0x0,0x43
02b6 8044 | D | Call 0x0,0x44
02b7 707b |p{ | Jump_Nonzero 0x333
02b8 e40d | | Load 0x2,0xd
02b9 0f00 | | Execute_Immediate Equal,0x0
02ba a40d | | Store_Unchecked 0x2,0xd
02bb 7877 |xw | Jump 0x333
02bc e411 | | Load 0x2,0x11
02bd 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02be 0f16 | | Execute_Immediate Equal,0x16
02bf 6849 |hI | Jump_Zero 0x309
02c0 e411 | | Load 0x2,0x11
02c1 2616 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x16
02c2 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
02c3 a404 | | Store_Unchecked 0x2,0x4
02c4 e411 | | Load 0x2,0x11
02c5 2616 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x16
02c6 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
02c7 a405 | | Store_Unchecked 0x2,0x5
02c8 00cf | | Action Mark_Auxiliary
02c9 e22c | , | Load 0x1,0x2c
02ca 0227 | ' | Execute Access,All_Reference
02cb 01d9 | | Execute Vector,Reverse_Bounds
02cc 0263 | c | Execute Discrete,Above_Bound
02cd 7034 |p4 | Jump_Nonzero 0x302
02ce 00d8 | | Load_Top At_Offset_0
02cf e22c | , | Load 0x1,0x2c
02d0 0229 | ) | Execute Access,All_Read
02d1 01d7 | | Execute Vector,Field_Read
02d2 0229 | ) | Execute Access,All_Read
02d3 00d8 | | Load_Top At_Offset_0
02d4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02d5 e045 | E | Load 0x0,0x45
02d6 e046 | F | Load 0x0,0x46
02d7 a047 | G | Store_Unchecked 0x0,0x47
02d8 8006 | | Call 0x0,0x6
02d9 00d9 | | Load_Top At_Offset_1
02da 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02db 00d1 | | Pop_Control Pop_Count_1
02dc 00d8 | | Load_Top At_Offset_0
02dd e22c | , | Load 0x1,0x2c
02de 0229 | ) | Execute Access,All_Read
02df 01d7 | | Execute Vector,Field_Read
02e0 0229 | ) | Execute Access,All_Read
02e1 00d8 | | Load_Top At_Offset_0
02e2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02e3 e045 | E | Load 0x0,0x45
02e4 e046 | F | Load 0x0,0x46
02e5 a047 | G | Store_Unchecked 0x0,0x47
02e6 8006 | | Call 0x0,0x6
02e7 00d9 | | Load_Top At_Offset_1
02e8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02e9 00d1 | | Pop_Control Pop_Count_1
02ea e22c | , | Load 0x1,0x2c
02eb 0229 | ) | Execute Access,All_Read
02ec 00d9 | | Load_Top At_Offset_1
02ed 00d8 | | Load_Top At_Offset_0
02ee 00da | | Load_Top At_Offset_2
02ef 01d7 | | Execute Vector,Field_Read
02f0 e213 | | Load 0x1,0x13
02f1 e214 | | Load 0x1,0x14
02f2 1d15 | | Execute_Immediate Reference_Lex_1,0x15
02f3 8006 | | Call 0x0,0x6
02f4 00d9 | | Load_Top At_Offset_1
02f5 00db | | Load_Top At_Offset_3
02f6 01d6 | | Execute Vector,Field_Write
02f7 00d2 | | Pop_Control Pop_Count_2
02f8 e219 | | Load 0x1,0x19
02f9 e405 | | Load 0x2,0x5
02fa e404 | | Load 0x2,0x4
02fb 8218 | | Call 0x1,0x18
02fc 00d9 | | Load_Top At_Offset_1
02fd e22c | , | Load 0x1,0x2c
02fe 0227 | ' | Execute Access,All_Reference
02ff 01d6 | | Execute Vector,Field_Write
0300 00c8 | | Action Pop_Auxiliary_Range
0301 3fcc |? | Loop_Increasing 0x2ce
0302 00ce | | Action Pop_Auxiliary
0303 e221 | ! | Load 0x1,0x21
0304 e220 | | Load 0x1,0x20
0305 8048 | H | Call 0x0,0x48
0306 e220 | | Load 0x1,0x20
0307 8049 | I | Call 0x0,0x49
0308 782a |x* | Jump 0x333
0309 e411 | | Load 0x2,0x11
030a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
030b 0f21 | ! | Execute_Immediate Equal,0x21
030c 6810 |h | Jump_Zero 0x31d
030d e411 | | Load 0x2,0x11
030e 2621 |&! | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x21
030f 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0310 e231 | 1 | Load 0x1,0x31
0311 017f | | Execute Record,Equal
0312 6820 |h | Jump_Zero 0x333
0313 4800 |H | Short_Literal 0x0
0314 e411 | | Load 0x2,0x11
0315 2621 |&! | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x21
0316 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0317 804a | J | Call 0x0,0x4a
0318 e232 | 2 | Load 0x1,0x32
0319 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
031a 027f | | Execute Discrete,Equal
031b 6817 |h | Jump_Zero 0x333
031c 4509 |E | Exit_Suprogram New_Top_Offset 0x9
031d e411 | | Load 0x2,0x11
031e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
031f 0f07 | | Execute_Immediate Equal,0x7
0320 6804 |h | Jump_Zero 0x325
0321 e225 | % | Load 0x1,0x25
0322 e220 | | Load 0x1,0x20
0323 804b | K | Call 0x0,0x4b
0324 780e |x | Jump 0x333
0325 e411 | | Load 0x2,0x11
0326 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0327 0f08 | | Execute_Immediate Equal,0x8
0328 6804 |h | Jump_Zero 0x32d
0329 e225 | % | Load 0x1,0x25
032a e220 | | Load 0x1,0x20
032b 804c | L | Call 0x0,0x4c
032c 7806 |x | Jump 0x333
032d e411 | | Load 0x2,0x11
032e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
032f 0f0c | | Execute_Immediate Equal,0xc
0330 6802 |h | Jump_Zero 0x333
0331 4801 |H | Short_Literal 0x1
0332 a40e | | Store_Unchecked 0x2,0xe
0333 e229 | ) | Load 0x1,0x29
0334 6805 |h | Jump_Zero 0x33a
0335 e226 | & | Load 0x1,0x26
0336 6803 |h | Jump_Zero 0x33a
0337 e227 | ' | Load 0x1,0x27
0338 6801 |h | Jump_Zero 0x33a
0339 8234 | 4 | Call 0x1,0x34
033a 00cf | | Action Mark_Auxiliary
033b e22c | , | Load 0x1,0x2c
033c 0227 | ' | Execute Access,All_Reference
033d 01d9 | | Execute Vector,Reverse_Bounds
033e 0263 | c | Execute Discrete,Above_Bound
033f 7017 |p | Jump_Nonzero 0x357
0340 00d8 | | Load_Top At_Offset_0
0341 e21e | | Load 0x1,0x1e
0342 0271 | q | Execute Discrete,Times
0343 e21b | | Load 0x1,0x1b
0344 0270 | p | Execute Discrete,Divide
0345 e413 | | Load 0x2,0x13
0346 0273 | s | Execute Discrete,Plus
0347 e21e | | Load 0x1,0x1e
0348 026f | o | Execute Discrete,Remainder
0349 c412 | | Store 0x2,0x12
034a e412 | | Load 0x2,0x12
034b e22b | + | Load 0x1,0x2b
034c 01d5 | | Execute Vector,Field_Reference
034d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
034e e405 | | Load 0x2,0x5
034f e404 | | Load 0x2,0x4
0350 00db | | Load_Top At_Offset_3
0351 e22c | , | Load 0x1,0x2c
0352 0227 | ' | Execute Access,All_Reference
0353 01d7 | | Execute Vector,Field_Read
0354 8236 | 6 | Call 0x1,0x36
0355 00c8 | | Action Pop_Auxiliary_Range
0356 3fe9 |? | Loop_Increasing 0x340
0357 00ce | | Action Pop_Auxiliary
0358 e22a | * | Load 0x1,0x2a
0359 680a |h | Jump_Zero 0x364
035a 00da | | Load_Top At_Offset_2
035b 600c |` | Indirect_Literal Discrete,0x368,{0x00000000, 0x7fffffff}
035c 027f | | Execute Discrete,Equal
035d 6803 |h | Jump_Zero 0x361
035e 4800 |H | Short_Literal 0x0
035f 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0360 7803 |x | Jump 0x364
0361 00da | | Load_Top At_Offset_2
0362 0a01 | | Execute_Immediate Plus,0x1
0363 005b | [ | Store_Top Discrete,At_Offset_3
0364 00c9 | | Action Pop_Auxiliary_Loop
0365 7f22 | " | Jump 0x288
0366 0000 0000 | | .XXX[0x2]
0368 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
036c 4042 0000 |@B | .DBL 36.0
036e 0000 0000 | |
0370 4009 21fb |@ ! | .DBL 3.141592653589793
0372 5444 2d18 |TD- |
0374 4000 0000 |@ | .DBL 2.0
0376 0000 0000 | |
0378 3530 3078 |500x| .LITERAL {0x35303078, 0x3530302b}
037c 3130 2b31 |10+1| .XXX[0x4]
037e 3000 0000 |0 |
0380 576f 726d |Worm| .LITERAL {0x576f726d, 0x73000000}
0384 576f 726d |Worm| .LITERAL {0x576f726d, 0x73000000}
0388 574d 5f50 |WM_P| .LITERAL {0x574d5f50, 0x524f544f}
038c 434f 4c53 |COLS| .XXX[0x4]
038e 0000 0000 | |
0390 574d 5f44 |WM_D| .LITERAL {0x574d5f44, 0x454c4554}
0394 455f 5749 |E_WI| .XXX[0x4]
0396 4e44 4f57 |NDOW|
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 039d | | .CONST 0x039d ; Address of begin
0399 0004 | | .CONST 0x0004 ; Address of exception handler
039a 0002 | | .CONST 0x0002 ; Number of locals
039b INIT_0398:
039b e210 | | Load 0x1,0x10
039c 03bc | | Declare_Variable Access,By_Allocation
039d BODY_0398:
039d e5fd | | Load 0x2,-0x3
039e 0c01 | | Execute_Immediate Greater_Equal,0x1
039f 682b |h+ | Jump_Zero 0x3cb
03a0 4800 |H | Short_Literal 0x0
03a1 e5fd | | Load 0x2,-0x3
03a2 0aff | | Execute_Immediate Plus,-0x1
03a3 e003 | | Load 0x0,0x3
03a4 03ba | | Declare_Variable Access,By_Allocation,With_Constraint
03a5 00d9 | | Load_Top At_Offset_1
03a6 0227 | ' | Execute Access,All_Reference
03a7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
03a8 4800 |H | Short_Literal 0x0
03a9 e5fd | | Load 0x2,-0x3
03aa 0aff | | Execute_Immediate Plus,-0x1
03ab e003 | | Load 0x0,0x3
03ac 03ba | | Declare_Variable Access,By_Allocation,With_Constraint
03ad 00d9 | | Load_Top At_Offset_1
03ae 0227 | ' | Execute Access,All_Reference
03af 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
03b0 00cf | | Action Mark_Auxiliary
03b1 00d9 | | Load_Top At_Offset_1
03b2 0227 | ' | Execute Access,All_Reference
03b3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03b4 0227 | ' | Execute Access,All_Reference
03b5 01d9 | | Execute Vector,Reverse_Bounds
03b6 0263 | c | Execute Discrete,Above_Bound
03b7 7012 |p | Jump_Nonzero 0x3ca
03b8 e5ff | | Load 0x2,-0x1
03b9 09ff | | Execute_Immediate Binary_Scale,-0x1
03ba 00d9 | | Load_Top At_Offset_1
03bb e402 | | Load 0x2,0x2
03bc 0227 | ' | Execute Access,All_Reference
03bd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03be 0227 | ' | Execute Access,All_Reference
03bf 01d6 | | Execute Vector,Field_Write
03c0 e5fe | | Load 0x2,-0x2
03c1 09ff | | Execute_Immediate Binary_Scale,-0x1
03c2 00d9 | | Load_Top At_Offset_1
03c3 e402 | | Load 0x2,0x2
03c4 0227 | ' | Execute Access,All_Reference
03c5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03c6 0227 | ' | Execute Access,All_Reference
03c7 01d6 | | Execute Vector,Field_Write
03c8 00c8 | | Action Pop_Auxiliary_Range
03c9 3fee |? | Loop_Increasing 0x3b8
03ca 00ce | | Action Pop_Auxiliary
03cb 8233 | 3 | Call 0x1,0x33
03cc 4824 |H$ | Short_Literal 0x24
03cd 026f | o | Execute Discrete,Remainder
03ce 00d9 | | Load_Top At_Offset_1
03cf 0227 | ' | Execute Access,All_Reference
03d0 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
03d1 4800 |H | Short_Literal 0x0
03d2 00d9 | | Load_Top At_Offset_1
03d3 0227 | ' | Execute Access,All_Reference
03d4 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
03d5 00db | | Load_Top At_Offset_3
03d6 09ff | | Execute_Immediate Binary_Scale,-0x1
03d7 00d9 | | Load_Top At_Offset_1
03d8 0227 | ' | Execute Access,All_Reference
03d9 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
03da e5fe | | Load 0x2,-0x2
03db 09ff | | Execute_Immediate Binary_Scale,-0x1
03dc 00d9 | | Load_Top At_Offset_1
03dd 0227 | ' | Execute Access,All_Reference
03de 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
03df 00d8 | | Load_Top At_Offset_0
03e0 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
03e1 0000 0000 | | .BLANK 0000[0x7]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03ee | | .CONST 0x03ee ; Address of begin
03e9 0004 | | .CONST 0x0004 ; Address of exception handler
03ea 0003 | | .CONST 0x0003 ; Number of locals
03eb INIT_03e8:
03eb e004 | | Load 0x0,0x4
03ec 0007 | | Action Break_Optional
03ed 00e6 | | Load_Encached Float_Cache
03ee BODY_03e8:
03ee e20e | | Load 0x1,0xe
03ef 804d | M | Call 0x0,0x4d
03f0 0041 | A | Store_Top_Unchecked Float,At_Offset_1
03f1 7800 |x | Jump 0x3f2
03f2 5809 |X | Indirect_Literal Float,0x3fc,1073741823.0
03f3 00d9 | | Load_Top At_Offset_1
03f4 023b | ; | Execute Float,Times
03f5 0235 | 5 | Execute Float,Round_To_Discrete
03f6 e004 | | Load 0x0,0x4
03f7 025e | ^ | Execute Discrete,Convert
03f8 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
03f9 00d9 | | Load_Top At_Offset_1
03fa 00ca | | Action Exit_Nullary_Function
03fb 0000 | | .XXX[0x1]
03fc 41cf ffff |A | .DBL 1073741823.0
03fe ff80 0000 | |
0400 430f ffff |C | .XXX[0x4]
0402 ffff fff8 | |
0404 0000 0000 | | .BLANK 0000[0x4]
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 040d | | .CONST 0x040d ; Address of begin
0409 0004 | | .CONST 0x0004 ; Address of exception handler
040a 0002 | | .CONST 0x0002 ; Number of locals
040b INIT_0408:
040b e004 | | Load 0x0,0x4
040c 0007 | | Action Break_Optional
040d BODY_0408:
040d 4801 |H | Short_Literal 0x1
040e e22b | + | Load 0x1,0x2b
040f 01d5 | | Execute Vector,Field_Reference
0410 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0411 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0412 00cf | | Action Mark_Auxiliary
0413 e21e | | Load 0x1,0x1e
0414 0afe | | Execute_Immediate Plus,-0x2
0415 4801 |H | Short_Literal 0x1
0416 0263 | c | Execute Discrete,Above_Bound
0417 700b |p | Jump_Nonzero 0x423
0418 00d8 | | Load_Top At_Offset_0
0419 0a01 | | Execute_Immediate Plus,0x1
041a e22b | + | Load 0x1,0x2b
041b 01d5 | | Execute Vector,Field_Reference
041c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
041d 00d9 | | Load_Top At_Offset_1
041e e22b | + | Load 0x1,0x2b
041f 01d5 | | Execute Vector,Field_Reference
0420 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0421 00c8 | | Action Pop_Auxiliary_Range
0422 3ff5 |? | Loop_Increasing 0x418
0423 00ce | | Action Pop_Auxiliary
0424 00d8 | | Load_Top At_Offset_0
0425 e21e | | Load 0x1,0x1e
0426 0aff | | Execute_Immediate Plus,-0x1
0427 e22b | + | Load 0x1,0x2b
0428 01d5 | | Execute Vector,Field_Reference
0429 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
042a e22b | + | Load 0x1,0x2b
042b e225 | % | Load 0x1,0x25
042c e220 | | Load 0x1,0x20
042d 804e | N | Call 0x0,0x4e
042e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
042f 0000 | | .XXX[0x1]
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 e223 | # | Load 0x1,0x23
0435 e220 | | Load 0x1,0x20
0436 8040 | @ | Call 0x0,0x40
0437 e21a | | Load 0x1,0x1a
0438 00d8 | | Load_Top At_Offset_0
0439 e02d | - | Load 0x0,0x2d
043a 0260 | ` | Execute Discrete,In_Type
043b 7001 |p | Jump_Nonzero 0x43d
043c 0801 | | Execute_Immediate Raise,0x1
043d e21a | | Load 0x1,0x1a
043e 00d8 | | Load_Top At_Offset_0
043f e02d | - | Load 0x0,0x2d
0440 0260 | ` | Execute Discrete,In_Type
0441 7001 |p | Jump_Nonzero 0x443
0442 0801 | | Execute_Immediate Raise,0x1
0443 e5fe | | Load 0x2,-0x2
0444 00d8 | | Load_Top At_Offset_0
0445 e02f | / | Load 0x0,0x2f
0446 0260 | ` | Execute Discrete,In_Type
0447 7001 |p | Jump_Nonzero 0x449
0448 0801 | | Execute_Immediate Raise,0x1
0449 e5ff | | Load 0x2,-0x1
044a 00d8 | | Load_Top At_Offset_0
044b e02f | / | Load 0x0,0x2f
044c 0260 | ` | Execute Discrete,In_Type
044d 7001 |p | Jump_Nonzero 0x44f
044e 0801 | | Execute_Immediate Raise,0x1
044f e223 | # | Load 0x1,0x23
0450 e221 | ! | Load 0x1,0x21
0451 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0452 e220 | | Load 0x1,0x20
0453 804f | O | Call 0x0,0x4f
0454 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0455 0000 0000 | | .XXX[0x3]
0457 0000 | |
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 045f | _ | .CONST 0x045f ; Address of begin
0459 0004 | | .CONST 0x0004 ; Address of exception handler
045a 0003 | | .CONST 0x0003 ; Number of locals
045b INIT_0458:
045b e004 | | Load 0x0,0x4
045c 0007 | | Action Break_Optional
045d e004 | | Load 0x0,0x4
045e 0007 | | Action Break_Optional
045f BODY_0458:
045f e219 | | Load 0x1,0x19
0460 0c01 | | Execute_Immediate Greater_Equal,0x1
0461 6837 |h7 | Jump_Zero 0x499
0462 e5ff | | Load 0x2,-0x1
0463 0227 | ' | Execute Access,All_Reference
0464 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0465 0a01 | | Execute_Immediate Plus,0x1
0466 e219 | | Load 0x1,0x19
0467 026f | o | Execute Discrete,Remainder
0468 e5ff | | Load 0x2,-0x1
0469 0227 | ' | Execute Access,All_Reference
046a 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
046b e5ff | | Load 0x2,-0x1
046c 0227 | ' | Execute Access,All_Reference
046d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
046e e5ff | | Load 0x2,-0x1
046f 0227 | ' | Execute Access,All_Reference
0470 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0471 0227 | ' | Execute Access,All_Reference
0472 01d7 | | Execute Vector,Field_Read
0473 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0474 e5ff | | Load 0x2,-0x1
0475 0227 | ' | Execute Access,All_Reference
0476 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0477 e5ff | | Load 0x2,-0x1
0478 0227 | ' | Execute Access,All_Reference
0479 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
047a 0227 | ' | Execute Access,All_Reference
047b 01d7 | | Execute Vector,Field_Read
047c 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
047d 4800 |H | Short_Literal 0x0
047e e21a | | Load 0x1,0x1a
047f 00d8 | | Load_Top At_Offset_0
0480 e02d | - | Load 0x0,0x2d
0481 0260 | ` | Execute Discrete,In_Type
0482 7001 |p | Jump_Nonzero 0x484
0483 0801 | | Execute_Immediate Raise,0x1
0484 e21a | | Load 0x1,0x1a
0485 00d8 | | Load_Top At_Offset_0
0486 e02d | - | Load 0x0,0x2d
0487 0260 | ` | Execute Discrete,In_Type
0488 7001 |p | Jump_Nonzero 0x48a
0489 0801 | | Execute_Immediate Raise,0x1
048a 00db | | Load_Top At_Offset_3
048b 00d8 | | Load_Top At_Offset_0
048c e02f | / | Load 0x0,0x2f
048d 0260 | ` | Execute Discrete,In_Type
048e 7001 |p | Jump_Nonzero 0x490
048f 0801 | | Execute_Immediate Raise,0x1
0490 e402 | | Load 0x2,0x2
0491 00d8 | | Load_Top At_Offset_0
0492 e02f | / | Load 0x0,0x2f
0493 0260 | ` | Execute Discrete,In_Type
0494 7001 |p | Jump_Nonzero 0x496
0495 0801 | | Execute_Immediate Raise,0x1
0496 e221 | ! | Load 0x1,0x21
0497 e220 | | Load 0x1,0x20
0498 8050 | P | Call 0x0,0x50
0499 8233 | 3 | Call 0x1,0x33
049a 4802 |H | Short_Literal 0x2
049b 026f | o | Execute Discrete,Remainder
049c 680a |h | Jump_Zero 0x4a7
049d e5ff | | Load 0x2,-0x1
049e 0227 | ' | Execute Access,All_Reference
049f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04a0 0a01 | | Execute_Immediate Plus,0x1
04a1 4824 |H$ | Short_Literal 0x24
04a2 026f | o | Execute Discrete,Remainder
04a3 e5ff | | Load 0x2,-0x1
04a4 0227 | ' | Execute Access,All_Reference
04a5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
04a6 7809 |x | Jump 0x4b0
04a7 e5ff | | Load 0x2,-0x1
04a8 0227 | ' | Execute Access,All_Reference
04a9 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04aa 0a23 | # | Execute_Immediate Plus,0x23
04ab 4824 |H$ | Short_Literal 0x24
04ac 026f | o | Execute Discrete,Remainder
04ad e5ff | | Load 0x2,-0x1
04ae 0227 | ' | Execute Access,All_Reference
04af 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
04b0 e5ff | | Load 0x2,-0x1
04b1 0227 | ' | Execute Access,All_Reference
04b2 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
04b3 e5ff | | Load 0x2,-0x1
04b4 0227 | ' | Execute Access,All_Reference
04b5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04b6 e21d | | Load 0x1,0x1d
04b7 01d7 | | Execute Vector,Field_Read
04b8 0273 | s | Execute Discrete,Plus
04b9 e5fe | | Load 0x2,-0x2
04ba 0273 | s | Execute Discrete,Plus
04bb e5fe | | Load 0x2,-0x2
04bc 026f | o | Execute Discrete,Remainder
04bd 005a | Z | Store_Top Discrete,At_Offset_2
04be e5ff | | Load 0x2,-0x1
04bf 0227 | ' | Execute Access,All_Reference
04c0 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
04c1 e5ff | | Load 0x2,-0x1
04c2 0227 | ' | Execute Access,All_Reference
04c3 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04c4 e21c | | Load 0x1,0x1c
04c5 01d7 | | Execute Vector,Field_Read
04c6 0273 | s | Execute Discrete,Plus
04c7 e5fd | | Load 0x2,-0x3
04c8 0273 | s | Execute Discrete,Plus
04c9 e5fd | | Load 0x2,-0x3
04ca 026f | o | Execute Discrete,Remainder
04cb 0059 | Y | Store_Top Discrete,At_Offset_1
04cc e219 | | Load 0x1,0x19
04cd 0c01 | | Execute_Immediate Greater_Equal,0x1
04ce 6812 |h | Jump_Zero 0x4e1
04cf 00d9 | | Load_Top At_Offset_1
04d0 e5ff | | Load 0x2,-0x1
04d1 0227 | ' | Execute Access,All_Reference
04d2 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
04d3 e5ff | | Load 0x2,-0x1
04d4 0227 | ' | Execute Access,All_Reference
04d5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04d6 0227 | ' | Execute Access,All_Reference
04d7 01d6 | | Execute Vector,Field_Write
04d8 00d8 | | Load_Top At_Offset_0
04d9 e5ff | | Load 0x2,-0x1
04da 0227 | ' | Execute Access,All_Reference
04db 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
04dc e5ff | | Load 0x2,-0x1
04dd 0227 | ' | Execute Access,All_Reference
04de 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04df 0227 | ' | Execute Access,All_Reference
04e0 01d6 | | Execute Vector,Field_Write
04e1 e226 | & | Load 0x1,0x26
04e2 6805 |h | Jump_Zero 0x4e8
04e3 e5fc | | Load 0x2,-0x4
04e4 00d9 | | Load_Top At_Offset_1
04e5 00db | | Load_Top At_Offset_3
04e6 8235 | 5 | Call 0x1,0x35
04e7 781d |x | Jump 0x505
04e8 e21a | | Load 0x1,0x1a
04e9 00d8 | | Load_Top At_Offset_0
04ea e02d | - | Load 0x0,0x2d
04eb 0260 | ` | Execute Discrete,In_Type
04ec 7001 |p | Jump_Nonzero 0x4ee
04ed 0801 | | Execute_Immediate Raise,0x1
04ee e21a | | Load 0x1,0x1a
04ef 00d8 | | Load_Top At_Offset_0
04f0 e02d | - | Load 0x0,0x2d
04f1 0260 | ` | Execute Discrete,In_Type
04f2 7001 |p | Jump_Nonzero 0x4f4
04f3 0801 | | Execute_Immediate Raise,0x1
04f4 00da | | Load_Top At_Offset_2
04f5 00d8 | | Load_Top At_Offset_0
04f6 e02f | / | Load 0x0,0x2f
04f7 0260 | ` | Execute Discrete,In_Type
04f8 7001 |p | Jump_Nonzero 0x4fa
04f9 0801 | | Execute_Immediate Raise,0x1
04fa e402 | | Load 0x2,0x2
04fb 00d8 | | Load_Top At_Offset_0
04fc e02f | / | Load 0x0,0x2f
04fd 0260 | ` | Execute Discrete,In_Type
04fe 7001 |p | Jump_Nonzero 0x500
04ff 0801 | | Execute_Immediate Raise,0x1
0500 e224 | $ | Load 0x1,0x24
0501 e221 | ! | Load 0x1,0x21
0502 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0503 e220 | | Load 0x1,0x20
0504 804f | O | Call 0x0,0x4f
0505 00d9 | | Load_Top At_Offset_1
0506 e5ff | | Load 0x2,-0x1
0507 0227 | ' | Execute Access,All_Reference
0508 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0509 00d8 | | Load_Top At_Offset_0
050a e5ff | | Load 0x2,-0x1
050b 0227 | ' | Execute Access,All_Reference
050c 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
050d 4505 |E | Exit_Suprogram New_Top_Offset 0x5
050e 0000 0000 | | .XXX[0x2]
0510 ; --------------------------------------------------------------------------------------
0510 ; SUBPROGRAM
0510 ; --------------------------------------------------------------------------------------
0510 0519 | | .CONST 0x0519 ; Address of begin
0511 0004 | | .CONST 0x0004 ; Address of exception handler
0512 0002 | | .CONST 0x0002 ; Number of locals
0513 INIT_0510:
0513 00da | | Load_Top At_Offset_2
0514 0235 | 5 | Execute Float,Round_To_Discrete
0515 e004 | | Load 0x0,0x4
0516 025e | ^ | Execute Discrete,Convert
0517 e004 | | Load 0x0,0x4
0518 03f1 | | Declare_Variable Discrete,With_Value
0519 BODY_0510:
0519 00d8 | | Load_Top At_Offset_0
051a 0237 | 7 | Execute Float,Convert_From_Discrete
051b e5ff | | Load 0x2,-0x1
051c 0245 | E | Execute Float,Greater
051d 6808 |h | Jump_Zero 0x526
051e 00d8 | | Load_Top At_Offset_0
051f 0aff | | Execute_Immediate Plus,-0x1
0520 00d8 | | Load_Top At_Offset_0
0521 e004 | | Load 0x0,0x4
0522 0260 | ` | Execute Discrete,In_Type
0523 7001 |p | Jump_Nonzero 0x525
0524 0801 | | Execute_Immediate Raise,0x1
0525 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0526 00d8 | | Load_Top At_Offset_0
0527 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0528 ; --------------------------------------------------------------------------------------
0528 ; SUBPROGRAM
0528 ; --------------------------------------------------------------------------------------
0528 0534 | 4 | .CONST 0x0534 ; Address of begin
0529 0004 | | .CONST 0x0004 ; Address of exception handler
052a 0007 | | .CONST 0x0007 ; Number of locals
052b INIT_0528:
052b 00da | | Load_Top At_Offset_2
052c 00e6 | | Load_Encached Float_Cache
052d 03df | | Declare_Variable Float,With_Value
052e 00e6 | | Load_Encached Float_Cache
052f 00e6 | | Load_Encached Float_Cache
0530 00e6 | | Load_Encached Float_Cache
0531 00e6 | | Load_Encached Float_Cache
0532 e004 | | Load 0x0,0x4
0533 0007 | | Action Break_Optional
0534 BODY_0528:
0534 e5fe | | Load 0x2,-0x2
0535 7007 |p | Jump_Nonzero 0x53d
0536 e5fd | | Load 0x2,-0x3
0537 a5fc | | Store_Unchecked 0x2,-0x4
0538 e5fd | | Load 0x2,-0x3
0539 a5fb | | Store_Unchecked 0x2,-0x5
053a e5fd | | Load 0x2,-0x3
053b a5fa | | Store_Unchecked 0x2,-0x6
053c 4504 |E | Exit_Suprogram New_Top_Offset 0x4
053d e402 | | Load 0x2,0x2
053e 00d8 | | Load_Top At_Offset_0
053f 8237 | 7 | Call 0x1,0x37
0540 0237 | 7 | Execute Float,Convert_From_Discrete
0541 023c | < | Execute Float,Minus
0542 a402 | | Store_Unchecked 0x2,0x2
0543 e402 | | Load 0x2,0x2
0544 585f |X_ | Indirect_Literal Float,0x5a4,6.0
0545 023b | ; | Execute Float,Times
0546 a402 | | Store_Unchecked 0x2,0x2
0547 e402 | | Load 0x2,0x2
0548 8237 | 7 | Call 0x1,0x37
0549 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
054a e402 | | Load 0x2,0x2
054b 00d9 | | Load_Top At_Offset_1
054c 0237 | 7 | Execute Float,Convert_From_Discrete
054d 023c | < | Execute Float,Minus
054e a403 | | Store_Unchecked 0x2,0x3
054f e5fd | | Load 0x2,-0x3
0550 584f |XO | Indirect_Literal Float,0x5a0,1.0
0551 e5fe | | Load 0x2,-0x2
0552 023c | < | Execute Float,Minus
0553 023b | ; | Execute Float,Times
0554 a404 | | Store_Unchecked 0x2,0x4
0555 e5fd | | Load 0x2,-0x3
0556 5849 |XI | Indirect_Literal Float,0x5a0,1.0
0557 e5fe | | Load 0x2,-0x2
0558 e403 | | Load 0x2,0x3
0559 023b | ; | Execute Float,Times
055a 023c | < | Execute Float,Minus
055b 023b | ; | Execute Float,Times
055c 0043 | C | Store_Top_Uncheched Float,At_Offset_3
055d e5fd | | Load 0x2,-0x3
055e 5841 |XA | Indirect_Literal Float,0x5a0,1.0
055f e5fe | | Load 0x2,-0x2
0560 583f |X? | Indirect_Literal Float,0x5a0,1.0
0561 e403 | | Load 0x2,0x3
0562 023c | < | Execute Float,Minus
0563 023b | ; | Execute Float,Times
0564 023c | < | Execute Float,Minus
0565 023b | ; | Execute Float,Times
0566 0042 | B | Store_Top_Unchecked Float,At_Offset_2
0567 00d8 | | Load_Top At_Offset_0
0568 00d8 | | Load_Top At_Offset_0
0569 4800 |H | Short_Literal 0x0
056a 4805 |H | Short_Literal 0x5
056b 0262 | b | Execute Discrete,In_Range
056c 6831 |h1 | Jump_Zero 0x59e
056d 4605 |F | Jump_Case 0x6
056e 780c |x | Jump 0x57b ; case 0x0
056f 7812 |x | Jump 0x582 ; case 0x1
0570 7818 |x | Jump 0x589 ; case 0x2
0571 781e |x | Jump 0x590 ; case 0x3
0572 7824 |x$ | Jump 0x597 ; case 0x4
0573 7800 |x | Jump 0x574 ; case 0x5
0574 e5fd | | Load 0x2,-0x3
0575 a5fc | | Store_Unchecked 0x2,-0x4
0576 00db | | Load_Top At_Offset_3
0577 a5fb | | Store_Unchecked 0x2,-0x5
0578 00da | | Load_Top At_Offset_2
0579 a5fa | | Store_Unchecked 0x2,-0x6
057a 4504 |E | Exit_Suprogram New_Top_Offset 0x4
057b e5fd | | Load 0x2,-0x3
057c a5fc | | Store_Unchecked 0x2,-0x4
057d 00d9 | | Load_Top At_Offset_1
057e a5fb | | Store_Unchecked 0x2,-0x5
057f 00db | | Load_Top At_Offset_3
0580 a5fa | | Store_Unchecked 0x2,-0x6
0581 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0582 00da | | Load_Top At_Offset_2
0583 a5fc | | Store_Unchecked 0x2,-0x4
0584 e5fd | | Load 0x2,-0x3
0585 a5fb | | Store_Unchecked 0x2,-0x5
0586 00db | | Load_Top At_Offset_3
0587 a5fa | | Store_Unchecked 0x2,-0x6
0588 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0589 00db | | Load_Top At_Offset_3
058a a5fc | | Store_Unchecked 0x2,-0x4
058b e5fd | | Load 0x2,-0x3
058c a5fb | | Store_Unchecked 0x2,-0x5
058d 00d9 | | Load_Top At_Offset_1
058e a5fa | | Store_Unchecked 0x2,-0x6
058f 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0590 00db | | Load_Top At_Offset_3
0591 a5fc | | Store_Unchecked 0x2,-0x4
0592 00da | | Load_Top At_Offset_2
0593 a5fb | | Store_Unchecked 0x2,-0x5
0594 e5fd | | Load 0x2,-0x3
0595 a5fa | | Store_Unchecked 0x2,-0x6
0596 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0597 00d9 | | Load_Top At_Offset_1
0598 a5fc | | Store_Unchecked 0x2,-0x4
0599 00db | | Load_Top At_Offset_3
059a a5fb | | Store_Unchecked 0x2,-0x5
059b e5fd | | Load 0x2,-0x3
059c a5fa | | Store_Unchecked 0x2,-0x6
059d 4504 |E | Exit_Suprogram New_Top_Offset 0x4
059e 00d1 | | Pop_Control Pop_Count_1
059f 08e0 | | Execute_Immediate Raise,0xe0
05a0 3ff0 0000 |? | .DBL 1.0
05a2 0000 0000 | |
05a4 4018 0000 |@ | .DBL 6.0
05a6 0000 0000 | |
05a8 ; --------------------------------------------------------------------------------------
05a8 ; SUBPROGRAM
05a8 ; --------------------------------------------------------------------------------------
05a8 05cc | | .CONST 0x05cc ; Address of begin
05a9 0004 | | .CONST 0x0004 ; Address of exception handler
05aa 000a | | .CONST 0x000a ; Number of locals
05ab INIT_05a8:
05ab 4800 |H | Short_Literal 0x0
05ac 48ff |H | Short_Literal 0xff
05ad e051 | Q | Load 0x0,0x51
05ae 035b | [ | Declare_Type Array,Constrained
05af 0337 | 7 | Declare_Variable Array
05b0 4801 |H | Short_Literal 0x1
05b1 4800 |H | Short_Literal 0x0
05b2 e052 | R | Load 0x0,0x52
05b3 035b | [ | Declare_Type Array,Constrained
05b4 0337 | 7 | Declare_Variable Array
05b5 e053 | S | Load 0x0,0x53
05b6 0322 | " | Declare_Variable Record
05b7 00d8 | | Load_Top At_Offset_0
05b8 1c00 | | Execute_Immediate Run_Utility,0x0
05b9 e004 | | Load 0x0,0x4
05ba 0007 | | Action Break_Optional
05bb e004 | | Load 0x0,0x4
05bc 0007 | | Action Break_Optional
05bd 4800 |H | Short_Literal 0x0
05be 48ff |H | Short_Literal 0xff
05bf e012 | | Load 0x0,0x12
05c0 035b | [ | Declare_Type Array,Constrained
05c1 0337 | 7 | Declare_Variable Array
05c2 00d8 | | Load_Top At_Offset_0
05c3 1c00 | | Execute_Immediate Run_Utility,0x0
05c4 e00f | | Load 0x0,0xf
05c5 0007 | | Action Break_Optional
05c6 e017 | | Load 0x0,0x17
05c7 0007 | | Action Break_Optional
05c8 0007 | | Action Break_Optional
05c9 0007 | | Action Break_Optional
05ca 029f 0753 | S| Declare_Subprogram INIT_0750,For_Call
05cc BODY_05a8:
05cc e222 | " | Load 0x1,0x22
05cd e220 | | Load 0x1,0x20
05ce 8054 | T | Call 0x0,0x54
05cf 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
05d0 e017 | | Load 0x0,0x17
05d1 e404 | | Load 0x2,0x4
05d2 4803 |H | Short_Literal 0x3
05d3 e408 | | Load 0x2,0x8
05d4 e222 | " | Load 0x1,0x22
05d5 e220 | | Load 0x1,0x20
05d6 8055 | U | Call 0x0,0x55
05d7 00d1 | | Pop_Control Pop_Count_1
05d8 005a | Z | Store_Top Discrete,At_Offset_2
05d9 00d9 | | Load_Top At_Offset_1
05da 0f01 | | Execute_Immediate Equal,0x1
05db 6801 |h | Jump_Zero 0x5dd
05dc 781a |x | Jump 0x5f7
05dd e017 | | Load 0x0,0x17
05de e404 | | Load 0x2,0x4
05df 4801 |H | Short_Literal 0x1
05e0 e408 | | Load 0x2,0x8
05e1 e222 | " | Load 0x1,0x22
05e2 e220 | | Load 0x1,0x20
05e3 8055 | U | Call 0x0,0x55
05e4 00d1 | | Pop_Control Pop_Count_1
05e5 005a | Z | Store_Top Discrete,At_Offset_2
05e6 00d9 | | Load_Top At_Offset_1
05e7 0f01 | | Execute_Immediate Equal,0x1
05e8 6801 |h | Jump_Zero 0x5ea
05e9 780d |x | Jump 0x5f7
05ea e017 | | Load 0x0,0x17
05eb e404 | | Load 0x2,0x4
05ec 4805 |H | Short_Literal 0x5
05ed e408 | | Load 0x2,0x8
05ee e222 | " | Load 0x1,0x22
05ef e220 | | Load 0x1,0x20
05f0 8055 | U | Call 0x0,0x55
05f1 00d1 | | Pop_Control Pop_Count_1
05f2 005a | Z | Store_Top Discrete,At_Offset_2
05f3 00d9 | | Load_Top At_Offset_1
05f4 0f01 | | Execute_Immediate Equal,0x1
05f5 68bc |h | Jump_Zero 0x6b2
05f6 7800 |x | Jump 0x5f7
05f7 0008 | | Action Idle
05f8 0007 | | Action Break_Optional
05f9 e404 | | Load 0x2,0x4
05fa 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05fb a22e | . | Store_Unchecked 0x1,0x2e
05fc e404 | | Load 0x2,0x4
05fd 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
05fe a22f | / | Store_Unchecked 0x1,0x2f
05ff 4800 |H | Short_Literal 0x0
0600 e22e | . | Load 0x1,0x2e
0601 e222 | " | Load 0x1,0x22
0602 e220 | | Load 0x1,0x20
0603 8030 | 0 | Call 0x0,0x30
0604 e220 | | Load 0x1,0x20
0605 8056 | V | Call 0x0,0x56
0606 e225 | % | Load 0x1,0x25
0607 017d | } | Execute Record,Structure_Write
0608 e404 | | Load 0x2,0x4
0609 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
060a a21e | | Store_Unchecked 0x1,0x1e
060b 00cf | | Action Mark_Auxiliary
060c 4810 |H | Short_Literal 0x10
060d e21e | | Load 0x1,0x1e
060e 0264 | d | Execute Discrete,Below_Bound
060f 701b |p | Jump_Nonzero 0x62b
0610 e402 | | Load 0x2,0x2
0611 4800 |H | Short_Literal 0x0
0612 00da | | Load_Top At_Offset_2
0613 0aff | | Execute_Immediate Plus,-0x1
0614 00da | | Load_Top At_Offset_2
0615 035b | [ | Declare_Type Array,Constrained
0616 00d0 | | Action Swap_Control
0617 01cd | | Execute Vector,Slice_Reference
0618 e017 | | Load 0x0,0x17
0619 00d9 | | Load_Top At_Offset_1
061a e403 | | Load 0x2,0x3
061b 4800 |H | Short_Literal 0x0
061c e225 | % | Load 0x1,0x25
061d e220 | | Load 0x1,0x20
061e 8057 | W | Call 0x0,0x57
061f 00d2 | | Pop_Control Pop_Count_2
0620 c409 | | Store 0x2,0x9
0621 00d1 | | Pop_Control Pop_Count_1
0622 e409 | | Load 0x2,0x9
0623 0f01 | | Execute_Immediate Equal,0x1
0624 6804 |h | Jump_Zero 0x629
0625 00d8 | | Load_Top At_Offset_0
0626 a21e | | Store_Unchecked 0x1,0x1e
0627 00d2 | | Pop_Control Pop_Count_2
0628 7802 |x | Jump 0x62b
0629 00c8 | | Action Pop_Auxiliary_Range
062a 37e5 |7 | Loop_Decreasing 0x610
062b 00ce | | Action Pop_Auxiliary
062c e21e | | Load 0x1,0x1e
062d 0f10 | | Execute_Immediate Equal,0x10
062e 6867 |hg | Jump_Zero 0x696
062f 0092 0811 | | Action Push_String_Extended,0x811 ; "Couldn't allocate even 16 colors - exiting"
0631 e024 | $ | Load 0x0,0x24
0632 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0633 08e2 | | Execute_Immediate Raise,0xe2
0634 4800 00d9 |H | .XXX[0x62]
0636 e40b 01d6 | |
0638 3ffb e058 |? X|
063a 01c3 4800 | H |
063c e22b 01d5 | + |
063e 3804 00cf |8 |
0640 e21e 0aff | |
0642 4801 0263 |H c|
0644 704b 00d8 |pK |
0646 e402 01d7 | |
0648 00d9 e22b | +|
064a 01d5 3800 | 8 |
064c 8233 4900 | 3I |
064e 026f 0908 | o |
0650 00d8 e02d | -|
0652 0260 7001 | `p |
0654 0801 00d9 | |
0656 e22b 01d5 | + |
0658 3801 8233 |8 3|
065a 4900 026f |I o|
065c 0908 00d8 | |
065e e02d 0260 | - `|
0660 7001 0801 |p |
0662 00d9 e22b | +|
0664 01d5 3802 | 8 |
0666 8233 4900 | 3I |
0668 026f 0908 | o |
066a 00d8 e02d | -|
066c 0260 7001 | `p |
066e 0801 00d9 | |
0670 e22b 01d5 | + |
0672 3803 e058 |8 X|
0674 0337 4801 | 7H |
0676 4807 00da |H |
0678 01d6 4801 | H |
067a 4806 00da |H |
067c 01d6 4801 | H |
067e 4805 00da |H |
0680 01d6 4804 | H |
0682 4800 4800 |H H |
0684 00d9 e40e | |
0686 01d6 3ffb | ? |
0688 e058 01c3 | X |
068a 00d9 e22b | +|
068c 01d5 3804 | 8 |
068e 00c8 3fb5 | ? |
0690 00ce e22b | +|
0692 e225 e220 | % |
0694 804e 7819 | Nx |
0696 0007 | | Action Break_Optional
0697 840a | | Call 0x2,0xa
0698 7816 |x | Jump 0x6af
0699 00d8 00d9 | | .XXX[0x16]
069b e407 01d5 | |
069d 3800 00c8 |8 |
069f 3ff9 00ce |? |
06a1 00db e222 | "|
06a3 e220 802a | *|
06a5 e220 8059 | Y|
06a7 00d1 00db | |
06a9 e225 e220 | % |
06ab 804e 00db | N |
06ad e22b 01d4 | + |
06af 4801 |H | Short_Literal 0x1
06b0 a227 | ' | Store_Unchecked 0x1,0x27
06b1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
06b2 0008 | | Action Idle
06b3 0007 | | Action Break_Optional
06b4 4800 |H | Short_Literal 0x0
06b5 a227 | ' | Store_Unchecked 0x1,0x27
06b6 e404 | | Load 0x2,0x4
06b7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
06b8 a22e | . | Store_Unchecked 0x1,0x2e
06b9 e404 | | Load 0x2,0x4
06ba 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
06bb a22f | / | Store_Unchecked 0x1,0x2f
06bc 00cf | | Action Mark_Auxiliary
06bd e22b | + | Load 0x1,0x2b
06be 01d9 | | Execute Vector,Reverse_Bounds
06bf 0007 | | Action Break_Optional
06c0 8233 | 3 | Call 0x1,0x33
06c1 00d9 | | Load_Top At_Offset_1
06c2 e22b | + | Load 0x1,0x2b
06c3 01d5 | | Execute Vector,Field_Reference
06c4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
06c5 00c8 | | Action Pop_Auxiliary_Range
06c6 3ff9 |? | Loop_Increasing 0x6c0
06c7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
06c8 ; --------------------------------------------------------------------------------------
06c8 ; SUBPROGRAM
06c8 ; --------------------------------------------------------------------------------------
06c8 06d3 | | .CONST 0x06d3 ; Address of begin
06c9 0004 | | .CONST 0x0004 ; Address of exception handler
06ca 0003 | | .CONST 0x0003 ; Number of locals
06cb INIT_06c8:
06cb e05a | Z | Load 0x0,0x5a
06cc 1812 | | Execute Package,Field_Execute,Field_Number 0x12
06cd e05a | Z | Load 0x0,0x5a
06ce 1816 | | Execute Package,Field_Execute,Field_Number 0x16
06cf e05a | Z | Load 0x0,0x5a
06d0 1b11 | | Execute Package,Field_Read,Field_Number 0x11
06d1 03f1 | | Declare_Variable Discrete,With_Value
06d2 00e3 | | Load_Encached Natural_Cache
06d3 BODY_06c8:
06d3 00d9 | | Load_Top At_Offset_1
06d4 602b |`+ | Indirect_Literal Discrete,0x700,{0x00000000, 0x00320000}
06d5 0270 | p | Execute Discrete,Divide
06d6 00d8 | | Load_Top At_Offset_0
06d7 00e3 | | Load_Encached Natural_Cache
06d8 0260 | ` | Execute Discrete,In_Type
06d9 7001 |p | Jump_Nonzero 0x6db
06da 0801 | | Execute_Immediate Raise,0x1
06db 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
06dc 00d9 | | Load_Top At_Offset_1
06dd 4ff1 |O | Short_Literal -0xf
06de 00da | | Load_Top At_Offset_2
06df 090f | | Execute_Immediate Binary_Scale,0xf
06e0 601f |` | Indirect_Literal Discrete,0x700,{0x00000000, 0x00320000}
06e1 0141 | A | Execute Discrete,Multiply_And_Scale
06e2 00d8 | | Load_Top At_Offset_0
06e3 00e7 | | Load_Encached Duration_Cache
06e4 0260 | ` | Execute Discrete,In_Type
06e5 7001 |p | Jump_Nonzero 0x6e7
06e6 0801 | | Execute_Immediate Raise,0x1
06e7 0272 | r | Execute Discrete,Minus
06e8 00d8 | | Load_Top At_Offset_0
06e9 e05a | Z | Load 0x0,0x5a
06ea 1b11 | | Execute Package,Field_Read,Field_Number 0x11
06eb 0260 | ` | Execute Discrete,In_Type
06ec 7001 |p | Jump_Nonzero 0x6ee
06ed 0801 | | Execute_Immediate Raise,0x1
06ee 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
06ef 4fe2 |O | Short_Literal -0x1e
06f0 00da | | Load_Top At_Offset_2
06f1 600a |` | Indirect_Literal Discrete,0x6fc,{0x00000000, 0x01446f86}
06f2 090f | | Execute_Immediate Binary_Scale,0xf
06f3 0141 | A | Execute Discrete,Multiply_And_Scale
06f4 00d8 | | Load_Top At_Offset_0
06f5 e005 | | Load 0x0,0x5
06f6 0260 | ` | Execute Discrete,In_Type
06f7 7001 |p | Jump_Nonzero 0x6f9
06f8 0801 | | Execute_Immediate Raise,0x1
06f9 805b | [ | Call 0x0,0x5b
06fa a20e | | Store_Unchecked 0x1,0xe
06fb 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06fc 0000 0000 | | .LITERAL {0x00000000, 0x01446f86}
0700 0000 0000 | | .LITERAL {0x00000000, 0x00320000}
0704 0000 0000 | | .BLANK 0000[0x4]
0708 ; --------------------------------------------------------------------------------------
0708 ; SUBPROGRAM
0708 ; --------------------------------------------------------------------------------------
0708 070d | | .CONST 0x070d ; Address of begin
0709 0004 | | .CONST 0x0004 ; Address of exception handler
070a 0002 | | .CONST 0x0002 ; Number of locals
070b INIT_0708:
070b e05c | \ | Load 0x0,0x5c
070c 0337 | 7 | Declare_Variable Array
070d BODY_0708:
070d e403 | | Load 0x2,0x3
070e 7004 |p | Jump_Nonzero 0x713
070f e22d | - | Load 0x1,0x2d
0710 e016 | | Load 0x0,0x16
0711 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0712 a403 | | Store_Unchecked 0x2,0x3
0713 00d8 | | Load_Top At_Offset_0
0714 e405 | | Load 0x2,0x5
0715 e02d | - | Load 0x0,0x2d
0716 025e | ^ | Execute Discrete,Convert
0717 e404 | | Load 0x2,0x4
0718 e02d | - | Load 0x0,0x2d
0719 025e | ^ | Execute Discrete,Convert
071a e407 | | Load 0x2,0x7
071b e02f | / | Load 0x0,0x2f
071c 025e | ^ | Execute Discrete,Convert
071d e406 | | Load 0x2,0x6
071e e02f | / | Load 0x0,0x2f
071f 025e | ^ | Execute Discrete,Convert
0720 e403 | | Load 0x2,0x3
0721 0227 | ' | Execute Access,All_Reference
0722 805d | ] | Call 0x0,0x5d
0723 c406 | | Store 0x2,0x6
0724 c407 | | Store 0x2,0x7
0725 c404 | | Store 0x2,0x4
0726 c405 | | Store 0x2,0x5
0727 00d1 | | Pop_Control Pop_Count_1
0728 481f |H | Short_Literal 0x1f
0729 00d9 | | Load_Top At_Offset_1
072a 01d7 | | Execute Vector,Field_Read
072b 680c |h | Jump_Zero 0x738
072c 481b |H | Short_Literal 0x1b
072d 00d9 | | Load_Top At_Offset_1
072e 01d7 | | Execute Vector,Field_Read
072f 6808 |h | Jump_Zero 0x738
0730 e406 | | Load 0x2,0x6
0731 e222 | " | Load 0x1,0x22
0732 e220 | | Load 0x1,0x20
0733 8026 | & | Call 0x0,0x26
0734 0273 | s | Execute Discrete,Plus
0735 e404 | | Load 0x2,0x4
0736 0272 | r | Execute Discrete,Minus
0737 c406 | | Store 0x2,0x6
0738 481e |H | Short_Literal 0x1e
0739 00d9 | | Load_Top At_Offset_1
073a 01d7 | | Execute Vector,Field_Read
073b 680c |h | Jump_Zero 0x748
073c 481a |H | Short_Literal 0x1a
073d 00d9 | | Load_Top At_Offset_1
073e 01d7 | | Execute Vector,Field_Read
073f 6808 |h | Jump_Zero 0x748
0740 e407 | | Load 0x2,0x7
0741 e222 | " | Load 0x1,0x22
0742 e220 | | Load 0x1,0x20
0743 8027 | ' | Call 0x0,0x27
0744 0273 | s | Execute Discrete,Plus
0745 e405 | | Load 0x2,0x5
0746 0272 | r | Execute Discrete,Minus
0747 c407 | | Store 0x2,0x7
0748 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0749 0000 0000 | | .BLANK 0000[0x7]
0750 ; --------------------------------------------------------------------------------------
0750 ; SUBPROGRAM
0750 ; --------------------------------------------------------------------------------------
0750 0759 | Y | .CONST 0x0759 ; Address of begin
0751 0004 | | .CONST 0x0004 ; Address of exception handler
0752 0007 | | .CONST 0x0007 ; Number of locals
0753 INIT_0750:
0753 00e6 | | Load_Encached Float_Cache
0754 00e6 | | Load_Encached Float_Cache
0755 00e6 | | Load_Encached Float_Cache
0756 00e6 | | Load_Encached Float_Cache
0757 00e6 | | Load_Encached Float_Cache
0758 00e6 | | Load_Encached Float_Cache
0759 BODY_0750:
0759 58b2 |X | Indirect_Literal Float,0x80c,0.8999999999999999
075a a603 | | Store_Unchecked 0x3,0x3
075b 58ac |X | Indirect_Literal Float,0x808,1.0
075c a604 | | Store_Unchecked 0x3,0x4
075d 4800 |H | Short_Literal 0x0
075e e402 | | Load 0x2,0x2
075f 01d7 | | Execute Vector,Field_Read
0760 a230 | 0 | Store_Unchecked 0x1,0x30
0761 4800 |H | Short_Literal 0x0
0762 e402 | | Load 0x2,0x2
0763 01d7 | | Execute Vector,Field_Read
0764 4800 |H | Short_Literal 0x0
0765 e22b | + | Load 0x1,0x2b
0766 01d5 | | Execute Vector,Field_Reference
0767 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0768 4800 |H | Short_Literal 0x0
0769 4800 |H | Short_Literal 0x0
076a e22b | + | Load 0x1,0x2b
076b 01d5 | | Execute Vector,Field_Reference
076c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
076d 4800 |H | Short_Literal 0x0
076e 4800 |H | Short_Literal 0x0
076f e22b | + | Load 0x1,0x2b
0770 01d5 | | Execute Vector,Field_Reference
0771 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0772 4800 |H | Short_Literal 0x0
0773 4800 |H | Short_Literal 0x0
0774 e22b | + | Load 0x1,0x2b
0775 01d5 | | Execute Vector,Field_Reference
0776 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0777 e058 | X | Load 0x0,0x58
0778 0337 | 7 | Declare_Variable Array
0779 4801 |H | Short_Literal 0x1
077a 4807 |H | Short_Literal 0x7
077b 00da | | Load_Top At_Offset_2
077c 01d6 | | Execute Vector,Field_Write
077d 4801 |H | Short_Literal 0x1
077e 4806 |H | Short_Literal 0x6
077f 00da | | Load_Top At_Offset_2
0780 01d6 | | Execute Vector,Field_Write
0781 4801 |H | Short_Literal 0x1
0782 4805 |H | Short_Literal 0x5
0783 00da | | Load_Top At_Offset_2
0784 01d6 | | Execute Vector,Field_Write
0785 4804 |H | Short_Literal 0x4
0786 4800 |H | Short_Literal 0x0
0787 4800 |H | Short_Literal 0x0
0788 00d9 | | Load_Top At_Offset_1
0789 e608 | | Load 0x3,0x8
078a 01d6 | | Execute Vector,Field_Write
078b 3ffb |? | Loop_Increasing 0x787
078c e058 | X | Load 0x0,0x58
078d 01c3 | | Execute Vector,Check_In_Type
078e 4800 |H | Short_Literal 0x0
078f e22b | + | Load 0x1,0x2b
0790 01d5 | | Execute Vector,Field_Reference
0791 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0792 00cf | | Action Mark_Auxiliary
0793 e21e | | Load 0x1,0x1e
0794 0aff | | Execute_Immediate Plus,-0x1
0795 4801 |H | Short_Literal 0x1
0796 0263 | c | Execute Discrete,Above_Bound
0797 7064 |pd | Jump_Nonzero 0x7fc
0798 00d8 | | Load_Top At_Offset_0
0799 0237 | 7 | Execute Float,Convert_From_Discrete
079a e21e | | Load 0x1,0x1e
079b 0237 | 7 | Execute Float,Convert_From_Discrete
079c 023a | : | Execute Float,Divide
079d a602 | | Store_Unchecked 0x3,0x2
079e 00db | | Load_Top At_Offset_3
079f e606 | | Load 0x3,0x6
07a0 e605 | | Load 0x3,0x5
07a1 e604 | | Load 0x3,0x4
07a2 e603 | | Load 0x3,0x3
07a3 e602 | | Load 0x3,0x2
07a4 8238 | 8 | Call 0x1,0x38
07a5 c605 | | Store 0x3,0x5
07a6 c606 | | Store 0x3,0x6
07a7 c607 | | Store 0x3,0x7
07a8 00d8 | | Load_Top At_Offset_0
07a9 e402 | | Load 0x2,0x2
07aa 01d7 | | Execute Vector,Field_Read
07ab 00d9 | | Load_Top At_Offset_1
07ac e22b | + | Load 0x1,0x2b
07ad 01d5 | | Execute Vector,Field_Reference
07ae 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
07af e605 | | Load 0x3,0x5
07b0 5853 |XS | Indirect_Literal Float,0x804,255.0
07b1 023b | ; | Execute Float,Times
07b2 0235 | 5 | Execute Float,Round_To_Discrete
07b3 e004 | | Load 0x0,0x4
07b4 025e | ^ | Execute Discrete,Convert
07b5 0908 | | Execute_Immediate Binary_Scale,0x8
07b6 00d8 | | Load_Top At_Offset_0
07b7 e02d | - | Load 0x0,0x2d
07b8 0260 | ` | Execute Discrete,In_Type
07b9 7001 |p | Jump_Nonzero 0x7bb
07ba 0801 | | Execute_Immediate Raise,0x1
07bb 00d9 | | Load_Top At_Offset_1
07bc e22b | + | Load 0x1,0x2b
07bd 01d5 | | Execute Vector,Field_Reference
07be 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
07bf e606 | | Load 0x3,0x6
07c0 5843 |XC | Indirect_Literal Float,0x804,255.0
07c1 023b | ; | Execute Float,Times
07c2 0235 | 5 | Execute Float,Round_To_Discrete
07c3 e004 | | Load 0x0,0x4
07c4 025e | ^ | Execute Discrete,Convert
07c5 0908 | | Execute_Immediate Binary_Scale,0x8
07c6 00d8 | | Load_Top At_Offset_0
07c7 e02d | - | Load 0x0,0x2d
07c8 0260 | ` | Execute Discrete,In_Type
07c9 7001 |p | Jump_Nonzero 0x7cb
07ca 0801 | | Execute_Immediate Raise,0x1
07cb 00d9 | | Load_Top At_Offset_1
07cc e22b | + | Load 0x1,0x2b
07cd 01d5 | | Execute Vector,Field_Reference
07ce 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
07cf 00db | | Load_Top At_Offset_3
07d0 5833 |X3 | Indirect_Literal Float,0x804,255.0
07d1 023b | ; | Execute Float,Times
07d2 0235 | 5 | Execute Float,Round_To_Discrete
07d3 e004 | | Load 0x0,0x4
07d4 025e | ^ | Execute Discrete,Convert
07d5 0908 | | Execute_Immediate Binary_Scale,0x8
07d6 00d8 | | Load_Top At_Offset_0
07d7 e02d | - | Load 0x0,0x2d
07d8 0260 | ` | Execute Discrete,In_Type
07d9 7001 |p | Jump_Nonzero 0x7db
07da 0801 | | Execute_Immediate Raise,0x1
07db 00d9 | | Load_Top At_Offset_1
07dc e22b | + | Load 0x1,0x2b
07dd 01d5 | | Execute Vector,Field_Reference
07de 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
07df e058 | X | Load 0x0,0x58
07e0 0337 | 7 | Declare_Variable Array
07e1 4801 |H | Short_Literal 0x1
07e2 4807 |H | Short_Literal 0x7
07e3 00da | | Load_Top At_Offset_2
07e4 01d6 | | Execute Vector,Field_Write
07e5 4801 |H | Short_Literal 0x1
07e6 4806 |H | Short_Literal 0x6
07e7 00da | | Load_Top At_Offset_2
07e8 01d6 | | Execute Vector,Field_Write
07e9 4801 |H | Short_Literal 0x1
07ea 4805 |H | Short_Literal 0x5
07eb 00da | | Load_Top At_Offset_2
07ec 01d6 | | Execute Vector,Field_Write
07ed 4804 |H | Short_Literal 0x4
07ee 4800 |H | Short_Literal 0x0
07ef 4800 |H | Short_Literal 0x0
07f0 00d9 | | Load_Top At_Offset_1
07f1 e60b | | Load 0x3,0xb
07f2 01d6 | | Execute Vector,Field_Write
07f3 3ffb |? | Loop_Increasing 0x7ef
07f4 e058 | X | Load 0x0,0x58
07f5 01c3 | | Execute Vector,Check_In_Type
07f6 00d9 | | Load_Top At_Offset_1
07f7 e22b | + | Load 0x1,0x2b
07f8 01d5 | | Execute Vector,Field_Reference
07f9 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
07fa 00c8 | | Action Pop_Auxiliary_Range
07fb 3f9c |? | Loop_Increasing 0x798
07fc 00ce | | Action Pop_Auxiliary
07fd e22b | + | Load 0x1,0x2b
07fe e225 | % | Load 0x1,0x25
07ff e220 | | Load 0x1,0x20
0800 804e | N | Call 0x0,0x4e
0801 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0802 0000 0000 | | .XXX[0x2]
0804 406f e000 |@o | .DBL 255.0
0806 0000 0000 | |
0808 3ff0 0000 |? | .DBL 1.0
080a 0000 0000 | |
080c 3fec cccc |? | .DBL 0.8999999999999999
080e cccc cccc | |
0810 ; --------------------------------------------------------------------------------------
0810 ; STRING TABLE
0810 ; --------------------------------------------------------------------------------------
0810 0006 | | .STRTAB 0x0006->0x0813 ; "Cannot open display: "
0811 0019 | | .STRTAB 0x0019->0x081d ; "Couldn't allocate even 16 colors - exiting"
0812 0041 | A | .STREND 0x0041->0x0832
0813 4361 6e6e |Cann| .STRTAB_STRINGS
0833 0000 0000 | | .BLANK 0000[0x5]
0838 ; --------------------------------------------------------------------------------------
0838 ; Debug Table
0838 ; --------------------------------------------------------------------------------------
0838 0004 0000 | | .DEBUG4 0x0004,0x0000,0x6895,0x0000,0x0001,0x000e
083e 000b 0876 | v| .DBG4T 0x000b,0x0876,0x8000,0x0000
0842 000e 0879 | y| .DBG4T 0x000e,0x0879,0x8000,0x0000
0846 00c3 08aa | | .DBG4T 0x00c3,0x08aa,0x0001,0x0000
084a 039b 091a | | .DBG4T 0x039b,0x091a,0x0002,0x0000
084e 03eb 0928 | (| .DBG4T 0x03eb,0x0928,0x0002,0x4000
0852 040b 0934 | 4| .DBG4T 0x040b,0x0934,0x0001,0x0000
0856 0433 093c | 3 <| .DBG4T 0x0433,0x093c,0x0001,0x0000
085a 045b 0940 | [ @| .DBG4T 0x045b,0x0940,0x0001,0x0000
085e 0513 0956 | V| .DBG4T 0x0513,0x0956,0x0002,0x0000
0862 052b 095c | + \| .DBG4T 0x052b,0x095c,0x0001,0x4000
0866 05ab 09a2 | | .DBG4T 0x05ab,0x09a2,0x0001,0x4000
086a 06cb 0a07 | | .DBG4T 0x06cb,0x0a07,0x0004,0x0000
086e 070b 0a0e | | .DBG4T 0x070b,0x0a0e,0x0004,0x0000
0872 0753 0a18 | S | .DBG4T 0x0753,0x0a18,0x0004,0x0000
0876 ; --------------------------------------------------------------------------------------
0876 ; Debug chain
0876 ; --------------------------------------------------------------------------------------
0876 0001 0000 | | .DBGLEN 0x0001,0x0000
0878 000b | | .DBGLNO 0x000b
0879 ; --------------------------------------------------------------------------------------
0879 ; Debug chain
0879 ; --------------------------------------------------------------------------------------
0879 002e 0001 | . | .DBGLEN 0x002e,0x0001
087b 000e 000f | | .DBGLNO 0x000e,0x000f,0x0010,0x0011,0x0012,0x0014,0x001d,0x0021,0x0027,0x002b,0x0033,0x0035,0x0037,0x0039,0x003b,0x0040,0x0045,0x0047,0x0078,0x007a,0x007c,0x007e,0x0080,0x0082,0x0084,0x0086,0x0088,0x008a,0x008c,0x008e,0x0095,0x0097,0x009c,0x009e,0x00a0,0x00a2,0x00a4,0x00a6,0x00a8,0x00aa,0x00ac,0x00ae,0x00b0,0x00b2,0x00b4,0x00b6,0x00ba
08aa ; --------------------------------------------------------------------------------------
08aa ; Debug chain
08aa ; --------------------------------------------------------------------------------------
08aa 0012 005c | \| .DBGLEN 0x0012,0x005c
08ac 00c3 00c5 | | .DBGLNO 0x00c3,0x00c5,0x00c7,0x00ca,0x00cd,0x00cf,0x00d1,0x00d3,0x00d7,0x00db,0x00dd,0x00e1,0x00e3,0x00e5,0x00e9,0x00eb,0x00ef,0x00f1,0x00f5,0x00f7,0x00f9,0x00fb,0x00ff,0x0103,0x0105,0x0107,0x010a,0x010d,0x011f,0x0134,0x013a,0x013e,0x0146,0x0147,0x014a,0x014c,0x014e,0x0152,0x0156,0x0158,0x015b,0x015c,0x0160,0x0164,0x0169,0x016e,0x0171,0x0173,0x0177,0x0197,0x019a,0x019d,0x01cc,0x01e9,0x01ec,0x01ef,0x01f2,0x01f5,0x020b,0x0215,0x021f,0x022c,0x022f,0x025c,0x0263,0x026a,0x0270,0x0277,0x027c,0x0287,0x0288,0x028f,0x0293,0x0297,0x029c,0x029f,0x02a2,0x02a6,0x02ab,0x02ac,0x02b0,0x02b8,0x02bc,0x02c0,0x02c4,0x02c9,0x02ce,0x02dc,0x02ea,0x02f8,0x0303,0x0306,0x0309,0x030d,0x031c,0x031d,0x0321,0x0325,0x0329,0x032d,0x0331,0x0333,0x0339,0x033b,0x0340,0x034a,0x0358,0x035a,0x035e,0x0361
091a ; --------------------------------------------------------------------------------------
091a ; Debug chain
091a ; --------------------------------------------------------------------------------------
091a 0001 000b | | .DBGLEN 0x0001,0x000b
091c 039b 039d | | .DBGLNO 0x039b,0x039d,0x03a0,0x03a8,0x03b1,0x03b8,0x03c0,0x03cb,0x03d1,0x03d5,0x03da,0x03df
0928 ; --------------------------------------------------------------------------------------
0928 ; Debug chain
0928 ; --------------------------------------------------------------------------------------
0928 0002 0004 | | .DBGLEN 0x0002,0x0004
092a 03eb 03ed | | .DBGLNO 0x03eb,0x03ed,0x03ee,0x03f1,0x03f2,0x03f9
0930 0001 0002 | | .XXX[0x4]
0932 0004 0005 | |
0934 ; --------------------------------------------------------------------------------------
0934 ; Debug chain
0934 ; --------------------------------------------------------------------------------------
0934 0001 0005 | | .DBGLEN 0x0001,0x0005
0936 040b 040d | | .DBGLNO 0x040b,0x040d,0x0413,0x0418,0x0424,0x042a
093c ; --------------------------------------------------------------------------------------
093c ; Debug chain
093c ; --------------------------------------------------------------------------------------
093c 0000 0002 | | .DBGLEN 0x0000,0x0002
093e 0433 0437 | 3 7| .DBGLNO 0x0433,0x0437
0940 ; --------------------------------------------------------------------------------------
0940 ; Debug chain
0940 ; --------------------------------------------------------------------------------------
0940 0002 0012 | | .DBGLEN 0x0002,0x0012
0942 045b 045d | [ ]| .DBGLNO 0x045b,0x045d,0x045f,0x0462,0x046b,0x0474,0x047d,0x0499,0x049d,0x04a7,0x04b0,0x04be,0x04cc,0x04cf,0x04d8,0x04e1,0x04e3,0x04e8,0x0505,0x0509
0956 ; --------------------------------------------------------------------------------------
0956 ; Debug chain
0956 ; --------------------------------------------------------------------------------------
0956 0001 0003 | | .DBGLEN 0x0001,0x0003
0958 0513 0519 | | .DBGLNO 0x0513,0x0519,0x051e,0x0526
095c ; --------------------------------------------------------------------------------------
095c ; Debug chain
095c ; --------------------------------------------------------------------------------------
095c 0006 001f | | .DBGLEN 0x0006,0x001f
095e 052b 052e | + .| .DBGLNO 0x052b,0x052e,0x052f,0x0530,0x0531,0x0532,0x0534,0x0536,0x0538,0x053a,0x053d,0x0543,0x0547,0x054a,0x054f,0x0555,0x055d,0x0567,0x0574,0x0576,0x0578,0x057b,0x057d,0x057f,0x0582,0x0584,0x0586,0x0589,0x058b,0x058d,0x0590,0x0592,0x0594,0x0597,0x0599,0x059b,0x059f
0983 0001 0002 | | .XXX[0x1f]
0985 0003 0004 | |
0987 0005 0006 | |
0989 0007 0008 | |
098b 0009 000a | |
098d 000b 000c | |
098f 001c 001d | |
0991 001e 000d | |
0993 000e 000f | |
0995 0010 0011 | |
0997 0012 0013 | |
0999 0014 0015 | |
099b 0016 0017 | |
099d 0018 0019 | |
099f 001a 001b | |
09a1 001f | |
09a2 ; --------------------------------------------------------------------------------------
09a2 ; Debug chain
09a2 ; --------------------------------------------------------------------------------------
09a2 000b 002c | ,| .DBGLEN 0x000b,0x002c
09a4 05ab 05b0 | | .DBGLNO 0x05ab,0x05b0,0x05b5,0x05b9,0x05bb,0x05bd,0x05c4,0x05c6,0x05c8,0x05c9,0x05ca,0x05cc,0x05d0,0x05d9,0x05dc,0x05dd,0x05e6,0x05e9,0x05ea,0x05f3,0x05f6,0x05f7,0x05f9,0x05fc,0x05ff,0x0608,0x060c,0x0610,0x0622,0x0625,0x0627,0x062c,0x062f,0x0633,0x0640,0x0645,0x064c,0x0659,0x0666,0x0673,0x0691,0x0696,0x0697,0x0699,0x06a1,0x06a8,0x06ac,0x06af,0x06b1,0x06b2,0x06b4,0x06b6,0x06b9,0x06bd,0x06c0
09db 0001 0002 | | .XXX[0x2c]
09dd 0003 0004 | |
09df 0005 0006 | |
09e1 0007 0008 | |
09e3 0009 000a | |
09e5 000c 000d | |
09e7 000e 000f | |
09e9 0010 0011 | |
09eb 0012 0013 | |
09ed 0014 0015 | |
09ef 0016 0017 | |
09f1 0018 0020 | |
09f3 0021 0022 | ! "|
09f5 0023 0024 | # $|
09f7 0025 0026 | % &|
09f9 0027 0028 | ' (|
09fb 002a 002b | * +|
09fd 002c 002d | , -|
09ff 002e 002f | . /|
0a01 0030 0031 | 0 1|
0a03 0032 0033 | 2 3|
0a05 0034 0035 | 4 5|
0a07 ; --------------------------------------------------------------------------------------
0a07 ; Debug chain
0a07 ; --------------------------------------------------------------------------------------
0a07 0002 0003 | | .DBGLEN 0x0002,0x0003
0a09 06cb 06d2 | | .DBGLNO 0x06cb,0x06d2,0x06d3,0x06dc,0x06ef
0a0e ; --------------------------------------------------------------------------------------
0a0e ; Debug chain
0a0e ; --------------------------------------------------------------------------------------
0a0e 0001 0007 | | .DBGLEN 0x0001,0x0007
0a10 070b 070d | | .DBGLNO 0x070b,0x070d,0x070f,0x0713,0x0728,0x0730,0x0738,0x0740
0a18 ; --------------------------------------------------------------------------------------
0a18 ; Debug chain
0a18 ; --------------------------------------------------------------------------------------
0a18 0006 0011 | | .DBGLEN 0x0006,0x0011
0a1a 0753 0754 | S T| .DBGLNO 0x0753,0x0754,0x0755,0x0756,0x0757,0x0758,0x0759,0x075b,0x075d,0x0761,0x0768,0x076d,0x0772,0x0777,0x0793,0x0798,0x079e,0x07a8,0x07af,0x07bf,0x07cf,0x07df,0x07fd
0a31 0000 0000 | | .BLANK 0000[0x1cf]