;PORTACALC ODL FILE. ; MINI VERSION ODL (PDP11) ; N.B. ; be sure device names with libraries etc. are correct!!!!! ; Assumes our local configuration. Yours will almost certainly ; be different!! Look for / fix refs to DRC0:, DRC4:, and ; the like... ; ; 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,OVR .PSECT ICPOS,D,GBL,RW,OVR .ROOT MAIN-*(DS,HL,RC,XQ),RTU,RTTT,OTSALL ; NOTE WSHEET AND WRKFIL ARE IN ROOT SO THEIR COMMONS WILL BE TOO. ;MAIN: .FCTR OSP-BLOCK-INDEX-OTSROT-FUBAR-TTYINI-WSHEET-WRKFIL-FF MAIN: .FCTR OSP-BLOCK-INDEX-OTSROT-FUBAR-WSH-WRKFIL-ICPOS-UV-SL ; NOTE RECALC ETC. NEVER USE UVT100 SL: .FCTR DRC4:[001001]NOANSLIB.OLB/DL WSH: .FCTR WSHA-WSHB WSHA: .FCTR WSHEET/LB:FVLDGT:FVLDST:TYPGET:TYPSET:FVPEEK WSHB: .FCTR WSHEET/LB:JVBLGT:JVBLST:XVBLGT:XVBLST OSP: .FCTR SPREDSHT/LB:.MAIN.:IN2AS HL: .FCTR SPREDSHT/LB:HELP UV: .FCTR UVT100-REFLECT RC: .FCTR RECALC-CALC-CCC-*(C4,C5,C7,C8) CCC: .FCTR ERRCX C4: .FCTR CMND/LB: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-XQA XQA: .FCTR XQTCMD/LB:RELVBL-CM CM: .FCTR CMDMUN DS: .FCTR DSPSHT ;LIB: .FCTR LB:[1,1]SYSLIB/LB:$SHORT .NAME RC2 RTU: .FCTR RC2-*(EMS,GS,MEQ,MDT,XQB,XQC,XQD,XE,XF,P,Q,JUL,FED,I1,I2,I3,RF) I1: .FCTR SPRINI/LB:INITA1 I2: .FCTR SPRINI/LB:INITA2 I3: .FCTR SPRINI/LB:INITB P: .FCTR USRFCT/LB:PMTX2:GMTX Q: .FCTR USRFCT/LB:VVARY:SIGN RF: .FCTR RND EMS: .FCTR ERRMSG GS: .FCTR GMSUBS MEQ: .FCTR MTXEQU MDT: .FCTR MDET 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 FED: .FCTR FRMEDT .NAME RTTTX RTTT: .FCTR RTTTX-*(RTTT1,RTTT2,W) RTTT1: .FCTR X3-X6-XQF-TTY RTTT2: .FCTR X4-VS-GT-X5 W: .FCTR WSHEET/LB:WSSET X3: .FCTR FLIP X4: .FCTR SLEND X5: .FCTR STRCMP TTY: .FCTR TTYINI X6: .FCTR ZERO-ZNEG VS: .FCTR VARSCN XQF: .FCTR CMND/LB:SCMP GT: .FCTR GETNNB @FCS11MN.ODL .END