|
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 - metrics - download
Length: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5850da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 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,Fixed,Indirect,Field_Number 0x2
000d 0007 | | Action Break_Optional
000e e5fe | | Load 0x2,-0x2
000f 2502 |% | Execute Variant_Record,Field_Reference,Fixed,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 For_Call,INIT_0078
002e 029f 00ab | | Declare_Subprogram For_Call,INIT_00a8
0030 029f 00f3 | | Declare_Subprogram For_Call,INIT_00f0
0032 029f 0103 | | Declare_Subprogram For_Call,INIT_0100
0034 029f 013b | ;| Declare_Subprogram For_Call,INIT_0138
0036 029f 01ab | | Declare_Subprogram For_Call,INIT_01a8
0038 029f 01cb | | Declare_Subprogram For_Call,INIT_01c8
003a 029f 020b | | Declare_Subprogram For_Call,INIT_0208
003c 029f 0223 | #| Declare_Subprogram For_Call,INIT_0220
003e 029f 0233 | 3| Declare_Subprogram For_Call,INIT_0230
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_Subprogram 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_Subprogram 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_Result,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_Result,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 For_Call,INIT_0240
00f5 029f 0273 | s| Declare_Subprogram For_Call,INIT_0270
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 0x4
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_Subprogram 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_Subprogram 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_Result,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_Result,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_Result,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 0x4
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 0x4
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_Subprogram 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_Result,0x1
022c 4800 |H | Short_Literal 0x0
022d 4401 |D | Exit_Subprogram With_Result,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_Subprogram 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 0x4
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_Result,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_Result,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 4000 a35a |@ Z| .XXX[0x6]
02a8 8500 0000 | |
02aa 4000 2600 |@ & |
02ac 0000 0000 | | .BLANK 0000[0x5]
02b1 28d6 a140 |( @| .XXX[0x9]
02b3 0000 1008 | |
02b5 0d95 70f0 | p |
02b7 0000 0000 | |
02b9 5000 |P |
02ba 0000 0000 | | .BLANK 0000[0x5]
02bf 2000 0000 | | .XXX[0x4]
02c1 0009 8000 | |
02c3 0000 0000 | | .BLANK 0000[0x8]
02cb 0206 5e34 | ^4| .XXX[0x5]
02cd 679b b800 |g |
02cf 0014 | |
02d0 0000 0000 | | .BLANK 0000[0x5]
02d5 0008 0000 | | .XXX[0x9]
02d7 0000 0000 | |
02d9 0018 0002 | |
02db b098 09d0 | |
02dd 4870 |Hp |
02de 0000 0000 | | .BLANK 0000[0x4]
02e2 04e8 3984 | 9 | .XXX[0x1c]
02e4 0000 0b0b | |
02e6 2042 5aee | BZ |
02e8 2000 0000 | |
02ea 0050 212d | P!-|
02ec 7710 0000 |w |
02ee 0000 2000 | |
02f0 0000 0000 | |
02f2 0000 0001 | |
02f4 5928 8500 |Y( |
02f6 0000 4001 | @ |
02f8 592c 8500 |Y, |
02fa 0000 4000 | @ |
02fc 2600 1800 |& |
02fe 0000 0000 | | .BLANK 0000[0x4]
0302 564b 2140 |VK!@| .XXX[0x12]
0304 0000 1008 | |
0306 1096 bb88 | |
0308 0000 0000 | |
030a 1000 0000 | |
030c 9000 07ec | |
030e 0000 0000 | |
0310 2000 0000 | |
0312 4009 8006 |@ |
0314 0000 0000 | | .BLANK 0000[0x8]
031c 0207 0129 | )| .XXX[0x32]
031e 7acf 2400 |z $ |
0320 0004 0000 | |
0322 0024 0001 | $ |
0324 fb00 0000 | |
0326 0008 0000 | |
0328 0010 0000 | |
032a 0018 0003 | |
032c 2eb8 09d0 |. |
032e 70f0 09cf |p |
0330 f268 09d1 | h |
0332 3668 04e8 |6h |
0334 4dc4 0000 |M |
0336 18df 203a | :|
0338 90e3 2000 | |
033a 0000 0050 | P|
033c 1d48 7190 | Hq |
033e 0000 0000 | |
0340 2000 0000 | |
0342 0000 0000 | |
0344 0001 6e28 | n(|
0346 8500 0000 | |
0348 4001 6e2c |@ n,|
034a 8500 0000 | |
034c 4000 2600 |@ & |
034e 0000 0000 | | .BLANK 0000[0x5]
0353 5b8b 2140 |[ !@| .XXX[0x12]
0355 0000 1008 | |
0357 0ea4 38c8 | 8 |
0359 0000 0000 | |
035b 1000 0000 | |
035d 9000 0827 | '|
035f a000 0000 | |
0361 2000 0000 | |
0363 4009 8000 |@ |
0365 0000 0000 | | .BLANK 0000[0x8]
036d 0207 0137 | 7| .XXX[0x13]
036f 0656 c800 | V |
0371 0004 0000 | |
0373 0024 0002 | $ |
0375 09e8 0000 | |
0377 0008 0000 | |
0379 0010 0000 | |
037b 0018 0003 | |
037d 4e40 09d0 |N@ |
037f 9970 | p |
0380 0000 0000 | | .BLANK 0000[0x4]
0384 04e8 6204 | b | .XXX[0x1b]
0386 0004 4ceb | L |
0388 a05f 190e | _ |
038a 4000 0000 |@ |
038c 0490 2f8c | / |
038e 8720 0000 | |
0390 0002 4000 | @ |
0392 0000 0000 | |
0394 0000 0007 | |
0396 3dc2 8500 |= |
0398 0000 4007 | @ |
039a 3dc4 8500 |= |
039c 0000 4000 | @ |
039e 2600 |& |
039f 0000 0000 | | .BLANK 0000[0x4]
03a3 0001 cf71 | q| .XXX[0x13]
03a5 2140 0000 |!@ |
03a7 1008 17c6 | |
03a9 4390 0000 |C |
03ab 0001 2000 | |
03ad 0000 9000 | |
03af 0caf 6000 | ` |
03b1 0000 2000 | |
03b3 0000 2009 | |
03b5 8000 | |
03b6 0000 0000 | | .BLANK 0000[0x8]
03be 0207 e521 | !| .XXX[0x42]
03c0 7b64 4800 |{dH |
03c2 0048 0000 | H |
03c4 0024 0003 | $ |
03c6 2bd8 0000 |+ |
03c8 0008 0000 | |
03ca 0008 0000 | |
03cc 0018 0005 | |
03ce 6648 09d0 |fH |
03d0 c1f0 09d0 | |
03d2 bce8 09d1 | |
03d4 0de8 04e8 | |
03d6 7644 0005 |vD |
03d8 6e65 207f |ne |
03da dd71 184f | q O|
03dc 8000 0bd0 | |
03de 40a9 08ed |@ |
03e0 9340 0005 | @ |
03e2 e400 0000 | |
03e4 0000 0000 | |
03e6 0008 bb5c | \|
03e8 8580 0000 | |
03ea 4008 bb6a |@ j|
03ec 8580 0000 | |
03ee 4004 6600 |@ f |
03f0 9800 0000 | |
03f2 0000 0000 | |
03f4 0002 2ed7 | . |
03f6 2160 0000 |!` |
03f8 1008 1ff7 | |
03fa 5e60 62f0 |^`b |
03fc 0002 f000 | |
03fe 0000 9000 | |