Trailing-Edge
-
PDP-10 Archives
-
decuslib20-06
-
decus/20-153/getcpy.mac
There are 7 other files named getcpy.mac in the archive. Click here to see a list.
TITLE GETCPY FOR RPGII A
SUBTTL READ IN AN CPYFIL WORD AL BLACKINGTON/CAM/BOB CURRIER
;TRANSLATED FROM THE COBOL AUGUST 8,1975 00:46:03 BOB CURRIER
TWOSEG
RELOC 400000
ENTRY GETCPY ; GET A WORD
ENTRY SETCPY ; SET UP CPYFIL FOR INPUT
EXTERNAL DEVDED,KILL,SIXOUT
GETCPY: SOSG CPYBHI+2
JRST GETCP2
GETCP1: ILDB DW,CPYBHI+1
POPJ PP,
GETCP2: AOS CPYBLK
IN CPY,
JRST GETCP1
MOVEI CH,CPYDEV
JRST DEVDED
SETCPY: MOVE TA,CPYBUF
MOVEM TA,.JBFF## ; SET JOBFF TO A BUFFER AREA
INBUF CPY,2 ; GRAB TWO BUFFERS
SETZM CPYBLK ;CLEAR BLOCK COUNTER
MOVE TE,CPYHDR ; SET UP "LOOKUP" PARAMETERS
MOVE TD,CPYHDR+1
SETZB TC,TB
LOOKUP CPY,TE ; FIND THE FILE
JRST KNOCPY ; NOT THERE - SCREAM
POPJ PP,
;CANNOT FIND CPYFIL
KNOCPY: OUTSTR [ASCIZ /CPYFIL not found
/]
JRST KILL
EXTERNAL CPYBHI,CPYBLK,CPYDEV,CPYHDR,CPYBUF
END