|
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_6a18da
└─⟦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 2354 c9e4 |#T | .XXX[0x16]
02a8 0000 0004 | |
02aa c2ac e000 | |
02ac 1a2f 4000 | /@ |
02ae 0000 0000 | |
02b0 0000 0002 | |
02b2 617e 8000 |a~ |
02b4 0000 0000 | |
02b6 0001 0002 | |
02b8 a89f a000 | |
02ba 0b7b 4000 | {@ |
02bc 0000 0000 | | .BLANK 0000[0x4]
02c0 0d26 2002 | & | .XXX[0x18]
02c2 6172 8002 |ar |
02c4 618a 8000 |a |
02c6 0d26 c000 | & |
02c8 0000 0002 | |
02ca 6196 9000 |a |
02cc 23cf e000 |# |
02ce 0000 0000 | |
02d0 0000 0017 | |
02d2 3d90 b000 |= |
02d4 0ddf 2001 | |
02d6 306a e000 |0j |
02d8 0000 0000 | | .BLANK 0000[0x4]
02dc 9876 c000 | v | .XXX[0x4]
02de 987d c800 | } |
02e0 0000 0000 | | .BLANK 0000[0x8]
02e8 9884 d000 | | .XXX[0xf]
02ea 0000 0000 | |
02ec 03b4 0300 | |
02ee 130f 5900 | Y |
02f0 0000 0000 | |
02f2 0000 0200 | |
02f4 0000 0000 | |
02f6 0068 | h |
02f7 0000 0000 | | .BLANK 0000[0x5]
02fc 0988 1d00 | | .XXX[0x18]
02fe 0000 0000 | |
0300 0001 0804 | |
0302 0800 05ec | |
0304 006a 18da | j |
0306 0000 fd55 | U|
0308 0000 0000 | |
030a 04c4 46c0 | F |
030c 0000 0000 | |
030e 0000 0080 | |
0310 0000 0000 | |
0312 001a 4c80 | L |
0314 0000 0000 | | .BLANK 0000[0x4]
0318 2ca8 2140 |, !@| .XXX[0x6]
031a 001a 5340 | S@|
031c 0261 b6a0 | a |
031e 0000 0000 | | .BLANK 0000[0x6]
0324 0131 33f0 | 13 | .XXX[0x6]
0326 0131 4800 | 1H |
0328 0131 5610 | 1V |
032a 0000 0000 | | .BLANK 0000[0x4]
032e 02a9 c4b0 | | .XXX[0x10]
0330 0000 0000 | |
0332 000e c88e | |
0334 0026 2840 | &(@|
0336 0000 0000 | |
0338 0000 000c | |
033a 0000 0000 | |
033c 0002 2458 | $X|
033e 0000 0000 | | .BLANK 0000[0x4]
0342 0002 25a0 | % | .XXX[0x10]
0344 0026 2780 | &' |
0346 0055 a54e | U N|
0348 0013 1501 | |
034a 0000 0000 | |
034c 0000 0002 | |
034e 0000 0000 | |
0350 0001 12d0 | |
0352 0000 0000 | | .BLANK 0000[0x4]
0356 0009 8af1 | | .XXX[0x14]
0358 0000 0000 | |
035a 0000 0002 | |
035c 0000 0000 | |
035e 0000 8916 | |
0360 0000 0000 | |
0362 0015 6b93 | k |
0364 c339 5242 | 9RB|
0366 8000 3480 | 4 |
0368 4004 c487 |@ |
036a 0000 0000 | | .BLANK 0000[0x6]
0370 0002 6300 | c | .XXX[0x7]
0372 c000 0000 | |
0374 0002 643c | d<|
0376 e000 | |
0377 0000 0000 | | .BLANK 0000[0x8]
037f 2208 5000 |" P | .XXX[0xc]
0381 4c6c 9c00 |Ll |
0383 0000 0000 | |
0385 0000 c800 | |
0387 0000 0000 | |
0389 019d 3800 | 8 |
038b 0000 0000 | | .BLANK 0000[0x4]
038f 019d 4800 | H | .XXX[0x8]
0391 4c62 1c00 |Lb |
0393 4c65 1c00 |Le |
0395 019d f400 | |
0397 0000 0000 | | .BLANK 0000[0x4]
039b 019d fc00 | | .XXX[0x8]
039d 4c63 9c00 |Lc |
039f 4c69 9c00 |Li |
03a1 019e 0400 | |
03a3 0000 0000 | | .BLANK 0000[0x4]
03a7 019e 0c00 | | .XXX[0x8]
03a9 4c68 1c00 |Lh |
03ab 4c6b 1c00 |Lk |
03ad 019e 2000 | |
03af 0000 0000 | | .BLANK 0000[0x4]
03b3 019e 2800 | ( | .XXX[0x8]
03b5 4c66 9c00 |Lf |
03b7 4c78 9e00 |Lx |
03b9 019e 3800 | 8 |
03bb 0000 0000 | | .BLANK 0000[0x4]
03bf 019e 4800 | H | .XXX[0x8]
03c1 4c6e 1c00 |Ln |
03c3 4c71 1c00 |Lq |
03c5 019e 5800 | X |
03c7 0000 0000 | | .BLANK 0000[0x4]
03cb 019e 6000 | ` | .XXX[0x8]
03cd 4c6f 9c00 |Lo |
03cf 4c75 9c00 |Lu |
03d1 019e 6c00 | l |
03d3 0000 0000 | | .BLANK 0000[0x4]
03d7 019e 8c00 | | .XXX[0x8]
03d9 4c74 1c00 |Lt |
03db 4c77 1c00 |Lw |
03dd 019e 9400 | |
03df 0000 0000 | | .BLANK 0000[0x4]
03e3 019e 9c00 | | .XXX[0x5]
03e5 4c72 9c00 |Lr |
03e7 4c7e |L~ |
03e8 0000 0000 | | .BLANK 0000[0x4]
03ec 007e b4da | ~ | .XXX[0x14]
03ee 0000 0000 | |
03f0 0001 0404 | |
03f2 0000 0700 | |
03f4 0000 0000 | |
03f6 0000 0024 | $|
03f8 ff30 003e | 0 >|
03fa 0800 0001 | |
03fc 0000 0000 | |
03fe 0000 000e | |