!
!	ATPK COMMAND FILE TO ASSEMBLE FORTH IN A RSTS SYSTEM
!       EMULATING RSX
!
!	IN THIS FILE 19 IS A PROJECT NUMBER AND THE 116 IS THE
!	PROGRAMMER NUMBER.  IT IS ASSUMED THAT THIS FILE RESIDES
!	ON DEVICE DB2 AS DOES THE MACRO SOURCE FILE FORTH.MAC.
!
!	TO RUN TYPE:
!
!		ATPK DB2:FR83.CMD<CR>
!
!	DATE: 17-FEB-84
!	HUMBOLDT STATE UNIVERSITY
!	FOR RSTS/E VERSION 7.2, RSX-11 EMULATION.
!
!	MAKE SURE FORTH.X DOES NOT EXIST.
PIP DB2:[19,116]FORTH.X/DE/W
!	COPY ALL REQUIRED FILES TO THE SYSTEM DISK.
PIP [19,116]*.*=LB:RSXMAC.SML/W
PIP [19,116]*.*=[19,116]DB2:FORTH.MAC/W
RUN $MAC
[19,116]FORTH,[19,116]FORTH/LI:ME=[19,116]RSXMAC.SML/ML,[19,116]FORTH
^Z
!	MAKE SURE FORTH.TSK DOES NOT EXIST.
PIP FORTH.TSK/DE/W
RUN $TKB
[19,116]FORTH.TSK,[19,116]FORTH.MAP,[19,116]FORTH.STB=[19,116]FORTH.OBJ
//
!	SAVE FORTH.TSK AS RUN ONLY FILE ON DEVICE DB2.
PIP [19,116]DB2:FORTH.TSK<104>=[19,116]FORTH.TSK/W
!	SAVE LISTING AND MAP IN DB2:FORTH.X
!PIP DB2:[19,116]*.X=[19,116]FORTH.LST,[19,116]FORTH.MAP/W/AP
!	CLEAN UP THE SYSTEM DISK
PIP [19,116] FORTH.*/DE/W
PIP [19,116] FORTH.MAC/DE/W
PIP [19,116] RSXMAC.SML/DE/W
!
!	DON'T FORGET:
!		[19,116] DB2:TEACHER.DAT<40>
!	IN THIS ACCOUNT AND
!		STUDENT.DAT<60> IN USER'S ACCOUNT
!
!	ALSO REMEMBER TO QUE FOR LISTING ON THE LINEPRINTER:
!
!		QUE HANSON = DB2:[19,116]FORTH.X/DE
!
!	THIS WILL DELETE THE FILE AFTER IT PRINTS. TO SAVE THE FILE
!	OMMIT THE /DE SWITCH IN THE QUE REQUEST.
!
                                                              