80-Bus News

  

January–February 1984, Volume 3, Issue 1











Page 16 of 55











110 REM SEND SECTION

120 PRINT B$;"pon,1/s":REM Initialise Sender as system controller 130 INPUT “File name";FS$

140 PRINT BS;"wrt,2 “;FS$:REM Send filename to be loaded across 150 OPEN “R",1,FS$,128

160 R=1:FIELD 1,128 AS x$

170 GET 1,1:REM Force dummy file read otherwise EOF function does not work 180 WHILE NOT EOF(1):REM Main sending loop

190 GET 1,R

200 R=R+1

210 E¶$1$="":S2$="":REM Generate two ASCII-Hex strings 128 and 129 bytes long 220 FOR A=1l TO 64:REM the second string has an EOF marker attached. 230 SS=HEXS$ (ASC(MIDS(X$,A,1))):IF LEN(S$)=1 THEN S$="0"48$

240 S1$=S1$+5$

250 NEXT A

260 FOR A=65 TO 128

270 S$=HEXS (ASC (MIDS (X$,A4,1))): IF LEN(S$)=1 THEN S$="0"+S$

280 $2$=82$4+8$

290 NEXT A

300 IF EOF(1) THEN S$="A” ELSE S$$="M”

310 $2$=S$2$+8$

320 PRINT BS;"wrt,2 “;S1$

330 PRINT BS;"wrt,2 “;82$

340 WEND

350 PRINT” Complete.”

360 INPUT “Any more files to send";A$

370 IF AS="y” OR Ag="Y” THEN RUN

380 END

390 REM RECEIVE SECTION

400 PRINT B$;"pon,2":REM Power-on the receiver as address 2

410 PRINT BS;:INPUT “red, 1"; PRS

420 PRINT’File “;FR$;” is being received.”

430 Rel

440 OPEN “R",1,FRS,128

450 FIELD 1,128 AS X$

460 REM RE-ENTER HERE

470 TEMPS$="” ‘

480 PRINT BS;:INPUT “red,1";S15’

490 PRINT BS::INPUT “red,1";S2$ :TEMPS="”

500 IF RIGHT$(S2$,1)="A” AND LEN(S2$)=129 THEN 610:REM END OF FILE 510 FOR A=1 TO 128 STEP 2

520 TEMP$=TEMPS+CHRS (VAL ("&H"+MIDS (S1$,A,2)))

530 NEXT A

540 FOR A=1 TO 128 STEP 2

550 TEMPS=TEMPS+CHRS$ (VAL ("SH"+MID$ (82$,A, 2)))

560 NEXT A

570 LSET X$=TEMPS

580 PUT 1,R:R=R+1

590 IF RIGHTS(S2$,1)="M” THEN 460:REM Not EOF yet

600 IF RIGHTS (S28,1)<>"A” THEN PRINT” error”: STOP

610 CLOSE 1

620 PRINT B$;"rdy":REM Read last line-feed from Bus

630 RUN

100 END

20 WIDTH 255 90 IF A$<>"” THEN PRINT CHRS$(7);:GOTO 60

10 REM 48810, Written by S.Wood. March 1984 30 BS=CHRS$(2)

50 REM RECEIVER IS ADDRESS 2

40 REM SENDER IS ADDRESS 1 & SYSTEM CONTROLLER 60 INPUT “S)END OR R)ECEIVE";A$

70 IF AS="R” OR AS="r” THEN 390 80 IF AS=""s” OR A$="S” THEN 110

16 CP/M File Transfer Program Via The IEEE488 Bus.

serial interface methods previously used.

the amount of data conversion done in BASIC, more features will be made available which fast indeed (approaching 200 K bytes a second).

Below is a simple program written in BASIC- to be transfered between them at a reasonable rate.

machines fitted with the EV Computing IEEE488 inte Shortly

be in the disk drives and not in the software or interface.

80 which,

rface, will allow data files

The speed loss is due to

but it is still faster than

a machine code version with

will be able to transfer files very The speed limitation then will

if present on two

By S. Wood

sat att ica ic He Sy Be AE i eo eA,

fer

|


This is an OCR’d version of the scanned page and likely contains recognition errors.











Page 16 of 55