Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-bb
-
getitm.c08
There are 4 other files named getitm.c08 in the archive. Click here to see a list.
INS 5/2 ;08C1
;JEH 10-APR-84 [1521] Allow [P,PN]'s and DEV:'s in COPY statements
;JEH 19-MAR-84 [1517] Fix splitting of line with copy replacing
REP 67/41 ;08C2
CAMN TB,LIBHDR+1 ;AND EXTENSION
JRST CPLB0 ;YES, GET NEXT ITEM
WIT
SKIPN TC,NAMWRD+2 ;[1521] AND DEVICE?
MOVSI TC,'DSK' ;[1521] OR 'DSK:' DEFAULT
CAME TC,LIBDEV ;[1521]
JRST CPLB56 ;[1521] NO
SKIPN TC,NAMWRD+3 ;[1521] GET PPN IF THERE IS ONE
MOVE TC,MYPPN ;[1521]
CAME TC,LIBPP## ;[1521] STILL MATCHING?
JRST CPLB56 ;[1521] NO
CAMN TB,LIBHDR+1 ;[1521] AND EXTENSION
JRST CPLB0 ;[1521] ALL MATCH, USE CURRENT FILE
INS 74/41 ;08C3
MOVE TC,NAMWRD+2 ;[1521] GET THE DEVICE
MOVEM TC,LIBDEV ;[1521]
MOVE TC,NAMWRD+3 ;[1521] AND THE P,PPN
MOVEM TC,LIBPP ;[1521]
REP 90/41 ;08C4
SETZM LIBPP## ;AND [PPN]
WIT
SETZM NAMWRD+3 ;[1521] AND [PPN] STORAGE AREA
REP 99/41 ;08C5
HRLZM TC,LIBPP
WIT
HRLZM TC,NAMWRD+3 ;[1521] SAVE
REP 105/41 ;08C6
HRRM TC,LIBPP
WIT
HRRM TC,NAMWRD+3 ;[1521] SAVE IT
REP 60/58 ;08C7
CAIN CH,$LF ;[1064] Is the next char. a line-feed?
WIT
CAIE CH,$LF ;[1517] [1064] Is the next char. a line-feed?
JRST GTCP4L ;[1517] No, go split the line
SUM 236124