File BRTH.MA (MACREL macro assembler source file)

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

	SUBROUTINE BRTH
        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
	COMMON/BLK5/AMAT(5,5),COEF(4),COV(5,5),COR(5,5),A21(4)
	COMMON/BLK6/SD(5),A12(4),CEPT,DET,EPS,SX(5),SXY(5),SY
	IF(IPAS.EQ.0)GO TO 30
	INEG=0
	IDIM=0
	IDIM1=0
	IF(J.GE.29)GO TO 20
	ISTOP=30
	DO 10 I=1,30
  10	IBUFF(I)=HOLD(I)
	J=-1
	GO TO 50
  20	J=J-30
	GO TO 50
  30	IDIM1=0
	INEG=0
	IDIM=0
	CALL TRANS
	DO 40 I=1,15
	HOLD(I)=IBUFF(I)
  40	CONTINUE
	J=-1
  50	J=J+3
	IF(J.LT.ISTOP)GO TO 60
	J=-1
	CALL TRANS
	GO TO 50
  60	IF(IBUFF(J).GE.0)GO TO 90
	INEG=INEG+1
	DO 65 I=1,12
  65	HOLD(I)=HOLD(I+3)
	HOLD(13)=IBUFF(J-1)
	HOLD(14)=IBUFF(J)
	HOLD(15)=IBUFF(J+1)
	GO TO 50
  90	IF(INEG.GE.5)GO TO 100
	INEG=0
	GO TO 50
  100	IDIM1=-1
	DO 110 I=1,5
	IDIM1=IDIM1+3
	FLON(I)=HOLD(IDIM1)
  110	CONTINUE
  115	IDIM=IDIM+1
	VOLN(IDIM)=IBUFF(J-1)
	FLON(IDIM+5)=IBUFF(J)
	PRSN(IDIM)=IBUFF(J+1)
  120	J=J+3
	IF(J.LT.ISTOP)GO TO 130
	J=-1
	CALL TRANS
	GO TO 120
  130	IF(IBUFF(J).GE.0)GO TO 115
C		END INSPIR
	ITMP=IDIM
	DO 140 I=1,5
	FLOX(I)=FLON(IDIM-5+I)
  140	CONTINUE
	IDIM=0
  150	IDIM=IDIM+1
	DO 155 I=1,12
  155	HOLD(I)=HOLD(I+3)
	HOLD(13)=IBUFF(J-1)
	HOLD(14)=IBUFF(J)
	HOLD(15)=IBUFF(J+1)
	VOLX(IDIM)=IBUFF(J-1)
	FLOX(IDIM+5)=IBUFF(J)
	PRSX(IDIM)=IBUFF(J+1)
  160	J=J+3
	IF(J.LT.ISTOP)GO TO 170
	J=-1
	CALL TRANS
	GO TO 160
  170	IF(IBUFF(J).LT.0)GO TO 150
C		END EXSPIR
	IDIM1=IDIM+5
	IPOS=13
  180	IDIM=IDIM+1
	FLOX(IDIM+5)=IBUFF(J)
	IPOS=IPOS+3
	HOLD(IPOS)=IBUFF(J-1)
	HOLD(IPOS+1)=IBUFF(J)
	HOLD(IPOS+2)=IBUFF(J+1)
	IF(IDIM.EQ.IDIM1)GO TO 190
  185	J=J+3
	IF(J.LT.ISTOP)GO TO 180
	J=-1
	CALL TRANS
	GO TO 185
  190	IDIM1=0
	IPAS=1
	IDIM=IDIM-5
	DO 200 I=1,ITMP
  200	FLON(I)=FLON(I+5)
	DO 210 I=1,IDIM
  210	FLOX(I)=FLOX(I+5)
	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