DAP-16M2

* O100-01-H101 (DPM2UP) DRAWING NO. 41286623-001-02 PAGE 26

0861 * 0862 * SWAP: SWAP ACTIVE SYLLABLE REGISTERS 0863 * 0864 * 0865 * CALLING SEQUENCE: 0866 * JST SWAP 0867 * ......RETURN 0868 * 0869 * 0870 * RESULTS: 0871 * SYL1=SYL, SYL=SYL1 0872 * SIGT=SIGN, SIGN=SIGT 0873 * 0874 * 0875 01270 0 000000 SWAP DAC ** ENTRY 0876 01271 0 35 00674 LDX M4 FOUR WORDS TO BE INTERCHANGED 0877 01272 1 02 00454 LDA SYL+4,1 FETCH WORD FROM REGISTER ONE 0878 01273 1 13 00460 IMA SYL1+4,1 SWAP IT WITH WORD IN REGISTER TWO 0879 01274 1 04 00454 STA SYL+4,1 REPLACE WORD IN REGISTER ONE 0880 01275 0 12 00000 IRS 0 INCREMENT INDEX REGISTER 0881 01276 0 01 01272 JMP *-4 GO BACK FOR NEXT WORD 0882 01277 -0 01 01270 JMP* SWAP EXIT 0883 * 0884 * 0885 EJCT *************************************************************