x ,50@P B:7P Cu|A Cu|C!h@P C?q@ C?R@ C?9<@ C?X I~NI.CH==INI.CH ! $$$A I.CH ! $G>mSQP H:7P I$QP @IE3QP I@@ I"&#QP IB sQP K;&.' SP51 ACT.=Sp=0 IFNB <D>,T IFT0E MODE.-PORTAL,<<TPC>B+B+ BU##> IFE MODE.U0-GATE,< IRPUP A,< A: EUpNTRY A > V PUSHJ P,OTSCALL > TSCK;&.9 O5 ENTRY. N@(CLOSED,CLOSE$,C.N CLOSE) ENTRY. (POPEND,OPEN$,C.OPEP0N) ; *** DBMPPEND SPECIAL ENTRYPp POINTS ENTRY. Q(SKBIND,SKBIN$,C.Q0BIND,OK.NOSS!SCH.QPIO) ENTRY. (XCLQpUDE,XCLUD$,C.OPENR) ENTRY. (FORCER0,FORCE$,C.OPEN) RP ENTRY. (IDNAME,IRpDNAM$,C.HOST) ESNTRY. (DBWROS,DBWRO$,C.HOST) WKc4 VP55C.A*^D100 + EXCODE(B)00M&-I  H h T1.=1 h IFNB <B>,<   T1.==B  ( IFN 100000*T1. H-100000*B, >  A=OFFS. OFFS.==OFFS.+T1. O$PP Q CQP Q&=P Q7YgP S:IhtP T:7P U&p W6 T1.==W00 IFNDEF WP$$$A, Wp IFN T1.,< X MOVE R0,A X0 ST R0, UUO,XPCHAN,+JINB > Xp IFDIF <C><0>,<Y MOVE TAY0P,C LSH YPTAP,2 IFYpN TOPS20,< ZIFN T1.,< Z0 ST R0, UUO,CHAN,ZP+USI.WD XZpCT USI.WD >[ IFE T1., [P > IFN TO[pPS10,< IFE T\1., \0 ;COMPILE-TIME CH\PANNEL IFN T1\p., ;N]O HRRI R0,.F]0OUSI ;FILOP USE]PTI FUNCTION CODE ]p MOVEM R0,FLP^BLK SUBI TAP^0,3 ;POINT AT B^PEGINING OF PAGE ^p MOVEM TAP,FLP_BLK+1 ;BLOCK TO_0 POINT AT MO_PVE R0,FILARG ;F_pILOP ARG POINTER ` FILOP. R0, `0 ;POSITION `P JRST D >> `p IFN T1.,< a XCT JINB a0 > IFE T1.,<aPIN A,IOWDB> ap SKIPA JRST D  JU?.@ b06i T1.==bP0 IFNDEF bp$$$A, c IFN T1.,< c0 MOVE R0,A cP ST R0, UUO,cpCHAN,+JOUTB > d IFDIF <C><0>,d0< MOVE TdPAP,C LSHdp TAP,2 IFeN TOPS20,< e0IFN T1.,< eP ST R0, UUO,CHAN,ep+USO.WD XfCT USO.WD >f0 IFE T1., fp > IFN TOPgS10,< IFE T1g0., gP;COMPILE-TIME CHAgpNNEL IFN T1.h, ;NOh0 HRRI R0,.FOhPUSO ;FILOP USEThpO FUNCTION CODE i MOVEM R0,FLPBi0LK SUBI TAP,iP3 ;POINT AT BEipGINING OF PAGE j MOVEM TAP,FLPBj0LK+1 ;BLOCK TO jPPOINT AT MOVjpE R0,FILARG ;FIkLOP ARG POINTER k0 FILOP. R0, kP ;POSITION kpJRST D >> l IFN T1.,< l0 XCT JOUTB >lP IFE T1., m SKIPA JRST D  JRSUHvI6A UHvI6YYgP Y7YgP [J,s@P \@ ]>~J@ _63@P _.n9`@ _C%w@ a > IFN=(DEF .A,< .A==-B> < .A==-e:LCQP f:7P g V@ g>>6 E($: OFEHFS.==0 LMREG.Eh==0 LGREG.==1F6 IFDEF MUF(REG., IFNDEF MURFhEG., HMREG.==MREG(G. HIGH==1  HIGH==1 g'TxP g'TP@ gRCUA gRCUgRM9@ gR^:=P h:7P hDpP iF[UP iFCQP iJ cQP iJ,s@P $QP $CQP %#QP &3QP &CQP  3QP  &I6P YhTP @ vcQP  hTP  qhTP  |@P  hTP +hTP 2hTP  6~[ZP  :}[zP  G-P  NhTP  NYhTP  N]P  O!hTP  ShTP  Q |S@P .=Q }8Q |:}}Q z>]\sQ |?J7Q zB {ZQ |N,<Q zNO) Q {O$Q {>}{woP