/EXSLOW -- EXECUTE SLOW FROM ANY FIELD /BRUCE BON /GEORGE WASHINGTON UNIVERSITY MEDICAL CENTER /OCTOBER 1974 /SIMILAR TO DECUS 8-400 /MODIFIED TO OPERATE FROM ANY FIELD ON ANY FIELD OR FIELDS ADDR=6000 N=3 IFNDEF ADDR IFNDEF N FIELD 0 *1 N^10 CIF JMP I .+1 INT FIELD N *ADDR START, CLA CLL DCA IOSW /NOT IN SUBROUTINE HLT /SET IF=N,DF=START FIELD LAS /LS=START ADDRESS OF PROGRAM RUN, DCA PC CLA CLL CMA /-1 TAD PC DCA PCM1 TAD I PCM1 DCA INSAVE /SAVE INSTR. FROM PC-1 TAD (ION DCA I PCM1 /IF DESIRED, ADD SUBROUTINE TEST HERE! PRINT, JMS PSEQ /PRINT LINK,AC,PC,INSTR EXIT, CLA CLL RDF TAD (CIF DCA .+1 HLT /CIF FOR MAIN PROGRAM XCDF, HLT /CDF FOR MAIN PROGRAM TAD SLINK /RESTORE AC AND LINK CLL RAR TAD SAC JMP I PCM1 INT, DCA SAC /INTERRUPT SERVICE ENTRY POINT RAL /SAVE AC AND LINK DCA SLINK TAD I (0 /FROM IF=0 DCA PC RIB DCA SRIB TAD SRIB /SET DF TO PROGRAM IF AND (70 TAD (CDF DCA XCDFIF XCDFIF, HLT TAD SRIB /SET UP DF RESTORE CLL RTL RAL AND (70 TAD (CDF DCA XCDF TAD INSAVE /RESTORE INSTRUCTION DCA I PCM1 KSF /HLT IF KEY TYPED JMP .+3 KCC HLT JMP RUN+1 IOSW, 0 /SUBROUTINE SW -- OUT=0 PC, 0 /PROGRAM COUNTER PCM1, 0 /PC-1 INSAVE, NOP /SAVE INSTRUCTION SAC, 0 /SAVE AC SLINK, 0 /SAVE LINK SRIB, 0 /SAVE RIB /SUBROUTINES TO DO PRINTOUT PSEQ, 0 /PRINT LINK, AC, PC, INSTR. JMS CRLF TAD SLINK /PRINT LINK JMS CHARP TAD (240 JMS TYPE TAD (301 /PRINT AC JMS TYPE TAD SAC JMS PRINT4 TAD (306 /PRINT FIELDS JMS TYPE TAD SRIB JMS PRINT4 TAD (320 /PRINT PC JMS TYPE TAD PC JMS PRINT4 TAD (311 /PRINT INSTRUCTION JMS TYPE TAD I PC JMS PRINT4 JMP I PSEQ PAGE PRINT4, 0 /PRINT 4-DIGIT OCTAL, THEN SPACE DCA WORD TAD WORD RTL;RTL JMS CHARP TAD WORD RTR;RTR;RTR JMS CHARP TAD WORD RAR;RTR JMS CHARP TAD WORD JMS CHARP TAD (240 JMS TYPE JMP I PRINT4 CHARP, 0 /PRINT ONE DIGIT FROM AC 9-11 AND (7 TAD (260 JMS TYPE JMP I CHARP CRLF, 0 TAD (215 JMS TYPE TAD (212 JMS TYPE JMP I CRLF TYPE, 0 TLS TSF JMP .-1 CLA CLL JMP I TYPE WORD, 0 $$$$$$$$$$$$$