|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 4096 (0x1000)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0a7cf5
└─⟦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 0750 | P | .CONST 0x0750 ; 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 8005 | | .CONST 0x8005 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 008b | | .CONST 0x008b ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 002a | * | .CONST 0x002a ; Number of locals
000b INIT_0008:
000b 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated
000d 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated
000f 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated
0011 00bf | | Action Accept_Activation
0012 e001 | | Load 0x0,0x1
0013 1916 | | Execute Package,Field_Reference,Field_Number 0x16
0014 0007 | | Action Break_Optional
0015 e001 | | Load 0x0,0x1
0016 1917 | | Execute Package,Field_Reference,Field_Number 0x17
0017 0007 | | Action Break_Optional
0018 e002 | | Load 0x0,0x2
0019 e003 | | Load 0x0,0x3
001a 4814 |H | Short_Literal 0x14
001b e004 | | Load 0x0,0x4
001c 0387 | | Declare_Variable Package
001d 00d8 | | Load_Top At_Offset_0
001e 020f | | Execute Module,Activate
001f e005 | | Load 0x0,0x5
0020 e006 | | Load 0x0,0x6
0021 00e6 | | Load_Encached Float_Cache
0022 e007 | | Load 0x0,0x7
0023 1b51 | Q | Execute Package,Field_Read,Field_Number 0x51
0024 0387 | | Declare_Variable Package
0025 00d8 | | Load_Top At_Offset_0
0026 020f | | Execute Module,Activate
0027 4801 |H | Short_Literal 0x1
0028 4801 |H | Short_Literal 0x1
0029 00e9 | | Load_Encached String_Cache
002a 035b | [ | Declare_Type Array,Constrained
002b 0337 | 7 | Declare_Variable Array
002c 00d8 | | Load_Top At_Offset_0
002d 0335 | 5 | Declare_Variable Array,Duplicate
002e 00cd | | Action Spare6_Action
002f 480a |H | Short_Literal 0xa
0030 4801 |H | Short_Literal 0x1
0031 00da | | Load_Top At_Offset_2
0032 01d6 | | Execute Vector,Field_Write
0033 00d9 | | Load_Top At_Offset_1
0034 01d4 | | Execute Vector,Structure_Write
0035 0092 0723 | #| Action Push_String_Extended,0x723 ; "N/A"
0037 0092 0724 | $| Action Push_String_Extended,0x724 ; "NOT STATIC"
0039 0092 0725 | %| Action Push_String_Extended,0x725 ; "PRIVATE"
003b 0092 0726 | &| Action Push_String_Extended,0x726 ; "NIL"
003d 0092 0727 | '| Action Push_String_Extended,0x727 ; "INTERNAL ERROR"
003f 0092 0728 | (| Action Push_String_Extended,0x728 ; "UNKNOWN"
0041 4800 |H | Short_Literal 0x0
0042 e008 | | Load 0x0,0x8
0043 02a0 | | Declare_Subprogram Null_Subprogram
0044 038e | | Declare_Type Package,Defined
0045 0387 | | Declare_Variable Package
0046 4800 |H | Short_Literal 0x0
0047 e009 | | Load 0x0,0x9
0048 02a0 | | Declare_Subprogram Null_Subprogram
0049 038e | | Declare_Type Package,Defined
004a 0387 | | Declare_Variable Package
004b 029d 020b | | Declare_Subprogram INIT_0208,For_Outer_Call
004d 029d 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call
004f 029d 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call
0051 029d 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call
0053 029d 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call
0055 029d 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call
0057 029d 03a3 | | Declare_Subprogram INIT_03a0,For_Outer_Call
0059 029d 03c3 | | Declare_Subprogram INIT_03c0,For_Outer_Call
005b 029d 0413 | | Declare_Subprogram INIT_0410,For_Outer_Call
005d 029d 049b | | Declare_Subprogram INIT_0498,For_Outer_Call
005f 029d 04ab | | Declare_Subprogram INIT_04a8,For_Outer_Call
0061 029d 04c3 | | Declare_Subprogram INIT_04c0,For_Outer_Call
0063 029d 0533 | 3| Declare_Subprogram INIT_0530,For_Outer_Call
0065 029d 0613 | | Declare_Subprogram INIT_0610,For_Outer_Call
0067 e00a | | Load 0x0,0xa
0068 e00b | | Load 0x0,0xb
0069 1d10 | | Execute_Immediate Reference_Lex_1,0x10
006a e00c | | Load 0x0,0xc
006b e00d | | Load 0x0,0xd
006c 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
006d e00e | | Load 0x0,0xe
006e e21c | | Load 0x1,0x1c
006f 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0070 4809 |H | Short_Literal 0x9
0071 e21b | | Load 0x1,0x1b
0072 020e | | Execute Module,Augment_Imports
0073 e21b | | Load 0x1,0x1b
0074 020f | | Execute Module,Activate
0075 e00d | | Load 0x0,0xd
0076 e00c | | Load 0x0,0xc
0077 e00a | | Load 0x0,0xa
0078 e00b | | Load 0x0,0xb
0079 1d11 | | Execute_Immediate Reference_Lex_1,0x11
007a 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
007b 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
007c 1d20 | | Execute_Immediate Reference_Lex_1,0x20
007d e21b | | Load 0x1,0x1b
007e 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
007f 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0080 480b |H | Short_Literal 0xb
0081 e21c | | Load 0x1,0x1c
0082 020e | | Execute Module,Augment_Imports
0083 e21c | | Load 0x1,0x1c
0084 020f | | Execute Module,Activate
0085 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0086 00c7 | | Action Elaborate_Subprogram
0087 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0088 00c7 | | Action Elaborate_Subprogram
0089 1d0d | | Execute_Immediate Reference_Lex_1,0xd
008a 00c7 | | Action Elaborate_Subprogram
008b BODY_0008:
008b 00bc | | Action Signal_Activated
008c 00bb | | Action Signal_Completion
008d 0000 0000 | | .XXX[0x3]
008f 0000 | |
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 009a | | .CONST 0x009a ; Address of begin
0091 0101 | | .CONST 0x0101 ; Address of exception handler
0092 0003 | | .CONST 0x0003 ; Number of locals
0093 INIT_0090:
0093 e00a | | Load 0x0,0xa
0094 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0095 e00c | | Load 0x0,0xc
0096 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0097 02c7 | | Declare_Variable Any
0098 00d8 | | Load_Top At_Offset_0
0099 1c00 | | Execute_Immediate Run_Utility,0x0
009a BODY_0090:
009a e5ff | | Load 0x2,-0x1
009b e00a | | Load 0x0,0xa
009c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
009d 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
009e 00d9 | | Load_Top At_Offset_1
009f 4626 |F& | Jump_Case 0x27
00a0 7836 |x6 | Jump 0xd7 ; case 0x0
00a1 7835 |x5 | Jump 0xd7 ; case 0x1
00a2 7858 |xX | Jump 0xfb ; case 0x2
00a3 7857 |xW | Jump 0xfb ; case 0x3
00a4 7856 |xV | Jump 0xfb ; case 0x4
00a5 7836 |x6 | Jump 0xdc ; case 0x5
00a6 7854 |xT | Jump 0xfb ; case 0x6
00a7 7834 |x4 | Jump 0xdc ; case 0x7
00a8 7852 |xR | Jump 0xfb ; case 0x8
00a9 7851 |xQ | Jump 0xfb ; case 0x9
00aa 7850 |xP | Jump 0xfb ; case 0xa
00ab 784f |xO | Jump 0xfb ; case 0xb
00ac 783a |x: | Jump 0xe7 ; case 0xc
00ad 7839 |x9 | Jump 0xe7 ; case 0xd
00ae 784c |xL | Jump 0xfb ; case 0xe
00af 784b |xK | Jump 0xfb ; case 0xf
00b0 7836 |x6 | Jump 0xe7 ; case 0x10
00b1 7825 |x% | Jump 0xd7 ; case 0x11
00b2 7848 |xH | Jump 0xfb ; case 0x12
00b3 7847 |xG | Jump 0xfb ; case 0x13
00b4 7846 |xF | Jump 0xfb ; case 0x14
00b5 7845 |xE | Jump 0xfb ; case 0x15
00b6 7844 |xD | Jump 0xfb ; case 0x16
00b7 7843 |xC | Jump 0xfb ; case 0x17
00b8 782e |x. | Jump 0xe7 ; case 0x18
00b9 7841 |xA | Jump 0xfb ; case 0x19
00ba 7840 |x@ | Jump 0xfb ; case 0x1a
00bb 783f |x? | Jump 0xfb ; case 0x1b
00bc 783e |x> | Jump 0xfb ; case 0x1c
00bd 783d |x= | Jump 0xfb ; case 0x1d
00be 783c |x< | Jump 0xfb ; case 0x1e
00bf 7827 |x' | Jump 0xe7 ; case 0x1f
00c0 783a |x: | Jump 0xfb ; case 0x20
00c1 7839 |x9 | Jump 0xfb ; case 0x21
00c2 782e |x. | Jump 0xf1 ; case 0x22
00c3 7837 |x7 | Jump 0xfb ; case 0x23
00c4 7812 |x | Jump 0xd7 ; case 0x24
00c5 7811 |x | Jump 0xd7 ; case 0x25
00c6 7800 |x | Jump 0xc7 ; case 0x26
00c7 e5ff | | Load 0x2,-0x1
00c8 e00d | | Load 0x0,0xd
00c9 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00ca 0f0c | | Execute_Immediate Equal,0xc
00cb 7003 |p | Jump_Nonzero 0xcf
00cc e5ff | | Load 0x2,-0x1
00cd c403 | | Store 0x2,0x3
00ce 782e |x. | Jump 0xfd
00cf e5ff | | Load 0x2,-0x1
00d0 e00c | | Load 0x0,0xc
00d1 180f | | Execute Package,Field_Execute,Field_Number 0xf
00d2 6802 |h | Jump_Zero 0xd5
00d3 e218 | | Load 0x1,0x18
00d4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00d5 e21a | | Load 0x1,0x1a
00d6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00d7 e5ff | | Load 0x2,-0x1
00d8 e00a | | Load 0x0,0xa
00d9 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
00da c403 | | Store 0x2,0x3
00db 7821 |x! | Jump 0xfd
00dc e5ff | | Load 0x2,-0x1
00dd e00a | | Load 0x0,0xa
00de 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
00df 6802 |h | Jump_Zero 0xe2
00e0 e215 | | Load 0x1,0x15
00e1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00e2 e5ff | | Load 0x2,-0x1
00e3 e00a | | Load 0x0,0xa
00e4 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
00e5 c403 | | Store 0x2,0x3
00e6 7816 |x | Jump 0xfd
00e7 4801 |H | Short_Literal 0x1
00e8 e5ff | | Load 0x2,-0x1
00e9 e00a | | Load 0x0,0xa
00ea 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
00eb e00c | | Load 0x0,0xc
00ec 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
00ed e00a | | Load 0x0,0xa
00ee 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
00ef c403 | | Store 0x2,0x3
00f0 780c |x | Jump 0xfd
00f1 4801 |H | Short_Literal 0x1
00f2 e5ff | | Load 0x2,-0x1
00f3 e00a | | Load 0x0,0xa
00f4 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
00f5 e00c | | Load 0x0,0xc
00f6 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
00f7 e00a | | Load 0x0,0xa
00f8 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
00f9 c403 | | Store 0x2,0x3
00fa 7802 |x | Jump 0xfd
00fb e215 | | Load 0x1,0x15
00fc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00fd e5fe | | Load 0x2,-0x2
00fe 00d9 | | Load_Top At_Offset_1
00ff 8225 | % | Call 0x1,0x25
0100 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0101 TRAP_0090:
0101 e00f | | Load 0x0,0xf
0102 010f | | Execute Exception,Equal
0103 6802 |h | Jump_Zero 0x106
0104 e217 | | Load 0x1,0x17
0105 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0106 e219 | | Load 0x1,0x19
0107 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 0112 | | .CONST 0x0112 ; Address of begin
0109 017d | } | .CONST 0x017d ; Address of exception handler
010a 0003 | | .CONST 0x0003 ; Number of locals
010b INIT_0108:
010b e00a | | Load 0x0,0xa
010c 1b15 | | Execute Package,Field_Read,Field_Number 0x15
010d e00c | | Load 0x0,0xc
010e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
010f 02c7 | | Declare_Variable Any
0110 00d8 | | Load_Top At_Offset_0
0111 1c00 | | Execute_Immediate Run_Utility,0x0
0112 BODY_0108:
0112 e5ff | | Load 0x2,-0x1
0113 e00a | | Load 0x0,0xa
0114 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0115 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0116 00d9 | | Load_Top At_Offset_1
0117 4626 |F& | Jump_Case 0x27
0118 7838 |x8 | Jump 0x151 ; case 0x0
0119 7837 |x7 | Jump 0x151 ; case 0x1
011a 785c |x\ | Jump 0x177 ; case 0x2
011b 7833 |x3 | Jump 0x14f ; case 0x3
011c 7832 |x2 | Jump 0x14f ; case 0x4
011d 7838 |x8 | Jump 0x156 ; case 0x5
011e 7858 |xX | Jump 0x177 ; case 0x6
011f 7836 |x6 | Jump 0x156 ; case 0x7
0120 7856 |xV | Jump 0x177 ; case 0x8
0121 7855 |xU | Jump 0x177 ; case 0x9
0122 7854 |xT | Jump 0x177 ; case 0xa
0123 7853 |xS | Jump 0x177 ; case 0xb
0124 783c |x< | Jump 0x161 ; case 0xc
0125 783b |x; | Jump 0x161 ; case 0xd
0126 7850 |xP | Jump 0x177 ; case 0xe
0127 784f |xO | Jump 0x177 ; case 0xf
0128 7838 |x8 | Jump 0x161 ; case 0x10
0129 7827 |x' | Jump 0x151 ; case 0x11
012a 784c |xL | Jump 0x177 ; case 0x12
012b 784b |xK | Jump 0x177 ; case 0x13
012c 784a |xJ | Jump 0x177 ; case 0x14
012d 7849 |xI | Jump 0x177 ; case 0x15
012e 7848 |xH | Jump 0x177 ; case 0x16
012f 7847 |xG | Jump 0x177 ; case 0x17
0130 7830 |x0 | Jump 0x161 ; case 0x18
0131 7845 |xE | Jump 0x177 ; case 0x19
0132 7844 |xD | Jump 0x177 ; case 0x1a
0133 7837 |x7 | Jump 0x16b ; case 0x1b
0134 7842 |xB | Jump 0x177 ; case 0x1c
0135 7841 |xA | Jump 0x177 ; case 0x1d
0136 7840 |x@ | Jump 0x177 ; case 0x1e
0137 7829 |x) | Jump 0x161 ; case 0x1f
0138 783e |x> | Jump 0x177 ; case 0x20
0139 783d |x= | Jump 0x177 ; case 0x21
013a 7832 |x2 | Jump 0x16d ; case 0x22
013b 783b |x; | Jump 0x177 ; case 0x23
013c 7814 |x | Jump 0x151 ; case 0x24
013d 7813 |x | Jump 0x151 ; case 0x25
013e 7800 |x | Jump 0x13f ; case 0x26
013f e5ff | | Load 0x2,-0x1
0140 e00d | | Load 0x0,0xd
0141 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0142 0f0c | | Execute_Immediate Equal,0xc
0143 7003 |p | Jump_Nonzero 0x147
0144 e5ff | | Load 0x2,-0x1
0145 c403 | | Store 0x2,0x3
0146 7832 |x2 | Jump 0x179
0147 e5ff | | Load 0x2,-0x1
0148 e00c | | Load 0x0,0xc
0149 180f | | Execute Package,Field_Execute,Field_Number 0xf
014a 6802 |h | Jump_Zero 0x14d
014b e218 | | Load 0x1,0x18
014c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
014d e21a | | Load 0x1,0x1a
014e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
014f e215 | | Load 0x1,0x15
0150 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0151 e5ff | | Load 0x2,-0x1
0152 e00a | | Load 0x0,0xa
0153 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0154 c403 | | Store 0x2,0x3
0155 7823 |x# | Jump 0x179
0156 e5ff | | Load 0x2,-0x1
0157 e00a | | Load 0x0,0xa
0158 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0159 6802 |h | Jump_Zero 0x15c
015a e215 | | Load 0x1,0x15
015b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
015c e5ff | | Load 0x2,-0x1
015d e00a | | Load 0x0,0xa
015e 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
015f c403 | | Store 0x2,0x3
0160 7818 |x | Jump 0x179
0161 4801 |H | Short_Literal 0x1
0162 e5ff | | Load 0x2,-0x1
0163 e00a | | Load 0x0,0xa
0164 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
0165 e00c | | Load 0x0,0xc
0166 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
0167 e00a | | Load 0x0,0xa
0168 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0169 c403 | | Store 0x2,0x3
016a 780e |x | Jump 0x179
016b e215 | | Load 0x1,0x15
016c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
016d 4801 |H | Short_Literal 0x1
016e e5ff | | Load 0x2,-0x1
016f e00a | | Load 0x0,0xa
0170 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0171 e00c | | Load 0x0,0xc
0172 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
0173 e00a | | Load 0x0,0xa
0174 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0175 c403 | | Store 0x2,0x3
0176 7802 |x | Jump 0x179
0177 e215 | | Load 0x1,0x15
0178 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0179 e5fe | | Load 0x2,-0x2
017a 00d9 | | Load_Top At_Offset_1
017b 8228 | ( | Call 0x1,0x28
017c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
017d TRAP_0108:
017d e00f | | Load 0x0,0xf
017e 010f | | Execute Exception,Equal
017f 6802 |h | Jump_Zero 0x182
0180 e217 | | Load 0x1,0x17
0181 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0182 e219 | | Load 0x1,0x19
0183 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0184 0000 0000 | | .BLANK 0000[0x4]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 0192 | | .CONST 0x0192 ; Address of begin
0189 0200 | | .CONST 0x0200 ; Address of exception handler
018a 0003 | | .CONST 0x0003 ; Number of locals
018b INIT_0188:
018b e00a | | Load 0x0,0xa
018c 1b15 | | Execute Package,Field_Read,Field_Number 0x15
018d e00c | | Load 0x0,0xc
018e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
018f 02c7 | | Declare_Variable Any
0190 00d8 | | Load_Top At_Offset_0
0191 1c00 | | Execute_Immediate Run_Utility,0x0
0192 BODY_0188:
0192 e5ff | | Load 0x2,-0x1
0193 e00a | | Load 0x0,0xa
0194 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0195 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0196 00d9 | | Load_Top At_Offset_1
0197 4626 |F& | Jump_Case 0x27
0198 783a |x: | Jump 0x1d3 ; case 0x0
0199 7839 |x9 | Jump 0x1d3 ; case 0x1
019a 785f |x_ | Jump 0x1fa ; case 0x2
019b 7833 |x3 | Jump 0x1cf ; case 0x3
019c 7832 |x2 | Jump 0x1cf ; case 0x4
019d 783a |x: | Jump 0x1d8 ; case 0x5
019e 785b |x[ | Jump 0x1fa ; case 0x6
019f 7838 |x8 | Jump 0x1d8 ; case 0x7
01a0 7859 |xY | Jump 0x1fa ; case 0x8
01a1 7858 |xX | Jump 0x1fa ; case 0x9
01a2 7857 |xW | Jump 0x1fa ; case 0xa
01a3 7856 |xV | Jump 0x1fa ; case 0xb
01a4 783e |x> | Jump 0x1e3 ; case 0xc
01a5 783d |x= | Jump 0x1e3 ; case 0xd
01a6 7853 |xS | Jump 0x1fa ; case 0xe
01a7 7852 |xR | Jump 0x1fa ; case 0xf
01a8 783a |x: | Jump 0x1e3 ; case 0x10
01a9 7829 |x) | Jump 0x1d3 ; case 0x11
01aa 784f |xO | Jump 0x1fa ; case 0x12
01ab 784e |xN | Jump 0x1fa ; case 0x13
01ac 784d |xM | Jump 0x1fa ; case 0x14
01ad 784c |xL | Jump 0x1fa ; case 0x15
01ae 784b |xK | Jump 0x1fa ; case 0x16
01af 784a |xJ | Jump 0x1fa ; case 0x17
01b0 7832 |x2 | Jump 0x1e3 ; case 0x18
01b1 7848 |xH | Jump 0x1fa ; case 0x19
01b2 7847 |xG | Jump 0x1fa ; case 0x1a
01b3 7839 |x9 | Jump 0x1ed ; case 0x1b
01b4 7845 |xE | Jump 0x1fa ; case 0x1c
01b5 7844 |xD | Jump 0x1fa ; case 0x1d
01b6 7843 |xC | Jump 0x1fa ; case 0x1e
01b7 782b |x+ | Jump 0x1e3 ; case 0x1f
01b8 7841 |xA | Jump 0x1fa ; case 0x20
01b9 7840 |x@ | Jump 0x1fa ; case 0x21
01ba 7835 |x5 | Jump 0x1f0 ; case 0x22
01bb 783e |x> | Jump 0x1fa ; case 0x23
01bc 7816 |x | Jump 0x1d3 ; case 0x24
01bd 7815 |x | Jump 0x1d3 ; case 0x25
01be 7800 |x | Jump 0x1bf ; case 0x26
01bf e5ff | | Load 0x2,-0x1
01c0 e00d | | Load 0x0,0xd
01c1 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01c2 0f0c | | Execute_Immediate Equal,0xc
01c3 7003 |p | Jump_Nonzero 0x1c7
01c4 e5ff | | Load 0x2,-0x1
01c5 c403 | | Store 0x2,0x3
01c6 7835 |x5 | Jump 0x1fc
01c7 e5ff | | Load 0x2,-0x1
01c8 e00c | | Load 0x0,0xc
01c9 180f | | Execute Package,Field_Execute,Field_Number 0xf
01ca 6802 |h | Jump_Zero 0x1cd
01cb e218 | | Load 0x1,0x18
01cc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01cd e21a | | Load 0x1,0x1a
01ce 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01cf e5ff | | Load 0x2,-0x1
01d0 e21b | | Load 0x1,0x1b
01d1 180e | | Execute Package,Field_Execute,Field_Number 0xe
01d2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01d3 e5ff | | Load 0x2,-0x1
01d4 e00a | | Load 0x0,0xa
01d5 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
01d6 c403 | | Store 0x2,0x3
01d7 7824 |x$ | Jump 0x1fc
01d8 e5ff | | Load 0x2,-0x1
01d9 e00a | | Load 0x0,0xa
01da 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
01db 6802 |h | Jump_Zero 0x1de
01dc e215 | | Load 0x1,0x15
01dd 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01de e5ff | | Load 0x2,-0x1
01df e00a | | Load 0x0,0xa
01e0 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
01e1 c403 | | Store 0x2,0x3
01e2 7819 |x | Jump 0x1fc
01e3 4801 |H | Short_Literal 0x1
01e4 e5ff | | Load 0x2,-0x1
01e5 e00a | | Load 0x0,0xa
01e6 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
01e7 e00c | | Load 0x0,0xc
01e8 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
01e9 e00a | | Load 0x0,0xa
01ea 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
01eb c403 | | Store 0x2,0x3
01ec 780f |x | Jump 0x1fc
01ed 0092 0729 | )| Action Push_String_Extended,0x729 ; "64"
01ef 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01f0 4801 |H | Short_Literal 0x1
01f1 e5ff | | Load 0x2,-0x1
01f2 e00a | | Load 0x0,0xa
01f3 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
01f4 e00c | | Load 0x0,0xc
01f5 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
01f6 e00a | | Load 0x0,0xa
01f7 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
01f8 c403 | | Store 0x2,0x3
01f9 7802 |x | Jump 0x1fc
01fa e215 | | Load 0x1,0x15
01fb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01fc e5fe | | Load 0x2,-0x2
01fd 00d9 | | Load_Top At_Offset_1
01fe 822a | * | Call 0x1,0x2a
01ff 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0200 TRAP_0188:
0200 e00f | | Load 0x0,0xf
0201 010f | | Execute Exception,Equal
0202 6802 |h | Jump_Zero 0x205
0203 e217 | | Load 0x1,0x17
0204 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0205 e219 | | Load 0x1,0x19
0206 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0207 0000 | | .XXX[0x1]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b | | .CONST 0x020b ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0001 | | .CONST 0x0001 ; Number of locals
020b BODY_0208:
020b INIT_0208:
020b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
020c 0000 0000 | | .BLANK 0000[0x4]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0218 | | .CONST 0x0218 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0002 | | .CONST 0x0002 ; Number of locals
0213 INIT_0210:
0213 4801 |H | Short_Literal 0x1
0214 480c |H | Short_Literal 0xc
0215 00e9 | | Load_Encached String_Cache
0216 035b | [ | Declare_Type Array,Constrained
0217 0337 | 7 | Declare_Variable Array
0218 BODY_0210:
0218 00d8 | | Load_Top At_Offset_0
0219 4803 |H | Short_Literal 0x3
021a 4804 |H | Short_Literal 0x4
021b e5ff | | Load 0x2,-0x1
021c e213 | | Load 0x1,0x13
021d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
021e 00d1 | | Pop_Control Pop_Count_1
021f 4820 |H | Short_Literal 0x20
0220 00d9 | | Load_Top At_Offset_1
0221 e001 | | Load 0x0,0x1
0222 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0223 00e9 | | Load_Encached String_Cache
0224 01c6 | | Execute Vector,Convert_To_Formal
0225 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0226 0000 0000 | | .XXX[0x2]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 0237 | 7 | .CONST 0x0237 ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0004 | | .CONST 0x0004 ; Number of locals
022b INIT_0228:
022b e00d | | Load 0x0,0xd
022c 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
022d 02c7 | | Declare_Variable Any
022e 00d8 | | Load_Top At_Offset_0
022f 1c00 | | Execute_Immediate Run_Utility,0x0
0230 e00d | | Load 0x0,0xd
0231 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0232 02c7 | | Declare_Variable Any
0233 e5ff | | Load 0x2,-0x1
0234 a403 | | Store_Unchecked 0x2,0x3
0235 029f 064b | K| Declare_Subprogram INIT_0648,For_Call
0237 BODY_0228:
0237 00cf | | Action Mark_Auxiliary
0238 00da | | Load_Top At_Offset_2
0239 e00d | | Load 0x0,0xd
023a 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
023b 4603 |F | Jump_Case 0x4
023c 7806 |x | Jump 0x243 ; case 0x0
023d 7807 |x | Jump 0x245 ; case 0x1
023e 7808 |x | Jump 0x247 ; case 0x2
023f 7800 |x | Jump 0x240 ; case 0x3
0240 e00c | | Load 0x0,0xc
0241 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0242 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0243 00da | | Load_Top At_Offset_2
0244 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0245 8404 | | Call 0x2,0x4
0246 781d |x | Jump 0x264
0247 00da | | Load_Top At_Offset_2
0248 e00d | | Load 0x0,0xd
0249 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
024a c402 | | Store 0x2,0x2
024b 00db | | Load_Top At_Offset_3
024c e00c | | Load 0x0,0xc
024d 180f | | Execute Package,Field_Execute,Field_Number 0xf
024e 6813 |h | Jump_Zero 0x262
024f 4801 |H | Short_Literal 0x1
0250 00db | | Load_Top At_Offset_3
0251 e00d | | Load 0x0,0xd
0252 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0253 e00c | | Load 0x0,0xc
0254 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
0255 e00a | | Load 0x0,0xa
0256 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0257 c403 | | Store 0x2,0x3
0258 00da | | Load_Top At_Offset_2
0259 e00d | | Load 0x0,0xd
025a 1819 | | Execute Package,Field_Execute,Field_Number 0x19
025b 0f08 | | Execute_Immediate Equal,0x8
025c 6807 |h | Jump_Zero 0x264
025d 00da | | Load_Top At_Offset_2
025e e00d | | Load 0x0,0xd
025f 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59
0260 c403 | | Store 0x2,0x3
0261 7802 |x | Jump 0x264
0262 00db | | Load_Top At_Offset_3
0263 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0264 00c9 | | Action Pop_Auxiliary_Loop
0265 7fd2 | | Jump 0x238
0266 0000 0000 | | .XXX[0x2]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 028e | | .CONST 0x028e ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 000b | | .CONST 0x000b ; Number of locals
026b INIT_0268:
026b e00c | | Load 0x0,0xc
026c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
026d 02c7 | | Declare_Variable Any
026e 00db | | Load_Top At_Offset_3
026f a402 | | Store_Unchecked 0x2,0x2
0270 e00c | | Load 0x0,0xc
0271 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0272 02c7 | | Declare_Variable Any
0273 00d8 | | Load_Top At_Offset_0
0274 1c00 | | Execute_Immediate Run_Utility,0x0
0275 e00c | | Load 0x0,0xc
0276 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0277 02c7 | | Declare_Variable Any
0278 00d8 | | Load_Top At_Offset_0
0279 1c00 | | Execute_Immediate Run_Utility,0x0
027a e00c | | Load 0x0,0xc
027b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
027c 02c7 | | Declare_Variable Any
027d 00d8 | | Load_Top At_Offset_0
027e 1c00 | | Execute_Immediate Run_Utility,0x0
027f e00c | | Load 0x0,0xc
0280 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0281 02c7 | | Declare_Variable Any
0282 00d8 | | Load_Top At_Offset_0
0283 1c00 | | Execute_Immediate Run_Utility,0x0
0284 00e5 | | Load_Encached Long_Integer_Cache
0285 03e9 | | Declare_Variable Discrete,Duplicate
0286 00e1 | | Load_Encached Boolean_Cache
0287 00e9 | | Load_Encached String_Cache
0288 02a0 | | Declare_Subprogram Null_Subprogram
0289 4818 |H | Short_Literal 0x18
028a 03d3 | | Declare_Type Access,Defined,Accesses_Protected
028b 00ea | | Load_Encached Null_String_Cache
028c 00d9 | | Load_Top At_Offset_1
028d 03b6 | | Declare_Variable Access,By_Allocation,With_Value
028e BODY_0268:
028e 00cf | | Action Mark_Auxiliary
028f 785b |x[ | Jump 0x2eb
0290 e402 | | Load 0x2,0x2
0291 e00c | | Load 0x0,0xc
0292 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0293 c403 | | Store 0x2,0x3
0294 e405 | | Load 0x2,0x5
0295 0120 | | Execute Any,Is_Value
0296 6803 |h | Jump_Zero 0x29a
0297 e00b | | Load 0x0,0xb
0298 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0299 7801 |x | Jump 0x29b
029a e405 | | Load 0x2,0x5
029b e404 | | Load 0x2,0x4
029c 0120 | | Execute Any,Is_Value
029d 6803 |h | Jump_Zero 0x2a1
029e e00b | | Load 0x0,0xb
029f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02a0 7801 |x | Jump 0x2a2
02a1 e404 | | Load 0x2,0x4
02a2 e409 | | Load 0x2,0x9
02a3 e408 | | Load 0x2,0x8
02a4 e407 | | Load 0x2,0x7
02a5 e403 | | Load 0x2,0x3
02a6 e21c | | Load 0x1,0x1c
02a7 180d | | Execute Package,Field_Execute,Field_Number 0xd
02a8 c407 | | Store 0x2,0x7
02a9 c408 | | Store 0x2,0x8
02aa c409 | | Store 0x2,0x9
02ab c404 | | Store 0x2,0x4
02ac c405 | | Store 0x2,0x5
02ad 00db | | Load_Top At_Offset_3
02ae 6817 |h | Jump_Zero 0x2c6
02af 00d9 | | Load_Top At_Offset_1
02b0 0227 | ' | Execute Access,All_Reference
02b1 4820 |H | Short_Literal 0x20
02b2 4800 |H | Short_Literal 0x0
02b3 480a |H | Short_Literal 0xa
02b4 e407 | | Load 0x2,0x7
02b5 8211 | | Call 0x1,0x11
02b6 01cc | | Execute Vector,Catenate
02b7 0092 072a | *| Action Push_String_Extended,0x72a ; " .. "
02b9 01cc | | Execute Vector,Catenate
02ba 4820 |H | Short_Literal 0x20
02bb 4800 |H | Short_Literal 0x0
02bc 480a |H | Short_Literal 0xa
02bd e408 | | Load 0x2,0x8
02be 8211 | | Call 0x1,0x11
02bf 01cc | | Execute Vector,Catenate
02c0 e214 | | Load 0x1,0x14
02c1 01cc | | Execute Vector,Catenate
02c2 00db | | Load_Top At_Offset_3
02c3 03b6 | | Declare_Variable Access,By_Allocation,With_Value
02c4 003a | : | Store_Top Access,At_Offset_2
02c5 7820 |x | Jump 0x2e6
02c6 e404 | | Load 0x2,0x4
02c7 e00c | | Load 0x0,0xc
02c8 180f | | Execute Package,Field_Execute,Field_Number 0xf
02c9 680a |h | Jump_Zero 0x2d4
02ca 00d9 | | Load_Top At_Offset_1
02cb 0227 | ' | Execute Access,All_Reference
02cc e216 | | Load 0x1,0x16
02cd 01cc | | Execute Vector,Catenate
02ce e214 | | Load 0x1,0x14
02cf 01cc | | Execute Vector,Catenate
02d0 00db | | Load_Top At_Offset_3
02d1 03b6 | | Declare_Variable Access,By_Allocation,With_Value
02d2 003a | : | Store_Top Access,At_Offset_2
02d3 7812 |x | Jump 0x2e6
02d4 00d9 | | Load_Top At_Offset_1
02d5 0227 | ' | Execute Access,All_Reference
02d6 e404 | | Load 0x2,0x4
02d7 e00c | | Load 0x0,0xc
02d8 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
02d9 01cc | | Execute Vector,Catenate
02da 0092 072a | *| Action Push_String_Extended,0x72a ; " .. "
02dc 01cc | | Execute Vector,Catenate
02dd e405 | | Load 0x2,0x5
02de e00c | | Load 0x0,0xc
02df 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
02e0 01cc | | Execute Vector,Catenate
02e1 e214 | | Load 0x1,0x14
02e2 01cc | | Execute Vector,Catenate
02e3 00db | | Load_Top At_Offset_3
02e4 03b6 | | Declare_Variable Access,By_Allocation,With_Value
02e5 003a | : | Store_Top Access,At_Offset_2
02e6 e402 | | Load 0x2,0x2
02e7 e00c | | Load 0x0,0xc
02e8 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02e9 c402 | | Store 0x2,0x2
02ea 00c9 | | Action Pop_Auxiliary_Loop
02eb e402 | | Load 0x2,0x2
02ec e00c | | Load 0x0,0xc
02ed 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02ee 6fa1 |o | Jump_Zero 0x290
02ef 00ce | | Action Pop_Auxiliary
02f0 00d8 | | Load_Top At_Offset_0
02f1 0227 | ' | Execute Access,All_Reference
02f2 01dd | | Execute Vector,First
02f3 00d9 | | Load_Top At_Offset_1
02f4 0227 | ' | Execute Access,All_Reference
02f5 01dc | | Execute Vector,Last
02f6 0aff | | Execute_Immediate Plus,-0x1
02f7 00d8 | | Load_Top At_Offset_0
02f8 00e2 | | Load_Encached Integer_Cache
02f9 0260 | ` | Execute Discrete,In_Type
02fa 7001 |p | Jump_Nonzero 0x2fc
02fb 0801 | | Execute_Immediate Raise,0x1
02fc 00da | | Load_Top At_Offset_2
02fd 0227 | ' | Execute Access,All_Reference
02fe 01cf | | Execute Vector,Slice_Read
02ff 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 030d | | .CONST 0x030d ; Address of begin
0301 0004 | | .CONST 0x0004 ; Address of exception handler
0302 0005 | | .CONST 0x0005 ; Number of locals
0303 INIT_0300:
0303 00e1 | | Load_Encached Boolean_Cache
0304 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0305 03e9 | | Declare_Variable Discrete,Duplicate
0306 e00c | | Load 0x0,0xc
0307 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0308 02c7 | | Declare_Variable Any
0309 00d8 | | Load_Top At_Offset_0
030a 1c00 | | Execute_Immediate Run_Utility,0x0
030b 029f 067b | {| Declare_Subprogram INIT_0678,For_Call
030d BODY_0300:
030d e00c | | Load 0x0,0xc
030e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
030f c5fc | | Store 0x2,-0x4
0310 e00c | | Load 0x0,0xc
0311 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0312 c5fb | | Store 0x2,-0x5
0313 e5ff | | Load 0x2,-0x1
0314 c404 | | Store 0x2,0x4
0315 e5fd | | Load 0x2,-0x3
0316 8405 | | Call 0x2,0x5
0317 00cf | | Action Mark_Auxiliary
0318 7831 |x1 | Jump 0x34a
0319 00da | | Load_Top At_Offset_2
031a e00c | | Load 0x0,0xc
031b 180f | | Execute Package,Field_Execute,Field_Number 0xf
031c 6805 |h | Jump_Zero 0x322
031d e5fe | | Load 0x2,-0x2
031e e00d | | Load 0x0,0xd
031f 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0320 8405 | | Call 0x2,0x5
0321 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0322 4801 |H | Short_Literal 0x1
0323 00db | | Load_Top At_Offset_3
0324 e00c | | Load 0x0,0xc
0325 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
0326 c404 | | Store 0x2,0x4
0327 00da | | Load_Top At_Offset_2
0328 e00c | | Load 0x0,0xc
0329 180f | | Execute Package,Field_Execute,Field_Number 0xf
032a 7023 |p# | Jump_Nonzero 0x34e
032b 00da | | Load_Top At_Offset_2
032c e00a | | Load 0x0,0xa
032d 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
032e e00d | | Load 0x0,0xd
032f 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0330 c404 | | Store 0x2,0x4
0331 00da | | Load_Top At_Offset_2
0332 e00d | | Load 0x0,0xd
0333 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0334 460c |F | Jump_Case 0xd
0335 780c |x | Jump 0x342 ; case 0x0
0336 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x1
0337 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x2
0338 780e |x | Jump 0x347 ; case 0x3
0339 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x4
033a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x5
033b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x6
033c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x7
033d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x8
033e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x9
033f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0xa
0340 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0xb
0341 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0xc
0342 00da | | Load_Top At_Offset_2
0343 e00d | | Load 0x0,0xd
0344 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0345 8405 | | Call 0x2,0x5
0346 7802 |x | Jump 0x349
0347 00da | | Load_Top At_Offset_2
0348 8405 | | Call 0x2,0x5
0349 00c9 | | Action Pop_Auxiliary_Loop
034a e402 | | Load 0x2,0x2
034b 6fcd |o | Jump_Zero 0x319
034c 00db | | Load_Top At_Offset_3
034d 6fcb |o | Jump_Zero 0x319
034e 4504 |E | Exit_Suprogram New_Top_Offset 0x4
034f 0000 | | .XXX[0x1]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 035d | ] | .CONST 0x035d ; Address of begin
0351 0004 | | .CONST 0x0004 ; Address of exception handler
0352 0005 | | .CONST 0x0005 ; Number of locals
0353 INIT_0350:
0353 00e1 | | Load_Encached Boolean_Cache
0354 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0355 03e9 | | Declare_Variable Discrete,Duplicate
0356 e00c | | Load 0x0,0xc
0357 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0358 02c7 | | Declare_Variable Any
0359 00d8 | | Load_Top At_Offset_0
035a 1c00 | | Execute_Immediate Run_Utility,0x0
035b 029f 06ab | | Declare_Subprogram INIT_06a8,For_Call
035d BODY_0350:
035d e00c | | Load 0x0,0xc
035e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
035f c5fc | | Store 0x2,-0x4
0360 e00c | | Load 0x0,0xc
0361 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0362 c5fb | | Store 0x2,-0x5
0363 e5ff | | Load 0x2,-0x1
0364 c404 | | Store 0x2,0x4
0365 e5fd | | Load 0x2,-0x3
0366 8405 | | Call 0x2,0x5
0367 00cf | | Action Mark_Auxiliary
0368 7831 |x1 | Jump 0x39a
0369 00da | | Load_Top At_Offset_2
036a e00c | | Load 0x0,0xc
036b 180f | | Execute Package,Field_Execute,Field_Number 0xf
036c 6805 |h | Jump_Zero 0x372
036d e5fe | | Load 0x2,-0x2
036e e00d | | Load 0x0,0xd
036f 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0370 8405 | | Call 0x2,0x5
0371 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0372 4801 |H | Short_Literal 0x1
0373 00db | | Load_Top At_Offset_3
0374 e00c | | Load 0x0,0xc
0375 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
0376 c404 | | Store 0x2,0x4
0377 00da | | Load_Top At_Offset_2
0378 e00c | | Load 0x0,0xc
0379 180f | | Execute Package,Field_Execute,Field_Number 0xf
037a 7023 |p# | Jump_Nonzero 0x39e
037b 00da | | Load_Top At_Offset_2
037c e00a | | Load 0x0,0xa
037d 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
037e e00d | | Load 0x0,0xd
037f 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0380 c404 | | Store 0x2,0x4
0381 00da | | Load_Top At_Offset_2
0382 e00d | | Load 0x0,0xd
0383 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0384 460c |F | Jump_Case 0xd
0385 780c |x | Jump 0x392 ; case 0x0
0386 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x1
0387 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x2
0388 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x3
0389 780d |x | Jump 0x397 ; case 0x4
038a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x5
038b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x6
038c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x7
038d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x8
038e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x9
038f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0xa
0390 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0xb
0391 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0xc
0392 00da | | Load_Top At_Offset_2
0393 e00d | | Load 0x0,0xd
0394 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0395 8405 | | Call 0x2,0x5
0396 7802 |x | Jump 0x399
0397 00da | | Load_Top At_Offset_2
0398 8405 | | Call 0x2,0x5
0399 00c9 | | Action Pop_Auxiliary_Loop
039a e402 | | Load 0x2,0x2
039b 6fcd |o | Jump_Zero 0x369
039c 00db | | Load_Top At_Offset_3
039d 6fcb |o | Jump_Zero 0x369
039e 4504 |E | Exit_Suprogram New_Top_Offset 0x4
039f 0000 | | .XXX[0x1]
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03a7 | | .CONST 0x03a7 ; Address of begin
03a1 0004 | | .CONST 0x0004 ; Address of exception handler
03a2 0003 | | .CONST 0x0003 ; Number of locals
03a3 INIT_03a0:
03a3 00da | | Load_Top At_Offset_2
03a4 e00c | | Load 0x0,0xc
03a5 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
03a6 00e3 | | Load_Encached Natural_Cache
03a7 BODY_03a0:
03a7 e5ff | | Load 0x2,-0x1
03a8 e00c | | Load 0x0,0xc
03a9 180f | | Execute Package,Field_Execute,Field_Number 0xf
03aa 6802 |h | Jump_Zero 0x3ad
03ab e215 | | Load 0x1,0x15
03ac 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03ad 4801 |H | Short_Literal 0x1
03ae 00da | | Load_Top At_Offset_2
03af 0092 072b | +| Action Push_String_Extended,0x72b ; "range"
03b1 e001 | | Load 0x0,0x1
03b2 181d | | Execute Package,Field_Execute,Field_Number 0x1d
03b3 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
03b4 00d8 | | Load_Top At_Offset_0
03b5 7002 |p | Jump_Nonzero 0x3b8
03b6 00d9 | | Load_Top At_Offset_1
03b7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03b8 00d9 | | Load_Top At_Offset_1
03b9 01dd | | Execute Vector,First
03ba 00d9 | | Load_Top At_Offset_1
03bb 0aff | | Execute_Immediate Plus,-0x1
03bc 00db | | Load_Top At_Offset_3
03bd 01cf | | Execute Vector,Slice_Read
03be 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03bf 0000 | | .XXX[0x1]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03cf | | .CONST 0x03cf ; Address of begin
03c1 0004 | | .CONST 0x0004 ; Address of exception handler
03c2 0003 | | .CONST 0x0003 ; Number of locals
03c3 INIT_03c0:
03c3 e00d | | Load 0x0,0xd
03c4 1b13 | | Execute Package,Field_Read,Field_Number 0x13
03c5 02c7 | | Declare_Variable Any
03c6 e5fe | | Load 0x2,-0x2
03c7 e00d | | Load 0x0,0xd
03c8 181d | | Execute Package,Field_Execute,Field_Number 0x1d
03c9 a402 | | Store_Unchecked 0x2,0x2
03ca e00d | | Load 0x0,0xd
03cb 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
03cc 02c7 | | Declare_Variable Any
03cd 00d8 | | Load_Top At_Offset_0
03ce 1c00 | | Execute_Immediate Run_Utility,0x0
03cf BODY_03c0:
03cf 00d9 | | Load_Top At_Offset_1
03d0 e00d | | Load 0x0,0xd
03d1 1819 | | Execute Package,Field_Execute,Field_Number 0x19
03d2 460c |F | Jump_Case 0xd
03d3 780c |x | Jump 0x3e0 ; case 0x0
03d4 780b |x | Jump 0x3e0 ; case 0x1
03d5 780a |x | Jump 0x3e0 ; case 0x2
03d6 7822 |x" | Jump 0x3f9 ; case 0x3
03d7 780c |x | Jump 0x3e4 ; case 0x4
03d8 7807 |x | Jump 0x3e0 ; case 0x5
03d9 7806 |x | Jump 0x3e0 ; case 0x6
03da 7805 |x | Jump 0x3e0 ; case 0x7
03db 7804 |x | Jump 0x3e0 ; case 0x8
03dc 7803 |x | Jump 0x3e0 ; case 0x9
03dd 7802 |x | Jump 0x3e0 ; case 0xa
03de 7801 |x | Jump 0x3e0 ; case 0xb
03df 7800 |x | Jump 0x3e0 ; case 0xc
03e0 e00c | | Load 0x0,0xc
03e1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03e2 c5fc | | Store 0x2,-0x4
03e3 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03e4 e5fc | | Load 0x2,-0x4
03e5 0120 | | Execute Any,Is_Value
03e6 6803 |h | Jump_Zero 0x3ea
03e7 e00d | | Load 0x0,0xd
03e8 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
03e9 7801 |x | Jump 0x3eb
03ea e5fc | | Load 0x2,-0x4
03eb 00d9 | | Load_Top At_Offset_1
03ec 0120 | | Execute Any,Is_Value
03ed 6803 |h | Jump_Zero 0x3f1
03ee e00d | | Load 0x0,0xd
03ef 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
03f0 7801 |x | Jump 0x3f2
03f1 00d9 | | Load_Top At_Offset_1
03f2 e5fd | | Load 0x2,-0x3
03f3 e5fe | | Load 0x2,-0x2
03f4 e5ff | | Load 0x2,-0x1
03f5 8222 | " | Call 0x1,0x22
03f6 c403 | | Store 0x2,0x3
03f7 c5fc | | Store 0x2,-0x4
03f8 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03f9 e5fc | | Load 0x2,-0x4
03fa 0120 | | Execute Any,Is_Value
03fb 6803 |h | Jump_Zero 0x3ff
03fc e00d | | Load 0x0,0xd
03fd 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
03fe 7801 |x | Jump 0x400
03ff e5fc | | Load 0x2,-0x4
0400 00d9 | | Load_Top At_Offset_1
0401 0120 | | Execute Any,Is_Value
0402 6803 |h | Jump_Zero 0x406
0403 e00d | | Load 0x0,0xd
0404 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
0405 7801 |x | Jump 0x407
0406 00d9 | | Load_Top At_Offset_1
0407 e5fd | | Load 0x2,-0x3
0408 e5fe | | Load 0x2,-0x2
0409 e5ff | | Load 0x2,-0x1
040a 8221 | ! | Call 0x1,0x21
040b c403 | | Store 0x2,0x3
040c c5fc | | Store 0x2,-0x4
040d 4504 |E | Exit_Suprogram New_Top_Offset 0x4
040e 0000 0000 | | .XXX[0x2]
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0424 | $ | .CONST 0x0424 ; Address of begin
0411 0492 | | .CONST 0x0492 ; Address of exception handler
0412 0004 | | .CONST 0x0004 ; Number of locals
0413 INIT_0410:
0413 e00c | | Load 0x0,0xc
0414 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0415 02c7 | | Declare_Variable Any
0416 00db | | Load_Top At_Offset_3
0417 e00d | | Load 0x0,0xd
0418 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0419 a402 | | Store_Unchecked 0x2,0x2
041a e00d | | Load 0x0,0xd
041b 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
041c 02c7 | | Declare_Variable Any
041d 00d8 | | Load_Top At_Offset_0
041e 1c00 | | Execute_Immediate Run_Utility,0x0
041f e00d | | Load 0x0,0xd
0420 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
0421 02c7 | | Declare_Variable Any
0422 00d8 | | Load_Top At_Offset_0
0423 1c00 | | Execute_Immediate Run_Utility,0x0
0424 BODY_0410:
0424 00cf | | Action Mark_Auxiliary
0425 00db | | Load_Top At_Offset_3
0426 e00d | | Load 0x0,0xd
0427 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0428 460c |F | Jump_Case 0xd
0429 780e |x | Jump 0x438 ; case 0x0
042a 780b |x | Jump 0x436 ; case 0x1
042b 780a |x | Jump 0x436 ; case 0x2
042c 7820 |x | Jump 0x44d ; case 0x3
042d 7837 |x7 | Jump 0x465 ; case 0x4
042e 7807 |x | Jump 0x436 ; case 0x5
042f 7806 |x | Jump 0x436 ; case 0x6
0430 7805 |x | Jump 0x436 ; case 0x7
0431 784b |xK | Jump 0x47d ; case 0x8
0432 7803 |x | Jump 0x436 ; case 0x9
0433 7850 |xP | Jump 0x484 ; case 0xa
0434 784f |xO | Jump 0x484 ; case 0xb
0435 7800 |x | Jump 0x436 ; case 0xc
0436 e215 | | Load 0x1,0x15
0437 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0438 00db | | Load_Top At_Offset_3
0439 e00d | | Load 0x0,0xd
043a 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
043b c403 | | Store 0x2,0x3
043c 00db | | Load_Top At_Offset_3
043d 0120 | | Execute Any,Is_Value
043e 6803 |h | Jump_Zero 0x442
043f e00d | | Load 0x0,0xd
0440 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
0441 7801 |x | Jump 0x443
0442 00db | | Load_Top At_Offset_3
0443 00db | | Load_Top At_Offset_3
0444 e402 | | Load 0x2,0x2
0445 00d8 | | Load_Top At_Offset_0
0446 e00d | | Load 0x0,0xd
0447 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0448 8224 | $ | Call 0x1,0x24
0449 c402 | | Store 0x2,0x2
044a 00db | | Load_Top At_Offset_3
044b 8223 | # | Call 0x1,0x23
044c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
044d 00db | | Load_Top At_Offset_3
044e 0120 | | Execute Any,Is_Value
044f 6803 |h | Jump_Zero 0x453
0450 e00d | | Load 0x0,0xd
0451 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
0452 7801 |x | Jump 0x454
0453 00db | | Load_Top At_Offset_3
0454 00da | | Load_Top At_Offset_2
0455 0120 | | Execute Any,Is_Value
0456 6803 |h | Jump_Zero 0x45a
0457 e00d | | Load 0x0,0xd
0458 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
0459 7801 |x | Jump 0x45b
045a 00da | | Load_Top At_Offset_2
045b e402 | | Load 0x2,0x2
045c 00d8 | | Load_Top At_Offset_0
045d e00c | | Load 0x0,0xc
045e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
045f 8221 | ! | Call 0x1,0x21
0460 c404 | | Store 0x2,0x4
0461 c402 | | Store 0x2,0x2
0462 00db | | Load_Top At_Offset_3
0463 8223 | # | Call 0x1,0x23
0464 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0465 00db | | Load_Top At_Offset_3
0466 0120 | | Execute Any,Is_Value
0467 6803 |h | Jump_Zero 0x46b
0468 e00d | | Load 0x0,0xd
0469 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
046a 7801 |x | Jump 0x46c
046b 00db | | Load_Top At_Offset_3
046c 00da | | Load_Top At_Offset_2
046d 0120 | | Execute Any,Is_Value
046e 6803 |h | Jump_Zero 0x472
046f e00d | | Load 0x0,0xd
0470 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
0471 7801 |x | Jump 0x473
0472 00da | | Load_Top At_Offset_2
0473 e402 | | Load 0x2,0x2
0474 00d8 | | Load_Top At_Offset_0
0475 e00c | | Load 0x0,0xc
0476 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0477 8222 | " | Call 0x1,0x22
0478 c404 | | Store 0x2,0x4
0479 c402 | | Store 0x2,0x2
047a 00db | | Load_Top At_Offset_3
047b 8223 | # | Call 0x1,0x23
047c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
047d 00db | | Load_Top At_Offset_3
047e e00d | | Load 0x0,0xd
047f 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59
0480 e00d | | Load 0x0,0xd
0481 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0482 c402 | | Store 0x2,0x2
0483 780c |x | Jump 0x490
0484 e5fe | | Load 0x2,-0x2
0485 6808 |h | Jump_Zero 0x48e
0486 4801 |H | Short_Literal 0x1
0487 e402 | | Load 0x2,0x2
0488 e00a | | Load 0x0,0xa
0489 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
048a e00c | | Load 0x0,0xc
048b 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
048c c402 | | Store 0x2,0x2
048d 7802 |x | Jump 0x490
048e e00f | | Load 0x0,0xf
048f 0257 | W | Execute Discrete,Raise
0490 00c9 | | Action Pop_Auxiliary_Loop
0491 7f93 | | Jump 0x425
0492 TRAP_0410:
0492 e00f | | Load 0x0,0xf
0493 010f | | Execute Exception,Equal
0494 6802 |h | Jump_Zero 0x497
0495 e217 | | Load 0x1,0x17
0496 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0497 0100 | | Execute Exception,Raise
0498 ; --------------------------------------------------------------------------------------
0498 ; SUBPROGRAM
0498 ; --------------------------------------------------------------------------------------
0498 049b | | .CONST 0x049b ; Address of begin
0499 0004 | | .CONST 0x0004 ; Address of exception handler
049a 0001 | | .CONST 0x0001 ; Number of locals
049b BODY_0498:
049b INIT_0498:
049b 00da | | Load_Top At_Offset_2
049c e00c | | Load 0x0,0xc
049d 1853 | S | Execute Package,Field_Execute,Field_Number 0x53
049e e001 | | Load 0x0,0x1
049f 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
04a0 e212 | | Load 0x1,0x12
04a1 1817 | | Execute Package,Field_Execute,Field_Number 0x17
04a2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04a3 0000 0000 | | .BLANK 0000[0x5]
04a8 ; --------------------------------------------------------------------------------------
04a8 ; SUBPROGRAM
04a8 ; --------------------------------------------------------------------------------------
04a8 04b4 | | .CONST 0x04b4 ; Address of begin
04a9 0004 | | .CONST 0x0004 ; Address of exception handler
04aa 0004 | | .CONST 0x0004 ; Number of locals
04ab INIT_04a8:
04ab e00c | | Load 0x0,0xc
04ac 1b13 | | Execute Package,Field_Read,Field_Number 0x13
04ad 02c7 | | Declare_Variable Any
04ae 00d8 | | Load_Top At_Offset_0
04af 1c00 | | Execute_Immediate Run_Utility,0x0
04b0 0092 072c | ,| Action Push_String_Extended,0x72c ; ", "
04b2 029f 06db | | Declare_Subprogram INIT_06d8,For_Call
04b4 BODY_04a8:
04b4 e5ff | | Load 0x2,-0x1
04b5 e00d | | Load 0x0,0xd
04b6 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
04b7 c402 | | Store 0x2,0x2
04b8 00da | | Load_Top At_Offset_2
04b9 e00c | | Load 0x0,0xc
04ba 1816 | | Execute Package,Field_Execute,Field_Number 0x16
04bb 6802 |h | Jump_Zero 0x4be
04bc e216 | | Load 0x1,0x16
04bd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04be 8404 | | Call 0x2,0x4
04bf 0831 | 1 | Execute_Immediate Raise,0x31
04c0 ; --------------------------------------------------------------------------------------
04c0 ; SUBPROGRAM
04c0 ; --------------------------------------------------------------------------------------
04c0 04d1 | | .CONST 0x04d1 ; Address of begin
04c1 0527 | ' | .CONST 0x0527 ; Address of exception handler
04c2 0005 | | .CONST 0x0005 ; Number of locals
04c3 INIT_04c0:
04c3 e00c | | Load 0x0,0xc
04c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04c5 02c7 | | Declare_Variable Any
04c6 00db | | Load_Top At_Offset_3
04c7 e00d | | Load 0x0,0xd
04c8 181e | | Execute Package,Field_Execute,Field_Number 0x1e
04c9 a402 | | Store_Unchecked 0x2,0x2
04ca e00c | | Load 0x0,0xc
04cb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04cc 02c7 | | Declare_Variable Any
04cd 00d8 | | Load_Top At_Offset_0
04ce 1c00 | | Execute_Immediate Run_Utility,0x0
04cf 00e5 | | Load_Encached Long_Integer_Cache
04d0 03e9 | | Declare_Variable Discrete,Duplicate
04d1 BODY_04c0:
04d1 00cf | | Action Mark_Auxiliary
04d2 e402 | | Load 0x2,0x2
04d3 e00d | | Load 0x0,0xd
04d4 1819 | | Execute Package,Field_Execute,Field_Number 0x19
04d5 460c |F | Jump_Case 0xd
04d6 780e |x | Jump 0x4e5 ; case 0x0
04d7 7820 |x | Jump 0x4f8 ; case 0x1
04d8 7822 |x" | Jump 0x4fb ; case 0x2
04d9 7827 |x' | Jump 0x501 ; case 0x3
04da 7826 |x& | Jump 0x501 ; case 0x4
04db 782d |x- | Jump 0x509 ; case 0x5
04dc 7837 |x7 | Jump 0x514 ; case 0x6
04dd 7836 |x6 | Jump 0x514 ; case 0x7
04de 7837 |x7 | Jump 0x516 ; case 0x8
04df 783d |x= | Jump 0x51d ; case 0x9
04e0 783e |x> | Jump 0x51f ; case 0xa
04e1 783d |x= | Jump 0x51f ; case 0xb
04e2 7800 |x | Jump 0x4e3 ; case 0xc
04e3 e215 | | Load 0x1,0x15
04e4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
04e5 e402 | | Load 0x2,0x2
04e6 e00d | | Load 0x0,0xd
04e7 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
04e8 c403 | | Store 0x2,0x3
04e9 00db | | Load_Top At_Offset_3
04ea e00c | | Load 0x0,0xc
04eb 180f | | Execute Package,Field_Execute,Field_Number 0xf
04ec 6802 |h | Jump_Zero 0x4ef
04ed e21a | | Load 0x1,0x1a
04ee 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
04ef e5fe | | Load 0x2,-0x2
04f0 e403 | | Load 0x2,0x3
04f1 e402 | | Load 0x2,0x2
04f2 00d8 | | Load_Top At_Offset_0
04f3 e00d | | Load 0x0,0xd
04f4 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
04f5 e21c | | Load 0x1,0x1c
04f6 1814 | | Execute Package,Field_Execute,Field_Number 0x14
04f7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
04f8 e402 | | Load 0x2,0x2
04f9 8227 | ' | Call 0x1,0x27
04fa 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
04fb e402 | | Load 0x2,0x2
04fc e00d | | Load 0x0,0xd
04fd 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
04fe e21c | | Load 0x1,0x1c
04ff 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0500 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0501 e5fe | | Load 0x2,-0x2
0502 e402 | | Load 0x2,0x2
0503 00d8 | | Load_Top At_Offset_0
0504 e00c | | Load 0x0,0xc
0505 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0506 e21c | | Load 0x1,0x1c
0507 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0508 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0509 e402 | | Load 0x2,0x2
050a e00d | | Load 0x0,0xd
050b 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
050c 6805 |h | Jump_Zero 0x512
050d e402 | | Load 0x2,0x2
050e e00d | | Load 0x0,0xd
050f 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
0510 8220 | | Call 0x1,0x20
0511 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0512 e216 | | Load 0x1,0x16
0513 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0514 e215 | | Load 0x1,0x15
0515 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0516 e402 | | Load 0x2,0x2
0517 e00d | | Load 0x0,0xd
0518 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59
0519 e00d | | Load 0x0,0xd
051a 181e | | Execute Package,Field_Execute,Field_Number 0x1e
051b c402 | | Store 0x2,0x2
051c 7808 |x | Jump 0x525
051d e215 | | Load 0x1,0x15
051e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
051f e5fe | | Load 0x2,-0x2
0520 7002 |p | Jump_Nonzero 0x523
0521 e217 | | Load 0x1,0x17
0522 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0523 e215 | | Load 0x1,0x15
0524 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0525 00c9 | | Action Pop_Auxiliary_Loop
0526 7fab | | Jump 0x4d2
0527 TRAP_04c0:
0527 e00f | | Load 0x0,0xf
0528 010f | | Execute Exception,Equal
0529 6802 |h | Jump_Zero 0x52c
052a e217 | | Load 0x1,0x17
052b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
052c 0100 | | Execute Exception,Raise
052d 0000 0000 | | .XXX[0x3]
052f 0000 | |
0530 ; --------------------------------------------------------------------------------------
0530 ; SUBPROGRAM
0530 ; --------------------------------------------------------------------------------------
0530 054b | K | .CONST 0x054b ; Address of begin
0531 0004 | | .CONST 0x0004 ; Address of exception handler
0532 0007 | | .CONST 0x0007 ; Number of locals
0533 INIT_0530:
0533 e00c | | Load 0x0,0xc
0534 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0535 02c7 | | Declare_Variable Any
0536 00db | | Load_Top At_Offset_3
0537 e00d | | Load 0x0,0xd
0538 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0539 a402 | | Store_Unchecked 0x2,0x2
053a 00e5 | | Load_Encached Long_Integer_Cache
053b 03e9 | | Declare_Variable Discrete,Duplicate
053c e00d | | Load 0x0,0xd
053d 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
053e 02c7 | | Declare_Variable Any
053f 00d8 | | Load_Top At_Offset_0
0540 1c00 | | Execute_Immediate Run_Utility,0x0
0541 e00d | | Load 0x0,0xd
0542 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
0543 02c7 | | Declare_Variable Any
0544 00d8 | | Load_Top At_Offset_0
0545 1c00 | | Execute_Immediate Run_Utility,0x0
0546 e00d | | Load 0x0,0xd
0547 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
0548 02c7 | | Declare_Variable Any
0549 00d8 | | Load_Top At_Offset_0
054a 1c00 | | Execute_Immediate Run_Utility,0x0
054b BODY_0530:
054b 00cf | | Action Mark_Auxiliary
054c e402 | | Load 0x2,0x2
054d e00d | | Load 0x0,0xd
054e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
054f 460c |F | Jump_Case 0xd
0550 7811 |x | Jump 0x562 ; case 0x0
0551 782a |x* | Jump 0x57c ; case 0x1
0552 783a |x: | Jump 0x58d ; case 0x2
0553 784f |xO | Jump 0x5a3 ; case 0x3
0554 7853 |xS | Jump 0x5a8 ; case 0x4
0555 787c |x| | Jump 0x5d2 ; case 0x5
0556 7899 |x | Jump 0x5f0 ; case 0x6
0557 788f |x | Jump 0x5e7 ; case 0x7
0558 78a0 |x | Jump 0x5f9 ; case 0x8
0559 7849 |xI | Jump 0x5a3 ; case 0x9
055a 78a5 |x | Jump 0x600 ; case 0xa
055b 78a4 |x | Jump 0x600 ; case 0xb
055c 7800 |x | Jump 0x55d ; case 0xc
055d 4800 |H | Short_Literal 0x0
055e a5fd | | Store_Unchecked 0x2,-0x3
055f 4800 |H | Short_Literal 0x0
0560 a5fc | | Store_Unchecked 0x2,-0x4
0561 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0562 e402 | | Load 0x2,0x2
0563 e00d | | Load 0x0,0xd
0564 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0565 c405 | | Store 0x2,0x5
0566 00db | | Load_Top At_Offset_3
0567 e00c | | Load 0x0,0xc
0568 180f | | Execute Package,Field_Execute,Field_Number 0xf
0569 6805 |h | Jump_Zero 0x56f
056a 4800 |H | Short_Literal 0x0
056b a5fd | | Store_Unchecked 0x2,-0x3
056c 4800 |H | Short_Literal 0x0
056d a5fc | | Store_Unchecked 0x2,-0x4
056e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
056f e5fc | | Load 0x2,-0x4
0570 00e3 | | Load_Encached Natural_Cache
0571 e5fe | | Load 0x2,-0x2
0572 e405 | | Load 0x2,0x5
0573 e402 | | Load 0x2,0x2
0574 00d8 | | Load_Top At_Offset_0
0575 e00d | | Load 0x0,0xd
0576 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0577 e21b | | Load 0x1,0x1b
0578 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0579 c5fd | | Store 0x2,-0x3
057a c5fc | | Store 0x2,-0x4
057b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
057c e403 | | Load 0x2,0x3
057d e404 | | Load 0x2,0x4
057e e402 | | Load 0x2,0x2
057f e21c | | Load 0x1,0x1c
0580 180e | | Execute Package,Field_Execute,Field_Number 0xe
0581 c404 | | Store 0x2,0x4
0582 c403 | | Store 0x2,0x3
0583 e403 | | Load 0x2,0x3
0584 e404 | | Load 0x2,0x4
0585 e21b | | Load 0x1,0x1b
0586 180d | | Execute Package,Field_Execute,Field_Number 0xd
0587 a5fd | | Store_Unchecked 0x2,-0x3
0588 e403 | | Load 0x2,0x3
0589 e404 | | Load 0x2,0x4
058a 027b | { | Execute Discrete,Greater_Equal
058b a5fc | | Store_Unchecked 0x2,-0x4
058c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
058d 00e1 | | Load_Encached Boolean_Cache
058e e403 | | Load 0x2,0x3
058f e404 | | Load 0x2,0x4
0590 e402 | | Load 0x2,0x2
0591 e00d | | Load 0x0,0xd
0592 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0593 e21c | | Load 0x1,0x1c
0594 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0595 c404 | | Store 0x2,0x4
0596 c403 | | Store 0x2,0x3
0597 c5fc | | Store 0x2,-0x4
0598 e5fc | | Load 0x2,-0x4
0599 6806 |h | Jump_Zero 0x5a0
059a e403 | | Load 0x2,0x3
059b e404 | | Load 0x2,0x4
059c e21b | | Load 0x1,0x1b
059d 180d | | Execute Package,Field_Execute,Field_Number 0xd
059e a5fd | | Store_Unchecked 0x2,-0x3
059f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
05a0 4800 |H | Short_Literal 0x0
05a1 a5fd | | Store_Unchecked 0x2,-0x3
05a2 4503 |E | Exit_Suprogram New_Top_Offset 0x3
05a3 4840 |H@ | Short_Literal 0x40
05a4 a5fd | | Store_Unchecked 0x2,-0x3
05a5 4801 |H | Short_Literal 0x1
05a6 a5fc | | Store_Unchecked 0x2,-0x4
05a7 4503 |E | Exit_Suprogram New_Top_Offset 0x3
05a8 00d9 | | Load_Top At_Offset_1
05a9 0120 | | Execute Any,Is_Value
05aa 6803 |h | Jump_Zero 0x5ae
05ab e00d | | Load 0x0,0xd
05ac 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
05ad 7801 |x | Jump 0x5af
05ae 00d9 | | Load_Top At_Offset_1
05af 00db | | Load_Top At_Offset_3
05b0 0120 | | Execute Any,Is_Value
05b1 6803 |h | Jump_Zero 0x5b5
05b2 e00d | | Load 0x0,0xd
05b3 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
05b4 7801 |x | Jump 0x5b6
05b5 00db | | Load_Top At_Offset_3
05b6 e402 | | Load 0x2,0x2
05b7 00d8 | | Load_Top At_Offset_0
05b8 e00c | | Load 0x0,0xc
05b9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05ba 8222 | " | Call 0x1,0x22
05bb c406 | | Store 0x2,0x6
05bc c407 | | Store 0x2,0x7
05bd 00e1 | | Load_Encached Boolean_Cache
05be e403 | | Load 0x2,0x3
05bf e404 | | Load 0x2,0x4
05c0 e406 | | Load 0x2,0x6
05c1 e407 | | Load 0x2,0x7
05c2 e21c | | Load 0x1,0x1c
05c3 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05c4 c404 | | Store 0x2,0x4
05c5 c403 | | Store 0x2,0x3
05c6 c5fc | | Store 0x2,-0x4
05c7 e5fc | | Load 0x2,-0x4
05c8 6806 |h | Jump_Zero 0x5cf
05c9 e403 | | Load 0x2,0x3
05ca e404 | | Load 0x2,0x4
05cb e21b | | Load 0x1,0x1b
05cc 180d | | Execute Package,Field_Execute,Field_Number 0xd
05cd a5fd | | Store_Unchecked 0x2,-0x3
05ce 4503 |E | Exit_Suprogram New_Top_Offset 0x3
05cf 4800 |H | Short_Literal 0x0
05d0 a5fd | | Store_Unchecked 0x2,-0x3
05d1 4503 |E | Exit_Suprogram New_Top_Offset 0x3
05d2 e402 | | Load 0x2,0x2
05d3 e00d | | Load 0x0,0xd
05d4 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
05d5 680c |h | Jump_Zero 0x5e2
05d6 e5fc | | Load 0x2,-0x4
05d7 00e3 | | Load_Encached Natural_Cache
05d8 e5fe | | Load 0x2,-0x2
05d9 e402 | | Load 0x2,0x2
05da e00d | | Load 0x0,0xd
05db 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
05dc e402 | | Load 0x2,0x2
05dd e21b | | Load 0x1,0x1b
05de 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05df c5fd | | Store 0x2,-0x3
05e0 c5fc | | Store 0x2,-0x4
05e1 4503 |E | Exit_Suprogram New_Top_Offset 0x3
05e2 4800 |H | Short_Literal 0x0
05e3 a5fd | | Store_Unchecked 0x2,-0x3
05e4 4800 |H | Short_Literal 0x0
05e5 a5fc | | Store_Unchecked 0x2,-0x4
05e6 4503 |E | Exit_Suprogram New_Top_Offset 0x3
05e7 e5fc | | Load 0x2,-0x4
05e8 00e3 | | Load_Encached Natural_Cache
05e9 e5fe | | Load 0x2,-0x2
05ea e402 | | Load 0x2,0x2
05eb e21b | | Load 0x1,0x1b
05ec 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05ed c5fd | | Store 0x2,-0x3
05ee c5fc | | Store 0x2,-0x4
05ef 4503 |E | Exit_Suprogram New_Top_Offset 0x3
05f0 e5fc | | Load 0x2,-0x4
05f1 00e3 | | Load_Encached Natural_Cache
05f2 e5fe | | Load 0x2,-0x2
05f3 e402 | | Load 0x2,0x2
05f4 e21b | | Load 0x1,0x1b
05f5 180f | | Execute Package,Field_Execute,Field_Number 0xf
05f6 c5fd | | Store 0x2,-0x3
05f7 c5fc | | Store 0x2,-0x4
05f8 4503 |E | Exit_Suprogram New_Top_Offset 0x3
05f9 e402 | | Load 0x2,0x2
05fa e00d | | Load 0x0,0xd
05fb 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59
05fc e00d | | Load 0x0,0xd
05fd 181e | | Execute Package,Field_Execute,Field_Number 0x1e
05fe c402 | | Store 0x2,0x2
05ff 780c |x | Jump 0x60c
0600 e5fe | | Load 0x2,-0x2
0601 6808 |h | Jump_Zero 0x60a
0602 4801 |H | Short_Literal 0x1
0603 e402 | | Load 0x2,0x2
0604 e00a | | Load 0x0,0xa
0605 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0606 e00c | | Load 0x0,0xc
0607 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
0608 c402 | | Store 0x2,0x2
0609 7802 |x | Jump 0x60c
060a e00f | | Load 0x0,0xf
060b 0257 | W | Execute Discrete,Raise
060c 00c9 | | Action Pop_Auxiliary_Loop
060d 7f3e | > | Jump 0x54c
060e 0000 0000 | | .XXX[0x2]
0610 ; --------------------------------------------------------------------------------------
0610 ; SUBPROGRAM
0610 ; --------------------------------------------------------------------------------------
0610 0615 | | .CONST 0x0615 ; Address of begin
0611 063f | ? | .CONST 0x063f ; Address of exception handler
0612 0003 | | .CONST 0x0003 ; Number of locals
0613 INIT_0610:
0613 00e1 | | Load_Encached Boolean_Cache
0614 00e3 | | Load_Encached Natural_Cache
0615 BODY_0610:
0615 e5ff | | Load 0x2,-0x1
0616 e00d | | Load 0x0,0xd
0617 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0618 460c |F | Jump_Case 0xd
0619 780e |x | Jump 0x628 ; case 0x0
061a 780d |x | Jump 0x628 ; case 0x1
061b 780c |x | Jump 0x628 ; case 0x2
061c 780b |x | Jump 0x628 ; case 0x3
061d 780a |x | Jump 0x628 ; case 0x4
061e 7809 |x | Jump 0x628 ; case 0x5
061f 7808 |x | Jump 0x628 ; case 0x6
0620 7807 |x | Jump 0x628 ; case 0x7
0621 7806 |x | Jump 0x628 ; case 0x8
0622 7805 |x | Jump 0x628 ; case 0x9
0623 7815 |x | Jump 0x639 ; case 0xa
0624 7814 |x | Jump 0x639 ; case 0xb
0625 7800 |x | Jump 0x626 ; case 0xc
0626 e215 | | Load 0x1,0x15
0627 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0628 00d9 | | Load_Top At_Offset_1
0629 00e3 | | Load_Encached Natural_Cache
062a e5fe | | Load 0x2,-0x2
062b e5ff | | Load 0x2,-0x1
062c 8229 | ) | Call 0x1,0x29
062d 005a | Z | Store_Top Discrete,At_Offset_2
062e 005a | Z | Store_Top Discrete,At_Offset_2
062f 00d9 | | Load_Top At_Offset_1
0630 6806 |h | Jump_Zero 0x637
0631 4820 |H | Short_Literal 0x20
0632 4800 |H | Short_Literal 0x0
0633 480a |H | Short_Literal 0xa
0634 00db | | Load_Top At_Offset_3
0635 8210 | | Call 0x1,0x10
0636 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0637 e216 | | Load 0x1,0x16
0638 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0639 e5fe | | Load 0x2,-0x2
063a 7002 |p | Jump_Nonzero 0x63d
063b e217 | | Load 0x1,0x17
063c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
063d e215 | | Load 0x1,0x15
063e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
063f TRAP_0610:
063f e00f | | Load 0x0,0xf
0640 010f | | Execute Exception,Equal
0641 6802 |h | Jump_Zero 0x644
0642 e217 | | Load 0x1,0x17
0643 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0644 0100 | | Execute Exception,Raise
0645 0000 0000 | | .XXX[0x3]
0647 0000 | |
0648 ; --------------------------------------------------------------------------------------
0648 ; SUBPROGRAM
0648 ; --------------------------------------------------------------------------------------
0648 0657 | W | .CONST 0x0657 ; Address of begin
0649 0004 | | .CONST 0x0004 ; Address of exception handler
064a 0004 | | .CONST 0x0004 ; Number of locals
064b INIT_0648:
064b 00e3 | | Load_Encached Natural_Cache
064c 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
064d e00c | | Load 0x0,0xc
064e 1b13 | | Execute Package,Field_Read,Field_Number 0x13
064f 02c7 | | Declare_Variable Any
0650 00d8 | | Load_Top At_Offset_0
0651 1c00 | | Execute_Immediate Run_Utility,0x0
0652 e00d | | Load 0x0,0xd
0653 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0654 02c7 | | Declare_Variable Any
0655 00d8 | | Load_Top At_Offset_0
0656 1c00 | | Execute_Immediate Run_Utility,0x0
0657 BODY_0648:
0657 e403 | | Load 0x2,0x3
0658 e00b | | Load 0x0,0xb
0659 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
065a c604 | | Store 0x3,0x4
065b 00d8 | | Load_Top At_Offset_0
065c e00d | | Load 0x0,0xd
065d 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
065e c603 | | Store 0x3,0x3
065f 00cf | | Action Mark_Auxiliary
0660 00db | | Load_Top At_Offset_3
0661 0aff | | Execute_Immediate Plus,-0x1
0662 4801 |H | Short_Literal 0x1
0663 0263 | c | Execute Discrete,Above_Bound
0664 7006 |p | Jump_Nonzero 0x66b
0665 e603 | | Load 0x3,0x3
0666 e00c | | Load 0x0,0xc
0667 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0668 c603 | | Store 0x3,0x3
0669 00c8 | | Action Pop_Auxiliary_Range
066a 3ffa |? | Loop_Increasing 0x665
066b 00ce | | Action Pop_Auxiliary
066c 00d9 | | Load_Top At_Offset_1
066d e00c | | Load 0x0,0xc
066e 1817 | | Execute Package,Field_Execute,Field_Number 0x17
066f c403 | | Store 0x2,0x3
0670 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0671 0000 0000 | | .BLANK 0000[0x7]
0678 ; --------------------------------------------------------------------------------------
0678 ; SUBPROGRAM
0678 ; --------------------------------------------------------------------------------------
0678 067b | { | .CONST 0x067b ; Address of begin
0679 0004 | | .CONST 0x0004 ; Address of exception handler
067a 0001 | | .CONST 0x0001 ; Number of locals
067b BODY_0678:
067b INIT_0678:
067b 00da | | Load_Top At_Offset_2
067c e00d | | Load 0x0,0xd
067d 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
067e 4606 |F | Jump_Case 0x7
067f 781b |x | Jump 0x69b ; case 0x0
0680 781a |x | Jump 0x69b ; case 0x1
0681 7804 |x | Jump 0x686 ; case 0x2
0682 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x3
0683 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x4
0684 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x5
0685 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x6
0686 e403 | | Load 0x2,0x3
0687 7004 |p | Jump_Nonzero 0x68c
0688 00da | | Load_Top At_Offset_2
0689 c5fb | | Store 0x2,-0x5
068a 4801 |H | Short_Literal 0x1
068b a403 | | Store_Unchecked 0x2,0x3
068c e402 | | Load 0x2,0x2
068d 700c |p | Jump_Nonzero 0x69a
068e 00da | | Load_Top At_Offset_2
068f e00d | | Load 0x0,0xd
0690 1842 | B | Execute Package,Field_Execute,Field_Number 0x42
0691 e00c | | Load 0x0,0xc
0692 180f | | Execute Package,Field_Execute,Field_Number 0xf
0693 7006 |p | Jump_Nonzero 0x69a
0694 00da | | Load_Top At_Offset_2
0695 e00d | | Load 0x0,0xd
0696 1842 | B | Execute Package,Field_Execute,Field_Number 0x42
0697 c5fc | | Store 0x2,-0x4
0698 4801 |H | Short_Literal 0x1
0699 a402 | | Store_Unchecked 0x2,0x2
069a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
069b e402 | | Load 0x2,0x2
069c 7004 |p | Jump_Nonzero 0x6a1
069d 00da | | Load_Top At_Offset_2
069e c5fc | | Store 0x2,-0x4
069f 4801 |H | Short_Literal 0x1
06a0 a402 | | Store_Unchecked 0x2,0x2
06a1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
06a2 0000 0000 | | .BLANK 0000[0x6]
06a8 ; --------------------------------------------------------------------------------------
06a8 ; SUBPROGRAM
06a8 ; --------------------------------------------------------------------------------------
06a8 06ab | | .CONST 0x06ab ; Address of begin
06a9 0004 | | .CONST 0x0004 ; Address of exception handler
06aa 0001 | | .CONST 0x0001 ; Number of locals
06ab BODY_06a8:
06ab INIT_06a8:
06ab 00da | | Load_Top At_Offset_2
06ac e00d | | Load 0x0,0xd
06ad 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
06ae 4606 |F | Jump_Case 0x7
06af 781b |x | Jump 0x6cb ; case 0x0
06b0 781a |x | Jump 0x6cb ; case 0x1
06b1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x2
06b2 7803 |x | Jump 0x6b6 ; case 0x3
06b3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x4
06b4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x5
06b5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x6
06b6 e403 | | Load 0x2,0x3
06b7 7004 |p | Jump_Nonzero 0x6bc
06b8 00da | | Load_Top At_Offset_2
06b9 c5fb | | Store 0x2,-0x5
06ba 4801 |H | Short_Literal 0x1
06bb a403 | | Store_Unchecked 0x2,0x3
06bc e402 | | Load 0x2,0x2
06bd 700c |p | Jump_Nonzero 0x6ca
06be 00da | | Load_Top At_Offset_2
06bf e00d | | Load 0x0,0xd
06c0 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
06c1 e00c | | Load 0x0,0xc
06c2 180f | | Execute Package,Field_Execute,Field_Number 0xf
06c3 7006 |p | Jump_Nonzero 0x6ca
06c4 00da | | Load_Top At_Offset_2
06c5 e00d | | Load 0x0,0xd
06c6 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
06c7 c5fc | | Store 0x2,-0x4
06c8 4801 |H | Short_Literal 0x1
06c9 a402 | | Store_Unchecked 0x2,0x2
06ca 4502 |E | Exit_Suprogram New_Top_Offset 0x2
06cb e402 | | Load 0x2,0x2
06cc 7004 |p | Jump_Nonzero 0x6d1
06cd 00da | | Load_Top At_Offset_2
06ce c5fc | | Store 0x2,-0x4
06cf 4801 |H | Short_Literal 0x1
06d0 a402 | | Store_Unchecked 0x2,0x2
06d1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
06d2 0000 0000 | | .BLANK 0000[0x6]
06d8 ; --------------------------------------------------------------------------------------
06d8 ; SUBPROGRAM
06d8 ; --------------------------------------------------------------------------------------
06d8 06e5 | | .CONST 0x06e5 ; Address of begin
06d9 0004 | | .CONST 0x0004 ; Address of exception handler
06da 0005 | | .CONST 0x0005 ; Number of locals
06db INIT_06d8:
06db e212 | | Load 0x1,0x12
06dc 1b11 | | Execute Package,Field_Read,Field_Number 0x11
06dd 00e2 | | Load_Encached Integer_Cache
06de 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
06df e402 | | Load 0x2,0x2
06e0 e00c | | Load 0x0,0xc
06e1 1817 | | Execute Package,Field_Execute,Field_Number 0x17
06e2 8226 | & | Call 0x1,0x26
06e3 e212 | | Load 0x1,0x12
06e4 1b11 | | Execute Package,Field_Read,Field_Number 0x11
06e5 BODY_06d8:
06e5 00cf | | Action Mark_Auxiliary
06e6 7819 |x | Jump 0x700
06e7 00db | | Load_Top At_Offset_3
06e8 0a01 | | Execute_Immediate Plus,0x1
06e9 c603 | | Store 0x3,0x3
06ea e402 | | Load 0x2,0x2
06eb e00c | | Load 0x0,0xc
06ec 1817 | | Execute Package,Field_Execute,Field_Number 0x17
06ed 8226 | & | Call 0x1,0x26
06ee 003a | : | Store_Top Access,At_Offset_2
06ef 00db | | Load_Top At_Offset_3
06f0 0d1a | | Execute_Immediate Less,0x1a
06f1 6809 |h | Jump_Zero 0x6fb
06f2 e602 | | Load 0x3,0x2
06f3 00da | | Load_Top At_Offset_2
06f4 e212 | | Load 0x1,0x12
06f5 1816 | | Execute Package,Field_Execute,Field_Number 0x16
06f6 e403 | | Load 0x2,0x3
06f7 01cc | | Execute Vector,Catenate
06f8 e212 | | Load 0x1,0x12
06f9 181d | | Execute Package,Field_Execute,Field_Number 0x1d
06fa c602 | | Store 0x3,0x2
06fb e402 | | Load 0x2,0x2
06fc e00c | | Load 0x0,0xc
06fd 1815 | | Execute Package,Field_Execute,Field_Number 0x15
06fe c402 | | Store 0x2,0x2
06ff 00c9 | | Action Pop_Auxiliary_Loop
0700 e402 | | Load 0x2,0x2
0701 e00c | | Load 0x0,0xc
0702 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0703 6fe3 |o | Jump_Zero 0x6e7
0704 00ce | | Action Pop_Auxiliary
0705 00da | | Load_Top At_Offset_2
0706 0d1a | | Execute_Immediate Less,0x1a
0707 680f |h | Jump_Zero 0x717
0708 00db | | Load_Top At_Offset_3
0709 e212 | | Load 0x1,0x12
070a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
070b 0afe | | Execute_Immediate Plus,-0x2
070c 00d8 | | Load_Top At_Offset_0
070d 00e3 | | Load_Encached Natural_Cache
070e 0260 | ` | Execute Discrete,In_Type
070f 7001 |p | Jump_Nonzero 0x711
0710 0801 | | Execute_Immediate Raise,0x1
0711 4801 |H | Short_Literal 0x1
0712 e602 | | Load 0x3,0x2
0713 e212 | | Load 0x1,0x12
0714 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0715 00cb | | Action Pop_Block_With_Result
0716 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0717 00d9 | | Load_Top At_Offset_1
0718 e212 | | Load 0x1,0x12
0719 1816 | | Execute Package,Field_Execute,Field_Number 0x16
071a 0092 072a | *| Action Push_String_Extended,0x72a ; " .. "
071c 01cc | | Execute Vector,Catenate
071d 00d9 | | Load_Top At_Offset_1
071e e212 | | Load 0x1,0x12
071f 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0720 01cc | | Execute Vector,Catenate
0721 00cb | | Action Pop_Block_With_Result
0722 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0723 ; --------------------------------------------------------------------------------------
0723 ; STRING TABLE
0723 ; --------------------------------------------------------------------------------------
0723 0016 | | .STRTAB 0x0016->0x072e ; "N/A"
0724 0017 | | .STRTAB 0x0017->0x072f ; "NOT STATIC"
0725 001f | | .STRTAB 0x001f->0x0734 ; "PRIVATE"
0726 0024 | $ | .STRTAB 0x0024->0x0738 ; "NIL"
0727 0025 | % | .STRTAB 0x0025->0x0739 ; "INTERNAL ERROR"
0728 0031 | 1 | .STRTAB 0x0031->0x0740 ; "UNKNOWN"
0729 0036 | 6 | .STRTAB 0x0036->0x0744 ; "64"
072a 0036 | 6 | .STRTAB 0x0036->0x0745 ; " .. "
072b 0038 | 8 | .STRTAB 0x0038->0x0747 ; "range"
072c 003b | ; | .STRTAB 0x003b->0x0749 ; ", "
072d 003b | ; | .STREND 0x003b->0x074a
072e 4e2f 414e |N/AN| .STRTAB_STRINGS
074b 0000 0000 | | .BLANK 0000[0x5]
0750 ; --------------------------------------------------------------------------------------
0750 ; Debug Table
0750 ; --------------------------------------------------------------------------------------
0750 0004 0012 | | .DEBUG4 0x0004,0x0012,0xfcdc,0x0000,0x0001,0x0000
0756 44bf e3cf |D | .XXX[0xaa]
0758 dd56 a635 | V 5|
075a a1bb cb97 | |
075c 671f 171e |g |
075e 2d59 bfa2 |-Y |
0760 13a2 869a | |
0762 d8ea 09b2 | |
0764 9699 b038 | 8|
0766 9f99 9048 | H|
0768 e9dc 0f8d | |
076a 60ce be9b |` |
076c 5c51 278a |\Q' |
076e 47a3 b31d |G |
0770 403f 25be |@?% |
0772 d29b be81 | |
0774 803a 63a1 | :c |
0776 5b9f 81c2 |[ |
0778 73a2 75da |s u |
077a f69a eac6 | |
077c e204 0f1c | |
077e 315f 3e6d |1_>m|
0780 779c 429d |w B |
0782 c310 0323 | #|
0784 1293 203e | >|
0786 a3a3 1a93 | |
0788 269b 1207 |& |
078a 2e9b d3a0 |. |
078c 795e 486c |y^Hl|
078e 2f20 dfad |/ |
0790 c427 3606 | '6 |
0792 9c26 bfa3 | & |
0794 5ce6 d7a2 |\ |
0796 db89 d438 | 8|
0798 5f22 e7a3 |_" |
079a 5ce0 c15c |\ \|
079c 6f23 be04 |o# |
079e 7720 d95c |w \|
07a0 f08b 07a3 | |
07a2 9699 e55b | [|
07a4 9237 d71f | 7 |
07a6 520f 9e34 |R 4|
07a8 156a 9453 | j S|
07aa aa37 2ba1 | 7+ |
07ac a5c8 e8ec | |
07ae 85c4 c720 | |
07b0 a5c7 ca37 | 7|
07b2 47a3 de9b |G |
07b4 4fa3 e69b |O |
07b6 57a2 dc77 |W w|
07b8 5fa0 ef21 |_ !|
07ba 7bb2 e313 |{ |
07bc 946c c88a | l |
07be be99 0b20 | |
07c0 169f 87a1 | |
07c2 1723 8fa0 | # |
07c4 7bd3 97a0 |{ |
07c6 51b5 78cf |Q x |
07c8 a7a0 c59f | |
07ca afa0 423b | B;|
07cc bdc1 c45b | [|
07ce 1e98 9551 | Q|
07d0 29c5 2cec |) , |
07d2 5a39 35c4 |Z95 |
07d4 1f21 6720 | !g |
07d6 e8f1 45c6 | E |
07d8 053b e3a0 | ; |
07da 80c9 8322 | "|
07dc b491 61c6 | a |
07de 1d5d 5fdc | ]_ |
07e0 03a4 1db6 | |
07e2 2d00 0fa4 |- |
07e4 20c8 17a6 | |
07e6 d23d b320 | = |
07e8 be9c c69c | |
07ea d471 2734 | q'4|
07ec ece8 a87c | ||
07ee 1e6c 43a7 | lC |
07f0 539c e638 |S 8|
07f2 ec66 e5bd | f |
07f4 4afc aa27 |J '|
07f6 21a1 0a9e |! |
07f8 83a2 0645 | E|
07fa 0e38 73a6 | 8s |
07fc 20ec 2b8e | + |
07fe 8320 83a6 | |