Trailing-Edge
-
PDP-10 Archives
-
decus_20tap4_198111
-
decus/20-0125/loadr6.for
There is 1 other file named loadr6.for in the archive. Click here to see a list.
C THIS PROGRAM IS USED TO PERFORM A DOWNLINE
C LOAD TO THE GT40. INPUT TO THE PROGRAM IS
C A PDP/11 ABSOLUTE PROGRAM AS OUTPUT
C BY THE ASSEMBLER "MACDLX"
C SUBPROGRAMS
C SNDCHR - SEND IMAGE CHARACTER TO THE GT40
C GTBLK6 - GET A BLOCK FROM DSK
C SDBLK6 - SEND BLOCK TO THE GT40
IMPLICIT INTEGER (A-Z)
INTEGER BLOCK(2000)
DATA DSK, LOG, BLCK /20, 21, 0/
1 FORMAT(' FILENAME DIALOG:')
3 FORMAT(' START OF GT40 LOADER LOG FILE (SIX BIT)')
4 FORMAT(' TRANSMITTING BLOCK',I3)
5 FORMAT(' %CHECKSUM ERROR IN BLOCK',I3)
6 FORMAT(' LAST BLOCK, TRANSFER ADDRESS = LOAD ADDRESS')
TYPE 1
OPEN(UNIT=DSK,ACCESS='SEQIN',MODE='IMAGE',DIALOG)
OPEN(UNIT=LOG,FILE='LOADER.LOG',ACCESS='SEQOUT')
WRITE(LOG, 3)
C RESET GT40 AND PREPARE FOR LOAD
CALL SNDCHR("175)
CALL SNDCHR("122)
CALL SNDCHR("175)
CALL SNDCHR("114)
DO 10 I = 1, 8
CALL SNDCHR("100)
10 CONTINUE
20 BLCK = BLCK + 1
WRITE(LOG, 4) BLCK
CALL GTBLK6(BLOCK, COUNT)
30 CALL SDBLK6(BLOCK, COUNT, ERROR)
C IF CHECKSUM ERROR THEN RETRANSMIT BLOCK
IF(ERROR .EQ. 0) GO TO 40
WRITE(LOG, 5) BLCK
GO TO 30
40 IF(COUNT .GT. 6) GO TO 20
WRITE(LOG, 6)
CLOSE(UNIT=DSK)
CLOSE(UNIT=LOG)
STOP
END