|
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 | |