BACK TO FRONT PAGE



APPENDIX P
P.1  TRANSFERRING ASCII FILES FROM COMMODORE TO SIRIUS

Ascii 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
PAO     C --------------------------- 16  PAO
PA1     D --------------------------- 18  PA1
PA2     E --------------------------- 2O  PA2
PA3     F --------------------------- 22  PA3
PA4     H --------------------------- 24  PA4
PA5     J --------------------------- 26  PA5
PA6     K --------------------------- 28  PA6
PA7     L --------------------------- 30  PA7
CB2     M --------------------------- l2  DSTB

SOFTWARE - For Sirius. a utility called PIPPIN.CMD is available
                    from most dealers and distributors. It will work under
                    CP/M-86 or MS-DOS (with emulation) perfectly.

                    By invoking A>PIPPIN FILENAME=INP:[E] <CR>

PIPPIN can also be invoked by PIPPIN <CR> and a * will appear
to accept the remaining command, the difference is that PIPPIN
will stay active if invoked this way and allow for multiple
transfer of files without it returning to the--operating system
and having to be re-loaded each time.

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 <CR>

                    DOPEN#5,"ASCII NAME",W,DO:CMD5:LIST <CR>

                    PRINT#5,:DCLOSE <CR>
                    You now have an ASCII version of your program on disc.


1O 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    ^=cir/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 IF DS=62 THEN PRINT "qrFILE - NOT FOUNDo" : FOR Y= lTO 1500 : 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 <CR> & <LF>
210 IF X=13 THEN GOSUB 1000 :X=10: GOSUB1000: CT=O:PRINT"^"; : GOTO 180
270 IF X<1THEN X=32
280 POKE SC+CT, X
3C0 GOSUB 1000 : GOTO 180 : GO TO MAIN OUTPUT ROUTINE
460 REM END OF JOB 
470 X=13: GOSUB1060: X=10: GOSUB1000: X=26: GOSUB 1O0O: X=0: GOSUB1000 :DCLOSE
480 PRINT "qqqqqqqqJOB COMPLETED - O.K. ": FOR K=1 TO 3000 :NEXT: CLR: GOTO100
1000 POKE 59459,255                        :REM SET DDR 0-7 AS OUTPUTS
1010 POKE 59467,PEEK(59467)AND227          :REM DISABLE SHIFT REG
1020 POKE 59468,.PEEK(59468)AND310R192     :REM SET CB2 LOW
1030 POKE 59471,X: CT=CT+I                 :REM WRITE VAR. X TO ORA
1040 POKE 59468,PEEK(59468)AND 31 0R 224   :REM SET CB2 HIGH
lO50 RETURN