;PORTACALC ODL FILE.
; MINI VERSION ODL (PDP11)
; PROBABLY WRONG IN VARIOUS WAYS...
; NOTABLE PROBLEM FOR PDP11:
; THIS VERSION CANNOT CALL XQTCMD FROM THE CALC OVERLAYS AND GET
; BACK RELIABLY. THAT NEEDS THEM TO CO-RESIDE, WHICH THEY CANNOT
; DO. THE FUNCTIONS ARE FORMALLY THERE BUT WILL FAIL.
;		Leaf 1: XQTCMD, CALC ETC.
;		Leaf 2: HELP
;		Leaf 3: DSPSHT
	.PSECT FUBAR,D,GBL,RW
	.ROOT MAIN-*(DS,HL,RC,XQ),RCUT,RTU,OTSALL
; NOTE WSHEET AND WRKFIL ARE IN ROOT SO THEIR COMMONS WILL BE TOO.
MAIN:	.FCTR OSP-BLOCK-INDEX-OTSROT-FUBAR-TTYINI-WSHEET-WRKFIL
; NOTE RECALC ETC. NEVER USE UVT100
OSP:	.FCTR SPREDSHT/LB:.MAIN.:IN2AS
HL:	.FCTR SPREDSHT/LB:HELP
RC:	.FCTR	RECALC-CALC-*(C4,C5,C7,C8,CCC,FED)
FED: .FCTR FRMEDT
CCC:  .FCTR ERRCX
C4: .FCTR CMND-*(C41,C42,C43,C44)
C41: .FCTR AT
C42: .FCTR BASCNG
C43: .FCTR DECLR
C44: .FCTR USRFCT/LB:USRFCT
C5: .FCTR POSTVL-*(C51,C52,C6)
C51: .FCTR CALUN-CONTYP-MULCON
C52: .FCTR CALBIN-*(C521,C522,C523,C524)
C521: .FCTR CONTYP-MULCON
C522: .FCTR MULADD
C523: .FCTR MULDIV
C524: .FCTR MULMUL
C6: .FCTR VAROUT-MOUT
C7: .FCTR INPOST-NEXTEL
C8: .FCTR LIST
;SPLIT VARSCN AND UVT100 IN OXQTCMD SINCE THEY ARE USED AT DIFFERENT TIMES.
;ALSO SPLIT UP EDITING SUBROUTINES IN XQTCMD.
;IN THE OTHER OVERLAY STRUCTURE THEY ARE NOT THE BIGGEST LEG BUT THEY
;WOULD BE HERE EXCEPT FOR THIS.
XQ:	.FCTR	XQTCMD/LB:XQTCMD-USRCMD
DS:	.FCTR	DSPSHT
;LIB:	.FCTR LB:[1,1]SYSLIB/LB:$SHORT
	.NAME RCUTL
RCUT:	.FCTR RCUTL-*(X3,X4,X5,X6,VS,UV,RN)
X3: .FCTR FLIP
X4: .FCTR SLEND
X5: .FCTR STRCMP
X6: .FCTR ZERO-ZNEG
VS: .FCTR VARSCN
UV:	.FCTR UVT100
RN: .FCTR RND
	.NAME RC2
RTU:	.FCTR RC2-*(GT,CM,EMS,GS,MEQ,MDT,XQA,XQB,XQC,XQD,XE,XF,P,Q,JUL)
P: .FCTR USRFCT/LB:PMTX2:GMTX
Q: .FCTR USRFCT/LB:VVARY:SIGN
GT: .FCTR GETNNB
EMS: .FCTR ERRMSG
GS: .FCTR GMSUBS
CM: .FCTR CMDMUN
MEQ: .FCTR MTXEQU
MDT: .FCTR MDET
XQA:	.FCTR	XQTCMD/LB:RELVBL
XQB:	.FCTR	XQTCMD/LB:SED:SSCMP
XQC:	.FCTR	XQTCMD/LB:SVBL
XQD:	.FCTR	XQTCMD/LB:SSTR
XE:	.FCTR XQTCMD/LB:PGET
XF:     .FCTR XQTCMD/LB:PGGET
JUL:	.FCTR JULIAN
@FCS11M.ODL
	.END