|
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: 3072 (0xc00)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c8f4
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 05c8 | | .CONST 0x05c8 ; 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 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00e7 | | .CONST 0x00e7 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 002e | . | .CONST 0x002e ; Number of locals
000b INIT_0008:
000b 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated
000d 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
000f 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
0011 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated
0013 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated
0015 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated
0017 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated
0019 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated
001b 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated
001d 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated
001f 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated
0021 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated
0023 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated
0025 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated
0027 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated
0029 029a 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call,Visible,Unelaborated
002b 029a 03a3 | | Declare_Subprogram INIT_03a0,For_Outer_Call,Visible,Unelaborated
002d 029a 0443 | C| Declare_Subprogram INIT_0440,For_Outer_Call,Visible,Unelaborated
002f 029a 0473 | s| Declare_Subprogram INIT_0470,For_Outer_Call,Visible,Unelaborated
0031 029a 04b3 | | Declare_Subprogram INIT_04b0,For_Outer_Call,Visible,Unelaborated
0033 029a 04c3 | | Declare_Subprogram INIT_04c0,For_Outer_Call,Visible,Unelaborated
0035 029a 04d3 | | Declare_Subprogram INIT_04d0,For_Outer_Call,Visible,Unelaborated
0037 029a 04e3 | | Declare_Subprogram INIT_04e0,For_Outer_Call,Visible,Unelaborated
0039 00bf | | Action Accept_Activation
003a 00e8 | | Load_Encached Character_Cache
003b 0266 | f | Execute Discrete,Bounds
003c 00e8 | | Load_Encached Character_Cache
003d 02a0 | | Declare_Subprogram Null_Subprogram
003e 4801 |H | Short_Literal 0x1
003f 035d | ] | Declare_Type Array,Defined
0040 00e8 | | Load_Encached Character_Cache
0041 0266 | f | Execute Discrete,Bounds
0042 00e8 | | Load_Encached Character_Cache
0043 0266 | f | Execute Discrete,Bounds
0044 00e1 | | Load_Encached Boolean_Cache
0045 02a0 | | Declare_Subprogram Null_Subprogram
0046 4802 |H | Short_Literal 0x2
0047 035d | ] | Declare_Type Array,Defined
0048 00d9 | | Load_Top At_Offset_1
0049 0337 | 7 | Declare_Variable Array
004a 00da | | Load_Top At_Offset_2
004b 0337 | 7 | Declare_Variable Array
004c 00da | | Load_Top At_Offset_2
004d 0337 | 7 | Declare_Variable Array
004e 00d8 | | Load_Top At_Offset_0
004f 0335 | 5 | Declare_Variable Array,Duplicate
0050 00cd | | Action Spare6_Action
0051 487f |H | Short_Literal 0x7f
0052 4800 |H | Short_Literal 0x0
0053 487f |H | Short_Literal 0x7f
0054 4800 |H | Short_Literal 0x0
0055 4800 |H | Short_Literal 0x0
0056 00d9 | | Load_Top At_Offset_1
0057 e22b | + | Load 0x1,0x2b
0058 e229 | ) | Load 0x1,0x29
0059 01a6 | | Execute Matrix,Field_Write
005a 3ffa |? | Loop_Increasing 0x55
005b 3ff7 |? | Loop_Increasing 0x53
005c 00d9 | | Load_Top At_Offset_1
005d 01a4 | | Execute Matrix,Structure_Write
005e 4800 |H | Short_Literal 0x0
005f 48ff |H | Short_Literal 0xff
0060 00e2 | | Load_Encached Integer_Cache
0061 03f8 | | Declare_Type Discrete,Constrained
0062 4800 |H | Short_Literal 0x0
0063 48ff |H | Short_Literal 0xff
0064 00da | | Load_Top At_Offset_2
0065 02a0 | | Declare_Subprogram Null_Subprogram
0066 4801 |H | Short_Literal 0x1
0067 035d | ] | Declare_Type Array,Defined
0068 00d8 | | Load_Top At_Offset_0
0069 0337 | 7 | Declare_Variable Array
006a 4800 |H | Short_Literal 0x0
006b 480f |H | Short_Literal 0xf
006c 00e8 | | Load_Encached Character_Cache
006d 02a0 | | Declare_Subprogram Null_Subprogram
006e 4801 |H | Short_Literal 0x1
006f 035d | ] | Declare_Type Array,Defined
0070 00d8 | | Load_Top At_Offset_0
0071 0337 | 7 | Declare_Variable Array
0072 00d8 | | Load_Top At_Offset_0
0073 0335 | 5 | Declare_Variable Array,Duplicate
0074 00cd | | Action Spare6_Action
0075 4830 |H0 | Short_Literal 0x30
0076 4800 |H | Short_Literal 0x0
0077 00da | | Load_Top At_Offset_2
0078 01d6 | | Execute Vector,Field_Write
0079 4831 |H1 | Short_Literal 0x31
007a 4801 |H | Short_Literal 0x1
007b 00da | | Load_Top At_Offset_2
007c 01d6 | | Execute Vector,Field_Write
007d 4832 |H2 | Short_Literal 0x32
007e 4802 |H | Short_Literal 0x2
007f 00da | | Load_Top At_Offset_2
0080 01d6 | | Execute Vector,Field_Write
0081 4833 |H3 | Short_Literal 0x33
0082 4803 |H | Short_Literal 0x3
0083 00da | | Load_Top At_Offset_2
0084 01d6 | | Execute Vector,Field_Write
0085 4834 |H4 | Short_Literal 0x34
0086 4804 |H | Short_Literal 0x4
0087 00da | | Load_Top At_Offset_2
0088 01d6 | | Execute Vector,Field_Write
0089 4835 |H5 | Short_Literal 0x35
008a 4805 |H | Short_Literal 0x5
008b 00da | | Load_Top At_Offset_2
008c 01d6 | | Execute Vector,Field_Write
008d 4836 |H6 | Short_Literal 0x36
008e 4806 |H | Short_Literal 0x6
008f 00da | | Load_Top At_Offset_2
0090 01d6 | | Execute Vector,Field_Write
0091 4837 |H7 | Short_Literal 0x37
0092 4807 |H | Short_Literal 0x7
0093 00da | | Load_Top At_Offset_2
0094 01d6 | | Execute Vector,Field_Write
0095 4838 |H8 | Short_Literal 0x38
0096 4808 |H | Short_Literal 0x8
0097 00da | | Load_Top At_Offset_2
0098 01d6 | | Execute Vector,Field_Write
0099 4839 |H9 | Short_Literal 0x39
009a 4809 |H | Short_Literal 0x9
009b 00da | | Load_Top At_Offset_2
009c 01d6 | | Execute Vector,Field_Write
009d 4841 |HA | Short_Literal 0x41
009e 480a |H | Short_Literal 0xa
009f 00da | | Load_Top At_Offset_2
00a0 01d6 | | Execute Vector,Field_Write
00a1 4842 |HB | Short_Literal 0x42
00a2 480b |H | Short_Literal 0xb
00a3 00da | | Load_Top At_Offset_2
00a4 01d6 | | Execute Vector,Field_Write
00a5 4843 |HC | Short_Literal 0x43
00a6 480c |H | Short_Literal 0xc
00a7 00da | | Load_Top At_Offset_2
00a8 01d6 | | Execute Vector,Field_Write
00a9 4844 |HD | Short_Literal 0x44
00aa 480d |H | Short_Literal 0xd
00ab 00da | | Load_Top At_Offset_2
00ac 01d6 | | Execute Vector,Field_Write
00ad 4845 |HE | Short_Literal 0x45
00ae 480e |H | Short_Literal 0xe
00af 00da | | Load_Top At_Offset_2
00b0 01d6 | | Execute Vector,Field_Write
00b1 4846 |HF | Short_Literal 0x46
00b2 480f |H | Short_Literal 0xf
00b3 00da | | Load_Top At_Offset_2
00b4 01d6 | | Execute Vector,Field_Write
00b5 00d9 | | Load_Top At_Offset_1
00b6 01d4 | | Execute Vector,Structure_Write
00b7 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
00b8 00c7 | | Action Elaborate_Subprogram
00b9 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
00ba 00c7 | | Action Elaborate_Subprogram
00bb 1d10 | | Execute_Immediate Reference_Lex_1,0x10
00bc 00c7 | | Action Elaborate_Subprogram
00bd 1d11 | | Execute_Immediate Reference_Lex_1,0x11
00be 00c7 | | Action Elaborate_Subprogram
00bf 1d0e | | Execute_Immediate Reference_Lex_1,0xe
00c0 00c7 | | Action Elaborate_Subprogram
00c1 1d0f | | Execute_Immediate Reference_Lex_1,0xf
00c2 00c7 | | Action Elaborate_Subprogram
00c3 1d12 | | Execute_Immediate Reference_Lex_1,0x12
00c4 00c7 | | Action Elaborate_Subprogram
00c5 1d13 | | Execute_Immediate Reference_Lex_1,0x13
00c6 00c7 | | Action Elaborate_Subprogram
00c7 1d14 | | Execute_Immediate Reference_Lex_1,0x14
00c8 00c7 | | Action Elaborate_Subprogram
00c9 1d15 | | Execute_Immediate Reference_Lex_1,0x15
00ca 00c7 | | Action Elaborate_Subprogram
00cb 1d0d | | Execute_Immediate Reference_Lex_1,0xd
00cc 00c7 | | Action Elaborate_Subprogram
00cd 1d16 | | Execute_Immediate Reference_Lex_1,0x16
00ce 00c7 | | Action Elaborate_Subprogram
00cf 1d17 | | Execute_Immediate Reference_Lex_1,0x17
00d0 00c7 | | Action Elaborate_Subprogram
00d1 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00d2 00c7 | | Action Elaborate_Subprogram
00d3 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00d4 00c7 | | Action Elaborate_Subprogram
00d5 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
00d6 00c7 | | Action Elaborate_Subprogram
00d7 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
00d8 00c7 | | Action Elaborate_Subprogram
00d9 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00da 00c7 | | Action Elaborate_Subprogram
00db 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00dc 00c7 | | Action Elaborate_Subprogram
00dd 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
00de 00c7 | | Action Elaborate_Subprogram
00df 1d18 | | Execute_Immediate Reference_Lex_1,0x18
00e0 00c7 | | Action Elaborate_Subprogram
00e1 1d19 | | Execute_Immediate Reference_Lex_1,0x19
00e2 00c7 | | Action Elaborate_Subprogram
00e3 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00e4 00c7 | | Action Elaborate_Subprogram
00e5 029f 0503 | | Declare_Subprogram INIT_0500,For_Call
00e7 BODY_0008:
00e7 00cf | | Action Mark_Auxiliary
00e8 00e8 | | Load_Encached Character_Cache
00e9 0265 | e | Execute Discrete,Reverse_Bounds
00ea 0007 | | Action Break_Optional
00eb 00d8 | | Load_Top At_Offset_0
00ec 00d9 | | Load_Top At_Offset_1
00ed e226 | & | Load 0x1,0x26
00ee 01d6 | | Execute Vector,Field_Write
00ef 4801 |H | Short_Literal 0x1
00f0 00d9 | | Load_Top At_Offset_1
00f1 00da | | Load_Top At_Offset_2
00f2 e228 | ( | Load 0x1,0x28
00f3 01a6 | | Execute Matrix,Field_Write
00f4 00c8 | | Action Pop_Auxiliary_Range
00f5 3ff5 |? | Loop_Increasing 0xeb
00f6 00ce | | Action Pop_Auxiliary
00f7 e226 | & | Load 0x1,0x26
00f8 e227 | ' | Load 0x1,0x27
00f9 01d4 | | Execute Vector,Structure_Write
00fa 00cf | | Action Mark_Auxiliary
00fb 485a |HZ | Short_Literal 0x5a
00fc 4841 |HA | Short_Literal 0x41
00fd 0007 | | Action Break_Optional
00fe 00d8 | | Load_Top At_Offset_0
00ff 0a20 | | Execute_Immediate Plus,0x20
0100 00d8 | | Load_Top At_Offset_0
0101 00e8 | | Load_Encached Character_Cache
0102 0260 | ` | Execute Discrete,In_Type
0103 7001 |p | Jump_Nonzero 0x105
0104 0801 | | Execute_Immediate Raise,0x1
0105 00d9 | | Load_Top At_Offset_1
0106 e227 | ' | Load 0x1,0x27
0107 01d6 | | Execute Vector,Field_Write
0108 4801 |H | Short_Literal 0x1
0109 00d9 | | Load_Top At_Offset_1
010a e227 | ' | Load 0x1,0x27
010b 01d7 | | Execute Vector,Field_Read
010c 00da | | Load_Top At_Offset_2
010d e228 | ( | Load 0x1,0x28
010e 01a6 | | Execute Matrix,Field_Write
010f 00c8 | | Action Pop_Auxiliary_Range
0110 3fed |? | Loop_Increasing 0xfe
0111 00c9 | | Action Pop_Auxiliary_Loop
0112 487a |Hz | Short_Literal 0x7a
0113 4861 |Ha | Short_Literal 0x61
0114 0007 | | Action Break_Optional
0115 00d8 | | Load_Top At_Offset_0
0116 0ae0 | | Execute_Immediate Plus,-0x20
0117 00d8 | | Load_Top At_Offset_0
0118 00e8 | | Load_Encached Character_Cache
0119 0260 | ` | Execute Discrete,In_Type
011a 7001 |p | Jump_Nonzero 0x11c
011b 0801 | | Execute_Immediate Raise,0x1
011c 00d9 | | Load_Top At_Offset_1
011d e226 | & | Load 0x1,0x26
011e 01d6 | | Execute Vector,Field_Write
011f 4801 |H | Short_Literal 0x1
0120 00d9 | | Load_Top At_Offset_1
0121 e226 | & | Load 0x1,0x26
0122 01d7 | | Execute Vector,Field_Read
0123 00da | | Load_Top At_Offset_2
0124 e228 | ( | Load 0x1,0x28
0125 01a6 | | Execute Matrix,Field_Write
0126 00c8 | | Action Pop_Auxiliary_Range
0127 3fed |? | Loop_Increasing 0x115
0128 00ce | | Action Pop_Auxiliary
0129 822e | . | Call 0x1,0x2e
012a 00bc | | Action Signal_Activated
012b 00bb | | Action Signal_Completion
012c 0000 0000 | | .BLANK 0000[0x4]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 013a | : | .CONST 0x013a ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0003 | | .CONST 0x0003 ; Number of locals
0133 INIT_0130:
0133 00da | | Load_Top At_Offset_2
0134 01db | | Execute Vector,Length
0135 00e2 | | Load_Encached Integer_Cache
0136 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0137 00d8 | | Load_Top At_Offset_0
0138 00e2 | | Load_Encached Integer_Cache
0139 03f1 | | Declare_Variable Discrete,With_Value
013a BODY_0130:
013a 00d9 | | Load_Top At_Offset_1
013b 0c01 | | Execute_Immediate Greater_Equal,0x1
013c 6821 |h! | Jump_Zero 0x15e
013d 00d8 | | Load_Top At_Offset_0
013e e5ff | | Load 0x2,-0x1
013f 01dd | | Execute Vector,First
0140 e5ff | | Load 0x2,-0x1
0141 01d7 | | Execute Vector,Field_Read
0142 e226 | & | Load 0x1,0x26
0143 01d7 | | Execute Vector,Field_Read
0144 0905 | | Execute_Immediate Binary_Scale,0x5
0145 0273 | s | Execute Discrete,Plus
0146 e5ff | | Load 0x2,-0x1
0147 01dd | | Execute Vector,First
0148 e5ff | | Load 0x2,-0x1
0149 01dc | | Execute Vector,Last
014a 0a01 | | Execute_Immediate Plus,0x1
014b e5ff | | Load 0x2,-0x1
014c 01dd | | Execute Vector,First
014d 0272 | r | Execute Discrete,Minus
014e 09ff | | Execute_Immediate Binary_Scale,-0x1
014f 0273 | s | Execute Discrete,Plus
0150 e5ff | | Load 0x2,-0x1
0151 01d7 | | Execute Vector,Field_Read
0152 e226 | & | Load 0x1,0x26
0153 01d7 | | Execute Vector,Field_Read
0154 0273 | s | Execute Discrete,Plus
0155 e5ff | | Load 0x2,-0x1
0156 01dc | | Execute Vector,Last
0157 e5ff | | Load 0x2,-0x1
0158 01d7 | | Execute Vector,Field_Read
0159 e226 | & | Load 0x1,0x26
015a 01d7 | | Execute Vector,Field_Read
015b 0903 | | Execute_Immediate Binary_Scale,0x3
015c 0273 | s | Execute Discrete,Plus
015d 0059 | Y | Store_Top Discrete,At_Offset_1
015e 00d8 | | Load_Top At_Offset_0
015f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163 | c | .CONST 0x0163 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0001 | | .CONST 0x0001 ; Number of locals
0163 BODY_0160:
0163 INIT_0160:
0163 00da | | Load_Top At_Offset_2
0164 e226 | & | Load 0x1,0x26
0165 01d7 | | Execute Vector,Field_Read
0166 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0167 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b | k | .CONST 0x016b ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0001 | | .CONST 0x0001 ; Number of locals
016b BODY_0168:
016b INIT_0168:
016b 00da | | Load_Top At_Offset_2
016c e227 | ' | Load 0x1,0x27
016d 01d7 | | Execute Vector,Field_Read
016e 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
016f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 00da | | Load_Top At_Offset_2
0174 e226 | & | Load 0x1,0x26
0175 01d7 | | Execute Vector,Field_Read
0176 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0177 0000 | | .XXX[0x1]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b | { | .CONST 0x017b ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0001 | | .CONST 0x0001 ; Number of locals
017b BODY_0178:
017b INIT_0178:
017b 00da | | Load_Top At_Offset_2
017c e227 | ' | Load 0x1,0x27
017d 01d7 | | Execute Vector,Field_Read
017e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
017f 0000 | | .XXX[0x1]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183 | | .CONST 0x0183 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0001 | | .CONST 0x0001 ; Number of locals
0183 BODY_0180:
0183 INIT_0180:
0183 00cf | | Action Mark_Auxiliary
0184 00db | | Load_Top At_Offset_3
0185 01d9 | | Execute Vector,Reverse_Bounds
0186 0263 | c | Execute Discrete,Above_Bound
0187 700a |p | Jump_Nonzero 0x192
0188 00d8 | | Load_Top At_Offset_0
0189 e5ff | | Load 0x2,-0x1
018a 01d7 | | Execute Vector,Field_Read
018b e226 | & | Load 0x1,0x26
018c 01d7 | | Execute Vector,Field_Read
018d 00d9 | | Load_Top At_Offset_1
018e e5ff | | Load 0x2,-0x1
018f 01d6 | | Execute Vector,Field_Write
0190 00c8 | | Action Pop_Auxiliary_Range
0191 3ff6 |? | Loop_Increasing 0x188
0192 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0193 0000 0000 | | .BLANK 0000[0x5]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b 00cf | | Action Mark_Auxiliary
019c 00db | | Load_Top At_Offset_3
019d 01d9 | | Execute Vector,Reverse_Bounds
019e 0263 | c | Execute Discrete,Above_Bound
019f 700a |p | Jump_Nonzero 0x1aa
01a0 00d8 | | Load_Top At_Offset_0
01a1 e5ff | | Load 0x2,-0x1
01a2 01d7 | | Execute Vector,Field_Read
01a3 e227 | ' | Load 0x1,0x27
01a4 01d7 | | Execute Vector,Field_Read
01a5 00d9 | | Load_Top At_Offset_1
01a6 e5ff | | Load 0x2,-0x1
01a7 01d6 | | Execute Vector,Field_Write
01a8 00c8 | | Action Pop_Auxiliary_Range
01a9 3ff6 |? | Loop_Increasing 0x1a0
01aa 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01ab 0000 0000 | | .BLANK 0000[0x5]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01ba | | .CONST 0x01ba ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0002 | | .CONST 0x0002 ; Number of locals
01b3 INIT_01b0:
01b3 00da | | Load_Top At_Offset_2
01b4 01dd | | Execute Vector,First
01b5 00db | | Load_Top At_Offset_3
01b6 01dc | | Execute Vector,Last
01b7 00e9 | | Load_Encached String_Cache
01b8 035b | [ | Declare_Type Array,Constrained
01b9 0337 | 7 | Declare_Variable Array
01ba BODY_01b0:
01ba 00cf | | Action Mark_Auxiliary
01bb e5ff | | Load 0x2,-0x1
01bc 01d9 | | Execute Vector,Reverse_Bounds
01bd 0263 | c | Execute Discrete,Above_Bound
01be 700a |p | Jump_Nonzero 0x1c9
01bf 00d8 | | Load_Top At_Offset_0
01c0 e5ff | | Load 0x2,-0x1
01c1 01d7 | | Execute Vector,Field_Read
01c2 e226 | & | Load 0x1,0x26
01c3 01d7 | | Execute Vector,Field_Read
01c4 00d9 | | Load_Top At_Offset_1
01c5 e402 | | Load 0x2,0x2
01c6 01d6 | | Execute Vector,Field_Write
01c7 00c8 | | Action Pop_Auxiliary_Range
01c8 3ff6 |? | Loop_Increasing 0x1bf
01c9 00ce | | Action Pop_Auxiliary
01ca 00d8 | | Load_Top At_Offset_0
01cb 00e9 | | Load_Encached String_Cache
01cc 01c6 | | Execute Vector,Convert_To_Formal
01cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ce 0000 0000 | | .XXX[0x2]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01da | | .CONST 0x01da ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0002 | | .CONST 0x0002 ; Number of locals
01d3 INIT_01d0:
01d3 00da | | Load_Top At_Offset_2
01d4 01dd | | Execute Vector,First
01d5 00db | | Load_Top At_Offset_3
01d6 01dc | | Execute Vector,Last
01d7 00e9 | | Load_Encached String_Cache
01d8 035b | [ | Declare_Type Array,Constrained
01d9 0337 | 7 | Declare_Variable Array
01da BODY_01d0:
01da 00cf | | Action Mark_Auxiliary
01db e5ff | | Load 0x2,-0x1
01dc 01d9 | | Execute Vector,Reverse_Bounds
01dd 0263 | c | Execute Discrete,Above_Bound
01de 700a |p | Jump_Nonzero 0x1e9
01df 00d8 | | Load_Top At_Offset_0
01e0 e5ff | | Load 0x2,-0x1
01e1 01d7 | | Execute Vector,Field_Read
01e2 e227 | ' | Load 0x1,0x27
01e3 01d7 | | Execute Vector,Field_Read
01e4 00d9 | | Load_Top At_Offset_1
01e5 e402 | | Load 0x2,0x2
01e6 01d6 | | Execute Vector,Field_Write
01e7 00c8 | | Action Pop_Auxiliary_Range
01e8 3ff6 |? | Loop_Increasing 0x1df
01e9 00ce | | Action Pop_Auxiliary
01ea 00d8 | | Load_Top At_Offset_0
01eb 00e9 | | Load_Encached String_Cache
01ec 01c6 | | Execute Vector,Convert_To_Formal
01ed 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ee 0000 0000 | | .XXX[0x2]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01fd | | .CONST 0x01fd ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0005 | | .CONST 0x0005 ; Number of locals
01f3 INIT_01f0:
01f3 00e1 | | Load_Encached Boolean_Cache
01f4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
01f5 4850 |HP | Short_Literal 0x50
01f6 e002 | | Load 0x0,0x2
01f7 1c08 | | Execute_Immediate Run_Utility,0x8
01f8 00d8 | | Load_Top At_Offset_0
01f9 1c00 | | Execute_Immediate Run_Utility,0x0
01fa 00e2 | | Load_Encached Integer_Cache
01fb 029f 0533 | 3| Declare_Subprogram INIT_0530,For_Call
01fd BODY_01f0:
01fd 00da | | Load_Top At_Offset_2
01fe 4820 |H | Short_Literal 0x20
01ff 4800 |H | Short_Literal 0x0
0200 8003 | | Call 0x0,0x3
0201 00d1 | | Pop_Control Pop_Count_1
0202 e5ff | | Load 0x2,-0x1
0203 0d00 | | Execute_Immediate Less,0x0
0204 6807 |h | Jump_Zero 0x20c
0205 4801 |H | Short_Literal 0x1
0206 a402 | | Store_Unchecked 0x2,0x2
0207 e5fd | | Load 0x2,-0x3
0208 0aff | | Execute_Immediate Plus,-0x1
0209 e5ff | | Load 0x2,-0x1
020a 8405 | | Call 0x2,0x5
020b 7803 |x | Jump 0x20f
020c e5fd | | Load 0x2,-0x3
020d e5ff | | Load 0x2,-0x1
020e 8405 | | Call 0x2,0x5
020f 00da | | Load_Top At_Offset_2
0210 8004 | | Call 0x0,0x4
0211 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0212 0000 0000 | | .BLANK 0000[0x6]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 0221 | ! | .CONST 0x0221 ; Address of begin
0219 0278 | x | .CONST 0x0278 ; Address of exception handler
021a 0006 | | .CONST 0x0006 ; Number of locals
021b INIT_0218:
021b 00e2 | | Load_Encached Integer_Cache
021c 00e2 | | Load_Encached Integer_Cache
021d 00e8 | | Load_Encached Character_Cache
021e 00e2 | | Load_Encached Integer_Cache
021f 00e1 | | Load_Encached Boolean_Cache
0220 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0221 BODY_0218:
0221 4800 |H | Short_Literal 0x0
0222 a5fc | | Store_Unchecked 0x2,-0x4
0223 4800 |H | Short_Literal 0x0
0224 a5fd | | Store_Unchecked 0x2,-0x3
0225 4800 |H | Short_Literal 0x0
0226 a403 | | Store_Unchecked 0x2,0x3
0227 4801 |H | Short_Literal 0x1
0228 a402 | | Store_Unchecked 0x2,0x2
0229 00cf | | Action Mark_Auxiliary
022a e5ff | | Load 0x2,-0x1
022b 01d9 | | Execute Vector,Reverse_Bounds
022c 0263 | c | Execute Discrete,Above_Bound
022d 7038 |p8 | Jump_Nonzero 0x266
022e 00d8 | | Load_Top At_Offset_0
022f e5ff | | Load 0x2,-0x1
0230 01d7 | | Execute Vector,Field_Read
0231 a404 | | Store_Unchecked 0x2,0x4
0232 e404 | | Load 0x2,0x4
0233 0f20 | | Execute_Immediate Equal,0x20
0234 6803 |h | Jump_Zero 0x238
0235 00db | | Load_Top At_Offset_3
0236 702d |p- | Jump_Nonzero 0x264
0237 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0238 00db | | Load_Top At_Offset_3
0239 e404 | | Load 0x2,0x4
023a 0f2d | - | Execute_Immediate Equal,0x2d
023b 0279 | y | Execute Discrete,And
023c 6803 |h | Jump_Zero 0x240
023d 4fff |O | Short_Literal -0x1
023e a402 | | Store_Unchecked 0x2,0x2
023f 7822 |x" | Jump 0x262
0240 e404 | | Load 0x2,0x4
0241 4830 |H0 | Short_Literal 0x30
0242 4839 |H9 | Short_Literal 0x39
0243 0262 | b | Execute Discrete,In_Range
0244 6804 |h | Jump_Zero 0x249
0245 e404 | | Load 0x2,0x4
0246 0ad0 | | Execute_Immediate Plus,-0x30
0247 c405 | | Store 0x2,0x5
0248 780e |x | Jump 0x257
0249 e404 | | Load 0x2,0x4
024a 820e | | Call 0x1,0xe
024b c404 | | Store 0x2,0x4
024c e404 | | Load 0x2,0x4
024d 4841 |HA | Short_Literal 0x41
024e 4846 |HF | Short_Literal 0x46
024f 0262 | b | Execute Discrete,In_Range
0250 6804 |h | Jump_Zero 0x255
0251 e404 | | Load 0x2,0x4
0252 0ac9 | | Execute_Immediate Plus,-0x37
0253 c405 | | Store 0x2,0x5
0254 7802 |x | Jump 0x257
0255 49f4 |I | Short_Literal 0x1f4
0256 a405 | | Store_Unchecked 0x2,0x5
0257 e405 | | Load 0x2,0x5
0258 e5fe | | Load 0x2,-0x2
0259 027b | { | Execute Discrete,Greater_Equal
025a 6801 |h | Jump_Zero 0x25c
025b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
025c e403 | | Load 0x2,0x3
025d e5fe | | Load 0x2,-0x2
025e 0271 | q | Execute Discrete,Times
025f e405 | | Load 0x2,0x5
0260 0273 | s | Execute Discrete,Plus
0261 c403 | | Store 0x2,0x3
0262 4800 |H | Short_Literal 0x0
0263 a406 | | Store_Unchecked 0x2,0x6
0264 00c8 | | Action Pop_Auxiliary_Range
0265 3fc8 |? | Loop_Increasing 0x22e
0266 00ce | | Action Pop_Auxiliary
0267 e5ff | | Load 0x2,-0x1
0268 01db | | Execute Vector,Length
0269 680d |h | Jump_Zero 0x277
026a e5ff | | Load 0x2,-0x1
026b 01db | | Execute Vector,Length
026c 0c02 | | Execute_Immediate Greater_Equal,0x2
026d 7003 |p | Jump_Nonzero 0x271
026e e402 | | Load 0x2,0x2
026f 0f01 | | Execute_Immediate Equal,0x1
0270 6806 |h | Jump_Zero 0x277
0271 00db | | Load_Top At_Offset_3
0272 e402 | | Load 0x2,0x2
0273 0271 | q | Execute Discrete,Times
0274 c5fd | | Store 0x2,-0x3
0275 4801 |H | Short_Literal 0x1
0276 a5fc | | Store_Unchecked 0x2,-0x4
0277 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0278 TRAP_0218:
0278 0007 | | Action Break_Optional
0279 4800 |H | Short_Literal 0x0
027a a5fc | | Store_Unchecked 0x2,-0x4
027b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
027c 0000 0000 | | .BLANK 0000[0x4]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283 | | .CONST 0x0283 ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0001 | | .CONST 0x0001 ; Number of locals
0283 BODY_0280:
0283 INIT_0280:
0283 00cf | | Action Mark_Auxiliary
0284 00db | | Load_Top At_Offset_3
0285 01dc | | Execute Vector,Last
0286 e5ff | | Load 0x2,-0x1
0287 01dd | | Execute Vector,First
0288 0263 | c | Execute Discrete,Above_Bound
0289 7010 |p | Jump_Nonzero 0x29a
028a 00d8 | | Load_Top At_Offset_0
028b e5ff | | Load 0x2,-0x1
028c 01d7 | | Execute Vector,Field_Read
028d e5fe | | Load 0x2,-0x2
028e 027e | ~ | Execute Discrete,Not_Equal
028f 6808 |h | Jump_Zero 0x298
0290 00d8 | | Load_Top At_Offset_0
0291 e5ff | | Load 0x2,-0x1
0292 01dc | | Execute Vector,Last
0293 e5ff | | Load 0x2,-0x1
0294 01cf | | Execute Vector,Slice_Read
0295 0335 | 5 | Declare_Variable Array,Duplicate
0296 00cd | | Action Spare6_Action
0297 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0298 00c8 | | Action Pop_Auxiliary_Range
0299 3ff0 |? | Loop_Increasing 0x28a
029a 00ce | | Action Pop_Auxiliary
029b 00ea | | Load_Encached Null_String_Cache
029c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
029d 0000 0000 | | .XXX[0x3]
029f 0000 | |
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3 | | .CONST 0x02a3 ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0001 | | .CONST 0x0001 ; Number of locals
02a3 BODY_02a0:
02a3 INIT_02a0:
02a3 00cf | | Action Mark_Auxiliary
02a4 00db | | Load_Top At_Offset_3
02a5 01dd | | Execute Vector,First
02a6 e5ff | | Load 0x2,-0x1
02a7 01dc | | Execute Vector,Last
02a8 0264 | d | Execute Discrete,Below_Bound
02a9 7010 |p | Jump_Nonzero 0x2ba
02aa 00d8 | | Load_Top At_Offset_0
02ab e5ff | | Load 0x2,-0x1
02ac 01d7 | | Execute Vector,Field_Read
02ad e5fe | | Load 0x2,-0x2
02ae 027e | ~ | Execute Discrete,Not_Equal
02af 6808 |h | Jump_Zero 0x2b8
02b0 e5ff | | Load 0x2,-0x1
02b1 01dd | | Execute Vector,First
02b2 00d9 | | Load_Top At_Offset_1
02b3 e5ff | | Load 0x2,-0x1
02b4 01cf | | Execute Vector,Slice_Read
02b5 0335 | 5 | Declare_Variable Array,Duplicate
02b6 00cd | | Action Spare6_Action
02b7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02b8 00c8 | | Action Pop_Auxiliary_Range
02b9 37f0 |7 | Loop_Decreasing 0x2aa
02ba 00ce | | Action Pop_Auxiliary
02bb 00ea | | Load_Encached Null_String_Cache
02bc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02bd 0000 0000 | | .XXX[0x3]
02bf 0000 | |
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3 | | .CONST 0x02c3 ; Address of begin
02c1 0004 | | .CONST 0x0004 ; Address of exception handler
02c2 0001 | | .CONST 0x0001 ; Number of locals
02c3 BODY_02c0:
02c3 INIT_02c0:
02c3 00db | | Load_Top At_Offset_3
02c4 e5fe | | Load 0x2,-0x2
02c5 e5ff | | Load 0x2,-0x1
02c6 8219 | | Call 0x1,0x19
02c7 8218 | | Call 0x1,0x18
02c8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02c9 0000 0000 | | .BLANK 0000[0x7]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02dd | | .CONST 0x02dd ; Address of begin
02d1 0004 | | .CONST 0x0004 ; Address of exception handler
02d2 0004 | | .CONST 0x0004 ; Number of locals
02d3 INIT_02d0:
02d3 00da | | Load_Top At_Offset_2
02d4 01db | | Execute Vector,Length
02d5 0aff | | Execute_Immediate Plus,-0x1
02d6 00e2 | | Load_Encached Integer_Cache
02d7 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
02d8 00db | | Load_Top At_Offset_3
02d9 01dd | | Execute Vector,First
02da 00e4 | | Load_Encached Positive_Cache
02db 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
02dc 00e8 | | Load_Encached Character_Cache
02dd BODY_02d0:
02dd 00da | | Load_Top At_Offset_2
02de 0c01 | | Execute_Immediate Greater_Equal,0x1
02df 6879 |hy | Jump_Zero 0x359
02e0 00d9 | | Load_Top At_Offset_1
02e1 e5ff | | Load 0x2,-0x1
02e2 01d7 | | Execute Vector,Field_Read
02e3 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
02e4 e5fd | | Load 0x2,-0x3
02e5 683a |h: | Jump_Zero 0x320
02e6 00cf | | Action Mark_Auxiliary
02e7 e5fe | | Load 0x2,-0x2
02e8 01dc | | Execute Vector,Last
02e9 e402 | | Load 0x2,0x2
02ea 0272 | r | Execute Discrete,Minus
02eb 00d8 | | Load_Top At_Offset_0
02ec 00e2 | | Load_Encached Integer_Cache
02ed 0260 | ` | Execute Discrete,In_Type
02ee 7001 |p | Jump_Nonzero 0x2f0
02ef 0801 | | Execute_Immediate Raise,0x1
02f0 e5fe | | Load 0x2,-0x2
02f1 01dd | | Execute Vector,First
02f2 0263 | c | Execute Discrete,Above_Bound
02f3 702a |p* | Jump_Nonzero 0x31e
02f4 00db | | Load_Top At_Offset_3
02f5 00d9 | | Load_Top At_Offset_1
02f6 e5fe | | Load 0x2,-0x2
02f7 01d7 | | Execute Vector,Field_Read
02f8 e228 | ( | Load 0x1,0x28
02f9 01a7 | | Execute Matrix,Field_Read
02fa 6821 |h! | Jump_Zero 0x31c
02fb 00cf | | Action Mark_Auxiliary
02fc 4801 |H | Short_Literal 0x1
02fd e402 | | Load 0x2,0x2
02fe 0264 | d | Execute Discrete,Below_Bound
02ff 701b |p | Jump_Nonzero 0x31b
0300 00db | | Load_Top At_Offset_3
0301 00d9 | | Load_Top At_Offset_1
0302 0273 | s | Execute Discrete,Plus
0303 e5fe | | Load 0x2,-0x2
0304 01d7 | | Execute Vector,Field_Read
0305 e403 | | Load 0x2,0x3
0306 00da | | Load_Top At_Offset_2
0307 0273 | s | Execute Discrete,Plus
0308 e5ff | | Load 0x2,-0x1
0309 01d7 | | Execute Vector,Field_Read
030a e228 | ( | Load 0x1,0x28
030b 01a7 | | Execute Matrix,Field_Read
030c 7002 |p | Jump_Nonzero 0x30f
030d 00d2 | | Pop_Control Pop_Count_2
030e 780c |x | Jump 0x31b
030f 00d8 | | Load_Top At_Offset_0
0310 0f01 | | Execute_Immediate Equal,0x1
0311 6807 |h | Jump_Zero 0x319
0312 00db | | Load_Top At_Offset_3
0313 00d8 | | Load_Top At_Offset_0
0314 00e3 | | Load_Encached Natural_Cache
0315 0260 | ` | Execute Discrete,In_Type
0316 7001 |p | Jump_Nonzero 0x318
0317 0801 | | Execute_Immediate Raise,0x1
0318 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0319 00c8 | | Action Pop_Auxiliary_Range
031a 37e5 |7 | Loop_Decreasing 0x300
031b 00ce | | Action Pop_Auxiliary
031c 00c8 | | Action Pop_Auxiliary_Range
031d 3fd6 |? | Loop_Increasing 0x2f4
031e 00ce | | Action Pop_Auxiliary
031f 7837 |x7 | Jump 0x357
0320 00cf | | Action Mark_Auxiliary
0321 e5fe | | Load 0x2,-0x2
0322 01dc | | Execute Vector,Last
0323 e402 | | Load 0x2,0x2
0324 0272 | r | Execute Discrete,Minus
0325 00d8 | | Load_Top At_Offset_0
0326 00e2 | | Load_Encached Integer_Cache
0327 0260 | ` | Execute Discrete,In_Type
0328 7001 |p | Jump_Nonzero 0x32a
0329 0801 | | Execute_Immediate Raise,0x1
032a e5fe | | Load 0x2,-0x2
032b 01dd | | Execute Vector,First
032c 0263 | c | Execute Discrete,Above_Bound
032d 7028 |p( | Jump_Nonzero 0x356
032e 00d8 | | Load_Top At_Offset_0
032f e5fe | | Load 0x2,-0x2
0330 01d7 | | Execute Vector,Field_Read
0331 e404 | | Load 0x2,0x4
0332 027f | | Execute Discrete,Equal
0333 6820 |h | Jump_Zero 0x354
0334 00cf | | Action Mark_Auxiliary
0335 4801 |H | Short_Literal 0x1
0336 e402 | | Load 0x2,0x2
0337 0264 | d | Execute Discrete,Below_Bound
0338 701a |p | Jump_Nonzero 0x353
0339 e403 | | Load 0x2,0x3
033a 00d9 | | Load_Top At_Offset_1
033b 0273 | s | Execute Discrete,Plus
033c e5ff | | Load 0x2,-0x1
033d 01d7 | | Execute Vector,Field_Read
033e e407 | | Load 0x2,0x7
033f 00da | | Load_Top At_Offset_2
0340 0273 | s | Execute Discrete,Plus
0341 e5fe | | Load 0x2,-0x2
0342 01d7 | | Execute Vector,Field_Read
0343 027e | ~ | Execute Discrete,Not_Equal
0344 6802 |h | Jump_Zero 0x347
0345 00d2 | | Pop_Control Pop_Count_2
0346 780c |x | Jump 0x353
0347 00d8 | | Load_Top At_Offset_0
0348 0f01 | | Execute_Immediate Equal,0x1
0349 6807 |h | Jump_Zero 0x351
034a 00db | | Load_Top At_Offset_3
034b 00d8 | | Load_Top At_Offset_0
034c 00e3 | | Load_Encached Natural_Cache
034d 0260 | ` | Execute Discrete,In_Type
034e 7001 |p | Jump_Nonzero 0x350
034f 0801 | | Execute_Immediate Raise,0x1
0350 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0351 00c8 | | Action Pop_Auxiliary_Range
0352 37e6 |7 | Loop_Decreasing 0x339
0353 00ce | | Action Pop_Auxiliary
0354 00c8 | | Action Pop_Auxiliary_Range
0355 3fd8 |? | Loop_Increasing 0x32e
0356 00ce | | Action Pop_Auxiliary
0357 4800 |H | Short_Literal 0x0
0358 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0359 00da | | Load_Top At_Offset_2
035a 7007 |p | Jump_Nonzero 0x362
035b e5fd | | Load 0x2,-0x3
035c e5fe | | Load 0x2,-0x2
035d 00db | | Load_Top At_Offset_3
035e e5ff | | Load 0x2,-0x1
035f 01d7 | | Execute Vector,Field_Read
0360 821c | | Call 0x1,0x1c
0361 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0362 e5fe | | Load 0x2,-0x2
0363 01dd | | Execute Vector,First
0364 00d8 | | Load_Top At_Offset_0
0365 00e3 | | Load_Encached Natural_Cache
0366 0260 | ` | Execute Discrete,In_Type
0367 7001 |p | Jump_Nonzero 0x369
0368 0801 | | Execute_Immediate Raise,0x1
0369 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
036a 0000 0000 | | .BLANK 0000[0x6]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0373 | s | .CONST 0x0373 ; Address of begin
0371 0004 | | .CONST 0x0004 ; Address of exception handler
0372 0001 | | .CONST 0x0001 ; Number of locals
0373 BODY_0370:
0373 INIT_0370:
0373 e5fd | | Load 0x2,-0x3
0374 6812 |h | Jump_Zero 0x387
0375 00cf | | Action Mark_Auxiliary
0376 e5fe | | Load 0x2,-0x2
0377 01d9 | | Execute Vector,Reverse_Bounds
0378 0263 | c | Execute Discrete,Above_Bound
0379 700b |p | Jump_Nonzero 0x385
037a 00d8 | | Load_Top At_Offset_0
037b e5fe | | Load 0x2,-0x2
037c 01d7 | | Execute Vector,Field_Read
037d e5ff | | Load 0x2,-0x1
037e e228 | ( | Load 0x1,0x28
037f 01a7 | | Execute Matrix,Field_Read
0380 6802 |h | Jump_Zero 0x383
0381 00d8 | | Load_Top At_Offset_0
0382 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0383 00c8 | | Action Pop_Auxiliary_Range
0384 3ff5 |? | Loop_Increasing 0x37a
0385 00ce | | Action Pop_Auxiliary
0386 7810 |x | Jump 0x397
0387 00cf | | Action Mark_Auxiliary
0388 e5fe | | Load 0x2,-0x2
0389 01d9 | | Execute Vector,Reverse_Bounds
038a 0263 | c | Execute Discrete,Above_Bound
038b 700a |p | Jump_Nonzero 0x396
038c e5ff | | Load 0x2,-0x1
038d 00d9 | | Load_Top At_Offset_1
038e e5fe | | Load 0x2,-0x2
038f 01d7 | | Execute Vector,Field_Read
0390 027f | | Execute Discrete,Equal
0391 6802 |h | Jump_Zero 0x394
0392 00d8 | | Load_Top At_Offset_0
0393 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0394 00c8 | | Action Pop_Auxiliary_Range
0395 3ff6 |? | Loop_Increasing 0x38c
0396 00ce | | Action Pop_Auxiliary
0397 4800 |H | Short_Literal 0x0
0398 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0399 0000 0000 | | .BLANK 0000[0x7]
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03ad | | .CONST 0x03ad ; Address of begin
03a1 0004 | | .CONST 0x0004 ; Address of exception handler
03a2 0004 | | .CONST 0x0004 ; Number of locals
03a3 INIT_03a0:
03a3 00da | | Load_Top At_Offset_2
03a4 01db | | Execute Vector,Length
03a5 0aff | | Execute_Immediate Plus,-0x1
03a6 00e2 | | Load_Encached Integer_Cache
03a7 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
03a8 00db | | Load_Top At_Offset_3
03a9 01dd | | Execute Vector,First
03aa 00e4 | | Load_Encached Positive_Cache
03ab 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
03ac 00e8 | | Load_Encached Character_Cache
03ad BODY_03a0:
03ad 00da | | Load_Top At_Offset_2
03ae 0c01 | | Execute_Immediate Greater_Equal,0x1
03af 687d |h} | Jump_Zero 0x42d
03b0 00d9 | | Load_Top At_Offset_1
03b1 e5ff | | Load 0x2,-0x1
03b2 01d7 | | Execute Vector,Field_Read
03b3 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
03b4 e5fd | | Load 0x2,-0x3
03b5 683c |h< | Jump_Zero 0x3f2
03b6 00cf | | Action Mark_Auxiliary
03b7 e5fe | | Load 0x2,-0x2
03b8 01dd | | Execute Vector,First
03b9 e5fe | | Load 0x2,-0x2
03ba 01dc | | Execute Vector,Last
03bb e402 | | Load 0x2,0x2
03bc 0272 | r | Execute Discrete,Minus
03bd 00d8 | | Load_Top At_Offset_0
03be 00e2 | | Load_Encached Integer_Cache
03bf 0260 | ` | Execute Discrete,In_Type
03c0 7001 |p | Jump_Nonzero 0x3c2
03c1 0801 | | Execute_Immediate Raise,0x1
03c2 0264 | d | Execute Discrete,Below_Bound
03c3 702c |p, | Jump_Nonzero 0x3f0
03c4 00db | | Load_Top At_Offset_3
03c5 00d9 | | Load_Top At_Offset_1
03c6 e5fe | | Load 0x2,-0x2
03c7 01d7 | | Execute Vector,Field_Read
03c8 e228 | ( | Load 0x1,0x28
03c9 01a7 | | Execute Matrix,Field_Read
03ca 6823 |h# | Jump_Zero 0x3ee
03cb 00cf | | Action Mark_Auxiliary
03cc 4801 |H | Short_Literal 0x1
03cd e402 | | Load 0x2,0x2
03ce 0264 | d | Execute Discrete,Below_Bound
03cf 701d |p | Jump_Nonzero 0x3ed
03d0 00db | | Load_Top At_Offset_3
03d1 00d9 | | Load_Top At_Offset_1
03d2 0273 | s | Execute Discrete,Plus
03d3 e5fe | | Load 0x2,-0x2
03d4 01d7 | | Execute Vector,Field_Read
03d5 e403 | | Load 0x2,0x3
03d6 00da | | Load_Top At_Offset_2
03d7 0273 | s | Execute Discrete,Plus
03d8 e5ff | | Load 0x2,-0x1
03d9 01d7 | | Execute Vector,Field_Read
03da e228 | ( | Load 0x1,0x28
03db 01a7 | | Execute Matrix,Field_Read
03dc 7002 |p | Jump_Nonzero 0x3df
03dd 00d2 | | Pop_Control Pop_Count_2
03de 780e |x | Jump 0x3ed
03df 00d8 | | Load_Top At_Offset_0
03e0 0f01 | | Execute_Immediate Equal,0x1
03e1 6809 |h | Jump_Zero 0x3eb
03e2 00db | | Load_Top At_Offset_3
03e3 e402 | | Load 0x2,0x2
03e4 0273 | s | Execute Discrete,Plus
03e5 00d8 | | Load_Top At_Offset_0
03e6 00e3 | | Load_Encached Natural_Cache
03e7 0260 | ` | Execute Discrete,In_Type
03e8 7001 |p | Jump_Nonzero 0x3ea
03e9 0801 | | Execute_Immediate Raise,0x1
03ea 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
03eb 00c8 | | Action Pop_Auxiliary_Range
03ec 37e3 |7 | Loop_Decreasing 0x3d0
03ed 00ce | | Action Pop_Auxiliary
03ee 00c8 | | Action Pop_Auxiliary_Range
03ef 37d4 |7 | Loop_Decreasing 0x3c4
03f0 00ce | | Action Pop_Auxiliary
03f1 7839 |x9 | Jump 0x42b
03f2 00cf | | Action Mark_Auxiliary
03f3 e5fe | | Load 0x2,-0x2
03f4 01dd | | Execute Vector,First
03f5 e5fe | | Load 0x2,-0x2
03f6 01dc | | Execute Vector,Last
03f7 e402 | | Load 0x2,0x2
03f8 0272 | r | Execute Discrete,Minus
03f9 00d8 | | Load_Top At_Offset_0
03fa 00e2 | | Load_Encached Integer_Cache
03fb 0260 | ` | Execute Discrete,In_Type
03fc 7001 |p | Jump_Nonzero 0x3fe
03fd 0801 | | Execute_Immediate Raise,0x1
03fe 0264 | d | Execute Discrete,Below_Bound
03ff 702a |p* | Jump_Nonzero 0x42a
0400 00d8 | | Load_Top At_Offset_0
0401 e5fe | | Load 0x2,-0x2
0402 01d7 | | Execute Vector,Field_Read
0403 e404 | | Load 0x2,0x4
0404 027f | | Execute Discrete,Equal
0405 6822 |h" | Jump_Zero 0x428
0406 00cf | | Action Mark_Auxiliary
0407 4801 |H | Short_Literal 0x1
0408 e402 | | Load 0x2,0x2
0409 0264 | d | Execute Discrete,Below_Bound
040a 701c |p | Jump_Nonzero 0x427
040b e403 | | Load 0x2,0x3
040c 00d9 | | Load_Top At_Offset_1
040d 0273 | s | Execute Discrete,Plus
040e e5ff | | Load 0x2,-0x1
040f 01d7 | | Execute Vector,Field_Read
0410 e407 | | Load 0x2,0x7
0411 00da | | Load_Top At_Offset_2
0412 0273 | s | Execute Discrete,Plus
0413 e5fe | | Load 0x2,-0x2
0414 01d7 | | Execute Vector,Field_Read
0415 027e | ~ | Execute Discrete,Not_Equal
0416 6802 |h | Jump_Zero 0x419
0417 00d2 | | Pop_Control Pop_Count_2
0418 780e |x | Jump 0x427
0419 00d8 | | Load_Top At_Offset_0
041a 0f01 | | Execute_Immediate Equal,0x1
041b 6809 |h | Jump_Zero 0x425
041c 00db | | Load_Top At_Offset_3
041d e402 | | Load 0x2,0x2
041e 0273 | s | Execute Discrete,Plus
041f 00d8 | | Load_Top At_Offset_0
0420 00e3 | | Load_Encached Natural_Cache
0421 0260 | ` | Execute Discrete,In_Type
0422 7001 |p | Jump_Nonzero 0x424
0423 0801 | | Execute_Immediate Raise,0x1
0424 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0425 00c8 | | Action Pop_Auxiliary_Range
0426 37e4 |7 | Loop_Decreasing 0x40b
0427 00ce | | Action Pop_Auxiliary
0428 00c8 | | Action Pop_Auxiliary_Range
0429 37d6 |7 | Loop_Decreasing 0x400
042a 00ce | | Action Pop_Auxiliary
042b 4800 |H | Short_Literal 0x0
042c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
042d 00da | | Load_Top At_Offset_2
042e 7007 |p | Jump_Nonzero 0x436
042f e5fd | | Load 0x2,-0x3
0430 e5fe | | Load 0x2,-0x2
0431 00db | | Load_Top At_Offset_3
0432 e5ff | | Load 0x2,-0x1
0433 01d7 | | Execute Vector,Field_Read
0434 821e | | Call 0x1,0x1e
0435 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0436 e5fe | | Load 0x2,-0x2
0437 01dc | | Execute Vector,Last
0438 00d8 | | Load_Top At_Offset_0
0439 00e3 | | Load_Encached Natural_Cache
043a 0260 | ` | Execute Discrete,In_Type
043b 7001 |p | Jump_Nonzero 0x43d
043c 0801 | | Execute_Immediate Raise,0x1
043d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
043e 0000 0000 | | .XXX[0x2]
0440 ; --------------------------------------------------------------------------------------
0440 ; SUBPROGRAM
0440 ; --------------------------------------------------------------------------------------
0440 0443 | C | .CONST 0x0443 ; Address of begin
0441 0004 | | .CONST 0x0004 ; Address of exception handler
0442 0001 | | .CONST 0x0001 ; Number of locals
0443 BODY_0440:
0443 INIT_0440:
0443 e5fd | | Load 0x2,-0x3
0444 6812 |h | Jump_Zero 0x457
0445 00cf | | Action Mark_Auxiliary
0446 e5fe | | Load 0x2,-0x2
0447 01da | | Execute Vector,Bounds
0448 0264 | d | Execute Discrete,Below_Bound
0449 700b |p | Jump_Nonzero 0x455
044a 00d8 | | Load_Top At_Offset_0
044b e5fe | | Load 0x2,-0x2
044c 01d7 | | Execute Vector,Field_Read
044d e5ff | | Load 0x2,-0x1
044e e228 | ( | Load 0x1,0x28
044f 01a7 | | Execute Matrix,Field_Read
0450 6802 |h | Jump_Zero 0x453
0451 00d8 | | Load_Top At_Offset_0
0452 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0453 00c8 | | Action Pop_Auxiliary_Range
0454 37f5 |7 | Loop_Decreasing 0x44a
0455 00ce | | Action Pop_Auxiliary
0456 7810 |x | Jump 0x467
0457 00cf | | Action Mark_Auxiliary
0458 e5fe | | Load 0x2,-0x2
0459 01da | | Execute Vector,Bounds
045a 0264 | d | Execute Discrete,Below_Bound
045b 700a |p | Jump_Nonzero 0x466
045c e5ff | | Load 0x2,-0x1
045d 00d9 | | Load_Top At_Offset_1
045e e5fe | | Load 0x2,-0x2
045f 01d7 | | Execute Vector,Field_Read
0460 027f | | Execute Discrete,Equal
0461 6802 |h | Jump_Zero 0x464
0462 00d8 | | Load_Top At_Offset_0
0463 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0464 00c8 | | Action Pop_Auxiliary_Range
0465 37f6 |7 | Loop_Decreasing 0x45c
0466 00ce | | Action Pop_Auxiliary
0467 4800 |H | Short_Literal 0x0
0468 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0469 0000 0000 | | .BLANK 0000[0x7]
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 047f | | .CONST 0x047f ; Address of begin
0471 0004 | | .CONST 0x0004 ; Address of exception handler
0472 0004 | | .CONST 0x0004 ; Number of locals
0473 INIT_0470:
0473 00da | | Load_Top At_Offset_2
0474 01db | | Execute Vector,Length
0475 00e2 | | Load_Encached Integer_Cache
0476 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0477 00db | | Load_Top At_Offset_3
0478 01dd | | Execute Vector,First
0479 00e4 | | Load_Encached Positive_Cache
047a 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
047b e5fe | | Load 0x2,-0x2
047c 01dd | | Execute Vector,First
047d 00e4 | | Load_Encached Positive_Cache
047e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
047f BODY_0470:
047f 00da | | Load_Top At_Offset_2
0480 e5fe | | Load 0x2,-0x2
0481 01db | | Execute Vector,Length
0482 027f | | Execute Discrete,Equal
0483 6825 |h% | Jump_Zero 0x4a9
0484 e5fd | | Load 0x2,-0x3
0485 681f |h | Jump_Zero 0x4a5
0486 00cf | | Action Mark_Auxiliary
0487 00db | | Load_Top At_Offset_3
0488 0aff | | Execute_Immediate Plus,-0x1
0489 00d8 | | Load_Top At_Offset_0
048a 00e2 | | Load_Encached Integer_Cache
048b 0260 | ` | Execute Discrete,In_Type
048c 7001 |p | Jump_Nonzero 0x48e
048d 0801 | | Execute_Immediate Raise,0x1
048e 4800 |H | Short_Literal 0x0
048f 0263 | c | Execute Discrete,Above_Bound
0490 7011 |p | Jump_Nonzero 0x4a2
0491 00db | | Load_Top At_Offset_3
0492 00d9 | | Load_Top At_Offset_1
0493 0273 | s | Execute Discrete,Plus
0494 e5fe | | Load 0x2,-0x2
0495 01d7 | | Execute Vector,Field_Read
0496 e403 | | Load 0x2,0x3
0497 00da | | Load_Top At_Offset_2
0498 0273 | s | Execute Discrete,Plus
0499 e5ff | | Load 0x2,-0x1
049a 01d7 | | Execute Vector,Field_Read
049b e228 | ( | Load 0x1,0x28
049c 01a7 | | Execute Matrix,Field_Read
049d 7002 |p | Jump_Nonzero 0x4a0
049e 4800 |H | Short_Literal 0x0
049f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
04a0 00c8 | | Action Pop_Auxiliary_Range
04a1 3fef |? | Loop_Increasing 0x491
04a2 00ce | | Action Pop_Auxiliary
04a3 4801 |H | Short_Literal 0x1
04a4 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
04a5 e5ff | | Load 0x2,-0x1
04a6 e5fe | | Load 0x2,-0x2
04a7 01df | | Execute Vector,Equal
04a8 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
04a9 4800 |H | Short_Literal 0x0
04aa 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
04ab 0000 0000 | | .BLANK 0000[0x5]
04b0 ; --------------------------------------------------------------------------------------
04b0 ; SUBPROGRAM
04b0 ; --------------------------------------------------------------------------------------
04b0 04b3 | | .CONST 0x04b3 ; Address of begin
04b1 0004 | | .CONST 0x0004 ; Address of exception handler
04b2 0001 | | .CONST 0x0001 ; Number of locals
04b3 BODY_04b0:
04b3 INIT_04b0:
04b3 e5fd | | Load 0x2,-0x3
04b4 6806 |h | Jump_Zero 0x4bb
04b5 00da | | Load_Top At_Offset_2
04b6 8215 | | Call 0x1,0x15
04b7 e5fe | | Load 0x2,-0x2
04b8 8215 | | Call 0x1,0x15
04b9 01c1 | | Execute Vector,Less
04ba 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
04bb 00da | | Load_Top At_Offset_2
04bc e5fe | | Load 0x2,-0x2
04bd 01c1 | | Execute Vector,Less
04be 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
04bf 0000 | | .XXX[0x1]
04c0 ; --------------------------------------------------------------------------------------
04c0 ; SUBPROGRAM
04c0 ; --------------------------------------------------------------------------------------
04c0 04c3 | | .CONST 0x04c3 ; Address of begin
04c1 0004 | | .CONST 0x0004 ; Address of exception handler
04c2 0001 | | .CONST 0x0001 ; Number of locals
04c3 BODY_04c0:
04c3 INIT_04c0:
04c3 e5fd | | Load 0x2,-0x3
04c4 6806 |h | Jump_Zero 0x4cb
04c5 00db | | Load_Top At_Offset_3
04c6 8215 | | Call 0x1,0x15
04c7 00db | | Load_Top At_Offset_3
04c8 8215 | | Call 0x1,0x15
04c9 01c1 | | Execute Vector,Less
04ca 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
04cb 00db | | Load_Top At_Offset_3
04cc 00db | | Load_Top At_Offset_3
04cd 01c1 | | Execute Vector,Less
04ce 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
04cf 0000 | | .XXX[0x1]
04d0 ; --------------------------------------------------------------------------------------
04d0 ; SUBPROGRAM
04d0 ; --------------------------------------------------------------------------------------
04d0 04d7 | | .CONST 0x04d7 ; Address of begin
04d1 0004 | | .CONST 0x0004 ; Address of exception handler
04d2 0003 | | .CONST 0x0003 ; Number of locals
04d3 INIT_04d0:
04d3 e229 | ) | Load 0x1,0x29
04d4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
04d5 029f 058b | | Declare_Subprogram INIT_0588,For_Call
04d7 BODY_04d0:
04d7 00cf | | Action Mark_Auxiliary
04d8 e5ff | | Load 0x2,-0x1
04d9 01d9 | | Execute Vector,Reverse_Bounds
04da 0263 | c | Execute Discrete,Above_Bound
04db 7003 |p | Jump_Nonzero 0x4df
04dc 8403 | | Call 0x2,0x3
04dd 00c8 | | Action Pop_Auxiliary_Range
04de 3ffd |? | Loop_Increasing 0x4dc
04df 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04e0 ; --------------------------------------------------------------------------------------
04e0 ; SUBPROGRAM
04e0 ; --------------------------------------------------------------------------------------
04e0 04ef | | .CONST 0x04ef ; Address of begin
04e1 0004 | | .CONST 0x0004 ; Address of exception handler
04e2 0004 | | .CONST 0x0004 ; Number of locals
04e3 INIT_04e0:
04e3 e229 | ) | Load 0x1,0x29
04e4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
04e5 00db | | Load_Top At_Offset_3
04e6 01da | | Execute Vector,Bounds
04e7 00e9 | | Load_Encached String_Cache
04e8 035b | [ | Declare_Type Array,Constrained
04e9 0337 | 7 | Declare_Variable Array
04ea e5ff | | Load 0x2,-0x1
04eb 00d9 | | Load_Top At_Offset_1
04ec 01d4 | | Execute Vector,Structure_Write
04ed 029f 05ab | | Declare_Subprogram INIT_05a8,For_Call
04ef BODY_04e0:
04ef 00cf | | Action Mark_Auxiliary
04f0 00da | | Load_Top At_Offset_2
04f1 01d9 | | Execute Vector,Reverse_Bounds
04f2 0263 | c | Execute Discrete,Above_Bound
04f3 7003 |p | Jump_Nonzero 0x4f7
04f4 8404 | | Call 0x2,0x4
04f5 00c8 | | Action Pop_Auxiliary_Range
04f6 3ffd |? | Loop_Increasing 0x4f4
04f7 00ce | | Action Pop_Auxiliary
04f8 00d9 | | Load_Top At_Offset_1
04f9 00e9 | | Load_Encached String_Cache
04fa 01c6 | | Execute Vector,Convert_To_Formal
04fb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04fc 0000 0000 | | .BLANK 0000[0x4]
0500 ; --------------------------------------------------------------------------------------
0500 ; SUBPROGRAM
0500 ; --------------------------------------------------------------------------------------
0500 0506 | | .CONST 0x0506 ; Address of begin
0501 0004 | | .CONST 0x0004 ; Address of exception handler
0502 0004 | | .CONST 0x0004 ; Number of locals
0503 INIT_0500:
0503 00e2 | | Load_Encached Integer_Cache
0504 00e8 | | Load_Encached Character_Cache
0505 00e8 | | Load_Encached Character_Cache
0506 BODY_0500:
0506 00cf | | Action Mark_Auxiliary
0507 00e8 | | Load_Encached Character_Cache
0508 0265 | e | Execute Discrete,Reverse_Bounds
0509 0007 | | Action Break_Optional
050a 00d8 | | Load_Top At_Offset_0
050b e226 | & | Load 0x1,0x26
050c 01d7 | | Execute Vector,Field_Read
050d a403 | | Store_Unchecked 0x2,0x3
050e 00d8 | | Load_Top At_Offset_0
050f e227 | ' | Load 0x1,0x27
0510 01d7 | | Execute Vector,Field_Read
0511 a404 | | Store_Unchecked 0x2,0x4
0512 e403 | | Load 0x2,0x3
0513 e404 | | Load 0x2,0x4
0514 027e | ~ | Execute Discrete,Not_Equal
0515 7005 |p | Jump_Nonzero 0x51b
0516 00d8 | | Load_Top At_Offset_0
0517 4830 |H0 | Short_Literal 0x30
0518 4839 |H9 | Short_Literal 0x39
0519 0262 | b | Execute Discrete,In_Range
051a 7801 |x | Jump 0x51c
051b 4801 |H | Short_Literal 0x1
051c 0907 | | Execute_Immediate Binary_Scale,0x7
051d c402 | | Store 0x2,0x2
051e e402 | | Load 0x2,0x2
051f e403 | | Load 0x2,0x3
0520 0273 | s | Execute Discrete,Plus
0521 00d9 | | Load_Top At_Offset_1
0522 e22b | + | Load 0x1,0x2b
0523 01d6 | | Execute Vector,Field_Write
0524 e402 | | Load 0x2,0x2
0525 e404 | | Load 0x2,0x4
0526 0273 | s | Execute Discrete,Plus
0527 00d9 | | Load_Top At_Offset_1
0528 4880 |H | Short_Literal 0x80
0529 0273 | s | Execute Discrete,Plus
052a e22b | + | Load 0x1,0x2b
052b 01d6 | | Execute Vector,Field_Write
052c 00c8 | | Action Pop_Auxiliary_Range
052d 3fdc |? | Loop_Increasing 0x50a
052e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
052f 0000 | | .XXX[0x1]
0530 ; --------------------------------------------------------------------------------------
0530 ; SUBPROGRAM
0530 ; --------------------------------------------------------------------------------------
0530 0533 | 3 | .CONST 0x0533 ; Address of begin
0531 0004 | | .CONST 0x0004 ; Address of exception handler
0532 0001 | | .CONST 0x0001 ; Number of locals
0533 BODY_0530:
0533 INIT_0530:
0533 00da | | Load_Top At_Offset_2
0534 7028 |p( | Jump_Nonzero 0x55d
0535 00cf | | Action Mark_Auxiliary
0536 e7fe | | Load 0x3,-0x2
0537 4801 |H | Short_Literal 0x1
0538 0263 | c | Execute Discrete,Above_Bound
0539 7006 |p | Jump_Nonzero 0x540
053a e403 | | Load 0x2,0x3
053b e5fc | | Load 0x2,-0x4
053c 8005 | | Call 0x0,0x5
053d 00d1 | | Pop_Control Pop_Count_1
053e 00c8 | | Action Pop_Auxiliary_Range
053f 3ffa |? | Loop_Increasing 0x53a
0540 00ce | | Action Pop_Auxiliary
0541 e402 | | Load 0x2,0x2
0542 6804 |h | Jump_Zero 0x547
0543 e403 | | Load 0x2,0x3
0544 482d |H- | Short_Literal 0x2d
0545 8005 | | Call 0x0,0x5
0546 00d1 | | Pop_Control Pop_Count_1
0547 e5ff | | Load 0x2,-0x1
0548 7013 |p | Jump_Nonzero 0x55c
0549 00db | | Load_Top At_Offset_3
054a 0c01 | | Execute_Immediate Greater_Equal,0x1
054b 680c |h | Jump_Zero 0x558
054c e403 | | Load 0x2,0x3
054d 4830 |H0 | Short_Literal 0x30
054e e403 | | Load 0x2,0x3
054f 8006 | | Call 0x0,0x6
0550 00d8 | | Load_Top At_Offset_0
0551 00e4 | | Load_Encached Positive_Cache
0552 0260 | ` | Execute Discrete,In_Type
0553 7001 |p | Jump_Nonzero 0x555
0554 0801 | | Execute_Immediate Raise,0x1
0555 8007 | | Call 0x0,0x7
0556 00d1 | | Pop_Control Pop_Count_1
0557 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0558 e403 | | Load 0x2,0x3
0559 4830 |H0 | Short_Literal 0x30
055a 8005 | | Call 0x0,0x5
055b 00d1 | | Pop_Control Pop_Count_1
055c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
055d 00db | | Load_Top At_Offset_3
055e 0aff | | Execute_Immediate Plus,-0x1
055f 00d8 | | Load_Top At_Offset_0
0560 00e2 | | Load_Encached Integer_Cache
0561 0260 | ` | Execute Discrete,In_Type
0562 7001 |p | Jump_Nonzero 0x564
0563 0801 | | Execute_Immediate Raise,0x1
0564 00db | | Load_Top At_Offset_3
0565 e5fe | | Load 0x2,-0x2
0566 0270 | p | Execute Discrete,Divide
0567 8405 | | Call 0x2,0x5
0568 e402 | | Load 0x2,0x2
0569 7005 |p | Jump_Nonzero 0x56f
056a 00da | | Load_Top At_Offset_2
056b e5fe | | Load 0x2,-0x2
056c 026e | n | Execute Discrete,Modulo
056d a404 | | Store_Unchecked 0x2,0x4
056e 780c |x | Jump 0x57b
056f e5fe | | Load 0x2,-0x2
0570 00db | | Load_Top At_Offset_3
0571 e5fe | | Load 0x2,-0x2
0572 026e | n | Execute Discrete,Modulo
0573 0272 | r | Execute Discrete,Minus
0574 c404 | | Store 0x2,0x4
0575 e404 | | Load 0x2,0x4
0576 e5fe | | Load 0x2,-0x2
0577 027f | | Execute Discrete,Equal
0578 6802 |h | Jump_Zero 0x57b
0579 4800 |H | Short_Literal 0x0
057a a404 | | Store_Unchecked 0x2,0x4
057b e403 | | Load 0x2,0x3
057c e404 | | Load 0x2,0x4
057d e22d | - | Load 0x1,0x2d
057e 01d7 | | Execute Vector,Field_Read
057f 8005 | | Call 0x0,0x5
0580 00d1 | | Pop_Control Pop_Count_1
0581 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0582 0000 0000 | | .BLANK 0000[0x6]
0588 ; --------------------------------------------------------------------------------------
0588 ; SUBPROGRAM
0588 ; --------------------------------------------------------------------------------------
0588 0595 | | .CONST 0x0595 ; Address of begin
0589 0004 | | .CONST 0x0004 ; Address of exception handler
058a 0003 | | .CONST 0x0003 ; Number of locals
058b INIT_0588:
058b e406 | | Load 0x2,0x6
058c e5ff | | Load 0x2,-0x1
058d 01d5 | | Execute Vector,Field_Reference
058e 0007 | | Action Break_Optional
058f 00d8 | | Load_Top At_Offset_0
0590 e402 | | Load 0x2,0x2
0591 0273 | s | Execute Discrete,Plus
0592 e22b | + | Load 0x1,0x2b
0593 01d5 | | Execute Vector,Field_Reference
0594 0007 | | Action Break_Optional
0595 BODY_0588:
0595 00d8 | | Load_Top At_Offset_0
0596 487f |H | Short_Literal 0x7f
0597 0279 | y | Execute Discrete,And
0598 00d8 | | Load_Top At_Offset_0
0599 00e8 | | Load_Encached Character_Cache
059a 0260 | ` | Execute Discrete,In_Type
059b 7001 |p | Jump_Nonzero 0x59d
059c 0801 | | Execute_Immediate Raise,0x1
059d a602 | | Store_Unchecked 0x3,0x2
059e 00d8 | | Load_Top At_Offset_0
059f 00da | | Load_Top At_Offset_2
05a0 0272 | r | Execute Discrete,Minus
05a1 c402 | | Store 0x2,0x2
05a2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
05a3 0000 0000 | | .BLANK 0000[0x5]
05a8 ; --------------------------------------------------------------------------------------
05a8 ; SUBPROGRAM
05a8 ; --------------------------------------------------------------------------------------
05a8 05b5 | | .CONST 0x05b5 ; Address of begin
05a9 0004 | | .CONST 0x0004 ; Address of exception handler
05aa 0003 | | .CONST 0x0003 ; Number of locals
05ab INIT_05a8:
05ab e407 | | Load 0x2,0x7
05ac e403 | | Load 0x2,0x3
05ad 01d5 | | Execute Vector,Field_Reference
05ae 0007 | | Action Break_Optional
05af 00d8 | | Load_Top At_Offset_0
05b0 e402 | | Load 0x2,0x2
05b1 0273 | s | Execute Discrete,Plus
05b2 e22b | + | Load 0x1,0x2b
05b3 01d5 | | Execute Vector,Field_Reference
05b4 0007 | | Action Break_Optional
05b5 BODY_05a8:
05b5 00d8 | | Load_Top At_Offset_0
05b6 487f |H | Short_Literal 0x7f
05b7 0279 | y | Execute Discrete,And
05b8 00d8 | | Load_Top At_Offset_0
05b9 00e8 | | Load_Encached Character_Cache
05ba 0260 | ` | Execute Discrete,In_Type
05bb 7001 |p | Jump_Nonzero 0x5bd
05bc 0801 | | Execute_Immediate Raise,0x1
05bd a602 | | Store_Unchecked 0x3,0x2
05be 00d8 | | Load_Top At_Offset_0
05bf 00da | | Load_Top At_Offset_2
05c0 0272 | r | Execute Discrete,Minus
05c1 c402 | | Store 0x2,0x2
05c2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
05c3 0000 0000 | | .BLANK 0000[0x5]
05c8 ; --------------------------------------------------------------------------------------
05c8 ; Debug Table
05c8 ; --------------------------------------------------------------------------------------
05c8 0004 0002 | | .DEBUG4 0x0004,0x0002,0x2e85,0x0000,0x0001,0x0000
05ce 0000 0000 | | .BLANK 0000[0x8]
05d6 0080 0547 | G| .XXX[0x3]
05d8 9c80 | |
05d9 0000 0000 | | .BLANK 0000[0x27]