ASMB,A,B,L ORG 57600B * SWOP NOP JSB F GO SWAP THEM JSB FE,I GO TO BCS CLF 0 GET THAT DAMN THING OFF JSB F SWAP THEM BACK JMP SWOP,I RETURN F NOP RTATE LDA ADRES,I LO-CORE CHAR IN A LDB AT,I HI-CORE CHAR IN B STA AT,I STORE LO-CORE IN HI-CORE STB ADRES,I STORE HI-CORE IN LO-CORE ISZ ADRES VP LO-CORE POINTER ISZ AT VP HI-CORE POINTER ISZ SCONT THRU CORE ? JMP RTATE NO/ANOTHER LOOP LDB BDRES STB SCONT LDB ADD STB ADRES LDB ATZ STB AT JMP F,I * FE OCT 2000 ADRES OCT 2 LO-CORE POINTER AT OCT 30002 ATZ OCT 30002 BDRES OCT 154100 SCONT OCT 154100 ADD OCT 2 END SWOP 24380-18026 1402