mirror of
https://github.com/PDP-10/its.git
synced 2026-01-16 00:14:18 +00:00
53f2a2eba9
Binary-only compiler and library, plus documentation and include files for compiling new programs.
62 lines
711 B
Plaintext
Executable File
62 lines
711 B
Plaintext
Executable File
; 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
|
|
]]
|