File TRANS.MA (MACREL macro assembler source file)

Directory of image this file is from
This file as a plain text file

C	.....TRANS USED WITH REGRESSION SYSTEM.....
	SUBROUTINE TRANS
        COMMON IBUFF(255),DUMI(85),MANU,IBLK,CP,CV,CF
        COMMON/BLK1/VOLN(100),VOLX(100),FLON(110),FLOX(110),PRSN(100)
        COMMON/BLK2/ACCN(100),ACCX(100),PRSX(100)
        COMMON/BLK3/INEG,IPOS,IDIM,ITMP,IDIM1,IPAS,ISTOP,IREC
        COMMON/BLK4/HOLD(30),K,BUFF(1400),X,Y,APOS,J
C               TRANS
        DEFINE FILE 5(730,85,U,IREC)
        ISTOP=0
        DO 10 I=1,255
        IBUFF(I)=-99999
  10    CONTINUE
	IBLK=IBLK+1
        IREC=16*MANU+IBLK
        READ(5'IREC)(DUMI(I),I=1,85)
        CALL PFTRNS
        DO 20 I=1,255
        IF(IBUFF(I).EQ.-99999)RETURN
	IF(MOD(I,3).EQ.0)GO TO 18
	IBUFF(I)=-1*IBUFF(I)
  18	ISTOP=ISTOP+1
  20    CONTINUE
        RETURN
        END



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search