|
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: 5120 (0x1400)
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 0960 | ` | .CONST 0x0960 ; 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 0033 | 3 | .CONST 0x0033 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0013 | | .CONST 0x0013 ; Number of locals
000b INIT_0008:
000b e5fc | | Load 0x2,-0x4
000c 01dd | | Execute Vector,First
000d 00e4 | | Load_Encached Positive_Cache
000e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
000f e5fb | | Load 0x2,-0x5
0010 2404 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x4
0011 0007 | | Action Break_Optional
0012 e5fb | | Load 0x2,-0x5
0013 2405 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x5
0014 0007 | | Action Break_Optional
0015 029f 0303 | | Declare_Subprogram INIT_0300,For_Call
0017 029f 0313 | | Declare_Subprogram INIT_0310,For_Call
0019 029f 0343 | C| Declare_Subprogram INIT_0340,For_Call
001b 029f 036b | k| Declare_Subprogram INIT_0368,For_Call
001d 029f 0443 | C| Declare_Subprogram INIT_0440,For_Call
001f 029f 0493 | | Declare_Subprogram INIT_0490,For_Call
0021 029f 0513 | | Declare_Subprogram INIT_0510,For_Call
0023 029f 0523 | #| Declare_Subprogram INIT_0520,For_Call
0025 029f 05db | | Declare_Subprogram INIT_05d8,For_Call
0027 029f 05f3 | | Declare_Subprogram INIT_05f0,For_Call
0029 029f 0613 | | Declare_Subprogram INIT_0610,For_Call
002b 029f 065b | [| Declare_Subprogram INIT_0658,For_Call
002d 029f 066b | k| Declare_Subprogram INIT_0668,For_Call
002f 029f 067b | {| Declare_Subprogram INIT_0678,For_Call
0031 029f 082b | +| Declare_Subprogram INIT_0828,For_Call
0033 BODY_0008:
0033 00cf | | Action Mark_Auxiliary
0034 e5fc | | Load 0x2,-0x4
0035 01d9 | | Execute Vector,Reverse_Bounds
0036 0263 | c | Execute Discrete,Above_Bound
0037 00a5 02d9 | | Action Jump_Nonzero_Extended,0x2d9
0039 00d8 | | Load_Top At_Offset_0
003a e5fc | | Load 0x2,-0x4
003b 01d7 | | Execute Vector,Field_Read
003c 4820 |H | Short_Literal 0x20
003d 487e |H~ | Short_Literal 0x7e
003e 0262 | b | Execute Discrete,In_Range
003f 70c4 |p | Jump_Nonzero 0x104
0040 e5fb | | Load 0x2,-0x5
0041 2c10 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x10
0042 700f |p | Jump_Nonzero 0x52
0043 00d8 | | Load_Top At_Offset_0
0044 0a01 | | Execute_Immediate Plus,0x1
0045 00d8 | | Load_Top At_Offset_0
0046 00e3 | | Load_Encached Natural_Cache
0047 0260 | ` | Execute Discrete,In_Type
0048 7001 |p | Jump_Nonzero 0x4a
0049 0801 | | Execute_Immediate Raise,0x1
004a 00d9 | | Load_Top At_Offset_1
004b 0aff | | Execute_Immediate Plus,-0x1
004c 00d8 | | Load_Top At_Offset_0
004d 00e3 | | Load_Encached Natural_Cache
004e 0260 | ` | Execute Discrete,In_Type
004f 7001 |p | Jump_Nonzero 0x51
0050 0801 | | Execute_Immediate Raise,0x1
0051 840a | | Call 0x2,0xa
0052 00d8 | | Load_Top At_Offset_0
0053 e5fc | | Load 0x2,-0x4
0054 01d7 | | Execute Vector,Field_Read
0055 00d8 | | Load_Top At_Offset_0
0056 0c1c | | Execute_Immediate Greater_Equal,0x1c
0057 702b |p+ | Jump_Nonzero 0x83
0058 461b |F | Jump_Case 0x1c
0059 7a7c |z| | Jump 0x2d6 ; case 0x0
005a 78a6 |x | Jump 0x101 ; case 0x1
005b 78a5 |x | Jump 0x101 ; case 0x2
005c 78a4 |x | Jump 0x101 ; case 0x3
005d 78a3 |x | Jump 0x101 ; case 0x4
005e 7827 |x' | Jump 0x86 ; case 0x5
005f 78a1 |x | Jump 0x101 ; case 0x6
0060 785c |x\ | Jump 0xbd ; case 0x7
0061 7827 |x' | Jump 0x89 ; case 0x8
0062 7829 |x) | Jump 0x8c ; case 0x9
0063 7887 |x | Jump 0xeb ; case 0xa
0064 7886 |x | Jump 0xeb ; case 0xb
0065 7885 |x | Jump 0xeb ; case 0xc
0066 785a |xZ | Jump 0xc1 ; case 0xd
0067 7869 |xi | Jump 0xd1 ; case 0xe
0068 7874 |xt | Jump 0xdd ; case 0xf
0069 7897 |x | Jump 0x101 ; case 0x10
006a 7896 |x | Jump 0x101 ; case 0x11
006b 7895 |x | Jump 0x101 ; case 0x12
006c 7894 |x | Jump 0x101 ; case 0x13
006d 7893 |x | Jump 0x101 ; case 0x14
006e 7892 |x | Jump 0x101 ; case 0x15
006f 7891 |x | Jump 0x101 ; case 0x16
0070 7890 |x | Jump 0x101 ; case 0x17
0071 7877 |xw | Jump 0xe9 ; case 0x18
0072 788e |x | Jump 0x101 ; case 0x19
0073 7875 |xu | Jump 0xe9 ; case 0x1a
0074 7800 |x | Jump 0x75 ; case 0x1b
0075 4801 |H | Short_Literal 0x1
0076 e5fb | | Load 0x2,-0x5
0077 2810 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x10
0078 4800 |H | Short_Literal 0x0
0079 e5fb | | Load 0x2,-0x5
007a 2811 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x11
007b 00d8 | | Load_Top At_Offset_0
007c e5fc | | Load 0x2,-0x4
007d 01d7 | | Execute Vector,Field_Read
007e 4801 |H | Short_Literal 0x1
007f e5fb | | Load 0x2,-0x5
0080 2412 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x12
0081 01d6 | | Execute Vector,Field_Write
0082 7a53 |zS | Jump 0x2d6
0083 0f7f | | Execute_Immediate Equal,0x7f
0084 7251 |rQ | Jump_Nonzero 0x2d6
0085 787b |x{ | Jump 0x101
0086 e218 | | Load 0x1,0x18
0087 85fe | | Call 0x2,-0x2
0088 7a4d |zM | Jump 0x2d6
0089 4fff |O | Short_Literal -0x1
008a 8406 | | Call 0x2,0x6
008b 7a4a |zJ | Jump 0x2d6
008c 00cf | | Action Mark_Auxiliary
008d e404 | | Load 0x2,0x4
008e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
008f e403 | | Load 0x2,0x3
0090 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0091 0a01 | | Execute_Immediate Plus,0x1
0092 00d8 | | Load_Top At_Offset_0
0093 00e2 | | Load_Encached Integer_Cache
0094 0260 | ` | Execute Discrete,In_Type
0095 7001 |p | Jump_Nonzero 0x97
0096 0801 | | Execute_Immediate Raise,0x1
0097 0263 | c | Execute Discrete,Above_Bound
0098 7022 |p" | Jump_Nonzero 0xbb
0099 00d8 | | Load_Top At_Offset_0
009a e5fb | | Load 0x2,-0x5
009b 2514 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x14
009c 01d7 | | Execute Vector,Field_Read
009d 7005 |p | Jump_Nonzero 0xa3
009e 00d8 | | Load_Top At_Offset_0
009f e404 | | Load 0x2,0x4
00a0 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00a1 027f | | Execute Discrete,Equal
00a2 6816 |h | Jump_Zero 0xb9
00a3 e404 | | Load 0x2,0x4
00a4 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00a5 00d9 | | Load_Top At_Offset_1
00a6 00d8 | | Load_Top At_Offset_0
00a7 00e3 | | Load_Encached Natural_Cache
00a8 0260 | ` | Execute Discrete,In_Type
00a9 7001 |p | Jump_Nonzero 0xab
00aa 0801 | | Execute_Immediate Raise,0x1
00ab e403 | | Load 0x2,0x3
00ac 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00ad e5fb | | Load 0x2,-0x5
00ae 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
00af 0272 | r | Execute Discrete,Minus
00b0 0a01 | | Execute_Immediate Plus,0x1
00b1 00d8 | | Load_Top At_Offset_0
00b2 00e3 | | Load_Encached Natural_Cache
00b3 0260 | ` | Execute Discrete,In_Type
00b4 7001 |p | Jump_Nonzero 0xb6
00b5 0801 | | Execute_Immediate Raise,0x1
00b6 8409 | | Call 0x2,0x9
00b7 00d2 | | Pop_Control Pop_Count_2
00b8 7802 |x | Jump 0xbb
00b9 00c8 | | Action Pop_Auxiliary_Range
00ba 3fde |? | Loop_Increasing 0x99
00bb 00ce | | Action Pop_Auxiliary
00bc 7a19 |z | Jump 0x2d6
00bd e5fd | | Load 0x2,-0x3
00be e001 | | Load 0x0,0x1
00bf 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
00c0 7a15 |z | Jump 0x2d6
00c1 e404 | | Load 0x2,0x4
00c2 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00c3 4801 |H | Short_Literal 0x1
00c4 e403 | | Load 0x2,0x3
00c5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00c6 e5fb | | Load 0x2,-0x5
00c7 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
00c8 0272 | r | Execute Discrete,Minus
00c9 0a01 | | Execute_Immediate Plus,0x1
00ca 00d8 | | Load_Top At_Offset_0
00cb 00e3 | | Load_Encached Natural_Cache
00cc 0260 | ` | Execute Discrete,In_Type
00cd 7001 |p | Jump_Nonzero 0xcf
00ce 0801 | | Execute_Immediate Raise,0x1
00cf 8409 | | Call 0x2,0x9
00d0 7a05 |z | Jump 0x2d6
00d1 0092 0902 | | Action Push_String_Extended,0x902 ; "ascii.SO"
00d3 8405 | | Call 0x2,0x5
00d4 4801 |H | Short_Literal 0x1
00d5 e5fb | | Load 0x2,-0x5
00d6 280f |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xf
00d7 e5fb | | Load 0x2,-0x5
00d8 2c0e |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xe
00d9 e403 | | Load 0x2,0x3
00da 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
00db 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00dc 79f9 |y | Jump 0x2d6
00dd 0092 0903 | | Action Push_String_Extended,0x903 ; "ascii.SI"
00df 8405 | | Call 0x2,0x5
00e0 4800 |H | Short_Literal 0x0
00e1 e5fb | | Load 0x2,-0x5
00e2 280f |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xf
00e3 e5fb | | Load 0x2,-0x5
00e4 2c0d |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xd
00e5 e403 | | Load 0x2,0x3
00e6 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
00e7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00e8 79ed |y | Jump 0x2d6
00e9 8413 | | Call 0x2,0x13
00ea 79eb |y | Jump 0x2d6
00eb 4801 |H | Short_Literal 0x1
00ec 4801 |H | Short_Literal 0x1
00ed 8408 | | Call 0x2,0x8
00ee e5fb | | Load 0x2,-0x5
00ef 2c08 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8
00f0 69e5 |i | Jump_Zero 0x2d6
00f1 e404 | | Load 0x2,0x4
00f2 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00f3 4801 |H | Short_Literal 0x1
00f4 e403 | | Load 0x2,0x3
00f5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00f6 e5fb | | Load 0x2,-0x5
00f7 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
00f8 0272 | r | Execute Discrete,Minus
00f9 0a01 | | Execute_Immediate Plus,0x1
00fa 00d8 | | Load_Top At_Offset_0
00fb 00e3 | | Load_Encached Natural_Cache
00fc 0260 | ` | Execute Discrete,In_Type
00fd 7001 |p | Jump_Nonzero 0xff
00fe 0801 | | Execute_Immediate Raise,0x1
00ff 8409 | | Call 0x2,0x9
0100 79d5 |y | Jump 0x2d6
0101 00d8 | | Load_Top At_Offset_0
0102 a402 | | Store_Unchecked 0x2,0x2
0103 79d2 |y | Jump 0x2d6
0104 e5fb | | Load 0x2,-0x5
0105 2c10 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x10
0106 0c01 | | Execute_Immediate Greater_Equal,0x1
0107 69ce |i | Jump_Zero 0x2d6
0108 e5fb | | Load 0x2,-0x5
0109 2c10 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x10
010a 0a01 | | Execute_Immediate Plus,0x1
010b e5fb | | Load 0x2,-0x5
010c 2810 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x10
010d 00d8 | | Load_Top At_Offset_0
010e e5fc | | Load 0x2,-0x4
010f 01d7 | | Execute Vector,Field_Read
0110 e5fb | | Load 0x2,-0x5
0111 2c10 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x10
0112 e5fb | | Load 0x2,-0x5
0113 2412 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x12
0114 01d6 | | Execute Vector,Field_Write
0115 00d8 | | Load_Top At_Offset_0
0116 0a01 | | Execute_Immediate Plus,0x1
0117 c402 | | Store 0x2,0x2
0118 e5fb | | Load 0x2,-0x5
0119 2c11 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x11
011a 680c |h | Jump_Zero 0x127
011b e5fb | | Load 0x2,-0x5
011c 2c10 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x10
011d e5fb | | Load 0x2,-0x5
011e 2412 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x12
011f 01d7 | | Execute Vector,Field_Read
0120 4840 |H@ | Short_Literal 0x40
0121 487e |H~ | Short_Literal 0x7e
0122 0262 | b | Execute Discrete,In_Range
0123 69b2 |i | Jump_Zero 0x2d6
0124 8412 | | Call 0x2,0x12
0125 8413 | | Call 0x2,0x13
0126 79af |y | Jump 0x2d6
0127 4802 |H | Short_Literal 0x2
0128 e5fb | | Load 0x2,-0x5
0129 2412 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x12
012a 01d7 | | Execute Vector,Field_Read
012b 467f |F | Jump_Case 0x80
012c 787f |x | Jump 0x1ac ; case 0x0
012d 787e |x~ | Jump 0x1ac ; case 0x1
012e 787d |x} | Jump 0x1ac ; case 0x2
012f 787c |x| | Jump 0x1ac ; case 0x3
0130 787b |x{ | Jump 0x1ac ; case 0x4
0131 787a |xz | Jump 0x1ac ; case 0x5
0132 7879 |xy | Jump 0x1ac ; case 0x6
0133 7878 |xx | Jump 0x1ac ; case 0x7
0134 7877 |xw | Jump 0x1ac ; case 0x8
0135 7876 |xv | Jump 0x1ac ; case 0x9
0136 7875 |xu | Jump 0x1ac ; case 0xa
0137 7874 |xt | Jump 0x1ac ; case 0xb
0138 7873 |xs | Jump 0x1ac ; case 0xc
0139 7872 |xr | Jump 0x1ac ; case 0xd
013a 7871 |xq | Jump 0x1ac ; case 0xe
013b 7870 |xp | Jump 0x1ac ; case 0xf
013c 786f |xo | Jump 0x1ac ; case 0x10
013d 786e |xn | Jump 0x1ac ; case 0x11
013e 786d |xm | Jump 0x1ac ; case 0x12
013f 786c |xl | Jump 0x1ac ; case 0x13
0140 786b |xk | Jump 0x1ac ; case 0x14
0141 786a |xj | Jump 0x1ac ; case 0x15
0142 7869 |xi | Jump 0x1ac ; case 0x16
0143 7868 |xh | Jump 0x1ac ; case 0x17
0144 7867 |xg | Jump 0x1ac ; case 0x18
0145 7866 |xf | Jump 0x1ac ; case 0x19
0146 7865 |xe | Jump 0x1ac ; case 0x1a
0147 7864 |xd | Jump 0x1ac ; case 0x1b
0148 7863 |xc | Jump 0x1ac ; case 0x1c
0149 7862 |xb | Jump 0x1ac ; case 0x1d
014a 7861 |xa | Jump 0x1ac ; case 0x1e
014b 7860 |x` | Jump 0x1ac ; case 0x1f
014c 785f |x_ | Jump 0x1ac ; case 0x20
014d 785e |x^ | Jump 0x1ac ; case 0x21
014e 785d |x] | Jump 0x1ac ; case 0x22
014f 7906 |y | Jump 0x256 ; case 0x23
0150 785b |x[ | Jump 0x1ac ; case 0x24
0151 785a |xZ | Jump 0x1ac ; case 0x25
0152 7859 |xY | Jump 0x1ac ; case 0x26
0153 7858 |xX | Jump 0x1ac ; case 0x27
0154 792a |y* | Jump 0x27f ; case 0x28
0155 7953 |yS | Jump 0x2a9 ; case 0x29
0156 7855 |xU | Jump 0x1ac ; case 0x2a
0157 7854 |xT | Jump 0x1ac ; case 0x2b
0158 7853 |xS | Jump 0x1ac ; case 0x2c
0159 7852 |xR | Jump 0x1ac ; case 0x2d
015a 7851 |xQ | Jump 0x1ac ; case 0x2e
015b 7850 |xP | Jump 0x1ac ; case 0x2f
015c 784f |xO | Jump 0x1ac ; case 0x30
015d 784e |xN | Jump 0x1ac ; case 0x31
015e 784d |xM | Jump 0x1ac ; case 0x32
015f 784c |xL | Jump 0x1ac ; case 0x33
0160 784b |xK | Jump 0x1ac ; case 0x34
0161 784a |xJ | Jump 0x1ac ; case 0x35
0162 7849 |xI | Jump 0x1ac ; case 0x36
0163 78d8 |x | Jump 0x23c ; case 0x37
0164 78dc |x | Jump 0x241 ; case 0x38
0165 7846 |xF | Jump 0x1ac ; case 0x39
0166 7845 |xE | Jump 0x1ac ; case 0x3a
0167 7844 |xD | Jump 0x1ac ; case 0x3b
0168 78e8 |x | Jump 0x251 ; case 0x3c
0169 78dd |x | Jump 0x247 ; case 0x3d
016a 78e1 |x | Jump 0x24c ; case 0x3e
016b 7840 |x@ | Jump 0x1ac ; case 0x3f
016c 783f |x? | Jump 0x1ac ; case 0x40
016d 7844 |xD | Jump 0x1b2 ; case 0x41
016e 7848 |xH | Jump 0x1b7 ; case 0x42
016f 784c |xL | Jump 0x1bc ; case 0x43
0170 784f |xO | Jump 0x1c0 ; case 0x44
0171 7859 |xY | Jump 0x1cb ; case 0x45
0172 786c |xl | Jump 0x1df ; case 0x46
0173 7871 |xq | Jump 0x1e5 ; case 0x47
0174 7876 |xv | Jump 0x1eb ; case 0x48
0175 7890 |x | Jump 0x206 ; case 0x49
0176 7894 |x | Jump 0x20b ; case 0x4a
0177 7899 |x | Jump 0x211 ; case 0x4b
0178 7833 |x3 | Jump 0x1ac ; case 0x4c
0179 789d |x | Jump 0x217 ; case 0x4d
017a 7831 |x1 | Jump 0x1ac ; case 0x4e
017b 7830 |x0 | Jump 0x1ac ; case 0x4f
017c 782f |x/ | Jump 0x1ac ; case 0x50
017d 782e |x. | Jump 0x1ac ; case 0x51
017e 782d |x- | Jump 0x1ac ; case 0x52
017f 782c |x, | Jump 0x1ac ; case 0x53
0180 782b |x+ | Jump 0x1ac ; case 0x54
0181 782a |x* | Jump 0x1ac ; case 0x55
0182 7829 |x) | Jump 0x1ac ; case 0x56
0183 7828 |x( | Jump 0x1ac ; case 0x57
0184 7827 |x' | Jump 0x1ac ; case 0x58
0185 7896 |x | Jump 0x21c ; case 0x59
0186 78b2 |x | Jump 0x239 ; case 0x5a
0187 794b |yK | Jump 0x2d3 ; case 0x5b
0188 7823 |x# | Jump 0x1ac ; case 0x5c
0189 7822 |x" | Jump 0x1ac ; case 0x5d
018a 7821 |x! | Jump 0x1ac ; case 0x5e
018b 7820 |x | Jump 0x1ac ; case 0x5f
018c 781f |x | Jump 0x1ac ; case 0x60
018d 781e |x | Jump 0x1ac ; case 0x61
018e 781d |x | Jump 0x1ac ; case 0x62
018f 7820 |x | Jump 0x1b0 ; case 0x63
0190 781b |x | Jump 0x1ac ; case 0x64
0191 781a |x | Jump 0x1ac ; case 0x65
0192 7819 |x | Jump 0x1ac ; case 0x66
0193 7818 |x | Jump 0x1ac ; case 0x67
0194 7817 |x | Jump 0x1ac ; case 0x68
0195 7816 |x | Jump 0x1ac ; case 0x69
0196 7815 |x | Jump 0x1ac ; case 0x6a
0197 7814 |x | Jump 0x1ac ; case 0x6b
0198 7813 |x | Jump 0x1ac ; case 0x6c
0199 7812 |x | Jump 0x1ac ; case 0x6d
019a 7811 |x | Jump 0x1ac ; case 0x6e
019b 7810 |x | Jump 0x1ac ; case 0x6f
019c 780f |x | Jump 0x1ac ; case 0x70
019d 780e |x | Jump 0x1ac ; case 0x71
019e 780d |x | Jump 0x1ac ; case 0x72
019f 780c |x | Jump 0x1ac ; case 0x73
01a0 780b |x | Jump 0x1ac ; case 0x74
01a1 780a |x | Jump 0x1ac ; case 0x75
01a2 7809 |x | Jump 0x1ac ; case 0x76
01a3 7808 |x | Jump 0x1ac ; case 0x77
01a4 7807 |x | Jump 0x1ac ; case 0x78
01a5 7806 |x | Jump 0x1ac ; case 0x79
01a6 7805 |x | Jump 0x1ac ; case 0x7a
01a7 7804 |x | Jump 0x1ac ; case 0x7b
01a8 7803 |x | Jump 0x1ac ; case 0x7c
01a9 7802 |x | Jump 0x1ac ; case 0x7d
01aa 7801 |x | Jump 0x1ac ; case 0x7e
01ab 7800 |x | Jump 0x1ac ; case 0x7f
01ac 8413 | | Call 0x2,0x13
01ad 00d8 | | Load_Top At_Offset_0
01ae a402 | | Store_Unchecked 0x2,0x2
01af 7926 |y& | Jump 0x2d6
01b0 8413 | | Call 0x2,0x13
01b1 7924 |y$ | Jump 0x2d6
01b2 4800 |H | Short_Literal 0x0
01b3 4fff |O | Short_Literal -0x1
01b4 8408 | | Call 0x2,0x8
01b5 8413 | | Call 0x2,0x13
01b6 791f |y | Jump 0x2d6
01b7 4800 |H | Short_Literal 0x0
01b8 4801 |H | Short_Literal 0x1
01b9 8408 | | Call 0x2,0x8
01ba 8413 | | Call 0x2,0x13
01bb 791a |y | Jump 0x2d6
01bc 4801 |H | Short_Literal 0x1
01bd 8406 | | Call 0x2,0x6
01be 8413 | | Call 0x2,0x13
01bf 7916 |y | Jump 0x2d6
01c0 e5fb | | Load 0x2,-0x5
01c1 2c06 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x6
01c2 6803 |h | Jump_Zero 0x1c6
01c3 4fff |O | Short_Literal -0x1
01c4 8406 | | Call 0x2,0x6
01c5 7803 |x | Jump 0x1c9
01c6 4801 |H | Short_Literal 0x1
01c7 4801 |H | Short_Literal 0x1
01c8 8408 | | Call 0x2,0x8
01c9 8413 | | Call 0x2,0x13
01ca 790b |y | Jump 0x2d6
01cb 4801 |H | Short_Literal 0x1
01cc 4801 |H | Short_Literal 0x1
01cd 8408 | | Call 0x2,0x8
01ce e404 | | Load 0x2,0x4
01cf 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01d0 4801 |H | Short_Literal 0x1
01d1 e403 | | Load 0x2,0x3
01d2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01d3 e5fb | | Load 0x2,-0x5
01d4 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
01d5 0272 | r | Execute Discrete,Minus
01d6 0a01 | | Execute_Immediate Plus,0x1
01d7 00d8 | | Load_Top At_Offset_0
01d8 00e3 | | Load_Encached Natural_Cache
01d9 0260 | ` | Execute Discrete,In_Type
01da 7001 |p | Jump_Nonzero 0x1dc
01db 0801 | | Execute_Immediate Raise,0x1
01dc 8409 | | Call 0x2,0x9
01dd 8413 | | Call 0x2,0x13
01de 78f7 |x | Jump 0x2d6
01df 4801 |H | Short_Literal 0x1
01e0 e403 | | Load 0x2,0x3
01e1 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
01e2 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01e3 8413 | | Call 0x2,0x13
01e4 78f1 |x | Jump 0x2d6
01e5 4800 |H | Short_Literal 0x0
01e6 e403 | | Load 0x2,0x3
01e7 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
01e8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01e9 8413 | | Call 0x2,0x13
01ea 78eb |x | Jump 0x2d6
01eb e5fb | | Load 0x2,-0x5
01ec 2c06 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x6
01ed 6806 |h | Jump_Zero 0x1f4
01ee e404 | | Load 0x2,0x4
01ef 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01f0 4801 |H | Short_Literal 0x1
01f1 4801 |H | Short_Literal 0x1
01f2 8409 | | Call 0x2,0x9
01f3 7810 |x | Jump 0x204
01f4 e5fb | | Load 0x2,-0x5
01f5 00d8 | | Load_Top At_Offset_0
01f6 2514 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x14
01f7 00d8 | | Load_Top At_Offset_0
01f8 e403 | | Load 0x2,0x3
01f9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01fa e404 | | Load 0x2,0x4
01fb 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01fc 822e | . | Call 0x1,0x2e
01fd 4801 |H | Short_Literal 0x1
01fe 00d9 | | Load_Top At_Offset_1
01ff 00db | | Load_Top At_Offset_3
0200 01d6 | | Execute Vector,Field_Write
0201 00d2 | | Pop_Control Pop_Count_2
0202 00d0 | | Action Swap_Control
0203 2914 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x14
0204 8413 | | Call 0x2,0x13
0205 78d0 |x | Jump 0x2d6
0206 4801 |H | Short_Literal 0x1
0207 4fff |O | Short_Literal -0x1
0208 8408 | | Call 0x2,0x8
0209 8413 | | Call 0x2,0x13
020a 78cb |x | Jump 0x2d6
020b 4820 |H | Short_Literal 0x20
020c 4802 |H | Short_Literal 0x2
020d 4801 |H | Short_Literal 0x1
020e 840c | | Call 0x2,0xc
020f 8413 | | Call 0x2,0x13
0210 78c5 |x | Jump 0x2d6
0211 4820 |H | Short_Literal 0x20
0212 4802 |H | Short_Literal 0x2
0213 4800 |H | Short_Literal 0x0
0214 840c | | Call 0x2,0xc
0215 8413 | | Call 0x2,0x13
0216 78bf |x | Jump 0x2d6
0217 4801 |H | Short_Literal 0x1
0218 4fff |O | Short_Literal -0x1
0219 8408 | | Call 0x2,0x8
021a 8413 | | Call 0x2,0x13
021b 78ba |x | Jump 0x2d6
021c e5fb | | Load 0x2,-0x5
021d 2c10 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x10
021e 0c04 | | Execute_Immediate Greater_Equal,0x4
021f 68b6 |h | Jump_Zero 0x2d6
0220 e404 | | Load 0x2,0x4
0221 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0222 4804 |H | Short_Literal 0x4
0223 e5fb | | Load 0x2,-0x5
0224 2412 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x12
0225 01d7 | | Execute Vector,Field_Read
0226 0ae1 | | Execute_Immediate Plus,-0x1f
0227 00d8 | | Load_Top At_Offset_0
0228 00e3 | | Load_Encached Natural_Cache
0229 0260 | ` | Execute Discrete,In_Type
022a 7001 |p | Jump_Nonzero 0x22c
022b 0801 | | Execute_Immediate Raise,0x1
022c 4803 |H | Short_Literal 0x3
022d e5fb | | Load 0x2,-0x5
022e 2412 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x12
022f 01d7 | | Execute Vector,Field_Read
0230 0ae1 | | Execute_Immediate Plus,-0x1f
0231 00d8 | | Load_Top At_Offset_0
0232 00e3 | | Load_Encached Natural_Cache
0233 0260 | ` | Execute Discrete,In_Type
0234 7001 |p | Jump_Nonzero 0x236
0235 0801 | | Execute_Immediate Raise,0x1
0236 8409 | | Call 0x2,0x9
0237 8413 | | Call 0x2,0x13
0238 789d |x | Jump 0x2d6
0239 840b | | Call 0x2,0xb
023a 8413 | | Call 0x2,0x13
023b 789a |x | Jump 0x2d6
023c e403 | | Load 0x2,0x3
023d e5fb | | Load 0x2,-0x5
023e 280c |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xc
023f 8413 | | Call 0x2,0x13
0240 7895 |x | Jump 0x2d6
0241 e5fb | | Load 0x2,-0x5
0242 240c |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0xc
0243 e403 | | Load 0x2,0x3
0244 017d | } | Execute Record,Structure_Write
0245 8413 | | Call 0x2,0x13
0246 788f |x | Jump 0x2d6
0247 4801 |H | Short_Literal 0x1
0248 e5fb | | Load 0x2,-0x5
0249 280a |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xa
024a 8413 | | Call 0x2,0x13
024b 788a |x | Jump 0x2d6
024c 4800 |H | Short_Literal 0x0
024d e5fb | | Load 0x2,-0x5
024e 280a |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xa
024f 8413 | | Call 0x2,0x13
0250 7885 |x | Jump 0x2d6
0251 4800 |H | Short_Literal 0x0
0252 e5fb | | Load 0x2,-0x5
0253 2806 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x6
0254 8413 | | Call 0x2,0x13
0255 7880 |x | Jump 0x2d6
0256 e5fb | | Load 0x2,-0x5
0257 2c10 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x10
0258 0c03 | | Execute_Immediate Greater_Equal,0x3
0259 687c |h| | Jump_Zero 0x2d6
025a 4803 |H | Short_Literal 0x3
025b e5fb | | Load 0x2,-0x5
025c 2412 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x12
025d 01d7 | | Execute Vector,Field_Read
025e 00d8 | | Load_Top At_Offset_0
025f 4833 |H3 | Short_Literal 0x33
0260 4838 |H8 | Short_Literal 0x38
0261 0262 | b | Execute Discrete,In_Range
0262 680d |h | Jump_Zero 0x270
0263 0acd | | Execute_Immediate Plus,-0x33
0264 4605 |F | Jump_Case 0x6
0265 7815 |x | Jump 0x27b ; case 0x0
0266 780b |x | Jump 0x272 ; case 0x1
0267 780d |x | Jump 0x275 ; case 0x2
0268 780f |x | Jump 0x278 ; case 0x3
0269 7813 |x | Jump 0x27d ; case 0x4
026a 7800 |x | Jump 0x26b ; case 0x5
026b 4845 |HE | Short_Literal 0x45
026c 4801 |H | Short_Literal 0x1
026d 4801 |H | Short_Literal 0x1
026e 840c | | Call 0x2,0xc
026f 780d |x | Jump 0x27d
0270 00d1 | | Pop_Control Pop_Count_1
0271 780b |x | Jump 0x27d
0272 4803 |H | Short_Literal 0x3
0273 840d | | Call 0x2,0xd
0274 7808 |x | Jump 0x27d
0275 4800 |H | Short_Literal 0x0
0276 840d | | Call 0x2,0xd
0277 7805 |x | Jump 0x27d
0278 4801 |H | Short_Literal 0x1
0279 840d | | Call 0x2,0xd
027a 7802 |x | Jump 0x27d
027b 4802 |H | Short_Literal 0x2
027c 840d | | Call 0x2,0xd
027d 8413 | | Call 0x2,0x13
027e 7857 |xW | Jump 0x2d6
027f e5fb | | Load 0x2,-0x5
0280 2c10 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x10
0281 0c03 | | Execute_Immediate Greater_Equal,0x3
0282 6853 |hS | Jump_Zero 0x2d6
0283 4803 |H | Short_Literal 0x3
0284 e5fb | | Load 0x2,-0x5
0285 2412 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x12
0286 01d7 | | Execute Vector,Field_Read
0287 00d8 | | Load_Top At_Offset_0
0288 4830 |H0 | Short_Literal 0x30
0289 4842 |HB | Short_Literal 0x42
028a 0262 | b | Execute Discrete,In_Range
028b 6809 |h | Jump_Zero 0x295
028c 0b30 | 0 | Execute_Immediate Case_Compare,0x30
028d 7009 |p | Jump_Nonzero 0x297
028e 0b32 | 2 | Execute_Immediate Case_Compare,0x32
028f 7007 |p | Jump_Nonzero 0x297
0290 4833 |H3 | Short_Literal 0x33
0291 4840 |H@ | Short_Literal 0x40
0292 0262 | b | Execute Discrete,In_Range
0293 700b |p | Jump_Nonzero 0x29f
0294 7807 |x | Jump 0x29c
0295 00d1 | | Pop_Control Pop_Count_1
0296 7808 |x | Jump 0x29f
0297 00d1 | | Pop_Control Pop_Count_1
0298 4801 |H | Short_Literal 0x1
0299 e5fb | | Load 0x2,-0x5
029a 280d |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xd
029b 7803 |x | Jump 0x29f
029c 4800 |H | Short_Literal 0x0
029d e5fb | | Load 0x2,-0x5
029e 280d |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xd
029f 8413 | | Call 0x2,0x13
02a0 e5fb | | Load 0x2,-0x5
02a1 2c0f |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xf
02a2 7033 |p3 | Jump_Nonzero 0x2d6
02a3 e5fb | | Load 0x2,-0x5
02a4 2c0d |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xd
02a5 e403 | | Load 0x2,0x3
02a6 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
02a7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02a8 782d |x- | Jump 0x2d6
02a9 e5fb | | Load 0x2,-0x5
02aa 2c10 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x10
02ab 0c03 | | Execute_Immediate Greater_Equal,0x3
02ac 6829 |h) | Jump_Zero 0x2d6
02ad 4803 |H | Short_Literal 0x3
02ae e5fb | | Load 0x2,-0x5
02af 2412 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x12
02b0 01d7 | | Execute Vector,Field_Read
02b1 00d8 | | Load_Top At_Offset_0
02b2 4830 |H0 | Short_Literal 0x30
02b3 4842 |HB | Short_Literal 0x42
02b4 0262 | b | Execute Discrete,In_Range
02b5 6809 |h | Jump_Zero 0x2bf
02b6 0b30 | 0 | Execute_Immediate Case_Compare,0x30
02b7 7009 |p | Jump_Nonzero 0x2c1
02b8 0b32 | 2 | Execute_Immediate Case_Compare,0x32
02b9 7007 |p | Jump_Nonzero 0x2c1
02ba 4833 |H3 | Short_Literal 0x33
02bb 4840 |H@ | Short_Literal 0x40
02bc 0262 | b | Execute Discrete,In_Range
02bd 700b |p | Jump_Nonzero 0x2c9
02be 7807 |x | Jump 0x2c6
02bf 00d1 | | Pop_Control Pop_Count_1
02c0 7808 |x | Jump 0x2c9
02c1 00d1 | | Pop_Control Pop_Count_1
02c2 4801 |H | Short_Literal 0x1
02c3 e5fb | | Load 0x2,-0x5
02c4 280e |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xe
02c5 7803 |x | Jump 0x2c9
02c6 4800 |H | Short_Literal 0x0
02c7 e5fb | | Load 0x2,-0x5
02c8 280e |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xe
02c9 8413 | | Call 0x2,0x13
02ca e5fb | | Load 0x2,-0x5
02cb 2c0f |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xf
02cc 6809 |h | Jump_Zero 0x2d6
02cd e5fb | | Load 0x2,-0x5
02ce 2c0e |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xe
02cf e403 | | Load 0x2,0x3
02d0 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
02d1 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02d2 7803 |x | Jump 0x2d6
02d3 4801 |H | Short_Literal 0x1
02d4 e5fb | | Load 0x2,-0x5
02d5 2811 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x11
02d6 00c8 | | Action Pop_Auxiliary_Range
02d7 00a4 0039 | 9| Action Loop_Increasing_Extended,0x39
02d9 00ce | | Action Pop_Auxiliary
02da e5fc | | Load 0x2,-0x4
02db 01dc | | Execute Vector,Last
02dc 00d8 | | Load_Top At_Offset_0
02dd 00e3 | | Load_Encached Natural_Cache
02de 0260 | ` | Execute Discrete,In_Type
02df 7001 |p | Jump_Nonzero 0x2e1
02e0 0801 | | Execute_Immediate Raise,0x1
02e1 e5fc | | Load 0x2,-0x4
02e2 01dc | | Execute Vector,Last
02e3 00d8 | | Load_Top At_Offset_0
02e4 00e3 | | Load_Encached Natural_Cache
02e5 0260 | ` | Execute Discrete,In_Type
02e6 7001 |p | Jump_Nonzero 0x2e8
02e7 0801 | | Execute_Immediate Raise,0x1
02e8 840a | | Call 0x2,0xa
02e9 4800 |H | Short_Literal 0x0
02ea e403 | | Load 0x2,0x3
02eb 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02ec e404 | | Load 0x2,0x4
02ed 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02ee 822e | . | Call 0x1,0x2e
02ef 00d8 | | Load_Top At_Offset_0
02f0 00e4 | | Load_Encached Positive_Cache
02f1 0260 | ` | Execute Discrete,In_Type
02f2 7001 |p | Jump_Nonzero 0x2f4
02f3 0801 | | Execute_Immediate Raise,0x1
02f4 e403 | | Load 0x2,0x3
02f5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02f6 e5fd | | Load 0x2,-0x3
02f7 e001 | | Load 0x0,0x1
02f8 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
02f9 4505 |E | Exit_Suprogram New_Top_Offset 0x5
02fa 0000 0000 | | .BLANK 0000[0x6]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0303 | | .CONST 0x0303 ; Address of begin
0301 0004 | | .CONST 0x0004 ; Address of exception handler
0302 0001 | | .CONST 0x0001 ; Number of locals
0303 BODY_0300:
0303 INIT_0300:
0303 e008 | | Load 0x0,0x8
0304 180e | | Execute Package,Field_Execute,Field_Number 0xe
0305 4801 |H | Short_Literal 0x1
0306 e7ff | | Load 0x3,-0x1
0307 e009 | | Load 0x0,0x9
0308 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0309 4502 |E | Exit_Suprogram New_Top_Offset 0x2
030a 0000 0000 | | .BLANK 0000[0x6]
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0313 | | .CONST 0x0313 ; Address of begin
0311 0004 | | .CONST 0x0004 ; Address of exception handler
0312 0001 | | .CONST 0x0001 ; Number of locals
0313 BODY_0310:
0313 INIT_0310:
0313 e403 | | Load 0x2,0x3
0314 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0315 e404 | | Load 0x2,0x4
0316 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0317 822e | . | Call 0x1,0x2e
0318 e403 | | Load 0x2,0x3
0319 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
031a e403 | | Load 0x2,0x3
031b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
031c 00db | | Load_Top At_Offset_3
031d 0273 | s | Execute Discrete,Plus
031e 00d8 | | Load_Top At_Offset_0
031f 00e2 | | Load_Encached Integer_Cache
0320 0260 | ` | Execute Discrete,In_Type
0321 7001 |p | Jump_Nonzero 0x323
0322 0801 | | Execute_Immediate Raise,0x1
0323 e404 | | Load 0x2,0x4
0324 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0325 822e | . | Call 0x1,0x2e
0326 4801 |H | Short_Literal 0x1
0327 822f | / | Call 0x1,0x2f
0328 e403 | | Load 0x2,0x3
0329 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
032a 0092 0904 | | Action Push_String_Extended,0x904 ; "move "
032c 00db | | Load_Top At_Offset_3
032d 00e0 | | Load_Encached Standard_Cache
032e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
032f 01cc | | Execute Vector,Catenate
0330 0092 0905 | | Action Push_String_Extended,0x905 ; " to column"
0332 01cc | | Execute Vector,Catenate
0333 e403 | | Load 0x2,0x3
0334 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0335 00e0 | | Load_Encached Standard_Cache
0336 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0337 01cc | | Execute Vector,Catenate
0338 8405 | | Call 0x2,0x5
0339 4502 |E | Exit_Suprogram New_Top_Offset 0x2
033a 0000 0000 | | .BLANK 0000[0x6]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0343 | C | .CONST 0x0343 ; Address of begin
0341 0004 | | .CONST 0x0004 ; Address of exception handler
0342 0001 | | .CONST 0x0001 ; Number of locals
0343 BODY_0340:
0343 INIT_0340:
0343 e5fb | | Load 0x2,-0x5
0344 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0345 00db | | Load_Top At_Offset_3
0346 0273 | s | Execute Discrete,Plus
0347 e5fb | | Load 0x2,-0x5
0348 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0349 e403 | | Load 0x2,0x3
034a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
034b 00db | | Load_Top At_Offset_3
034c 0273 | s | Execute Discrete,Plus
034d e403 | | Load 0x2,0x3
034e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
034f e404 | | Load 0x2,0x4
0350 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0351 00db | | Load_Top At_Offset_3
0352 0273 | s | Execute Discrete,Plus
0353 e404 | | Load 0x2,0x4
0354 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0355 e404 | | Load 0x2,0x4
0356 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0357 00db | | Load_Top At_Offset_3
0358 0273 | s | Execute Discrete,Plus
0359 e404 | | Load 0x2,0x4
035a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
035b e5fb | | Load 0x2,-0x5
035c 240c |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0xc
035d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
035e 00db | | Load_Top At_Offset_3
035f 0273 | s | Execute Discrete,Plus
0360 e5fb | | Load 0x2,-0x5
0361 240c |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0xc
0362 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0363 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0364 0000 0000 | | .BLANK 0000[0x4]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 0374 | t | .CONST 0x0374 ; Address of begin
0369 0004 | | .CONST 0x0004 ; Address of exception handler
036a 0004 | | .CONST 0x0004 ; Number of locals
036b INIT_0368:
036b e403 | | Load 0x2,0x3
036c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
036d 00db | | Load_Top At_Offset_3
036e 0273 | s | Execute Discrete,Plus
036f 00e2 | | Load_Encached Integer_Cache
0370 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0371 00e3 | | Load_Encached Natural_Cache
0372 029f 0843 | C| Declare_Subprogram INIT_0840,For_Call
0374 BODY_0368:
0374 e403 | | Load 0x2,0x3
0375 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0376 e404 | | Load 0x2,0x4
0377 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0378 822e | . | Call 0x1,0x2e
0379 e403 | | Load 0x2,0x3
037a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
037b 00da | | Load_Top At_Offset_2
037c e404 | | Load 0x2,0x4
037d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
037e 027c | | | Execute Discrete,Less
037f 6845 |hE | Jump_Zero 0x3c5
0380 e7fe | | Load 0x3,-0x2
0381 683e |h> | Jump_Zero 0x3c0
0382 e404 | | Load 0x2,0x4
0383 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0384 00db | | Load_Top At_Offset_3
0385 0272 | r | Execute Discrete,Minus
0386 005a | Z | Store_Top Discrete,At_Offset_2
0387 0092 0906 | | Action Push_String_Extended,0x906 ; "down"
0389 8604 | | Call 0x3,0x4
038a 00d9 | | Load_Top At_Offset_1
038b e404 | | Load 0x2,0x4
038c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
038d e404 | | Load 0x2,0x4
038e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
038f 0272 | r | Execute Discrete,Minus
0390 0a01 | | Execute_Immediate Plus,0x1
0391 00d8 | | Load_Top At_Offset_0
0392 00e2 | | Load_Encached Integer_Cache
0393 0260 | ` | Execute Discrete,In_Type
0394 7001 |p | Jump_Nonzero 0x396
0395 0801 | | Execute_Immediate Raise,0x1
0396 822e | . | Call 0x1,0x2e
0397 005a | Z | Store_Top Discrete,At_Offset_2
0398 4800 |H | Short_Literal 0x0
0399 4801 |H | Short_Literal 0x1
039a e404 | | Load 0x2,0x4
039b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
039c e603 | | Load 0x3,0x3
039d 0272 | r | Execute Discrete,Minus
039e 0a01 | | Execute_Immediate Plus,0x1
039f 00d8 | | Load_Top At_Offset_0
03a0 00e4 | | Load_Encached Positive_Cache
03a1 0260 | ` | Execute Discrete,In_Type
03a2 7001 |p | Jump_Nonzero 0x3a4
03a3 0801 | | Execute_Immediate Raise,0x1
03a4 e5fd | | Load 0x2,-0x3
03a5 e001 | | Load 0x0,0x1
03a6 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
03a7 00d9 | | Load_Top At_Offset_1
03a8 e5fd | | Load 0x2,-0x3
03a9 e001 | | Load 0x0,0x1
03aa 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
03ab e404 | | Load 0x2,0x4
03ac 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03ad e5fb | | Load 0x2,-0x5
03ae 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
03af 0272 | r | Execute Discrete,Minus
03b0 0a01 | | Execute_Immediate Plus,0x1
03b1 00d8 | | Load_Top At_Offset_0
03b2 00e3 | | Load_Encached Natural_Cache
03b3 0260 | ` | Execute Discrete,In_Type
03b4 7001 |p | Jump_Nonzero 0x3b6
03b5 0801 | | Execute_Immediate Raise,0x1
03b6 4801 |H | Short_Literal 0x1
03b7 e404 | | Load 0x2,0x4
03b8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03b9 e5fd | | Load 0x2,-0x3
03ba e001 | | Load 0x0,0x1
03bb 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
03bc 00d9 | | Load_Top At_Offset_1
03bd e5fd | | Load 0x2,-0x3
03be e001 | | Load 0x0,0x1
03bf 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
03c0 e404 | | Load 0x2,0x4
03c1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03c2 e403 | | Load 0x2,0x3
03c3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
03c4 7865 |xe | Jump 0x42a
03c5 00da | | Load_Top At_Offset_2
03c6 e404 | | Load 0x2,0x4
03c7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03c8 027d | } | Execute Discrete,Greater
03c9 685d |h] | Jump_Zero 0x427
03ca e7fe | | Load 0x3,-0x2
03cb 6856 |hV | Jump_Zero 0x422
03cc 00da | | Load_Top At_Offset_2
03cd e404 | | Load 0x2,0x4
03ce 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03cf 0272 | r | Execute Discrete,Minus
03d0 005a | Z | Store_Top Discrete,At_Offset_2
03d1 0092 0907 | | Action Push_String_Extended,0x907 ; "up"
03d3 8604 | | Call 0x3,0x4
03d4 00d9 | | Load_Top At_Offset_1
03d5 e404 | | Load 0x2,0x4
03d6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03d7 e404 | | Load 0x2,0x4
03d8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03d9 0272 | r | Execute Discrete,Minus
03da 0a01 | | Execute_Immediate Plus,0x1
03db 00d8 | | Load_Top At_Offset_0
03dc 00e2 | | Load_Encached Integer_Cache
03dd 0260 | ` | Execute Discrete,In_Type
03de 7001 |p | Jump_Nonzero 0x3e0
03df 0801 | | Execute_Immediate Raise,0x1
03e0 822e | . | Call 0x1,0x2e
03e1 005a | Z | Store_Top Discrete,At_Offset_2
03e2 e404 | | Load 0x2,0x4
03e3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03e4 e5fb | | Load 0x2,-0x5
03e5 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
03e6 027f | | Execute Discrete,Equal
03e7 6812 |h | Jump_Zero 0x3fa
03e8 e404 | | Load 0x2,0x4
03e9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03ea e404 | | Load 0x2,0x4
03eb 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03ec e5fb | | Load 0x2,-0x5
03ed 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
03ee 0273 | s | Execute Discrete,Plus
03ef 0aff | | Execute_Immediate Plus,-0x1
03f0 027f | | Execute Discrete,Equal
03f1 6808 |h | Jump_Zero 0x3fa
03f2 00d9 | | Load_Top At_Offset_1
03f3 00d8 | | Load_Top At_Offset_0
03f4 00e4 | | Load_Encached Positive_Cache
03f5 0260 | ` | Execute Discrete,In_Type
03f6 7001 |p | Jump_Nonzero 0x3f8
03f7 0801 | | Execute_Immediate Raise,0x1
03f8 8407 | | Call 0x2,0x7
03f9 7828 |x( | Jump 0x422
03fa e404 | | Load 0x2,0x4
03fb 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03fc e5fb | | Load 0x2,-0x5
03fd 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
03fe 0272 | r | Execute Discrete,Minus
03ff 0a01 | | Execute_Immediate Plus,0x1
0400 00d8 | | Load_Top At_Offset_0
0401 00e3 | | Load_Encached Natural_Cache
0402 0260 | ` | Execute Discrete,In_Type
0403 7001 |p | Jump_Nonzero 0x405
0404 0801 | | Execute_Immediate Raise,0x1
0405 4801 |H | Short_Literal 0x1
0406 e404 | | Load 0x2,0x4
0407 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0408 e5fd | | Load 0x2,-0x3
0409 e001 | | Load 0x0,0x1
040a 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
040b 00d9 | | Load_Top At_Offset_1
040c e5fd | | Load 0x2,-0x3
040d e001 | | Load 0x0,0x1
040e 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
040f 4800 |H | Short_Literal 0x0
0410 4801 |H | Short_Literal 0x1
0411 e404 | | Load 0x2,0x4
0412 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0413 e603 | | Load 0x3,0x3
0414 0272 | r | Execute Discrete,Minus
0415 0a01 | | Execute_Immediate Plus,0x1
0416 00d8 | | Load_Top At_Offset_0
0417 00e4 | | Load_Encached Positive_Cache
0418 0260 | ` | Execute Discrete,In_Type
0419 7001 |p | Jump_Nonzero 0x41b
041a 0801 | | Execute_Immediate Raise,0x1
041b e5fd | | Load 0x2,-0x3
041c e001 | | Load 0x0,0x1
041d 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
041e 00d9 | | Load_Top At_Offset_1
041f e5fd | | Load 0x2,-0x3
0420 e001 | | Load 0x0,0x1
0421 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0422 e404 | | Load 0x2,0x4
0423 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0424 e403 | | Load 0x2,0x3
0425 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0426 7803 |x | Jump 0x42a
0427 00da | | Load_Top At_Offset_2
0428 e403 | | Load 0x2,0x3
0429 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
042a 0092 0904 | | Action Push_String_Extended,0x904 ; "move "
042c e7ff | | Load 0x3,-0x1
042d 00e0 | | Load_Encached Standard_Cache
042e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
042f 01cc | | Execute Vector,Catenate
0430 0092 0908 | | Action Push_String_Extended,0x908 ; " to line"
0432 01cc | | Execute Vector,Catenate
0433 e403 | | Load 0x2,0x3
0434 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0435 00e0 | | Load_Encached Standard_Cache
0436 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0437 01cc | | Execute Vector,Catenate
0438 8405 | | Call 0x2,0x5
0439 4503 |E | Exit_Suprogram New_Top_Offset 0x3
043a 0000 0000 | | .BLANK 0000[0x6]
0440 ; --------------------------------------------------------------------------------------
0440 ; SUBPROGRAM
0440 ; --------------------------------------------------------------------------------------
0440 044d | M | .CONST 0x044d ; Address of begin
0441 0004 | | .CONST 0x0004 ; Address of exception handler
0442 0003 | | .CONST 0x0003 ; Number of locals
0443 INIT_0440:
0443 00da | | Load_Top At_Offset_2
0444 4801 |H | Short_Literal 0x1
0445 822f | / | Call 0x1,0x2f
0446 e220 | | Load 0x1,0x20
0447 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0448 e7fe | | Load 0x3,-0x2
0449 4801 |H | Short_Literal 0x1
044a 822f | / | Call 0x1,0x2f
044b e221 | ! | Load 0x1,0x21
044c 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
044d BODY_0440:
044d e7fd | | Load 0x3,-0x3
044e 6810 |h | Jump_Zero 0x45f
044f e404 | | Load 0x2,0x4
0450 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0451 e404 | | Load 0x2,0x4
0452 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0453 00db | | Load_Top At_Offset_3
0454 0273 | s | Execute Discrete,Plus
0455 0aff | | Execute_Immediate Plus,-0x1
0456 00d8 | | Load_Top At_Offset_0
0457 00e2 | | Load_Encached Integer_Cache
0458 0260 | ` | Execute Discrete,In_Type
0459 7001 |p | Jump_Nonzero 0x45b
045a 0801 | | Execute_Immediate Raise,0x1
045b 822e | . | Call 0x1,0x2e
045c e403 | | Load 0x2,0x3
045d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
045e 7807 |x | Jump 0x466
045f e5fb | | Load 0x2,-0x5
0460 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0461 00da | | Load_Top At_Offset_2
0462 0273 | s | Execute Discrete,Plus
0463 0aff | | Execute_Immediate Plus,-0x1
0464 e403 | | Load 0x2,0x3
0465 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0466 e404 | | Load 0x2,0x4
0467 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0468 00d9 | | Load_Top At_Offset_1
0469 822e | . | Call 0x1,0x2e
046a e403 | | Load 0x2,0x3
046b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
046c 0092 0909 | | Action Push_String_Extended,0x909 ; "move_to line"
046e e403 | | Load 0x2,0x3
046f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0470 00e0 | | Load_Encached Standard_Cache
0471 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0472 01cc | | Execute Vector,Catenate
0473 0092 090a | | Action Push_String_Extended,0x90a ; ", column"
0475 01cc | | Execute Vector,Catenate
0476 e403 | | Load 0x2,0x3
0477 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0478 00e0 | | Load_Encached Standard_Cache
0479 1818 | | Execute Package,Field_Execute,Field_Number 0x18
047a 01cc | | Execute Vector,Catenate
047b 8405 | | Call 0x2,0x5
047c e403 | | Load 0x2,0x3
047d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
047e e5fb | | Load 0x2,-0x5
047f 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0480 027f | | Execute Discrete,Equal
0481 680b |h | Jump_Zero 0x48d
0482 4800 |H | Short_Literal 0x0
0483 4801 |H | Short_Literal 0x1
0484 e403 | | Load 0x2,0x3
0485 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0486 e5fd | | Load 0x2,-0x3
0487 e001 | | Load 0x0,0x1
0488 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0489 4800 |H | Short_Literal 0x0
048a e00a | | Load 0x0,0xa
048b 1b14 | | Execute Package,Field_Read,Field_Number 0x14
048c 180d | | Execute Package,Field_Execute,Field_Number 0xd
048d 4504 |E | Exit_Suprogram New_Top_Offset 0x4
048e 0000 0000 | | .XXX[0x2]
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 0494 | | .CONST 0x0494 ; Address of begin
0491 0004 | | .CONST 0x0004 ; Address of exception handler
0492 0002 | | .CONST 0x0002 ; Number of locals
0493 INIT_0490:
0493 00e3 | | Load_Encached Natural_Cache
0494 BODY_0490:
0494 00db | | Load_Top At_Offset_3
0495 e402 | | Load 0x2,0x2
0496 027b | { | Execute Discrete,Greater_Equal
0497 680a |h | Jump_Zero 0x4a2
0498 4822 |H" | Short_Literal 0x22
0499 0092 090b | | Action Push_String_Extended,0x90b ; "display \x22"
049b e402 | | Load 0x2,0x2
049c e7ff | | Load 0x3,-0x1
049d e5fc | | Load 0x2,-0x4
049e 01cf | | Execute Vector,Slice_Read
049f 01cc | | Execute Vector,Catenate
04a0 01cb | | Execute Vector,Append
04a1 8405 | | Call 0x2,0x5
04a2 00cf | | Action Mark_Auxiliary
04a3 785f |x_ | Jump 0x503
04a4 e7ff | | Load 0x3,-0x1
04a5 e402 | | Load 0x2,0x2
04a6 0272 | r | Execute Discrete,Minus
04a7 0a01 | | Execute_Immediate Plus,0x1
04a8 005a | Z | Store_Top Discrete,At_Offset_2
04a9 e403 | | Load 0x2,0x3
04aa 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04ab e404 | | Load 0x2,0x4
04ac 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04ad 027d | } | Execute Discrete,Greater
04ae 681e |h | Jump_Zero 0x4cd
04af e5fb | | Load 0x2,-0x5
04b0 2c07 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x7
04b1 6813 |h | Jump_Zero 0x4c5
04b2 4801 |H | Short_Literal 0x1
04b3 4801 |H | Short_Literal 0x1
04b4 8408 | | Call 0x2,0x8
04b5 e404 | | Load 0x2,0x4
04b6 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
04b7 4801 |H | Short_Literal 0x1
04b8 e403 | | Load 0x2,0x3
04b9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04ba e5fb | | Load 0x2,-0x5
04bb 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
04bc 0272 | r | Execute Discrete,Minus
04bd 0a01 | | Execute_Immediate Plus,0x1
04be 00d8 | | Load_Top At_Offset_0
04bf 00e3 | | Load_Encached Natural_Cache
04c0 0260 | ` | Execute Discrete,In_Type
04c1 7001 |p | Jump_Nonzero 0x4c3
04c2 0801 | | Execute_Immediate Raise,0x1
04c3 8409 | | Call 0x2,0x9
04c4 7808 |x | Jump 0x4cd
04c5 e404 | | Load 0x2,0x4
04c6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04c7 e403 | | Load 0x2,0x3
04c8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
04c9 e7ff | | Load 0x3,-0x1
04ca c402 | | Store 0x2,0x2
04cb 4801 |H | Short_Literal 0x1
04cc 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
04cd 00d9 | | Load_Top At_Offset_1
04ce e404 | | Load 0x2,0x4
04cf 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04d0 e403 | | Load 0x2,0x3
04d1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04d2 0272 | r | Execute Discrete,Minus
04d3 0a01 | | Execute_Immediate Plus,0x1
04d4 027d | } | Execute Discrete,Greater
04d5 6807 |h | Jump_Zero 0x4dd
04d6 e404 | | Load 0x2,0x4
04d7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04d8 e403 | | Load 0x2,0x3
04d9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04da 0272 | r | Execute Discrete,Minus
04db 0a01 | | Execute_Immediate Plus,0x1
04dc 005a | Z | Store_Top Discrete,At_Offset_2
04dd 4800 |H | Short_Literal 0x0
04de e403 | | Load 0x2,0x3
04df 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04e0 e403 | | Load 0x2,0x3
04e1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04e2 e5fd | | Load 0x2,-0x3
04e3 e001 | | Load 0x0,0x1
04e4 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
04e5 e403 | | Load 0x2,0x3
04e6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04e7 e403 | | Load 0x2,0x3
04e8 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
04e9 e402 | | Load 0x2,0x2
04ea 00d8 | | Load_Top At_Offset_0
04eb e602 | | Load 0x3,0x2
04ec 0273 | s | Execute Discrete,Plus
04ed 0aff | | Execute_Immediate Plus,-0x1
04ee 00d8 | | Load_Top At_Offset_0
04ef 00e2 | | Load_Encached Integer_Cache
04f0 0260 | ` | Execute Discrete,In_Type
04f1 7001 |p | Jump_Nonzero 0x4f3
04f2 0801 | | Execute_Immediate Raise,0x1
04f3 e5fc | | Load 0x2,-0x4
04f4 01cf | | Execute Vector,Slice_Read
04f5 e5fd | | Load 0x2,-0x3
04f6 e001 | | Load 0x0,0x1
04f7 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
04f8 e402 | | Load 0x2,0x2
04f9 00da | | Load_Top At_Offset_2
04fa 0273 | s | Execute Discrete,Plus
04fb c402 | | Store 0x2,0x2
04fc e403 | | Load 0x2,0x3
04fd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04fe 00da | | Load_Top At_Offset_2
04ff 0273 | s | Execute Discrete,Plus
0500 e403 | | Load 0x2,0x3
0501 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0502 00c9 | | Action Pop_Auxiliary_Loop
0503 e7ff | | Load 0x3,-0x1
0504 e402 | | Load 0x2,0x2
0505 027b | { | Execute Discrete,Greater_Equal
0506 779d |w | Jump_Nonzero 0x4a4
0507 00ce | | Action Pop_Auxiliary
0508 e7fe | | Load 0x3,-0x2
0509 c402 | | Store 0x2,0x2
050a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
050b 0000 0000 | | .BLANK 0000[0x5]
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 e5fb | | Load 0x2,-0x5
0514 2c06 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x6
0515 6804 |h | Jump_Zero 0x51a
0516 0092 090c | | Action Push_String_Extended,0x90c ; "\x1b/Z"
0518 85fe | | Call 0x2,-0x2
0519 4501 |E | Exit_Suprogram New_Top_Offset 0x1
051a e219 | | Load 0x1,0x19
051b 85fe | | Call 0x2,-0x2
051c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
051d 0000 0000 | | .XXX[0x3]
051f 0000 | |
0520 ; --------------------------------------------------------------------------------------
0520 ; SUBPROGRAM
0520 ; --------------------------------------------------------------------------------------
0520 0539 | 9 | .CONST 0x0539 ; Address of begin
0521 0004 | | .CONST 0x0004 ; Address of exception handler
0522 0003 | | .CONST 0x0003 ; Number of locals
0523 INIT_0520:
0523 4801 |H | Short_Literal 0x1
0524 e404 | | Load 0x2,0x4
0525 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0526 00e9 | | Load_Encached String_Cache
0527 035b | [ | Declare_Type Array,Constrained
0528 0337 | 7 | Declare_Variable Array
0529 00d8 | | Load_Top At_Offset_0
052a 0335 | 5 | Declare_Variable Array,Duplicate
052b 00cd | | Action Spare6_Action
052c 00d9 | | Load_Top At_Offset_1
052d 01d9 | | Execute Vector,Reverse_Bounds
052e 0263 | c | Execute Discrete,Above_Bound
052f 7005 |p | Jump_Nonzero 0x535
0530 e7fd | | Load 0x3,-0x3
0531 00d9 | | Load_Top At_Offset_1
0532 e603 | | Load 0x3,0x3
0533 01d6 | | Execute Vector,Field_Write
0534 3ffb |? | Loop_Increasing 0x530
0535 00d9 | | Load_Top At_Offset_1
0536 01d4 | | Execute Vector,Structure_Write
0537 029f 0863 | c| Declare_Subprogram INIT_0860,For_Call
0539 BODY_0520:
0539 e403 | | Load 0x2,0x3
053a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
053b e404 | | Load 0x2,0x4
053c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
053d 822e | . | Call 0x1,0x2e
053e e403 | | Load 0x2,0x3
053f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0540 e7fe | | Load 0x3,-0x2
0541 4602 |F | Jump_Case 0x3
0542 783b |x; | Jump 0x57e ; case 0x0
0543 785e |x^ | Jump 0x5a2 ; case 0x1
0544 7800 |x | Jump 0x545 ; case 0x2
0545 4800 |H | Short_Literal 0x0
0546 e403 | | Load 0x2,0x3
0547 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0548 e403 | | Load 0x2,0x3
0549 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
054a e5fd | | Load 0x2,-0x3
054b e001 | | Load 0x0,0x1
054c 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
054d e403 | | Load 0x2,0x3
054e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
054f e001 | | Load 0x0,0x1
0550 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0551 e403 | | Load 0x2,0x3
0552 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0553 e602 | | Load 0x3,0x2
0554 01dc | | Execute Vector,Last
0555 e602 | | Load 0x3,0x2
0556 01cf | | Execute Vector,Slice_Read
0557 e5fd | | Load 0x2,-0x3
0558 e001 | | Load 0x0,0x1
0559 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
055a e7ff | | Load 0x3,-0x1
055b 0f01 | | Execute_Immediate Equal,0x1
055c 6820 |h | Jump_Zero 0x57d
055d 00cf | | Action Mark_Auxiliary
055e e5fb | | Load 0x2,-0x5
055f 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0560 e5fb | | Load 0x2,-0x5
0561 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0562 0273 | s | Execute Discrete,Plus
0563 0aff | | Execute_Immediate Plus,-0x1
0564 00d8 | | Load_Top At_Offset_0
0565 00e2 | | Load_Encached Integer_Cache
0566 0260 | ` | Execute Discrete,In_Type
0567 7001 |p | Jump_Nonzero 0x569
0568 0801 | | Execute_Immediate Raise,0x1
0569 e403 | | Load 0x2,0x3
056a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
056b 0a01 | | Execute_Immediate Plus,0x1
056c 00d8 | | Load_Top At_Offset_0
056d 00e2 | | Load_Encached Integer_Cache
056e 0260 | ` | Execute Discrete,In_Type
056f 7001 |p | Jump_Nonzero 0x571
0570 0801 | | Execute_Immediate Raise,0x1
0571 0263 | c | Execute Discrete,Above_Bound
0572 7009 |p | Jump_Nonzero 0x57c
0573 00d8 | | Load_Top At_Offset_0
0574 00d8 | | Load_Top At_Offset_0
0575 00e4 | | Load_Encached Positive_Cache
0576 0260 | ` | Execute Discrete,In_Type
0577 7001 |p | Jump_Nonzero 0x579
0578 0801 | | Execute_Immediate Raise,0x1
0579 8603 | | Call 0x3,0x3
057a 00c8 | | Action Pop_Auxiliary_Range
057b 3ff7 |? | Loop_Increasing 0x573
057c 00ce | | Action Pop_Auxiliary
057d 4504 |E | Exit_Suprogram New_Top_Offset 0x4
057e e7ff | | Load 0x3,-0x1
057f 0f01 | | Execute_Immediate Equal,0x1
0580 680d |h | Jump_Zero 0x58e
0581 00cf | | Action Mark_Auxiliary
0582 e403 | | Load 0x2,0x3
0583 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0584 0aff | | Execute_Immediate Plus,-0x1
0585 e5fb | | Load 0x2,-0x5
0586 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0587 0263 | c | Execute Discrete,Above_Bound
0588 7004 |p | Jump_Nonzero 0x58d
0589 00d8 | | Load_Top At_Offset_0
058a 8603 | | Call 0x3,0x3
058b 00c8 | | Action Pop_Auxiliary_Range
058c 3ffc |? | Loop_Increasing 0x589
058d 00ce | | Action Pop_Auxiliary
058e 4800 |H | Short_Literal 0x0
058f 4801 |H | Short_Literal 0x1
0590 e403 | | Load 0x2,0x3
0591 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0592 e5fd | | Load 0x2,-0x3
0593 e001 | | Load 0x0,0x1
0594 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0595 e403 | | Load 0x2,0x3
0596 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0597 e001 | | Load 0x0,0x1
0598 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0599 4801 |H | Short_Literal 0x1
059a e403 | | Load 0x2,0x3
059b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
059c e602 | | Load 0x3,0x2
059d 01cf | | Execute Vector,Slice_Read
059e e5fd | | Load 0x2,-0x3
059f e001 | | Load 0x0,0x1
05a0 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
05a1 4504 |E | Exit_Suprogram New_Top_Offset 0x4
05a2 e7ff | | Load 0x3,-0x1
05a3 0f01 | | Execute_Immediate Equal,0x1
05a4 7004 |p | Jump_Nonzero 0x5a9
05a5 e403 | | Load 0x2,0x3
05a6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05a7 8603 | | Call 0x3,0x3
05a8 4504 |E | Exit_Suprogram New_Top_Offset 0x4
05a9 e5fb | | Load 0x2,-0x5
05aa 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
05ab 8407 | | Call 0x2,0x7
05ac e403 | | Load 0x2,0x3
05ad 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05ae e5fb | | Load 0x2,-0x5
05af 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
05b0 0272 | r | Execute Discrete,Minus
05b1 0a01 | | Execute_Immediate Plus,0x1
05b2 00d8 | | Load_Top At_Offset_0
05b3 00e3 | | Load_Encached Natural_Cache
05b4 0260 | ` | Execute Discrete,In_Type
05b5 7001 |p | Jump_Nonzero 0x5b7
05b6 0801 | | Execute_Immediate Raise,0x1
05b7 e403 | | Load 0x2,0x3
05b8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
05b9 e403 | | Load 0x2,0x3
05ba 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05bb e5fd | | Load 0x2,-0x3
05bc e001 | | Load 0x0,0x1
05bd 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
05be e5fb | | Load 0x2,-0x5
05bf 00d8 | | Load_Top At_Offset_0
05c0 2513 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x13
05c1 00d8 | | Load_Top At_Offset_0
05c2 0335 | 5 | Declare_Variable Array,Duplicate
05c3 00cd | | Action Spare6_Action
05c4 00d9 | | Load_Top At_Offset_1
05c5 01d9 | | Execute Vector,Reverse_Bounds
05c6 0263 | c | Execute Discrete,Above_Bound
05c7 7005 |p | Jump_Nonzero 0x5cd
05c8 4800 |H | Short_Literal 0x0
05c9 00d9 | | Load_Top At_Offset_1
05ca e606 | | Load 0x3,0x6
05cb 01d6 | | Execute Vector,Field_Write
05cc 3ffb |? | Loop_Increasing 0x5c8
05cd 00cd | | Action Spare6_Action
05ce 00d9 | | Load_Top At_Offset_1
05cf 2913 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x13
05d0 00d1 | | Pop_Control Pop_Count_1
05d1 4504 |E | Exit_Suprogram New_Top_Offset 0x4
05d2 0000 0000 | | .BLANK 0000[0x6]
05d8 ; --------------------------------------------------------------------------------------
05d8 ; SUBPROGRAM
05d8 ; --------------------------------------------------------------------------------------
05d8 05db | | .CONST 0x05db ; Address of begin
05d9 0004 | | .CONST 0x0004 ; Address of exception handler
05da 0001 | | .CONST 0x0001 ; Number of locals
05db BODY_05d8:
05db INIT_05d8:
05db e5fb | | Load 0x2,-0x5
05dc 00d8 | | Load_Top At_Offset_0
05dd 2513 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x13
05de 00d8 | | Load_Top At_Offset_0
05df e403 | | Load 0x2,0x3
05e0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05e1 e5fb | | Load 0x2,-0x5
05e2 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
05e3 0272 | r | Execute Discrete,Minus
05e4 0a01 | | Execute_Immediate Plus,0x1
05e5 e7ff | | Load 0x3,-0x1
05e6 00d9 | | Load_Top At_Offset_1
05e7 00db | | Load_Top At_Offset_3
05e8 01d6 | | Execute Vector,Field_Write
05e9 00d2 | | Pop_Control Pop_Count_2
05ea 00d0 | | Action Swap_Control
05eb 2913 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x13
05ec 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05ed 0000 0000 | | .XXX[0x3]
05ef 0000 | |
05f0 ; --------------------------------------------------------------------------------------
05f0 ; SUBPROGRAM
05f0 ; --------------------------------------------------------------------------------------
05f0 05f5 | | .CONST 0x05f5 ; Address of begin
05f1 0004 | | .CONST 0x0004 ; Address of exception handler
05f2 0002 | | .CONST 0x0002 ; Number of locals
05f3 INIT_05f0:
05f3 00e4 | | Load_Encached Positive_Cache
05f4 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
05f5 BODY_05f0:
05f5 00cf | | Action Mark_Auxiliary
05f6 e5fb | | Load 0x2,-0x5
05f7 2c10 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x10
05f8 0aff | | Execute_Immediate Plus,-0x1
05f9 4803 |H | Short_Literal 0x3
05fa 0263 | c | Execute Discrete,Above_Bound
05fb 700b |p | Jump_Nonzero 0x607
05fc 00d8 | | Load_Top At_Offset_0
05fd e5fb | | Load 0x2,-0x5
05fe 2412 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x12
05ff 01d7 | | Execute Vector,Field_Read
0600 0f3b | ; | Execute_Immediate Equal,0x3b
0601 6803 |h | Jump_Zero 0x605
0602 00db | | Load_Top At_Offset_3
0603 0a01 | | Execute_Immediate Plus,0x1
0604 c602 | | Store 0x3,0x2
0605 00c8 | | Action Pop_Auxiliary_Range
0606 3ff5 |? | Loop_Increasing 0x5fc
0607 00ce | | Action Pop_Auxiliary
0608 00d8 | | Load_Top At_Offset_0
0609 00ca | | Action Exit_Nullary_Function
060a 0000 0000 | | .BLANK 0000[0x6]
0610 ; --------------------------------------------------------------------------------------
0610 ; SUBPROGRAM
0610 ; --------------------------------------------------------------------------------------
0610 0615 | | .CONST 0x0615 ; Address of begin
0611 0004 | | .CONST 0x0004 ; Address of exception handler
0612 0002 | | .CONST 0x0002 ; Number of locals
0613 INIT_0610:
0613 00e4 | | Load_Encached Positive_Cache
0614 0603 | | Execute_Immediate Set_Value_Unchecked,0x3
0615 BODY_0610:
0615 00cf | | Action Mark_Auxiliary
0616 e7ff | | Load 0x3,-0x1
0617 0aff | | Execute_Immediate Plus,-0x1
0618 4801 |H | Short_Literal 0x1
0619 0263 | c | Execute Discrete,Above_Bound
061a 7019 |p | Jump_Nonzero 0x634
061b 00cf | | Action Mark_Auxiliary
061c 780b |x | Jump 0x628
061d e602 | | Load 0x3,0x2
061e 0a01 | | Execute_Immediate Plus,0x1
061f c602 | | Store 0x3,0x2
0620 e602 | | Load 0x3,0x2
0621 e5fb | | Load 0x2,-0x5
0622 2c10 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x10
0623 027b | { | Execute Discrete,Greater_Equal
0624 6802 |h | Jump_Zero 0x627
0625 00ea | | Load_Encached Null_String_Cache
0626 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0627 00c9 | | Action Pop_Auxiliary_Loop
0628 e602 | | Load 0x3,0x2
0629 e5fb | | Load 0x2,-0x5
062a 2412 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x12
062b 01d7 | | Execute Vector,Field_Read
062c 0e3b | ; | Execute_Immediate Not_Equal,0x3b
062d 77ef |w | Jump_Nonzero 0x61d
062e 00ce | | Action Pop_Auxiliary
062f 00db | | Load_Top At_Offset_3
0630 0a01 | | Execute_Immediate Plus,0x1
0631 c602 | | Store 0x3,0x2
0632 00c8 | | Action Pop_Auxiliary_Range
0633 3fe7 |? | Loop_Increasing 0x61b
0634 00c9 | | Action Pop_Auxiliary_Loop
0635 e5fb | | Load 0x2,-0x5
0636 2c10 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x10
0637 0aff | | Execute_Immediate Plus,-0x1
0638 00da | | Load_Top At_Offset_2
0639 0263 | c | Execute Discrete,Above_Bound
063a 7011 |p | Jump_Nonzero 0x64c
063b 00d8 | | Load_Top At_Offset_0
063c e5fb | | Load 0x2,-0x5
063d 2412 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x12
063e 01d7 | | Execute Vector,Field_Read
063f 0f3b | ; | Execute_Immediate Equal,0x3b
0640 6809 |h | Jump_Zero 0x64a
0641 00db | | Load_Top At_Offset_3
0642 00d9 | | Load_Top At_Offset_1
0643 0aff | | Execute_Immediate Plus,-0x1
0644 e5fb | | Load 0x2,-0x5
0645 2412 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x12
0646 01cf | | Execute Vector,Slice_Read
0647 0335 | 5 | Declare_Variable Array,Duplicate
0648 00cd | | Action Spare6_Action
0649 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
064a 00c8 | | Action Pop_Auxiliary_Range
064b 3fef |? | Loop_Increasing 0x63b
064c 00ce | | Action Pop_Auxiliary
064d 00d8 | | Load_Top At_Offset_0
064e e5fb | | Load 0x2,-0x5
064f 2c10 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x10
0650 0aff | | Execute_Immediate Plus,-0x1
0651 e5fb | | Load 0x2,-0x5
0652 2412 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x12
0653 01cf | | Execute Vector,Slice_Read
0654 0335 | 5 | Declare_Variable Array,Duplicate
0655 00cd | | Action Spare6_Action
0656 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0657 0000 | | .XXX[0x1]
0658 ; --------------------------------------------------------------------------------------
0658 ; SUBPROGRAM
0658 ; --------------------------------------------------------------------------------------
0658 065f | _ | .CONST 0x065f ; Address of begin
0659 0004 | | .CONST 0x0004 ; Address of exception handler
065a 0003 | | .CONST 0x0003 ; Number of locals
065b INIT_0658:
065b 00da | | Load_Top At_Offset_2
065c 840f | | Call 0x2,0xf
065d 029f 088b | | Declare_Subprogram INIT_0888,For_Call
065f BODY_0658:
065f 00d9 | | Load_Top At_Offset_1
0660 01db | | Execute Vector,Length
0661 7002 |p | Jump_Nonzero 0x664
0662 e7fe | | Load 0x3,-0x2
0663 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0664 8603 | | Call 0x3,0x3
0665 0831 | 1 | Execute_Immediate Raise,0x31
0666 0000 0000 | | .XXX[0x2]
0668 ; --------------------------------------------------------------------------------------
0668 ; SUBPROGRAM
0668 ; --------------------------------------------------------------------------------------
0668 066d | m | .CONST 0x066d ; Address of begin
0669 0004 | | .CONST 0x0004 ; Address of exception handler
066a 0002 | | .CONST 0x0002 ; Number of locals
066b INIT_0668:
066b 029f 08a3 | | Declare_Subprogram INIT_08a0,For_Call
066d BODY_0668:
066d 00cf | | Action Mark_Auxiliary
066e 840e | | Call 0x2,0xe
066f 4801 |H | Short_Literal 0x1
0670 0263 | c | Execute Discrete,Above_Bound
0671 7003 |p | Jump_Nonzero 0x675
0672 8602 | | Call 0x3,0x2
0673 00c8 | | Action Pop_Auxiliary_Range
0674 3ffd |? | Loop_Increasing 0x672
0675 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0676 0000 0000 | | .XXX[0x2]
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 e5fb | | Load 0x2,-0x5
067c 2c10 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x10
067d e5fb | | Load 0x2,-0x5
067e 2412 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x12
067f 01d7 | | Execute Vector,Field_Read
0680 00d8 | | Load_Top At_Offset_0
0681 0d41 | A | Execute_Immediate Less,0x41
0682 7041 |pA | Jump_Nonzero 0x6c4
0683 0abf | | Execute_Immediate Plus,-0x41
0684 463e |F> | Jump_Case 0x3f
0685 7992 |y | Jump 0x818 ; case 0x0
0686 784e |xN | Jump 0x6d5 ; case 0x1
0687 783e |x> | Jump 0x6c6 ; case 0x2
0688 786f |xo | Jump 0x6f8 ; case 0x3
0689 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x4
068a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x5
068b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x6
068c 783e |x> | Jump 0x6cb ; case 0x7
068d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x8
068e 7934 |y4 | Jump 0x7c3 ; case 0x9
068f 784b |xK | Jump 0x6db ; case 0xa
0690 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0xb
0691 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0xc
0692 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0xd
0693 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0xe
0694 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0xf
0695 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x10
0696 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x11
0697 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x12
0698 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x13
0699 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x14
069a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x15
069b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x16
069c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x17
069d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x18
069e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x19
069f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x1a
06a0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x1b
06a1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x1c
06a2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x1d
06a3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x1e
06a4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x1f
06a5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x20
06a6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x21
06a7 796e |yn | Jump 0x816 ; case 0x22
06a8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x23
06a9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x24
06aa 7820 |x | Jump 0x6cb ; case 0x25
06ab 7852 |xR | Jump 0x6fe ; case 0x26
06ac 7881 |x | Jump 0x72e ; case 0x27
06ad 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x28
06ae 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x29
06af 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x2a
06b0 7880 |x | Jump 0x731 ; case 0x2b
06b1 7882 |x | Jump 0x734 ; case 0x2c
06b2 78b8 |x | Jump 0x76b ; case 0x2d
06b3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x2e
06b4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x2f
06b5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x30
06b6 7929 |y) | Jump 0x7e0 ; case 0x31
06b7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x32
06b8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x33
06b9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x34
06ba 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x35
06bb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x36
06bc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x37
06bd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x38
06be 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x39
06bf 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x3a
06c0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x3b
06c1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x3c
06c2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x3d
06c3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x3e
06c4 00d1 | | Pop_Control Pop_Count_1
06c5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06c6 4801 |H | Short_Literal 0x1
06c7 4801 |H | Short_Literal 0x1
06c8 8410 | | Call 0x2,0x10
06c9 8406 | | Call 0x2,0x6
06ca 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06cb e404 | | Load 0x2,0x4
06cc 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
06cd 4801 |H | Short_Literal 0x1
06ce 4802 |H | Short_Literal 0x2
06cf 8410 | | Call 0x2,0x10
06d0 4801 |H | Short_Literal 0x1
06d1 4801 |H | Short_Literal 0x1
06d2 8410 | | Call 0x2,0x10
06d3 8409 | | Call 0x2,0x9
06d4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06d5 4800 |H | Short_Literal 0x0
06d6 4801 |H | Short_Literal 0x1
06d7 4801 |H | Short_Literal 0x1
06d8 8410 | | Call 0x2,0x10
06d9 8408 | | Call 0x2,0x8
06da 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06db 4800 |H | Short_Literal 0x0
06dc 4801 |H | Short_Literal 0x1
06dd 8410 | | Call 0x2,0x10
06de 0b01 | | Execute_Immediate Case_Compare,0x1
06df 7007 |p | Jump_Nonzero 0x6e7
06e0 0b02 | | Execute_Immediate Case_Compare,0x2
06e1 700b |p | Jump_Nonzero 0x6ed
06e2 4803 |H | Short_Literal 0x3
06e3 613c |a< | Indirect_Literal Discrete,0x820,{0x00000000, 0x7fffffff}
06e4 0262 | b | Execute Discrete,In_Range
06e5 7138 |q8 | Jump_Nonzero 0x81e
06e6 780c |x | Jump 0x6f3
06e7 00d1 | | Pop_Control Pop_Count_1
06e8 4820 |H | Short_Literal 0x20
06e9 4800 |H | Short_Literal 0x0
06ea 4800 |H | Short_Literal 0x0
06eb 840c | | Call 0x2,0xc
06ec 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06ed 00d1 | | Pop_Control Pop_Count_1
06ee 4820 |H | Short_Literal 0x20
06ef 4801 |H | Short_Literal 0x1
06f0 4800 |H | Short_Literal 0x0
06f1 840c | | Call 0x2,0xc
06f2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06f3 4820 |H | Short_Literal 0x20
06f4 4802 |H | Short_Literal 0x2
06f5 4800 |H | Short_Literal 0x0
06f6 840c | | Call 0x2,0xc
06f7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06f8 4801 |H | Short_Literal 0x1
06f9 4801 |H | Short_Literal 0x1
06fa 8410 | | Call 0x2,0x10
06fb 0275 | u | Execute Discrete,Unary_Minus
06fc 8406 | | Call 0x2,0x6
06fd 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06fe 4800 |H | Short_Literal 0x0
06ff 4801 |H | Short_Literal 0x1
0700 8410 | | Call 0x2,0x10
0701 0b00 | | Execute_Immediate Case_Compare,0x0
0702 7019 |p | Jump_Nonzero 0x71c
0703 0f03 | | Execute_Immediate Equal,0x3
0704 7001 |p | Jump_Nonzero 0x706
0705 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0706 00cf | | Action Mark_Auxiliary
0707 e5fb | | Load 0x2,-0x5
0708 2514 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x14
0709 01d9 | | Execute Vector,Reverse_Bounds
070a 0263 | c | Execute Discrete,Above_Bound
070b 700e |p | Jump_Nonzero 0x71a
070c e5fb | | Load 0x2,-0x5
070d 00d8 | | Load_Top At_Offset_0
070e 2514 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x14
070f 00d8 | | Load_Top At_Offset_0
0710 00db | | Load_Top At_Offset_3
0711 4800 |H | Short_Literal 0x0
0712 00d9 | | Load_Top At_Offset_1
0713 00db | | Load_Top At_Offset_3
0714 01d6 | | Execute Vector,Field_Write
0715 00d2 | | Pop_Control Pop_Count_2
0716 00d0 | | Action Swap_Control
0717 2914 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x14
0718 00c8 | | Action Pop_Auxiliary_Range
0719 3ff2 |? | Loop_Increasing 0x70c
071a 00ce | | Action Pop_Auxiliary
071b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
071c 00d1 | | Pop_Control Pop_Count_1
071d e5fb | | Load 0x2,-0x5
071e 00d8 | | Load_Top At_Offset_0
071f 2514 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x14
0720 00d8 | | Load_Top At_Offset_0
0721 e403 | | Load 0x2,0x3
0722 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0723 e404 | | Load 0x2,0x4
0724 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0725 822e | . | Call 0x1,0x2e
0726 4800 |H | Short_Literal 0x0
0727 00d9 | | Load_Top At_Offset_1
0728 00db | | Load_Top At_Offset_3
0729 01d6 | | Execute Vector,Field_Write
072a 00d2 | | Pop_Control Pop_Count_2
072b 00d0 | | Action Swap_Control
072c 2914 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x14
072d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
072e 4801 |H | Short_Literal 0x1
072f 8411 | | Call 0x2,0x11
0730 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0731 4800 |H | Short_Literal 0x0
0732 8411 | | Call 0x2,0x11
0733 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0734 00cf | | Action Mark_Auxiliary
0735 840e | | Call 0x2,0xe
0736 4801 |H | Short_Literal 0x1
0737 0263 | c | Execute Discrete,Above_Bound
0738 7030 |p0 | Jump_Nonzero 0x769
0739 4800 |H | Short_Literal 0x0
073a 00d9 | | Load_Top At_Offset_1
073b 8410 | | Call 0x2,0x10
073c 00d8 | | Load_Top At_Offset_0
073d 0c08 | | Execute_Immediate Greater_Equal,0x8
073e 700f |p | Jump_Nonzero 0x74e
073f 4607 |F | Jump_Case 0x8
0740 7821 |x! | Jump 0x762 ; case 0x0
0741 780e |x | Jump 0x750 ; case 0x1
0742 7824 |x$ | Jump 0x767 ; case 0x2
0743 7823 |x# | Jump 0x767 ; case 0x3
0744 7811 |x | Jump 0x756 ; case 0x4
0745 7816 |x | Jump 0x75c ; case 0x5
0746 7820 |x | Jump 0x767 ; case 0x6
0747 7800 |x | Jump 0x748 ; case 0x7
0748 4801 |H | Short_Literal 0x1
0749 e403 | | Load 0x2,0x3
074a 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
074b 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
074c 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
074d 7819 |x | Jump 0x767
074e 00d1 | | Pop_Control Pop_Count_1
074f 7817 |x | Jump 0x767
0750 4801 |H | Short_Literal 0x1
0751 e403 | | Load 0x2,0x3
0752 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0753 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0754 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0755 7811 |x | Jump 0x767
0756 4801 |H | Short_Literal 0x1
0757 e403 | | Load 0x2,0x3
0758 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0759 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
075a 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
075b 780b |x | Jump 0x767
075c 4801 |H | Short_Literal 0x1
075d e403 | | Load 0x2,0x3
075e 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
075f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0760 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0761 7805 |x | Jump 0x767
0762 e001 | | Load 0x0,0x1
0763 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0764 e403 | | Load 0x2,0x3
0765 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0766 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0767 00c8 | | Action Pop_Auxiliary_Range
0768 3fd0 |? | Loop_Increasing 0x739
0769 00ce | | Action Pop_Auxiliary
076a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
076b 4800 |H | Short_Literal 0x0
076c 4801 |H | Short_Literal 0x1
076d 8410 | | Call 0x2,0x10
076e 0b05 | | Execute_Immediate Case_Compare,0x5
076f 704e |pN | Jump_Nonzero 0x7be
0770 0f06 | | Execute_Immediate Equal,0x6
0771 7001 |p | Jump_Nonzero 0x773
0772 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0773 e404 | | Load 0x2,0x4
0774 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0775 6824 |h$ | Jump_Zero 0x79a
0776 4852 |HR | Short_Literal 0x52
0777 483b |H; | Short_Literal 0x3b
0778 0092 090d | | Action Push_String_Extended,0x90d ; "\x1b["
077a 4820 |H | Short_Literal 0x20
077b e403 | | Load 0x2,0x3
077c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
077d e404 | | Load 0x2,0x4
077e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
077f 0272 | r | Execute Discrete,Minus
0780 0a01 | | Execute_Immediate Plus,0x1
0781 00d8 | | Load_Top At_Offset_0
0782 00e2 | | Load_Encached Integer_Cache
0783 0260 | ` | Execute Discrete,In_Type
0784 7001 |p | Jump_Nonzero 0x786
0785 0801 | | Execute_Immediate Raise,0x1
0786 00e0 | | Load_Encached Standard_Cache
0787 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0788 e006 | | Load 0x0,0x6
0789 181c | | Execute Package,Field_Execute,Field_Number 0x1c
078a 01cc | | Execute Vector,Catenate
078b 01cb | | Execute Vector,Append
078c 4820 |H | Short_Literal 0x20
078d e403 | | Load 0x2,0x3
078e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
078f e404 | | Load 0x2,0x4
0790 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0791 822e | . | Call 0x1,0x2e
0792 00e0 | | Load_Encached Standard_Cache
0793 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0794 e006 | | Load 0x0,0x6
0795 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0796 01cc | | Execute Vector,Catenate
0797 01cb | | Execute Vector,Append
0798 85fe | | Call 0x2,-0x2
0799 4501 |E | Exit_Suprogram New_Top_Offset 0x1
079a 4852 |HR | Short_Literal 0x52
079b 483b |H; | Short_Literal 0x3b
079c 0092 090d | | Action Push_String_Extended,0x90d ; "\x1b["
079e 4820 |H | Short_Literal 0x20
079f e403 | | Load 0x2,0x3
07a0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
07a1 e5fb | | Load 0x2,-0x5
07a2 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
07a3 0272 | r | Execute Discrete,Minus
07a4 0a01 | | Execute_Immediate Plus,0x1
07a5 00d8 | | Load_Top At_Offset_0
07a6 00e2 | | Load_Encached Integer_Cache
07a7 0260 | ` | Execute Discrete,In_Type
07a8 7001 |p | Jump_Nonzero 0x7aa
07a9 0801 | | Execute_Immediate Raise,0x1
07aa 00e0 | | Load_Encached Standard_Cache
07ab 1818 | | Execute Package,Field_Execute,Field_Number 0x18
07ac e006 | | Load 0x0,0x6
07ad 181c | | Execute Package,Field_Execute,Field_Number 0x1c
07ae 01cc | | Execute Vector,Catenate
07af 01cb | | Execute Vector,Append
07b0 4820 |H | Short_Literal 0x20
07b1 e403 | | Load 0x2,0x3
07b2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
07b3 e404 | | Load 0x2,0x4
07b4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
07b5 822e | . | Call 0x1,0x2e
07b6 00e0 | | Load_Encached Standard_Cache
07b7 1818 | | Execute Package,Field_Execute,Field_Number 0x18
07b8 e006 | | Load 0x0,0x6
07b9 181c | | Execute Package,Field_Execute,Field_Number 0x1c
07ba 01cc | | Execute Vector,Catenate
07bb 01cb | | Execute Vector,Append
07bc 85fe | | Call 0x2,-0x2
07bd 4501 |E | Exit_Suprogram New_Top_Offset 0x1
07be 00d1 | | Pop_Control Pop_Count_1
07bf 0092 090e | | Action Push_String_Extended,0x90e ; "\x1b[0n"
07c1 85fe | | Call 0x2,-0x2
07c2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
07c3 4800 |H | Short_Literal 0x0
07c4 4801 |H | Short_Literal 0x1
07c5 8410 | | Call 0x2,0x10
07c6 0b01 | | Execute_Immediate Case_Compare,0x1
07c7 7007 |p | Jump_Nonzero 0x7cf
07c8 0b02 | | Execute_Immediate Case_Compare,0x2
07c9 700b |p | Jump_Nonzero 0x7d5
07ca 4803 |H | Short_Literal 0x3
07cb 6054 |`T | Indirect_Literal Discrete,0x820,{0x00000000, 0x7fffffff}
07cc 0262 | b | Execute Discrete,In_Range
07cd 7011 |p | Jump_Nonzero 0x7df
07ce 780c |x | Jump 0x7db
07cf 00d1 | | Pop_Control Pop_Count_1
07d0 4820 |H | Short_Literal 0x20
07d1 4800 |H | Short_Literal 0x0
07d2 4801 |H | Short_Literal 0x1
07d3 840c | | Call 0x2,0xc
07d4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
07d5 00d1 | | Pop_Control Pop_Count_1
07d6 4820 |H | Short_Literal 0x20
07d7 4801 |H | Short_Literal 0x1
07d8 4801 |H | Short_Literal 0x1
07d9 840c | | Call 0x2,0xc
07da 4501 |E | Exit_Suprogram New_Top_Offset 0x1
07db 4820 |H | Short_Literal 0x20
07dc 4802 |H | Short_Literal 0x2
07dd 4801 |H | Short_Literal 0x1
07de 840c | | Call 0x2,0xc
07df 4501 |E | Exit_Suprogram New_Top_Offset 0x1
07e0 e5fb | | Load 0x2,-0x5
07e1 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
07e2 4801 |H | Short_Literal 0x1
07e3 4801 |H | Short_Literal 0x1
07e4 8410 | | Call 0x2,0x10
07e5 4801 |H | Short_Literal 0x1
07e6 822f | / | Call 0x1,0x2f
07e7 0273 | s | Execute Discrete,Plus
07e8 0aff | | Execute_Immediate Plus,-0x1
07e9 e404 | | Load 0x2,0x4
07ea 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
07eb e5fb | | Load 0x2,-0x5
07ec 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
07ed e5fb | | Load 0x2,-0x5
07ee 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
07ef 4802 |H | Short_Literal 0x2
07f0 8410 | | Call 0x2,0x10
07f1 e5fb | | Load 0x2,-0x5
07f2 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
07f3 822e | . | Call 0x1,0x2e
07f4 0273 | s | Execute Discrete,Plus
07f5 0aff | | Execute_Immediate Plus,-0x1
07f6 00d8 | | Load_Top At_Offset_0
07f7 00e2 | | Load_Encached Integer_Cache
07f8 0260 | ` | Execute Discrete,In_Type
07f9 7001 |p | Jump_Nonzero 0x7fb
07fa 0801 | | Execute_Immediate Raise,0x1
07fb e404 | | Load 0x2,0x4
07fc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
07fd 822f | / | Call 0x1,0x2f
07fe e404 | | Load 0x2,0x4
07ff 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0800 0092 090f | | Action Push_String_Extended,0x90f ; "Margin.Top :="
0802 e404 | | Load 0x2,0x4
0803 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0804 00e0 | | Load_Encached Standard_Cache
0805 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0806 01cc | | Execute Vector,Catenate
0807 0092 0910 | | Action Push_String_Extended,0x910 ; ", Bottom :="
0809 01cc | | Execute Vector,Catenate
080a e404 | | Load 0x2,0x4
080b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
080c 00e0 | | Load_Encached Standard_Cache
080d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
080e 01cc | | Execute Vector,Catenate
080f 8405 | | Call 0x2,0x5
0810 e404 | | Load 0x2,0x4
0811 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0812 4801 |H | Short_Literal 0x1
0813 4801 |H | Short_Literal 0x1
0814 8409 | | Call 0x2,0x9
0815 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0816 840b | | Call 0x2,0xb
0817 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0818 4800 |H | Short_Literal 0x0
0819 4801 |H | Short_Literal 0x1
081a 4801 |H | Short_Literal 0x1
081b 8410 | | Call 0x2,0x10
081c 0275 | u | Execute Discrete,Unary_Minus
081d 8408 | | Call 0x2,0x8
081e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
081f 0000 | | .XXX[0x1]
0820 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
0824 0000 0000 | | .BLANK 0000[0x4]
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 0092 0911 | | Action Push_String_Extended,0x911 ; "Escape_Sequence_End: "
082d 4801 |H | Short_Literal 0x1
082e e5fb | | Load 0x2,-0x5
082f 2c10 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x10
0830 e5fb | | Load 0x2,-0x5
0831 2412 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x12
0832 01cf | | Execute Vector,Slice_Read
0833 01cc | | Execute Vector,Catenate
0834 8405 | | Call 0x2,0x5
0835 4800 |H | Short_Literal 0x0
0836 e5fb | | Load 0x2,-0x5
0837 2810 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x10
0838 4800 |H | Short_Literal 0x0
0839 e5fb | | Load 0x2,-0x5
083a 2811 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x11
083b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
083c 0000 0000 | | .BLANK 0000[0x4]
0840 ; --------------------------------------------------------------------------------------
0840 ; SUBPROGRAM
0840 ; --------------------------------------------------------------------------------------
0840 0843 | C | .CONST 0x0843 ; Address of begin
0841 0004 | | .CONST 0x0004 ; Address of exception handler
0842 0001 | | .CONST 0x0001 ; Number of locals
0843 BODY_0840:
0843 INIT_0840:
0843 0092 0912 | | Action Push_String_Extended,0x912 ; "scroll"
0845 e404 | | Load 0x2,0x4
0846 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0847 00e0 | | Load_Encached Standard_Cache
0848 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0849 01cc | | Execute Vector,Catenate
084a 0092 0913 | | Action Push_String_Extended,0x913 ; " .."
084c 01cc | | Execute Vector,Catenate
084d e404 | | Load 0x2,0x4
084e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
084f 00e0 | | Load_Encached Standard_Cache
0850 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0851 01cc | | Execute Vector,Catenate
0852 0092 0914 | | Action Push_String_Extended,0x914 ; " "
0854 01cc | | Execute Vector,Catenate
0855 00db | | Load_Top At_Offset_3
0856 01cc | | Execute Vector,Catenate
0857 e603 | | Load 0x3,0x3
0858 00e0 | | Load_Encached Standard_Cache
0859 1818 | | Execute Package,Field_Execute,Field_Number 0x18
085a 01cc | | Execute Vector,Catenate
085b 8405 | | Call 0x2,0x5
085c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
085d 0000 0000 | | .XXX[0x3]
085f 0000 | |
0860 ; --------------------------------------------------------------------------------------
0860 ; SUBPROGRAM
0860 ; --------------------------------------------------------------------------------------
0860 0863 | c | .CONST 0x0863 ; Address of begin
0861 0004 | | .CONST 0x0004 ; Address of exception handler
0862 0001 | | .CONST 0x0001 ; Number of locals
0863 BODY_0860:
0863 INIT_0860:
0863 4800 |H | Short_Literal 0x0
0864 4801 |H | Short_Literal 0x1
0865 e9ff | | Load 0x4,-0x1
0866 e5fd | | Load 0x2,-0x3
0867 e001 | | Load 0x0,0x1
0868 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0869 e403 | | Load 0x2,0x3
086a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
086b e001 | | Load 0x0,0x1
086c 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
086d e602 | | Load 0x3,0x2
086e e5fd | | Load 0x2,-0x3
086f e001 | | Load 0x0,0x1
0870 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0871 e5fb | | Load 0x2,-0x5
0872 00d8 | | Load_Top At_Offset_0
0873 2513 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x13
0874 00d8 | | Load_Top At_Offset_0
0875 e9ff | | Load 0x4,-0x1
0876 e5fb | | Load 0x2,-0x5
0877 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0878 0272 | r | Execute Discrete,Minus
0879 0a01 | | Execute_Immediate Plus,0x1
087a 4800 |H | Short_Literal 0x0
087b 00d9 | | Load_Top At_Offset_1
087c 00db | | Load_Top At_Offset_3
087d 01d6 | | Execute Vector,Field_Write
087e 00d2 | | Pop_Control Pop_Count_2
087f 00d0 | | Action Swap_Control
0880 2913 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x13
0881 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0882 0000 0000 | | .BLANK 0000[0x6]
0888 ; --------------------------------------------------------------------------------------
0888 ; SUBPROGRAM
0888 ; --------------------------------------------------------------------------------------
0888 088b | | .CONST 0x088b ; Address of begin
0889 0896 | | .CONST 0x0896 ; Address of exception handler
088a 0001 | | .CONST 0x0001 ; Number of locals
088b BODY_0888:
088b INIT_0888:
088b e602 | | Load 0x3,0x2
088c 00e2 | | Load_Encached Integer_Cache
088d 00e0 | | Load_Encached Standard_Cache
088e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
088f 00d8 | | Load_Top At_Offset_0
0890 00e3 | | Load_Encached Natural_Cache
0891 0260 | ` | Execute Discrete,In_Type
0892 7001 |p | Jump_Nonzero 0x894
0893 0801 | | Execute_Immediate Raise,0x1
0894 00cb | | Action Pop_Block_With_Result
0895 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0896 TRAP_0888:
0896 0007 | | Action Break_Optional
0897 e7fe | | Load 0x3,-0x2
0898 00cb | | Action Pop_Block_With_Result
0899 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
089a 0000 0000 | | .BLANK 0000[0x6]
08a0 ; --------------------------------------------------------------------------------------
08a0 ; SUBPROGRAM
08a0 ; --------------------------------------------------------------------------------------
08a0 08a5 | | .CONST 0x08a5 ; Address of begin
08a1 0900 | | .CONST 0x0900 ; Address of exception handler
08a2 0002 | | .CONST 0x0002 ; Number of locals
08a3 INIT_08a0:
08a3 e605 | | Load 0x3,0x5
08a4 840f | | Call 0x2,0xf
08a5 BODY_08a0:
08a5 00d8 | | Load_Top At_Offset_0
08a6 01db | | Execute Vector,Length
08a7 7001 |p | Jump_Nonzero 0x8a9
08a8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
08a9 00d8 | | Load_Top At_Offset_0
08aa 01dd | | Execute Vector,First
08ab 00d9 | | Load_Top At_Offset_1
08ac 01d7 | | Execute Vector,Field_Read
08ad 0f3f | ? | Execute_Immediate Equal,0x3f
08ae 6846 |hF | Jump_Zero 0x8f5
08af 00d8 | | Load_Top At_Offset_0
08b0 01dd | | Execute Vector,First
08b1 0a01 | | Execute_Immediate Plus,0x1
08b2 00d9 | | Load_Top At_Offset_1
08b3 01d7 | | Execute Vector,Field_Read
08b4 00d8 | | Load_Top At_Offset_0
08b5 4831 |H1 | Short_Literal 0x31
08b6 4837 |H7 | Short_Literal 0x37
08b7 0262 | b | Execute Discrete,In_Range
08b8 680d |h | Jump_Zero 0x8c6
08b9 0acf | | Execute_Immediate Plus,-0x31
08ba 4606 |F | Jump_Case 0x7
08bb 7835 |x5 | Jump 0x8f1 ; case 0x0
08bc 780b |x | Jump 0x8c8 ; case 0x1
08bd 780f |x | Jump 0x8cd ; case 0x2
08be 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x3
08bf 7824 |x$ | Jump 0x8e4 ; case 0x4
08c0 7827 |x' | Jump 0x8e8 ; case 0x5
08c1 7800 |x | Jump 0x8c2 ; case 0x6
08c2 e7ff | | Load 0x3,-0x1
08c3 e5fb | | Load 0x2,-0x5
08c4 2807 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x7
08c5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
08c6 00d1 | | Pop_Control Pop_Count_1
08c7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
08c8 e7ff | | Load 0x3,-0x1
08c9 0f00 | | Execute_Immediate Equal,0x0
08ca e5fb | | Load 0x2,-0x5
08cb 2806 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x6
08cc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
08cd e7ff | | Load 0x3,-0x1
08ce 6804 |h | Jump_Zero 0x8d3
08cf 4884 |H | Short_Literal 0x84
08d0 e404 | | Load 0x2,0x4
08d1 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
08d2 7803 |x | Jump 0x8d6
08d3 4850 |HP | Short_Literal 0x50
08d4 e404 | | Load 0x2,0x4
08d5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
08d6 e403 | | Load 0x2,0x3
08d7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
08d8 e404 | | Load 0x2,0x4
08d9 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
08da 0a01 | | Execute_Immediate Plus,0x1
08db 00d8 | | Load_Top At_Offset_0
08dc 00e2 | | Load_Encached Integer_Cache
08dd 0260 | ` | Execute Discrete,In_Type
08de 7001 |p | Jump_Nonzero 0x8e0
08df 0801 | | Execute_Immediate Raise,0x1
08e0 822e | . | Call 0x1,0x2e
08e1 e403 | | Load 0x2,0x3
08e2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
08e3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
08e4 e7ff | | Load 0x3,-0x1
08e5 e5fb | | Load 0x2,-0x5
08e6 280b |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xb
08e7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
08e8 e7ff | | Load 0x3,-0x1
08e9 e404 | | Load 0x2,0x4
08ea 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
08eb e404 | | Load 0x2,0x4
08ec 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
08ed 4801 |H | Short_Literal 0x1
08ee 4801 |H | Short_Literal 0x1
08ef 8409 | | Call 0x2,0x9
08f0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
08f1 e7ff | | Load 0x3,-0x1
08f2 e5fb | | Load 0x2,-0x5
08f3 2809 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x9
08f4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
08f5 00d8 | | Load_Top At_Offset_0
08f6 00e2 | | Load_Encached Integer_Cache
08f7 00e0 | | Load_Encached Standard_Cache
08f8 1819 | | Execute Package,Field_Execute,Field_Number 0x19
08f9 0f14 | | Execute_Immediate Equal,0x14
08fa 7001 |p | Jump_Nonzero 0x8fc
08fb 4501 |E | Exit_Suprogram New_Top_Offset 0x1
08fc e7ff | | Load 0x3,-0x1
08fd e5fb | | Load 0x2,-0x5
08fe 2808 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x8
08ff 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0900 TRAP_08a0:
0900 0007 | | Action Break_Optional
0901 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0902 ; --------------------------------------------------------------------------------------
0902 ; STRING TABLE
0902 ; --------------------------------------------------------------------------------------
0902 0028 | ( | .STRTAB 0x0028->0x0916 ; "ascii.SO"
0903 002e | . | .STRTAB 0x002e->0x091a ; "ascii.SI"
0904 0034 | 4 | .STRTAB 0x0034->0x091e ; "move "
0905 0037 | 7 | .STRTAB 0x0037->0x0920 ; " to column"
0906 003f | ? | .STRTAB 0x003f->0x0925 ; "down"
0907 0041 | A | .STRTAB 0x0041->0x0927 ; "up"
0908 0041 | A | .STRTAB 0x0041->0x0928 ; " to line"
0909 0047 | G | .STRTAB 0x0047->0x092c ; "move_to line"
090a 0051 | Q | .STRTAB 0x0051->0x0932 ; ", column"
090b 0057 | W | .STRTAB 0x0057->0x0936 ; "display \x22"
090c 005e | ^ | .STRTAB 0x005e->0x093b ; "\x1b/Z"
090d 005f | _ | .STRTAB 0x005f->0x093c ; "\x1b["
090e 005f | _ | .STRTAB 0x005f->0x093d ; "\x1b[0n"
090f 0061 | a | .STRTAB 0x0061->0x093f ; "Margin.Top :="
0910 006c | l | .STRTAB 0x006c->0x0946 ; ", Bottom :="
0911 0075 | u | .STRTAB 0x0075->0x094b ; "Escape_Sequence_End: "
0912 0088 | | .STRTAB 0x0088->0x0956 ; "scroll"
0913 008c | | .STRTAB 0x008c->0x0959 ; " .."
0914 008d | | .STRTAB 0x008d->0x095a ; " "
0915 008c | | .STREND 0x008c->0x095b
0916 6173 6369 |asci| .STRTAB_STRINGS
095b 0000 0000 | | .BLANK 0000[0x5]
0960 ; --------------------------------------------------------------------------------------
0960 ; Debug Table
0960 ; --------------------------------------------------------------------------------------
0960 0004 000d | | .DEBUG4 0x0004,0x000d,0x91d4,0x0000,0x0001,0x0000
0966 7793 b04e |w N| .XXX[0x9a]
0968 6801 f1ff |h |
096a 0794 74f5 | t |
096c 41d3 1397 |A |
096e cf79 a790 | y |
0970 2b9f 0812 |+ |
0972 6802 6038 |h `8|
0974 4801 bf90 |H |
0976 b515 6dbd | m |
0978 cf93 386c | 8l|
097a df7f 444e | DN|
097c 6802 ae62 |h b|
097e eb9d cf79 | y|
0980 1003 b721 | !|
0982 6792 cd1d |g |
0984 7f6f 54a2 | oT |
0986 6800 f03b |h ;|
0988 f58c 87a2 | |
098a 8401 ba83 | |
098c 0d24 b402 | $ |
098e 6ccb 9b79 |l y|
0990 57a3 b06d |W m|
0992 5fa3 3a61 |_ :a|
0994 67a1 9792 |g |
0996 220c b785 |" |
0998 a393 1b79 | y|
099a 7fa1 3405 | 4 |
099c 87a3 703b | p;|
099e 7663 2f95 |vc/ |
09a0 2b92 a1fd |+ |
09a2 3b91 d791 |; |
09a4 5f83 b43a |_ :|
09a6 6802 b03b |h ;|
09a8 8b8b 6794 | g |
09aa e379 3ece | y> |
09ac 152f 8395 | / |
09ae 2785 c374 |' t|
09b0 bf9f 9422 | "|
09b2 6802 7f64 |h d|
09b4 6b8a 28b0 |k ( |
09b6 3935 0389 |95 |
09b8 8416 4390 | C |
09ba 483e 6800 |H>h |
09bc 503c 3eda |P<> |
09be 5b90 2b93 |[ + |
09c0 2815 278b |( ' |
09c2 1046 4c5c | FL\|
09c4 b389 559d | U |
09c6 afa3 e03e | >|
09c8 ba70 2778 | p'x|
09ca 5ba0 f77d |[ }|
09cc 0c00 c113 | |
09ce 2b84 cd0f |+ |
09d0 fe3e 1f86 | > |
09d2 7792 2ba2 |w + |
09d4 df67 2393 | g# |
09d6 d8d8 1802 | |
09d8 3f84 e39f |? |
09da 3790 3c9a |7 < |
09dc 6800 e83e |h >|
09de e2a6 0b75 | u|
09e0 bf7f 9033 | 3|
09e2 5d01 0b9d |] |
09e4 1b82 dc5d | ]|
09e6 740a 6802 |t h |
09e8 cc3f 5283 | ?R |
09ea d391 3382 | 3 |
09ec c4d3 1ced | |
09ee e39f 0775 | u|
09f0 eb9c 884a | J|
09f2 6803 c47d |h }|
09f4 9400 0397 | |
09f6 ae64 6afa | dj |
09f8 139f 3376 | 3v|
09fa 0381 f852 | R|
09fc 6800 ec82 |h |
09fe 2a9c b396 |* |