%PDP:11 % 19.01.88 VERSION 69 GLOBAL EMULTR USE SYS:PARAMS USE ACR:STRUCT,FIL:STRUCT,LIB:PARAMS EQUALS CARRY=&01 ,OVER=&02 ,ZERO=&04 ,NEG=&08 ,TRACE=&10 * - BEKTOPA ðPEPùBAHéê - EQUALS CHANER=&4 ,RESCOM=&8 ,BPT=&C EQUALS IOT=&10 ,POWER=&14 ,EMT=&18 ,TRAP=&1C EQUALS COINP=&30 ,COOUT=&34 ,PTINP=&38 ,PTOUT=&3C EQUALS TIMER=&40 EQUALS FLOAT=&A4 DATA IT:RET=ITRST-2 %BOúBPAT þEPEú RTS DATA REG=R0 %OâýéE PEçéCTPù DATA R0=0,R1=0,R2=0,R3,R4,R5,SP,PC DATA CPREGS=CPUERR %PEçéCTPù CPU DATA CPUERR,UBREAK,PIRQ,SREG,PSW DATA CMD %PEçéCTP KOMAHäù DATA INPSYM %PEúõìøTAT DPM DATA STRSYM DATA TICKFL DATA ITWORD %çPEâEHKA OTìOöEHHùX ðPEPùBAHéê EQUALS T:BIT=1 %"úAäEPöAHHùê" T-âéT EQUALS SL:BIT=2 %"öEìTAñ" úOHA CTEKA EQUALS D:BIT=4 %õóôòïêóô÷á DATA W4 ,W6 ,W8 ,W10 ,W12 ,W14 DATA WBUF(&100) DATA DISLAB DATA VSCR,HSCR ,VPOS,HPOS DATA TIPCOM %âAêTOBAñ éìé HET BYTES TRACFL=0 ,DEBFL=0 LOCALS *LMAIN PROGRAM EMULTR() CALL START ^A %INI æAêìA C MACCéBOM %START íåîñåô STRSYM, åóìé ÷ùú÷áîï ëáë éîôåòðòåôáôïò CALL DEVINI ((IF ^A='RN' THEN =1 ELSE =0)) %RESET (#VSCR+1)[(#HSCR+1):=((DPTYPE)) CALL INIDPP CALL DEBINI %HACTPOêKA HA üKPAH %%CALL PROFIL 0 (WHILE <> = #INPSYM=((DPM)) (IF .AND.&7F=2 %% 'DBSYMB' #INPSYM=#MIN1 ; #DEBFL:=#DEBFL:.IOR.&80 IF) IF #DEBFL:<> THEN CALL DEBUG CALL STEP %BùâOPKA é BùðOìHEéE KOMAHäù CALL DEVTST %OðPOC õCTOPêCTB WHILE)