;[123,230]MAC123X30.CMD	20-JAN-77	N.S.
; SKELETON FILE IS [123,30]MAC123X30.SKC
;
; REVISION RECORD:
;	20-JAN-77	ADD COMMENTS FOR SUBROUTINE DESCRIPTION  N.S.
;	21-JAN-77	ADD Q MAG TAPE SUBROUTINES (N.S.)
;	24-JAN-77 	EXTEND TIME LIMIT (N.S.)
;	26-JAN-77	REMOVE PREFIX FILE FROM THOSE ROUTINES THAT
;			ARE FOR 11D OR 11M ONLY  (N.S.)
;	27-JAN-77	CORRECT TYPOS (N.S.)
;	01-FEB-77	ADD USER-INTERFACE HISTOGRAM ROUTINES,
;			ASSEMBLE TRIGER IN TWO PASSES (SYMBOL TABLE OVERFLOW)
;			USE MD.MAC AND OTHER PREFIX FILES ON PASS 1 ONLY. (S.S.)
;	11-FEB-77	MAKE ON LINE, ADD DUMMY ROUTINES IN ORDER TO IDENTIFY 
;			LIBRARY AS TO F4P, 11M OR 11D. (N.S.)
;
;	14-FEB-77	CHANGE NAME OF LIBRARY IDENTIFICATION MODULES. (N.S.)
;	10-MAY-77	ADD DOT PLOT SUBROUTINES. (N.S.)
;	23-JUN-77	UPDATE FILE NAMES. (L.V.)
;	4-DEC-77 (MK)	CHANGE FROM 11D BATCH TO 11D INDIRECT MCR
;	4-DEC-77 (MK)	CORRECT UIC ERROR FOR ASSEMBLY OF CMDENB
;	9-DEC-77 (MK)	FIX PROBLEMS WITH ASSEMBLING SOME OF THE
;			RS4010 MODULES WITH MD.MAC
;
TIM
SET /UIC=[123,30]
;
;	THE FOLLOWING FILES WERE IN THE OLD LAMPFLIB AND QLIB LIBRARIES
;
;  ASSEMBLE AAF4PD (LIBRARY IDENTIFICATION MODULE - 11D ONLY)
PIP OU:[123,230]AAF4PD.OBJ;*,LS:[123,230]AAF4PD.LST;*/DE
MAC OU:[123,230]AAF4PD,LS:[123,230]AAF4PD/-SP=IN:[123,230]AAF4PD
; ASSEMBLE ARGS (RETURN 
PIP OU:[123,30]ARGS.OBJ;*,LS:[123,30]ARGS.LST;*/DE
MAC OU:[123,30]ARGS,LS:[123,30]ARGS/-SP=IN:[1,1]MD/PA:1,[123,30]ARGS
;	ASSEMBLE ATTACH (ATTACH/DETACH UNIT TO/FROM TASK)
PIP OU:[123,30]ATTACH.OBJ;*,LS:[123,30]ATTACH.LST;*/DE
MAC OU:[123,30]ATTACH,LS:[123,30]ATTACH/-SP=IN:[1,1]MD/PA:1,[123,30]ATTACH
;	ASSEMBLE BCD2B (BCD TO BINARY CONVERSION)
PIP OU:[123,30]BCD2B.OBJ;*,LS:[123,30]BCD2B.LST;*/DE
MAC OU:[123,30]BCD2B,LS:[123,30]BCD2B/-SP=IN:[1,1]MD/PA:1,[123,30]BCD2B
;	ASSEMBLE BINBCD (BINARY TO BCD CONVERSION)
PIP OU:[123,30]BINBCD.OBJ;*,LS:[123,30]BINBCD.LST;*/DE
MAC OU:[123,30]BINBCD,LS:[123,30]BINBCD/-SP=IN:[1,1]MD/PA:1,[123,30]BINBCD
;	ASSEMBLE BIN2D (CONVERT ONE WORD TO DECIMAL CHARACTERS)
PIP OU:[123,30]BIN2D.OBJ;*,LS:[123,30]BIN2D.LST;*/DE
MAC OU:[123,30]BIN2D,LS:[123,30]BIN2D/-SP=IN:[1,1]MD/PA:1,[123,30]BIN2D
;	ASSEMBLE BIN2O (CONVERT ONE WORD TO OCTAL CHARACTERS)
PIP OU:[123,30]BIN2O.OBJ;*,LS:[123,30]BIN2O.LST;*/DE
MAC OU:[123,30]BIN2O,LS:[123,30]BIN2O/-SP=IN:[1,1]MD/PA:1,[123,30]BIN2O
;	ASSEMBLE BLKFIL (BLANK FILL A STRING)
PIP OU:[123,30]BLKFIL.OBJ;*,LS:[123,30]BLKFIL.LST;*/DE
MAC OU:[123,30]BLKFIL,LS:[123,30]BLKFIL/-SP=IN:[1,1]MD/PA:1,[123,30]BLKFIL
;	ASSEMBLE BUFFIO (FLEXIBLE I/O CALLS) (11-D ONLY CONTAINS PRINT$)
PIP OU:[123,230]BUFFIO.OBJ;*,LS:[123,230]BUFFIO.LST;*/DE
MAC OU:[123,230]BUFFIO,LS:[123,230]BUFFIO/-SP=IN:[123,230]BUFFIO
;	ASSEMBLE CENTER (CENTER A STRING)
PIP OU:[123,30]CENTER.OBJ;*,LS:[123,30]CENTER.LST;*/DE
MAC OU:[123,30]CENTER,LS:[123,30]CENTER/-SP=IN:[1,1]MD/PA:1,[123,30]CENTER
;	ASSEMBLE CMCSA (CAMAC SINGLE ACTION)
PIP OU:[123,30]CMCSA.OBJ;*,LS:[123,30]CMCSA.LST;*/DE
MAC OU:[123,30]CMCSA,LS:[123,30]CMCSA/-SP=IN:[1,1]MD/PA:1,[123,30]CMCSA
;	ASSEMBLE CNVBCD (BCD TO BINARY CONVERSION)
PIP OU:[123,30]CNVBCD.OBJ;*,LS:[123,30]CNVBCD.LST;*/DE
MAC OU:[123,30]CNVBCD,LS:[123,30]CNVBCD/-SP=IN:[1,1]MD/PA:1,[123,30]CNVBCD
;	ASSEMBLE CSI (COMMAND SYNTAX INTERPRETER)
PIP OU:[123,30]CSI.OBJ;*,LS:[123,30]CSI.LST;*/DE
MAC OU:[123,30]CSI,LS:[123,30]CSI/-SP=IN:[1,1]MD/PA:1,[123,30]CSI
;	ASSEMBLE DKREAD (LOGICAL DISK READ/WRITE)
PIP OU:[123,30]DKREAD.OBJ;*,LS:[123,30]DKREAD.LST;*/DE
MAC OU:[123,30]DKREAD,LS:[123,30]DKREAD/-SP=IN:[1,1]MD/PA:1,[123,30]DKREAD
; ASSEMBLE DOTPLT (DOT PLOT SUBROUTINES)
PIP OU:[123,30]DOTPLT.OBJ;*,LS:[123,30]DOTPLT.LST;*/DE
MAC OU:[123,30]DOTPLT,LS:[123,30]DOTPLT/-SP=IN:[1,1]MD/PA:1,[123,30]DOTPLT
; ASSEMBLE EROUT (ERROR ROUTINE 11-D ONLY)
PIP OU:[123,230]EROUT.OBJ;*,LS:[123,230]EROUT.LST;*/DE
MAC OU:[123,230]EROUT,LS:[123,230]EROUT/-SP=IN:[123,230]EROUT
;	ASSEMBLE FETCH (FETCH A CHARACTER)
PIP OU:[123,30]FETCH.OBJ;*,LS:[123,30]FETCH.LST;*/DE
MAC OU:[123,30]FETCH,LS:[123,30]FETCH/-SP=IN:[1,1]MD/PA:1,[123,30]FETCH
;	ASSEMBLE FFDELM (SEARCH FOR A SPECIFIED DELIMITER)
PIP OU:[123,30]FFDELM.OBJ;*,LS:[123,30]FFDELM.LST;*/DE
MAC OU:[123,30]FFDELM,LS:[123,30]FFDELM/-SP=IN:[1,1]MD/PA:1,[123,30]FFDELM
;	ASSEMBLE FFMOVE (MOVE N CHARACTERS FROM INPUT BUFFER)
PIP OU:[123,30]FFMOVE.OBJ;*,LS:[123,30]FFMOVE.LST;*/DE
MAC OU:[123,30]FFMOVE,LS:[123,30]FFMOVE/-SP=IN:[1,1]MD/PA:1,[123,30]FFMOVE
;	ASSEMBLE FFSCAN (FREE FORMAT SCAN)
PIP OU:[123,30]FFSCAN.OBJ;*,LS:[123,30]FFSCAN.LST;*/DE
MAC OU:[123,30]FFSCAN,LS:[123,30]FFSCAN/-SP=IN:[1,1]MD/PA:1,[123,30]FFSCAN
;	ASSEMBLE GETCML (GET COMMAND LINE)
PIP OU:[123,30]GETCML.OBJ;*,LS:[123,30]GETCML.LST;*/DE
MAC OU:[123,30]GETCML,LS:[123,30]GETCML/-SP=IN:[1,1]MD/PA:1,[123,30]GETCML
; ASSEMBLE GETDEV (11D ONLY)
PIP OU:[123,230]GETDEV.OBJ;*,LS:[123,230]GETDEV.LST;*/DE
MAC OU:[123,230]GETDEV,LS:[123,230]GETDEV/-SP=IN:[123,230]GETDEV
;	ASSEMBLE HISTCA (CLEAR ALL HISTOGRAMS)
PIP OU:[123,30]HISTCA.OBJ;*,LS:[123,30]HISTCA.LST;*/DE
MAC OU:[123,30]HISTCA,LS:[123,30]HISTCA/-SP=IN:[1,1]MD/PA:1,[123,30]HISTCA
;	ASSEMBLE HISTCL (CLEAR SINGLE HISTOGRAM)
PIP OU:[123,30]HISTCL.OBJ;*,LS:[123,30]HISTCL.LST;*/DE
MAC OU:[123,30]HISTCL,LS:[123,30]HISTCL/-SP=IN:[1,1]MD/PA:1,[123,30]HISTCL
;	ASSEMBLE HISTDA (DELETE ALL HISTOGRAMS)
PIP OU:[123,30]HISTDA.OBJ;*,LS:[123,30]HISTDA.LST;*/DE
MAC OU:[123,30]HISTDA,LS:[123,30]HISTDA/-SP=IN:[1,1]MD/PA:1,[123,30]HISTDA
;	ASSEMBLE HISTDE (DELETE SINGLE HISTOGRAM)
PIP OU:[123,30]HISTDE.OBJ;*,LS:[123,30]HISTDE.LST;*/DE
MAC OU:[123,30]HISTDE,LS:[123,30]HISTDE/-SP=IN:[1,1]MD/PA:1,[123,30]HISTDE
;	ASSEMBLE HISTEN (MAKE HISTOGRAM ENTRIES)
PIP OU:[123,30]HISTEN.OBJ;*,LS:[123,30]HISTEN.LST;*/DE
MAC OU:[123,30]HISTEN,LS:[123,30]HISTEN/-SP=IN:[1,1]MD/PA:1,[123,30]HISTEN
;	ASSEMBLE HISTFL
PIP OU:[123,30]HISTFL.OBJ;*,LS:[123,30]HISTFL.LST;*/DE
MAC OU:[123,30]HISTFL,LS:[123,30]HISTFL/-SP=IN:[1,1]MD/PA:1,[123,30]HISTFL
;	ASSEMBLE HISTRE (RETRIEVE HISTOGRAM)
PIP OU:[123,30]HISTRE.OBJ;*,LS:[123,30]HISTRE.LST;*/DE
MAC OU:[123,30]HISTRE,LS:[123,30]HISTRE/-SP=IN:[1,1]MD/PA:1,[123,30]HISTRE
;	ASSEMBLE HISTSU (HISTOGRAM SETUP)
PIP OU:[123,30]HISTSU.OBJ;*,LS:[123,30]HISTSU.LST;*/DE
MAC OU:[123,30]HISTSU,LS:[123,30]HISTSU/-SP=IN:[1,1]MD/PA:1,[123,30]HISTSU
;	ASSEMBLE HSTCL
PIP OU:[123,30]HSTCL.OBJ;*,LS:[123,30]HSTCL.LST;*/DE
MAC OU:[123,30]HSTCL,LS:[123,30]HSTCL/-SP=IN:[1,1]MD/PA:1,[123,30]HSTCL
;	ASSEMBLE HSTDE
PIP OU:[123,30]HSTDE.OBJ;*,LS:[123,30]HSTDE.LST;*/DE
MAC OU:[123,30]HSTDE,LS:[123,30]HSTDE/-SP=IN:[1,1]MD/PA:1,[123,30]HSTDE
;	ASSEMBLE HSTFI
PIP OU:[123,30]HSTFI.OBJ;*,LS:[123,30]HSTFI.LST;*/DE
MAC OU:[123,30]HSTFI,LS:[123,30]HSTFI/-SP=IN:[1,1]MD/PA:1,[123,30]HSTFI
;	ASSEMBLE HSTLK
PIP OU:[123,30]HSTLK.OBJ;*,LS:[123,30]HSTLK.LST;*/DE
MAC OU:[123,30]HSTLK,LS:[123,30]HSTLK/-SP=IN:[1,1]MD/PA:1,[123,30]HSTLK
;	ASSEMBLE HSTPO
PIP OU:[123,30]HSTPO.OBJ;*,LS:[123,30]HSTPO.LST;*/DE
MAC OU:[123,30]HSTPO,LS:[123,30]HSTPO/-SP=IN:[1,1]MD/PA:1,[123,30]HSTPO
; ASSEMBLE INITBD (INITIALIZE BRANCH )
PIP OU:[123,30]INITBD.OBJ;*,LS:[123,30]INITBD.LST;*/DE
MAC OU:[123,30]INITBD,LS:[123,30]INITBD/-SP=IN:[1,1]MD/PA:1,[123,30]INITBD
; ASSEMBLE KILMCR (KILL MCR - 11D ONLY)
PIP OU:[123,230]KILMCR.OBJ;*,LS:[123,230]KILMCR.LST;*/DE
MAC OU:[123,230]KILMCR,LS:[123,230]KILMCR/-SP=IN:[123,230]KILMCR
;	ASSEMBLE KSPCUR (POSITION CURSOR ON KS SCOPE)
PIP OU:[123,30]KSPCUR.OBJ;*,LS:[123,30]KSPCUR.LST;*/DE
MAC OU:[123,30]KSPCUR,LS:[123,30]KSPCUR/-SP=IN:[1,1]MD/PA:1,[123,30]KSPCUR
;	ASSEMBLE KSRDB (READ/WRITE 12-BIT CHAR ON KS SCOPE)
PIP OU:[123,30]KSRDB.OBJ;*,LS:[123,30]KSRDB.LST;*/DE
MAC OU:[123,30]KSRDB,LS:[123,30]KSRDB/-SP=IN:[1,1]MD/PA:1,[123,30]KSRDB
; ASSEMBLE KSRLSE (RELEASE LINES ON KS SCOPE)
PIP OU:[123,30]KSRLSE.OBJ;*,LS:[123,30]KSRLSE.LST;*/DE
MAC OU:[123,30]KSRLSE,LS:[123,30]KSRLSE/-SP=IN:[1,1]MD/PA:1,[123,30]KSRLSE
;	ASSEMBLE KSRSRV (RESERVE LINES ON KS SCOPE)
PIP OU:[123,30]KSRSRV.OBJ;*,LS:[123,30]KSRSRV.LST;*/DE
MAC OU:[123,30]KSRSRV,LS:[123,30]KSRSRV/-SP=IN:[1,1]MD/PA:1,[123,30]KSRSRV
;	ASSEMBLE LJUST (LEFT JUSTIFY)
PIP OU:[123,30]LJUST.OBJ;*,LS:[123,30]LJUST.LST;*/DE
MAC OU:[123,30]LJUST,LS:[123,30]LJUST/-SP=IN:[1,1]MD/PA:1,[123,30]LJUST
; ASSEMBLE LOADCM (LOAD MBD MEMORY)
PIP OU:[123,30]LOADCM.OBJ;*,LS:[123,30]LOADCM.LST;*/DE
MAC OU:[123,30]LOADCM,LS:[123,30]LOADCM/-SP=IN:[1,1]MD/PA:1,[123,30]LOADCM
;	ASSEMBLE LOCATE (TABLE SEARCH)
PIP OU:[123,30]LOCATE.OBJ;*,LS:[123,30]LOCATE.LST;*/DE
MAC OU:[123,30]LOCATE,LS:[123,30]LOCATE/-SP=IN:[1,1]MD/PA:1,[123,30]LOCATE
;	ASSEMBLE LOCF (LOCATION FUNCTION)
PIP OU:[123,30]LOCF.OBJ;*,LS:[123,30]LOCF.LST;*/DE
MAC OU:[123,30]LOCF,LS:[123,30]LOCF/-SP=IN:[1,1]MD/PA:1,[123,30]LOCF
;	ASSEMBLE LOGMSG (OUTPUT MESSAGE TO LO:)
PIP OU:[123,30]LOGMSG.OBJ;*,LS:[123,30]LOGMSG.LST;*/DE
MAC OU:[123,30]LOGMSG,LS:[123,30]LOGMSG/-SP=IN:[1,1]MD/PA:1,[123,30]LOGMSG
; ASSEMBLE MBDADR
PIP OU:[123,30]MBDADR.OBJ;*,LS:[123,30]MBDADR.LST;*/DE
MAC OU:[123,30]MBDADR,LS:[123,30]MBDADR/-SP=IN:[1,1]MD/PA:1,[123,30]MBDADR
; ASSEMBLE MBDPHY
PIP OU:[123,30]MBDPHY.OBJ;*,LS:[123,30]MBDPHY.LST;*/DE
MAC OU:[123,30]MBDPHY,LS:[123,30]MBDPHY/-SP=IN:[1,1]MD/PA:1,[123,30]MBDPHY
; ASSEMBLE MNTDEV (MOUNT DISMOUNT) (DIFFERENT MODULES FOR M AND D)
PIP OU:[123,230]MNTDEV.OBJ;*,LS:[123,230]MNTDEV.LST;*/DE
MAC OU:[123,230]MNTDEV,LS:[123,230]MNTDEV/-SP=IN:[123,230]MNTDEV
;	ASSEMBLE MTAST (MARK TIME AST SUPPORT)
PIP OU:[123,30]MTAST.OBJ;*,LS:[123,30]MTAST.LST;*/DE
MAC OU:[123,30]MTAST,LS:[123,30]MTAST/-SP=IN:[1,1]MD/PA:1,[123,30]MTAST
;	ASSEMBLE NCHAR (DETERMINE NUMBER OF CHARACTERS)
PIP OU:[123,30]NCHAR.OBJ;*,LS:[123,30]NCHAR.LST;*/DE
MAC OU:[123,30]NCHAR,LS:[123,30]NCHAR/-SP=IN:[1,1]MD/PA:1,[123,30]NCHAR
;	ASSEMBLE PUT (PUT A CHARACTER IN A STRING)
PIP OU:[123,30]PUT.OBJ;*,LS:[123,30]PUT.LST;*/DE
MAC OU:[123,30]PUT,LS:[123,30]PUT/-SP=IN:[1,1]MD/PA:1,[123,30]PUT
; ASSEMBLE QMTSUB (Q-TAPE FORMATS MAG TAPE SUBROUTINE)
PIP OU:[123,30]QMTSUB.OBJ;*,LS:[123,30]QMTSUB.LST;*/DE
MAC OU:[123,30]QMTSUB,LS:[123,30]QMTSUB/-SP=IN:[1,1]MD/PA:1,[123,30]QMTSUB
;	ASSEMBLE REAST (RECEIVE AST SUPPORT)
PIP OU:[123,30]REAST.OBJ;*,LS:[123,30]REAST.LST;*/DE
MAC OU:[123,30]REAST,LS:[123,30]REAST/-SP=IN:[1,1]MD/PA:1,[123,30]REAST
;	ASSEMBLE RJUST (RIGHT JUSTIFY)
PIP OU:[123,30]RJUST.OBJ;*,LS:[123,30]RJUST.LST;*/DE
MAC OU:[123,30]RJUST,LS:[123,30]RJUST/-SP=IN:[1,1]MD/PA:1,[123,30]RJUST
;	ASSEMBLE TRIGER (ENABLE,DISABLE,TRIGGER EVENT)
PIP OU:[123,30]TRIGER.OBJ;*,LS:[123,30]TRIGER.LST;*/DE
MAC OU:[123,30]TRIGER=IN:[1,1]MD/PA:1,[123,30]TRIGER
MAC ,LS:[123,30]TRIGER/-SP=IN:[1,1]MD/PA:1,[123,30]TRIGER
;	ASSEMBLE UICBIN (UIC CONVERSION)
PIP OU:[123,30]UICBIN.OBJ;*,LS:[123,30]UICBIN.LST;*/DE
MAC OU:[123,30]UICBIN,LS:[123,30]UICBIN/-SP=IN:[1,1]MD/PA:1,[123,30]UICBIN
;
;	THE FOLLOWING FILES WERE IN THE OLD RS4010 LIBRARY
;	**BECAUSE OF SOME SUBTLE PROBLEMS CAUSED BY USING MD.MAC
;	(THE RESULTING MODULES DON'T WORK PROPERLY IN RSX-11D), THE FOLLOWING
;	MODULES ARE ASSEMBLED USING RSPRE INSTEAD OF MDPRE:
;	CHO, CMDENB, CURSIS, LININ
;	THE PROBLEM APPEARS TO HAVE SOMETHING TO DO WITH THE PADDING
;	OF QIO PARAMETER LISTS TO 6 PARAMETERS.
;
; MOVE IN PREFIX FILE AND MERGE WITH RSPRE FOR ASSEMBLIES
PIP IN:[123,30]MDPRE.MAC=IN:[1,1]MD.MAC,[123,30]RSPRE.MAC
; ASSEMBLE B4010 (START GRAPHICS ROUTINE)
PIP OU:[123,30]B4010.OBJ;*,LS:[123,30]B4010.LST;*/DE
MAC OU:[123,30]B4010,LS:[123,30]B4010/-SP=IN:[123,30]MDPRE,B4010
; ASSEMBLE CHO (QUEUE CHARACTER OUTPUT ROUTINE)
PIP OU:[123,230]CHO.OBJ;*,LS:[123,230]CHO.LST;*/DE
MAC OU:[123,230]CHO,LS:[123,230]CHO/-SP=IN:[123,30]RSPRE/PA:1,CHO
; ASSEMBLE CHOUT (SINGLE CHARACTER OUTPUT ROUTINE)
PIP OU:[123,30]CHOUT.OBJ;*,LS:[123,30]CHOUT.LST;*/DE
MAC OU:[123,30]CHOUT,LS:[123,30]CHOUT/-SP=IN:[123,30]MDPRE/PA:1,CHOUT
; ASSEMBLE CMDENB (BASIC COMMAND INPUT ROUTINE) (M AND D FILES DIFFER)
; *NOTE* TO GET AROUND LINE LENGTH PROBLEM, CMDENB.MAC IS MOVED TO
;	[123,30] BEFORE ASSEMBLY AND DELETED AFTER
PIP OU:[123,230]CMDENB.OBJ;*,LS:[123,230]CMDENB.LST;*/DE
PIP IN:[123,30]=IN:[123,230]CMDENB.MAC
MAC OU:[123,230]CMDENB,LS:[123,230]CMDENB/-SP=IN:[123,30]RSPRE/PA:1,CMDENB
PIP IN:[123,30]CMDENB.MAC;*/DE
; ASSEMBLE CMDIN (COMMAND INPUT ROUTINE)
PIP OU:[123,30]CMDIN.OBJ;*,LS:[123,30]CMDIN.LST;*/DE
MAC OU:[123,30]CMDIN,LS:[123,30]CMDIN/-SP=IN:[123,30]MDPRE/PA:1,CMDIN
; ASSEMBLE CMDINT (COMMAND INTERRUPT ROUTINE)
PIP OU:[123,30]CMDINT.OBJ;*,LS:[123,30]CMDINT.LST;*/DE
MAC OU:[123,30]CMDINT,LS:[123,30]CMDINT/-SP=IN:[123,30]MDPRE/PA:1,CMDINT
; ASSEMBLE CMDLK (COMMAND LOOK ROUTINE)
PIP OU:[123,30]CMDLK.OBJ;*,LS:[123,30]CMDLK.LST;*/DE
MAC OU:[123,30]CMDLK,LS:[123,30]CMDLK/-SP=IN:[123,30]MDPRE/PA:1,CMDLK
; ASSEMBLE CURSIS (CROSSHAIR CURSOR ROUTINE)
PIP OU:[123,230]CURSIS.OBJ;*,LS:[123,230]CURSIS.LST;*/DE
MAC OU:[123,230]CURSIS,LS:[123,230]CURSIS/-SP=IN:[123,30]RSPRE/PA:1,CURSIS
; ASSEMBLE ENDPLT (END PLOT ROUTINE)
PIP OU:[123,30]ENDPLT.OBJ;*,LS:[123,30]ENDPLT.LST;*/DE
MAC OU:[123,30]ENDPLT,LS:[123,30]ENDPLT/-SP=IN:[123,30]MDPRE/PA:1,ENDPLT
; ASSEMBLE ERASE (ERASE SCOPE)
PIP OU:[123,30]ERASE.OBJ;*,LS:[123,30]ERASE.LST;*/DE
MAC OU:[123,30]ERASE,LS:[123,30]ERASE/-SP=IN:[123,30]MDPRE/PA:1,ERASE
; ASSEMBLE F4010 (FINISH GRAPHICS)
PIP OU:[123,30]F4010.OBJ;*,LS:[123,30]F4010.LST;*/DE
MAC OU:[123,30]F4010,LS:[123,30]F4010/-SP=IN:[123,30]MDPRE/PA:1,F4010
; ASSEMBLE LABEL (LABEL AXIS)
PIP OU:[123,30]LABEL.OBJ;*,LS:[123,30]LABEL.LST;*/DE
MAC OU:[123,30]LABEL,LS:[123,30]LABEL/-SP=IN:[123,30]MDPRE/PA:1,LABEL
; ASSEMBLE LININ (TEXT LINE INPUT ROUTINE)
PIP OU:[123,230]LININ.OBJ;*,LS:[123,230]LININ.LST;*/DE
MAC OU:[123,230]LININ,LS:[123,230]LININ/-SP=IN:[123,30]RSPRE/PA:1,LININ
; ASSEMBLE LININN (CONTINUE TEXT LINE INPUT ROUTINE)
PIP OU:[123,30]LININN.OBJ;*,LS:[123,30]LININN.LST;*/DE
MAC OU:[123,30]LININN,LS:[123,30]LININN/-SP=IN:[123,30]MDPRE/PA:1,LININN
; ASSEMBLE LINOUT (TEXT LINE OUTPUT ROUTINE)
PIP OU:[123,30]LINOUT.OBJ;*,LS:[123,30]LINOUT.LST;*/DE
MAC OU:[123,30]LINOUT,LS:[123,30]LINOUT/-SP=IN:[123,30]MDPRE/PA:1,LINOUT
; ASSEMBLE STROUT (BASIC CHARACTER STRING OUTPUT)
PIP OU:[123,30]STROUT.OBJ;*,LS:[123,30]STROUT.LST;*/DE
MAC OU:[123,30]STROUT,LS:[123,30]STROUT/-SP=IN:[123,30]MDPRE/PA:1,STROUT
; ASSEMBLE TPLOT (VECTOR PLOT ROUTINE)
PIP OU:[123,30]TPLOT.OBJ;*,LS:[123,30]TPLOT.LST;*/DE
MAC OU:[123,30]TPLOT,LS:[123,30]TPLOT/-SP=IN:[123,30]MDPRE/PA:1,TPLOT
; ASSEMBLE WTFCMD (WAIT FOR COMMAND ROUTINE)
PIP OU:[123,30]WTFCMD.OBJ;*,LS:[123,30]WTFCMD.LST;*/DE
MAC OU:[123,30]WTFCMD,LS:[123,30]WTFCMD/-SP=IN:[123,30]MDPRE/PA:1,WTFCMD
; DELETE MDPRE.MAC
PIP IN:[123,30]MDPRE.MAC;*/DE
;
TIM