|
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: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_ccb0b3
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦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 02a0 | | .CONST 0x02a0 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0040 | @ | .CONST 0x0040 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0013 | | .CONST 0x0013 ; Number of locals
000b INIT_0008:
000b 00da | | Load_Top At_Offset_2
000c 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
000d 0007 | | Action Break_Optional
000e e5fe | | Load 0x2,-0x2
000f 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0010 0007 | | Action Break_Optional
0011 e5fd | | Load 0x2,-0x3
0012 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0013 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0014 0007 | | Action Break_Optional
0015 e5fd | | Load 0x2,-0x3
0016 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0017 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0018 0007 | | Action Break_Optional
0019 e5fd | | Load 0x2,-0x3
001a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
001b 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
001c 0007 | | Action Break_Optional
001d e5fd | | Load 0x2,-0x3
001e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
001f 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0020 0007 | | Action Break_Optional
0021 e5fd | | Load 0x2,-0x3
0022 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0023 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0024 0007 | | Action Break_Optional
0025 e5fd | | Load 0x2,-0x3
0026 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0027 e5fd | | Load 0x2,-0x3
0028 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0029 017f | | Execute Record,Equal
002a 00e1 | | Load_Encached Boolean_Cache
002b 03f1 | | Declare_Variable Discrete,With_Value
002c 029f 007b | {| Declare_Subprogram INIT_0078,For_Call
002e 029f 00ab | | Declare_Subprogram INIT_00a8,For_Call
0030 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call
0032 029f 0103 | | Declare_Subprogram INIT_0100,For_Call
0034 029f 013b | ;| Declare_Subprogram INIT_0138,For_Call
0036 029f 01ab | | Declare_Subprogram INIT_01a8,For_Call
0038 029f 01cb | | Declare_Subprogram INIT_01c8,For_Call
003a 029f 020b | | Declare_Subprogram INIT_0208,For_Call
003c 029f 0223 | #| Declare_Subprogram INIT_0220,For_Call
003e 029f 0233 | 3| Declare_Subprogram INIT_0230,For_Call
0040 BODY_0008:
0040 00cf | | Action Mark_Auxiliary
0041 7823 |x# | Jump 0x65
0042 e404 | | Load 0x2,0x4
0043 e403 | | Load 0x2,0x3
0044 01d5 | | Execute Vector,Field_Reference
0045 8412 | | Call 0x2,0x12
0046 6801 |h | Jump_Zero 0x48
0047 7807 |x | Jump 0x4f
0048 e405 | | Load 0x2,0x5
0049 e402 | | Load 0x2,0x2
004a 01dc | | Execute Vector,Last
004b 027d | } | Execute Discrete,Greater
004c 6801 |h | Jump_Zero 0x4e
004d 781c |x | Jump 0x6a
004e 8413 | | Call 0x2,0x13
004f e409 | | Load 0x2,0x9
0050 e404 | | Load 0x2,0x4
0051 e403 | | Load 0x2,0x3
0052 01d5 | | Execute Vector,Field_Reference
0053 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0054 027e | ~ | Execute Discrete,Not_Equal
0055 680b |h | Jump_Zero 0x61
0056 e409 | | Load 0x2,0x9
0057 6804 |h | Jump_Zero 0x5c
0058 e5fd | | Load 0x2,-0x3
0059 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
005a e5fd | | Load 0x2,-0x3
005b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
005c e404 | | Load 0x2,0x4
005d e403 | | Load 0x2,0x3
005e 01d5 | | Execute Vector,Field_Reference
005f 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0060 a409 | | Store_Unchecked 0x2,0x9
0061 e404 | | Load 0x2,0x4
0062 0a01 | | Execute_Immediate Plus,0x1
0063 c404 | | Store 0x2,0x4
0064 00c9 | | Action Pop_Auxiliary_Loop
0065 e404 | | Load 0x2,0x4
0066 e403 | | Load 0x2,0x3
0067 01dc | | Execute Vector,Last
0068 027a | z | Execute Discrete,Less_Equal
0069 77d8 |w | Jump_Nonzero 0x42
006a 00ce | | Action Pop_Auxiliary
006b e409 | | Load 0x2,0x9
006c 6804 |h | Jump_Zero 0x71
006d e5fd | | Load 0x2,-0x3
006e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
006f e5fd | | Load 0x2,-0x3
0070 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0071 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0072 0000 0000 | | .BLANK 0000[0x6]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b | { | .CONST 0x007b ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0001 | | .CONST 0x0001 ; Number of locals
007b BODY_0078:
007b INIT_0078:
007b e405 | | Load 0x2,0x5
007c e402 | | Load 0x2,0x2
007d 01dc | | Execute Vector,Last
007e 027b | { | Execute Discrete,Greater_Equal
007f 7006 |p | Jump_Nonzero 0x86
0080 e405 | | Load 0x2,0x5
0081 e402 | | Load 0x2,0x2
0082 01d5 | | Execute Vector,Field_Reference
0083 e249 | I | Load 0x1,0x49
0084 016f | o | Execute Variant_Record,Equal
0085 6802 |h | Jump_Zero 0x88
0086 e011 | | Load 0x0,0x11
0087 0257 | W | Execute Discrete,Raise
0088 e012 | | Load 0x0,0x12
0089 0322 | " | Declare_Variable Record
008a e5fd | | Load 0x2,-0x3
008b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
008c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
008d 00d9 | | Load_Top At_Offset_1
008e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
008f e5fd | | Load 0x2,-0x3
0090 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0091 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0092 0a01 | | Execute_Immediate Plus,0x1
0093 00d9 | | Load_Top At_Offset_1
0094 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0095 4800 |H | Short_Literal 0x0
0096 00d9 | | Load_Top At_Offset_1
0097 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0098 4800 |H | Short_Literal 0x0
0099 00d9 | | Load_Top At_Offset_1
009a 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
009b 4800 |H | Short_Literal 0x0
009c 00d9 | | Load_Top At_Offset_1
009d 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
009e e5fd | | Load 0x2,-0x3
009f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00a0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00a1 0000 0000 | | .BLANK 0000[0x7]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00b0 | | .CONST 0x00b0 ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0002 | | .CONST 0x0002 ; Number of locals
00ab INIT_00a8:
00ab e408 | | Load 0x2,0x8
00ac 00db | | Load_Top At_Offset_3
00ad 0273 | s | Execute Discrete,Plus
00ae 00e7 | | Load_Encached Duration_Cache
00af 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
00b0 BODY_00a8:
00b0 00cf | | Action Mark_Auxiliary
00b1 e402 | | Load 0x2,0x2
00b2 01dc | | Execute Vector,Last
00b3 e405 | | Load 0x2,0x5
00b4 0263 | c | Execute Discrete,Above_Bound
00b5 7030 |p0 | Jump_Nonzero 0xe6
00b6 00d8 | | Load_Top At_Offset_0
00b7 e402 | | Load 0x2,0x2
00b8 01d5 | | Execute Vector,Field_Reference
00b9 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00ba 0e01 | | Execute_Immediate Not_Equal,0x1
00bb 680d |h | Jump_Zero 0xc9
00bc e409 | | Load 0x2,0x9
00bd 6809 |h | Jump_Zero 0xc7
00be 00cf | | Action Mark_Auxiliary
00bf 7802 |x | Jump 0xc2
00c0 840a | | Call 0x2,0xa
00c1 00c9 | | Action Pop_Auxiliary_Loop
00c2 e405 | | Load 0x2,0x5
00c3 00da | | Load_Top At_Offset_2
00c4 027c | | | Execute Discrete,Less
00c5 77fa |w | Jump_Nonzero 0xc0
00c6 00ce | | Action Pop_Auxiliary
00c7 00d2 | | Pop_Control Pop_Count_2
00c8 781d |x | Jump 0xe6
00c9 00db | | Load_Top At_Offset_3
00ca 00d9 | | Load_Top At_Offset_1
00cb e402 | | Load 0x2,0x2
00cc 01d5 | | Execute Vector,Field_Reference
00cd 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
00ce 027a | z | Execute Discrete,Less_Equal
00cf 680d |h | Jump_Zero 0xdd
00d0 00cf | | Action Mark_Auxiliary
00d1 7802 |x | Jump 0xd4
00d2 840a | | Call 0x2,0xa
00d3 00c9 | | Action Pop_Auxiliary_Loop
00d4 e405 | | Load 0x2,0x5
00d5 00da | | Load_Top At_Offset_2
00d6 027c | | | Execute Discrete,Less
00d7 77fa |w | Jump_Nonzero 0xd2
00d8 00ce | | Action Pop_Auxiliary
00d9 00db | | Load_Top At_Offset_3
00da a408 | | Store_Unchecked 0x2,0x8
00db 4801 |H | Short_Literal 0x1
00dc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00dd 00db | | Load_Top At_Offset_3
00de 00d9 | | Load_Top At_Offset_1
00df e402 | | Load 0x2,0x2
00e0 01d5 | | Execute Vector,Field_Reference
00e1 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
00e2 0272 | r | Execute Discrete,Minus
00e3 c602 | | Store 0x3,0x2
00e4 00c8 | | Action Pop_Auxiliary_Range
00e5 3fd0 |? | Loop_Increasing 0xb6
00e6 00ce | | Action Pop_Auxiliary
00e7 4800 |H | Short_Literal 0x0
00e8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00e9 0000 0000 | | .BLANK 0000[0x7]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f7 | | .CONST 0x00f7 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0003 | | .CONST 0x0003 ; Number of locals
00f3 INIT_00f0:
00f3 029f 0243 | C| Declare_Subprogram INIT_0240,For_Call
00f5 029f 0273 | s| Declare_Subprogram INIT_0270,For_Call
00f7 BODY_00f0:
00f7 e407 | | Load 0x2,0x7
00f8 0d01 | | Execute_Immediate Less,0x1
00f9 6803 |h | Jump_Zero 0xfd
00fa e405 | | Load 0x2,0x5
00fb 8602 | | Call 0x3,0x2
00fc 00ca | | Action Exit_Nullary_Function
00fd 8603 | | Call 0x3,0x3
00fe 0831 | 1 | Execute_Immediate Raise,0x31
00ff 0000 | | .XXX[0x1]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0107 | | .CONST 0x0107 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0003 | | .CONST 0x0003 ; Number of locals
0103 INIT_0100:
0103 00da | | Load_Top At_Offset_2
0104 00e2 | | Load_Encached Integer_Cache
0105 03f1 | | Declare_Variable Discrete,With_Value
0106 00e3 | | Load_Encached Natural_Cache
0107 BODY_0100:
0107 00cf | | Action Mark_Auxiliary
0108 7826 |x& | Jump 0x12f
0109 e405 | | Load 0x2,0x5
010a e402 | | Load 0x2,0x2
010b 01d5 | | Execute Vector,Field_Reference
010c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
010d 4604 |F | Jump_Case 0x5
010e 7807 |x | Jump 0x116 ; case 0x0
010f 7804 |x | Jump 0x114 ; case 0x1
0110 7802 |x | Jump 0x113 ; case 0x2
0111 7801 |x | Jump 0x113 ; case 0x3
0112 7800 |x | Jump 0x113 ; case 0x4
0113 08e0 | | Execute_Immediate Raise,0xe0
0114 840a | | Call 0x2,0xa
0115 7818 |x | Jump 0x12e
0116 e405 | | Load 0x2,0x5
0117 e402 | | Load 0x2,0x2
0118 01d5 | | Execute Vector,Field_Reference
0119 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
011a e245 | E | Load 0x1,0x45
011b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
011c 01db | | Execute Vector,Length
011d e407 | | Load 0x2,0x7
011e 0272 | r | Execute Discrete,Minus
011f 005a | Z | Store_Top Discrete,At_Offset_2
0120 00da | | Load_Top At_Offset_2
0121 00da | | Load_Top At_Offset_2
0122 027a | z | Execute Discrete,Less_Equal
0123 6805 |h | Jump_Zero 0x129
0124 e407 | | Load 0x2,0x7
0125 00db | | Load_Top At_Offset_3
0126 0273 | s | Execute Discrete,Plus
0127 c407 | | Store 0x2,0x7
0128 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0129 00da | | Load_Top At_Offset_2
012a 00da | | Load_Top At_Offset_2
012b 0272 | r | Execute Discrete,Minus
012c 005b | [ | Store_Top Discrete,At_Offset_3
012d 840a | | Call 0x2,0xa
012e 00c9 | | Action Pop_Auxiliary_Loop
012f 00da | | Load_Top At_Offset_2
0130 0c01 | | Execute_Immediate Greater_Equal,0x1
0131 77d7 |w | Jump_Nonzero 0x109
0132 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0133 0000 0000 | | .BLANK 0000[0x5]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013e | > | .CONST 0x013e ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0002 | | .CONST 0x0002 ; Number of locals
013b INIT_0138:
013b 00db | | Load_Top At_Offset_3
013c 840c | | Call 0x2,0xc
013d 800a | | Call 0x0,0xa
013e BODY_0138:
013e 00cf | | Action Mark_Auxiliary
013f 00d9 | | Load_Top At_Offset_1
0140 01db | | Execute Vector,Length
0141 e7ff | | Load 0x3,-0x1
0142 01db | | Execute Vector,Length
0143 0272 | r | Execute Discrete,Minus
0144 00d8 | | Load_Top At_Offset_0
0145 00e2 | | Load_Encached Integer_Cache
0146 0260 | ` | Execute Discrete,In_Type
0147 7001 |p | Jump_Nonzero 0x149
0148 0801 | | Execute_Immediate Raise,0x1
0149 4800 |H | Short_Literal 0x0
014a 0263 | c | Execute Discrete,Above_Bound
014b 702d |p- | Jump_Nonzero 0x179
014c e7ff | | Load 0x3,-0x1
014d e602 | | Load 0x3,0x2
014e 01dd | | Execute Vector,First
014f 00da | | Load_Top At_Offset_2
0150 0273 | s | Execute Discrete,Plus
0151 00d8 | | Load_Top At_Offset_0
0152 00e2 | | Load_Encached Integer_Cache
0153 0260 | ` | Execute Discrete,In_Type
0154 7001 |p | Jump_Nonzero 0x156
0155 0801 | | Execute_Immediate Raise,0x1
0156 e602 | | Load 0x3,0x2
0157 01dd | | Execute Vector,First
0158 00db | | Load_Top At_Offset_3
0159 0273 | s | Execute Discrete,Plus
015a e7ff | | Load 0x3,-0x1
015b 01db | | Execute Vector,Length
015c 0273 | s | Execute Discrete,Plus
015d 0aff | | Execute_Immediate Plus,-0x1
015e 00d8 | | Load_Top At_Offset_0
015f 00e2 | | Load_Encached Integer_Cache
0160 0260 | ` | Execute Discrete,In_Type
0161 7001 |p | Jump_Nonzero 0x163
0162 0801 | | Execute_Immediate Raise,0x1
0163 e602 | | Load 0x3,0x2
0164 01cf | | Execute Vector,Slice_Read
0165 01df | | Execute Vector,Equal
0166 680c |h | Jump_Zero 0x173
0167 00d8 | | Load_Top At_Offset_0
0168 e7ff | | Load 0x3,-0x1
0169 01db | | Execute Vector,Length
016a 0273 | s | Execute Discrete,Plus
016b 00d8 | | Load_Top At_Offset_0
016c 00e2 | | Load_Encached Integer_Cache
016d 0260 | ` | Execute Discrete,In_Type
016e 7001 |p | Jump_Nonzero 0x170
016f 0801 | | Execute_Immediate Raise,0x1
0170 840d | | Call 0x2,0xd
0171 4801 |H | Short_Literal 0x1
0172 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0173 e409 | | Load 0x2,0x9
0174 7002 |p | Jump_Nonzero 0x177
0175 00d2 | | Pop_Control Pop_Count_2
0176 7802 |x | Jump 0x179
0177 00c8 | | Action Pop_Auxiliary_Range
0178 3fd3 |? | Loop_Increasing 0x14c
0179 00ce | | Action Pop_Auxiliary
017a e409 | | Load 0x2,0x9
017b 682a |h* | Jump_Zero 0x1a6
017c 00cf | | Action Mark_Auxiliary
017d e402 | | Load 0x2,0x2
017e 01dc | | Execute Vector,Last
017f e405 | | Load 0x2,0x5
0180 0263 | c | Execute Discrete,Above_Bound
0181 7015 |p | Jump_Nonzero 0x197
0182 00d8 | | Load_Top At_Offset_0
0183 e402 | | Load 0x2,0x2
0184 01d5 | | Execute Vector,Field_Reference
0185 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0186 4800 |H | Short_Literal 0x0
0187 4801 |H | Short_Literal 0x1
0188 0262 | b | Execute Discrete,In_Range
0189 700b |p | Jump_Nonzero 0x195
018a 00cf | | Action Mark_Auxiliary
018b 7802 |x | Jump 0x18e
018c 840a | | Call 0x2,0xa
018d 00c9 | | Action Pop_Auxiliary_Loop
018e e405 | | Load 0x2,0x5
018f 00da | | Load_Top At_Offset_2
0190 027c | | | Execute Discrete,Less
0191 77fa |w | Jump_Nonzero 0x18c
0192 00ce | | Action Pop_Auxiliary
0193 4800 |H | Short_Literal 0x0
0194 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0195 00c8 | | Action Pop_Auxiliary_Range
0196 3feb |? | Loop_Increasing 0x182
0197 00ce | | Action Pop_Auxiliary
0198 00d8 | | Load_Top At_Offset_0
0199 01db | | Execute Vector,Length
019a e7ff | | Load 0x3,-0x1
019b 01db | | Execute Vector,Length
019c 0272 | r | Execute Discrete,Minus
019d 0a01 | | Execute_Immediate Plus,0x1
019e 00d8 | | Load_Top At_Offset_0
019f 00e2 | | Load_Encached Integer_Cache
01a0 0260 | ` | Execute Discrete,In_Type
01a1 7001 |p | Jump_Nonzero 0x1a3
01a2 0801 | | Execute_Immediate Raise,0x1
01a3 840d | | Call 0x2,0xd
01a4 e011 | | Load 0x0,0x11
01a5 0257 | W | Execute Discrete,Raise
01a6 4800 |H | Short_Literal 0x0
01a7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01b0 | | .CONST 0x01b0 ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0002 | | .CONST 0x0002 ; Number of locals
01ab INIT_01a8:
01ab e405 | | Load 0x2,0x5
01ac e402 | | Load 0x2,0x2
01ad 01d5 | | Execute Vector,Field_Reference
01ae 02fd | | Declare_Variable Variant_Record,Duplicate
01af 00cd | | Action Spare6_Action
01b0 BODY_01a8:
01b0 00d8 | | Load_Top At_Offset_0
01b1 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01b2 4604 |F | Jump_Case 0x5
01b3 7805 |x | Jump 0x1b9 ; case 0x0
01b4 780c |x | Jump 0x1c1 ; case 0x1
01b5 7810 |x | Jump 0x1c6 ; case 0x2
01b6 780f |x | Jump 0x1c6 ; case 0x3
01b7 7800 |x | Jump 0x1b8 ; case 0x4
01b8 0887 | | Execute_Immediate Raise,0x87
01b9 e407 | | Load 0x2,0x7
01ba 00d9 | | Load_Top At_Offset_1
01bb 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
01bc e245 | E | Load 0x1,0x45
01bd 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01be 01db | | Execute Vector,Length
01bf 027b | { | Execute Discrete,Greater_Equal
01c0 00ca | | Action Exit_Nullary_Function
01c1 e408 | | Load 0x2,0x8
01c2 00d9 | | Load_Top At_Offset_1
01c3 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
01c4 027b | { | Execute Discrete,Greater_Equal
01c5 00ca | | Action Exit_Nullary_Function
01c6 e406 | | Load 0x2,0x6
01c7 00ca | | Action Exit_Nullary_Function
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01d3 | | .CONST 0x01d3 ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0003 | | .CONST 0x0003 ; Number of locals
01cb INIT_01c8:
01cb e404 | | Load 0x2,0x4
01cc e403 | | Load 0x2,0x3
01cd 01d5 | | Execute Vector,Field_Reference
01ce 02fd | | Declare_Variable Variant_Record,Duplicate
01cf 00cd | | Action Spare6_Action
01d0 00d8 | | Load_Top At_Offset_0
01d1 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01d2 0007 | | Action Break_Optional
01d3 BODY_01c8:
01d3 840f | | Call 0x2,0xf
01d4 6801 |h | Jump_Zero 0x1d6
01d5 840a | | Call 0x2,0xa
01d6 00cf | | Action Mark_Auxiliary
01d7 780b |x | Jump 0x1e3
01d8 e405 | | Load 0x2,0x5
01d9 e402 | | Load 0x2,0x2
01da 01d5 | | Execute Vector,Field_Reference
01db 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01dc 0f01 | | Execute_Immediate Equal,0x1
01dd 6802 |h | Jump_Zero 0x1e0
01de 840a | | Call 0x2,0xa
01df 7802 |x | Jump 0x1e2
01e0 4800 |H | Short_Literal 0x0
01e1 00ca | | Action Exit_Nullary_Function
01e2 00c9 | | Action Pop_Auxiliary_Loop
01e3 00d9 | | Load_Top At_Offset_1
01e4 e405 | | Load 0x2,0x5
01e5 e402 | | Load 0x2,0x2
01e6 01d5 | | Execute Vector,Field_Reference
01e7 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01e8 027e | ~ | Execute Discrete,Not_Equal
01e9 77ee |w | Jump_Nonzero 0x1d8
01ea 00ce | | Action Pop_Auxiliary
01eb 00d8 | | Load_Top At_Offset_0
01ec 4604 |F | Jump_Case 0x5
01ed 7805 |x | Jump 0x1f3 ; case 0x0
01ee 780c |x | Jump 0x1fb ; case 0x1
01ef 780f |x | Jump 0x1ff ; case 0x2
01f0 780e |x | Jump 0x1ff ; case 0x3
01f1 7800 |x | Jump 0x1f2 ; case 0x4
01f2 0887 | | Execute_Immediate Raise,0x87
01f3 00d9 | | Load_Top At_Offset_1
01f4 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
01f5 00da | | Load_Top At_Offset_2
01f6 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
01f7 e245 | E | Load 0x1,0x45
01f8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01f9 840e | | Call 0x2,0xe
01fa 00ca | | Action Exit_Nullary_Function
01fb 00d9 | | Load_Top At_Offset_1
01fc 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
01fd 840b | | Call 0x2,0xb
01fe 00ca | | Action Exit_Nullary_Function
01ff 4801 |H | Short_Literal 0x1
0200 a406 | | Store_Unchecked 0x2,0x6
0201 4801 |H | Short_Literal 0x1
0202 00ca | | Action Exit_Nullary_Function
0203 0000 0000 | | .BLANK 0000[0x5]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b | | .CONST 0x020b ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0001 | | .CONST 0x0001 ; Number of locals
020b BODY_0208:
020b INIT_0208:
020b e409 | | Load 0x2,0x9
020c 700c |p | Jump_Nonzero 0x219
020d e5fd | | Load 0x2,-0x3
020e 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
020f e5fd | | Load 0x2,-0x3
0210 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0211 e404 | | Load 0x2,0x4
0212 e403 | | Load 0x2,0x3
0213 01d5 | | Execute Vector,Field_Reference
0214 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0215 6801 |h | Jump_Zero 0x217
0216 0887 | | Execute_Immediate Raise,0x87
0217 4801 |H | Short_Literal 0x1
0218 a409 | | Store_Unchecked 0x2,0x9
0219 840a | | Call 0x2,0xa
021a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
021b 0000 0000 | | .BLANK 0000[0x5]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223 | # | .CONST 0x0223 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0001 | | .CONST 0x0001 ; Number of locals
0223 BODY_0220:
0223 INIT_0220:
0223 00da | | Load_Top At_Offset_2
0224 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0225 0f01 | | Execute_Immediate Equal,0x1
0226 6805 |h | Jump_Zero 0x22c
0227 00da | | Load_Top At_Offset_2
0228 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0229 e212 | | Load 0x1,0x12
022a 027c | | | Execute Discrete,Less
022b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
022c 4800 |H | Short_Literal 0x0
022d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
022e 0000 0000 | | .XXX[0x2]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233 | 3 | .CONST 0x0233 ; Address of begin
0231 023a | : | .CONST 0x023a ; Address of exception handler
0232 0001 | | .CONST 0x0001 ; Number of locals
0233 BODY_0230:
0233 INIT_0230:
0233 00cf | | Action Mark_Auxiliary
0234 7802 |x | Jump 0x237
0235 8411 | | Call 0x2,0x11
0236 00c9 | | Action Pop_Auxiliary_Loop
0237 8410 | | Call 0x2,0x10
0238 6ffc |o | Jump_Zero 0x235
0239 4501 |E | Exit_Suprogram New_Top_Offset 0x1
023a TRAP_0230:
023a e011 | | Load 0x0,0x11
023b 010f | | Execute Exception,Equal
023c 6802 |h | Jump_Zero 0x23f
023d 00cc | | Action Pop_Block
023e 7e2b |~+ | Jump 0x6a
023f 0100 | | Execute Exception,Raise
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243 | C | .CONST 0x0243 ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0001 | | .CONST 0x0001 ; Number of locals
0243 BODY_0240:
0243 INIT_0240:
0243 00cf | | Action Mark_Auxiliary
0244 e402 | | Load 0x2,0x2
0245 01dc | | Execute Vector,Last
0246 e9ff | | Load 0x4,-0x1
0247 0263 | c | Execute Discrete,Above_Bound
0248 701e |p | Jump_Nonzero 0x267
0249 00d8 | | Load_Top At_Offset_0
024a e402 | | Load 0x2,0x2
024b 01d5 | | Execute Vector,Field_Reference
024c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
024d 4604 |F | Jump_Case 0x5
024e 7806 |x | Jump 0x255 ; case 0x0
024f 7815 |x | Jump 0x265 ; case 0x1
0250 7802 |x | Jump 0x253 ; case 0x2
0251 7801 |x | Jump 0x253 ; case 0x3
0252 7800 |x | Jump 0x253 ; case 0x4
0253 00d2 | | Pop_Control Pop_Count_2
0254 7812 |x | Jump 0x267
0255 00d8 | | Load_Top At_Offset_0
0256 e402 | | Load 0x2,0x2
0257 01d5 | | Execute Vector,Field_Reference
0258 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0259 e245 | E | Load 0x1,0x45
025a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
025b 00d9 | | Load_Top At_Offset_1
025c 0a01 | | Execute_Immediate Plus,0x1
025d 00d8 | | Load_Top At_Offset_0
025e 00e3 | | Load_Encached Natural_Cache
025f 0260 | ` | Execute Discrete,In_Type
0260 7001 |p | Jump_Nonzero 0x262
0261 0801 | | Execute_Immediate Raise,0x1
0262 8602 | | Call 0x3,0x2
0263 01cc | | Execute Vector,Catenate
0264 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0265 00c8 | | Action Pop_Auxiliary_Range
0266 3fe2 |? | Loop_Increasing 0x249
0267 00ce | | Action Pop_Auxiliary
0268 e013 | | Load 0x0,0x13
0269 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
026a 0000 0000 | | .BLANK 0000[0x6]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0279 | y | .CONST 0x0279 ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 0002 | | .CONST 0x0002 ; Number of locals
0273 INIT_0270:
0273 e405 | | Load 0x2,0x5
0274 e402 | | Load 0x2,0x2
0275 01d5 | | Execute Vector,Field_Reference
0276 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0277 e245 | E | Load 0x1,0x45
0278 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0279 BODY_0270:
0279 e407 | | Load 0x2,0x7
027a 00d9 | | Load_Top At_Offset_1
027b 01db | | Execute Vector,Length
027c 027b | { | Execute Discrete,Greater_Equal
027d 680a |h | Jump_Zero 0x288
027e e405 | | Load 0x2,0x5
027f 0a01 | | Execute_Immediate Plus,0x1
0280 00d8 | | Load_Top At_Offset_0
0281 00e3 | | Load_Encached Natural_Cache
0282 0260 | ` | Execute Discrete,In_Type
0283 7001 |p | Jump_Nonzero 0x285
0284 0801 | | Execute_Immediate Raise,0x1
0285 8602 | | Call 0x3,0x2
0286 00cb | | Action Pop_Block_With_Result
0287 00ca | | Action Exit_Nullary_Function
0288 00d8 | | Load_Top At_Offset_0
0289 01dd | | Execute Vector,First
028a e407 | | Load 0x2,0x7
028b 0273 | s | Execute Discrete,Plus
028c 00d8 | | Load_Top At_Offset_0
028d 00e2 | | Load_Encached Integer_Cache
028e 0260 | ` | Execute Discrete,In_Type
028f 7001 |p | Jump_Nonzero 0x291
0290 0801 | | Execute_Immediate Raise,0x1
0291 00d9 | | Load_Top At_Offset_1
0292 01dc | | Execute Vector,Last
0293 00da | | Load_Top At_Offset_2
0294 01cf | | Execute Vector,Slice_Read
0295 e405 | | Load 0x2,0x5
0296 0a01 | | Execute_Immediate Plus,0x1
0297 00d8 | | Load_Top At_Offset_0
0298 00e3 | | Load_Encached Natural_Cache
0299 0260 | ` | Execute Discrete,In_Type
029a 7001 |p | Jump_Nonzero 0x29c
029b 0801 | | Execute_Immediate Raise,0x1
029c 8602 | | Call 0x3,0x2
029d 01cc | | Execute Vector,Catenate
029e 00cb | | Action Pop_Block_With_Result
029f 00ca | | Action Exit_Nullary_Function
02a0 ; --------------------------------------------------------------------------------------
02a0 ; Debug Table
02a0 ; --------------------------------------------------------------------------------------
02a0 0004 000a | | .DEBUG4 0x0004,0x000a,0x7e43,0x0000,0x0001,0x0000
02a6 0000 c9e2 | | .XXX[0x141]
02a8 b4c0 0040 | @|
02aa 0363 109a | c |
02ac d0b0 001c | |
02ae a211 0000 | |
02b0 0000 0002 | |
02b2 753d a002 |u= |
02b4 7530 0878 |u0 x|
02b6 0000 0000 | |
02b8 0000 0200 | |
02ba 0000 1880 | |
02bc 0000 0008 | |
02be 0000 0078 | x|
02c0 5218 0000 |R |
02c2 0008 5548 | UH|
02c4 0000 0070 | p|
02c6 5558 0000 |UX |
02c8 0010 5568 | Uh|
02ca 0000 0018 | |
02cc 5578 0000 |Ux |
02ce 0020 5588 | U |
02d0 0000 0028 | (|
02d2 5598 0000 |U |
02d4 0030 55a8 | 0U |
02d6 0000 0038 | 8|
02d8 55b8 0000 |U |
02da 0040 55c8 | @U |
02dc 0000 0048 | H|
02de 55d8 0000 |U |
02e0 0050 55e8 | PU |
02e2 0000 0058 | X|
02e4 55f8 0000 |U |
02e6 0060 5608 | `V |
02e8 0000 0068 | h|
02ea 5630 0000 |V0 |
02ec 007c 0820 | | |
02ee 04e9 1b81 | |
02f0 5a00 3d21 |Z =!|
02f2 5c8a ce21 |\ !|
02f4 6004 e56a |` j|
02f6 403d 015c |@= \|
02f8 eace 2160 | !`|
02fa 04e9 4440 | D@|
02fc 3c61 5d6a |<a]j|
02fe ce21 6004 | !` |
0300 0011 8404 | |
0302 2000 02bf | |
0304 001d 50b1 | P |
0306 0000 4504 | E |
0308 bccc 426b | Bk|
030a 42c0 0038 |B 8|
030c 9940 09d1 | @ |
030e 0740 0000 | @ |
0310 0000 7942 | yB|
0312 bd15 9c42 | B|
0314 c009 ca50 | P|
0316 a041 0027 | A '|
0318 4ecd 0ad1 |N |
031a 3109 ad0b |1 |
031c 000b be6e | n|
031e 0027 7ad9 | 'z |
0320 0027 63a0 | 'c |
0322 0afb 0000 | |
0324 0000 01ec | |
0326 0b00 5671 | Vq|
0328 0b00 26ca | & |
032a 0200 290b | ) |
032c 0b56 710b | Vq |
032e 0027 4f0b | 'O |
0330 0b0b 0000 | |
0332 0008 cc42 | B|
0334 6b42 c000 |kB |
0336 734b 8400 |sK |
0338 0000 0000 | |
033a 09d6 50c0 | P |
033c 09d6 1a61 | a|
033e c000 0000 | |
0340 0000 0008 | |
0342 0000 005c | \|
0344 0000 0000 | |
0346 2000 0001 | |
0348 c15a 6000 | Z` |
034a 0000 215a | !Z|
034c e000 0000 | |
034e 215b 0000 |![ |
0350 0000 415b | A[|
0352 2000 0000 | |
0354 615c 2000 |a\ |
0356 0000 815c | \|
0358 4000 0000 |@ |
035a a15d 6000 | ]` |
035c 0000 c15d | ]|
035e 8000 0000 | |
0360 e15d e000 | ] |
0362 0001 015e | ^|
0364 0000 0001 | |
0366 215e 4000 |!^@ |
0368 0001 415e | A^|
036a 8000 0001 | |
036c 615e a000 |a^ |
036e 0001 815f | _|
0370 4000 0001 |@ |
0372 d020 8013 | |
0374 a8b1 0584 | |
0376 00f7 0587 | |
0378 ab38 8580 | 8 |
037a 137d ab80 | } |
037c f785 8bab | |
037e 3885 8013 |8 |
0380 7f45 8015 | E |
0382 058d ab38 | 8|
0384 8580 137e | ~|
0386 2705 8d80 |' |
0388 0000 1066 | f|
038a 2135 a160 |!5 `|
038c 003a 0762 | : b|
038e 0000 0000 | |
0390 0004 ed6b | k|
0392 4004 ed50 |@ P|
0394 1080 0000 | |
0396 0000 0000 | |
0398 0400 0000 | |
039a 1c00 0000 | |
039c 0010 0000 | |
039e 0080 b0b0 | |
03a0 0000 0010 | |
03a2 b0e0 0000 | |
03a4 0020 b0f0 | |
03a6 0000 0030 | 0|
03a8 b100 0000 | |
03aa 0040 b110 | @ |
03ac 0000 0050 | P|
03ae b120 0000 | |
03b0 0060 b130 | ` 0|
03b2 0000 0070 | p|
03b4 b160 0000 | ` |
03b6 0088 1040 | @|
03b8 09d5 c8c2 | |
03ba c600 7fc2 | |
03bc cf55 9c42 | U B|
03be c009 cf4f | O|
03c0 0000 059f | |
03c2 1884 d685 | |
03c4 8000 9a65 | e|
03c6 8013 a835 | 5|
03c8 8000 0000 | |
03ca 00fe 859f | |
03cc ab38 8580 | 8 |
03ce 139e 1a00 | |
03d0 000b 4031 | @1|
03d2 09ad 0b00 | |
03d4 013f 4a00 | ?J |
03d6 275c 0200 |'\ |
03d8 0000 0001 | |
03da fb0b 4156 | AV|
03dc 710b 0027 |q '|
03de 3b2c 0000 |;, |
03e0 1684 6213 | b |
03e2 5a16 0002 |Z |
03e4 86c4 004e | N|
03e6 b9f2 | |
03e7 0000 0000 | | .BLANK 0000[0x5]
03ec 0012 04eb | | .XXX[0x14]
03ee 0000 0000 | |
03f0 0001 0404 | |
03f2 0000 0700 | |
03f4 0000 0000 | |
03f6 0000 0024 | $|
03f8 ff0d 0038 | 8|
03fa 0800 0001 | |
03fc 0000 0000 | |
03fe 0000 0008 | |