|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_779ce4
└─⟦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 0340 | @ | .CONST 0x0340 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 003e | > | .CONST 0x003e ; Address of begin 0009 0067 | g | .CONST 0x0067 ; Address of exception handler 000a 0014 | | .CONST 0x0014 ; Number of locals 000b INIT_0008: 000b e00b | | Load 0x0,0xb 000c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 000d 02c7 | | Declare_Variable Any 000e 00d8 | | Load_Top At_Offset_0 000f 1c00 | | Execute_Immediate Run_Utility,0x0 0010 e00b | | Load 0x0,0xb 0011 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0012 02c7 | | Declare_Variable Any 0013 00d8 | | Load_Top At_Offset_0 0014 1c00 | | Execute_Immediate Run_Utility,0x0 0015 4800 |H | Short_Literal 0x0 0016 4802 |H | Short_Literal 0x2 0017 029f 007b | {| Declare_Subprogram INIT_0078,For_Call 0019 03fd | | Declare_Type Discrete,Defined 001a 00e2 | | Load_Encached Integer_Cache 001b 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 001c 00e2 | | Load_Encached Integer_Cache 001d 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 001e 00da | | Load_Top At_Offset_2 001f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0020 48ff |H | Short_Literal 0xff 0021 e00c | | Load 0x0,0xc 0022 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0023 1c08 | | Execute_Immediate Run_Utility,0x8 0024 00d8 | | Load_Top At_Offset_0 0025 1c00 | | Execute_Immediate Run_Utility,0x0 0026 00e3 | | Load_Encached Natural_Cache 0027 067f | | Execute_Immediate Set_Value_Unchecked,0x7f 0028 00e3 | | Load_Encached Natural_Cache 0029 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 002a 00e3 | | Load_Encached Natural_Cache 002b 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 002c 00e5 | | Load_Encached Long_Integer_Cache 002d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 002e 00e5 | | Load_Encached Long_Integer_Cache 002f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0030 029f 00a3 | | Declare_Subprogram INIT_00a0,For_Call 0032 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call 0034 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call 0036 029f 0113 | | Declare_Subprogram INIT_0110,For_Call 0038 029f 0163 | c| Declare_Subprogram INIT_0160,For_Call 003a 029f 01a3 | | Declare_Subprogram INIT_01a0,For_Call 003c 029f 028b | | Declare_Subprogram INIT_0288,For_Call 003e BODY_0008: 003e e408 | | Load 0x2,0x8 003f 4820 |H | Short_Literal 0x20 0040 4800 |H | Short_Literal 0x0 0041 e00c | | Load 0x0,0xc 0042 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0043 00d1 | | Pop_Control Pop_Count_1 0044 e402 | | Load 0x2,0x2 0045 00ea | | Load_Encached Null_String_Cache 0046 e5ff | | Load 0x2,-0x1 0047 4800 |H | Short_Literal 0x0 0048 e00b | | Load 0x0,0xb 0049 1814 | | Execute Package,Field_Execute,Field_Number 0x14 004a c402 | | Store 0x2,0x2 004b e403 | | Load 0x2,0x3 004c 00ea | | Load_Encached Null_String_Cache 004d e5fe | | Load 0x2,-0x2 004e 4801 |H | Short_Literal 0x1 004f e00b | | Load 0x0,0xb 0050 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0051 c403 | | Store 0x2,0x3 0052 00cf | | Action Mark_Auxiliary 0053 7804 |x | Jump 0x58 0054 e00d | | Load 0x0,0xd 0055 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0056 8414 | | Call 0x2,0x14 0057 00c9 | | Action Pop_Auxiliary_Loop 0058 e402 | | Load 0x2,0x2 0059 e00b | | Load 0x0,0xb 005a 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 005b 6ff8 |o | Jump_Zero 0x54 005c 00ce | | Action Pop_Auxiliary 005d 8411 | | Call 0x2,0x11 005e e402 | | Load 0x2,0x2 005f e00b | | Load 0x0,0xb 0060 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0061 c402 | | Store 0x2,0x2 0062 e403 | | Load 0x2,0x3 0063 e00b | | Load 0x0,0xb 0064 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0065 c403 | | Store 0x2,0x3 0066 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0067 TRAP_0008: 0067 0007 | | Action Break_Optional 0068 e402 | | Load 0x2,0x2 0069 e00b | | Load 0x0,0xb 006a 1815 | | Execute Package,Field_Execute,Field_Number 0x15 006b c402 | | Store 0x2,0x2 006c e403 | | Load 0x2,0x3 006d e00b | | Load 0x0,0xb 006e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 006f c403 | | Store 0x2,0x3 0070 00d8 | | Load_Top At_Offset_0 0071 0101 | | Execute Exception,Reraise 0072 0000 0000 | | .BLANK 0000[0x6] 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 007b | { | .CONST 0x007b ; Address of begin 0079 0004 | | .CONST 0x0004 ; Address of exception handler 007a 0001 | | .CONST 0x0001 ; Number of locals 007b BODY_0078: 007b INIT_0078: 007b 4607 |F | Jump_Case 0x8 007c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 007d 7807 |x | Jump 0x85 ; case 0x1 007e 780a |x | Jump 0x89 ; case 0x2 007f 780e |x | Jump 0x8e ; case 0x3 0080 7811 |x | Jump 0x92 ; case 0x4 0081 7812 |x | Jump 0x94 ; case 0x5 0082 7813 |x | Jump 0x96 ; case 0x6 0083 7816 |x | Jump 0x9a ; case 0x7 0084 4302 |C | .XXX[0x1] 0085 00da | | Load_Top At_Offset_2 0086 0091 02d5 | | Action Push_String_Extended_Indexed,0x2d5 ; "NO_ARGUMENT" 0088 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0089 00db | | Load_Top At_Offset_3 008a 00db | | Load_Top At_Offset_3 008b 00e0 | | Load_Encached Standard_Cache 008c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 008d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 008e 00da | | Load_Top At_Offset_2 008f 00e0 | | Load_Encached Standard_Cache 0090 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0091 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0092 00db | | Load_Top At_Offset_3 0093 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0094 00db | | Load_Top At_Offset_3 0095 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0096 e404 | | Load 0x2,0x4 0097 00dc | | Load_Top At_Offset_4 0098 0267 | g | Execute Discrete,Predecessor 0099 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 009a e404 | | Load 0x2,0x4 009b 00dc | | Load_Top At_Offset_4 009c 0268 | h | Execute Discrete,Successor 009d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 009e 0000 0000 | | .XXX[0x2] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a3 | | .CONST 0x00a3 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0001 | | .CONST 0x0001 ; Number of locals 00a3 BODY_00a0: 00a3 INIT_00a0: 00a3 0092 02d8 | | Action Push_String_Extended,0x2d8 ; "-- line" 00a5 e40b | | Load 0x2,0xb 00a6 00e0 | | Load_Encached Standard_Cache 00a7 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00a8 01cc | | Execute Vector,Catenate 00a9 00ca | | Action Exit_Nullary_Function 00aa 0000 0000 | | .BLANK 0000[0x6] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00c9 | | .CONST 0x00c9 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0002 | | .CONST 0x0002 ; Number of locals 00b3 INIT_00b0: 00b3 483b |H; | Short_Literal 0x3b 00b4 482e |H. | Short_Literal 0x2e 00b5 0092 02d9 | | Action Push_String_Extended,0x2d9 ; "DELAY" 00b7 e40c | | Load 0x2,0xc 00b8 4be8 |K | Short_Literal 0x3e8 00b9 0270 | p | Execute Discrete,Divide 00ba 00e0 | | Load_Encached Standard_Cache 00bb 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00bc 01cc | | Execute Vector,Catenate 00bd 01cb | | Execute Vector,Append 00be 4820 |H | Short_Literal 0x20 00bf 4800 |H | Short_Literal 0x0 00c0 480a |H | Short_Literal 0xa 00c1 e40c | | Load 0x2,0xc 00c2 4be8 |K | Short_Literal 0x3e8 00c3 026f | o | Execute Discrete,Remainder 00c4 e00e | | Load 0x0,0xe 00c5 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00c6 01cc | | Execute Vector,Catenate 00c7 01cb | | Execute Vector,Append 00c8 0007 | | Action Break_Optional 00c9 BODY_00b0: 00c9 00d8 | | Load_Top At_Offset_0 00ca 00ca | | Action Exit_Nullary_Function 00cb 0000 0000 | | .BLANK 0000[0x5] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d3 | | .CONST 0x00d3 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0001 | | .CONST 0x0001 ; Number of locals 00d3 BODY_00d0: 00d3 INIT_00d0: 00d3 e5fd | | Load 0x2,-0x3 00d4 6804 |h | Jump_Zero 0xd9 00d5 840f | | Call 0x2,0xf 00d6 e403 | | Load 0x2,0x3 00d7 e00b | | Load 0x0,0xb 00d8 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 00d9 00da | | Load_Top At_Offset_2 00da 01db | | Execute Vector,Length 00db 0d37 | 7 | Execute_Immediate Less,0x37 00dc 6818 |h | Jump_Zero 0xf5 00dd 00da | | Load_Top At_Offset_2 00de 00db | | Load_Top At_Offset_3 00df 01db | | Execute Vector,Length 00e0 4837 |H7 | Short_Literal 0x37 00e1 00e9 | | Load_Encached String_Cache 00e2 035b | [ | Declare_Type Array,Constrained 00e3 0337 | 7 | Declare_Variable Array 00e4 4837 |H7 | Short_Literal 0x37 00e5 00d9 | | Load_Top At_Offset_1 00e6 01dd | | Execute Vector,First 00e7 0263 | c | Execute Discrete,Above_Bound 00e8 7005 |p | Jump_Nonzero 0xee 00e9 4820 |H | Short_Literal 0x20 00ea 00d9 | | Load_Top At_Offset_1 00eb e603 | | Load 0x3,0x3 00ec 01d6 | | Execute Vector,Field_Write 00ed 3ffb |? | Loop_Increasing 0xe9 00ee 01cc | | Execute Vector,Catenate 00ef 840e | | Call 0x2,0xe 00f0 01cc | | Execute Vector,Catenate 00f1 e403 | | Load 0x2,0x3 00f2 e00b | | Load 0x0,0xb 00f3 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 00f4 7808 |x | Jump 0xfd 00f5 4820 |H | Short_Literal 0x20 00f6 00db | | Load_Top At_Offset_3 00f7 01cb | | Execute Vector,Append 00f8 840e | | Call 0x2,0xe 00f9 01cc | | Execute Vector,Catenate 00fa e403 | | Load 0x2,0x3 00fb e00b | | Load 0x0,0xb 00fc 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 00fd 00db | | Load_Top At_Offset_3 00fe 6806 |h | Jump_Zero 0x105 00ff e40a | | Load 0x2,0xa 0100 0a02 | | Execute_Immediate Plus,0x2 0101 c40b | | Store 0x2,0xb 0102 4800 |H | Short_Literal 0x0 0103 a40c | | Store_Unchecked 0x2,0xc 0104 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0105 e40a | | Load 0x2,0xa 0106 a40b | | Store_Unchecked 0x2,0xb 0107 e40d | | Load 0x2,0xd 0108 a40c | | Store_Unchecked 0x2,0xc 0109 4503 |E | Exit_Suprogram New_Top_Offset 0x3 010a 0000 0000 | | .BLANK 0000[0x6] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 011a | | .CONST 0x011a ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0003 | | .CONST 0x0003 ; Number of locals 0113 INIT_0110: 0113 e408 | | Load 0x2,0x8 0114 e00c | | Load 0x0,0xc 0115 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0116 00e3 | | Load_Encached Natural_Cache 0117 03f1 | | Declare_Variable Discrete,With_Value 0118 00e3 | | Load_Encached Natural_Cache 0119 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 011a BODY_0110: 011a 00d9 | | Load_Top At_Offset_1 011b 0c01 | | Execute_Immediate Greater_Equal,0x1 011c 683a |h: | Jump_Zero 0x157 011d 00cf | | Action Mark_Auxiliary 011e 7821 |x! | Jump 0x140 011f 00d9 | | Load_Top At_Offset_1 0120 00d8 | | Load_Top At_Offset_0 0121 00e4 | | Load_Encached Positive_Cache 0122 0260 | ` | Execute Discrete,In_Type 0123 7001 |p | Jump_Nonzero 0x125 0124 0801 | | Execute_Immediate Raise,0x1 0125 e408 | | Load 0x2,0x8 0126 e00c | | Load 0x0,0xc 0127 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0128 0f22 | " | Execute_Immediate Equal,0x22 0129 6812 |h | Jump_Zero 0x13c 012a e408 | | Load 0x2,0x8 012b 4822 |H" | Short_Literal 0x22 012c 00db | | Load_Top At_Offset_3 012d 00d8 | | Load_Top At_Offset_0 012e 00e4 | | Load_Encached Positive_Cache 012f 0260 | ` | Execute Discrete,In_Type 0130 7001 |p | Jump_Nonzero 0x132 0131 0801 | | Execute_Immediate Raise,0x1 0132 e00c | | Load 0x0,0xc 0133 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0134 00d1 | | Pop_Control Pop_Count_1 0135 00d9 | | Load_Top At_Offset_1 0136 0a02 | | Execute_Immediate Plus,0x2 0137 005a | Z | Store_Top Discrete,At_Offset_2 0138 00da | | Load_Top At_Offset_2 0139 0a01 | | Execute_Immediate Plus,0x1 013a 005b | [ | Store_Top Discrete,At_Offset_3 013b 7803 |x | Jump 0x13f 013c 00d9 | | Load_Top At_Offset_1 013d 0a01 | | Execute_Immediate Plus,0x1 013e 005a | Z | Store_Top Discrete,At_Offset_2 013f 00c9 | | Action Pop_Auxiliary_Loop 0140 00d9 | | Load_Top At_Offset_1 0141 00db | | Load_Top At_Offset_3 0142 027a | z | Execute Discrete,Less_Equal 0143 77db |w | Jump_Nonzero 0x11f 0144 00ce | | Action Pop_Auxiliary 0145 4800 |H | Short_Literal 0x0 0146 0092 02da | | Action Push_String_Extended,0x2da ; "EDITOR.CHAR.INSERT_STRING (\x22" 0148 e408 | | Load 0x2,0x8 0149 e00c | | Load 0x0,0xc 014a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 014b 01cc | | Execute Vector,Catenate 014c 0092 02db | | Action Push_String_Extended,0x2db ; "\x22);" 014e 01cc | | Execute Vector,Catenate 014f 8410 | | Call 0x2,0x10 0150 e408 | | Load 0x2,0x8 0151 4820 |H | Short_Literal 0x20 0152 4800 |H | Short_Literal 0x0 0153 e00c | | Load 0x0,0xc 0154 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0155 00d1 | | Pop_Control Pop_Count_1 0156 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0157 e40c | | Load 0x2,0xc 0158 e40d | | Load 0x2,0xd 0159 0273 | s | Execute Discrete,Plus 015a a40c | | Store_Unchecked 0x2,0xc 015b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 015c 0000 0000 | | .BLANK 0000[0x4] 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0163 | c | .CONST 0x0163 ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0001 | | .CONST 0x0001 ; Number of locals 0163 BODY_0160: 0163 INIT_0160: 0163 e407 | | Load 0x2,0x7 0164 6817 |h | Jump_Zero 0x17c 0165 4801 |H | Short_Literal 0x1 0166 00db | | Load_Top At_Offset_3 0167 e00f | | Load 0x0,0xf 0168 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0169 0092 02dc | | Action Push_String_Extended,0x2dc ; "(" 016b 01cc | | Execute Vector,Catenate 016c e406 | | Load 0x2,0x6 016d e405 | | Load 0x2,0x5 016e 0271 | q | Execute Discrete,Times 016f 00d8 | | Load_Top At_Offset_0 0170 00e2 | | Load_Encached Integer_Cache 0171 0260 | ` | Execute Discrete,In_Type 0172 7001 |p | Jump_Nonzero 0x174 0173 0801 | | Execute_Immediate Raise,0x1 0174 00e0 | | Load_Encached Standard_Cache 0175 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0176 01cc | | Execute Vector,Catenate 0177 0092 02dd | | Action Push_String_Extended,0x2dd ; ");" 0179 01cc | | Execute Vector,Catenate 017a 8410 | | Call 0x2,0x10 017b 781d |x | Jump 0x199 017c 00da | | Load_Top At_Offset_2 017d 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 017e 0c02 | | Execute_Immediate Greater_Equal,0x2 017f 6811 |h | Jump_Zero 0x191 0180 4801 |H | Short_Literal 0x1 0181 00db | | Load_Top At_Offset_3 0182 e00f | | Load 0x0,0xf 0183 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0184 0092 02dc | | Action Push_String_Extended,0x2dc ; "(" 0186 01cc | | Execute Vector,Catenate 0187 e7ff | | Load 0x3,-0x1 0188 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0189 00e0 | | Load_Encached Standard_Cache 018a 1818 | | Execute Package,Field_Execute,Field_Number 0x18 018b 01cc | | Execute Vector,Catenate 018c 0092 02dd | | Action Push_String_Extended,0x2dd ; ");" 018e 01cc | | Execute Vector,Catenate 018f 8410 | | Call 0x2,0x10 0190 7808 |x | Jump 0x199 0191 4801 |H | Short_Literal 0x1 0192 00db | | Load_Top At_Offset_3 0193 e00f | | Load 0x0,0xf 0194 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0195 0092 02de | | Action Push_String_Extended,0x2de ; ";" 0197 01cc | | Execute Vector,Catenate 0198 8410 | | Call 0x2,0x10 0199 4801 |H | Short_Literal 0x1 019a a406 | | Store_Unchecked 0x2,0x6 019b 4801 |H | Short_Literal 0x1 019c a405 | | Store_Unchecked 0x2,0x5 019d 4800 |H | Short_Literal 0x0 019e a407 | | Store_Unchecked 0x2,0x7 019f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a5 | | .CONST 0x01a5 ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0002 | | .CONST 0x0002 ; Number of locals 01a3 INIT_01a0: 01a3 e010 | | Load 0x0,0x10 01a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01a5 BODY_01a0: 01a5 00db | | Load_Top At_Offset_3 01a6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01a7 68d2 |h | Jump_Zero 0x27a 01a8 00db | | Load_Top At_Offset_3 01a9 e010 | | Load 0x0,0x10 01aa 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01ab 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01ac 683d |h= | Jump_Zero 0x1ea 01ad e407 | | Load 0x2,0x7 01ae 6827 |h' | Jump_Zero 0x1d6 01af e408 | | Load 0x2,0x8 01b0 e00c | | Load 0x0,0xc 01b1 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 01b2 e406 | | Load 0x2,0x6 01b3 e405 | | Load 0x2,0x5 01b4 0271 | q | Execute Discrete,Times 01b5 0273 | s | Execute Discrete,Plus 01b6 e409 | | Load 0x2,0x9 01b7 027d | } | Execute Discrete,Greater 01b8 6801 |h | Jump_Zero 0x1ba 01b9 8411 | | Call 0x2,0x11 01ba 00cf | | Action Mark_Auxiliary 01bb e406 | | Load 0x2,0x6 01bc e405 | | Load 0x2,0x5 01bd 0271 | q | Execute Discrete,Times 01be 00d8 | | Load_Top At_Offset_0 01bf 00e2 | | Load_Encached Integer_Cache 01c0 0260 | ` | Execute Discrete,In_Type 01c1 7001 |p | Jump_Nonzero 0x1c3 01c2 0801 | | Execute_Immediate Raise,0x1 01c3 4801 |H | Short_Literal 0x1 01c4 0263 | c | Execute Discrete,Above_Bound 01c5 700a |p | Jump_Nonzero 0x1d0 01c6 e408 | | Load 0x2,0x8 01c7 e7ff | | Load 0x3,-0x1 01c8 e010 | | Load 0x0,0x10 01c9 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01ca 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01cb e00c | | Load 0x0,0xc 01cc 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01cd 00d1 | | Pop_Control Pop_Count_1 01ce 00c8 | | Action Pop_Auxiliary_Range 01cf 3ff6 |? | Loop_Increasing 0x1c6 01d0 00ce | | Action Pop_Auxiliary 01d1 4800 |H | Short_Literal 0x0 01d2 a407 | | Store_Unchecked 0x2,0x7 01d3 4801 |H | Short_Literal 0x1 01d4 a405 | | Store_Unchecked 0x2,0x5 01d5 780f |x | Jump 0x1e5 01d6 e408 | | Load 0x2,0x8 01d7 e00c | | Load 0x0,0xc 01d8 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 01d9 e409 | | Load 0x2,0x9 01da 027d | } | Execute Discrete,Greater 01db 6801 |h | Jump_Zero 0x1dd 01dc 8411 | | Call 0x2,0x11 01dd e408 | | Load 0x2,0x8 01de e7ff | | Load 0x3,-0x1 01df e010 | | Load 0x0,0x10 01e0 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01e1 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01e2 e00c | | Load 0x0,0xc 01e3 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01e4 00d1 | | Pop_Control Pop_Count_1 01e5 e40c | | Load 0x2,0xc 01e6 e40d | | Load 0x2,0xd 01e7 0273 | s | Execute Discrete,Plus 01e8 a40c | | Store_Unchecked 0x2,0xc 01e9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01ea 00db | | Load_Top At_Offset_3 01eb e010 | | Load 0x0,0x10 01ec 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01ed 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01ee 6833 |h3 | Jump_Zero 0x222 01ef 8411 | | Call 0x2,0x11 01f0 e407 | | Load 0x2,0x7 01f1 6822 |h" | Jump_Zero 0x214 01f2 4801 |H | Short_Literal 0x1 01f3 0092 02df | | Action Push_String_Extended,0x2df ; "EDITOR.MACRO.EXECUTE (" 01f5 e406 | | Load 0x2,0x6 01f6 e405 | | Load 0x2,0x5 01f7 0271 | q | Execute Discrete,Times 01f8 00d8 | | Load_Top At_Offset_0 01f9 00e2 | | Load_Encached Integer_Cache 01fa 0260 | ` | Execute Discrete,In_Type 01fb 7001 |p | Jump_Nonzero 0x1fd 01fc 0801 | | Execute_Immediate Raise,0x1 01fd 00e0 | | Load_Encached Standard_Cache 01fe 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01ff 01cc | | Execute Vector,Catenate 0200 0092 02e0 | | Action Push_String_Extended,0x2e0 ; "," 0202 01cc | | Execute Vector,Catenate 0203 e7ff | | Load 0x3,-0x1 0204 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0205 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0206 00e0 | | Load_Encached Standard_Cache 0207 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0208 01cc | | Execute Vector,Catenate 0209 0092 02dd | | Action Push_String_Extended,0x2dd ; ");" 020b 01cc | | Execute Vector,Catenate 020c 8410 | | Call 0x2,0x10 020d 4800 |H | Short_Literal 0x0 020e a407 | | Store_Unchecked 0x2,0x7 020f 4801 |H | Short_Literal 0x1 0210 a405 | | Store_Unchecked 0x2,0x5 0211 4801 |H | Short_Literal 0x1 0212 a406 | | Store_Unchecked 0x2,0x6 0213 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0214 4801 |H | Short_Literal 0x1 0215 0092 02e1 | | Action Push_String_Extended,0x2e1 ; "EDITOR.MACRO.EXECUTE ( 1," 0217 e7ff | | Load 0x3,-0x1 0218 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0219 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 021a 00e0 | | Load_Encached Standard_Cache 021b 1818 | | Execute Package,Field_Execute,Field_Number 0x18 021c 01cc | | Execute Vector,Catenate 021d 0092 02dd | | Action Push_String_Extended,0x2dd ; ");" 021f 01cc | | Execute Vector,Catenate 0220 8410 | | Call 0x2,0x10 0221 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0222 00db | | Load_Top At_Offset_3 0223 e010 | | Load 0x0,0x10 0224 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0225 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0226 684f |hO | Jump_Zero 0x276 0227 8411 | | Call 0x2,0x11 0228 00db | | Load_Top At_Offset_3 0229 e010 | | Load 0x0,0x10 022a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 022b 1817 | | Execute Package,Field_Execute,Field_Number 0x17 022c 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 022d 00d8 | | Load_Top At_Offset_0 022e 0b01 | | Execute_Immediate Case_Compare,0x1 022f 700c |p | Jump_Nonzero 0x23c 0230 00d8 | | Load_Top At_Offset_0 0231 4802 |H | Short_Literal 0x2 0232 480b |H | Short_Literal 0xb 0233 0262 | b | Execute Discrete,In_Range 0234 701b |p | Jump_Nonzero 0x250 0235 0b0c | | Execute_Immediate Case_Compare,0xc 0236 702d |p- | Jump_Nonzero 0x264 0237 0f0d | | Execute_Immediate Equal,0xd 0238 7037 |p7 | Jump_Nonzero 0x270 0239 00db | | Load_Top At_Offset_3 023a 8412 | | Call 0x2,0x12 023b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 023c 00d1 | | Pop_Control Pop_Count_1 023d e407 | | Load 0x2,0x7 023e 6803 |h | Jump_Zero 0x242 023f e407 | | Load 0x2,0x7 0240 0f02 | | Execute_Immediate Equal,0x2 0241 6804 |h | Jump_Zero 0x246 0242 00db | | Load_Top At_Offset_3 0243 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0244 a406 | | Store_Unchecked 0x2,0x6 0245 7807 |x | Jump 0x24d 0246 e406 | | Load 0x2,0x6 0247 480a |H | Short_Literal 0xa 0248 0271 | q | Execute Discrete,Times 0249 e7ff | | Load 0x3,-0x1 024a 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 024b 0273 | s | Execute Discrete,Plus 024c c406 | | Store 0x2,0x6 024d 4801 |H | Short_Literal 0x1 024e a407 | | Store_Unchecked 0x2,0x7 024f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0250 00d1 | | Pop_Control Pop_Count_1 0251 e407 | | Load 0x2,0x7 0252 6803 |h | Jump_Zero 0x256 0253 e407 | | Load 0x2,0x7 0254 0f02 | | Execute_Immediate Equal,0x2 0255 6806 |h | Jump_Zero 0x25c 0256 00d8 | | Load_Top At_Offset_0 0257 0afe | | Execute_Immediate Plus,-0x2 0258 c406 | | Store 0x2,0x6 0259 4801 |H | Short_Literal 0x1 025a a407 | | Store_Unchecked 0x2,0x7 025b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 025c e406 | | Load 0x2,0x6 025d 480a |H | Short_Literal 0xa 025e 0271 | q | Execute Discrete,Times 025f 00d9 | | Load_Top At_Offset_1 0260 0afe | | Execute_Immediate Plus,-0x2 0261 0273 | s | Execute Discrete,Plus 0262 c406 | | Store 0x2,0x6 0263 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0264 00d1 | | Pop_Control Pop_Count_1 0265 e405 | | Load 0x2,0x5 0266 0275 | u | Execute Discrete,Unary_Minus 0267 a405 | | Store_Unchecked 0x2,0x5 0268 e407 | | Load 0x2,0x7 0269 0e01 | | Execute_Immediate Not_Equal,0x1 026a 680a |h | Jump_Zero 0x275 026b 4801 |H | Short_Literal 0x1 026c a406 | | Store_Unchecked 0x2,0x6 026d 4802 |H | Short_Literal 0x2 026e a407 | | Store_Unchecked 0x2,0x7 026f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0270 e406 | | Load 0x2,0x6 0271 0902 | | Execute_Immediate Binary_Scale,0x2 0272 c406 | | Store 0x2,0x6 0273 4802 |H | Short_Literal 0x2 0274 a407 | | Store_Unchecked 0x2,0x7 0275 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0276 8411 | | Call 0x2,0x11 0277 00db | | Load_Top At_Offset_3 0278 8412 | | Call 0x2,0x12 0279 4502 |E | Exit_Suprogram New_Top_Offset 0x2 027a 4801 |H | Short_Literal 0x1 027b a406 | | Store_Unchecked 0x2,0x6 027c 4801 |H | Short_Literal 0x1 027d a405 | | Store_Unchecked 0x2,0x5 027e 4800 |H | Short_Literal 0x0 027f a407 | | Store_Unchecked 0x2,0x7 0280 8411 | | Call 0x2,0x11 0281 4801 |H | Short_Literal 0x1 0282 e7ff | | Load 0x3,-0x1 0283 e00f | | Load 0x0,0xf 0284 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0285 8410 | | Call 0x2,0x10 0286 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0287 0000 | | .XXX[0x1] 0288 ; -------------------------------------------------------------------------------------- 0288 ; SUBPROGRAM 0288 ; -------------------------------------------------------------------------------------- 0288 029f | | .CONST 0x029f ; Address of begin 0289 0004 | | .CONST 0x0004 ; Address of exception handler 028a 0005 | | .CONST 0x0005 ; Number of locals 028b INIT_0288: 028b e011 | | Load 0x0,0x11 028c 1b47 | G | Execute Package,Field_Read,Field_Number 0x47 028d 1b12 | | Execute Package,Field_Read,Field_Number 0x12 028e e402 | | Load 0x2,0x2 028f e00b | | Load 0x0,0xb 0290 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0291 e402 | | Load 0x2,0x2 0292 e00b | | Load 0x0,0xb 0293 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0294 00e2 | | Load_Encached Integer_Cache 0295 00e0 | | Load_Encached Standard_Cache 0296 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0297 e00d | | Load 0x0,0xd 0298 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0299 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 029a e00f | | Load 0x0,0xf 029b 1b14 | | Execute Package,Field_Read,Field_Number 0x14 029c 0322 | " | Declare_Variable Record 029d 00d8 | | Load_Top At_Offset_0 029e 1c00 | | Execute_Immediate Run_Utility,0x0 029f BODY_0288: 029f 00da | | Load_Top At_Offset_2 02a0 00e5 | | Load_Encached Long_Integer_Cache 02a1 00e0 | | Load_Encached Standard_Cache 02a2 1819 | | Execute Package,Field_Execute,Field_Number 0x19 02a3 a40d | | Store_Unchecked 0x2,0xd 02a4 e011 | | Load 0x0,0x11 02a5 1b47 | G | Execute Package,Field_Read,Field_Number 0x47 02a6 1b12 | | Execute Package,Field_Read,Field_Number 0x12 02a7 00d9 | | Load_Top At_Offset_1 02a8 00db | | Load_Top At_Offset_3 02a9 e7ff | | Load 0x3,-0x1 02aa 01cb | | Execute Vector,Append 02ab e5fc | | Load 0x2,-0x4 02ac e011 | | Load 0x0,0x11 02ad 1b47 | G | Execute Package,Field_Read,Field_Number 0x47 02ae 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02af 00d1 | | Pop_Control Pop_Count_1 02b0 c602 | | Store 0x3,0x2 02b1 00db | | Load_Top At_Offset_3 02b2 4602 |F | Jump_Case 0x3 02b3 781b |x | Jump 0x2cf ; case 0x0 02b4 780e |x | Jump 0x2c3 ; case 0x1 02b5 7800 |x | Jump 0x2b6 ; case 0x2 02b6 e40a | | Load 0x2,0xa 02b7 0a02 | | Execute_Immediate Plus,0x2 02b8 c40a | | Store 0x2,0xa 02b9 4800 |H | Short_Literal 0x0 02ba a40c | | Store_Unchecked 0x2,0xc 02bb e40a | | Load 0x2,0xa 02bc a40b | | Store_Unchecked 0x2,0xb 02bd 0092 02e2 | | Action Push_String_Extended,0x2e2 ; "-- keys were lost here. no longer defined" 02bf e403 | | Load 0x2,0x3 02c0 e00b | | Load 0x0,0xb 02c1 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 02c2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02c3 e40c | | Load 0x2,0xc 02c4 e40d | | Load 0x2,0xd 02c5 0273 | s | Execute Discrete,Plus 02c6 a40c | | Store_Unchecked 0x2,0xc 02c7 e40a | | Load 0x2,0xa 02c8 0a02 | | Execute_Immediate Plus,0x2 02c9 c40a | | Store 0x2,0xa 02ca 00d9 | | Load_Top At_Offset_1 02cb e7ff | | Load 0x3,-0x1 02cc 01cb | | Execute Vector,Append 02cd 8414 | | Call 0x2,0x14 02ce 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02cf 00d8 | | Load_Top At_Offset_0 02d0 8413 | | Call 0x2,0x13 02d1 e40a | | Load 0x2,0xa 02d2 0a02 | | Execute_Immediate Plus,0x2 02d3 c40a | | Store 0x2,0xa 02d4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02d5 ; -------------------------------------------------------------------------------------- 02d5 ; STRING TABLE 02d5 ; -------------------------------------------------------------------------------------- 02d5 001e | | .STRTAB 0x001e->0x02e4 ; "NO_ARGUMENT" 02d6 0027 | ' | .STRTAB 0x0027->0x02e9 ; "EXPLICIT_ARGUMENT" 02d7 0036 | 6 | .STRTAB 0x0036->0x02f2 ; "IMPLICIT_ARGUMENT" 02d8 0045 | E | .STRTAB 0x0045->0x02fa ; "-- line" 02d9 004a | J | .STRTAB 0x004a->0x02fe ; "DELAY" 02da 004d | M | .STRTAB 0x004d->0x0300 ; "EDITOR.CHAR.INSERT_STRING (\x22" 02db 0067 | g | .STRTAB 0x0067->0x030e ; "\x22);" 02dc 0068 | h | .STRTAB 0x0068->0x0310 ; "(" 02dd 0067 | g | .STRTAB 0x0067->0x0310 ; ");" 02de 0067 | g | .STRTAB 0x0067->0x0311 ; ";" 02df 0066 | f | .STRTAB 0x0066->0x0312 ; "EDITOR.MACRO.EXECUTE (" 02e0 007a | z | .STRTAB 0x007a->0x031d ; "," 02e1 0079 | y | .STRTAB 0x0079->0x031d ; "EDITOR.MACRO.EXECUTE ( 1," 02e2 0090 | | .STRTAB 0x0090->0x032a ; "-- keys were lost here. no longer defined" 02e3 00b7 | | .STREND 0x00b7->0x033e 02e4 4e4f 5f41 |NO_A| .STRTAB_STRINGS 033f 0000 | | .XXX[0x1] 0340 ; -------------------------------------------------------------------------------------- 0340 ; Debug Table 0340 ; -------------------------------------------------------------------------------------- 0340 0004 0009 | | .DEBUG4 0x0004,0x0009,0x862a,0x0000,0x0001,0x0000 0346 0000 0000 | | .BLANK 0000[0xba]