Appendix PP.1 TRANSFERRING ASCII FILES FROM COMMODORE TO SIRIUSAscii files including programs may be transferred from C.B.M. computers to SIRIUS via the C.B.M. user port and the SIRIUS 1 control port. CABLE - a download cable is attached to the 50-pin internal user port (Jack-5) on the SIRIUS CPU board. The other end of the cable is connected to the user port (J2) of the Commodore. C.B.M. (J2) SIRIUS (J5)
GND A --------------------------- 11 GND
PA0 C --------------------------- 16 PA0
PA1 D --------------------------- 18 PA1
PA2 E --------------------------- 20 PA2
PA3 F --------------------------- 22 PA3
PA4 H --------------------------- 24 PA4
PA5 J --------------------------- 26 PA5
PA6 K --------------------------- 28 PA6
PA7 L --------------------------- 30 PA7
CB2 M --------------------------- 12 DSTB
SOFTWARE - For Sirius, a utility called PIPPIN.CMD is available from most dealers and distributers. It will work under CP/M-86 or MS-DOS (with emulation) perfectly. By invoking A>PIPPIN FILENAME=INP:[E]PIPPIN can also be invoked by PIPPIN The byte-stream transmitted from the source machine can be stored in the file, FILENAME, on the SIRIUS. This byte-stream MUST be terminated with an ASCII end-of-file character, ^Z (1AH). The [E] option causes PIPPIN to echo the transfer to the screen. "Wildcard" file designators may not be used in this operation. SOFTWARE - For C.B.M., the following program may be used for the Commodore computer. If compiled it will run significantly faster. Note: If you wish to transfer programs from the Commodore, you must first convert them to ASCII. This may be done as follows: DLOAD"PROGRAM NAME",D0 You now have an ASCII version of your program on disc. 10 REM **************************************** 20 REM * * 30 REM * C.B.M. TO SIRIUS ASCII FILE TRANSFER * 40 REM * * 50 REM * BY KEITH PICKUP - BARSON COMPUTERS * 55 REM * * 60 REM * this version for C.B.M. 8032 * 65 REM * * 70 REM * s=home ^=clr/home q=cursor down * 80 REM * r=rvs/on o=rvs/off * 85 REM * * 90 REM **************************************** 100 PRINT"sss^"; 110 SP$=" ":SP$=SP$+SP$ 120 PRINT"^qr C.B.M. TO SIRIUS 1 FILE TRANSFER PROGRAM - (C) KEITH PICKUP"; 130 PRINT" [BARSON COMPUTERS] o"; 140 PRINT:PRINT:INPUT"WHAT IS THE NAME OF THE PROGRAM TO TRANSFER ";PG$ 150 DOPEN#5,(PG$),R:SC=33487 160 IFDS=62THENPRINT"qrFILE - NOT FOUNDo":FORY=1TO1500:NEXT:DCLOSE:GOTO100 170 PRINT:PRINT"TRANSFERRING FILE r";PG$;"o TO SIRIUS 1" 175 PRINT CHR$(15); 180 GET#5,A$ 190 IFST=64THEN460 :REM DO END OF FILE 1A HEX 200 X=ASC(A$):IF X>127 THEN X=X-128 :REM KEEP TO ASCII 205 : :REM
|