Trailing-Edge
-
PDP-10 Archives
-
bb-kl11c-bm_tops20_v6_1_atpch1_16
-
autopatch/getitm.c08
There are 4 other files named getitm.c08 in the archive. Click here to see a list.
REP 1/1 ;08C1
; UPD ID= 1413 on 11/2/83 at 11:27 AM by HOFFMAN
WIT
; UPD ID= 1587 on 5/14/84 at 10:03 AM by HOFFMAN
INS 4/2 ;08C2
;V13*****************
;JEH 11-MAY-84 [1525] Allow use of 'STR:filnam.ext[P,PN] to specify
; library file in COPY statement
;JEH 04-May-84 [1524] Don't increment byte pointer into SRCBH before
; storing it in RPLBH+1 for copy replacing
DEL 37/38 ;08C3
ADD CH,[440000,,1] ;ADVANCE TO NEXT WORD
DEL 136/41 ;08C4
IFN TOPS20,<
CPLB53: HALT
>
INS 147/41 ;08C5
>;END IFE TOPS20 [1525]
REP 152/41 ;08C6
HRLZM TC,LIBPP
WIT
HRLZM TC,LIBPP## ;[1525]
INS 159/41 ;08C7
IFN TOPS20,<
CAIE TD,"]" ;[1525]
JRST CPLB5X ;[1525] NO SFD'S ON TOPS 20
LDB TE,GWVAL ;[1525] GET SIZE OF LITERAL
MOVE TB,[POINT 7,LITVAL] ;[1525] GET STR:
MOVE TC,[POINT 7,LIBSPC] ;[1525] REDEPOSIT
CPLBP2: ILDB TD,TB ;[1525]
CAIN TD,":" ;[1525]
JRST CPLBP3 ;[1525]
IDPB TD,TC ;[1525]
SOJG TE,CPLBP2 ;[1525]
JRST CPLB5X ;[1525] FOUND [P,PN], BUT NO STRUCTURE
CPLBP3: PUSH PP,T1 ;[1525]
PUSH PP,T2 ;[1525]
PUSH PP,T3 ;[1525]
MOVE T1,[POINT 7,LIBSPC] ;[1525] OVERWRITE
MOVE T2,LIBPP## ;[1525]
MOVE T3,T1 ;[1525]
PPNST% ;[1525]
ERJMP CPE607 ;[1525] NOT A VALID [P,PN]
CPLBP4: MOVE TC,T1 ;[1525] POINTS TO NEXT POSIT IN LIBSPC
POP PP,T3 ;[1525] RESTORE THE AC'S
POP PP,T2 ;[1525]
POP PP,T1 ;[1525]
CPLBP5: ILDB TD,TB ;[1525] CONTINUING PICKING UP CHAR UNTIL "["
CAIN TD,"[" ;[1525]
JRST CPLBP6 ;[1525] HIT [,], FINISHED FILE NAME
IDPB TD,TC ;[1525]
SOJG TE,CPLBP5 ;[1525]
JRST CPE285 ;[1525]RESCANNED WHOLE LITERAL, NEVER FOUND "["
CPLBP6: SETZ TA, ;[1525]
JRST CPLB52 ;[1525] NOW GO FIND THE FILE
>; END IFN TOPS20
IFE TOPS20,<
REP 190/41 ;08C8
OUTSTR [ASCIZ /%Illegal file speciffication for /]
WIT
OUTSTR [ASCIZ /%Illegal file specification for /] ;[1525]
REP 197/41 ;08C9
HRROI T1,[ASCIZ /%Illegal file speciffication for /]
WIT
HRROI T1,[ASCIZ /%Illegal file specification for /] ;[1525]
INS 7/56 ;08C10
CPE607: POP PP,T3 ;[1525]
POP PP,T2 ;[1525]
POP PP,T1 ;[1525]
EWARNW E.607 ;[1525] CAN'T TRANSLATE [P,PN]
JRST CPYERR ;[1525]
SUM 137252