|
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|