Trailing-Edge
-
PDP-10 Archives
-
decuslib20-04
-
decus/20-0125/sdblk8.lst
There is 1 other file named sdblk8.lst in the archive. Click here to see a list.
SDBLK8 SDBLK8.FOR FORTRAN V.5A(621) /KI 1-FEB-81 11:37 PAGE 1
00001 SUBROUTINE SDBLK8(BLOCK, COUNT)
00002
00003 C THIS ROUTINE TAKES THE BLOCK AS BUFFERED
00004 C IN GETBLK AND TRANSMITS IT TO THE GT40
00005
00006 IMPLICIT INTEGER (A - Z)
00007 INTEGER BLOCK(500)
00008 WORD = 1
00009 BYTEP = 0
00010 DO 10 I = 1, COUNT + 1
00011 BYTEP = BYTEP + 1
00012 BYTE = GFIELD(BLOCK(WORD), (BYTEP - 1) * 8 + 4, 8)
00013 CALL SNDCHR(BYTE)
00014 IF(BYTEP .LT. 4) GO TO 10
00015 WORD = WORD + 1
00016 BYTEP = 0
00017 10 CONTINUE
00018 RETURN
00019 END
SUBPROGRAMS CALLED
SNDCHR
GFIELD
SCALARS AND ARRAYS [ "*" NO EXPLICIT DEFINITION - "%" NOT REFERENCED ]
*BYTE 1 BLOCK 2 *WORD 3 *COUNT 4 .S0000 5
*I 6 *BYTEP 7
TEMPORARIES
.A0016 10 .Q0000 11 .Q0001 12
SDBLK8 [ NO ERRORS DETECTED ]