|
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_5850da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0a58 | X | .CONST 0x0a58 ; 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 8006 | | .CONST 0x8006 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 002d | - | .CONST 0x002d ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0019 | | .CONST 0x0019 ; Number of locals 000b INIT_0008: 000b 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated 000d 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated 000f 00bf | | Action Accept_Activation 0010 e001 | | Load 0x0,0x1 0011 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0012 02c7 | | Declare_Variable Any 0013 00d8 | | Load_Top At_Offset_0 0014 1c00 | | Execute_Immediate Run_Utility,0x0 0015 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0016 00c7 | | Action Elaborate_Subprogram 0017 029d 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call 0019 029d 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call 001b 029d 04db | | Declare_Subprogram INIT_04d8,For_Outer_Call 001d 029d 0513 | | Declare_Subprogram INIT_0510,For_Outer_Call 001f 029d 051b | | Declare_Subprogram INIT_0518,For_Outer_Call 0021 029d 0533 | 3| Declare_Subprogram INIT_0530,For_Outer_Call 0023 029d 054b | K| Declare_Subprogram INIT_0548,For_Outer_Call 0025 029d 05b3 | | Declare_Subprogram INIT_05b0,For_Outer_Call 0027 029d 0653 | S| Declare_Subprogram INIT_0650,For_Outer_Call 0029 029d 06c3 | | Declare_Subprogram INIT_06c0,For_Outer_Call 002b 1d0e | | Execute_Immediate Reference_Lex_1,0xe 002c 00c7 | | Action Elaborate_Subprogram 002d BODY_0008: 002d 00bc | | Action Signal_Activated 002e 00bb | | Action Signal_Completion 002f 0000 | | .XXX[0x1] 0030 ; -------------------------------------------------------------------------------------- 0030 ; SUBPROGRAM 0030 ; -------------------------------------------------------------------------------------- 0030 0033 | 3 | .CONST 0x0033 ; Address of begin 0031 0004 | | .CONST 0x0004 ; Address of exception handler 0032 0001 | | .CONST 0x0001 ; Number of locals 0033 BODY_0030: 0033 INIT_0030: 0033 4899 |H | Short_Literal 0x99 0034 00eb | | Load_Encached Diana_Cache 0035 1878 | x | Execute Package,Field_Execute,Field_Number 0x78 0036 00ca | | Action Exit_Nullary_Function 0037 0000 | | .XXX[0x1] 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 0043 | C | .CONST 0x0043 ; Address of begin 0039 0004 | | .CONST 0x0004 ; Address of exception handler 003a 0004 | | .CONST 0x0004 ; Number of locals 003b INIT_0038: 003b 00ec | | Load_Encached Diana_Tree_Cache 003c 02c7 | | Declare_Variable Any 003d 00d8 | | Load_Top At_Offset_0 003e 1c00 | | Execute_Immediate Run_Utility,0x0 003f 029f 0703 | | Declare_Subprogram INIT_0700,For_Call 0041 029f 073b | ;| Declare_Subprogram INIT_0738,For_Call 0043 BODY_0038: 0043 0092 096c | l| Action Push_String_Extended,0x96c ; "ANY-TYPE" 0045 00eb | | Load_Encached Diana_Cache 0046 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0047 482f |H/ | Short_Literal 0x2f 0048 00eb | | Load_Encached Diana_Cache 0049 1879 | y | Execute Package,Field_Execute,Field_Number 0x79 004a c402 | | Store 0x2,0x2 004b 00da | | Load_Top At_Offset_2 004c 00db | | Load_Top At_Offset_3 004d 496a |Ij | Short_Literal 0x16a 004e 00eb | | Load_Encached Diana_Cache 004f 0096 | | Execute Package,Entry 0050 4800 |H | Short_Literal 0x0 0051 00eb | | Load_Encached Diana_Cache 0052 1878 | x | Execute Package,Field_Execute,Field_Number 0x78 0053 820d | | Call 0x1,0xd 0054 e402 | | Load 0x2,0x2 0055 483b |H; | Short_Literal 0x3b 0056 00eb | | Load_Encached Diana_Cache 0057 187e | ~ | Execute Package,Field_Execute,Field_Number 0x7e 0058 c002 | | Store 0x0,0x2 0059 0092 096d | m| Action Push_String_Extended,0x96d ; "TRUE" 005b 00eb | | Load_Encached Diana_Cache 005c 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 005d 4831 |H1 | Short_Literal 0x31 005e 00eb | | Load_Encached Diana_Cache 005f 1879 | y | Execute Package,Field_Execute,Field_Number 0x79 0060 c003 | | Store 0x0,0x3 0061 0092 096e | n| Action Push_String_Extended,0x96e ; "FALSE" 0063 00eb | | Load_Encached Diana_Cache 0064 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0065 4831 |H1 | Short_Literal 0x31 0066 00eb | | Load_Encached Diana_Cache 0067 1879 | y | Execute Package,Field_Execute,Field_Number 0x79 0068 c004 | | Store 0x0,0x4 0069 0092 096f | o| Action Push_String_Extended,0x96f ; "BOOLEAN" 006b 00eb | | Load_Encached Diana_Cache 006c 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 006d 482f |H/ | Short_Literal 0x2f 006e 00eb | | Load_Encached Diana_Cache 006f 1879 | y | Execute Package,Field_Execute,Field_Number 0x79 0070 c005 | | Store 0x0,0x5 0071 e003 | | Load 0x0,0x3 0072 e004 | | Load 0x0,0x4 0073 4975 |Iu | Short_Literal 0x175 0074 00eb | | Load_Encached Diana_Cache 0075 0098 | | Execute Package,Field_Read_Dynamic 0076 180f | | Execute Package,Field_Execute,Field_Number 0xf 0077 486e |Hn | Short_Literal 0x6e 0078 00eb | | Load_Encached Diana_Cache 0079 187f | | Execute Package,Field_Execute,Field_Number 0x7f 007a c006 | | Store 0x0,0x6 007b e006 | | Load 0x0,0x6 007c 820d | | Call 0x1,0xd 007d e005 | | Load 0x0,0x5 007e 483b |H; | Short_Literal 0x3b 007f 00eb | | Load_Encached Diana_Cache 0080 187e | ~ | Execute Package,Field_Execute,Field_Number 0x7e 0081 c007 | | Store 0x0,0x7 0082 e005 | | Load 0x0,0x5 0083 00d8 | | Load_Top At_Offset_0 0084 496a |Ij | Short_Literal 0x16a 0085 00eb | | Load_Encached Diana_Cache 0086 0096 | | Execute Package,Entry 0087 e006 | | Load 0x0,0x6 0088 e005 | | Load 0x0,0x5 0089 4966 |If | Short_Literal 0x166 008a 00eb | | Load_Encached Diana_Cache 008b 0096 | | Execute Package,Entry 008c e008 | | Load 0x0,0x8 008d e006 | | Load 0x0,0x6 008e 8009 | | Call 0x0,0x9 008f e006 | | Load 0x0,0x6 0090 e004 | | Load 0x0,0x4 0091 4961 |Ia | Short_Literal 0x161 0092 00eb | | Load_Encached Diana_Cache 0093 0096 | | Execute Package,Entry 0094 4800 |H | Short_Literal 0x0 0095 e004 | | Load 0x0,0x4 0096 494e |IN | Short_Literal 0x14e 0097 00eb | | Load_Encached Diana_Cache 0098 0096 | | Execute Package,Entry 0099 4800 |H | Short_Literal 0x0 009a e004 | | Load 0x0,0x4 009b 494f |IO | Short_Literal 0x14f 009c 00eb | | Load_Encached Diana_Cache 009d 0096 | | Execute Package,Entry 009e e006 | | Load 0x0,0x6 009f e003 | | Load 0x0,0x3 00a0 4961 |Ia | Short_Literal 0x161 00a1 00eb | | Load_Encached Diana_Cache 00a2 0096 | | Execute Package,Entry 00a3 4801 |H | Short_Literal 0x1 00a4 e003 | | Load 0x0,0x3 00a5 494e |IN | Short_Literal 0x14e 00a6 00eb | | Load_Encached Diana_Cache 00a7 0096 | | Execute Package,Entry 00a8 4801 |H | Short_Literal 0x1 00a9 e003 | | Load 0x0,0x3 00aa 494f |IO | Short_Literal 0x14f 00ab 00eb | | Load_Encached Diana_Cache 00ac 0096 | | Execute Package,Entry 00ad e007 | | Load 0x0,0x7 00ae 800a | | Call 0x0,0xa 00af 8403 | | Call 0x2,0x3 00b0 00cf | | Action Mark_Auxiliary 00b1 e5fe | | Load 0x2,-0x2 00b2 01d9 | | Execute Vector,Reverse_Bounds 00b3 0263 | c | Execute Discrete,Above_Bound 00b4 7006 |p | Jump_Nonzero 0xbb 00b5 00d8 | | Load_Top At_Offset_0 00b6 e5fe | | Load 0x2,-0x2 00b7 01d7 | | Execute Vector,Field_Read 00b8 8216 | | Call 0x1,0x16 00b9 00c8 | | Action Pop_Auxiliary_Range 00ba 3ffa |? | Loop_Increasing 0xb5 00bb 00ce | | Action Pop_Auxiliary 00bc 8404 | | Call 0x2,0x4 00bd e00b | | Load 0x0,0xb 00be e00c | | Load 0x0,0xc 00bf e00d | | Load 0x0,0xd 00c0 e20f | | Load 0x1,0xf 00c1 4800 |H | Short_Literal 0x0 00c2 0092 0970 | p| Action Push_String_Extended,0x970 ; "NATURAL" 00c4 8219 | | Call 0x1,0x19 00c5 c00d | | Store 0x0,0xd 00c6 c00c | | Store 0x0,0xc 00c7 c00b | | Store 0x0,0xb 00c8 e00e | | Load 0x0,0xe 00c9 e00f | | Load 0x0,0xf 00ca e010 | | Load 0x0,0x10 00cb e20f | | Load 0x1,0xf 00cc 4801 |H | Short_Literal 0x1 00cd 0092 0971 | q| Action Push_String_Extended,0x971 ; "POSITIVE" 00cf 8219 | | Call 0x1,0x19 00d0 c010 | | Store 0x0,0x10 00d1 c00f | | Store 0x0,0xf 00d2 c00e | | Store 0x0,0xe 00d3 8210 | | Call 0x1,0x10 00d4 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00d5 0000 0000 | | .XXX[0x3] 00d7 0000 | | 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 0288 | | .CONST 0x0288 ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 000f | | .CONST 0x000f ; Number of locals 00db INIT_00d8: 00db 00ec | | Load_Encached Diana_Tree_Cache 00dc 02c7 | | Declare_Variable Any 00dd 00d8 | | Load_Top At_Offset_0 00de 1c00 | | Execute_Immediate Run_Utility,0x0 00df 00ec | | Load_Encached Diana_Tree_Cache 00e0 02c7 | | Declare_Variable Any 00e1 00d8 | | Load_Top At_Offset_0 00e2 1c00 | | Execute_Immediate Run_Utility,0x0 00e3 00ec | | Load_Encached Diana_Tree_Cache 00e4 02c7 | | Declare_Variable Any 00e5 00d8 | | Load_Top At_Offset_0 00e6 1c00 | | Execute_Immediate Run_Utility,0x0 00e7 4801 |H | Short_Literal 0x1 00e8 4803 |H | Short_Literal 0x3 00e9 00e9 | | Load_Encached String_Cache 00ea 035b | [ | Declare_Type Array,Constrained 00eb 0337 | 7 | Declare_Variable Array 00ec 00d8 | | Load_Top At_Offset_0 00ed 0335 | 5 | Declare_Variable Array,Duplicate 00ee 00cd | | Action Spare6_Action 00ef 4844 |HD | Short_Literal 0x44 00f0 4801 |H | Short_Literal 0x1 00f1 00da | | Load_Top At_Offset_2 00f2 01d6 | | Execute Vector,Field_Write 00f3 4845 |HE | Short_Literal 0x45 00f4 4802 |H | Short_Literal 0x2 00f5 00da | | Load_Top At_Offset_2 00f6 01d6 | | Execute Vector,Field_Write 00f7 484c |HL | Short_Literal 0x4c 00f8 4803 |H | Short_Literal 0x3 00f9 00da | | Load_Top At_Offset_2 00fa 01d6 | | Execute Vector,Field_Write 00fb 00d9 | | Load_Top At_Offset_1 00fc 01d4 | | Execute Vector,Structure_Write 00fd 4801 |H | Short_Literal 0x1 00fe 4803 |H | Short_Literal 0x3 00ff 00e9 | | Load_Encached String_Cache 0100 035b | [ | Declare_Type Array,Constrained 0101 0337 | 7 | Declare_Variable Array 0102 4801 |H | Short_Literal 0x1 0103 4804 |H | Short_Literal 0x4 0104 00e9 | | Load_Encached String_Cache 0105 035b | [ | Declare_Type Array,Constrained 0106 0337 | 7 | Declare_Variable Array 0107 00d8 | | Load_Top At_Offset_0 0108 0335 | 5 | Declare_Variable Array,Duplicate 0109 00cd | | Action Spare6_Action 010a 484c |HL | Short_Literal 0x4c 010b 4801 |H | Short_Literal 0x1 010c 00da | | Load_Top At_Offset_2 010d 01d6 | | Execute Vector,Field_Write 010e 4843 |HC | Short_Literal 0x43 010f 4802 |H | Short_Literal 0x2 0110 00da | | Load_Top At_Offset_2 0111 01d6 | | Execute Vector,Field_Write 0112 485f |H_ | Short_Literal 0x5f 0113 4803 |H | Short_Literal 0x3 0114 00da | | Load_Top At_Offset_2 0115 01d6 | | Execute Vector,Field_Write 0116 4820 |H | Short_Literal 0x20 0117 4804 |H | Short_Literal 0x4 0118 00da | | Load_Top At_Offset_2 0119 01d6 | | Execute Vector,Field_Write 011a 00d9 | | Load_Top At_Offset_1 011b 01d4 | | Execute Vector,Structure_Write 011c 4801 |H | Short_Literal 0x1 011d 4809 |H | Short_Literal 0x9 011e 00e9 | | Load_Encached String_Cache 011f 035b | [ | Declare_Type Array,Constrained 0120 0337 | 7 | Declare_Variable Array 0121 00d8 | | Load_Top At_Offset_0 0122 0335 | 5 | Declare_Variable Array,Duplicate 0123 00cd | | Action Spare6_Action 0124 4841 |HA | Short_Literal 0x41 0125 4801 |H | Short_Literal 0x1 0126 00da | | Load_Top At_Offset_2 0127 01d6 | | Execute Vector,Field_Write 0128 4853 |HS | Short_Literal 0x53 0129 4802 |H | Short_Literal 0x2 012a 00da | | Load_Top At_Offset_2 012b 01d6 | | Execute Vector,Field_Write 012c 4843 |HC | Short_Literal 0x43 012d 4803 |H | Short_Literal 0x3 012e 00da | | Load_Top At_Offset_2 012f 01d6 | | Execute Vector,Field_Write 0130 4849 |HI | Short_Literal 0x49 0131 4804 |H | Short_Literal 0x4 0132 00da | | Load_Top At_Offset_2 0133 01d6 | | Execute Vector,Field_Write 0134 4849 |HI | Short_Literal 0x49 0135 4805 |H | Short_Literal 0x5 0136 00da | | Load_Top At_Offset_2 0137 01d6 | | Execute Vector,Field_Write 0138 482e |H. | Short_Literal 0x2e 0139 4806 |H | Short_Literal 0x6 013a 00da | | Load_Top At_Offset_2 013b 01d6 | | Execute Vector,Field_Write 013c 4820 |H | Short_Literal 0x20 013d 4807 |H | Short_Literal 0x7 013e 00da | | Load_Top At_Offset_2 013f 01d6 | | Execute Vector,Field_Write 0140 4820 |H | Short_Literal 0x20 0141 4808 |H | Short_Literal 0x8 0142 00da | | Load_Top At_Offset_2 0143 01d6 | | Execute Vector,Field_Write 0144 4820 |H | Short_Literal 0x20 0145 4809 |H | Short_Literal 0x9 0146 00da | | Load_Top At_Offset_2 0147 01d6 | | Execute Vector,Field_Write 0148 00d9 | | Load_Top At_Offset_1 0149 01d4 | | Execute Vector,Structure_Write 014a 00ed | | Load_Encached Diana_Symbol_Rep_Cache 014b 02c7 | | Declare_Variable Any 014c 00d8 | | Load_Top At_Offset_0 014d 1c00 | | Execute_Immediate Run_Utility,0x0 014e 00ee | | Load_Encached Diana_Seq_Type_Cache 014f 02c7 | | Declare_Variable Any 0150 00d8 | | Load_Top At_Offset_0 0151 1c00 | | Execute_Immediate Run_Utility,0x0 0152 00ee | | Load_Encached Diana_Seq_Type_Cache 0153 02c7 | | Declare_Variable Any 0154 00d8 | | Load_Top At_Offset_0 0155 1c00 | | Execute_Immediate Run_Utility,0x0 0156 4800 |H | Short_Literal 0x0 0157 481f |H | Short_Literal 0x1f 0158 00ed | | Load_Encached Diana_Symbol_Rep_Cache 0159 029f 0773 | s| Declare_Subprogram INIT_0770,For_Call 015b 4801 |H | Short_Literal 0x1 015c 035d | ] | Declare_Type Array,Defined 015d 00d8 | | Load_Top At_Offset_0 015e 0337 | 7 | Declare_Variable Array 015f 00d8 | | Load_Top At_Offset_0 0160 0335 | 5 | Declare_Variable Array,Duplicate 0161 00cd | | Action Spare6_Action 0162 0092 0972 | r| Action Push_String_Extended,0x972 ; "NUL" 0164 00eb | | Load_Encached Diana_Cache 0165 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0166 00ed | | Load_Encached Diana_Symbol_Rep_Cache 0167 0119 | | Execute Any,Check_In_Formal_Type 0168 4800 |H | Short_Literal 0x0 0169 00da | | Load_Top At_Offset_2 016a 01d6 | | Execute Vector,Field_Write 016b 0092 0973 | s| Action Push_String_Extended,0x973 ; "SOH" 016d 00eb | | Load_Encached Diana_Cache 016e 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 016f 00ed | | Load_Encached Diana_Symbol_Rep_Cache 0170 0119 | | Execute Any,Check_In_Formal_Type 0171 4801 |H | Short_Literal 0x1 0172 00da | | Load_Top At_Offset_2 0173 01d6 | | Execute Vector,Field_Write 0174 0092 0974 | t| Action Push_String_Extended,0x974 ; "STX" 0176 00eb | | Load_Encached Diana_Cache 0177 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0178 00ed | | Load_Encached Diana_Symbol_Rep_Cache 0179 0119 | | Execute Any,Check_In_Formal_Type 017a 4802 |H | Short_Literal 0x2 017b 00da | | Load_Top At_Offset_2 017c 01d6 | | Execute Vector,Field_Write 017d 0092 0975 | u| Action Push_String_Extended,0x975 ; "ETX" 017f 00eb | | Load_Encached Diana_Cache 0180 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0181 00ed | | Load_Encached Diana_Symbol_Rep_Cache 0182 0119 | | Execute Any,Check_In_Formal_Type 0183 4803 |H | Short_Literal 0x3 0184 00da | | Load_Top At_Offset_2 0185 01d6 | | Execute Vector,Field_Write 0186 0092 0976 | v| Action Push_String_Extended,0x976 ; "EOT" 0188 00eb | | Load_Encached Diana_Cache 0189 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 018a 00ed | | Load_Encached Diana_Symbol_Rep_Cache 018b 0119 | | Execute Any,Check_In_Formal_Type 018c 4804 |H | Short_Literal 0x4 018d 00da | | Load_Top At_Offset_2 018e 01d6 | | Execute Vector,Field_Write 018f 0092 0977 | w| Action Push_String_Extended,0x977 ; "ENQ" 0191 00eb | | Load_Encached Diana_Cache 0192 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0193 00ed | | Load_Encached Diana_Symbol_Rep_Cache 0194 0119 | | Execute Any,Check_In_Formal_Type 0195 4805 |H | Short_Literal 0x5 0196 00da | | Load_Top At_Offset_2 0197 01d6 | | Execute Vector,Field_Write 0198 0092 0978 | x| Action Push_String_Extended,0x978 ; "ACK" 019a 00eb | | Load_Encached Diana_Cache 019b 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 019c 00ed | | Load_Encached Diana_Symbol_Rep_Cache 019d 0119 | | Execute Any,Check_In_Formal_Type 019e 4806 |H | Short_Literal 0x6 019f 00da | | Load_Top At_Offset_2 01a0 01d6 | | Execute Vector,Field_Write 01a1 0092 0979 | y| Action Push_String_Extended,0x979 ; "BEL" 01a3 00eb | | Load_Encached Diana_Cache 01a4 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 01a5 00ed | | Load_Encached Diana_Symbol_Rep_Cache 01a6 0119 | | Execute Any,Check_In_Formal_Type 01a7 4807 |H | Short_Literal 0x7 01a8 00da | | Load_Top At_Offset_2 01a9 01d6 | | Execute Vector,Field_Write 01aa 0092 097a | z| Action Push_String_Extended,0x97a ; "BS" 01ac 00eb | | Load_Encached Diana_Cache 01ad 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 01ae 00ed | | Load_Encached Diana_Symbol_Rep_Cache 01af 0119 | | Execute Any,Check_In_Formal_Type 01b0 4808 |H | Short_Literal 0x8 01b1 00da | | Load_Top At_Offset_2 01b2 01d6 | | Execute Vector,Field_Write 01b3 0092 097b | {| Action Push_String_Extended,0x97b ; "HT" 01b5 00eb | | Load_Encached Diana_Cache 01b6 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 01b7 00ed | | Load_Encached Diana_Symbol_Rep_Cache 01b8 0119 | | Execute Any,Check_In_Formal_Type 01b9 4809 |H | Short_Literal 0x9 01ba 00da | | Load_Top At_Offset_2 01bb 01d6 | | Execute Vector,Field_Write 01bc 0092 097c | || Action Push_String_Extended,0x97c ; "LF" 01be 00eb | | Load_Encached Diana_Cache 01bf 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 01c0 00ed | | Load_Encached Diana_Symbol_Rep_Cache 01c1 0119 | | Execute Any,Check_In_Formal_Type 01c2 480a |H | Short_Literal 0xa 01c3 00da | | Load_Top At_Offset_2 01c4 01d6 | | Execute Vector,Field_Write 01c5 0092 097d | }| Action Push_String_Extended,0x97d ; "VT" 01c7 00eb | | Load_Encached Diana_Cache 01c8 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 01c9 00ed | | Load_Encached Diana_Symbol_Rep_Cache 01ca 0119 | | Execute Any,Check_In_Formal_Type 01cb 480b |H | Short_Literal 0xb 01cc 00da | | Load_Top At_Offset_2 01cd 01d6 | | Execute Vector,Field_Write 01ce 0092 097e | ~| Action Push_String_Extended,0x97e ; "FF" 01d0 00eb | | Load_Encached Diana_Cache 01d1 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 01d2 00ed | | Load_Encached Diana_Symbol_Rep_Cache 01d3 0119 | | Execute Any,Check_In_Formal_Type 01d4 480c |H | Short_Literal 0xc 01d5 00da | | Load_Top At_Offset_2 01d6 01d6 | | Execute Vector,Field_Write 01d7 0092 097f | | Action Push_String_Extended,0x97f ; "CR" 01d9 00eb | | Load_Encached Diana_Cache 01da 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 01db 00ed | | Load_Encached Diana_Symbol_Rep_Cache 01dc 0119 | | Execute Any,Check_In_Formal_Type 01dd 480d |H | Short_Literal 0xd 01de 00da | | Load_Top At_Offset_2 01df 01d6 | | Execute Vector,Field_Write 01e0 0092 0980 | | Action Push_String_Extended,0x980 ; "SO" 01e2 00eb | | Load_Encached Diana_Cache 01e3 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 01e4 00ed | | Load_Encached Diana_Symbol_Rep_Cache 01e5 0119 | | Execute Any,Check_In_Formal_Type 01e6 480e |H | Short_Literal 0xe 01e7 00da | | Load_Top At_Offset_2 01e8 01d6 | | Execute Vector,Field_Write 01e9 0092 0981 | | Action Push_String_Extended,0x981 ; "SI" 01eb 00eb | | Load_Encached Diana_Cache 01ec 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 01ed 00ed | | Load_Encached Diana_Symbol_Rep_Cache 01ee 0119 | | Execute Any,Check_In_Formal_Type 01ef 480f |H | Short_Literal 0xf 01f0 00da | | Load_Top At_Offset_2 01f1 01d6 | | Execute Vector,Field_Write 01f2 0092 0982 | | Action Push_String_Extended,0x982 ; "DLE" 01f4 00eb | | Load_Encached Diana_Cache 01f5 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 01f6 00ed | | Load_Encached Diana_Symbol_Rep_Cache 01f7 0119 | | Execute Any,Check_In_Formal_Type 01f8 4810 |H | Short_Literal 0x10 01f9 00da | | Load_Top At_Offset_2 01fa 01d6 | | Execute Vector,Field_Write 01fb 0092 0983 | | Action Push_String_Extended,0x983 ; "DC1" 01fd 00eb | | Load_Encached Diana_Cache 01fe 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 01ff 00ed | | Load_Encached Diana_Symbol_Rep_Cache 0200 0119 | | Execute Any,Check_In_Formal_Type 0201 4811 |H | Short_Literal 0x11 0202 00da | | Load_Top At_Offset_2 0203 01d6 | | Execute Vector,Field_Write 0204 0092 0984 | | Action Push_String_Extended,0x984 ; "DC2" 0206 00eb | | Load_Encached Diana_Cache 0207 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0208 00ed | | Load_Encached Diana_Symbol_Rep_Cache 0209 0119 | | Execute Any,Check_In_Formal_Type 020a 4812 |H | Short_Literal 0x12 020b 00da | | Load_Top At_Offset_2 020c 01d6 | | Execute Vector,Field_Write 020d 0092 0985 | | Action Push_String_Extended,0x985 ; "DC3" 020f 00eb | | Load_Encached Diana_Cache 0210 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0211 00ed | | Load_Encached Diana_Symbol_Rep_Cache 0212 0119 | | Execute Any,Check_In_Formal_Type 0213 4813 |H | Short_Literal 0x13 0214 00da | | Load_Top At_Offset_2 0215 01d6 | | Execute Vector,Field_Write 0216 0092 0986 | | Action Push_String_Extended,0x986 ; "DC4" 0218 00eb | | Load_Encached Diana_Cache 0219 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 021a 00ed | | Load_Encached Diana_Symbol_Rep_Cache 021b 0119 | | Execute Any,Check_In_Formal_Type 021c 4814 |H | Short_Literal 0x14 021d 00da | | Load_Top At_Offset_2 021e 01d6 | | Execute Vector,Field_Write 021f 0092 0987 | | Action Push_String_Extended,0x987 ; "NAK" 0221 00eb | | Load_Encached Diana_Cache 0222 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0223 00ed | | Load_Encached Diana_Symbol_Rep_Cache 0224 0119 | | Execute Any,Check_In_Formal_Type 0225 4815 |H | Short_Literal 0x15 0226 00da | | Load_Top At_Offset_2 0227 01d6 | | Execute Vector,Field_Write 0228 0092 0988 | | Action Push_String_Extended,0x988 ; "SYN" 022a 00eb | | Load_Encached Diana_Cache 022b 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 022c 00ed | | Load_Encached Diana_Symbol_Rep_Cache 022d 0119 | | Execute Any,Check_In_Formal_Type 022e 4816 |H | Short_Literal 0x16 022f 00da | | Load_Top At_Offset_2 0230 01d6 | | Execute Vector,Field_Write 0231 0092 0989 | | Action Push_String_Extended,0x989 ; "ETB" 0233 00eb | | Load_Encached Diana_Cache 0234 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0235 00ed | | Load_Encached Diana_Symbol_Rep_Cache 0236 0119 | | Execute Any,Check_In_Formal_Type 0237 4817 |H | Short_Literal 0x17 0238 00da | | Load_Top At_Offset_2 0239 01d6 | | Execute Vector,Field_Write 023a 0092 098a | | Action Push_String_Extended,0x98a ; "CAN" 023c 00eb | | Load_Encached Diana_Cache 023d 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 023e 00ed | | Load_Encached Diana_Symbol_Rep_Cache 023f 0119 | | Execute Any,Check_In_Formal_Type 0240 4818 |H | Short_Literal 0x18 0241 00da | | Load_Top At_Offset_2 0242 01d6 | | Execute Vector,Field_Write 0243 0092 098b | | Action Push_String_Extended,0x98b ; "EM" 0245 00eb | | Load_Encached Diana_Cache 0246 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0247 00ed | | Load_Encached Diana_Symbol_Rep_Cache 0248 0119 | | Execute Any,Check_In_Formal_Type 0249 4819 |H | Short_Literal 0x19 024a 00da | | Load_Top At_Offset_2 024b 01d6 | | Execute Vector,Field_Write 024c 0092 098c | | Action Push_String_Extended,0x98c ; "SUB" 024e 00eb | | Load_Encached Diana_Cache 024f 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0250 00ed | | Load_Encached Diana_Symbol_Rep_Cache 0251 0119 | | Execute Any,Check_In_Formal_Type 0252 481a |H | Short_Literal 0x1a 0253 00da | | Load_Top At_Offset_2 0254 01d6 | | Execute Vector,Field_Write 0255 0092 098d | | Action Push_String_Extended,0x98d ; "ESC" 0257 00eb | | Load_Encached Diana_Cache 0258 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0259 00ed | | Load_Encached Diana_Symbol_Rep_Cache 025a 0119 | | Execute Any,Check_In_Formal_Type 025b 481b |H | Short_Literal 0x1b 025c 00da | | Load_Top At_Offset_2 025d 01d6 | | Execute Vector,Field_Write 025e 0092 098e | | Action Push_String_Extended,0x98e ; "FS" 0260 00eb | | Load_Encached Diana_Cache 0261 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0262 00ed | | Load_Encached Diana_Symbol_Rep_Cache 0263 0119 | | Execute Any,Check_In_Formal_Type 0264 481c |H | Short_Literal 0x1c 0265 00da | | Load_Top At_Offset_2 0266 01d6 | | Execute Vector,Field_Write 0267 0092 098f | | Action Push_String_Extended,0x98f ; "GS" 0269 00eb | | Load_Encached Diana_Cache 026a 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 026b 00ed | | Load_Encached Diana_Symbol_Rep_Cache 026c 0119 | | Execute Any,Check_In_Formal_Type 026d 481d |H | Short_Literal 0x1d 026e 00da | | Load_Top At_Offset_2 026f 01d6 | | Execute Vector,Field_Write 0270 0092 0990 | | Action Push_String_Extended,0x990 ; "RS" 0272 00eb | | Load_Encached Diana_Cache 0273 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0274 00ed | | Load_Encached Diana_Symbol_Rep_Cache 0275 0119 | | Execute Any,Check_In_Formal_Type 0276 481e |H | Short_Literal 0x1e 0277 00da | | Load_Top At_Offset_2 0278 01d6 | | Execute Vector,Field_Write 0279 0092 0991 | | Action Push_String_Extended,0x991 ; "US" 027b 00eb | | Load_Encached Diana_Cache 027c 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 027d 00ed | | Load_Encached Diana_Symbol_Rep_Cache 027e 0119 | | Execute Any,Check_In_Formal_Type 027f 481f |H | Short_Literal 0x1f 0280 00da | | Load_Top At_Offset_2 0281 01d6 | | Execute Vector,Field_Write 0282 00d9 | | Load_Top At_Offset_1 0283 01d4 | | Execute Vector,Structure_Write 0284 029f 078b | | Declare_Subprogram INIT_0788,For_Call 0286 029f 0803 | | Declare_Subprogram INIT_0800,For_Call 0288 BODY_00d8: 0288 0092 0992 | | Action Push_String_Extended,0x992 ; "CHARACTER" 028a 00eb | | Load_Encached Diana_Cache 028b 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 028c 482f |H/ | Short_Literal 0x2f 028d 00eb | | Load_Encached Diana_Cache 028e 1879 | y | Execute Package,Field_Execute,Field_Number 0x79 028f c011 | | Store 0x0,0x11 0290 486e |Hn | Short_Literal 0x6e 0291 00eb | | Load_Encached Diana_Cache 0292 1878 | x | Execute Package,Field_Execute,Field_Number 0x78 0293 c012 | | Store 0x0,0x12 0294 e012 | | Load 0x0,0x12 0295 820d | | Call 0x1,0xd 0296 e011 | | Load 0x0,0x11 0297 483b |H; | Short_Literal 0x3b 0298 00eb | | Load_Encached Diana_Cache 0299 187e | ~ | Execute Package,Field_Execute,Field_Number 0x7e 029a c013 | | Store 0x0,0x13 029b e012 | | Load 0x0,0x12 029c e011 | | Load 0x0,0x11 029d 4966 |If | Short_Literal 0x166 029e 00eb | | Load_Encached Diana_Cache 029f 0096 | | Execute Package,Entry 02a0 e011 | | Load 0x0,0x11 02a1 00d8 | | Load_Top At_Offset_0 02a2 496a |Ij | Short_Literal 0x16a 02a3 00eb | | Load_Encached Diana_Cache 02a4 0096 | | Execute Package,Entry 02a5 e008 | | Load 0x0,0x8 02a6 e012 | | Load 0x0,0x12 02a7 8009 | | Call 0x0,0x9 02a8 0092 0993 | | Action Push_String_Extended,0x993 ; "ASCII" 02aa 00eb | | Load_Encached Diana_Cache 02ab 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 02ac 4829 |H) | Short_Literal 0x29 02ad 00eb | | Load_Encached Diana_Cache 02ae 1879 | y | Execute Package,Field_Execute,Field_Number 0x79 02af c014 | | Store 0x0,0x14 02b0 488c |H | Short_Literal 0x8c 02b1 00eb | | Load_Encached Diana_Cache 02b2 1878 | x | Execute Package,Field_Execute,Field_Number 0x78 02b3 488c |H | Short_Literal 0x8c 02b4 00eb | | Load_Encached Diana_Cache 02b5 1878 | x | Execute Package,Field_Execute,Field_Number 0x78 02b6 487c |H| | Short_Literal 0x7c 02b7 00eb | | Load_Encached Diana_Cache 02b8 187d | } | Execute Package,Field_Execute,Field_Number 0x7d 02b9 c015 | | Store 0x0,0x15 02ba e015 | | Load 0x0,0x15 02bb e014 | | Load 0x0,0x14 02bc 483e |H> | Short_Literal 0x3e 02bd 00eb | | Load_Encached Diana_Cache 02be 187d | } | Execute Package,Field_Execute,Field_Number 0x7d 02bf c016 | | Store 0x0,0x16 02c0 e015 | | Load 0x0,0x15 02c1 e014 | | Load 0x0,0x14 02c2 4963 |Ic | Short_Literal 0x163 02c3 00eb | | Load_Encached Diana_Cache 02c4 0096 | | Execute Package,Entry 02c5 e014 | | Load 0x0,0x14 02c6 00d8 | | Load_Top At_Offset_0 02c7 496a |Ij | Short_Literal 0x16a 02c8 00eb | | Load_Encached Diana_Cache 02c9 0096 | | Execute Package,Entry 02ca 00cf | | Action Mark_Auxiliary 02cb 481f |H | Short_Literal 0x1f 02cc 4800 |H | Short_Literal 0x0 02cd 0007 | | Action Break_Optional 02ce 00d8 | | Load_Top At_Offset_0 02cf e40d | | Load 0x2,0xd 02d0 01d7 | | Execute Vector,Field_Read 02d1 c409 | | Store 0x2,0x9 02d2 4801 |H | Short_Literal 0x1 02d3 e409 | | Load 0x2,0x9 02d4 00eb | | Load_Encached Diana_Cache 02d5 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 02d6 4807 |H | Short_Literal 0x7 02d7 e408 | | Load 0x2,0x8 02d8 01d6 | | Execute Vector,Field_Write 02d9 4802 |H | Short_Literal 0x2 02da e409 | | Load 0x2,0x9 02db 00eb | | Load_Encached Diana_Cache 02dc 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 02dd 4808 |H | Short_Literal 0x8 02de e408 | | Load 0x2,0x8 02df 01d6 | | Execute Vector,Field_Write 02e0 e409 | | Load 0x2,0x9 02e1 00eb | | Load_Encached Diana_Cache 02e2 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 02e3 0f03 | | Execute_Immediate Equal,0x3 02e4 680b |h | Jump_Zero 0x2f0 02e5 4803 |H | Short_Literal 0x3 02e6 e409 | | Load 0x2,0x9 02e7 00eb | | Load_Encached Diana_Cache 02e8 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 02e9 4809 |H | Short_Literal 0x9 02ea e408 | | Load 0x2,0x8 02eb 01d6 | | Execute Vector,Field_Write 02ec 00d8 | | Load_Top At_Offset_0 02ed e408 | | Load 0x2,0x8 02ee 840f | | Call 0x2,0xf 02ef 7806 |x | Jump 0x2f6 02f0 00d8 | | Load_Top At_Offset_0 02f1 4801 |H | Short_Literal 0x1 02f2 4808 |H | Short_Literal 0x8 02f3 e408 | | Load 0x2,0x8 02f4 01cf | | Execute Vector,Slice_Read 02f5 840f | | Call 0x2,0xf 02f6 00d8 | | Load_Top At_Offset_0 02f7 e409 | | Load 0x2,0x9 02f8 840e | | Call 0x2,0xe 02f9 00c8 | | Action Pop_Auxiliary_Range 02fa 3fd3 |? | Loop_Increasing 0x2ce 02fb 00ce | | Action Pop_Auxiliary 02fc 4827 |H' | Short_Literal 0x27 02fd 4801 |H | Short_Literal 0x1 02fe e406 | | Load 0x2,0x6 02ff 01d6 | | Execute Vector,Field_Write 0300 4827 |H' | Short_Literal 0x27 0301 4803 |H | Short_Literal 0x3 0302 e406 | | Load 0x2,0x6 0303 01d6 | | Execute Vector,Field_Write 0304 00cf | | Action Mark_Auxiliary 0305 487e |H~ | Short_Literal 0x7e 0306 4820 |H | Short_Literal 0x20 0307 0007 | | Action Break_Optional 0308 00d8 | | Load_Top At_Offset_0 0309 4802 |H | Short_Literal 0x2 030a e406 | | Load 0x2,0x6 030b 01d6 | | Execute Vector,Field_Write 030c 00d8 | | Load_Top At_Offset_0 030d e406 | | Load 0x2,0x6 030e 840f | | Call 0x2,0xf 030f 00c8 | | Action Pop_Auxiliary_Range 0310 3ff7 |? | Loop_Increasing 0x308 0311 00ce | | Action Pop_Auxiliary 0312 e405 | | Load 0x2,0x5 0313 4807 |H | Short_Literal 0x7 0314 4809 |H | Short_Literal 0x9 0315 e408 | | Load 0x2,0x8 0316 01ce | | Execute Vector,Slice_Write 0317 487f |H | Short_Literal 0x7f 0318 e408 | | Load 0x2,0x8 0319 840f | | Call 0x2,0xf 031a 487f |H | Short_Literal 0x7f 031b e405 | | Load 0x2,0x5 031c 00eb | | Load_Encached Diana_Cache 031d 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 031e 840e | | Call 0x2,0xe 031f 4821 |H! | Short_Literal 0x21 0320 0092 0994 | | Action Push_String_Extended,0x994 ; "EXCLAM" 0322 00eb | | Load_Encached Diana_Cache 0323 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0324 840e | | Call 0x2,0xe 0325 4823 |H# | Short_Literal 0x23 0326 0092 0995 | | Action Push_String_Extended,0x995 ; "SHARP" 0328 00eb | | Load_Encached Diana_Cache 0329 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 032a 840e | | Call 0x2,0xe 032b 4825 |H% | Short_Literal 0x25 032c 0092 0996 | | Action Push_String_Extended,0x996 ; "PERCENT" 032e 00eb | | Load_Encached Diana_Cache 032f 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0330 840e | | Call 0x2,0xe 0331 483a |H: | Short_Literal 0x3a 0332 0092 0997 | | Action Push_String_Extended,0x997 ; "COLON" 0334 00eb | | Load_Encached Diana_Cache 0335 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0336 840e | | Call 0x2,0xe 0337 483f |H? | Short_Literal 0x3f 0338 0092 0998 | | Action Push_String_Extended,0x998 ; "QUERY" 033a 00eb | | Load_Encached Diana_Cache 033b 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 033c 840e | | Call 0x2,0xe 033d 485b |H[ | Short_Literal 0x5b 033e 0092 0999 | | Action Push_String_Extended,0x999 ; "L_BRACKET" 0340 00eb | | Load_Encached Diana_Cache 0341 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0342 840e | | Call 0x2,0xe 0343 485d |H] | Short_Literal 0x5d 0344 0092 099a | | Action Push_String_Extended,0x99a ; "R_BRACKET" 0346 00eb | | Load_Encached Diana_Cache 0347 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0348 840e | | Call 0x2,0xe 0349 485f |H_ | Short_Literal 0x5f 034a 0092 099b | | Action Push_String_Extended,0x99b ; "UNDERLINE" 034c 00eb | | Load_Encached Diana_Cache 034d 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 034e 840e | | Call 0x2,0xe 034f 487b |H{ | Short_Literal 0x7b 0350 0092 099c | | Action Push_String_Extended,0x99c ; "L_BRACE" 0352 00eb | | Load_Encached Diana_Cache 0353 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0354 840e | | Call 0x2,0xe 0355 487d |H} | Short_Literal 0x7d 0356 0092 099d | | Action Push_String_Extended,0x99d ; "R_BRACE" 0358 00eb | | Load_Encached Diana_Cache 0359 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 035a 840e | | Call 0x2,0xe 035b 4822 |H" | Short_Literal 0x22 035c 0092 099e | | Action Push_String_Extended,0x99e ; "QUOTATION" 035e 00eb | | Load_Encached Diana_Cache 035f 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0360 840e | | Call 0x2,0xe 0361 4824 |H$ | Short_Literal 0x24 0362 0092 099f | | Action Push_String_Extended,0x99f ; "DOLLAR" 0364 00eb | | Load_Encached Diana_Cache 0365 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0366 840e | | Call 0x2,0xe 0367 4826 |H& | Short_Literal 0x26 0368 0092 09a0 | | Action Push_String_Extended,0x9a0 ; "AMPERSAND" 036a 00eb | | Load_Encached Diana_Cache 036b 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 036c 840e | | Call 0x2,0xe 036d 483b |H; | Short_Literal 0x3b 036e 0092 09a1 | | Action Push_String_Extended,0x9a1 ; "SEMICOLON" 0370 00eb | | Load_Encached Diana_Cache 0371 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0372 840e | | Call 0x2,0xe 0373 4840 |H@ | Short_Literal 0x40 0374 0092 09a2 | | Action Push_String_Extended,0x9a2 ; "AT_SIGN" 0376 00eb | | Load_Encached Diana_Cache 0377 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0378 840e | | Call 0x2,0xe 0379 485c |H\ | Short_Literal 0x5c 037a 0092 09a3 | | Action Push_String_Extended,0x9a3 ; "BACK_SLASH" 037c 00eb | | Load_Encached Diana_Cache 037d 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 037e 840e | | Call 0x2,0xe 037f 485e |H^ | Short_Literal 0x5e 0380 0092 09a4 | | Action Push_String_Extended,0x9a4 ; "CIRCUMFLEX" 0382 00eb | | Load_Encached Diana_Cache 0383 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0384 840e | | Call 0x2,0xe 0385 4860 |H` | Short_Literal 0x60 0386 0092 09a5 | | Action Push_String_Extended,0x9a5 ; "GRAVE" 0388 00eb | | Load_Encached Diana_Cache 0389 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 038a 840e | | Call 0x2,0xe 038b 487c |H| | Short_Literal 0x7c 038c 0092 09a6 | | Action Push_String_Extended,0x9a6 ; "BAR" 038e 00eb | | Load_Encached Diana_Cache 038f 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0390 840e | | Call 0x2,0xe 0391 487e |H~ | Short_Literal 0x7e 0392 0092 09a7 | | Action Push_String_Extended,0x9a7 ; "TILDE" 0394 00eb | | Load_Encached Diana_Cache 0395 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0396 840e | | Call 0x2,0xe 0397 00cf | | Action Mark_Auxiliary 0398 487a |Hz | Short_Literal 0x7a 0399 4861 |Ha | Short_Literal 0x61 039a 0007 | | Action Break_Optional 039b 00d8 | | Load_Top At_Offset_0 039c 0ae0 | | Execute_Immediate Plus,-0x20 039d 00d8 | | Load_Top At_Offset_0 039e 00e8 | | Load_Encached Character_Cache 039f 0260 | ` | Execute Discrete,In_Type 03a0 7001 |p | Jump_Nonzero 0x3a2 03a1 0801 | | Execute_Immediate Raise,0x1 03a2 4804 |H | Short_Literal 0x4 03a3 e407 | | Load 0x2,0x7 03a4 01d6 | | Execute Vector,Field_Write 03a5 00d8 | | Load_Top At_Offset_0 03a6 00d8 | | Load_Top At_Offset_0 03a7 00e2 | | Load_Encached Integer_Cache 03a8 0260 | ` | Execute Discrete,In_Type 03a9 7001 |p | Jump_Nonzero 0x3ab 03aa 0801 | | Execute_Immediate Raise,0x1 03ab e407 | | Load 0x2,0x7 03ac 00eb | | Load_Encached Diana_Cache 03ad 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 03ae 840e | | Call 0x2,0xe 03af 00c8 | | Action Pop_Auxiliary_Range 03b0 3fea |? | Loop_Increasing 0x39b 03b1 00ce | | Action Pop_Auxiliary 03b2 e40a | | Load 0x2,0xa 03b3 e012 | | Load 0x0,0x12 03b4 00eb | | Load_Encached Diana_Cache 03b5 1890 | | Execute Package,Field_Execute,Field_Number 0x90 03b6 e40b | | Load 0x2,0xb 03b7 e015 | | Load 0x0,0x15 03b8 00eb | | Load_Encached Diana_Cache 03b9 18bd | | Execute Package,Field_Execute,Field_Number 0xbd 03ba 00eb | | Load_Encached Diana_Cache 03bb 1890 | | Execute Package,Field_Execute,Field_Number 0x90 03bc 0092 09a8 | | Action Push_String_Extended,0x9a8 ; "STRING" 03be 00eb | | Load_Encached Diana_Cache 03bf 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 03c0 482f |H/ | Short_Literal 0x2f 03c1 00eb | | Load_Encached Diana_Cache 03c2 1879 | y | Execute Package,Field_Execute,Field_Number 0x79 03c3 c017 | | Store 0x0,0x17 03c4 e010 | | Load 0x0,0x10 03c5 00eb | | Load_Encached Diana_Cache 03c6 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 03c7 4817 |H | Short_Literal 0x17 03c8 00eb | | Load_Encached Diana_Cache 03c9 1879 | y | Execute Package,Field_Execute,Field_Number 0x79 03ca c402 | | Store 0x2,0x2 03cb e010 | | Load 0x0,0x10 03cc e402 | | Load 0x2,0x2 03cd 4959 |IY | Short_Literal 0x159 03ce 00eb | | Load_Encached Diana_Cache 03cf 0096 | | Execute Package,Entry 03d0 e402 | | Load 0x2,0x2 03d1 4888 |H | Short_Literal 0x88 03d2 00eb | | Load_Encached Diana_Cache 03d3 187c | | | Execute Package,Field_Execute,Field_Number 0x7c 03d4 c402 | | Store 0x2,0x2 03d5 e402 | | Load 0x2,0x2 03d6 4975 |Iu | Short_Literal 0x175 03d7 00eb | | Load_Encached Diana_Cache 03d8 0098 | | Execute Package,Field_Read_Dynamic 03d9 180e | | Execute Package,Field_Execute,Field_Number 0xe 03da 4863 |Hc | Short_Literal 0x63 03db 00eb | | Load_Encached Diana_Cache 03dc 187f | | Execute Package,Field_Execute,Field_Number 0x7f 03dd c402 | | Store 0x2,0x2 03de e011 | | Load 0x0,0x11 03df 00eb | | Load_Encached Diana_Cache 03e0 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 03e1 4817 |H | Short_Literal 0x17 03e2 00eb | | Load_Encached Diana_Cache 03e3 1879 | y | Execute Package,Field_Execute,Field_Number 0x79 03e4 c403 | | Store 0x2,0x3 03e5 e011 | | Load 0x0,0x11 03e6 e403 | | Load 0x2,0x3 03e7 4959 |IY | Short_Literal 0x159 03e8 00eb | | Load_Encached Diana_Cache 03e9 0096 | | Execute Package,Entry 03ea 4800 |H | Short_Literal 0x0 03eb 00eb | | Load_Encached Diana_Cache 03ec 1878 | x | Execute Package,Field_Execute,Field_Number 0x78 03ed e403 | | Load 0x2,0x3 03ee 4866 |Hf | Short_Literal 0x66 03ef 00eb | | Load_Encached Diana_Cache 03f0 187d | } | Execute Package,Field_Execute,Field_Number 0x7d 03f1 c403 | | Store 0x2,0x3 03f2 e012 | | Load 0x0,0x12 03f3 e403 | | Load 0x2,0x3 03f4 4956 |IV | Short_Literal 0x156 03f5 00eb | | Load_Encached Diana_Cache 03f6 0096 | | Execute Package,Entry 03f7 e012 | | Load 0x0,0x12 03f8 e403 | | Load 0x2,0x3 03f9 4967 |Ig | Short_Literal 0x167 03fa 00eb | | Load_Encached Diana_Cache 03fb 0096 | | Execute Package,Entry 03fc 00ec | | Load_Encached Diana_Tree_Cache 03fd e403 | | Load 0x2,0x3 03fe 4958 |IX | Short_Literal 0x158 03ff 00eb | | Load_Encached Diana_Cache 0400 0096 | | Execute Package,Entry 0401 e403 | | Load 0x2,0x3 0402 e402 | | Load 0x2,0x2 0403 486c |Hl | Short_Literal 0x6c 0404 00eb | | Load_Encached Diana_Cache 0405 187d | } | Execute Package,Field_Execute,Field_Number 0x7d 0406 c018 | | Store 0x0,0x18 0407 4801 |H | Short_Literal 0x1 0408 e018 | | Load 0x0,0x18 0409 4951 |IQ | Short_Literal 0x151 040a 00eb | | Load_Encached Diana_Cache 040b 0096 | | Execute Package,Entry 040c e018 | | Load 0x0,0x18 040d 820d | | Call 0x1,0xd 040e e017 | | Load 0x0,0x17 040f 483b |H; | Short_Literal 0x3b 0410 00eb | | Load_Encached Diana_Cache 0411 187e | ~ | Execute Package,Field_Execute,Field_Number 0x7e 0412 c019 | | Store 0x0,0x19 0413 e018 | | Load 0x0,0x18 0414 e017 | | Load 0x0,0x17 0415 4966 |If | Short_Literal 0x166 0416 00eb | | Load_Encached Diana_Cache 0417 0096 | | Execute Package,Entry 0418 e017 | | Load 0x0,0x17 0419 00d8 | | Load_Top At_Offset_0 041a 496a |Ij | Short_Literal 0x16a 041b 00eb | | Load_Encached Diana_Cache 041c 0096 | | Execute Package,Entry 041d e008 | | Load 0x0,0x8 041e e018 | | Load 0x0,0x18 041f 8009 | | Call 0x0,0x9 0420 e017 | | Load 0x0,0x17 0421 00eb | | Load_Encached Diana_Cache 0422 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0423 4817 |H | Short_Literal 0x17 0424 00eb | | Load_Encached Diana_Cache 0425 1879 | y | Execute Package,Field_Execute,Field_Number 0x79 0426 c404 | | Store 0x2,0x4 0427 e017 | | Load 0x0,0x17 0428 e404 | | Load 0x2,0x4 0429 4959 |IY | Short_Literal 0x159 042a 00eb | | Load_Encached Diana_Cache 042b 0096 | | Execute Package,Entry 042c e404 | | Load 0x2,0x4 042d 4975 |Iu | Short_Literal 0x175 042e 00eb | | Load_Encached Diana_Cache 042f 0098 | | Execute Package,Field_Read_Dynamic 0430 180e | | Execute Package,Field_Execute,Field_Number 0xe 0431 4893 |H | Short_Literal 0x93 0432 00eb | | Load_Encached Diana_Cache 0433 187f | | Execute Package,Field_Execute,Field_Number 0x7f 0434 0092 09a9 | | Action Push_String_Extended,0x9a9 ; "PACK" 0436 00eb | | Load_Encached Diana_Cache 0437 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0438 4817 |H | Short_Literal 0x17 0439 00eb | | Load_Encached Diana_Cache 043a 1879 | y | Execute Package,Field_Execute,Field_Number 0x79 043b 4840 |H@ | Short_Literal 0x40 043c 00eb | | Load_Encached Diana_Cache 043d 187d | } | Execute Package,Field_Execute,Field_Number 0x7d 043e c01a | | Store 0x0,0x1a 043f e018 | | Load 0x0,0x18 0440 e017 | | Load 0x0,0x17 0441 4975 |Iu | Short_Literal 0x175 0442 00eb | | Load_Encached Diana_Cache 0443 0098 | | Execute Package,Field_Read_Dynamic 0444 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0445 e01a | | Load 0x0,0x1a 0446 e01b | | Load 0x0,0x1b 0447 18a9 | | Execute Package,Field_Execute,Field_Number 0xa9 0448 e01a | | Load 0x0,0x1a 0449 4975 |Iu | Short_Literal 0x175 044a 00eb | | Load_Encached Diana_Cache 044b 0098 | | Execute Package,Field_Read_Dynamic 044c 181f | | Execute Package,Field_Execute,Field_Number 0x1f 044d e017 | | Load 0x0,0x17 044e e01b | | Load 0x0,0x1b 044f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0450 e013 | | Load 0x0,0x13 0451 800a | | Call 0x0,0xa 0452 e019 | | Load 0x0,0x19 0453 800a | | Call 0x0,0xa 0454 e01a | | Load 0x0,0x1a 0455 800a | | Call 0x0,0xa 0456 e016 | | Load 0x0,0x16 0457 800a | | Call 0x0,0xa 0458 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0459 0000 0000 | | .BLANK 0000[0x7] 0460 ; -------------------------------------------------------------------------------------- 0460 ; SUBPROGRAM 0460 ; -------------------------------------------------------------------------------------- 0460 04c7 | | .CONST 0x04c7 ; Address of begin 0461 0004 | | .CONST 0x0004 ; Address of exception handler 0462 000d | | .CONST 0x000d ; Number of locals 0463 INIT_0460: 0463 4801 |H | Short_Literal 0x1 0464 4804 |H | Short_Literal 0x4 0465 e001 | | Load 0x0,0x1 0466 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 0467 035b | [ | Declare_Type Array,Constrained 0468 4800 |H | Short_Literal 0x0 0469 480f |H | Short_Literal 0xf 046a 00e2 | | Load_Encached Integer_Cache 046b 03f8 | | Declare_Type Discrete,Constrained 046c 4800 |H | Short_Literal 0x0 046d 480f |H | Short_Literal 0xf 046e 00e8 | | Load_Encached Character_Cache 046f 02a0 | | Declare_Subprogram Null_Subprogram 0470 4801 |H | Short_Literal 0x1 0471 035d | ] | Declare_Type Array,Defined 0472 00d8 | | Load_Top At_Offset_0 0473 0337 | 7 | Declare_Variable Array 0474 00d8 | | Load_Top At_Offset_0 0475 0335 | 5 | Declare_Variable Array,Duplicate 0476 00cd | | Action Spare6_Action 0477 4830 |H0 | Short_Literal 0x30 0478 4800 |H | Short_Literal 0x0 0479 00da | | Load_Top At_Offset_2 047a 01d6 | | Execute Vector,Field_Write 047b 4831 |H1 | Short_Literal 0x31 047c 4801 |H | Short_Literal 0x1 047d 00da | | Load_Top At_Offset_2 047e 01d6 | | Execute Vector,Field_Write 047f 4832 |H2 | Short_Literal 0x32 0480 4802 |H | Short_Literal 0x2 0481 00da | | Load_Top At_Offset_2 0482 01d6 | | Execute Vector,Field_Write 0483 4833 |H3 | Short_Literal 0x33 0484 4803 |H | Short_Literal 0x3 0485 00da | | Load_Top At_Offset_2 0486 01d6 | | Execute Vector,Field_Write 0487 4834 |H4 | Short_Literal 0x34 0488 4804 |H | Short_Literal 0x4 0489 00da | | Load_Top At_Offset_2 048a 01d6 | | Execute Vector,Field_Write 048b 4835 |H5 | Short_Literal 0x35 048c 4805 |H | Short_Literal 0x5 048d 00da | | Load_Top At_Offset_2 048e 01d6 | | Execute Vector,Field_Write 048f 4836 |H6 | Short_Literal 0x36 0490 4806 |H | Short_Literal 0x6 0491 00da | | Load_Top At_Offset_2 0492 01d6 | | Execute Vector,Field_Write 0493 4837 |H7 | Short_Literal 0x37 0494 4807 |H | Short_Literal 0x7 0495 00da | | Load_Top At_Offset_2 0496 01d6 | | Execute Vector,Field_Write 0497 4838 |H8 | Short_Literal 0x38 0498 4808 |H | Short_Literal 0x8 0499 00da | | Load_Top At_Offset_2 049a 01d6 | | Execute Vector,Field_Write 049b 4839 |H9 | Short_Literal 0x39 049c 4809 |H | Short_Literal 0x9 049d 00da | | Load_Top At_Offset_2 049e 01d6 | | Execute Vector,Field_Write 049f 4841 |HA | Short_Literal 0x41 04a0 480a |H | Short_Literal 0xa 04a1 00da | | Load_Top At_Offset_2 04a2 01d6 | | Execute Vector,Field_Write 04a3 4842 |HB | Short_Literal 0x42 04a4 480b |H | Short_Literal 0xb 04a5 00da | | Load_Top At_Offset_2 04a6 01d6 | | Execute Vector,Field_Write 04a7 4843 |HC | Short_Literal 0x43 04a8 480c |H | Short_Literal 0xc 04a9 00da | | Load_Top At_Offset_2 04aa 01d6 | | Execute Vector,Field_Write 04ab 4844 |HD | Short_Literal 0x44 04ac 480d |H | Short_Literal 0xd 04ad 00da | | Load_Top At_Offset_2 04ae 01d6 | | Execute Vector,Field_Write 04af 4845 |HE | Short_Literal 0x45 04b0 480e |H | Short_Literal 0xe 04b1 00da | | Load_Top At_Offset_2 04b2 01d6 | | Execute Vector,Field_Write 04b3 4846 |HF | Short_Literal 0x46 04b4 480f |H | Short_Literal 0xf 04b5 00da | | Load_Top At_Offset_2 04b6 01d6 | | Execute Vector,Field_Write 04b7 00d9 | | Load_Top At_Offset_1 04b8 01d4 | | Execute Vector,Structure_Write 04b9 a01c | | Store_Unchecked 0x0,0x1c 04ba 00c6 | | Action Check_Subprogram_Elaborated 04bb 00db | | Load_Top At_Offset_3 04bc 00db | | Load_Top At_Offset_3 04bd e01d | | Load 0x0,0x1d 04be e01e | | Load 0x0,0x1e 04bf 480a |H | Short_Literal 0xa 04c0 0007 | | Action Break_Optional 04c1 029f 082b | +| Declare_Subprogram INIT_0828,For_Call 04c3 029f 083b | ;| Declare_Subprogram INIT_0838,For_Call 04c5 029f 0853 | S| Declare_Subprogram INIT_0850,For_Call 04c7 BODY_0460: 04c7 e5ff | | Load 0x2,-0x1 04c8 e001 | | Load 0x0,0x1 04c9 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b 04ca 012f | / | Execute Any,Equal 04cb 6803 |h | Jump_Zero 0x4cf 04cc 0092 09aa | | Action Push_String_Extended,0x9aa ; "0.0" 04ce 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04cf e5ff | | Load 0x2,-0x1 04d0 840d | | Call 0x2,0xd 04d1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04d2 0000 0000 | | .BLANK 0000[0x6] 04d8 ; -------------------------------------------------------------------------------------- 04d8 ; SUBPROGRAM 04d8 ; -------------------------------------------------------------------------------------- 04d8 04e4 | | .CONST 0x04e4 ; Address of begin 04d9 0004 | | .CONST 0x0004 ; Address of exception handler 04da 0003 | | .CONST 0x0003 ; Number of locals 04db INIT_04d8: 04db 00ec | | Load_Encached Diana_Tree_Cache 04dc 02c7 | | Declare_Variable Any 04dd 00db | | Load_Top At_Offset_3 04de 00eb | | Load_Encached Diana_Cache 04df 18aa | | Execute Package,Field_Execute,Field_Number 0xaa 04e0 a402 | | Store_Unchecked 0x2,0x2 04e1 00db | | Load_Top At_Offset_3 04e2 e001 | | Load 0x0,0x1 04e3 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 04e4 BODY_04d8: 04e4 e01f | | Load 0x0,0x1f 04e5 00da | | Load_Top At_Offset_2 04e6 495b |I[ | Short_Literal 0x15b 04e7 00eb | | Load_Encached Diana_Cache 04e8 0096 | | Execute Package,Entry 04e9 00d8 | | Load_Top At_Offset_0 04ea 01dd | | Execute Vector,First 04eb 00d9 | | Load_Top At_Offset_1 04ec 01d7 | | Execute Vector,Field_Read 04ed 0f20 | | Execute_Immediate Equal,0x20 04ee 6812 |h | Jump_Zero 0x501 04ef 00d8 | | Load_Top At_Offset_0 04f0 01dd | | Execute Vector,First 04f1 0a01 | | Execute_Immediate Plus,0x1 04f2 00d8 | | Load_Top At_Offset_0 04f3 00e2 | | Load_Encached Integer_Cache 04f4 0260 | ` | Execute Discrete,In_Type 04f5 7001 |p | Jump_Nonzero 0x4f7 04f6 0801 | | Execute_Immediate Raise,0x1 04f7 00d9 | | Load_Top At_Offset_1 04f8 01dc | | Execute Vector,Last 04f9 00da | | Load_Top At_Offset_2 04fa 01cf | | Execute Vector,Slice_Read 04fb 00eb | | Load_Encached Diana_Cache 04fc 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 04fd 00da | | Load_Top At_Offset_2 04fe 00eb | | Load_Encached Diana_Cache 04ff 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0500 7806 |x | Jump 0x507 0501 00d8 | | Load_Top At_Offset_0 0502 00eb | | Load_Encached Diana_Cache 0503 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 0504 00da | | Load_Top At_Offset_2 0505 00eb | | Load_Encached Diana_Cache 0506 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0507 00d9 | | Load_Top At_Offset_1 0508 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0509 0000 0000 | | .BLANK 0000[0x7] 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 00da | | Load_Top At_Offset_2 0514 8212 | | Call 0x1,0x12 0515 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0516 0000 0000 | | .XXX[0x2] 0518 ; -------------------------------------------------------------------------------------- 0518 ; SUBPROGRAM 0518 ; -------------------------------------------------------------------------------------- 0518 0521 | ! | .CONST 0x0521 ; Address of begin 0519 0004 | | .CONST 0x0004 ; Address of exception handler 051a 0002 | | .CONST 0x0002 ; Number of locals 051b INIT_0518: 051b 00ec | | Load_Encached Diana_Tree_Cache 051c 02c7 | | Declare_Variable Any 051d 00db | | Load_Top At_Offset_3 051e 00eb | | Load_Encached Diana_Cache 051f 18ac | | Execute Package,Field_Execute,Field_Number 0xac 0520 a402 | | Store_Unchecked 0x2,0x2 0521 BODY_0518: 0521 e020 | | Load 0x0,0x20 0522 00d9 | | Load_Top At_Offset_1 0523 495b |I[ | Short_Literal 0x15b 0524 00eb | | Load_Encached Diana_Cache 0525 0096 | | Execute Package,Entry 0526 00db | | Load_Top At_Offset_3 0527 8211 | | Call 0x1,0x11 0528 00eb | | Load_Encached Diana_Cache 0529 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 052a 00d9 | | Load_Top At_Offset_1 052b 00eb | | Load_Encached Diana_Cache 052c 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 052d 00d8 | | Load_Top At_Offset_0 052e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 052f 0000 | | .XXX[0x1] 0530 ; -------------------------------------------------------------------------------------- 0530 ; SUBPROGRAM 0530 ; -------------------------------------------------------------------------------------- 0530 053c | < | .CONST 0x053c ; Address of begin 0531 0004 | | .CONST 0x0004 ; Address of exception handler 0532 0002 | | .CONST 0x0002 ; Number of locals 0533 INIT_0530: 0533 00ec | | Load_Encached Diana_Tree_Cache 0534 02c7 | | Declare_Variable Any 0535 e021 | ! | Load 0x0,0x21 0536 00eb | | Load_Encached Diana_Cache 0537 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0538 4817 |H | Short_Literal 0x17 0539 00eb | | Load_Encached Diana_Cache 053a 1879 | y | Execute Package,Field_Execute,Field_Number 0x79 053b a402 | | Store_Unchecked 0x2,0x2 053c BODY_0530: 053c e021 | ! | Load 0x0,0x21 053d 00d9 | | Load_Top At_Offset_1 053e 4959 |IY | Short_Literal 0x159 053f 00eb | | Load_Encached Diana_Cache 0540 0096 | | Execute Package,Entry 0541 00d8 | | Load_Top At_Offset_0 0542 00ca | | Action Exit_Nullary_Function 0543 0000 0000 | | .BLANK 0000[0x5] 0548 ; -------------------------------------------------------------------------------------- 0548 ; SUBPROGRAM 0548 ; -------------------------------------------------------------------------------------- 0548 056d | m | .CONST 0x056d ; Address of begin 0549 0004 | | .CONST 0x0004 ; Address of exception handler 054a 0006 | | .CONST 0x0006 ; Number of locals 054b INIT_0548: 054b 00da | | Load_Top At_Offset_2 054c e022 | " | Load 0x0,0x22 054d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 054e 1819 | | Execute Package,Field_Execute,Field_Number 0x19 054f e023 | # | Load 0x0,0x23 0550 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0551 00ec | | Load_Encached Diana_Tree_Cache 0552 02c7 | | Declare_Variable Any 0553 00d8 | | Load_Top At_Offset_0 0554 1c00 | | Execute_Immediate Run_Utility,0x0 0555 00ec | | Load_Encached Diana_Tree_Cache 0556 02c7 | | Declare_Variable Any 0557 00d8 | | Load_Top At_Offset_0 0558 1c00 | | Execute_Immediate Run_Utility,0x0 0559 00ec | | Load_Encached Diana_Tree_Cache 055a 02c7 | | Declare_Variable Any 055b 00d8 | | Load_Top At_Offset_0 055c 1c00 | | Execute_Immediate Run_Utility,0x0 055d 00ec | | Load_Encached Diana_Tree_Cache 055e 02c7 | | Declare_Variable Any 055f e5ff | | Load 0x2,-0x1 0560 e022 | " | Load 0x0,0x22 0561 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0562 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0563 8214 | | Call 0x1,0x14 0564 e5ff | | Load 0x2,-0x1 0565 e022 | " | Load 0x0,0x22 0566 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0567 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0568 8214 | | Call 0x1,0x14 0569 4861 |Ha | Short_Literal 0x61 056a 00eb | | Load_Encached Diana_Cache 056b 187d | } | Execute Package,Field_Execute,Field_Number 0x7d 056c a406 | | Store_Unchecked 0x2,0x6 056d BODY_0548: 056d e402 | | Load 0x2,0x2 056e 482f |H/ | Short_Literal 0x2f 056f 00eb | | Load_Encached Diana_Cache 0570 187a | z | Execute Package,Field_Execute,Field_Number 0x7a 0571 c403 | | Store 0x2,0x3 0572 00d8 | | Load_Top At_Offset_0 0573 e5ff | | Load 0x2,-0x1 0574 e022 | " | Load 0x0,0x22 0575 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0576 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0577 8213 | | Call 0x1,0x13 0578 4865 |He | Short_Literal 0x65 0579 00eb | | Load_Encached Diana_Cache 057a 187d | } | Execute Package,Field_Execute,Field_Number 0x7d 057b c404 | | Store 0x2,0x4 057c 00da | | Load_Top At_Offset_2 057d 820d | | Call 0x1,0xd 057e e403 | | Load 0x2,0x3 057f 483b |H; | Short_Literal 0x3b 0580 00eb | | Load_Encached Diana_Cache 0581 187e | ~ | Execute Package,Field_Execute,Field_Number 0x7e 0582 c405 | | Store 0x2,0x5 0583 00da | | Load_Top At_Offset_2 0584 00d9 | | Load_Top At_Offset_1 0585 4956 |IV | Short_Literal 0x156 0586 00eb | | Load_Encached Diana_Cache 0587 0096 | | Execute Package,Entry 0588 00da | | Load_Top At_Offset_2 0589 e403 | | Load 0x2,0x3 058a 4966 |If | Short_Literal 0x166 058b 00eb | | Load_Encached Diana_Cache 058c 0096 | | Execute Package,Entry 058d 00db | | Load_Top At_Offset_3 058e e403 | | Load 0x2,0x3 058f 496a |Ij | Short_Literal 0x16a 0590 00eb | | Load_Encached Diana_Cache 0591 0096 | | Execute Package,Entry 0592 00da | | Load_Top At_Offset_2 0593 00db | | Load_Top At_Offset_3 0594 4967 |Ig | Short_Literal 0x167 0595 00eb | | Load_Encached Diana_Cache 0596 0096 | | Execute Package,Entry 0597 00da | | Load_Top At_Offset_2 0598 00db | | Load_Top At_Offset_3 0599 4956 |IV | Short_Literal 0x156 059a 00eb | | Load_Encached Diana_Cache 059b 0096 | | Execute Package,Entry 059c e008 | | Load 0x0,0x8 059d 00db | | Load_Top At_Offset_3 059e 8009 | | Call 0x0,0x9 059f 00d9 | | Load_Top At_Offset_1 05a0 800a | | Call 0x0,0xa 05a1 485f |H_ | Short_Literal 0x5f 05a2 e402 | | Load 0x2,0x2 05a3 01cb | | Execute Vector,Append 05a4 e403 | | Load 0x2,0x3 05a5 e404 | | Load 0x2,0x4 05a6 e024 | $ | Load 0x0,0x24 05a7 180e | | Execute Package,Field_Execute,Field_Number 0xe 05a8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05a9 0000 0000 | | .BLANK 0000[0x7] 05b0 ; -------------------------------------------------------------------------------------- 05b0 ; SUBPROGRAM 05b0 ; -------------------------------------------------------------------------------------- 05b0 05dd | | .CONST 0x05dd ; Address of begin 05b1 0004 | | .CONST 0x0004 ; Address of exception handler 05b2 000a | | .CONST 0x000a ; Number of locals 05b3 INIT_05b0: 05b3 e001 | | Load 0x0,0x1 05b4 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 05b5 02c7 | | Declare_Variable Any 05b6 5891 |X | Indirect_Literal Float,0x648,2.0 05b7 e001 | | Load 0x0,0x1 05b8 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e 05b9 a402 | | Store_Unchecked 0x2,0x2 05ba 00db | | Load_Top At_Offset_3 05bb e023 | # | Load 0x0,0x23 05bc 1814 | | Execute Package,Field_Execute,Field_Number 0x14 05bd 00ec | | Load_Encached Diana_Tree_Cache 05be 02c7 | | Declare_Variable Any 05bf 00d8 | | Load_Top At_Offset_0 05c0 1c00 | | Execute_Immediate Run_Utility,0x0 05c1 00ec | | Load_Encached Diana_Tree_Cache 05c2 02c7 | | Declare_Variable Any 05c3 00d8 | | Load_Top At_Offset_0 05c4 1c00 | | Execute_Immediate Run_Utility,0x0 05c5 e001 | | Load 0x0,0x1 05c6 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 05c7 02c7 | | Declare_Variable Any 05c8 e5fe | | Load 0x2,-0x2 05c9 e402 | | Load 0x2,0x2 05ca e001 | | Load 0x0,0x1 05cb 1857 | W | Execute Package,Field_Execute,Field_Number 0x57 05cc a406 | | Store_Unchecked 0x2,0x6 05cd e001 | | Load 0x0,0x1 05ce 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 05cf 02c7 | | Declare_Variable Any 05d0 00d8 | | Load_Top At_Offset_0 05d1 1c00 | | Execute_Immediate Run_Utility,0x0 05d2 e001 | | Load 0x0,0x1 05d3 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 05d4 02c7 | | Declare_Variable Any 05d5 00d8 | | Load_Top At_Offset_0 05d6 1c00 | | Execute_Immediate Run_Utility,0x0 05d7 00ec | | Load_Encached Diana_Tree_Cache 05d8 02c7 | | Declare_Variable Any 05d9 00d8 | | Load_Top At_Offset_0 05da 1c00 | | Execute_Immediate Run_Utility,0x0 05db 029f 086b | k| Declare_Subprogram INIT_0868,For_Call 05dd BODY_05b0: 05dd e5fa | | Load 0x2,-0x6 05de 6805 |h | Jump_Zero 0x5e4 05df e5fc | | Load 0x2,-0x4 05e0 c407 | | Store 0x2,0x7 05e1 e5fb | | Load 0x2,-0x5 05e2 c408 | | Store 0x2,0x8 05e3 7812 |x | Jump 0x5f6 05e4 e406 | | Load 0x2,0x6 05e5 e5fd | | Load 0x2,-0x3 05e6 0aff | | Execute_Immediate Plus,-0x1 05e7 e402 | | Load 0x2,0x2 05e8 e001 | | Load 0x0,0x1 05e9 1857 | W | Execute Package,Field_Execute,Field_Number 0x57 05ea e001 | | Load 0x0,0x1 05eb 1855 | U | Execute Package,Field_Execute,Field_Number 0x55 05ec e001 | | Load 0x0,0x1 05ed 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 05ee c407 | | Store 0x2,0x7 05ef e406 | | Load 0x2,0x6 05f0 e407 | | Load 0x2,0x7 05f1 e001 | | Load 0x0,0x1 05f2 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 05f3 e001 | | Load 0x0,0x1 05f4 1854 | T | Execute Package,Field_Execute,Field_Number 0x54 05f5 c408 | | Store 0x2,0x8 05f6 00da | | Load_Top At_Offset_2 05f7 8214 | | Call 0x1,0x14 05f8 e407 | | Load 0x2,0x7 05f9 8214 | | Call 0x1,0x14 05fa 4861 |Ha | Short_Literal 0x61 05fb 00eb | | Load_Encached Diana_Cache 05fc 187d | } | Execute Package,Field_Execute,Field_Number 0x7d 05fd c409 | | Store 0x2,0x9 05fe e403 | | Load 0x2,0x3 05ff 482f |H/ | Short_Literal 0x2f 0600 00eb | | Load_Encached Diana_Cache 0601 187a | z | Execute Package,Field_Execute,Field_Number 0x7a 0602 c404 | | Store 0x2,0x4 0603 00d9 | | Load_Top At_Offset_1 0604 e406 | | Load 0x2,0x6 0605 8214 | | Call 0x1,0x14 0606 4864 |Hd | Short_Literal 0x64 0607 00eb | | Load_Encached Diana_Cache 0608 187d | } | Execute Package,Field_Execute,Field_Number 0x7d 0609 c5f8 | | Store 0x2,-0x8 060a e5f8 | | Load 0x2,-0x8 060b 820d | | Call 0x1,0xd 060c e404 | | Load 0x2,0x4 060d 483b |H; | Short_Literal 0x3b 060e 00eb | | Load_Encached Diana_Cache 060f 187e | ~ | Execute Package,Field_Execute,Field_Number 0x7e 0610 c405 | | Store 0x2,0x5 0611 e5f9 | | Load 0x2,-0x7 0612 680b |h | Jump_Zero 0x61e 0613 e5f8 | | Load 0x2,-0x8 0614 00da | | Load_Top At_Offset_2 0615 4956 |IV | Short_Literal 0x156 0616 00eb | | Load_Encached Diana_Cache 0617 0096 | | Execute Package,Entry 0618 e5f8 | | Load 0x2,-0x8 0619 00d8 | | Load_Top At_Offset_0 061a 4956 |IV | Short_Literal 0x156 061b 00eb | | Load_Encached Diana_Cache 061c 0096 | | Execute Package,Entry 061d 7801 |x | Jump 0x61f 061e 840a | | Call 0x2,0xa 061f e5f8 | | Load 0x2,-0x8 0620 e404 | | Load 0x2,0x4 0621 4966 |If | Short_Literal 0x166 0622 00eb | | Load_Encached Diana_Cache 0623 0096 | | Execute Package,Entry 0624 e404 | | Load 0x2,0x4 0625 00d8 | | Load_Top At_Offset_0 0626 496a |Ij | Short_Literal 0x16a 0627 00eb | | Load_Encached Diana_Cache 0628 0096 | | Execute Package,Entry 0629 e406 | | Load 0x2,0x6 062a e5f8 | | Load 0x2,-0x8 062b 4953 |IS | Short_Literal 0x153 062c 00eb | | Load_Encached Diana_Cache 062d 0096 | | Execute Package,Entry 062e e5fd | | Load 0x2,-0x3 062f 0aff | | Execute_Immediate Plus,-0x1 0630 e5f8 | | Load 0x2,-0x8 0631 494d |IM | Short_Literal 0x14d 0632 00eb | | Load_Encached Diana_Cache 0633 0096 | | Execute Package,Entry 0634 e5fe | | Load 0x2,-0x2 0635 e5f8 | | Load 0x2,-0x8 0636 e01b | | Load 0x0,0x1b 0637 1877 | w | Execute Package,Field_Execute,Field_Number 0x77 0638 e008 | | Load 0x0,0x8 0639 e5f8 | | Load 0x2,-0x8 063a 8009 | | Call 0x0,0x9 063b e5f9 | | Load 0x2,-0x7 063c 7009 |p | Jump_Nonzero 0x646 063d e405 | | Load 0x2,0x5 063e 800a | | Call 0x0,0xa 063f 485f |H_ | Short_Literal 0x5f 0640 e403 | | Load 0x2,0x3 0641 01cb | | Execute Vector,Append 0642 e404 | | Load 0x2,0x4 0643 e5f8 | | Load 0x2,-0x8 0644 e024 | $ | Load 0x0,0x24 0645 180f | | Execute Package,Field_Execute,Field_Number 0xf 0646 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0647 0000 | | .XXX[0x1] 0648 4000 0000 |@ | .DBL 2.0 064a 0000 0000 | | 064c 0000 0000 | | .BLANK 0000[0x4] 0650 ; -------------------------------------------------------------------------------------- 0650 ; SUBPROGRAM 0650 ; -------------------------------------------------------------------------------------- 0650 0675 | u | .CONST 0x0675 ; Address of begin 0651 0004 | | .CONST 0x0004 ; Address of exception handler 0652 0006 | | .CONST 0x0006 ; Number of locals 0653 INIT_0650: 0653 00da | | Load_Top At_Offset_2 0654 e022 | " | Load 0x0,0x22 0655 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0656 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0657 e023 | # | Load 0x0,0x23 0658 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0659 00ec | | Load_Encached Diana_Tree_Cache 065a 02c7 | | Declare_Variable Any 065b 00d8 | | Load_Top At_Offset_0 065c 1c00 | | Execute_Immediate Run_Utility,0x0 065d 00ec | | Load_Encached Diana_Tree_Cache 065e 02c7 | | Declare_Variable Any 065f 00d8 | | Load_Top At_Offset_0 0660 1c00 | | Execute_Immediate Run_Utility,0x0 0661 00ec | | Load_Encached Diana_Tree_Cache 0662 02c7 | | Declare_Variable Any 0663 00d8 | | Load_Top At_Offset_0 0664 1c00 | | Execute_Immediate Run_Utility,0x0 0665 00ec | | Load_Encached Diana_Tree_Cache 0666 02c7 | | Declare_Variable Any 0667 e5ff | | Load 0x2,-0x1 0668 e022 | " | Load 0x0,0x22 0669 1b13 | | Execute Package,Field_Read,Field_Number 0x13 066a 1814 | | Execute Package,Field_Execute,Field_Number 0x14 066b 8212 | | Call 0x1,0x12 066c e5ff | | Load 0x2,-0x1 066d e022 | " | Load 0x0,0x22 066e 1b13 | | Execute Package,Field_Read,Field_Number 0x13 066f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0670 8212 | | Call 0x1,0x12 0671 4861 |Ha | Short_Literal 0x61 0672 00eb | | Load_Encached Diana_Cache 0673 187d | } | Execute Package,Field_Execute,Field_Number 0x7d 0674 a406 | | Store_Unchecked 0x2,0x6 0675 BODY_0650: 0675 e402 | | Load 0x2,0x2 0676 482f |H/ | Short_Literal 0x2f 0677 00eb | | Load_Encached Diana_Cache 0678 187a | z | Execute Package,Field_Execute,Field_Number 0x7a 0679 c403 | | Store 0x2,0x3 067a 00d8 | | Load_Top At_Offset_0 067b 486f |Ho | Short_Literal 0x6f 067c 00eb | | Load_Encached Diana_Cache 067d 187c | | | Execute Package,Field_Execute,Field_Number 0x7c 067e c404 | | Store 0x2,0x4 067f 00da | | Load_Top At_Offset_2 0680 820d | | Call 0x1,0xd 0681 e403 | | Load 0x2,0x3 0682 483b |H; | Short_Literal 0x3b 0683 00eb | | Load_Encached Diana_Cache 0684 187e | ~ | Execute Package,Field_Execute,Field_Number 0x7e 0685 c405 | | Store 0x2,0x5 0686 00da | | Load_Top At_Offset_2 0687 00d9 | | Load_Top At_Offset_1 0688 4956 |IV | Short_Literal 0x156 0689 00eb | | Load_Encached Diana_Cache 068a 0096 | | Execute Package,Entry 068b 00da | | Load_Top At_Offset_2 068c e403 | | Load 0x2,0x3 068d 4966 |If | Short_Literal 0x166 068e 00eb | | Load_Encached Diana_Cache 068f 0096 | | Execute Package,Entry 0690 00db | | Load_Top At_Offset_3 0691 e403 | | Load 0x2,0x3 0692 496a |Ij | Short_Literal 0x16a 0693 00eb | | Load_Encached Diana_Cache 0694 0096 | | Execute Package,Entry 0695 00da | | Load_Top At_Offset_2 0696 00db | | Load_Top At_Offset_3 0697 4967 |Ig | Short_Literal 0x167 0698 00eb | | Load_Encached Diana_Cache 0699 0096 | | Execute Package,Entry 069a 00da | | Load_Top At_Offset_2 069b 00db | | Load_Top At_Offset_3 069c 4956 |IV | Short_Literal 0x156 069d 00eb | | Load_Encached Diana_Cache 069e 0096 | | Execute Package,Entry 069f e008 | | Load 0x0,0x8 06a0 00db | | Load_Top At_Offset_3 06a1 8009 | | Call 0x0,0x9 06a2 e402 | | Load 0x2,0x2 06a3 0092 09ab | | Action Push_String_Extended,0x9ab ; "INTEGER" 06a5 01df | | Execute Vector,Equal 06a6 680b |h | Jump_Zero 0x6b2 06a7 00db | | Load_Top At_Offset_3 06a8 c021 | ! | Store 0x0,0x21 06a9 00da | | Load_Top At_Offset_2 06aa c025 | % | Store 0x0,0x25 06ab 00d9 | | Load_Top At_Offset_1 06ac c026 | & | Store 0x0,0x26 06ad e5ff | | Load 0x2,-0x1 06ae e022 | " | Load 0x0,0x22 06af 1b13 | | Execute Package,Field_Read,Field_Number 0x13 06b0 1814 | | Execute Package,Field_Execute,Field_Number 0x14 06b1 c20f | | Store 0x1,0xf 06b2 00d9 | | Load_Top At_Offset_1 06b3 800a | | Call 0x0,0xa 06b4 485f |H_ | Short_Literal 0x5f 06b5 e402 | | Load 0x2,0x2 06b6 01cb | | Execute Vector,Append 06b7 e403 | | Load 0x2,0x3 06b8 e404 | | Load 0x2,0x4 06b9 e024 | $ | Load 0x0,0x24 06ba 180d | | Execute Package,Field_Execute,Field_Number 0xd 06bb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 06bc 0000 0000 | | .BLANK 0000[0x4] 06c0 ; -------------------------------------------------------------------------------------- 06c0 ; SUBPROGRAM 06c0 ; -------------------------------------------------------------------------------------- 06c0 06c7 | | .CONST 0x06c7 ; Address of begin 06c1 0004 | | .CONST 0x0004 ; Address of exception handler 06c2 0002 | | .CONST 0x0002 ; Number of locals 06c3 INIT_06c0: 06c3 00ec | | Load_Encached Diana_Tree_Cache 06c4 02c7 | | Declare_Variable Any 06c5 00d8 | | Load_Top At_Offset_0 06c6 1c00 | | Execute_Immediate Run_Utility,0x0 06c7 BODY_06c0: 06c7 e5fd | | Load 0x2,-0x3 06c8 8212 | | Call 0x1,0x12 06c9 e5fe | | Load 0x2,-0x2 06ca 8212 | | Call 0x1,0x12 06cb 4861 |Ha | Short_Literal 0x61 06cc 00eb | | Load_Encached Diana_Cache 06cd 187d | } | Execute Package,Field_Execute,Field_Number 0x7d 06ce c402 | | Store 0x2,0x2 06cf 00db | | Load_Top At_Offset_3 06d0 482d |H- | Short_Literal 0x2d 06d1 00eb | | Load_Encached Diana_Cache 06d2 187a | z | Execute Package,Field_Execute,Field_Number 0x7a 06d3 c5fc | | Store 0x2,-0x4 06d4 00d8 | | Load_Top At_Offset_0 06d5 8215 | | Call 0x1,0x15 06d6 4866 |Hf | Short_Literal 0x66 06d7 00eb | | Load_Encached Diana_Cache 06d8 187d | } | Execute Package,Field_Execute,Field_Number 0x7d 06d9 c5fb | | Store 0x2,-0x5 06da e5fb | | Load 0x2,-0x5 06db e5fc | | Load 0x2,-0x4 06dc 483c |H< | Short_Literal 0x3c 06dd 00eb | | Load_Encached Diana_Cache 06de 187d | } | Execute Package,Field_Execute,Field_Number 0x7d 06df c5fa | | Store 0x2,-0x6 06e0 e025 | % | Load 0x0,0x25 06e1 00d9 | | Load_Top At_Offset_1 06e2 4956 |IV | Short_Literal 0x156 06e3 00eb | | Load_Encached Diana_Cache 06e4 0096 | | Execute Package,Entry 06e5 e5fb | | Load 0x2,-0x5 06e6 e5fc | | Load 0x2,-0x4 06e7 4966 |If | Short_Literal 0x166 06e8 00eb | | Load_Encached Diana_Cache 06e9 0096 | | Execute Package,Entry 06ea e025 | % | Load 0x0,0x25 06eb e5fb | | Load 0x2,-0x5 06ec 4967 |Ig | Short_Literal 0x167 06ed 00eb | | Load_Encached Diana_Cache 06ee 0096 | | Execute Package,Entry 06ef e025 | % | Load 0x0,0x25 06f0 e5fb | | Load 0x2,-0x5 06f1 4956 |IV | Short_Literal 0x156 06f2 00eb | | Load_Encached Diana_Cache 06f3 0096 | | Execute Package,Entry 06f4 00d8 | | Load_Top At_Offset_0 06f5 e5fb | | Load 0x2,-0x5 06f6 4958 |IX | Short_Literal 0x158 06f7 00eb | | Load_Encached Diana_Cache 06f8 0096 | | Execute Package,Entry 06f9 e008 | | Load 0x0,0x8 06fa e5fb | | Load 0x2,-0x5 06fb 8009 | | Call 0x0,0x9 06fc e5fa | | Load 0x2,-0x6 06fd 800a | | Call 0x0,0xa 06fe 4504 |E | Exit_Suprogram New_Top_Offset 0x4 06ff 0000 | | .XXX[0x1] 0700 ; -------------------------------------------------------------------------------------- 0700 ; SUBPROGRAM 0700 ; -------------------------------------------------------------------------------------- 0700 0705 | | .CONST 0x0705 ; Address of begin 0701 0004 | | .CONST 0x0004 ; Address of exception handler 0702 0002 | | .CONST 0x0002 ; Number of locals 0703 INIT_0700: 0703 00e3 | | Load_Encached Natural_Cache 0704 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0705 BODY_0700: 0705 00cf | | Action Mark_Auxiliary 0706 e5ff | | Load 0x2,-0x1 0707 01d9 | | Execute Vector,Reverse_Bounds 0708 0263 | c | Execute Discrete,Above_Bound 0709 7014 |p | Jump_Nonzero 0x71e 070a 00d8 | | Load_Top At_Offset_0 070b e5ff | | Load 0x2,-0x1 070c 01d7 | | Execute Vector,Field_Read 070d e022 | " | Load 0x0,0x22 070e 1b13 | | Execute Package,Field_Read,Field_Number 0x13 070f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0710 e023 | # | Load 0x0,0x23 0711 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0712 0092 09ab | | Action Push_String_Extended,0x9ab ; "INTEGER" 0714 01df | | Execute Vector,Equal 0715 6806 |h | Jump_Zero 0x71c 0716 00d8 | | Load_Top At_Offset_0 0717 a602 | | Store_Unchecked 0x3,0x2 0718 00db | | Load_Top At_Offset_3 0719 e5ff | | Load 0x2,-0x1 071a 01d7 | | Execute Vector,Field_Read 071b 8218 | | Call 0x1,0x18 071c 00c8 | | Action Pop_Auxiliary_Range 071d 3fec |? | Loop_Increasing 0x70a 071e 00ce | | Action Pop_Auxiliary 071f 00d8 | | Load_Top At_Offset_0 0720 7001 |p | Jump_Nonzero 0x722 0721 0887 | | Execute_Immediate Raise,0x87 0722 00cf | | Action Mark_Auxiliary 0723 e5ff | | Load 0x2,-0x1 0724 01d9 | | Execute Vector,Reverse_Bounds 0725 0263 | c | Execute Discrete,Above_Bound 0726 700a |p | Jump_Nonzero 0x731 0727 00d8 | | Load_Top At_Offset_0 0728 e602 | | Load 0x3,0x2 0729 027e | ~ | Execute Discrete,Not_Equal 072a 6804 |h | Jump_Zero 0x72f 072b 00d8 | | Load_Top At_Offset_0 072c e5ff | | Load 0x2,-0x1 072d 01d7 | | Execute Vector,Field_Read 072e 8218 | | Call 0x1,0x18 072f 00c8 | | Action Pop_Auxiliary_Range 0730 3ff6 |? | Loop_Increasing 0x727 0731 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0732 0000 0000 | | .BLANK 0000[0x6] 0738 ; -------------------------------------------------------------------------------------- 0738 ; SUBPROGRAM 0738 ; -------------------------------------------------------------------------------------- 0738 0761 | a | .CONST 0x0761 ; Address of begin 0739 0004 | | .CONST 0x0004 ; Address of exception handler 073a 0007 | | .CONST 0x0007 ; Number of locals 073b INIT_0738: 073b e022 | " | Load 0x0,0x22 073c 1b13 | | Execute Package,Field_Read,Field_Number 0x13 073d 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 073e 02c7 | | Declare_Variable Any 073f e5fd | | Load 0x2,-0x3 0740 a602 | | Store_Unchecked 0x3,0x2 0741 00d8 | | Load_Top At_Offset_0 0742 e022 | " | Load 0x0,0x22 0743 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0744 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0745 00d9 | | Load_Top At_Offset_1 0746 e022 | " | Load 0x0,0x22 0747 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0748 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0749 00e3 | | Load_Encached Natural_Cache 074a 03f1 | | Declare_Variable Discrete,With_Value 074b 00da | | Load_Top At_Offset_2 074c e022 | " | Load 0x0,0x22 074d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 074e 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 074f 00e2 | | Load_Encached Integer_Cache 0750 03f1 | | Declare_Variable Discrete,With_Value 0751 e001 | | Load 0x0,0x1 0752 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 0753 02c7 | | Declare_Variable Any 0754 e602 | | Load 0x3,0x2 0755 e022 | " | Load 0x0,0x22 0756 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0757 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0758 a606 | | Store_Unchecked 0x3,0x6 0759 e001 | | Load 0x0,0x1 075a 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 075b 02c7 | | Declare_Variable Any 075c e602 | | Load 0x3,0x2 075d e022 | " | Load 0x0,0x22 075e 1b13 | | Execute Package,Field_Read,Field_Number 0x13 075f 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0760 a607 | | Store_Unchecked 0x3,0x7 0761 BODY_0738: 0761 e027 | ' | Load 0x0,0x27 0762 4800 |H | Short_Literal 0x0 0763 4801 |H | Short_Literal 0x1 0764 00db | | Load_Top At_Offset_3 0765 e606 | | Load 0x3,0x6 0766 e604 | | Load 0x3,0x4 0767 e605 | | Load 0x3,0x5 0768 e603 | | Load 0x3,0x3 0769 8217 | | Call 0x1,0x17 076a c027 | ' | Store 0x0,0x27 076b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 076c 0000 0000 | | .BLANK 0000[0x4] 0770 ; -------------------------------------------------------------------------------------- 0770 ; SUBPROGRAM 0770 ; -------------------------------------------------------------------------------------- 0770 0773 | s | .CONST 0x0773 ; Address of begin 0771 0004 | | .CONST 0x0004 ; Address of exception handler 0772 0001 | | .CONST 0x0001 ; Number of locals 0773 BODY_0770: 0773 INIT_0770: 0773 00d1 | | Pop_Control Pop_Count_1 0774 00da | | Load_Top At_Offset_2 0775 01dc | | Execute Vector,Last 0776 00db | | Load_Top At_Offset_3 0777 01dd | | Execute Vector,First 0778 0263 | c | Execute Discrete,Above_Bound 0779 700a |p | Jump_Nonzero 0x784 077a 00d8 | | Load_Top At_Offset_0 077b e7ff | | Load 0x3,-0x1 077c 01d5 | | Execute Vector,Field_Reference 077d 0125 | % | Execute Any,Set_Constraint 077e 00d8 | | Load_Top At_Offset_0 077f e7ff | | Load 0x3,-0x1 0780 01d5 | | Execute Vector,Field_Reference 0781 1c00 | | Execute_Immediate Run_Utility,0x0 0782 0a01 | | Execute_Immediate Plus,0x1 0783 7ff4 | | Jump 0x778 0784 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0785 0000 0000 | | .XXX[0x3] 0787 0000 | | 0788 ; -------------------------------------------------------------------------------------- 0788 ; SUBPROGRAM 0788 ; -------------------------------------------------------------------------------------- 0788 07aa | | .CONST 0x07aa ; Address of begin 0789 0004 | | .CONST 0x0004 ; Address of exception handler 078a 0006 | | .CONST 0x0006 ; Number of locals 078b INIT_0788: 078b 00ec | | Load_Encached Diana_Tree_Cache 078c 02c7 | | Declare_Variable Any 078d 00d8 | | Load_Top At_Offset_0 078e 1c00 | | Execute_Immediate Run_Utility,0x0 078f 00ec | | Load_Encached Diana_Tree_Cache 0790 02c7 | | Declare_Variable Any 0791 00d8 | | Load_Top At_Offset_0 0792 1c00 | | Execute_Immediate Run_Utility,0x0 0793 00ec | | Load_Encached Diana_Tree_Cache 0794 02c7 | | Declare_Variable Any 0795 00d8 | | Load_Top At_Offset_0 0796 1c00 | | Execute_Immediate Run_Utility,0x0 0797 00ec | | Load_Encached Diana_Tree_Cache 0798 02c7 | | Declare_Variable Any 0799 e011 | | Load 0x0,0x11 079a 00eb | | Load_Encached Diana_Cache 079b 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 079c 4817 |H | Short_Literal 0x17 079d 00eb | | Load_Encached Diana_Cache 079e 1879 | y | Execute Package,Field_Execute,Field_Number 0x79 079f a605 | | Store_Unchecked 0x3,0x5 07a0 00ec | | Load_Encached Diana_Tree_Cache 07a1 02c7 | | Declare_Variable Any 07a2 4800 |H | Short_Literal 0x0 07a3 00eb | | Load_Encached Diana_Cache 07a4 1878 | x | Execute Package,Field_Execute,Field_Number 0x78 07a5 00da | | Load_Top At_Offset_2 07a6 4866 |Hf | Short_Literal 0x66 07a7 00eb | | Load_Encached Diana_Cache 07a8 187d | } | Execute Package,Field_Execute,Field_Number 0x7d 07a9 a606 | | Store_Unchecked 0x3,0x6 07aa BODY_0788: 07aa e011 | | Load 0x0,0x11 07ab 00da | | Load_Top At_Offset_2 07ac 4959 |IY | Short_Literal 0x159 07ad 00eb | | Load_Encached Diana_Cache 07ae 0096 | | Execute Package,Entry 07af e012 | | Load 0x0,0x12 07b0 00d9 | | Load_Top At_Offset_1 07b1 4956 |IV | Short_Literal 0x156 07b2 00eb | | Load_Encached Diana_Cache 07b3 0096 | | Execute Package,Entry 07b4 e012 | | Load 0x0,0x12 07b5 00d9 | | Load_Top At_Offset_1 07b6 4967 |Ig | Short_Literal 0x167 07b7 00eb | | Load_Encached Diana_Cache 07b8 0096 | | Execute Package,Entry 07b9 e7ff | | Load 0x3,-0x1 07ba 481d |H | Short_Literal 0x1d 07bb 00eb | | Load_Encached Diana_Cache 07bc 1879 | y | Execute Package,Field_Execute,Field_Number 0x79 07bd c602 | | Store 0x3,0x2 07be e7fe | | Load 0x3,-0x2 07bf 00eb | | Load_Encached Diana_Cache 07c0 18a8 | | Execute Package,Field_Execute,Field_Number 0xa8 07c1 c604 | | Store 0x3,0x4 07c2 00da | | Load_Top At_Offset_2 07c3 00d9 | | Load_Top At_Offset_1 07c4 e602 | | Load 0x3,0x2 07c5 4975 |Iu | Short_Literal 0x175 07c6 00eb | | Load_Encached Diana_Cache 07c7 0098 | | Execute Package,Field_Read_Dynamic 07c8 180e | | Execute Package,Field_Execute,Field_Number 0xe 07c9 4890 |H | Short_Literal 0x90 07ca 00eb | | Load_Encached Diana_Cache 07cb 187f | | Execute Package,Field_Execute,Field_Number 0x7f 07cc 4838 |H8 | Short_Literal 0x38 07cd 00eb | | Load_Encached Diana_Cache 07ce 187e | ~ | Execute Package,Field_Execute,Field_Number 0x7e 07cf c603 | | Store 0x3,0x3 07d0 00d8 | | Load_Top At_Offset_0 07d1 e602 | | Load 0x3,0x2 07d2 4961 |Ia | Short_Literal 0x161 07d3 00eb | | Load_Encached Diana_Cache 07d4 0096 | | Execute Package,Entry 07d5 00da | | Load_Top At_Offset_2 07d6 e602 | | Load 0x3,0x2 07d7 4960 |I` | Short_Literal 0x160 07d8 00eb | | Load_Encached Diana_Cache 07d9 0096 | | Execute Package,Entry 07da e602 | | Load 0x3,0x2 07db 00d8 | | Load_Top At_Offset_0 07dc 496a |Ij | Short_Literal 0x16a 07dd 00eb | | Load_Encached Diana_Cache 07de 0096 | | Execute Package,Entry 07df e012 | | Load 0x0,0x12 07e0 00db | | Load_Top At_Offset_3 07e1 495b |I[ | Short_Literal 0x15b 07e2 00eb | | Load_Encached Diana_Cache 07e3 0096 | | Execute Package,Entry 07e4 e016 | | Load 0x0,0x16 07e5 e602 | | Load 0x3,0x2 07e6 8009 | | Call 0x0,0x9 07e7 482a |H* | Short_Literal 0x2a 07e8 482a |H* | Short_Literal 0x2a 07e9 e7ff | | Load 0x3,-0x1 07ea 00eb | | Load_Encached Diana_Cache 07eb 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 07ec 01ca | | Execute Vector,Prepend 07ed 01cb | | Execute Vector,Append 07ee 00eb | | Load_Encached Diana_Cache 07ef 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 07f0 00db | | Load_Top At_Offset_3 07f1 00eb | | Load_Encached Diana_Cache 07f2 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 07f3 e40b | | Load 0x2,0xb 07f4 e603 | | Load 0x3,0x3 07f5 00eb | | Load_Encached Diana_Cache 07f6 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b 07f7 c40b | | Store 0x2,0xb 07f8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 07f9 0000 0000 | | .BLANK 0000[0x7] 0800 ; -------------------------------------------------------------------------------------- 0800 ; SUBPROGRAM 0800 ; -------------------------------------------------------------------------------------- 0800 080c | | .CONST 0x080c ; Address of begin 0801 0004 | | .CONST 0x0004 ; Address of exception handler 0802 0002 | | .CONST 0x0002 ; Number of locals 0803 INIT_0800: 0803 00ec | | Load_Encached Diana_Tree_Cache 0804 02c7 | | Declare_Variable Any 0805 00db | | Load_Top At_Offset_3 0806 00eb | | Load_Encached Diana_Cache 0807 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0808 4832 |H2 | Short_Literal 0x32 0809 00eb | | Load_Encached Diana_Cache 080a 1879 | y | Execute Package,Field_Execute,Field_Number 0x79 080b a602 | | Store_Unchecked 0x3,0x2 080c BODY_0800: 080c e012 | | Load 0x0,0x12 080d 00d9 | | Load_Top At_Offset_1 080e 4961 |Ia | Short_Literal 0x161 080f 00eb | | Load_Encached Diana_Cache 0810 0096 | | Execute Package,Entry 0811 e7fe | | Load 0x3,-0x2 0812 00d9 | | Load_Top At_Offset_1 0813 494e |IN | Short_Literal 0x14e 0814 00eb | | Load_Encached Diana_Cache 0815 0096 | | Execute Package,Entry 0816 e7fe | | Load 0x3,-0x2 0817 00d9 | | Load_Top At_Offset_1 0818 494f |IO | Short_Literal 0x14f 0819 00eb | | Load_Encached Diana_Cache 081a 0096 | | Execute Package,Entry 081b e40a | | Load 0x2,0xa 081c 00d9 | | Load_Top At_Offset_1 081d 4975 |Iu | Short_Literal 0x175 081e 00eb | | Load_Encached Diana_Cache 081f 0098 | | Execute Package,Field_Read_Dynamic 0820 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0821 c40a | | Store 0x2,0xa 0822 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0823 0000 0000 | | .BLANK 0000[0x5] 0828 ; -------------------------------------------------------------------------------------- 0828 ; SUBPROGRAM 0828 ; -------------------------------------------------------------------------------------- 0828 082b | + | .CONST 0x082b ; Address of begin 0829 0004 | | .CONST 0x0004 ; Address of exception handler 082a 0001 | | .CONST 0x0001 ; Number of locals 082b BODY_0828: 082b INIT_0828: 082b e001 | | Load 0x0,0x1 082c 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b 082d 00db | | Load_Top At_Offset_3 082e e001 | | Load 0x0,0x1 082f 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0830 6803 |h | Jump_Zero 0x834 0831 0092 09ac | | Action Push_String_Extended,0x9ac ; "-" 0833 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0834 00ea | | Load_Encached Null_String_Cache 0835 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0836 0000 0000 | | .XXX[0x2] 0838 ; -------------------------------------------------------------------------------------- 0838 ; SUBPROGRAM 0838 ; -------------------------------------------------------------------------------------- 0838 083b | ; | .CONST 0x083b ; Address of begin 0839 0004 | | .CONST 0x0004 ; Address of exception handler 083a 0001 | | .CONST 0x0001 ; Number of locals 083b BODY_0838: 083b INIT_0838: 083b 00cf | | Action Mark_Auxiliary 083c 00db | | Load_Top At_Offset_3 083d 01da | | Execute Vector,Bounds 083e 0264 | d | Execute Discrete,Below_Bound 083f 700c |p | Jump_Nonzero 0x84c 0840 00d8 | | Load_Top At_Offset_0 0841 e7ff | | Load 0x3,-0x1 0842 01d7 | | Execute Vector,Field_Read 0843 6806 |h | Jump_Zero 0x84a 0844 e7ff | | Load 0x3,-0x1 0845 01dd | | Execute Vector,First 0846 00d9 | | Load_Top At_Offset_1 0847 e7ff | | Load 0x3,-0x1 0848 01cf | | Execute Vector,Slice_Read 0849 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 084a 00c8 | | Action Pop_Auxiliary_Range 084b 37f4 |7 | Loop_Decreasing 0x840 084c 00ce | | Action Pop_Auxiliary 084d 0887 | | Execute_Immediate Raise,0x87 084e 0000 0000 | | .XXX[0x2] 0850 ; -------------------------------------------------------------------------------------- 0850 ; SUBPROGRAM 0850 ; -------------------------------------------------------------------------------------- 0850 0857 | W | .CONST 0x0857 ; Address of begin 0851 0004 | | .CONST 0x0004 ; Address of exception handler 0852 0003 | | .CONST 0x0003 ; Number of locals 0853 INIT_0850: 0853 029f 08a3 | | Declare_Subprogram INIT_08a0,For_Call 0855 029f 08c3 | | Declare_Subprogram INIT_08c0,For_Call 0857 BODY_0850: 0857 e7ff | | Load 0x3,-0x1 0858 840b | | Call 0x2,0xb 0859 0092 09ad | | Action Push_String_Extended,0x9ad ; "16#1." 085b 01cc | | Execute Vector,Catenate 085c 8603 | | Call 0x3,0x3 085d 01cc | | Execute Vector,Catenate 085e 0092 09ae | | Action Push_String_Extended,0x9ae ; "# * 2.0 **" 0860 01cc | | Execute Vector,Catenate 0861 8602 | | Call 0x3,0x2 0862 01cc | | Execute Vector,Catenate 0863 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0864 0000 0000 | | .BLANK 0000[0x4] 0868 ; -------------------------------------------------------------------------------------- 0868 ; SUBPROGRAM 0868 ; -------------------------------------------------------------------------------------- 0868 0876 | v | .CONST 0x0876 ; Address of begin 0869 0004 | | .CONST 0x0004 ; Address of exception handler 086a 0003 | | .CONST 0x0003 ; Number of locals 086b INIT_0868: 086b 00ec | | Load_Encached Diana_Tree_Cache 086c 02c7 | | Declare_Variable Any 086d 00d8 | | Load_Top At_Offset_0 086e 1c00 | | Execute_Immediate Run_Utility,0x0 086f 4819 |H | Short_Literal 0x19 0870 e403 | | Load 0x2,0x3 0871 0092 09af | | Action Push_String_Extended,0x9af ; "'BASE" 0873 01cc | | Execute Vector,Catenate 0874 e028 | ( | Load 0x0,0x28 0875 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0876 BODY_0868: 0876 00d9 | | Load_Top At_Offset_1 0877 4801 |H | Short_Literal 0x1 0878 4800 |H | Short_Literal 0x0 0879 e001 | | Load 0x0,0x1 087a 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b 087b e001 | | Load 0x0,0x1 087c 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b 087d e5fd | | Load 0x2,-0x3 087e e5fe | | Load 0x2,-0x2 087f e603 | | Load 0x3,0x3 0880 e028 | ( | Load 0x0,0x28 0881 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0882 8217 | | Call 0x1,0x17 0883 c602 | | Store 0x3,0x2 0884 00d9 | | Load_Top At_Offset_1 0885 e409 | | Load 0x2,0x9 0886 4956 |IV | Short_Literal 0x156 0887 00eb | | Load_Encached Diana_Cache 0888 0096 | | Execute Package,Entry 0889 00d9 | | Load_Top At_Offset_1 088a e5f8 | | Load 0x2,-0x8 088b 4956 |IV | Short_Literal 0x156 088c 00eb | | Load_Encached Diana_Cache 088d 0096 | | Execute Package,Entry 088e e404 | | Load 0x2,0x4 088f 00da | | Load_Top At_Offset_2 0890 e01b | | Load 0x0,0x1b 0891 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 0892 e5f8 | | Load 0x2,-0x8 0893 00da | | Load_Top At_Offset_2 0894 00eb | | Load_Encached Diana_Cache 0895 18ec | | Execute Package,Field_Execute,Field_Number 0xec 0896 e01b | | Load 0x0,0x1b 0897 180f | | Execute Package,Field_Execute,Field_Number 0xf 0898 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0899 0000 0000 | | .BLANK 0000[0x7] 08a0 ; -------------------------------------------------------------------------------------- 08a0 ; SUBPROGRAM 08a0 ; -------------------------------------------------------------------------------------- 08a0 08a9 | | .CONST 0x08a9 ; Address of begin 08a1 0004 | | .CONST 0x0004 ; Address of exception handler 08a2 0002 | | .CONST 0x0002 ; Number of locals 08a3 INIT_08a0: 08a3 e7ff | | Load 0x3,-0x1 08a4 e001 | | Load 0x0,0x1 08a5 1867 | g | Execute Package,Field_Execute,Field_Number 0x67 08a6 0aff | | Execute_Immediate Plus,-0x1 08a7 00e2 | | Load_Encached Integer_Cache 08a8 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 08a9 BODY_08a0: 08a9 00d8 | | Load_Top At_Offset_0 08aa 0c00 | | Execute_Immediate Greater_Equal,0x0 08ab 6804 |h | Jump_Zero 0x8b0 08ac 00d8 | | Load_Top At_Offset_0 08ad 00e0 | | Load_Encached Standard_Cache 08ae 1818 | | Execute Package,Field_Execute,Field_Number 0x18 08af 00ca | | Action Exit_Nullary_Function 08b0 0092 09b0 | | Action Push_String_Extended,0x9b0 ; " (" 08b2 00d9 | | Load_Top At_Offset_1 08b3 00e0 | | Load_Encached Standard_Cache 08b4 1818 | | Execute Package,Field_Execute,Field_Number 0x18 08b5 01cc | | Execute Vector,Catenate 08b6 0092 09b1 | | Action Push_String_Extended,0x9b1 ; ")" 08b8 01cc | | Execute Vector,Catenate 08b9 00ca | | Action Exit_Nullary_Function 08ba 0000 0000 | | .BLANK 0000[0x6] 08c0 ; -------------------------------------------------------------------------------------- 08c0 ; SUBPROGRAM 08c0 ; -------------------------------------------------------------------------------------- 08c0 0929 | ) | .CONST 0x0929 ; Address of begin 08c1 0004 | | .CONST 0x0004 ; Address of exception handler 08c2 000a | | .CONST 0x000a ; Number of locals 08c3 INIT_08c0: 08c3 e001 | | Load 0x0,0x1 08c4 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 08c5 02c7 | | Declare_Variable Any 08c6 e7ff | | Load 0x3,-0x1 08c7 e001 | | Load 0x0,0x1 08c8 1852 | R | Execute Package,Field_Execute,Field_Number 0x52 08c9 a802 | | Store_Unchecked 0x4,0x2 08ca 00d8 | | Load_Top At_Offset_0 08cb e001 | | Load 0x0,0x1 08cc 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 08cd 840c | | Call 0x2,0xc 08ce 4804 |H | Short_Literal 0x4 08cf 00d9 | | Load_Top At_Offset_1 08d0 01db | | Execute Vector,Length 08d1 0aff | | Execute_Immediate Plus,-0x1 08d2 4803 |H | Short_Literal 0x3 08d3 0279 | y | Execute Discrete,And 08d4 0272 | r | Execute Discrete,Minus 08d5 4803 |H | Short_Literal 0x3 08d6 0279 | y | Execute Discrete,And 08d7 00e3 | | Load_Encached Natural_Cache 08d8 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 08d9 4801 |H | Short_Literal 0x1 08da 00da | | Load_Top At_Offset_2 08db 01db | | Execute Vector,Length 08dc 0aff | | Execute_Immediate Plus,-0x1 08dd 00da | | Load_Top At_Offset_2 08de 0273 | s | Execute Discrete,Plus 08df 00d8 | | Load_Top At_Offset_0 08e0 00e2 | | Load_Encached Integer_Cache 08e1 0260 | ` | Execute Discrete,In_Type 08e2 7001 |p | Jump_Nonzero 0x8e4 08e3 0801 | | Execute_Immediate Raise,0x1 08e4 e001 | | Load 0x0,0x1 08e5 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 08e6 035b | [ | Declare_Type Array,Constrained 08e7 0337 | 7 | Declare_Variable Array 08e8 00da | | Load_Top At_Offset_2 08e9 01dd | | Execute Vector,First 08ea 0a01 | | Execute_Immediate Plus,0x1 08eb 00d8 | | Load_Top At_Offset_0 08ec 00e2 | | Load_Encached Integer_Cache 08ed 0260 | ` | Execute Discrete,In_Type 08ee 7001 |p | Jump_Nonzero 0x8f0 08ef 0801 | | Execute_Immediate Raise,0x1 08f0 00db | | Load_Top At_Offset_3 08f1 01dc | | Execute Vector,Last 08f2 e803 | | Load 0x4,0x3 08f3 01cf | | Execute Vector,Slice_Read 08f4 4801 |H | Short_Literal 0x1 08f5 00db | | Load_Top At_Offset_3 08f6 e001 | | Load 0x0,0x1 08f7 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 08f8 035b | [ | Declare_Type Array,Constrained 08f9 0337 | 7 | Declare_Variable Array 08fa 00d8 | | Load_Top At_Offset_0 08fb 01dc | | Execute Vector,Last 08fc 4801 |H | Short_Literal 0x1 08fd 0263 | c | Execute Discrete,Above_Bound 08fe 7005 |p | Jump_Nonzero 0x904 08ff 4800 |H | Short_Literal 0x0 0900 00d9 | | Load_Top At_Offset_1 0901 e807 | | Load 0x4,0x7 0902 01d6 | | Execute Vector,Field_Write 0903 3ffb |? | Loop_Increasing 0x8ff 0904 01cc | | Execute Vector,Catenate 0905 00d9 | | Load_Top At_Offset_1 0906 01d4 | | Execute Vector,Structure_Write 0907 00d8 | | Load_Top At_Offset_0 0908 01db | | Execute Vector,Length 0909 4803 |H | Short_Literal 0x3 090a 0279 | y | Execute Discrete,And 090b 6801 |h | Jump_Zero 0x90d 090c 0887 | | Execute_Immediate Raise,0x87 090d 00d8 | | Load_Top At_Offset_0 090e 01db | | Execute Vector,Length 090f 09fe | | Execute_Immediate Binary_Scale,-0x2 0910 00e3 | | Load_Encached Natural_Cache 0911 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0912 4801 |H | Short_Literal 0x1 0913 00d9 | | Load_Top At_Offset_1 0914 00da | | Load_Top At_Offset_2 0915 0a03 | | Execute_Immediate Plus,0x3 0916 09fe | | Execute_Immediate Binary_Scale,-0x2 0917 0273 | s | Execute Discrete,Plus 0918 0aff | | Execute_Immediate Plus,-0x1 0919 00d8 | | Load_Top At_Offset_0 091a 00e2 | | Load_Encached Integer_Cache 091b 0260 | ` | Execute Discrete,In_Type 091c 7001 |p | Jump_Nonzero 0x91e 091d 0801 | | Execute_Immediate Raise,0x1 091e 00e9 | | Load_Encached String_Cache 091f 035b | [ | Declare_Type Array,Constrained 0920 0337 | 7 | Declare_Variable Array 0921 00e4 | | Load_Encached Positive_Cache 0922 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0923 00e4 | | Load_Encached Positive_Cache 0924 4801 |H | Short_Literal 0x1 0925 4804 |H | Short_Literal 0x4 0926 00e2 | | Load_Encached Integer_Cache 0927 03f8 | | Declare_Type Discrete,Constrained 0928 0604 | | Execute_Immediate Set_Value_Unchecked,0x4 0929 BODY_08c0: 0929 e806 | | Load 0x4,0x6 092a 7003 |p | Jump_Nonzero 0x92e 092b 0092 09b2 | | Action Push_String_Extended,0x9b2 ; "0" 092d 00ca | | Action Exit_Nullary_Function 092e 00cf | | Action Mark_Auxiliary 092f e806 | | Load 0x4,0x6 0930 4801 |H | Short_Literal 0x1 0931 0263 | c | Execute Discrete,Above_Bound 0932 7034 |p4 | Jump_Nonzero 0x967 0933 00d8 | | Load_Top At_Offset_0 0934 0aff | | Execute_Immediate Plus,-0x1 0935 0902 | | Execute_Immediate Binary_Scale,0x2 0936 0a01 | | Execute_Immediate Plus,0x1 0937 c809 | | Store 0x4,0x9 0938 e809 | | Load 0x4,0x9 0939 00d8 | | Load_Top At_Offset_0 093a 0a03 | | Execute_Immediate Plus,0x3 093b 00d8 | | Load_Top At_Offset_0 093c 00e2 | | Load_Encached Integer_Cache 093d 0260 | ` | Execute Discrete,In_Type 093e 7001 |p | Jump_Nonzero 0x940 093f 0801 | | Execute_Immediate Raise,0x1 0940 e805 | | Load 0x4,0x5 0941 01cf | | Execute Vector,Slice_Read 0942 e402 | | Load 0x2,0x2 0943 01c7 | | Execute Vector,Convert 0944 e406 | | Load 0x2,0x6 0945 e407 | | Load 0x2,0x7 0946 4808 |H | Short_Literal 0x8 0947 4802 |H | Short_Literal 0x2 0948 0099 | | Action Reference_Dynamic 0949 801c | | Call 0x0,0x1c 094a e405 | | Load 0x2,0x5 094b 01d7 | | Execute Vector,Field_Read 094c e808 | | Load 0x4,0x8 094d e807 | | Load 0x4,0x7 094e 01d6 | | Execute Vector,Field_Write 094f e808 | | Load 0x4,0x8 0950 0a01 | | Execute_Immediate Plus,0x1 0951 c808 | | Store 0x4,0x8 0952 00db | | Load_Top At_Offset_3 0953 4803 |H | Short_Literal 0x3 0954 0279 | y | Execute Discrete,And 0955 0a01 | | Execute_Immediate Plus,0x1 0956 c80a | | Store 0x4,0xa 0957 00db | | Load_Top At_Offset_3 0958 0f04 | | Execute_Immediate Equal,0x4 0959 00d9 | | Load_Top At_Offset_1 095a e806 | | Load 0x4,0x6 095b 027c | | | Execute Discrete,Less 095c 0279 | y | Execute Discrete,And 095d 6807 |h | Jump_Zero 0x965 095e 485f |H_ | Short_Literal 0x5f 095f e808 | | Load 0x4,0x8 0960 e807 | | Load 0x4,0x7 0961 01d6 | | Execute Vector,Field_Write 0962 e808 | | Load 0x4,0x8 0963 0a01 | | Execute_Immediate Plus,0x1 0964 c808 | | Store 0x4,0x8 0965 00c8 | | Action Pop_Auxiliary_Range 0966 3fcc |? | Loop_Increasing 0x933 0967 00ce | | Action Pop_Auxiliary 0968 00db | | Load_Top At_Offset_3 0969 00e9 | | Load_Encached String_Cache 096a 01c6 | | Execute Vector,Convert_To_Formal 096b 00ca | | Action Exit_Nullary_Function 096c ; -------------------------------------------------------------------------------------- 096c ; STRING TABLE 096c ; -------------------------------------------------------------------------------------- 096c 0090 | | .STRTAB 0x0090->0x09b4 ; "ANY-TYPE" 096d 0096 | | .STRTAB 0x0096->0x09b8 ; "TRUE" 096e 0098 | | .STRTAB 0x0098->0x09ba ; "FALSE" 096f 009b | | .STRTAB 0x009b->0x09bc ; "BOOLEAN" 0970 00a0 | | .STRTAB 0x00a0->0x09c0 ; "NATURAL" 0971 00a5 | | .STRTAB 0x00a5->0x09c3 ; "POSITIVE" 0972 00ab | | .STRTAB 0x00ab->0x09c7 ; "NUL" 0973 00ac | | .STRTAB 0x00ac->0x09c9 ; "SOH" 0974 00ad | | .STRTAB 0x00ad->0x09ca ; "STX" 0975 00ae | | .STRTAB 0x00ae->0x09cc ; "ETX" 0976 00af | | .STRTAB 0x00af->0x09cd ; "EOT" 0977 00b0 | | .STRTAB 0x00b0->0x09cf ; "ENQ" 0978 00b1 | | .STRTAB 0x00b1->0x09d0 ; "ACK" 0979 00b2 | | .STRTAB 0x00b2->0x09d2 ; "BEL" 097a 00b3 | | .STRTAB 0x00b3->0x09d3 ; "BS" 097b 00b3 | | .STRTAB 0x00b3->0x09d4 ; "HT" 097c 00b3 | | .STRTAB 0x00b3->0x09d5 ; "LF" 097d 00b3 | | .STRTAB 0x00b3->0x09d6 ; "VT" 097e 00b3 | | .STRTAB 0x00b3->0x09d7 ; "FF" 097f 00b3 | | .STRTAB 0x00b3->0x09d8 ; "CR" 0980 00b3 | | .STRTAB 0x00b3->0x09d9 ; "SO" 0981 00b3 | | .STRTAB 0x00b3->0x09da ; "SI" 0982 00b3 | | .STRTAB 0x00b3->0x09db ; "DLE" 0983 00b4 | | .STRTAB 0x00b4->0x09dd ; "DC1" 0984 00b5 | | .STRTAB 0x00b5->0x09de ; "DC2" 0985 00b6 | | .STRTAB 0x00b6->0x09e0 ; "DC3" 0986 00b7 | | .STRTAB 0x00b7->0x09e1 ; "DC4" 0987 00b8 | | .STRTAB 0x00b8->0x09e3 ; "NAK" 0988 00b9 | | .STRTAB 0x00b9->0x09e4 ; "SYN" 0989 00ba | | .STRTAB 0x00ba->0x09e6 ; "ETB" 098a 00bb | | .STRTAB 0x00bb->0x09e7 ; "CAN" 098b 00bc | | .STRTAB 0x00bc->0x09e9 ; "EM" 098c 00bc | | .STRTAB 0x00bc->0x09ea ; "SUB" 098d 00bd | | .STRTAB 0x00bd->0x09eb ; "ESC" 098e 00be | | .STRTAB 0x00be->0x09ed ; "FS" 098f 00be | | .STRTAB 0x00be->0x09ee ; "GS" 0990 00be | | .STRTAB 0x00be->0x09ef ; "RS" 0991 00be | | .STRTAB 0x00be->0x09f0 ; "US" 0992 00be | | .STRTAB 0x00be->0x09f1 ; "CHARACTER" 0993 00c5 | | .STRTAB 0x00c5->0x09f5 ; "ASCII" 0994 00c8 | | .STRTAB 0x00c8->0x09f8 ; "EXCLAM" 0995 00cc | | .STRTAB 0x00cc->0x09fb ; "SHARP" 0996 00cf | | .STRTAB 0x00cf->0x09fd ; "PERCENT" 0997 00d4 | | .STRTAB 0x00d4->0x0a01 ; "COLON" 0998 00d7 | | .STRTAB 0x00d7->0x0a03 ; "QUERY" 0999 00da | | .STRTAB 0x00da->0x0a06 ; "L_BRACKET" 099a 00e1 | | .STRTAB 0x00e1->0x0a0a ; "R_BRACKET" 099b 00e8 | | .STRTAB 0x00e8->0x0a0f ; "UNDERLINE" 099c 00ef | | .STRTAB 0x00ef->0x0a13 ; "L_BRACE" 099d 00f4 | | .STRTAB 0x00f4->0x0a17 ; "R_BRACE" 099e 00f9 | | .STRTAB 0x00f9->0x0a1a ; "QUOTATION" 099f 0100 | | .STRTAB 0x0100->0x0a1f ; "DOLLAR" 09a0 0104 | | .STRTAB 0x0104->0x0a22 ; "AMPERSAND" 09a1 010b | | .STRTAB 0x010b->0x0a26 ; "SEMICOLON" 09a2 0112 | | .STRTAB 0x0112->0x0a2b ; "AT_SIGN" 09a3 0117 | | .STRTAB 0x0117->0x0a2e ; "BACK_SLASH" 09a4 011f | | .STRTAB 0x011f->0x0a33 ; "CIRCUMFLEX" 09a5 0127 | ' | .STRTAB 0x0127->0x0a38 ; "GRAVE" 09a6 012a | * | .STRTAB 0x012a->0x0a3b ; "BAR" 09a7 012b | + | .STRTAB 0x012b->0x0a3c ; "TILDE" 09a8 012e | . | .STRTAB 0x012e->0x0a3f ; "STRING" 09a9 0132 | 2 | .STRTAB 0x0132->0x0a42 ; "PACK" 09aa 0134 | 4 | .STRTAB 0x0134->0x0a44 ; "0.0" 09ab 0135 | 5 | .STRTAB 0x0135->0x0a45 ; "INTEGER" 09ac 013a | : | .STRTAB 0x013a->0x0a49 ; "-" 09ad 0139 | 9 | .STRTAB 0x0139->0x0a49 ; "16#1." 09ae 013c | < | .STRTAB 0x013c->0x0a4c ; "# * 2.0 **" 09af 0144 | D | .STRTAB 0x0144->0x0a51 ; "'BASE" 09b0 0147 | G | .STRTAB 0x0147->0x0a53 ; " (" 09b1 0147 | G | .STRTAB 0x0147->0x0a54 ; ")" 09b2 0146 | F | .STRTAB 0x0146->0x0a55 ; "0" 09b3 0145 | E | .STREND 0x0145->0x0a55 09b4 414e 592d |ANY-| .STRTAB_STRINGS 0a56 0000 0000 | | .XXX[0x2] 0a58 ; -------------------------------------------------------------------------------------- 0a58 ; Debug Table 0a58 ; -------------------------------------------------------------------------------------- 0a58 0004 000d | | .DEBUG4 0x0004,0x000d,0x50b9,0x0000,0x0001,0x0000 0a5e d402 9811 | | .XXX[0x1a2] 0a60 0d3d 4164 | =Ad| 0a62 00bc 4535 | E5| 0a64 3d55 4d15 |=UM | 0a66 7d09 5551 |} UQ| 0a68 513d 38d5 |Q=8 | 0a6a 7d11 0930 |} 0| 0a6c 029c 150d | | 0a6e 2125 3110 |!%1 | 0a70 00c4 4535 | E5| 0a72 3d55 4d15 |=UM | 0a74 7d09 5551 |} UQ| 0a76 513d 38d9 |Q=8 | 0a78 7d11 0930 |} 0| 0a7a 02a0 0c9d | | 0a7c 849c 02a4 | | 0a7e 0c9d 889c | | 0a80 00dc 1115 | | 0a82 1125 5002 | %P | 0a84 a80c 9d8c | | 0a86 9c02 ac1d | | 0a88 4149 3d35 |AI=5| 0a8a 3d51 1400 |=Q | 0a8c d419 0d3d | =| 0a8e 3535 2550 |55%P| 0a90 02b0 1949 | I| 0a92 1559 1549 | Y I| 0a94 5002 b40c |P | 0a96 9d98 9c02 | | 0a98 b81d 0509 | | 0a9a 0539 113d | 9 =| 0a9c 3800 8411 |8 | 0a9e 353d 5914 |5=Y | 0aa0 0028 1911 | ( | 0aa2 1531 1551 | 1 Q| 0aa4 1402 bc1c | | 0aa6 f125 3505 | %5 | 0aa8 1d14 f802 | | 0aaa c011 4555 | EU| 0aac 2550 02c4 |%P | 0aae 04f4 02c8 | | 0ab0 2921 3d31 |)!=1| 0ab2 117d 4d51 | }MQ| 0ab4 050d 2c00 | , | 0ab6 a80d 513d | Q=| 0ab8 4001 6c25 |@ l%| 0aba 150d 213d | !=| 0abc 7d31 2539 |}1%9| 0abe 1401 104d | M| 0ac0 b9bd d081 | | 0ac2 e595 d081 | | 0ac4 a5b5 c1b1 | | 0ac6 95b5 95b9 | | 0ac8 d195 9000 | | 0aca 303d 1115 |0= | 0acc 4d25 1d39 |M% 9| 0ace 0551 253d | Q%=| 0ad0 397d 3d19 |9}= | 0ad2 1802 cc31 | 1| 0ad4 0915 1d25 | %| 0ad6 3939 2539 |99%9| 0ad8 1d7d 3d18 | }= | 0ada 02d0 1915 | | 0adc 3911 7d3d |9 }=| 0ade 1800 e029 | )| 0ae0 0d05 4125 | A%| 0ae2 5105 3125 |Q 1%| 0ae4 6914 02d4 |i | 0ae6 2931 3d5d |)1=]| 0ae8 1549 7d0d | I} | 0aea 054d 1400 | M | 0aec 2429 5541 |$)UA| 0aee 4115 497d |A I}| 0af0 0d05 4d14 | M | 0af2 02d8 1d0d | | 0af4 3d35 3515 |=55 | 0af6 3950 0108 |9P | 0af8 2555 390d |%U9 | 0afa 3d35 3515 |=55 | 0afc 3950 02dc |9P | 0afe 1119 2531 | %1| 0b00 3002 e01d |0 | 0b02 2955 4d51 |)UMQ| 0b04 2519 6401 |% d | 0b06 b029 3d51 | )=Q| 0b08 2115 497d |! I}| 0b0a 4105 4950 |A IP| 0b0c 006c 3121 | l1!| 0b0e 3d35 157d |=5 }| 0b10 3125 0949 |1% I| 0b12 0549 6402 | Id | 0b14 e425 0d3d | % =| 0b16 1115 7d55 | }U| 0b18 3925 5002 |9%P | 0b1a e811 3505 | 5 | 0b1c 2d14 02ec |- | 0b1e 1155 3925 | U9%| 0b20 5002 f015 |P | 0b22 4d0d 3d41 |M =A| 0b24 1400 3425 | 4%| 0b26 0531 317d | 11}| 0b28 4105 4951 |A IQ| 0b2a 4c02 f411 |L | 0b2c 1d3d 0530 | = 0| 0b2e 00d8 150d | | 0b30 3d11 1510 |= | 0b32 02f8 1531 | 1| 0b34 2535 2550 |%5%P| 0b36 02fc 20f1 | | 0b38 5d3d 4931 |]=I1| 0b3a 114c f803 | L | 0b3c 002d 1519 | - | 0b3e 193d 4951 | =IQ| 0b40 7d3d 3931 |}=91| 0b42 6403 0429 |d )| 0b44 313d 0511 |1= | 0b46 7d59 2515 |}Y% | 0b48 5d4c 008c |]L | 0b4a 30f1 0531 |0 1| 0b4c 317d 5d3d |1}]=| 0b4e 4931 114c |I1 L| 0b50 f803 0831 | 1| 0b52 2539 4d51 |%9MQ| 0b54 0531 317d | 11}| 0b56 5539 2550 |U9%P| 0b58 030c 2525 | %%| 0b5a 394d 5105 |9MQ | 0b5c 3131 1510 |11 | 0b5e 0310 3125 | 1%| 0b60 394d 5105 |9MQ | 0b62 3131 7d4d |11}M| 0b64 5155 0803 |QU | 0b66 1421 5d25 | !]%| 0b68 5121 1149 |Q! I| 0b6a 055c 0318 | \ | 0b6c 2d4d 3d55 |-M=U| 0b6e 490d 157d |I }| 0b70 5539 2550 |U9%P| 0b72 031c 1911 | | 0b74 1535 3d51 | 5=Q| 0b76 1403 202c | ,| 0b78 f14d 1531 | M 1| 0b7a 150d 5125 | Q%| 0b7c 3d38 f803 |=8 | 0b7e 2419 4d3d |$ M=| 0b80 5549 0d14 |UI | 0b82 0328 2105 | (! | 0b84 490d 2125 |I !%| 0b86 5915 1003 |Y | 0b88 2c34 f111 |,4 | 0b8a 2549 150d |%I | 0b8c 513d 4925 |Q=I%| 0b8e 154c f803 | L | 0b90 300c 9db4 |0 | 0b92 9c03 342d | 4-| 0b94 4d15 3505 |M 5 | 0b96 3951 250d |9Q% | 0b98 2569 1403 |%i | 0b9a 3845 0d31 |8E 1| 0b9c 1505 497d | I}| 0b9e 5539 1115 |U9 | 0ba0 4931 2539 |I1%9| 0ba2 2539 1c03 |%9 | 0ba4 3c29 1d15 |<) | 0ba6 517d 1549 |Q} I| 0ba8 493d 494c |I=IL| 0baa 0340 294d | @)M| 0bac 213d 5d7d |!=]}| 0bae 554d 051d |UM | 0bb0 1403 4419 | D | 0bb2 1d31 3d09 | 1= | 0bb4 0530 0044 | 0 D| 0bb6 1d0d 313d | 1=| 0bb8 4d55 4914 |MUI | 0bba 0348 2d4d | H-M| 0bbc 213d 5d7d |!=]}| 0bbe 5539 554d |U9UM| 0bc0 1510 034c | L| 0bc2 1d25 397d | %9}| 0bc4 5539 2550 |U9%P| 0bc6 0350 450d | PE | 0bc8 2115 0d2d |! -| 0bca 7d3d 5121 |}=Q!| 0bcc 1549 7d55 | I}U| 0bce 3925 514c |9%QL| 0bd0 0354 2d0d | T- | 0bd2 4915 0551 |I Q| 0bd4 157d 093d | } =| 0bd6 1164 01c4 | d | 0bd8 390d 4915 |9 I | 0bda 0551 157d | Q }| 0bdc 4149 2559 |AI%Y| 0bde 0551 1403 | Q | 0be0 5835 3505 |X55 | 0be2 2d15 7d4d |- }M| 0be4 1541 0549 | A I| 0be6 0551 1403 | Q | 0be8 5c2d 3505 |\-5 | 0bea 2d15 7d25 |- }%| 0bec 3931 2539 |91%9| 0bee 1400 0c0d | | 0bf0 4955 3803 |IU8 | 0bf2 601d 4d51 |` MQ| 0bf4 3d41 7d05 |=A} | 0bf6 5003 6425 |P d%| 0bf8 4d51 0551 |MQ Q| 0bfa 1535 1539 | 5 9| 0bfc 5003 6815 |P h | 0bfe 0d3d 5539 | =U9|