1 REM loader comrom 200 2 REM creates comrom.co 3 REM (c) 1989 Wilson van Alst 4 REM moves 32kbyte binary image 5 REM from COM:88N1E to extRAM. 6 REM Use null modem cable. 7 REM Run comrom.co on receiving 100/102 8 REM then run romcom.co on sending 100/102 9 REM 50 second for 32kbyte copy. 10 CS=0:FOR AD=63572 TO 63625 15 READ D%:POKE AD,D%:CS=CS+D% 20 NEXT AD 25 IF CS<> 6735 THEN BEEP:PRINT"Typo in data!!?":END 30 SAVEM"COMROM",63572,63625,63572 50 DATA 33,130,248,55,205,29,25,33,0,0 51 DATA 17,0,128,205,25,133,216,194,172,21 52 DATA 79,243,219,216,230,12,246,2,211,216 53 DATA 113,230,12,211,216,251,149,204,201,143 54 DATA 35,223,194,97,248,201 55 DATA 56,56,78,49,69,78,78,0 56 REM line 55 is com stats: 88N1ENN