|
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: 3072 (0xc00) 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 04e8 | | .CONST 0x04e8 ; 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 0002 | | .CONST 0x0002 ; 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 0091 | | .CONST 0x0091 ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0030 | 0 | .CONST 0x0030 ; Number of locals 001b INIT_0018: 001b 029f 0103 | | Declare_Subprogram INIT_0100,For_Call 001d 029f 010b | | Declare_Subprogram INIT_0108,For_Call 001f 029f 0113 | | Declare_Subprogram INIT_0110,For_Call 0021 029e 011b | | Declare_Subprogram INIT_0118,For_Call,Unelaborated 0023 4805 |H | Short_Literal 0x5 0024 4802 |H | Short_Literal 0x2 0025 0099 | | Action Reference_Dynamic 0026 00c7 | | Action Elaborate_Subprogram 0027 029f 035b | [| Declare_Subprogram INIT_0358,For_Call 0029 029f 036b | k| Declare_Subprogram INIT_0368,For_Call 002b 4805 |H | Short_Literal 0x5 002c 4802 |H | Short_Literal 0x2 002d 0099 | | Action Reference_Dynamic 002e 00c6 | | Action Check_Subprogram_Elaborated 002f 0092 0489 | | Action Push_String_Extended,0x489 ; "Class" 0031 e002 | | Load 0x0,0x2 0032 e003 | | Load 0x0,0x3 0033 e004 | | Load 0x0,0x4 0034 a005 | | Store_Unchecked 0x0,0x5 0035 a006 | | Store_Unchecked 0x0,0x6 0036 4806 |H | Short_Literal 0x6 0037 4802 |H | Short_Literal 0x2 0038 0099 | | Action Reference_Dynamic 0039 4807 |H | Short_Literal 0x7 003a 4802 |H | Short_Literal 0x2 003b 0099 | | Action Reference_Dynamic 003c a007 | | Store_Unchecked 0x0,0x7 003d 4802 |H | Short_Literal 0x2 003e 4802 |H | Short_Literal 0x2 003f 0099 | | Action Reference_Dynamic 0040 0093 0000 | | push_full_address 0x0 0042 60b5 |` | Indirect_Literal Discrete,0xf8,{0x80000000, 0x00030000} 0043 0273 | s | Execute Discrete,Plus 0044 e008 | | Load 0x0,0x8 0045 0273 | s | Execute Discrete,Plus 0046 e009 | | Load 0x0,0x9 0047 0273 | s | Execute Discrete,Plus 0048 4813 |H | Short_Literal 0x13 0049 0007 | | Action Break_Optional 004a 029f 037b | {| Declare_Subprogram INIT_0378,For_Call 004c 029f 038b | | Declare_Subprogram INIT_0388,For_Call 004e 4805 |H | Short_Literal 0x5 004f 4802 |H | Short_Literal 0x2 0050 0099 | | Action Reference_Dynamic 0051 00c6 | | Action Check_Subprogram_Elaborated 0052 0092 048a | | Action Push_String_Extended,0x48a ; "Name" 0054 e002 | | Load 0x0,0x2 0055 e00a | | Load 0x0,0xa 0056 e00b | | Load 0x0,0xb 0057 a00c | | Store_Unchecked 0x0,0xc 0058 a00d | | Store_Unchecked 0x0,0xd 0059 4814 |H | Short_Literal 0x14 005a 4802 |H | Short_Literal 0x2 005b 0099 | | Action Reference_Dynamic 005c 4815 |H | Short_Literal 0x15 005d 4802 |H | Short_Literal 0x2 005e 0099 | | Action Reference_Dynamic 005f a00e | | Store_Unchecked 0x0,0xe 0060 4803 |H | Short_Literal 0x3 0061 4802 |H | Short_Literal 0x2 0062 0099 | | Action Reference_Dynamic 0063 0093 0000 | | push_full_address 0x0 0065 608e |` | Indirect_Literal Discrete,0xf4,{0x80000000, 0x00020000} 0066 0273 | s | Execute Discrete,Plus 0067 e008 | | Load 0x0,0x8 0068 0273 | s | Execute Discrete,Plus 0069 e00f | | Load 0x0,0xf 006a 0273 | s | Execute Discrete,Plus 006b 4821 |H! | Short_Literal 0x21 006c 0007 | | Action Break_Optional 006d 029f 039b | | Declare_Subprogram INIT_0398,For_Call 006f 029f 03ab | | Declare_Subprogram INIT_03a8,For_Call 0071 4805 |H | Short_Literal 0x5 0072 4802 |H | Short_Literal 0x2 0073 0099 | | Action Reference_Dynamic 0074 00c6 | | Action Check_Subprogram_Elaborated 0075 0092 048b | | Action Push_String_Extended,0x48b ; "Representation" 0077 e002 | | Load 0x0,0x2 0078 e010 | | Load 0x0,0x10 0079 e011 | | Load 0x0,0x11 007a a012 | | Store_Unchecked 0x0,0x12 007b a013 | | Store_Unchecked 0x0,0x13 007c 4822 |H" | Short_Literal 0x22 007d 4802 |H | Short_Literal 0x2 007e 0099 | | Action Reference_Dynamic 007f 4823 |H# | Short_Literal 0x23 0080 4802 |H | Short_Literal 0x2 0081 0099 | | Action Reference_Dynamic 0082 a014 | | Store_Unchecked 0x0,0x14 0083 4804 |H | Short_Literal 0x4 0084 4802 |H | Short_Literal 0x2 0085 0099 | | Action Reference_Dynamic 0086 0093 0000 | | push_full_address 0x0 0088 6067 |`g | Indirect_Literal Discrete,0xf0,{0x80000000, 0x00010000} 0089 0273 | s | Execute Discrete,Plus 008a e008 | | Load 0x0,0x8 008b 0273 | s | Execute Discrete,Plus 008c e015 | | Load 0x0,0x15 008d 0273 | s | Execute Discrete,Plus 008e 482f |H/ | Short_Literal 0x2f 008f 029f 03bb | | Declare_Subprogram INIT_03b8,For_Call 0091 BODY_0018: 0091 8016 | | Call 0x0,0x16 0092 8430 | 0 | Call 0x2,0x30 0093 e002 | | Load 0x0,0x2 0094 0322 | " | Declare_Variable Record 0095 6056 |`V | Indirect_Literal Discrete,0xec,{0x00000000, 0x000007d0} 0096 00d9 | | Load_Top At_Offset_1 0097 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0098 4801 |H | Short_Literal 0x1 0099 e017 | | Load 0x0,0x17 009a e018 | | Load 0x0,0x18 009b 00ad | | QQ_Action Package,Field_Execute_Dynamic 009c e408 | | Load 0x2,0x8 009d e409 | | Load 0x2,0x9 009e e40a | | Load 0x2,0xa 009f e40b | | Load 0x2,0xb 00a0 480c |H | Short_Literal 0xc 00a1 4802 |H | Short_Literal 0x2 00a2 0099 | | Action Reference_Dynamic 00a3 480d |H | Short_Literal 0xd 00a4 4802 |H | Short_Literal 0x2 00a5 0099 | | Action Reference_Dynamic 00a6 480e |H | Short_Literal 0xe 00a7 4802 |H | Short_Literal 0x2 00a8 0099 | | Action Reference_Dynamic 00a9 480f |H | Short_Literal 0xf 00aa 4802 |H | Short_Literal 0x2 00ab 0099 | | Action Reference_Dynamic 00ac 4810 |H | Short_Literal 0x10 00ad 4802 |H | Short_Literal 0x2 00ae 0099 | | Action Reference_Dynamic 00af 4811 |H | Short_Literal 0x11 00b0 4802 |H | Short_Literal 0x2 00b1 0099 | | Action Reference_Dynamic 00b2 4812 |H | Short_Literal 0x12 00b3 4802 |H | Short_Literal 0x2 00b4 0099 | | Action Reference_Dynamic 00b5 8405 | | Call 0x2,0x5 00b6 e416 | | Load 0x2,0x16 00b7 e417 | | Load 0x2,0x17 00b8 e418 | | Load 0x2,0x18 00b9 e419 | | Load 0x2,0x19 00ba 481a |H | Short_Literal 0x1a 00bb 4802 |H | Short_Literal 0x2 00bc 0099 | | Action Reference_Dynamic 00bd 481b |H | Short_Literal 0x1b 00be 4802 |H | Short_Literal 0x2 00bf 0099 | | Action Reference_Dynamic 00c0 481c |H | Short_Literal 0x1c 00c1 4802 |H | Short_Literal 0x2 00c2 0099 | | Action Reference_Dynamic 00c3 481d |H | Short_Literal 0x1d 00c4 4802 |H | Short_Literal 0x2 00c5 0099 | | Action Reference_Dynamic 00c6 481e |H | Short_Literal 0x1e 00c7 4802 |H | Short_Literal 0x2 00c8 0099 | | Action Reference_Dynamic 00c9 481f |H | Short_Literal 0x1f 00ca 4802 |H | Short_Literal 0x2 00cb 0099 | | Action Reference_Dynamic 00cc 4820 |H | Short_Literal 0x20 00cd 4802 |H | Short_Literal 0x2 00ce 0099 | | Action Reference_Dynamic 00cf 8405 | | Call 0x2,0x5 00d0 e424 | $ | Load 0x2,0x24 00d1 e425 | % | Load 0x2,0x25 00d2 e426 | & | Load 0x2,0x26 00d3 e427 | ' | Load 0x2,0x27 00d4 4828 |H( | Short_Literal 0x28 00d5 4802 |H | Short_Literal 0x2 00d6 0099 | | Action Reference_Dynamic 00d7 4829 |H) | Short_Literal 0x29 00d8 4802 |H | Short_Literal 0x2 00d9 0099 | | Action Reference_Dynamic 00da 482a |H* | Short_Literal 0x2a 00db 4802 |H | Short_Literal 0x2 00dc 0099 | | Action Reference_Dynamic 00dd 482b |H+ | Short_Literal 0x2b 00de 4802 |H | Short_Literal 0x2 00df 0099 | | Action Reference_Dynamic 00e0 482c |H, | Short_Literal 0x2c 00e1 4802 |H | Short_Literal 0x2 00e2 0099 | | Action Reference_Dynamic 00e3 482d |H- | Short_Literal 0x2d 00e4 4802 |H | Short_Literal 0x2 00e5 0099 | | Action Reference_Dynamic 00e6 482e |H. | Short_Literal 0x2e 00e7 4802 |H | Short_Literal 0x2 00e8 0099 | | Action Reference_Dynamic 00e9 8405 | | Call 0x2,0x5 00ea 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00eb 0000 | | .XXX[0x1] 00ec 0000 0000 | | .LITERAL {0x00000000, 0x000007d0} 00f0 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 00f4 8000 0000 | | .LITERAL {0x80000000, 0x00020000} 00f8 8000 0000 | | .LITERAL {0x80000000, 0x00030000} 00fc 0000 0000 | | .BLANK 0000[0x4] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 00da | | Load_Top At_Offset_2 0104 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0105 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0106 0000 0000 | | .XXX[0x2] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 010b | | .CONST 0x010b ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0001 | | .CONST 0x0001 ; Number of locals 010b BODY_0108: 010b INIT_0108: 010b 00da | | Load_Top At_Offset_2 010c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 010d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 010e 0000 0000 | | .XXX[0x2] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0113 | | .CONST 0x0113 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0001 | | .CONST 0x0001 ; Number of locals 0113 BODY_0110: 0113 INIT_0110: 0113 00da | | Load_Top At_Offset_2 0114 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0115 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0116 0000 0000 | | .XXX[0x2] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 0131 | 1 | .CONST 0x0131 ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0007 | | .CONST 0x0007 ; Number of locals 011b INIT_0118: 011b e7f6 | | Load 0x3,-0xa 011c 02c7 | | Declare_Variable Any 011d 00d8 | | Load_Top At_Offset_0 011e 1c00 | | Execute_Immediate Run_Utility,0x0 011f 4801 |H | Short_Literal 0x1 0120 480a |H | Short_Literal 0xa 0121 e7f8 | | Load 0x3,-0x8 0122 035b | [ | Declare_Type Array,Constrained 0123 0337 | 7 | Declare_Variable Array 0124 00d8 | | Load_Top At_Offset_0 0125 1c00 | | Execute_Immediate Run_Utility,0x0 0126 4801 |H | Short_Literal 0x1 0127 480a |H | Short_Literal 0xa 0128 e019 | | Load 0x0,0x19 0129 035b | [ | Declare_Type Array,Constrained 012a 0337 | 7 | Declare_Variable Array 012b 029f 03d3 | | Declare_Subprogram INIT_03d0,For_Call 012d 029f 0403 | | Declare_Subprogram INIT_0400,For_Call 012f 029f 0443 | C| Declare_Subprogram INIT_0440,For_Call 0131 BODY_0118: 0131 0092 048c | | Action Push_String_Extended,0x48c ; "Unique_" 0133 e7f5 | | Load 0x3,-0xb 0134 01cc | | Execute Vector,Catenate 0135 801a | | Call 0x0,0x1a 0136 00cf | | Action Mark_Auxiliary 0137 4805 |H | Short_Literal 0x5 0138 4801 |H | Short_Literal 0x1 0139 0007 | | Action Break_Optional 013a 87fd | | Call 0x3,-0x3 013b c602 | | Store 0x3,0x2 013c 0092 048d | | Action Push_String_Extended,0x48d ; "Unique " 013e e7f5 | | Load 0x3,-0xb 013f 01cc | | Execute Vector,Catenate 0140 0092 048e | | Action Push_String_Extended,0x48e ; " " 0142 01cc | | Execute Vector,Catenate 0143 801b | | Call 0x0,0x1b 0144 480a |H | Short_Literal 0xa 0145 4801 |H | Short_Literal 0x1 0146 e602 | | Load 0x3,0x2 0147 87fe | | Call 0x3,-0x2 0148 801c | | Call 0x0,0x1c 0149 0092 048f | | Action Push_String_Extended,0x48f ; " => " 014b 801b | | Call 0x0,0x1b 014c 4822 |H" | Short_Literal 0x22 014d 4822 |H" | Short_Literal 0x22 014e e602 | | Load 0x3,0x2 014f 87fa | | Call 0x3,-0x6 0150 01ca | | Execute Vector,Prepend 0151 01cb | | Execute Vector,Append 0152 801d | | Call 0x0,0x1d 0153 4801 |H | Short_Literal 0x1 0154 801e | | Call 0x0,0x1e 0155 00c8 | | Action Pop_Auxiliary_Range 0156 3fe3 |? | Loop_Increasing 0x13a 0157 00ce | | Action Pop_Auxiliary 0158 0092 0490 | | Action Push_String_Extended,0x490 ; "To/From_String" 015a 801a | | Call 0x0,0x1a 015b 4800 |H | Short_Literal 0x0 015c 4803 |H | Short_Literal 0x3 015d e01f | | Load 0x0,0x1f 015e 0334 | 4 | Declare_Variable Array,With_Constraint 015f 50e4 |P | Indirect_Literal Any,0x244,{0x514f6e65, 0x00000000} 0160 8605 | | Call 0x3,0x5 0161 4800 |H | Short_Literal 0x0 0162 4803 |H | Short_Literal 0x3 0163 e01f | | Load 0x0,0x1f 0164 0334 | 4 | Declare_Variable Array,With_Constraint 0165 50e2 |P | Indirect_Literal Any,0x248,{0x5254776f, 0x00000000} 0166 8605 | | Call 0x3,0x5 0167 4800 |H | Short_Literal 0x0 0168 4805 |H | Short_Literal 0x5 0169 e01f | | Load 0x0,0x1f 016a 0334 | 4 | Declare_Variable Array,With_Constraint 016b 50e0 |P | Indirect_Literal Any,0x24c,{0x53546872, 0x65650000} 016c 8605 | | Call 0x3,0x5 016d 4800 |H | Short_Literal 0x0 016e 4804 |H | Short_Literal 0x4 016f e01f | | Load 0x0,0x1f 0170 0334 | 4 | Declare_Variable Array,With_Constraint 0171 50de |P | Indirect_Literal Any,0x250,{0x54466f75, 0x72000000} 0172 8605 | | Call 0x3,0x5 0173 4800 |H | Short_Literal 0x0 0174 4811 |H | Short_Literal 0x11 0175 e01f | | Load 0x0,0x1f 0176 0334 | 4 | Declare_Variable Array,With_Constraint 0177 50dc |P | Indirect_Literal Any,0x254,{0x55416e64, 0x2d412d4c} 0178 8605 | | Call 0x3,0x5 0179 4800 |H | Short_Literal 0x0 017a 480e |H | Short_Literal 0xe 017b e01f | | Load 0x0,0x1f 017c 0334 | 4 | Declare_Variable Array,With_Constraint 017d 50e2 |P | Indirect_Literal Any,0x260,{0x56536f6d, 0x65746869} 017e 8605 | | Call 0x3,0x5 017f 4800 |H | Short_Literal 0x0 0180 480e |H | Short_Literal 0xe 0181 e01f | | Load 0x0,0x1f 0182 0334 | 4 | Declare_Variable Array,With_Constraint 0183 50e4 |P | Indirect_Literal Any,0x268,{0x57736f6d, 0x65746869} 0184 8605 | | Call 0x3,0x5 0185 0092 0491 | | Action Push_String_Extended,0x491 ; "To/From_Old_String" 0187 801a | | Call 0x0,0x1a 0188 4800 |H | Short_Literal 0x0 0189 4803 |H | Short_Literal 0x3 018a e01f | | Load 0x0,0x1f 018b 0334 | 4 | Declare_Variable Array,With_Constraint 018c 50e3 |P | Indirect_Literal Any,0x270,{0x514f6e65, 0x00000000} 018d 8605 | | Call 0x3,0x5 018e 4800 |H | Short_Literal 0x0 018f 4803 |H | Short_Literal 0x3 0190 e01f | | Load 0x0,0x1f 0191 0334 | 4 | Declare_Variable Array,With_Constraint 0192 50e1 |P | Indirect_Literal Any,0x274,{0x5254776f, 0x00000000} 0193 8605 | | Call 0x3,0x5 0194 4800 |H | Short_Literal 0x0 0195 4805 |H | Short_Literal 0x5 0196 e01f | | Load 0x0,0x1f 0197 0334 | 4 | Declare_Variable Array,With_Constraint 0198 50df |P | Indirect_Literal Any,0x278,{0x53546872, 0x65650000} 0199 8605 | | Call 0x3,0x5 019a 4800 |H | Short_Literal 0x0 019b 4804 |H | Short_Literal 0x4 019c e01f | | Load 0x0,0x1f 019d 0334 | 4 | Declare_Variable Array,With_Constraint 019e 50dd |P | Indirect_Literal Any,0x27c,{0x54466f75, 0x72000000} 019f 8605 | | Call 0x3,0x5 01a0 4800 |H | Short_Literal 0x0 01a1 4811 |H | Short_Literal 0x11 01a2 e01f | | Load 0x0,0x1f 01a3 0334 | 4 | Declare_Variable Array,With_Constraint 01a4 50db |P | Indirect_Literal Any,0x280,{0x55416e64, 0x2d412d4c} 01a5 8605 | | Call 0x3,0x5 01a6 4800 |H | Short_Literal 0x0 01a7 480e |H | Short_Literal 0xe 01a8 e01f | | Load 0x0,0x1f 01a9 0334 | 4 | Declare_Variable Array,With_Constraint 01aa 50e1 |P | Indirect_Literal Any,0x28c,{0x56536f6d, 0x65746869} 01ab 8605 | | Call 0x3,0x5 01ac 4800 |H | Short_Literal 0x0 01ad 480e |H | Short_Literal 0xe 01ae e01f | | Load 0x0,0x1f 01af 0334 | 4 | Declare_Variable Array,With_Constraint 01b0 50e3 |P | Indirect_Literal Any,0x294,{0x57736f6d, 0x65746869} 01b1 8605 | | Call 0x3,0x5 01b2 0092 0492 | | Action Push_String_Extended,0x492 ; "Simple " 01b4 e7f5 | | Load 0x3,-0xb 01b5 01cc | | Execute Vector,Catenate 01b6 0092 0493 | | Action Push_String_Extended,0x493 ; " lists" 01b8 01cc | | Execute Vector,Catenate 01b9 801a | | Call 0x0,0x1a 01ba 4800 |H | Short_Literal 0x0 01bb 4803 |H | Short_Literal 0x3 01bc e01f | | Load 0x0,0x1f 01bd 0334 | 4 | Declare_Variable Array,With_Constraint 01be 50dd |P | Indirect_Literal Any,0x29c,{0x514f6e65, 0x00000000} 01bf 8606 | | Call 0x3,0x6 01c0 4800 |H | Short_Literal 0x0 01c1 4804 |H | Short_Literal 0x4 01c2 e01f | | Load 0x0,0x1f 01c3 0334 | 4 | Declare_Variable Array,With_Constraint 01c4 50db |P | Indirect_Literal Any,0x2a0,{0x5254776f, 0x2e000000} 01c5 8606 | | Call 0x3,0x6 01c6 4800 |H | Short_Literal 0x0 01c7 480b |H | Short_Literal 0xb 01c8 e01f | | Load 0x0,0x1f 01c9 0334 | 4 | Declare_Variable Array,With_Constraint 01ca 50d9 |P | Indirect_Literal Any,0x2a4,{0x53546872, 0x65652e54} 01cb 8606 | | Call 0x3,0x6 01cc 4800 |H | Short_Literal 0x0 01cd 4825 |H% | Short_Literal 0x25 01ce e01f | | Load 0x0,0x1f 01cf 0334 | 4 | Declare_Variable Array,With_Constraint 01d0 50db |P | Indirect_Literal Any,0x2ac,{0x54466f75, 0x722e5354} 01d1 8606 | | Call 0x3,0x6 01d2 4800 |H | Short_Literal 0x0 01d3 4813 |H | Short_Literal 0x13 01d4 e01f | | Load 0x0,0x1f 01d5 0334 | 4 | Declare_Variable Array,With_Constraint 01d6 50e9 |P | Indirect_Literal Any,0x2c0,{0x55412e55, 0x422e5543} 01d7 8606 | | Call 0x3,0x6 01d8 0092 0494 | | Action Push_String_Extended,0x494 ; "Tight " 01da e7f5 | | Load 0x3,-0xb 01db 01cc | | Execute Vector,Catenate 01dc 0092 0495 | | Action Push_String_Extended,0x495 ; "/Binding lists" 01de 01cc | | Execute Vector,Catenate 01df 801a | | Call 0x0,0x1a 01e0 4800 |H | Short_Literal 0x0 01e1 4803 |H | Short_Literal 0x3 01e2 e01f | | Load 0x0,0x1f 01e3 0334 | 4 | Declare_Variable Array,With_Constraint 01e4 50e7 |P | Indirect_Literal Any,0x2cc,{0x514f6e65, 0x00000000} 01e5 8607 | | Call 0x3,0x7 01e6 4800 |H | Short_Literal 0x0 01e7 4804 |H | Short_Literal 0x4 01e8 e01f | | Load 0x0,0x1f 01e9 0334 | 4 | Declare_Variable Array,With_Constraint 01ea 50e5 |P | Indirect_Literal Any,0x2d0,{0x5254776f, 0x2e000000} 01eb 8607 | | Call 0x3,0x7 01ec 4800 |H | Short_Literal 0x0 01ed 480b |H | Short_Literal 0xb 01ee e01f | | Load 0x0,0x1f 01ef 0334 | 4 | Declare_Variable Array,With_Constraint 01f0 50e3 |P | Indirect_Literal Any,0x2d4,{0x53546872, 0x65652e54} 01f1 8607 | | Call 0x3,0x7 01f2 4800 |H | Short_Literal 0x0 01f3 4825 |H% | Short_Literal 0x25 01f4 e01f | | Load 0x0,0x1f 01f5 0334 | 4 | Declare_Variable Array,With_Constraint 01f6 50e5 |P | Indirect_Literal Any,0x2dc,{0x54466f75, 0x722e5354} 01f7 8607 | | Call 0x3,0x7 01f8 4800 |H | Short_Literal 0x0 01f9 4813 |H | Short_Literal 0x13 01fa e01f | | Load 0x0,0x1f 01fb 0334 | 4 | Declare_Variable Array,With_Constraint 01fc 50f3 |P | Indirect_Literal Any,0x2f0,{0x55412e55, 0x422e5543} 01fd 8607 | | Call 0x3,0x7 01fe 0092 0496 | | Action Push_String_Extended,0x496 ; "Mixed " 0200 e7f5 | | Load 0x3,-0xb 0201 01cc | | Execute Vector,Catenate 0202 0092 0495 | | Action Push_String_Extended,0x495 ; "/Binding lists" 0204 01cc | | Execute Vector,Catenate 0205 801a | | Call 0x0,0x1a 0206 4800 |H | Short_Literal 0x0 0207 4803 |H | Short_Literal 0x3 0208 e01f | | Load 0x0,0x1f 0209 0334 | 4 | Declare_Variable Array,With_Constraint 020a 50f1 |P | Indirect_Literal Any,0x2fc,{0x514f6e65, 0x00000000} 020b 8607 | | Call 0x3,0x7 020c 4800 |H | Short_Literal 0x0 020d 4804 |H | Short_Literal 0x4 020e e01f | | Load 0x0,0x1f 020f 0334 | 4 | Declare_Variable Array,With_Constraint 0210 50ef |P | Indirect_Literal Any,0x300,{0x2a514f6e, 0x65000000} 0211 8607 | | Call 0x3,0x7 0212 4800 |H | Short_Literal 0x0 0213 4804 |H | Short_Literal 0x4 0214 e01f | | Load 0x0,0x1f 0215 0334 | 4 | Declare_Variable Array,With_Constraint 0216 50ed |P | Indirect_Literal Any,0x304,{0x2e514f6e, 0x65000000} 0217 8607 | | Call 0x3,0x7 0218 4800 |H | Short_Literal 0x0 0219 4804 |H | Short_Literal 0x4 021a e01f | | Load 0x0,0x1f 021b 0334 | 4 | Declare_Variable Array,With_Constraint 021c 50eb |P | Indirect_Literal Any,0x308,{0x5254776f, 0x2e000000} 021d 8607 | | Call 0x3,0x7 021e 4800 |H | Short_Literal 0x0 021f 4804 |H | Short_Literal 0x4 0220 e01f | | Load 0x0,0x1f 0221 0334 | 4 | Declare_Variable Array,With_Constraint 0222 50e9 |P | Indirect_Literal Any,0x30c,{0x5254776f, 0x2a000000} 0223 8607 | | Call 0x3,0x7 0224 4800 |H | Short_Literal 0x0 0225 480b |H | Short_Literal 0xb 0226 e01f | | Load 0x0,0x1f 0227 0334 | 4 | Declare_Variable Array,With_Constraint 0228 50e7 |P | Indirect_Literal Any,0x310,{0x53546872, 0x65652e54} 0229 8607 | | Call 0x3,0x7 022a 4800 |H | Short_Literal 0x0 022b 480b |H | Short_Literal 0xb 022c e01f | | Load 0x0,0x1f 022d 0334 | 4 | Declare_Variable Array,With_Constraint 022e 50e9 |P | Indirect_Literal Any,0x318,{0x53546872, 0x65652a54} 022f 8607 | | Call 0x3,0x7 0230 4800 |H | Short_Literal 0x0 0231 4825 |H% | Short_Literal 0x25 0232 e01f | | Load 0x0,0x1f 0233 0334 | 4 | Declare_Variable Array,With_Constraint 0234 50eb |P | Indirect_Literal Any,0x320,{0x54466f75, 0x722e5354} 0235 8607 | | Call 0x3,0x7 0236 4800 |H | Short_Literal 0x0 0237 4826 |H& | Short_Literal 0x26 0238 e01f | | Load 0x0,0x1f 0239 0334 | 4 | Declare_Variable Array,With_Constraint 023a 50f9 |P | Indirect_Literal Any,0x334,{0x2a54466f, 0x75722e53} 023b 8607 | | Call 0x3,0x7 023c 4800 |H | Short_Literal 0x0 023d 4813 |H | Short_Literal 0x13 023e e01f | | Load 0x0,0x1f 023f 0334 | 4 | Declare_Variable Array,With_Constraint 0240 5107 |Q | Indirect_Literal Any,0x348,{0x55412a55, 0x422a5543} 0241 8607 | | Call 0x3,0x7 0242 450c |E | Exit_Suprogram New_Top_Offset 0xc 0243 0000 | | .XXX[0x1] 0244 514f 6e65 |QOne| .LITERAL {0x514f6e65, 0x00000000} 0248 5254 776f |RTwo| .LITERAL {0x5254776f, 0x00000000} 024c 5354 6872 |SThr| .LITERAL {0x53546872, 0x65650000} 0250 5446 6f75 |TFou| .LITERAL {0x54466f75, 0x72000000} 0254 5541 6e64 |UAnd| .LITERAL {0x55416e64, 0x2d412d4c} 0258 6f6e 672d |ong-| .XXX[0x8] 025a 5374 7269 |Stri| 025c 6e67 0000 |ng | 025e 0000 0000 | | 0260 5653 6f6d |VSom| .LITERAL {0x56536f6d, 0x65746869} 0264 6e67 5f45 |ng_E| .XXX[0x4] 0266 6c73 6500 |lse | 0268 5773 6f6d |Wsom| .LITERAL {0x57736f6d, 0x65746869} 026c 6e67 5f65 |ng_e| .XXX[0x4] 026e 6c73 6500 |lse | 0270 514f 6e65 |QOne| .LITERAL {0x514f6e65, 0x00000000} 0274 5254 776f |RTwo| .LITERAL {0x5254776f, 0x00000000} 0278 5354 6872 |SThr| .LITERAL {0x53546872, 0x65650000} 027c 5446 6f75 |TFou| .LITERAL {0x54466f75, 0x72000000} 0280 5541 6e64 |UAnd| .LITERAL {0x55416e64, 0x2d412d4c} 0284 6f6e 672d |ong-| .XXX[0x8] 0286 5374 7269 |Stri| 0288 6e67 0000 |ng | 028a 0000 0000 | | 028c 5653 6f6d |VSom| .LITERAL {0x56536f6d, 0x65746869} 0290 6e67 5f45 |ng_E| .XXX[0x4] 0292 6c73 6500 |lse | 0294 5773 6f6d |Wsom| .LITERAL {0x57736f6d, 0x65746869} 0298 6e67 5f65 |ng_e| .XXX[0x4] 029a 6c73 6500 |lse | 029c 514f 6e65 |QOne| .LITERAL {0x514f6e65, 0x00000000} 02a0 5254 776f |RTwo| .LITERAL {0x5254776f, 0x2e000000} 02a4 5354 6872 |SThr| .LITERAL {0x53546872, 0x65652e54} 02a8 466f 7572 |Four| .XXX[0x4] 02aa 0000 0000 | | 02ac 5446 6f75 |TFou| .LITERAL {0x54466f75, 0x722e5354} 02b0 6872 6565 |hree| .XXX[0x10] 02b2 2e51 4f6e |.QOn| 02b4 652e 5254 |e.RT| 02b6 776f 2e56 |wo.V| 02b8 536f 6d65 |Some| 02ba 7468 696e |thin| 02bc 675f 456c |g_El| 02be 7365 0000 |se | 02c0 5541 2e55 |UA.U| .LITERAL {0x55412e55, 0x422e5543} 02c4 2e55 442e |.UD.| .XXX[0x8] 02c6 5545 2e55 |UE.U| 02c8 462e 5547 |F.UG| 02ca 0000 0000 | | 02cc 514f 6e65 |QOne| .LITERAL {0x514f6e65, 0x00000000} 02d0 5254 776f |RTwo| .LITERAL {0x5254776f, 0x2e000000} 02d4 5354 6872 |SThr| .LITERAL {0x53546872, 0x65652e54} 02d8 466f 7572 |Four| .XXX[0x4] 02da 0000 0000 | | 02dc 5446 6f75 |TFou| .LITERAL {0x54466f75, 0x722e5354} 02e0 6872 6565 |hree| .XXX[0x10] 02e2 2e51 4f6e |.QOn| 02e4 652e 5254 |e.RT| 02e6 776f 2e56 |wo.V| 02e8 536f 6d65 |Some| 02ea 7468 696e |thin| 02ec 675f 456c |g_El| 02ee 7365 0000 |se | 02f0 5541 2e55 |UA.U| .LITERAL {0x55412e55, 0x422e5543} 02f4 2e55 442e |.UD.| .XXX[0x8] 02f6 5545 2e55 |UE.U| 02f8 462e 5547 |F.UG| 02fa 0000 0000 | | 02fc 514f 6e65 |QOne| .LITERAL {0x514f6e65, 0x00000000} 0300 2a51 4f6e |*QOn| .LITERAL {0x2a514f6e, 0x65000000} 0304 2e51 4f6e |.QOn| .LITERAL {0x2e514f6e, 0x65000000} 0308 5254 776f |RTwo| .LITERAL {0x5254776f, 0x2e000000} 030c 5254 776f |RTwo| .LITERAL {0x5254776f, 0x2a000000} 0310 5354 6872 |SThr| .LITERAL {0x53546872, 0x65652e54} 0314 466f 7572 |Four| .XXX[0x4] 0316 0000 0000 | | 0318 5354 6872 |SThr| .LITERAL {0x53546872, 0x65652a54} 031c 466f 7572 |Four| .XXX[0x4] 031e 0000 0000 | | 0320 5446 6f75 |TFou| .LITERAL {0x54466f75, 0x722e5354} 0324 6872 6565 |hree| .XXX[0x10] 0326 2e51 4f6e |.QOn| 0328 652e 5254 |e.RT| 032a 776f 2e56 |wo.V| 032c 536f 6d65 |Some| 032e 7468 696e |thin| 0330 675f 456c |g_El| 0332 7365 0000 |se | 0334 2a54 466f |*TFo| .LITERAL {0x2a54466f, 0x75722e53} 0338 5468 7265 |Thre| .XXX[0x10] 033a 652a 514f |e*QO| 033c 6e65 2e52 |ne.R| 033e 5477 6f2a |Two*| 0340 5653 6f6d |VSom| 0342 6574 6869 |ethi| 0344 6e67 5f45 |ng_E| 0346 6c73 6500 |lse | 0348 5541 2a55 |UA*U| .LITERAL {0x55412a55, 0x422a5543} 034c 2a55 442e |*UD.| .XXX[0x6] 034e 5545 2e55 |UE.U| 0350 462e 5547 |F.UG| 0352 0000 0000 | | .BLANK 0000[0x6] 0358 ; -------------------------------------------------------------------------------------- 0358 ; SUBPROGRAM 0358 ; -------------------------------------------------------------------------------------- 0358 035b | [ | .CONST 0x035b ; Address of begin 0359 0004 | | .CONST 0x0004 ; Address of exception handler 035a 0001 | | .CONST 0x0001 ; Number of locals 035b BODY_0358: 035b INIT_0358: 035b 00db | | Load_Top At_Offset_3 035c 00db | | Load_Top At_Offset_3 035d e020 | | Load 0x0,0x20 035e e021 | ! | Load 0x0,0x21 035f e022 | " | Load 0x0,0x22 0360 a023 | # | Store_Unchecked 0x0,0x23 0361 a024 | $ | Store_Unchecked 0x0,0x24 0362 8025 | % | Call 0x0,0x25 0363 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0364 0000 0000 | | .BLANK 0000[0x4] 0368 ; -------------------------------------------------------------------------------------- 0368 ; SUBPROGRAM 0368 ; -------------------------------------------------------------------------------------- 0368 036b | k | .CONST 0x036b ; Address of begin 0369 0004 | | .CONST 0x0004 ; Address of exception handler 036a 0001 | | .CONST 0x0001 ; Number of locals 036b BODY_0368: 036b INIT_0368: 036b e7fd | | Load 0x3,-0x3 036c e7fe | | Load 0x3,-0x2 036d e7ff | | Load 0x3,-0x1 036e e026 | & | Load 0x0,0x26 036f e027 | ' | Load 0x0,0x27 0370 e028 | ( | Load 0x0,0x28 0371 a029 | ) | Store_Unchecked 0x0,0x29 0372 a02a | * | Store_Unchecked 0x0,0x2a 0373 802b | + | Call 0x0,0x2b 0374 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0375 0000 0000 | | .XXX[0x3] 0377 0000 | | 0378 ; -------------------------------------------------------------------------------------- 0378 ; SUBPROGRAM 0378 ; -------------------------------------------------------------------------------------- 0378 037b | { | .CONST 0x037b ; Address of begin 0379 0004 | | .CONST 0x0004 ; Address of exception handler 037a 0001 | | .CONST 0x0001 ; Number of locals 037b BODY_0378: 037b INIT_0378: 037b 00db | | Load_Top At_Offset_3 037c 00db | | Load_Top At_Offset_3 037d e02c | , | Load 0x0,0x2c 037e e02d | - | Load 0x0,0x2d 037f e02e | . | Load 0x0,0x2e 0380 a02f | / | Store_Unchecked 0x0,0x2f 0381 a030 | 0 | Store_Unchecked 0x0,0x30 0382 8025 | % | Call 0x0,0x25 0383 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0384 0000 0000 | | .BLANK 0000[0x4] 0388 ; -------------------------------------------------------------------------------------- 0388 ; SUBPROGRAM 0388 ; -------------------------------------------------------------------------------------- 0388 038b | | .CONST 0x038b ; Address of begin 0389 0004 | | .CONST 0x0004 ; Address of exception handler 038a 0001 | | .CONST 0x0001 ; Number of locals 038b BODY_0388: 038b INIT_0388: 038b e7fd | | Load 0x3,-0x3 038c e7fe | | Load 0x3,-0x2 038d e7ff | | Load 0x3,-0x1 038e e031 | 1 | Load 0x0,0x31 038f e032 | 2 | Load 0x0,0x32 0390 e033 | 3 | Load 0x0,0x33 0391 a034 | 4 | Store_Unchecked 0x0,0x34 0392 a035 | 5 | Store_Unchecked 0x0,0x35 0393 802b | + | Call 0x0,0x2b 0394 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0395 0000 0000 | | .XXX[0x3] 0397 0000 | | 0398 ; -------------------------------------------------------------------------------------- 0398 ; SUBPROGRAM 0398 ; -------------------------------------------------------------------------------------- 0398 039b | | .CONST 0x039b ; Address of begin 0399 0004 | | .CONST 0x0004 ; Address of exception handler 039a 0001 | | .CONST 0x0001 ; Number of locals 039b BODY_0398: 039b INIT_0398: 039b 00db | | Load_Top At_Offset_3 039c 00db | | Load_Top At_Offset_3 039d e036 | 6 | Load 0x0,0x36 039e e037 | 7 | Load 0x0,0x37 039f e038 | 8 | Load 0x0,0x38 03a0 a039 | 9 | Store_Unchecked 0x0,0x39 03a1 a03a | : | Store_Unchecked 0x0,0x3a 03a2 8025 | % | Call 0x0,0x25 03a3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03a4 0000 0000 | | .BLANK 0000[0x4] 03a8 ; -------------------------------------------------------------------------------------- 03a8 ; SUBPROGRAM 03a8 ; -------------------------------------------------------------------------------------- 03a8 03ab | | .CONST 0x03ab ; Address of begin 03a9 0004 | | .CONST 0x0004 ; Address of exception handler 03aa 0001 | | .CONST 0x0001 ; Number of locals 03ab BODY_03a8: 03ab INIT_03a8: 03ab e7fd | | Load 0x3,-0x3 03ac e7fe | | Load 0x3,-0x2 03ad e7ff | | Load 0x3,-0x1 03ae e03b | ; | Load 0x0,0x3b 03af e03c | < | Load 0x0,0x3c 03b0 e03d | = | Load 0x0,0x3d 03b1 a03e | > | Store_Unchecked 0x0,0x3e 03b2 a03f | ? | Store_Unchecked 0x0,0x3f 03b3 802b | + | Call 0x0,0x2b 03b4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03b5 0000 0000 | | .XXX[0x3] 03b7 0000 | | 03b8 ; -------------------------------------------------------------------------------------- 03b8 ; SUBPROGRAM 03b8 ; -------------------------------------------------------------------------------------- 03b8 03bd | | .CONST 0x03bd ; Address of begin 03b9 0004 | | .CONST 0x0004 ; Address of exception handler 03ba 0002 | | .CONST 0x0002 ; Number of locals 03bb INIT_03b8: 03bb e040 | @ | Load 0x0,0x40 03bc 0007 | | Action Break_Optional 03bd BODY_03b8: 03bd e040 | @ | Load 0x0,0x40 03be 4801 |H | Short_Literal 0x1 03bf e017 | | Load 0x0,0x17 03c0 e041 | A | Load 0x0,0x41 03c1 00ad | | QQ_Action Package,Field_Execute_Dynamic 03c2 0039 | 9 | Store_Top Access,At_Offset_1 03c3 e040 | @ | Load 0x0,0x40 03c4 8042 | B | Call 0x0,0x42 03c5 0039 | 9 | Store_Top Access,At_Offset_1 03c6 00d8 | | Load_Top At_Offset_0 03c7 4801 |H | Short_Literal 0x1 03c8 e017 | | Load 0x0,0x17 03c9 e043 | C | Load 0x0,0x43 03ca 00ad | | QQ_Action Package,Field_Execute_Dynamic 03cb 0039 | 9 | Store_Top Access,At_Offset_1 03cc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03cd 0000 0000 | | .XXX[0x3] 03cf 0000 | | 03d0 ; -------------------------------------------------------------------------------------- 03d0 ; SUBPROGRAM 03d0 ; -------------------------------------------------------------------------------------- 03d0 03d3 | | .CONST 0x03d3 ; Address of begin 03d1 0004 | | .CONST 0x0004 ; Address of exception handler 03d2 0001 | | .CONST 0x0001 ; Number of locals 03d3 BODY_03d0: 03d3 INIT_03d0: 03d3 4800 |H | Short_Literal 0x0 03d4 00db | | Load_Top At_Offset_3 03d5 87f9 | | Call 0x3,-0x7 03d6 c602 | | Store 0x3,0x2 03d7 0092 0497 | | Action Push_String_Extended,0x497 ; "Named " 03d9 e7f5 | | Load 0x3,-0xb 03da 01cc | | Execute Vector,Catenate 03db 0092 048e | | Action Push_String_Extended,0x48e ; " " 03dd 01cc | | Execute Vector,Catenate 03de 801b | | Call 0x0,0x1b 03df 4822 |H" | Short_Literal 0x22 03e0 4822 |H" | Short_Literal 0x22 03e1 e9ff | | Load 0x4,-0x1 03e2 01ca | | Execute Vector,Prepend 03e3 01cb | | Execute Vector,Append 03e4 801d | | Call 0x0,0x1d 03e5 4820 |H | Short_Literal 0x20 03e6 8044 | D | Call 0x0,0x44 03e7 481f |H | Short_Literal 0x1f 03e8 8045 | E | Call 0x0,0x45 03e9 480a |H | Short_Literal 0xa 03ea 4801 |H | Short_Literal 0x1 03eb e602 | | Load 0x3,0x2 03ec 87fe | | Call 0x3,-0x2 03ed 801c | | Call 0x0,0x1c 03ee 0092 048f | | Action Push_String_Extended,0x48f ; " => " 03f0 801b | | Call 0x0,0x1b 03f1 4822 |H" | Short_Literal 0x22 03f2 4822 |H" | Short_Literal 0x22 03f3 e602 | | Load 0x3,0x2 03f4 87fa | | Call 0x3,-0x6 03f5 01ca | | Execute Vector,Prepend 03f6 01cb | | Execute Vector,Append 03f7 801d | | Call 0x0,0x1d 03f8 4801 |H | Short_Literal 0x1 03f9 801e | | Call 0x0,0x1e 03fa 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03fb 0000 0000 | | .BLANK 0000[0x5] 0400 ; -------------------------------------------------------------------------------------- 0400 ; SUBPROGRAM 0400 ; -------------------------------------------------------------------------------------- 0400 0403 | | .CONST 0x0403 ; Address of begin 0401 0004 | | .CONST 0x0004 ; Address of exception handler 0402 0001 | | .CONST 0x0001 ; Number of locals 0403 BODY_0400: 0403 INIT_0400: 0403 e7f5 | | Load 0x3,-0xb 0404 0092 0498 | | Action Push_String_Extended,0x498 ; "-List := " 0406 01cc | | Execute Vector,Catenate 0407 801b | | Call 0x0,0x1b 0408 4822 |H" | Short_Literal 0x22 0409 4822 |H" | Short_Literal 0x22 040a e9ff | | Load 0x4,-0x1 040b 01ca | | Execute Vector,Prepend 040c 01cb | | Execute Vector,Append 040d 801d | | Call 0x0,0x1d 040e 4801 |H | Short_Literal 0x1 040f 801e | | Call 0x0,0x1e 0410 e603 | | Load 0x3,0x3 0411 00db | | Load_Top At_Offset_3 0412 87fb | | Call 0x3,-0x5 0413 00d1 | | Pop_Control Pop_Count_1 0414 0092 0499 | | Action Push_String_Extended,0x499 ; "Result =>" 0416 801b | | Call 0x0,0x1b 0417 4801 |H | Short_Literal 0x1 0418 801e | | Call 0x0,0x1e 0419 00cf | | Action Mark_Auxiliary 041a e603 | | Load 0x3,0x3 041b 01d9 | | Execute Vector,Reverse_Bounds 041c 0007 | | Action Break_Optional 041d 00d8 | | Load_Top At_Offset_0 041e e603 | | Load 0x3,0x3 041f 01d7 | | Execute Vector,Field_Read 0420 e7f7 | | Load 0x3,-0x9 0421 012f | / | Execute Any,Equal 0422 6802 |h | Jump_Zero 0x425 0423 00d2 | | Pop_Control Pop_Count_2 0424 7816 |x | Jump 0x43b 0425 0092 049a | | Action Push_String_Extended,0x49a ; " " 0427 801b | | Call 0x0,0x1b 0428 480a |H | Short_Literal 0xa 0429 4801 |H | Short_Literal 0x1 042a 00da | | Load_Top At_Offset_2 042b 801c | | Call 0x0,0x1c 042c 4820 |H | Short_Literal 0x20 042d 8044 | D | Call 0x0,0x44 042e 4822 |H" | Short_Literal 0x22 042f 4822 |H" | Short_Literal 0x22 0430 00da | | Load_Top At_Offset_2 0431 e603 | | Load 0x3,0x3 0432 01d7 | | Execute Vector,Field_Read 0433 87fa | | Call 0x3,-0x6 0434 01ca | | Execute Vector,Prepend 0435 01cb | | Execute Vector,Append 0436 801d | | Call 0x0,0x1d 0437 4801 |H | Short_Literal 0x1 0438 801e | | Call 0x0,0x1e 0439 00c8 | | Action Pop_Auxiliary_Range 043a 3fe2 |? | Loop_Increasing 0x41d 043b 00ce | | Action Pop_Auxiliary 043c 4801 |H | Short_Literal 0x1 043d 801e | | Call 0x0,0x1e 043e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 043f 0000 | | .XXX[0x1] 0440 ; -------------------------------------------------------------------------------------- 0440 ; SUBPROGRAM 0440 ; -------------------------------------------------------------------------------------- 0440 0443 | C | .CONST 0x0443 ; Address of begin 0441 0004 | | .CONST 0x0004 ; Address of exception handler 0442 0001 | | .CONST 0x0001 ; Number of locals 0443 BODY_0440: 0443 INIT_0440: 0443 e7f5 | | Load 0x3,-0xb 0444 0092 0498 | | Action Push_String_Extended,0x498 ; "-List := " 0446 01cc | | Execute Vector,Catenate 0447 801b | | Call 0x0,0x1b 0448 4822 |H" | Short_Literal 0x22 0449 4822 |H" | Short_Literal 0x22 044a e9ff | | Load 0x4,-0x1 044b 01ca | | Execute Vector,Prepend 044c 01cb | | Execute Vector,Append 044d 801d | | Call 0x0,0x1d 044e 4801 |H | Short_Literal 0x1 044f 801e | | Call 0x0,0x1e 0450 e603 | | Load 0x3,0x3 0451 e604 | | Load 0x3,0x4 0452 e9ff | | Load 0x4,-0x1 0453 87fc | | Call 0x3,-0x4 0454 00d2 | | Pop_Control Pop_Count_2 0455 0092 0499 | | Action Push_String_Extended,0x499 ; "Result =>" 0457 801b | | Call 0x0,0x1b 0458 4801 |H | Short_Literal 0x1 0459 801e | | Call 0x0,0x1e 045a 00cf | | Action Mark_Auxiliary 045b e603 | | Load 0x3,0x3 045c 01d9 | | Execute Vector,Reverse_Bounds 045d 0007 | | Action Break_Optional 045e 00d8 | | Load_Top At_Offset_0 045f e603 | | Load 0x3,0x3 0460 01d7 | | Execute Vector,Field_Read 0461 e7f7 | | Load 0x3,-0x9 0462 012f | / | Execute Any,Equal 0463 6802 |h | Jump_Zero 0x466 0464 00d2 | | Pop_Control Pop_Count_2 0465 781f |x | Jump 0x485 0466 0092 049a | | Action Push_String_Extended,0x49a ; " " 0468 801b | | Call 0x0,0x1b 0469 480a |H | Short_Literal 0xa 046a 4801 |H | Short_Literal 0x1 046b 00da | | Load_Top At_Offset_2 046c 801c | | Call 0x0,0x1c 046d 4820 |H | Short_Literal 0x20 046e 8044 | D | Call 0x0,0x44 046f 00d8 | | Load_Top At_Offset_0 0470 e604 | | Load 0x3,0x4 0471 01d7 | | Execute Vector,Field_Read 0472 e046 | F | Load 0x0,0x46 0473 011c | | Execute Any,Convert_Unchecked 0474 1c01 | | Execute_Immediate Run_Utility,0x1 0475 801b | | Call 0x0,0x1b 0476 4820 |H | Short_Literal 0x20 0477 8044 | D | Call 0x0,0x44 0478 4822 |H" | Short_Literal 0x22 0479 4822 |H" | Short_Literal 0x22 047a 00da | | Load_Top At_Offset_2 047b e603 | | Load 0x3,0x3 047c 01d7 | | Execute Vector,Field_Read 047d 87fa | | Call 0x3,-0x6 047e 01ca | | Execute Vector,Prepend 047f 01cb | | Execute Vector,Append 0480 801d | | Call 0x0,0x1d 0481 4801 |H | Short_Literal 0x1 0482 801e | | Call 0x0,0x1e 0483 00c8 | | Action Pop_Auxiliary_Range 0484 3fd9 |? | Loop_Increasing 0x45e 0485 00ce | | Action Pop_Auxiliary 0486 4801 |H | Short_Literal 0x1 0487 801e | | Call 0x0,0x1e 0488 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0489 ; -------------------------------------------------------------------------------------- 0489 ; STRING TABLE 0489 ; -------------------------------------------------------------------------------------- 0489 0026 | & | .STRTAB 0x0026->0x049c ; "Class" 048a 0029 | ) | .STRTAB 0x0029->0x049e ; "Name" 048b 002b | + | .STRTAB 0x002b->0x04a0 ; "Representation" 048c 0037 | 7 | .STRTAB 0x0037->0x04a7 ; "Unique_" 048d 003c | < | .STRTAB 0x003c->0x04ab ; "Unique " 048e 0041 | A | .STRTAB 0x0041->0x04ae ; " " 048f 0040 | @ | .STRTAB 0x0040->0x04af ; " => " 0490 0042 | B | .STRTAB 0x0042->0x04b1 ; "To/From_String" 0491 004e | N | .STRTAB 0x004e->0x04b8 ; "To/From_Old_String" 0492 005e | ^ | .STRTAB 0x005e->0x04c1 ; "Simple " 0493 0063 | c | .STRTAB 0x0063->0x04c4 ; " lists" 0494 0067 | g | .STRTAB 0x0067->0x04c7 ; "Tight " 0495 006b | k | .STRTAB 0x006b->0x04ca ; "/Binding lists" 0496 0077 | w | .STRTAB 0x0077->0x04d1 ; "Mixed " 0497 007b | { | .STRTAB 0x007b->0x04d4 ; "Named " 0498 007f | | .STRTAB 0x007f->0x04d7 ; "-List := " 0499 0086 | | .STRTAB 0x0086->0x04dc ; "Result =>" 049a 008d | | .STRTAB 0x008d->0x04e0 ; " " 049b 008f | | .STREND 0x008f->0x04e2 049c 436c 6173 |Clas| .STRTAB_STRINGS 04e3 0000 0000 | | .BLANK 0000[0x5] 04e8 ; -------------------------------------------------------------------------------------- 04e8 ; Debug Table 04e8 ; -------------------------------------------------------------------------------------- 04e8 0004 0000 | | .DEBUG4 0x0004,0x0000,0x691b,0x0000,0x0001,0x0010 04ee 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000 04f2 001b 052e | .| .DBG4T 0x001b,0x052e,0x8001,0x0000 04f6 0103 053e | >| .DBG4T 0x0103,0x053e,0x0002,0x0000 04fa 010b 0541 | A| .DBG4T 0x010b,0x0541,0x0002,0x0000 04fe 0113 0544 | D| .DBG4T 0x0113,0x0544,0x0002,0x0000 0502 011b 0547 | G| .DBG4T 0x011b,0x0547,0x2801,0x0003 0506 035b 0000 | [ | .DBG4T 0x035b,0x0000,0x000b,0x0000 050a 036b 0000 | k | .DBG4T 0x036b,0x0000,0x000b,0x0000 050e 037b 0000 | { | .DBG4T 0x037b,0x0000,0x000b,0x0000 0512 038b 0000 | | .DBG4T 0x038b,0x0000,0x000b,0x0000 0516 039b 0000 | | .DBG4T 0x039b,0x0000,0x000b,0x0000 051a 03ab 0000 | | .DBG4T 0x03ab,0x0000,0x000b,0x0000 051e 03bb 057e | ~| .DBG4T 0x03bb,0x057e,0x0004,0x0000 0522 03d3 0584 | | .DBG4T 0x03d3,0x0584,0x0801,0x0003 0526 0403 058f | | .DBG4T 0x0403,0x058f,0x0801,0x0003 052a 0443 05a0 | C | .DBG4T 0x0443,0x05a0,0x0801,0x0003 052e ; -------------------------------------------------------------------------------------- 052e ; Debug chain 052e ; -------------------------------------------------------------------------------------- 052e 0008 0006 | | .DBGLEN 0x0008,0x0006 0530 001b 001d | | .DBGLNO 0x001b,0x001d,0x001f,0x0021,0x0023,0x0027,0x004a,0x006d,0x0091,0x0092,0x0093,0x009c,0x00b6,0x00d0 053e ; -------------------------------------------------------------------------------------- 053e ; Debug chain 053e ; -------------------------------------------------------------------------------------- 053e 0000 0001 | | .DBGLEN 0x0000,0x0001 0540 0103 | | .DBGLNO 0x0103 0541 ; -------------------------------------------------------------------------------------- 0541 ; Debug chain 0541 ; -------------------------------------------------------------------------------------- 0541 0000 0001 | | .DBGLEN 0x0000,0x0001 0543 010b | | .DBGLNO 0x010b 0544 ; -------------------------------------------------------------------------------------- 0544 ; Debug chain 0544 ; -------------------------------------------------------------------------------------- 0544 0000 0001 | | .DBGLEN 0x0000,0x0001 0546 0113 | | .DBGLNO 0x0113 0547 ; -------------------------------------------------------------------------------------- 0547 ; Debug chain 0547 ; -------------------------------------------------------------------------------------- 0547 0006 002f | /| .DBGLEN 0x0006,0x002f 0549 011b 011f | | .DBGLNO 0x011b,0x011f,0x0126,0x012b,0x012d,0x012f,0x0131,0x0137,0x013a,0x013c,0x0144,0x0149,0x014c,0x0153,0x0158,0x015b,0x0161,0x0167,0x016d,0x0173,0x0179,0x017f,0x0185,0x0188,0x018e,0x0194,0x019a,0x01a0,0x01a6,0x01ac,0x01b2,0x01ba,0x01c0,0x01c6,0x01cc,0x01d2,0x01d8,0x01e0,0x01e6,0x01ec,0x01f2,0x01f8,0x01fe,0x0206,0x020c,0x0212,0x0218,0x021e,0x0224,0x022a,0x0230,0x0236,0x023c 057e ; -------------------------------------------------------------------------------------- 057e ; Debug chain 057e ; -------------------------------------------------------------------------------------- 057e 0001 0003 | | .DBGLEN 0x0001,0x0003 0580 03bb 03bd | | .DBGLNO 0x03bb,0x03bd,0x03c3,0x03c6 0584 ; -------------------------------------------------------------------------------------- 0584 ; Debug chain 0584 ; -------------------------------------------------------------------------------------- 0584 0000 0009 | | .DBGLEN 0x0000,0x0009 0586 03d3 03d7 | | .DBGLNO 0x03d3,0x03d7,0x03df,0x03e5,0x03e7,0x03e9,0x03ee,0x03f1,0x03f8 058f ; -------------------------------------------------------------------------------------- 058f ; Debug chain 058f ; -------------------------------------------------------------------------------------- 058f 0000 000f | | .DBGLEN 0x0000,0x000f 0591 0403 0408 | | .DBGLNO 0x0403,0x0408,0x040e,0x0410,0x0414,0x0417,0x041a,0x041d,0x0423,0x0425,0x0428,0x042c,0x042e,0x0437,0x043c 05a0 ; -------------------------------------------------------------------------------------- 05a0 ; Debug chain 05a0 ; -------------------------------------------------------------------------------------- 05a0 0000 0011 | | .DBGLEN 0x0000,0x0011 05a2 0443 0448 | C H| .DBGLNO 0x0443,0x0448,0x044e,0x0450,0x0455,0x0458,0x045b,0x045e,0x0464,0x0466,0x0469,0x046d,0x046f,0x0476,0x0478,0x0481,0x0486 05b3 0000 0000 | | .BLANK 0000[0x4d]