%- - - - - - - - - - - - - -% 22.08.87 VERSION 42 %- PEçéCTPù ðPOãECCOPA -% %- - - - - - - - - - - - - -% LOCALS LSTLIM EQUALS DINI=0,DRD=1,DWR=2,DTST=3,DITA=4,DTXT=6,DTICK=8 DATA DV:BEG=&FFF6,DV:END=&FFFE EQUALS CUSTAT=&30 %TEK. CTATõC DATA BYT:FL DATA IPSW=&8,ISTL=&6,ICPERR=&0,IUPAR=&2 DATA DATW PROGRAM STLINI() (IF ^A<>0 AND #PSW:.AND.'CUSTAT'= #CPUERR=#UBREAK=#PIRQ=#SREG=0 #PSW=#PSW.AND.&F0 IF) RETURN , PROGRAM STL:RD() AREG=((IF DV:END THEN RETURN ,,2))-DV:BEG (IF .XAE.<>0 %âAêT IF ^E.AND.&1<> THEN =^E.AND.&FE ELSE =^E.IOR.&1 =#CPREGS()[#CPREGS(.XAX.): ELSE %CìOBO IF ^E.AND.&1<> THEN CALL IT ,,'CHANER' =#CPREGS(AREG) IF) RETURN ,,0 *--- A: AäPEC, E: æìAç, X: þéCìO -------- PROGRAM STL:WR(,BYT:FL,DATW) AREG=((IF DV:END THEN RETURN ,,2))-DV:BEG (IF =IPSW DATW=DATW.AND.&FF #PSW=#PSW.AND.'TRACE' #PSW='TRACE'.CCA..AND.DATW.IOR.#PSW ELSE IF =ISTL %CM-3 = ELSE IF <>ICPERR AND <>IUPAR (IF .XAE.<>0 %âAêT AREG=((IF ^E.AND.&1<> THEN =^E.AND.&FE ELSE =^E.IOR.&1)) #CPREGS(AREG)[=^X ELSE %CìOBO IF ^E.AND.&1<> THEN CALL IT ,,'CHANER' #CPREGS(AREG)=^X IF) IF) RETURN ,,0 PROGRAM STLINF() PROGRAM STL:IT() RETURN 0