x @P C5b Sp%! FW$$ ADVTIS,ADV,A,B,C,DC2exb p!oMM$$ $ALLCCB&}  0"MR$$ A,APDWT,APDW0CB-i p!OMM$$ APENDE$: EP$-MM$$ BATCHE=B TP%] ; IFE FTpT$DBG, IFEU FT$ALC,< $$ALLU0C==$CRGET## $$DUPALC==$CRREL##> ;SUpTATIC CORE ALLOCAVTION IFN FT$DBG,V0 VP;LOAD PATCH AREA Vp IFE FT$DBG, ;LOAD W0NON-DEBUG CODE WPPORTAL .+2 ;XCT WpONLY ENTRY PORTXAL .+2 ;XCT ONLYX0 CCL ENTRY TDZAXP T1,T1 ;FLAG NORXpMAL ENTRY IFNB <YA>,< MOVEI T1,Y0(SIXBIT \A\) ;> YP IFB <A>,< HLRYpZ T1,.SGNAM ;> IZFE FT$CCL,< JSPZ0 T0,$BEGIN## ;iniZPtialise code> IFZpN FT$CCL,< JSP [T0,$BEGCC## ;init[0ialise code + CCL[P stuff>;FT$CCL $$BEG:: $OG;5m"G"ukb zP'W LDB A,zp[POINTR ($FDCHN(D),FC$CHN)] &N8G.-{ 4p#'MM$$ CKEOLqR$;!=qS.[bG2YB Bp$MM$$ CLBUFG2eB B0$MM$$ CLLING2~9" P!# IFNB <Ap>,< MOVEI T1,<A> MM$$ CLOS0> 0 IFB <A>,< MM$$ CLOSE>G3i p!wMR$$ A,CLRFD,CLRF0G6$i pG:u}b IP$MMM$$ CNNOWG;$M HP$EMM$$ CNTDTG;4M JP$UMM$$ CNVDTG;5" J$QMM$$ CNVIU$G;5m" I$IMM$$ CNVNUG;6Z" H$AMM$$ CNVUIH@ I Hb 0!sMM$$ $DALCId] !MM$$ DELETI2YB !MM$$ DLBUFI4  {0'] ND MX${PA,B ND AD$A,C ND PD$A,DK $kQ |K %RQ @K &N8Q xK &]7Q K;$\B P! MR$$ A,ENTER,ENTE0KJ=Q KJ$\BQ ~KJ&I"Q ~KJ-yBQ KJM\Q }KJthbQ |KKH"Q }KKi pKK9Q |KK-jbQ {L@ M$ R0% FW$$ FATRPAL,FTL,A,B,C,DM $:P pM $-$LNFDB>,<$$$LPEN==$LNFDB> ;DEFIpNE A LENGTH SYMBOL IFGE <<F>-$LN0FDB>,<$$$LEN==<FP>> ; $$$LOC==. p ;REMEMBER WHERE WE ARE ; MAK0E ZEROED WORDS FRPOM THE START DOWNp TO $FDSTS REPEAT $FDSTS,< EX0P 0 ;ZEROS TILLP STATUS WORD > p ; SET THE FILE IO MODE TO .IOAS0C OR THE GIVEN MOPDE IFNB <E>,<pEXP <E>> ;SET MODE IFB <E>, ;DEFAPULT SIXBIT `A`p ;DEVICE ; CLEAR DOWN TO D I0N PATH SPEC BLOCKP REPEAT <$FDPPpP-$FDBHD>,< EXP 0 ;BUFFER HEAD0ERS AND MODE > P ; IF NO PATH GpIVEN, MAKE ZEROED PATH BLOCK ; I0F PATH SUPPLIED, PSET THIS PATH INTpO THE PATH BLOCK  IFB <D>,< ;Z0ERO PATH SPEC PREPEAT ,<p EXP 0 >;REPEAT >;IFB I0FNB <D>,< ;CRPEATE PATH SPEC p$$$N==0 ;D PARTS SEEN SO FAR 0 IRP <D>,< P IFE <$$$N>,<$$$PpPN==D,,0> ;PRJ  IFE <$$$N-1>0,<$$$PPN==$$$PPN+PD ;PRG EXP $$$pPPN ;SET D  >;IFE IFG 0<$$$N-1>,< ;THEPREFORE AN SFD p IFG <$$$N-FT$SFD>, SIXBIT @D@ ;SET SFD0 >;IFG P$$$N==$$$N+1 >p;IRP IFLE <$$$ N-FT$SFD>,<  0REPEAT ,< EXP 0  p ;FILL IN PATH BL!OCK >;REPEAT!0 >;IFLE >;IFN!PB EXP 0 ;END !pPATH SPEC ; C"LEAR DOWN TO RIB "0BLOCK REPEAT <"P$FDCNT-$FDOBH>,< "p EXP 0 > ; #.RBCNT - COUNT #0OF WORDS REMAININ#PG IN FDB ; .RBP#pPN - POINT TO P$ATH SPEC. ; .RB$0NAM - GIVEN FIL$PENAME ; .RBEXT $p - GIVEN EXTENSI%ON ; .RBPRV-.RB%0VER - EMPTY %P EXP $$$LEN-$FDCN%pT-1 ;RIB WORD CO&UNT EXP $$$LOC+&0$FDPTH ;ADDRESS &POF PATH SPEC ;NAM'E '0&<-1,,0> ;EXTENSI'PON REPEAT <$$$LE'pN-$FDPRV>,< EXP( 0 ;ZERO REST O(0F FDB > ; CL(PEAN UP TEMPORARY (pVARIABLES PUR)GE $$$LEN,$$$N,$$$PPN,$$$LOC KM&N" p!MM$$ FDTTYM%m6Q @M&{Q M4$Q M4$I7P M4$I\Q M4$J9Q M4%iQ @M4%kvQ M4%m6Q M4&9P M4& Q M4& WP M4&=Q M4&LVQ `MJ B 0!+MM$$ FRCHNMP",sP MP$Q MP$8vP MP$HSP MP&9RP M\ @ K% IFB <CK0D>,< PUSHJ P,$KPBIO##> IFNB <CKpD>,< IFB <C>,< L EXTERN $BD L0PUSHJ P,$BD> ILPFNB <C>,< IFB <LpDFE>,< PUSHJM P,[MOVEI T1,[ASCM0IZ \C\] PJMPRST $A##]> IFNBMp <DFE>,< IFNBN <E>,< FW$$S==N0EC$IND+[+[ASCIZ `C`]Np]> IFB <E>,< OFW$$S==[ASCIZ `CO0`]> IFNB <F>,< OP FW$$S==FW$$S+ECOp$UUO> IFNB <D>,P< FW$$S==FW$$S+P0<<$ECTD>B17>> PPPUSHJ P,[MOVE T1,Pp[FW$$S] IFNB <FQ>,< MOVE T3Q0,[SIXBIT `F`]> ;QP[137] JRST Qp$A##] PURGE FW$$S> >>ND@ NH@ NL@ NP@ NT@ NX@ N\@ O&=  yMM$$ GETSTQ'Yb op'# IF1,< pIFDEF SEG$1,< p0IFE SEG$1,< IpPFE FT$DBG,pp LIT RELOqC IFE FT$DBG,q0>> IFNDEFqP SEG$1,< TWOSEqpG RELOC 400000r> SEG$1==-1> Ir0F2,< IFDEF SEG$rP2,< IFE SEG$2,rp< IFE FT$DBG,s LIT s0 RELOC IFE sPFT$DBG,>> sp IFNDEF SEG$2,< t TWOSEG RELOCt0 400000> SEG$2==-1>!EqRMBR@ S;]  P eMM$$ INPUT>}{woP S;Jb xP'I GLOB <$xpSTACK,$LNSTK,$PTSyTK> MOVE P,$PTSTK%h6` %hUU [B yP'Q .JBREN=yp=124 MOVEI A,zB HRRM A,.JBREN& ` & U 4\B bp& .JBVER=c=137 LOC .JBVERc0 BYTE (3)$VCOD(cP9)$VMAJ(6)$VMIN(1cp8)$VEDT RELOC YV^\![$:WNy  P(m A$L==0  p A$T: IRP (B) ,<*>,  p STOPI>   IFE TMP$ 0$,<AB==A$L>  P > PURGE TMP$$X@ Y4A Y4J" :Y?Yb tp'A IF1,< uIFDEF SEG$1,< u0IFN SEG$1,< IuPFE FT$DBG,up LIT RELOvC SEG$1==0 v0 IFE FT$DBG,>>> IF2,< IFvpDEF SEG$2,< IFwN SEG$2,< IFEw0 FT$DBG, wP LIT RELOC wp SEG$2==0 xIFE FT$DBG,>>>;Z` $I;Y?i 0!{MM$$ LOSFDYV^\ ! MM$$ LUKUP[\i )P,  ; DEF)pINE SYMBOL, $$$LE*N, FOR LENGTH OF *0THIS FDB, WHICH M*PAY BE ; LONGER *pTHAN $LNFDB IF+L <<F>-$LNFDB>,<+0$$$LEN==$LNFDB> ;+PLENGTH OF FDB IF+pGE <<F>-$LNFDB>,,<$$$LEN==<F>> ; ,0 ; CREATE INST,PRUCTION TO MOVE $,pCLRFD ARGUMENT IN-TO AC(T1) ; THE-0 ARG IS [LENGTH,-P,ADDRESS] WITH AD-pDRESS ZERO FOR A .NEW ; FDB TO BE.0 ALLOCATED IFN.PB <G>,< MOVE T.p1,[$$$LEN,,<G>] /;ARGUMENTS FOR $C/0LRFD > IFB <G>/P,< MOVSI T1,$$$/pLEN ;FIND SPACE 0 > ; S/R CALL00 TO CREATE (OR CL0PEAR) FDB. ERRORS0p ARE FATAL CL1RFD$ T1 ; F10ATAL$ ; MOVE 1PD,T1 ;SETUP D 1p ; IF THE FILE 2IO MODE IS GIVEN,20 SET IT INTO $FDM2POD IFNB <E>,<2p MOVX T1,<E> 3;SET MODE MOVEM30 T1,$FDSTS(D) ; 3P > ; IF THE D3pEVICE SPEC. IS GI4VEN, SET IT INTO 40$FDDEV IFNB <4PA>,< MOVX T1, ;SET 5DEVICE NAME MOV50EM T1,$FDDEV(D) 5P; > ; IF THE5p PATH SPEC IS GIV6EN, SET IT WORD B60Y WORD INTO THE 6P; PATH SPEC. BLO6pCK $$$N==0 7 ;IRP COUNT IFNB70 <D>,< IRP D7P,< IFE <$$$N7p>,<$$$PPN==D,,0>8 ;PRJ IFE <80$$$N-1>,<$$$PPN==8P$$$PPN+D ;PRG 8pMOVE T1,[$$$PPN] 9;SET D MOVEM T901,$FDPPP(D) ;IN 9PPATH SPEC. >9p;IFE IFG <$$:$N-1>,< IF:0G <$$$N-FT$SFD>,<:PPRINTX TOO MANY S:pFDS IN MAKFD$ CAL;L STOPI> M;0OVX T1, ; MOVEM T1,;p$FDPTH+1+$$$N(D) <; >;IFG <0 $$$N==$$$N+1 ;IRP >;I=FNB ; INSERT =0FILE NAME INTO FD=PB IF GIVEN IFN=pB <B>,< MOVX T>1, ;>0 MOVEM T1,$FDNA>PM(D) ; > ; >pINSERT FILE EXTEN?SION INTO FDB IF ?0GIVEN IFNB <C?P>,< MOVX T1, ; HL@LZM T1,$FDEXT(D) @0 ; > ; CLEAN@P UP TEMPORARY VAR@pIABLES PURGE A$$$LEN,$$$N,$$$PPN [$: DP$%MM$$ MATCH[.YB P!MM$$ MKBUF[4 @ ~p  IF2,> PUSHJ P,$A O%|P [>v- Ap$MM$$ MONRT[H @ P  IFB <A>p,< MM$$ B> IFNB <A>,< IFN <0<A>-T1>,< MOVEP T1,<A>> MM$$ C>R-sP [N,< MOVX T1,<A>> MM$$ B] J@ T IFNDEF A,<A==B> _B-a !MM$$ OPEN_W%B  P mMM$$ OUTIN_W& "   iMM$$ OUTPU`@ `D@ `H@ `L@ `P@ a$: aP& IFNB <Aap><$VMIN==$VMIN+1>b IRP A<$VEDT==$b0VEDT+1 $A==-1> Pa+-\ +et: 6p#7MR$$ A,RANCH,RANC0 Mwe NI" 3p#MM$$ $RBYTo>K CoC=|Be M 5p#/MM$$ RCALT D[sQ  D[ve: >0#sMR$$ A,RCASH,RCAS0 &&Kxe B 50#+MM$$ RCCHR 4;ZP 5 eDB 40##MM$$ $RCHRo^~) OqReI" =0#kMR$$ A,RDATE,RDAT0 &%ne,; 9p#OMR$$ A,RDECL,RDEC0 & [e,;" :0#SMR$$ A,RDECM,RDCM0 &9Re5b ?0#{MR$$ A,RDVIC,RDVI0v :e A 30#MM$$ READkW.[bPoDBe$: 70#;MR$$ A,REDCH,REDC0 $wet" P!MM$$ RENAMeM 0!kMM$$ RESTTeMI" >p#wMR$$ A,RFILE,RFIL0 O%X) ;p#_MR$$ A,RKWRD,RKWR0 &$<e2,b p!'MR$$ A,RLEAS,RLEA0e: Y" 80#CMR$$ A,RNAME,RNAM0 $le>K :p#WMR$$ A,ROCTL,ROCT0 &N8e>K" ;0#[MR$$ A,ROCTM,ROCM0 nLWeBJ ?p#MR$$ A,RPATH,RPAT0eBV b @p$MR$$ A,RPJPG,RPJP0eCa @0$MR$$ A,RPPN,RPPN0eJ, <0#cMR$$ A,RREAL,RREA0 &$YReO= A0$ MM$$ RSWITeR$" ,D,-C$L,E` &%H1g2,\ C0$! IFNB <ACP>,< MOVEI T1,ACp MM$$ SLEE0> IDFB <A>,< MM$$ SLEEP>g@  |'c X A,C|0,<B>,PD$D,MX$D,EXr` &$YRgL  }P'm X A,0,<B>,C,0,D& g_$B ~(Q XALL ~0 ;TABLE OF POINTE~PRS TO THE OTHER T~pABLES IOWD A$$L,A$$N ;[127]0 IOWD TO NAME TABPLE XWD P1,A$$Pp ;[127] POINT TO BYTE POINT TABLE0 XWD P1,A$$M P;[127] POINT TO MpAXIMA TABLE XWD P1,A$$D ;[127]0 POINT TO DEFAULTP TABLE ; DEpFINE X(A,B,C,D,E,F),< EXP SIXBIT0 `A`> A$$N: ;[1P27] TABLE OF SIXBpIT SWITCH NAMES  SWIT$$ A$$L==.0-A$$N ; IFP2,< DEFINE X(A,Bp,C,D,E,F),< TMP$$==0 IFB ,< 0 Z ;A TMP$$=P=1> IFN _-^D2p4,< TMP$$==C TMP$$ ;A > IF0E TMP$$,< POINTP 36,C,35 ;A > p>> A$$P: ;[127] TABLE OF POINTER0S TO VALUE WORDS P SWIT$$ ; ; p MX$==0 DEFINE X(A,B,C,D,E,F),0< XWD E,B ;A P> A$$M: ;[127] pTABLE OF MAXIMA OR IOWDS SWIT$$ 0 ; PD$==0 PDEFINE X(A,B,C,D,pE,F),< XWD 0,D   ;A > A$$D: ;[ 0127] TABLE OF FLA PGS AND DEFAULTS  p SWIT$$ PURGE M X$,PD$,TMP$$ SALLh@@ hD@ hH@ hL@ hP@ i7K GP$=MM$$ TMPDLi7i F$1MM$$ TMPFDi7B FP$5MM$$ TMPINi7}" G$9MM$$ TMPOUiJli :kB$ 0!SMM$$ UPDATkB&}  p"MR$$ A,UPDWT,UPDW0kN.J"  qMM$$ USETIkN.Kb P uMM$$ USETOkVKbP kV-mP kV<]P kVMlP kVfZbP kV~ BP kV~]P kW[BP kW[BP kW%\P kW.[bP m;B \&  $VMAJ==\0<A> ; $VMIN==\P0 ; $VEDT==<B\p> ; $VCOD==<C]> ; ; V1$]0$==<<%%C&<77700,,]P000000>>_-^D24> ]p V2$$==<%%C&77777^7> V3$$==<<$$IO^0&<77700,,000000>>^P_-^D24> V4$$==<^p$$IO&777777> DEF_INE V$$(V1,V2,V3,_0V4),< IF1,< PRI_PNTX %Assembled us_ping C version V1(`V2) and IO versio`0n V3(V4) >>;DEFI`PNE V$$ \V1$$,\V`p2$$,\V3$$,\V4$$ a PURGE V1$$,V2$$,V3$$,V4$$ J BmR/  d0&{ DEFINdPE VTEXT$(VMJ,VMI,dpVED,VCD),< DEFIeNE ..NUM(..N),< e0IFN ..N>>;..NUMf DEFINE ..ABC(.f0.A),< IFN ..A<..fPT==..T_7+"A"+..A-fp1 ..WRD>>;..ABC g DEFINE ..CHR(..g0C),< ..T==..T_7+gP"..C" ..WRD>;..CgpHR DEFINE ..WRDh,< IFN <..T&..M>h0,<..DEP ..T==0>>hP;..WRD DEFINE .hp.DEP,< BYTE(7) <i..T&<376000,,0>>_i0-^D28,<..T&<1770,iP,0>>_-^D21, <..T&ip<7,,740000>>_-^D1j4,<..T&37600>_-^Dj07,..T&177>;..DEP jP ..T==0 ..M==3jp76000,,0 ..NUM kVMJ ..ABC VMI k0IFN VED<..CHR <(>kP ..NUM VED ..kpCHR <)>> IFN VCDl<..CHR <-> ..NUl0M VCD> IFE ..T> IFN ..T< DmEFINE ..WRD,< ..m0T==..T_7 IFE <..mPT&..M>,<..WRD> ImpFN ..T<..DEP ..Tn==0>>>;..WRD ..n0WRD PURGE ..NUMnP,..ABC,..CHR,..WRnpD,..DEP,..T,..M>;oVERSION VTEXT$ o0\$VMAJ,$VMIN,\$VEDT,\$VCODkW.[bnJ5 )p"OMM$$ W2FILM4&LVQ MJ BnJ5D *0"SMM$$ W2FL0MP$8vPMP$HSnJ5HB *p"WMM$$ W2FLBNH@NLo$LB +p"_MM$$ WADDRS;] cXoa S% FW$$ WARS0N,WRN,A,B,C,Do >) 0p#mm$$ wbwrdh@@hDo NI" %0"+MM$$ $WBYTK $kQ K %Ro: +0"[MM$$ WCASHNX@N\oDB  ) IFNB <B0>,< MOVEI T1,",P"> IFB <B>,< pIFNB <A>,< MOVEI T1,A>> MM$$ $WCHRR|LrP oIB %p"/MM$$ WCRLFK;$\B! KJ=o>) 10# mm$$ wcwrdhP@iJlioI" ,0"cMM$$ WDATEY?i!yYV^\o,; P A IFNB <Ap>,< MOVEI T1,^DA> MM$$ WDECLR~,xP  R~-ou}b ,p"gMM$$ WDNOW[H @ [N) 20#MM$$ WKWRDkV<]PkVMlo2Mi" P 9 IFNB <Ap>,< MOVEI T1,[ASCIZ `A `]> MM$$ WTEXTR}}1o: Y" 'p"?MM$$ WNAMEM %|Q{M &Hto>K P G IFNB <Ap>,< MOVEI T1,A> MM$$ WOCTLoBJ (p"GMM$$ WPATHM4$J9QM4%ioC=|B   a IFNB <A 0>,< MOVEI T1,A P> IFNB <B>,<  pMOVX T2,> MM$$ WPWORSNMP WD:oC>) 2p#MM$$ WPWRDkV~]PkW[BoJ N &0"3MM$$ WRADXKJ-yBQ KJM\oJ,  0 M IFNB <A P>,< MOVE T1,[A]> MM$$ WREALoJNI" $p"'MM$$ WRITEH@I HboR$" /0"{MM$$ WTDAY`L@`PoR%mb /p"MM$$ WTDNWeM!ie2,boR/  P 1 IFNB <Ap>,< MOVEI T1,[ASCIZ `A`]> MM$$ WTEXT}1P oRMY" -0"kMM$$ WTIME[R,< MOVX T1,> MM$$ WWORD SMLo_>) 1p#mm$$ wwwrdkN.J" okN.Kboc}{woP