|
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: 4096 (0x1000)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6148f2
└─⟦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 0678 | x | .CONST 0x0678 ; 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 0003 | | .CONST 0x0003 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0010 | | .CONST 0x0010 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0001 | | .CONST 0x0001 ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
000f 00c7 | | Action Elaborate_Subprogram
0010 BODY_0008:
0010 00bc | | Action Signal_Activated
0011 00bb | | Action Signal_Completion
0012 0000 0000 | | .BLANK 0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 006c | l | .CONST 0x006c ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0017 | | .CONST 0x0017 ; Number of locals
001b INIT_0018:
001b e002 | | Load 0x0,0x2
001c 0322 | " | Declare_Variable Record
001d 00d8 | | Load_Top At_Offset_0
001e 1c00 | | Execute_Immediate Run_Utility,0x0
001f e002 | | Load 0x0,0x2
0020 0322 | " | Declare_Variable Record
0021 00d8 | | Load_Top At_Offset_0
0022 1c00 | | Execute_Immediate Run_Utility,0x0
0023 e003 | | Load 0x0,0x3
0024 0266 | f | Execute Discrete,Bounds
0025 e002 | | Load 0x0,0x2
0026 029f 047b | {| Declare_Subprogram INIT_0478,For_Call
0028 4801 |H | Short_Literal 0x1
0029 0350 | P | Declare_Type Array,Defined,Bounds_With_Object
002a 4801 |H | Short_Literal 0x1
002b 480a |H | Short_Literal 0xa
002c 00da | | Load_Top At_Offset_2
002d 035b | [ | Declare_Type Array,Constrained
002e 0337 | 7 | Declare_Variable Array
002f 00d8 | | Load_Top At_Offset_0
0030 1c00 | | Execute_Immediate Run_Utility,0x0
0031 4801 |H | Short_Literal 0x1
0032 480a |H | Short_Literal 0xa
0033 e004 | | Load 0x0,0x4
0034 035b | [ | Declare_Type Array,Constrained
0035 0337 | 7 | Declare_Variable Array
0036 00e1 | | Load_Encached Boolean_Cache
0037 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0038 029e 0493 | | Declare_Subprogram INIT_0490,For_Call,Unelaborated
003a a005 | | Store_Unchecked 0x0,0x5
003b 00c6 | | Action Check_Subprogram_Elaborated
003c e002 | | Load 0x0,0x2
003d e006 | | Load 0x0,0x6
003e 0320 | | Declare_Variable Record,Duplicate
003f 00cd | | Action Spare6_Action
0040 e404 | | Load 0x2,0x4
0041 4808 |H | Short_Literal 0x8
0042 4802 |H | Short_Literal 0x2
0043 0099 | | Action Reference_Dynamic
0044 0093 0000 | | push_full_address 0x0
0046 623d |b= | Indirect_Literal Discrete,0x284,{0x80000000, 0x00020000}
0047 0273 | s | Execute Discrete,Plus
0048 e007 | | Load 0x0,0x7
0049 0273 | s | Execute Discrete,Plus
004a e008 | | Load 0x0,0x8
004b 0273 | s | Execute Discrete,Plus
004c 480e |H | Short_Literal 0xe
004d 0007 | | Action Break_Optional
004e a009 | | Store_Unchecked 0x0,0x9
004f 00c6 | | Action Check_Subprogram_Elaborated
0050 e002 | | Load 0x0,0x2
0051 e006 | | Load 0x0,0x6
0052 0320 | | Declare_Variable Record,Duplicate
0053 00cd | | Action Spare6_Action
0054 e404 | | Load 0x2,0x4
0055 4808 |H | Short_Literal 0x8
0056 4802 |H | Short_Literal 0x2
0057 0099 | | Action Reference_Dynamic
0058 0093 0000 | | push_full_address 0x0
005a 6225 |b% | Indirect_Literal Discrete,0x280,{0x80000000, 0x00010000}
005b 0273 | s | Execute Discrete,Plus
005c e007 | | Load 0x0,0x7
005d 0273 | s | Execute Discrete,Plus
005e e00a | | Load 0x0,0xa
005f 0273 | s | Execute Discrete,Plus
0060 4814 |H | Short_Literal 0x14
0061 0007 | | Action Break_Optional
0062 4808 |H | Short_Literal 0x8
0063 4802 |H | Short_Literal 0x2
0064 0099 | | Action Reference_Dynamic
0065 00c7 | | Action Elaborate_Subprogram
0066 029f 049b | | Declare_Subprogram INIT_0498,For_Call
0068 029f 04db | | Declare_Subprogram INIT_04d8,For_Call
006a 029f 0543 | C| Declare_Subprogram INIT_0540,For_Call
006c BODY_0018:
006c 800b | | Call 0x0,0xb
006d e002 | | Load 0x0,0x2
006e 0322 | " | Declare_Variable Record
006f 4be8 |K | Short_Literal 0x3e8
0070 00d9 | | Load_Top At_Offset_1
0071 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0072 4801 |H | Short_Literal 0x1
0073 e00c | | Load 0x0,0xc
0074 e00d | | Load 0x0,0xd
0075 00ad | | QQ_Action Package,Field_Execute_Dynamic
0076 0092 05ad | | Action Push_String_Extended,0x5ad ; "X_Rm_Unique_Quark"
0078 800e | | Call 0x0,0xe
0079 00cf | | Action Mark_Auxiliary
007a 4805 |H | Short_Literal 0x5
007b 4801 |H | Short_Literal 0x1
007c 0007 | | Action Break_Optional
007d 800f | | Call 0x0,0xf
007e e402 | | Load 0x2,0x2
007f 017d | } | Execute Record,Structure_Write
0080 0092 05ae | | Action Push_String_Extended,0x5ae ; "Unique quark "
0082 8010 | | Call 0x0,0x10
0083 480a |H | Short_Literal 0xa
0084 4801 |H | Short_Literal 0x1
0085 e402 | | Load 0x2,0x2
0086 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0087 8011 | | Call 0x0,0x11
0088 0092 05af | | Action Push_String_Extended,0x5af ; " => "
008a 8010 | | Call 0x0,0x10
008b e402 | | Load 0x2,0x2
008c 8012 | | Call 0x0,0x12
008d 8013 | | Call 0x0,0x13
008e 4801 |H | Short_Literal 0x1
008f 8014 | | Call 0x0,0x14
0090 00c8 | | Action Pop_Auxiliary_Range
0091 3feb |? | Loop_Increasing 0x7d
0092 00ce | | Action Pop_Auxiliary
0093 0092 05b0 | | Action Push_String_Extended,0x5b0 ; "X_Rm_Quark_To/From_String"
0095 800e | | Call 0x0,0xe
0096 4801 |H | Short_Literal 0x1
0097 4800 |H | Short_Literal 0x0
0098 4800 |H | Short_Literal 0x0
0099 e015 | | Load 0x0,0x15
009a 0334 | 4 | Declare_Variable Array,With_Constraint
009b 51ec |Q | Indirect_Literal Any,0x288,{0x30000000, 0x00000000}
009c 8415 | | Call 0x2,0x15
009d 4801 |H | Short_Literal 0x1
009e 4800 |H | Short_Literal 0x0
009f 4802 |H | Short_Literal 0x2
00a0 e015 | | Load 0x0,0x15
00a1 0334 | 4 | Declare_Variable Array,With_Constraint
00a2 51e9 |Q | Indirect_Literal Any,0x28c,{0x4f6e6500, 0x00000000}
00a3 8415 | | Call 0x2,0x15
00a4 4801 |H | Short_Literal 0x1
00a5 4800 |H | Short_Literal 0x0
00a6 4802 |H | Short_Literal 0x2
00a7 e015 | | Load 0x0,0x15
00a8 0334 | 4 | Declare_Variable Array,With_Constraint
00a9 51e6 |Q | Indirect_Literal Any,0x290,{0x54776f00, 0x00000000}
00aa 8415 | | Call 0x2,0x15
00ab 4801 |H | Short_Literal 0x1
00ac 4800 |H | Short_Literal 0x0
00ad 4804 |H | Short_Literal 0x4
00ae e015 | | Load 0x0,0x15
00af 0334 | 4 | Declare_Variable Array,With_Constraint
00b0 51e3 |Q | Indirect_Literal Any,0x294,{0x54687265, 0x65000000}
00b1 8415 | | Call 0x2,0x15
00b2 4801 |H | Short_Literal 0x1
00b3 4800 |H | Short_Literal 0x0
00b4 4803 |H | Short_Literal 0x3
00b5 e015 | | Load 0x0,0x15
00b6 0334 | 4 | Declare_Variable Array,With_Constraint
00b7 51e0 |Q | Indirect_Literal Any,0x298,{0x466f7572, 0x00000000}
00b8 8415 | | Call 0x2,0x15
00b9 4801 |H | Short_Literal 0x1
00ba 4800 |H | Short_Literal 0x0
00bb 4810 |H | Short_Literal 0x10
00bc e015 | | Load 0x0,0x15
00bd 0334 | 4 | Declare_Variable Array,With_Constraint
00be 51dd |Q | Indirect_Literal Any,0x29c,{0x416e642d, 0x415f4c6f}
00bf 8415 | | Call 0x2,0x15
00c0 4801 |H | Short_Literal 0x1
00c1 4800 |H | Short_Literal 0x0
00c2 480d |H | Short_Literal 0xd
00c3 e015 | | Load 0x0,0x15
00c4 0334 | 4 | Declare_Variable Array,With_Constraint
00c5 51e2 |Q | Indirect_Literal Any,0x2a8,{0x536f6d65, 0x7468696e}
00c6 8415 | | Call 0x2,0x15
00c7 4801 |H | Short_Literal 0x1
00c8 4800 |H | Short_Literal 0x0
00c9 480d |H | Short_Literal 0xd
00ca e015 | | Load 0x0,0x15
00cb 0334 | 4 | Declare_Variable Array,With_Constraint
00cc 51e3 |Q | Indirect_Literal Any,0x2b0,{0x736f6d65, 0x7468696e}
00cd 8415 | | Call 0x2,0x15
00ce 0092 05b1 | | Action Push_String_Extended,0x5b1 ; "X_Rm_Quark_To/From_Old_String"
00d0 800e | | Call 0x0,0xe
00d1 4801 |H | Short_Literal 0x1
00d2 4800 |H | Short_Literal 0x0
00d3 4800 |H | Short_Literal 0x0
00d4 e015 | | Load 0x0,0x15
00d5 0334 | 4 | Declare_Variable Array,With_Constraint
00d6 51e1 |Q | Indirect_Literal Any,0x2b8,{0x30000000, 0x00000000}
00d7 8415 | | Call 0x2,0x15
00d8 4801 |H | Short_Literal 0x1
00d9 4800 |H | Short_Literal 0x0
00da 4802 |H | Short_Literal 0x2
00db e015 | | Load 0x0,0x15
00dc 0334 | 4 | Declare_Variable Array,With_Constraint
00dd 51de |Q | Indirect_Literal Any,0x2bc,{0x4f6e6500, 0x00000000}
00de 8415 | | Call 0x2,0x15
00df 4801 |H | Short_Literal 0x1
00e0 4800 |H | Short_Literal 0x0
00e1 4802 |H | Short_Literal 0x2
00e2 e015 | | Load 0x0,0x15
00e3 0334 | 4 | Declare_Variable Array,With_Constraint
00e4 51db |Q | Indirect_Literal Any,0x2c0,{0x54776f00, 0x00000000}
00e5 8415 | | Call 0x2,0x15
00e6 4801 |H | Short_Literal 0x1
00e7 4800 |H | Short_Literal 0x0
00e8 4804 |H | Short_Literal 0x4
00e9 e015 | | Load 0x0,0x15
00ea 0334 | 4 | Declare_Variable Array,With_Constraint
00eb 51d8 |Q | Indirect_Literal Any,0x2c4,{0x54687265, 0x65000000}
00ec 8415 | | Call 0x2,0x15
00ed 4801 |H | Short_Literal 0x1
00ee 4800 |H | Short_Literal 0x0
00ef 4803 |H | Short_Literal 0x3
00f0 e015 | | Load 0x0,0x15
00f1 0334 | 4 | Declare_Variable Array,With_Constraint
00f2 51d5 |Q | Indirect_Literal Any,0x2c8,{0x466f7572, 0x00000000}
00f3 8415 | | Call 0x2,0x15
00f4 4801 |H | Short_Literal 0x1
00f5 4800 |H | Short_Literal 0x0
00f6 4810 |H | Short_Literal 0x10
00f7 e015 | | Load 0x0,0x15
00f8 0334 | 4 | Declare_Variable Array,With_Constraint
00f9 51d2 |Q | Indirect_Literal Any,0x2cc,{0x416e642d, 0x415f4c6f}
00fa 8415 | | Call 0x2,0x15
00fb 4801 |H | Short_Literal 0x1
00fc 4800 |H | Short_Literal 0x0
00fd 480d |H | Short_Literal 0xd
00fe e015 | | Load 0x0,0x15
00ff 0334 | 4 | Declare_Variable Array,With_Constraint
0100 51d7 |Q | Indirect_Literal Any,0x2d8,{0x536f6d65, 0x7468696e}
0101 8415 | | Call 0x2,0x15
0102 4801 |H | Short_Literal 0x1
0103 4800 |H | Short_Literal 0x0
0104 480d |H | Short_Literal 0xd
0105 e015 | | Load 0x0,0x15
0106 0334 | 4 | Declare_Variable Array,With_Constraint
0107 51d8 |Q | Indirect_Literal Any,0x2e0,{0x736f6d65, 0x7468696e}
0108 8415 | | Call 0x2,0x15
0109 0092 05b2 | | Action Push_String_Extended,0x5b2 ; "Simple quark lists"
010b 800e | | Call 0x0,0xe
010c 4801 |H | Short_Literal 0x1
010d 4800 |H | Short_Literal 0x0
010e 4802 |H | Short_Literal 0x2
010f e015 | | Load 0x0,0x15
0110 0334 | 4 | Declare_Variable Array,With_Constraint
0111 51d6 |Q | Indirect_Literal Any,0x2e8,{0x4f6e6500, 0x00000000}
0112 8416 | | Call 0x2,0x16
0113 4801 |H | Short_Literal 0x1
0114 4800 |H | Short_Literal 0x0
0115 4803 |H | Short_Literal 0x3
0116 e015 | | Load 0x0,0x15
0117 0334 | 4 | Declare_Variable Array,With_Constraint
0118 51d3 |Q | Indirect_Literal Any,0x2ec,{0x54776f2e, 0x00000000}
0119 8416 | | Call 0x2,0x16
011a 4801 |H | Short_Literal 0x1
011b 4800 |H | Short_Literal 0x0
011c 4809 |H | Short_Literal 0x9
011d e015 | | Load 0x0,0x15
011e 0334 | 4 | Declare_Variable Array,With_Constraint
011f 51d0 |Q | Indirect_Literal Any,0x2f0,{0x54687265, 0x652a466f}
0120 8416 | | Call 0x2,0x16
0121 4801 |H | Short_Literal 0x1
0122 4800 |H | Short_Literal 0x0
0123 4820 |H | Short_Literal 0x20
0124 e015 | | Load 0x0,0x15
0125 0334 | 4 | Declare_Variable Array,With_Constraint
0126 51d1 |Q | Indirect_Literal Any,0x2f8,{0x466f7572, 0x2e546872}
0127 8416 | | Call 0x2,0x16
0128 4801 |H | Short_Literal 0x1
0129 4800 |H | Short_Literal 0x0
012a 4808 |H | Short_Literal 0x8
012b e015 | | Load 0x0,0x15
012c 0334 | 4 | Declare_Variable Array,With_Constraint
012d 51de |Q | Indirect_Literal Any,0x30c,{0x5f302a31, 0x2e322d33}
012e 8416 | | Call 0x2,0x16
012f 4801 |H | Short_Literal 0x1
0130 4800 |H | Short_Literal 0x0
0131 480c |H | Short_Literal 0xc
0132 e015 | | Load 0x0,0x15
0133 0334 | 4 | Declare_Variable Array,With_Constraint
0134 51df |Q | Indirect_Literal Any,0x314,{0x412e422e, 0x432e442e}
0135 8416 | | Call 0x2,0x16
0136 0092 05b3 | | Action Push_String_Extended,0x5b3 ; "Tight Quark/Binding lists"
0138 800e | | Call 0x0,0xe
0139 4801 |H | Short_Literal 0x1
013a 4800 |H | Short_Literal 0x0
013b 4802 |H | Short_Literal 0x2
013c e015 | | Load 0x0,0x15
013d 0334 | 4 | Declare_Variable Array,With_Constraint
013e 51dd |Q | Indirect_Literal Any,0x31c,{0x4f6e6500, 0x00000000}
013f 8417 | | Call 0x2,0x17
0140 4801 |H | Short_Literal 0x1
0141 4800 |H | Short_Literal 0x0
0142 4803 |H | Short_Literal 0x3
0143 e015 | | Load 0x0,0x15
0144 0334 | 4 | Declare_Variable Array,With_Constraint
0145 51da |Q | Indirect_Literal Any,0x320,{0x54776f2e, 0x00000000}
0146 8417 | | Call 0x2,0x17
0147 4801 |H | Short_Literal 0x1
0148 4800 |H | Short_Literal 0x0
0149 4809 |H | Short_Literal 0x9
014a e015 | | Load 0x0,0x15
014b 0334 | 4 | Declare_Variable Array,With_Constraint
014c 51d7 |Q | Indirect_Literal Any,0x324,{0x54687265, 0x652e466f}
014d 8417 | | Call 0x2,0x17
014e 4801 |H | Short_Literal 0x1
014f 4800 |H | Short_Literal 0x0
0150 4820 |H | Short_Literal 0x20
0151 e015 | | Load 0x0,0x15
0152 0334 | 4 | Declare_Variable Array,With_Constraint
0153 51d8 |Q | Indirect_Literal Any,0x32c,{0x466f7572, 0x2e546872}
0154 8417 | | Call 0x2,0x17
0155 4801 |H | Short_Literal 0x1
0156 4800 |H | Short_Literal 0x0
0157 480c |H | Short_Literal 0xc
0158 e015 | | Load 0x0,0x15
0159 0334 | 4 | Declare_Variable Array,With_Constraint
015a 51e5 |Q | Indirect_Literal Any,0x340,{0x412e422e, 0x432e442e}
015b 8417 | | Call 0x2,0x17
015c 0092 05b4 | | Action Push_String_Extended,0x5b4 ; "Mixed Quark/Binding lists"
015e 800e | | Call 0x0,0xe
015f 4801 |H | Short_Literal 0x1
0160 4800 |H | Short_Literal 0x0
0161 4802 |H | Short_Literal 0x2
0162 e015 | | Load 0x0,0x15
0163 0334 | 4 | Declare_Variable Array,With_Constraint
0164 51e3 |Q | Indirect_Literal Any,0x348,{0x4f6e6500, 0x00000000}
0165 8417 | | Call 0x2,0x17
0166 4801 |H | Short_Literal 0x1
0167 4800 |H | Short_Literal 0x0
0168 4803 |H | Short_Literal 0x3
0169 e015 | | Load 0x0,0x15
016a 0334 | 4 | Declare_Variable Array,With_Constraint
016b 51e0 |Q | Indirect_Literal Any,0x34c,{0x2a4f6e65, 0x00000000}
016c 8417 | | Call 0x2,0x17
016d 4801 |H | Short_Literal 0x1
016e 4800 |H | Short_Literal 0x0
016f 4803 |H | Short_Literal 0x3
0170 e015 | | Load 0x0,0x15
0171 0334 | 4 | Declare_Variable Array,With_Constraint
0172 51dd |Q | Indirect_Literal Any,0x350,{0x2e4f6e65, 0x00000000}
0173 8417 | | Call 0x2,0x17
0174 4801 |H | Short_Literal 0x1
0175 4800 |H | Short_Literal 0x0
0176 4803 |H | Short_Literal 0x3
0177 e015 | | Load 0x0,0x15
0178 0334 | 4 | Declare_Variable Array,With_Constraint
0179 51da |Q | Indirect_Literal Any,0x354,{0x54776f2e, 0x00000000}
017a 8417 | | Call 0x2,0x17
017b 4801 |H | Short_Literal 0x1
017c 4800 |H | Short_Literal 0x0
017d 4803 |H | Short_Literal 0x3
017e e015 | | Load 0x0,0x15
017f 0334 | 4 | Declare_Variable Array,With_Constraint
0180 51d7 |Q | Indirect_Literal Any,0x358,{0x54776f2a, 0x00000000}
0181 8417 | | Call 0x2,0x17
0182 4801 |H | Short_Literal 0x1
0183 4800 |H | Short_Literal 0x0
0184 4809 |H | Short_Literal 0x9
0185 e015 | | Load 0x0,0x15
0186 0334 | 4 | Declare_Variable Array,With_Constraint
0187 51d4 |Q | Indirect_Literal Any,0x35c,{0x54687265, 0x652e466f}
0188 8417 | | Call 0x2,0x17
0189 4801 |H | Short_Literal 0x1
018a 4800 |H | Short_Literal 0x0
018b 4809 |H | Short_Literal 0x9
018c e015 | | Load 0x0,0x15
018d 0334 | 4 | Declare_Variable Array,With_Constraint
018e 51d5 |Q | Indirect_Literal Any,0x364,{0x54687265, 0x652a466f}
018f 8417 | | Call 0x2,0x17
0190 4801 |H | Short_Literal 0x1
0191 4800 |H | Short_Literal 0x0
0192 4820 |H | Short_Literal 0x20
0193 e015 | | Load 0x0,0x15
0194 0334 | 4 | Declare_Variable Array,With_Constraint
0195 51d6 |Q | Indirect_Literal Any,0x36c,{0x466f7572, 0x2e546872}
0196 8417 | | Call 0x2,0x17
0197 4801 |H | Short_Literal 0x1
0198 4800 |H | Short_Literal 0x0
0199 4821 |H! | Short_Literal 0x21
019a e015 | | Load 0x0,0x15
019b 0334 | 4 | Declare_Variable Array,With_Constraint
019c 51e3 |Q | Indirect_Literal Any,0x380,{0x2a466f75, 0x722e5468}
019d 8417 | | Call 0x2,0x17
019e 4801 |H | Short_Literal 0x1
019f 4800 |H | Short_Literal 0x0
01a0 480c |H | Short_Literal 0xc
01a1 e015 | | Load 0x0,0x15
01a2 0334 | 4 | Declare_Variable Array,With_Constraint
01a3 51f0 |Q | Indirect_Literal Any,0x394,{0x412a422a, 0x432a442e}
01a4 8417 | | Call 0x2,0x17
01a5 0092 05b5 | | Action Push_String_Extended,0x5b5 ; "Interesting X_Rm_Quark_To/From_String cases"
01a7 800e | | Call 0x0,0xe
01a8 4801 |H | Short_Literal 0x1
01a9 4800 |H | Short_Literal 0x0
01aa 00e5 | | Load_Encached Long_Integer_Cache
01ab 00d9 | | Load_Top At_Offset_1
01ac 0267 | g | Execute Discrete,Predecessor
01ad e015 | | Load 0x0,0x15
01ae 0334 | 4 | Declare_Variable Array,With_Constraint
01af 8415 | | Call 0x2,0x15
01b0 4801 |H | Short_Literal 0x1
01b1 4800 |H | Short_Literal 0x0
01b2 00e5 | | Load_Encached Long_Integer_Cache
01b3 00d9 | | Load_Top At_Offset_1
01b4 0267 | g | Execute Discrete,Predecessor
01b5 e015 | | Load 0x0,0x15
01b6 0334 | 4 | Declare_Variable Array,With_Constraint
01b7 8415 | | Call 0x2,0x15
01b8 4800 |H | Short_Literal 0x0
01b9 4800 |H | Short_Literal 0x0
01ba 4800 |H | Short_Literal 0x0
01bb e015 | | Load 0x0,0x15
01bc 0334 | 4 | Declare_Variable Array,With_Constraint
01bd 51de |Q | Indirect_Literal Any,0x39c,{0x2e000000, 0x00000000}
01be 8415 | | Call 0x2,0x15
01bf 4800 |H | Short_Literal 0x0
01c0 4800 |H | Short_Literal 0x0
01c1 4800 |H | Short_Literal 0x0
01c2 e015 | | Load 0x0,0x15
01c3 0334 | 4 | Declare_Variable Array,With_Constraint
01c4 51db |Q | Indirect_Literal Any,0x3a0,{0x2a000000, 0x00000000}
01c5 8415 | | Call 0x2,0x15
01c6 4800 |H | Short_Literal 0x0
01c7 4800 |H | Short_Literal 0x0
01c8 4810 |H | Short_Literal 0x10
01c9 e015 | | Load 0x0,0x15
01ca 0334 | 4 | Declare_Variable Array,With_Constraint
01cb 51d8 |Q | Indirect_Literal Any,0x3a4,{0x41206261, 0x6420636f}
01cc 8415 | | Call 0x2,0x15
01cd 4800 |H | Short_Literal 0x0
01ce a407 | | Store_Unchecked 0x2,0x7
01cf 4800 |H | Short_Literal 0x0
01d0 4800 |H | Short_Literal 0x0
01d1 4813 |H | Short_Literal 0x13
01d2 e015 | | Load 0x0,0x15
01d3 0334 | 4 | Declare_Variable Array,With_Constraint
01d4 51db |Q | Indirect_Literal Any,0x3b0,{0x2e2e2e62, 0x75742061}
01d5 8415 | | Call 0x2,0x15
01d6 4800 |H | Short_Literal 0x0
01d7 4800 |H | Short_Literal 0x0
01d8 4813 |H | Short_Literal 0x13
01d9 e015 | | Load 0x0,0x15
01da 0334 | 4 | Declare_Variable Array,With_Constraint
01db 51e0 |Q | Indirect_Literal Any,0x3bc,{0x2e2e2e62, 0x75742061}
01dc 8415 | | Call 0x2,0x15
01dd 4801 |H | Short_Literal 0x1
01de a407 | | Store_Unchecked 0x2,0x7
01df 0092 05b6 | | Action Push_String_Extended,0x5b6 ; "Interesting X_Rm_Quark_To_List cases"
01e1 800e | | Call 0x0,0xe
01e2 4801 |H | Short_Literal 0x1
01e3 4800 |H | Short_Literal 0x0
01e4 4822 |H" | Short_Literal 0x22
01e5 e015 | | Load 0x0,0x15
01e6 0334 | 4 | Declare_Variable Array,With_Constraint
01e7 51e0 |Q | Indirect_Literal Any,0x3c8,{0x4d697865, 0x642a5365}
01e8 8416 | | Call 0x2,0x16
01e9 4800 |H | Short_Literal 0x0
01ea 4800 |H | Short_Literal 0x0
01eb 4811 |H | Short_Literal 0x11
01ec e015 | | Load 0x0,0x15
01ed 0334 | 4 | Declare_Variable Array,With_Constraint
01ee 51ed |Q | Indirect_Literal Any,0x3dc,{0x2e2e2e20, 0x426f6775}
01ef 8416 | | Call 0x2,0x16
01f0 4801 |H | Short_Literal 0x1
01f1 4800 |H | Short_Literal 0x0
01f2 480f |H | Short_Literal 0xf
01f3 e015 | | Load 0x0,0x15
01f4 0334 | 4 | Declare_Variable Array,With_Constraint
01f5 51f2 |Q | Indirect_Literal Any,0x3e8,{0x2e2e2e56, 0x616c6964}
01f6 8416 | | Call 0x2,0x16
01f7 4801 |H | Short_Literal 0x1
01f8 4800 |H | Short_Literal 0x0
01f9 4800 |H | Short_Literal 0x0
01fa 480d |H | Short_Literal 0xd
01fb e015 | | Load 0x0,0x15
01fc 0334 | 4 | Declare_Variable Array,With_Constraint
01fd 51f2 |Q | Indirect_Literal Any,0x3f0,{0x4e756c2e, 0x5465726d}
01fe 01cb | | Execute Vector,Append
01ff 4800 |H | Short_Literal 0x0
0200 4810 |H | Short_Literal 0x10
0201 e015 | | Load 0x0,0x15
0202 0334 | 4 | Declare_Variable Array,With_Constraint
0203 51f4 |Q | Indirect_Literal Any,0x3f8,{0x2073746f, 0x70732070}
0204 01cc | | Execute Vector,Catenate
0205 8416 | | Call 0x2,0x16
0206 4801 |H | Short_Literal 0x1
0207 4800 |H | Short_Literal 0x0
0208 4800 |H | Short_Literal 0x0
0209 480c |H | Short_Literal 0xc
020a e015 | | Load 0x0,0x15
020b 0334 | 4 | Declare_Variable Array,With_Constraint
020c 51f7 |Q | Indirect_Literal Any,0x404,{0x204c6561, 0x64696e67}
020d 01ca | | Execute Vector,Prepend
020e 8416 | | Call 0x2,0x16
020f 4801 |H | Short_Literal 0x1
0210 4800 |H | Short_Literal 0x0
0211 4800 |H | Short_Literal 0x0
0212 480b |H | Short_Literal 0xb
0213 e015 | | Load 0x0,0x15
0214 0334 | 4 | Declare_Variable Array,With_Constraint
0215 51f6 |Q | Indirect_Literal Any,0x40c,{0x416e6f74, 0x6865722e}
0216 01cb | | Execute Vector,Append
0217 8416 | | Call 0x2,0x16
0218 4800 |H | Short_Literal 0x0
0219 a407 | | Store_Unchecked 0x2,0x7
021a 4800 |H | Short_Literal 0x0
021b 4800 |H | Short_Literal 0x0
021c 481e |H | Short_Literal 0x1e
021d e015 | | Load 0x0,0x15
021e 0334 | 4 | Declare_Variable Array,With_Constraint
021f 51f4 |Q | Indirect_Literal Any,0x414,{0x4a756e6b, 0x20616363}
0220 8416 | | Call 0x2,0x16
0221 4801 |H | Short_Literal 0x1
0222 a407 | | Store_Unchecked 0x2,0x7
0223 4801 |H | Short_Literal 0x1
0224 4800 |H | Short_Literal 0x0
0225 00e5 | | Load_Encached Long_Integer_Cache
0226 00d9 | | Load_Top At_Offset_1
0227 0267 | g | Execute Discrete,Predecessor
0228 e015 | | Load 0x0,0x15
0229 0334 | 4 | Declare_Variable Array,With_Constraint
022a 8416 | | Call 0x2,0x16
022b 4801 |H | Short_Literal 0x1
022c 4800 |H | Short_Literal 0x0
022d 4804 |H | Short_Literal 0x4
022e e015 | | Load 0x0,0x15
022f 0334 | 4 | Declare_Variable Array,With_Constraint
0230 51f3 |Q | Indirect_Literal Any,0x424,{0x2a2e2a2e, 0x2a000000}
0231 8416 | | Call 0x2,0x16
0232 0092 05b7 | | Action Push_String_Extended,0x5b7 ; "Interesting X_Rm_Quark_To_Binding_List cases"
0234 800e | | Call 0x0,0xe
0235 4801 |H | Short_Literal 0x1
0236 4800 |H | Short_Literal 0x0
0237 00e5 | | Load_Encached Long_Integer_Cache
0238 00d9 | | Load_Top At_Offset_1
0239 0267 | g | Execute Discrete,Predecessor
023a e015 | | Load 0x0,0x15
023b 0334 | 4 | Declare_Variable Array,With_Constraint
023c 8417 | | Call 0x2,0x17
023d 4801 |H | Short_Literal 0x1
023e 4800 |H | Short_Literal 0x0
023f 4804 |H | Short_Literal 0x4
0240 e015 | | Load 0x0,0x15
0241 0334 | 4 | Declare_Variable Array,With_Constraint
0242 51e5 |Q | Indirect_Literal Any,0x428,{0x2e2a2e2a, 0x2e000000}
0243 8417 | | Call 0x2,0x17
0244 4800 |H | Short_Literal 0x0
0245 4800 |H | Short_Literal 0x0
0246 4811 |H | Short_Literal 0x11
0247 e015 | | Load 0x0,0x15
0248 0334 | 4 | Declare_Variable Array,With_Constraint
0249 51e2 |Q | Indirect_Literal Any,0x42c,{0x2e2e2e20, 0x426f6775}
024a 8417 | | Call 0x2,0x17
024b 4801 |H | Short_Literal 0x1
024c 4800 |H | Short_Literal 0x0
024d 480f |H | Short_Literal 0xf
024e e015 | | Load 0x0,0x15
024f 0334 | 4 | Declare_Variable Array,With_Constraint
0250 51e7 |Q | Indirect_Literal Any,0x438,{0x2e2e2e56, 0x616c6964}
0251 8417 | | Call 0x2,0x17
0252 4801 |H | Short_Literal 0x1
0253 4800 |H | Short_Literal 0x0
0254 4800 |H | Short_Literal 0x0
0255 480f |H | Short_Literal 0xf
0256 e015 | | Load 0x0,0x15
0257 0334 | 4 | Declare_Variable Array,With_Constraint
0258 51e7 |Q | Indirect_Literal Any,0x440,{0x2a546572, 0x6d696e61}
0259 01cb | | Execute Vector,Append
025a 4800 |H | Short_Literal 0x0
025b 4810 |H | Short_Literal 0x10
025c e015 | | Load 0x0,0x15
025d 0334 | 4 | Declare_Variable Array,With_Constraint
025e 51e9 |Q | Indirect_Literal Any,0x448,{0x2073746f, 0x70732070}
025f 01cc | | Execute Vector,Catenate
0260 8417 | | Call 0x2,0x17
0261 4801 |H | Short_Literal 0x1
0262 4800 |H | Short_Literal 0x0
0263 4800 |H | Short_Literal 0x0
0264 480b |H | Short_Literal 0xb
0265 e015 | | Load 0x0,0x15
0266 0334 | 4 | Declare_Variable Array,With_Constraint
0267 51ec |Q | Indirect_Literal Any,0x454,{0x204c6561, 0x64696e67}
0268 01ca | | Execute Vector,Prepend
0269 8417 | | Call 0x2,0x17
026a 4801 |H | Short_Literal 0x1
026b 4800 |H | Short_Literal 0x0
026c 4800 |H | Short_Literal 0x0
026d 480b |H | Short_Literal 0xb
026e e015 | | Load 0x0,0x15
026f 0334 | 4 | Declare_Variable Array,With_Constraint
0270 51eb |Q | Indirect_Literal Any,0x45c,{0x416e6f74, 0x6865722e}
0271 01cb | | Execute Vector,Append
0272 8417 | | Call 0x2,0x17
0273 4800 |H | Short_Literal 0x0
0274 a407 | | Store_Unchecked 0x2,0x7
0275 4800 |H | Short_Literal 0x0
0276 4800 |H | Short_Literal 0x0
0277 481e |H | Short_Literal 0x1e
0278 e015 | | Load 0x0,0x15
0279 0334 | 4 | Declare_Variable Array,With_Constraint
027a 51e9 |Q | Indirect_Literal Any,0x464,{0x4a756e6b, 0x20616363}
027b 8417 | | Call 0x2,0x17
027c 4801 |H | Short_Literal 0x1
027d a407 | | Store_Unchecked 0x2,0x7
027e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
027f 0000 | | .XXX[0x1]
0280 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0284 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
0288 3000 0000 |0 | .LITERAL {0x30000000, 0x00000000}
028c 4f6e 6500 |One | .LITERAL {0x4f6e6500, 0x00000000}
0290 5477 6f00 |Two | .LITERAL {0x54776f00, 0x00000000}
0294 5468 7265 |Thre| .LITERAL {0x54687265, 0x65000000}
0298 466f 7572 |Four| .LITERAL {0x466f7572, 0x00000000}
029c 416e 642d |And-| .LITERAL {0x416e642d, 0x415f4c6f}
02a0 6e67 5f53 |ng_S| .XXX[0x8]
02a2 7472 696e |trin|
02a4 6700 0000 |g |
02a6 0000 0000 | |
02a8 536f 6d65 |Some| .LITERAL {0x536f6d65, 0x7468696e}
02ac 675f 456c |g_El| .XXX[0x4]
02ae 7365 0000 |se |
02b0 736f 6d65 |some| .LITERAL {0x736f6d65, 0x7468696e}
02b4 675f 656c |g_el| .XXX[0x4]
02b6 7365 0000 |se |
02b8 3000 0000 |0 | .LITERAL {0x30000000, 0x00000000}
02bc 4f6e 6500 |One | .LITERAL {0x4f6e6500, 0x00000000}
02c0 5477 6f00 |Two | .LITERAL {0x54776f00, 0x00000000}
02c4 5468 7265 |Thre| .LITERAL {0x54687265, 0x65000000}
02c8 466f 7572 |Four| .LITERAL {0x466f7572, 0x00000000}
02cc 416e 642d |And-| .LITERAL {0x416e642d, 0x415f4c6f}
02d0 6e67 5f53 |ng_S| .XXX[0x8]
02d2 7472 696e |trin|
02d4 6700 0000 |g |
02d6 0000 0000 | |
02d8 536f 6d65 |Some| .LITERAL {0x536f6d65, 0x7468696e}
02dc 675f 456c |g_El| .XXX[0x4]
02de 7365 0000 |se |
02e0 736f 6d65 |some| .LITERAL {0x736f6d65, 0x7468696e}
02e4 675f 656c |g_el| .XXX[0x4]
02e6 7365 0000 |se |
02e8 4f6e 6500 |One | .LITERAL {0x4f6e6500, 0x00000000}
02ec 5477 6f2e |Two.| .LITERAL {0x54776f2e, 0x00000000}
02f0 5468 7265 |Thre| .LITERAL {0x54687265, 0x652a466f}
02f4 7572 0000 |ur | .XXX[0x4]
02f6 0000 0000 | |
02f8 466f 7572 |Four| .LITERAL {0x466f7572, 0x2e546872}
02fc 6565 2e4f |ee.O| .XXX[0x10]
02fe 6e65 2e54 |ne.T|
0300 776f 2e53 |wo.S|
0302 6f6d 6574 |omet|
0304 6869 6e67 |hing|
0306 5f45 6c73 |_Els|
0308 6500 0000 |e |
030a 0000 0000 | |
030c 5f30 2a31 |_0*1| .LITERAL {0x5f302a31, 0x2e322d33}
0310 5f00 0000 |_ | .XXX[0x4]
0312 0000 0000 | |
0314 412e 422e |A.B.| .LITERAL {0x412e422e, 0x432e442e}
0318 452e 462e |E.F.| .XXX[0x4]
031a 4700 0000 |G |
031c 4f6e 6500 |One | .LITERAL {0x4f6e6500, 0x00000000}
0320 5477 6f2e |Two.| .LITERAL {0x54776f2e, 0x00000000}
0324 5468 7265 |Thre| .LITERAL {0x54687265, 0x652e466f}
0328 7572 0000 |ur | .XXX[0x4]
032a 0000 0000 | |
032c 466f 7572 |Four| .LITERAL {0x466f7572, 0x2e546872}
0330 6565 2e4f |ee.O| .XXX[0x10]
0332 6e65 2e54 |ne.T|
0334 776f 2e53 |wo.S|
0336 6f6d 6574 |omet|
0338 6869 6e67 |hing|
033a 5f45 6c73 |_Els|
033c 6500 0000 |e |
033e 0000 0000 | |
0340 412e 422e |A.B.| .LITERAL {0x412e422e, 0x432e442e}
0344 452e 462e |E.F.| .XXX[0x4]
0346 4700 0000 |G |
0348 4f6e 6500 |One | .LITERAL {0x4f6e6500, 0x00000000}
034c 2a4f 6e65 |*One| .LITERAL {0x2a4f6e65, 0x00000000}
0350 2e4f 6e65 |.One| .LITERAL {0x2e4f6e65, 0x00000000}
0354 5477 6f2e |Two.| .LITERAL {0x54776f2e, 0x00000000}
0358 5477 6f2a |Two*| .LITERAL {0x54776f2a, 0x00000000}
035c 5468 7265 |Thre| .LITERAL {0x54687265, 0x652e466f}
0360 7572 0000 |ur | .XXX[0x4]
0362 0000 0000 | |
0364 5468 7265 |Thre| .LITERAL {0x54687265, 0x652a466f}
0368 7572 0000 |ur | .XXX[0x4]
036a 0000 0000 | |
036c 466f 7572 |Four| .LITERAL {0x466f7572, 0x2e546872}
0370 6565 2e4f |ee.O| .XXX[0x10]
0372 6e65 2e54 |ne.T|
0374 776f 2e53 |wo.S|
0376 6f6d 6574 |omet|
0378 6869 6e67 |hing|
037a 5f45 6c73 |_Els|
037c 6500 0000 |e |
037e 0000 0000 | |
0380 2a46 6f75 |*Fou| .LITERAL {0x2a466f75, 0x722e5468}
0384 7265 652a |ree*| .XXX[0x10]
0386 4f6e 652e |One.|
0388 5477 6f2a |Two*|
038a 536f 6d65 |Some|
038c 7468 696e |thin|
038e 675f 456c |g_El|
0390 7365 0000 |se |
0392 0000 0000 | |
0394 412a 422a |A*B*| .LITERAL {0x412a422a, 0x432a442e}
0398 452e 462e |E.F.| .XXX[0x4]
039a 4700 0000 |G |
039c 2e00 0000 |. | .LITERAL {0x2e000000, 0x00000000}
03a0 2a00 0000 |* | .LITERAL {0x2a000000, 0x00000000}
03a4 4120 6261 |A ba| .LITERAL {0x41206261, 0x6420636f}
03a8 6d70 6f6e |mpon| .XXX[0x8]
03aa 656e 742e |ent.|
03ac 2e00 0000 |. |
03ae 0000 0000 | |
03b0 2e2e 2e62 |...b| .LITERAL {0x2e2e2e62, 0x75742061}
03b4 2067 6f6f | goo| .XXX[0x8]
03b6 6420 7175 |d qu|
03b8 6172 6b21 |ark!|
03ba 0000 0000 | |
03bc 2e2e 2e62 |...b| .LITERAL {0x2e2e2e62, 0x75742061}
03c0 2067 6f6f | goo| .XXX[0x8]
03c2 6420 7175 |d qu|
03c4 6172 6b21 |ark!|
03c6 0000 0000 | |
03c8 4d69 7865 |Mixe| .LITERAL {0x4d697865, 0x642a5365}
03cc 7061 7261 |para| .XXX[0x10]
03ce 746f 7273 |tors|
03d0 2e49 6e2e |.In.|
03d2 436f 6d70 |Comp|
03d4 6f6e 656e |onen|
03d6 742a 4c69 |t*Li|
03d8 7374 7300 |sts |
03da 0000 0000 | |
03dc 2e2e 2e20 |... | .LITERAL {0x2e2e2e20, 0x426f6775}
03e0 7320 6c69 |s li| .XXX[0x8]
03e2 7374 202e |st .|
03e4 2e2e 0000 |.. |
03e6 0000 0000 | |
03e8 2e2e 2e56 |...V| .LITERAL {0x2e2e2e56, 0x616c6964}
03ec 2e4c 6973 |.Lis| .XXX[0x4]
03ee 742e 2e2e |t...|
03f0 4e75 6c2e |Nul.| .LITERAL {0x4e756c2e, 0x5465726d}
03f4 696e 6174 |inat| .XXX[0x4]
03f6 6f72 0000 |or |
03f8 2073 746f | sto| .LITERAL {0x2073746f, 0x70732070}
03fc 726f 6365 |roce| .XXX[0x8]
03fe 7373 696e |ssin|
0400 6700 0000 |g |
0402 0000 0000 | |
0404 204c 6561 | Lea| .LITERAL {0x204c6561, 0x64696e67}
0408 206e 756c | nul| .XXX[0x4]
040a 6c00 0000 |l |
040c 416e 6f74 |Anot| .LITERAL {0x416e6f74, 0x6865722e}
0410 4e75 6c2e |Nul.| .XXX[0x4]
0412 0000 0000 | |
0414 4a75 6e6b |Junk| .LITERAL {0x4a756e6b, 0x20616363}
0418 6570 7465 |epte| .XXX[0xc]
041a 6420 696e |d in|
041c 202a 5155 | *QU|
041e 4152 4b2a |ARK*|
0420 206c 6973 | lis|
0422 7473 2100 |ts! |
0424 2a2e 2a2e |*.*.| .LITERAL {0x2a2e2a2e, 0x2a000000}
0428 2e2a 2e2a |.*.*| .LITERAL {0x2e2a2e2a, 0x2e000000}
042c 2e2e 2e20 |... | .LITERAL {0x2e2e2e20, 0x426f6775}
0430 7320 6c69 |s li| .XXX[0x8]
0432 7374 202e |st .|
0434 2e2e 0000 |.. |
0436 0000 0000 | |
0438 2e2e 2e56 |...V| .LITERAL {0x2e2e2e56, 0x616c6964}
043c 2e6c 6973 |.lis| .XXX[0x4]
043e 742e 2e2e |t...|
0440 2a54 6572 |*Ter| .LITERAL {0x2a546572, 0x6d696e61}
0444 7469 6e67 |ting| .XXX[0x4]
0446 2e4e 756c |.Nul|
0448 2073 746f | sto| .LITERAL {0x2073746f, 0x70732070}
044c 726f 6365 |roce| .XXX[0x8]
044e 7373 696e |ssin|
0450 6700 0000 |g |
0452 0000 0000 | |
0454 204c 6561 | Lea| .LITERAL {0x204c6561, 0x64696e67}
0458 206e 756c | nul| .XXX[0x4]
045a 0000 0000 | |
045c 416e 6f74 |Anot| .LITERAL {0x416e6f74, 0x6865722e}
0460 4e75 6c2e |Nul.| .XXX[0x4]
0462 0000 0000 | |
0464 4a75 6e6b |Junk| .LITERAL {0x4a756e6b, 0x20616363}
0468 6570 7465 |epte| .XXX[0xc]
046a 6420 696e |d in|
046c 202a 5155 | *QU|
046e 4152 4b2a |ARK*|
0470 206c 6973 | lis|
0472 7473 2100 |ts! |
0474 0000 0000 | | .BLANK 0000[0x4]
0478 ; --------------------------------------------------------------------------------------
0478 ; SUBPROGRAM
0478 ; --------------------------------------------------------------------------------------
0478 047b | { | .CONST 0x047b ; Address of begin
0479 0004 | | .CONST 0x0004 ; Address of exception handler
047a 0001 | | .CONST 0x0001 ; Number of locals
047b BODY_0478:
047b INIT_0478:
047b 00d1 | | Pop_Control Pop_Count_1
047c 00da | | Load_Top At_Offset_2
047d 01d8 | | Execute Vector,Element_Type
047e 0322 | " | Declare_Variable Record
047f 00d8 | | Load_Top At_Offset_0
0480 1c00 | | Execute_Immediate Run_Utility,0x0
0481 00db | | Load_Top At_Offset_3
0482 01dc | | Execute Vector,Last
0483 e7ff | | Load 0x3,-0x1
0484 01dd | | Execute Vector,First
0485 0263 | c | Execute Discrete,Above_Bound
0486 7006 |p | Jump_Nonzero 0x48d
0487 00da | | Load_Top At_Offset_2
0488 00d9 | | Load_Top At_Offset_1
0489 e7ff | | Load 0x3,-0x1
048a 01d6 | | Execute Vector,Field_Write
048b 0a01 | | Execute_Immediate Plus,0x1
048c 7ff8 | | Jump 0x485
048d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
048e 0000 0000 | | .XXX[0x2]
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 0493 | | .CONST 0x0493 ; Address of begin
0491 0004 | | .CONST 0x0004 ; Address of exception handler
0492 0001 | | .CONST 0x0001 ; Number of locals
0493 BODY_0490:
0493 INIT_0490:
0493 00db | | Load_Top At_Offset_3
0494 00db | | Load_Top At_Offset_3
0495 8016 | | Call 0x0,0x16
0496 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0497 0000 | | .XXX[0x1]
0498 ; --------------------------------------------------------------------------------------
0498 ; SUBPROGRAM
0498 ; --------------------------------------------------------------------------------------
0498 049b | | .CONST 0x049b ; Address of begin
0499 04cc | | .CONST 0x04cc ; Address of exception handler
049a 0001 | | .CONST 0x0001 ; Number of locals
049b BODY_0498:
049b INIT_0498:
049b e407 | | Load 0x2,0x7
049c 6804 |h | Jump_Zero 0x4a1
049d 0092 05b8 | | Action Push_String_Extended,0x5b8 ; "Component "
049f 8010 | | Call 0x0,0x10
04a0 7803 |x | Jump 0x4a4
04a1 0092 05b9 | | Action Push_String_Extended,0x5b9 ; "Quark "
04a3 8010 | | Call 0x0,0x10
04a4 4822 |H" | Short_Literal 0x22
04a5 4822 |H" | Short_Literal 0x22
04a6 e7ff | | Load 0x3,-0x1
04a7 01ca | | Execute Vector,Prepend
04a8 01cb | | Execute Vector,Append
04a9 8013 | | Call 0x0,0x13
04aa 4820 |H | Short_Literal 0x20
04ab 8017 | | Call 0x0,0x17
04ac 481f |H | Short_Literal 0x1f
04ad 8018 | | Call 0x0,0x18
04ae e407 | | Load 0x2,0x7
04af 00db | | Load_Top At_Offset_3
04b0 8408 | | Call 0x2,0x8
04b1 e402 | | Load 0x2,0x2
04b2 017d | } | Execute Record,Structure_Write
04b3 480a |H | Short_Literal 0xa
04b4 4801 |H | Short_Literal 0x1
04b5 e402 | | Load 0x2,0x2
04b6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04b7 8011 | | Call 0x0,0x11
04b8 0092 05af | | Action Push_String_Extended,0x5af ; " => "
04ba 8010 | | Call 0x0,0x10
04bb 4822 |H" | Short_Literal 0x22
04bc 4822 |H" | Short_Literal 0x22
04bd e402 | | Load 0x2,0x2
04be 8012 | | Call 0x0,0x12
04bf 01ca | | Execute Vector,Prepend
04c0 01cb | | Execute Vector,Append
04c1 8013 | | Call 0x0,0x13
04c2 e407 | | Load 0x2,0x7
04c3 e7fe | | Load 0x3,-0x2
04c4 0f00 | | Execute_Immediate Equal,0x0
04c5 0279 | y | Execute Discrete,And
04c6 6802 |h | Jump_Zero 0x4c9
04c7 483f |H? | Short_Literal 0x3f
04c8 8017 | | Call 0x0,0x17
04c9 4801 |H | Short_Literal 0x1
04ca 8014 | | Call 0x0,0x14
04cb 4503 |E | Exit_Suprogram New_Top_Offset 0x3
04cc TRAP_0498:
04cc 010e | | Execute Exception,Is_Constraint_Error
04cd 6808 |h | Jump_Zero 0x4d6
04ce e7fe | | Load 0x3,-0x2
04cf 7004 |p | Jump_Nonzero 0x4d4
04d0 0092 05ba | | Action Push_String_Extended,0x5ba ; " is invalid."
04d2 8019 | | Call 0x0,0x19
04d3 4503 |E | Exit_Suprogram New_Top_Offset 0x3
04d4 00d8 | | Load_Top At_Offset_0
04d5 0101 | | Execute Exception,Reraise
04d6 0100 | | Execute Exception,Raise
04d7 0000 | | .XXX[0x1]
04d8 ; --------------------------------------------------------------------------------------
04d8 ; SUBPROGRAM
04d8 ; --------------------------------------------------------------------------------------
04d8 04db | | .CONST 0x04db ; Address of begin
04d9 052b | + | .CONST 0x052b ; Address of exception handler
04da 0001 | | .CONST 0x0001 ; Number of locals
04db BODY_04d8:
04db INIT_04d8:
04db e407 | | Load 0x2,0x7
04dc 6804 |h | Jump_Zero 0x4e1
04dd 0092 05bb | | Action Push_String_Extended,0x5bb ; "Components := "
04df 8010 | | Call 0x0,0x10
04e0 7803 |x | Jump 0x4e4
04e1 0092 05bc | | Action Push_String_Extended,0x5bc ; "Quark-List := "
04e3 8010 | | Call 0x0,0x10
04e4 4822 |H" | Short_Literal 0x22
04e5 4822 |H" | Short_Literal 0x22
04e6 e7ff | | Load 0x3,-0x1
04e7 01ca | | Execute Vector,Prepend
04e8 01cb | | Execute Vector,Append
04e9 8013 | | Call 0x0,0x13
04ea 4801 |H | Short_Literal 0x1
04eb 8014 | | Call 0x0,0x14
04ec 0092 05bd | | Action Push_String_Extended,0x5bd ; "Result => "
04ee 8010 | | Call 0x0,0x10
04ef e405 | | Load 0x2,0x5
04f0 00db | | Load_Top At_Offset_3
04f1 e409 | | Load 0x2,0x9
04f2 e40a | | Load 0x2,0xa
04f3 e40b | | Load 0x2,0xb
04f4 480c |H | Short_Literal 0xc
04f5 4802 |H | Short_Literal 0x2
04f6 0099 | | Action Reference_Dynamic
04f7 480d |H | Short_Literal 0xd
04f8 4802 |H | Short_Literal 0x2
04f9 0099 | | Action Reference_Dynamic
04fa 8005 | | Call 0x0,0x5
04fb 00d1 | | Pop_Control Pop_Count_1
04fc e407 | | Load 0x2,0x7
04fd e7fe | | Load 0x3,-0x2
04fe 0f00 | | Execute_Immediate Equal,0x0
04ff 0279 | y | Execute Discrete,And
0500 6802 |h | Jump_Zero 0x503
0501 483f |H? | Short_Literal 0x3f
0502 8017 | | Call 0x0,0x17
0503 4801 |H | Short_Literal 0x1
0504 8014 | | Call 0x0,0x14
0505 00cf | | Action Mark_Auxiliary
0506 e405 | | Load 0x2,0x5
0507 01d9 | | Execute Vector,Reverse_Bounds
0508 0007 | | Action Break_Optional
0509 00d8 | | Load_Top At_Offset_0
050a e405 | | Load 0x2,0x5
050b 01d5 | | Execute Vector,Field_Reference
050c e006 | | Load 0x0,0x6
050d 017f | | Execute Record,Equal
050e 6802 |h | Jump_Zero 0x511
050f 00d2 | | Pop_Control Pop_Count_2
0510 7816 |x | Jump 0x527
0511 0092 05be | | Action Push_String_Extended,0x5be ; " "
0513 8010 | | Call 0x0,0x10
0514 480a |H | Short_Literal 0xa
0515 4801 |H | Short_Literal 0x1
0516 00da | | Load_Top At_Offset_2
0517 8011 | | Call 0x0,0x11
0518 4820 |H | Short_Literal 0x20
0519 8017 | | Call 0x0,0x17
051a 4822 |H" | Short_Literal 0x22
051b 4822 |H" | Short_Literal 0x22
051c 00da | | Load_Top At_Offset_2
051d e405 | | Load 0x2,0x5
051e 01d5 | | Execute Vector,Field_Reference
051f 8012 | | Call 0x0,0x12
0520 01ca | | Execute Vector,Prepend
0521 01cb | | Execute Vector,Append
0522 8013 | | Call 0x0,0x13
0523 4801 |H | Short_Literal 0x1
0524 8014 | | Call 0x0,0x14
0525 00c8 | | Action Pop_Auxiliary_Range
0526 3fe2 |? | Loop_Increasing 0x509
0527 00ce | | Action Pop_Auxiliary
0528 4801 |H | Short_Literal 0x1
0529 8014 | | Call 0x0,0x14
052a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
052b TRAP_04d8:
052b 010e | | Execute Exception,Is_Constraint_Error
052c 680d |h | Jump_Zero 0x53a
052d e407 | | Load 0x2,0x7
052e e7fe | | Load 0x3,-0x2
052f 0f00 | | Execute_Immediate Equal,0x0
0530 0279 | y | Execute Discrete,And
0531 6806 |h | Jump_Zero 0x538
0532 0092 05bf | | Action Push_String_Extended,0x5bf ; " invalid"
0534 8010 | | Call 0x0,0x10
0535 4801 |H | Short_Literal 0x1
0536 8014 | | Call 0x0,0x14
0537 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0538 00d8 | | Load_Top At_Offset_0
0539 0101 | | Execute Exception,Reraise
053a 0100 | | Execute Exception,Raise
053b 0000 0000 | | .BLANK 0000[0x5]
0540 ; --------------------------------------------------------------------------------------
0540 ; SUBPROGRAM
0540 ; --------------------------------------------------------------------------------------
0540 0543 | C | .CONST 0x0543 ; Address of begin
0541 059d | | .CONST 0x059d ; Address of exception handler
0542 0001 | | .CONST 0x0001 ; Number of locals
0543 BODY_0540:
0543 INIT_0540:
0543 e407 | | Load 0x2,0x7
0544 6804 |h | Jump_Zero 0x549
0545 0092 05bb | | Action Push_String_Extended,0x5bb ; "Components := "
0547 8010 | | Call 0x0,0x10
0548 7803 |x | Jump 0x54c
0549 0092 05bc | | Action Push_String_Extended,0x5bc ; "Quark-List := "
054b 8010 | | Call 0x0,0x10
054c 4822 |H" | Short_Literal 0x22
054d 4822 |H" | Short_Literal 0x22
054e e7ff | | Load 0x3,-0x1
054f 01ca | | Execute Vector,Prepend
0550 01cb | | Execute Vector,Append
0551 8013 | | Call 0x0,0x13
0552 4801 |H | Short_Literal 0x1
0553 8014 | | Call 0x0,0x14
0554 0092 05bd | | Action Push_String_Extended,0x5bd ; "Result => "
0556 8010 | | Call 0x0,0x10
0557 e405 | | Load 0x2,0x5
0558 e406 | | Load 0x2,0x6
0559 e7ff | | Load 0x3,-0x1
055a e40f | | Load 0x2,0xf
055b e410 | | Load 0x2,0x10
055c e411 | | Load 0x2,0x11
055d 4812 |H | Short_Literal 0x12
055e 4802 |H | Short_Literal 0x2
055f 0099 | | Action Reference_Dynamic
0560 4813 |H | Short_Literal 0x13
0561 4802 |H | Short_Literal 0x2
0562 0099 | | Action Reference_Dynamic
0563 8009 | | Call 0x0,0x9
0564 00d2 | | Pop_Control Pop_Count_2
0565 e407 | | Load 0x2,0x7
0566 e7fe | | Load 0x3,-0x2
0567 0f00 | | Execute_Immediate Equal,0x0
0568 0279 | y | Execute Discrete,And
0569 6802 |h | Jump_Zero 0x56c
056a 483f |H? | Short_Literal 0x3f
056b 8017 | | Call 0x0,0x17
056c 4801 |H | Short_Literal 0x1
056d 8014 | | Call 0x0,0x14
056e 00cf | | Action Mark_Auxiliary
056f e405 | | Load 0x2,0x5
0570 01d9 | | Execute Vector,Reverse_Bounds
0571 0007 | | Action Break_Optional
0572 00d8 | | Load_Top At_Offset_0
0573 e405 | | Load 0x2,0x5
0574 01d5 | | Execute Vector,Field_Reference
0575 e006 | | Load 0x0,0x6
0576 017f | | Execute Record,Equal
0577 6802 |h | Jump_Zero 0x57a
0578 00d2 | | Pop_Control Pop_Count_2
0579 781f |x | Jump 0x599
057a 0092 05be | | Action Push_String_Extended,0x5be ; " "
057c 8010 | | Call 0x0,0x10
057d 480a |H | Short_Literal 0xa
057e 4801 |H | Short_Literal 0x1
057f 00da | | Load_Top At_Offset_2
0580 8011 | | Call 0x0,0x11
0581 4820 |H | Short_Literal 0x20
0582 8017 | | Call 0x0,0x17
0583 00d8 | | Load_Top At_Offset_0
0584 e406 | | Load 0x2,0x6
0585 01d7 | | Execute Vector,Field_Read
0586 e01a | | Load 0x0,0x1a
0587 011c | | Execute Any,Convert_Unchecked
0588 1c01 | | Execute_Immediate Run_Utility,0x1
0589 8010 | | Call 0x0,0x10
058a 4820 |H | Short_Literal 0x20
058b 8017 | | Call 0x0,0x17
058c 4822 |H" | Short_Literal 0x22
058d 4822 |H" | Short_Literal 0x22
058e 00da | | Load_Top At_Offset_2
058f e405 | | Load 0x2,0x5
0590 01d5 | | Execute Vector,Field_Reference
0591 8012 | | Call 0x0,0x12
0592 01ca | | Execute Vector,Prepend
0593 01cb | | Execute Vector,Append
0594 8013 | | Call 0x0,0x13
0595 4801 |H | Short_Literal 0x1
0596 8014 | | Call 0x0,0x14
0597 00c8 | | Action Pop_Auxiliary_Range
0598 3fd9 |? | Loop_Increasing 0x572
0599 00ce | | Action Pop_Auxiliary
059a 4801 |H | Short_Literal 0x1
059b 8014 | | Call 0x0,0x14
059c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
059d TRAP_0540:
059d 010e | | Execute Exception,Is_Constraint_Error
059e 680d |h | Jump_Zero 0x5ac
059f e407 | | Load 0x2,0x7
05a0 e7fe | | Load 0x3,-0x2
05a1 0f00 | | Execute_Immediate Equal,0x0
05a2 0279 | y | Execute Discrete,And
05a3 6806 |h | Jump_Zero 0x5aa
05a4 0092 05c0 | | Action Push_String_Extended,0x5c0 ; "invalid"
05a6 8010 | | Call 0x0,0x10
05a7 4801 |H | Short_Literal 0x1
05a8 8014 | | Call 0x0,0x14
05a9 4503 |E | Exit_Suprogram New_Top_Offset 0x3
05aa 00d8 | | Load_Top At_Offset_0
05ab 0101 | | Execute Exception,Reraise
05ac 0100 | | Execute Exception,Raise
05ad ; --------------------------------------------------------------------------------------
05ad ; STRING TABLE
05ad ; --------------------------------------------------------------------------------------
05ad 002a | * | .STRTAB 0x002a->0x05c2 ; "X_Rm_Unique_Quark"
05ae 0039 | 9 | .STRTAB 0x0039->0x05ca ; "Unique quark "
05af 0044 | D | .STRTAB 0x0044->0x05d1 ; " => "
05b0 0046 | F | .STRTAB 0x0046->0x05d3 ; "X_Rm_Quark_To/From_String"
05b1 005d | ] | .STRTAB 0x005d->0x05df ; "X_Rm_Quark_To/From_Old_String"
05b2 0078 | x | .STRTAB 0x0078->0x05ee ; "Simple quark lists"
05b3 0088 | | .STRTAB 0x0088->0x05f7 ; "Tight Quark/Binding lists"
05b4 009f | | .STRTAB 0x009f->0x0603 ; "Mixed Quark/Binding lists"
05b5 00b6 | | .STRTAB 0x00b6->0x0610 ; "Interesting X_Rm_Quark_To/From_String cases"
05b6 00df | | .STRTAB 0x00df->0x0625 ; "Interesting X_Rm_Quark_To_List cases"
05b7 0101 | | .STRTAB 0x0101->0x0637 ; "Interesting X_Rm_Quark_To_Binding_List cases"
05b8 012b | + | .STRTAB 0x012b->0x064d ; "Component "
05b9 0133 | 3 | .STRTAB 0x0133->0x0652 ; "Quark "
05ba 0137 | 7 | .STRTAB 0x0137->0x0655 ; " is invalid."
05bb 0141 | A | .STRTAB 0x0141->0x065b ; "Components := "
05bc 014d | M | .STRTAB 0x014d->0x0662 ; "Quark-List := "
05bd 0159 | Y | .STRTAB 0x0159->0x0669 ; "Result => "
05be 0161 | a | .STRTAB 0x0161->0x066e ; " "
05bf 0163 | c | .STRTAB 0x0163->0x0670 ; " invalid"
05c0 0169 | i | .STRTAB 0x0169->0x0674 ; "invalid"
05c1 016e | n | .STREND 0x016e->0x0678
05c2 585f 526d |X_Rm| .STRTAB_STRINGS
0678 ; --------------------------------------------------------------------------------------
0678 ; Debug Table
0678 ; --------------------------------------------------------------------------------------
0678 0004 0000 | | .DEBUG4 0x0004,0x0000,0x691a,0x0000,0x0001,0x0007
067e 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000
0682 001b 069a | | .DBG4T 0x001b,0x069a,0x8001,0x0000
0686 047b 0000 | { | .DBG4T 0x047b,0x0000,0x0005,0x0000
068a 0493 06fe | | .DBG4T 0x0493,0x06fe,0x0002,0x0000
068e 049b 0701 | | .DBG4T 0x049b,0x0701,0x0001,0x0000
0692 04db 0713 | | .DBG4T 0x04db,0x0713,0x0001,0x0000
0696 0543 072c | C ,| .DBG4T 0x0543,0x072c,0x0001,0x0000
069a ; --------------------------------------------------------------------------------------
069a ; Debug chain
069a ; --------------------------------------------------------------------------------------
069a 000d 0055 | U| .DBGLEN 0x000d,0x0055
069c 001b 001f | | .DBGLNO 0x001b,0x001f,0x0023,0x002a,0x0031,0x0036,0x0038,0x003a,0x004e,0x0062,0x0066,0x0068,0x006a,0x006c,0x006d,0x0076,0x007a,0x007d,0x0080,0x0083,0x0088,0x008b,0x008e,0x0093,0x0096,0x009d,0x00a4,0x00ab,0x00b2,0x00b9,0x00c0,0x00c7,0x00ce,0x00d1,0x00d8,0x00df,0x00e6,0x00ed,0x00f4,0x00fb,0x0102,0x0109,0x010c,0x0113,0x011a,0x0121,0x0128,0x012f,0x0136,0x0139,0x0140,0x0147,0x014e,0x0155,0x015c,0x015f,0x0166,0x016d,0x0174,0x017b,0x0182,0x0189,0x0190,0x0197,0x019e,0x01a5,0x01a8,0x01b0,0x01b8,0x01bf,0x01c6,0x01cd,0x01cf,0x01d6,0x01dd,0x01df,0x01e2,0x01e9,0x01f0,0x01f7,0x0206,0x020f,0x0218,0x021a,0x0221,0x0223,0x022b,0x0232,0x0235,0x023d,0x0244,0x024b,0x0252,0x0261,0x026a,0x0273,0x0275,0x027c
06fe ; --------------------------------------------------------------------------------------
06fe ; Debug chain
06fe ; --------------------------------------------------------------------------------------
06fe 0000 0001 | | .DBGLEN 0x0000,0x0001
0700 0493 | | .DBGLNO 0x0493
0701 ; --------------------------------------------------------------------------------------
0701 ; Debug chain
0701 ; --------------------------------------------------------------------------------------
0701 0000 0010 | | .DBGLEN 0x0000,0x0010
0703 049b 049d | | .DBGLNO 0x049b,0x049d,0x04a1,0x04a4,0x04aa,0x04ac,0x04ae,0x04b3,0x04b8,0x04bb,0x04c2,0x04c7,0x04c9,0x04ce,0x04d0,0x04d4
0713 ; --------------------------------------------------------------------------------------
0713 ; Debug chain
0713 ; --------------------------------------------------------------------------------------
0713 0000 0017 | | .DBGLEN 0x0000,0x0017
0715 04db 04dd | | .DBGLNO 0x04db,0x04dd,0x04e1,0x04e4,0x04ea,0x04ec,0x04ef,0x04fc,0x0501,0x0503,0x0506,0x0509,0x050f,0x0511,0x0514,0x0518,0x051a,0x0523,0x0528,0x052d,0x0532,0x0535,0x0538
072c ; --------------------------------------------------------------------------------------
072c ; Debug chain
072c ; --------------------------------------------------------------------------------------
072c 0000 0019 | | .DBGLEN 0x0000,0x0019
072e 0543 0545 | C E| .DBGLNO 0x0543,0x0545,0x0549,0x054c,0x0552,0x0554,0x0557,0x0565,0x056a,0x056c,0x056f,0x0572,0x0578,0x057a,0x057d,0x0581,0x0583,0x058a,0x058c,0x0595,0x059a,0x059f,0x05a4,0x05a7,0x05aa
0747 0000 0000 | | .BLANK 0000[0xb9]