$JOB
/MSG FORLIB ASSEMBLY JOB, VERSION 01.19
/Routines added to the DEC release by S.B.
.R RALF
*DYN1:PACK<DYN0:PACK
.R RALF
*DYN1:CHSAV.RL<DYN0:CHSAV.RA
.R RALF
*DYN1:ALTINT.RL<DYN0:ALTINT.RA
.R RALF
*DYN1:CHAIN.RL<DYN0:CHAIN.RA
.R RALF
*DYN1:ANYKTC<DYN0:ANYKTC
.R RALF
*DYN1:GETWRD<DYN0:GETWRD
.R RALF
*DYN1:RDLIN<DYN0:RDLIN
.R RALF
*DYN1:UNPACK<DYN0:UNPACK
.R RALF
*DYN1:DSINH<DYN0:DSINH
.R RALF
*DYN1:DCOSH<DYN0:DCOSH
.R RALF
*DYN1:ENDEQ<DYN0:ENDEQ
.R RALF
*DYN1:USRER<DYN0:USRER
.R RALF
*DYN1:FILNAM<DYN0:FILNAM
.R RALF
*DYN1:YESNO<DYN0:YESNO
.R RALF
*DYN1:CONSTD<DYN0:CONSTD
.R RALF
*DYN1:SPOOLR<DYN0:SPOOLR
.R RALF
*DYN1:USR<DYN0:USR
.R RALF
*DYN1:USRSE<DYN0:USRSE
.R RALF
*DYN1:SCLXY<DYN0:SCLXY
.R F4
*DYN1:SPOOL<DYN0:SPOOL
.MUNG DYN0:SPOOL
.R RALF
*DYN1:SPOOL<SYS:SPOOL
.DEL SYS:SPOOL.RA
.DEL SYS:SPOOL.BK
.R F4
*DYN1:FORMT<DYN0:FORMT
.R F4
*DYN1:NUMBR<DYN0:NUMBR(NQ)
.R F4
*DYN1:NUMIO<DYN0:NUMIO
.MUNG DYN0:NUMIO
.R RALF
*DYN1:NUMIO<SYS:NUMIO
.DEL SYS:NUMIO.*
.R F4
*DYN1:SIXBIT<DYN0:SIXBIT(NQ)
.COPY SYS:<DYN0:FORLCR.BI
.SUB SYS:FORLCR(TU)
$END