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