; C;NC INSERT

; THIS FILE IS NEEDED TO ASSEMBLE MIDAS PROGRAMS PRODUCED BY
; THE C COMPILER AS WELL AS HAND-CODED MIDAS PROGRAMS DESIGNED
; TO BE LOADED WITH C PROGRAMS

RELOCATABLE
.INSRT SYSENG;MULSEG INSERT
.MSEG 200000',600000',700000'

IF1,[
.MLLIT==1

A=1
B=2
C=3
D=4
P=15.
.CCALL=1_27.
GO=JRST

EQUALS	ENTRY	.GLOBAL
EQUALS	EXTERN	.GLOBAL

DEFINE .IDATA
.SEG 0
TERMIN

DEFINE .UDATA
.SEG 1
TERMIN

DEFINE .CODE
.SEG 2
TERMIN

DEFINE .PDATA
.SEG 3
TERMIN
	
; STACK HACKING FOR VARIABLE REFERENCES

%P==0
DEFINE PPUSH [A]
	PUSH P,A
	%P==%P+1
	TERMIN
DEFINE PPOP [A]
	POP P,A
	%P==%P-1
	TERMIN
DEFINE CCALL N,F
	.CCALL N,F
	%P==%P-N
	TERMIN

];END IF1

IF2,[IFDEF FS1,[
	.KILL %A,%P,A,B,C,D,P,GO,.CCALL
	]]