************
File DSK4:[JBROWN.XMODEM]XMODEM.FOR;4
  994   		ic8 = received(2)	! can't equiv since received(3)
  995   					! would wreck ic high byte
  996                   ic = iand( ic8, 127 )   ! mask back to 7 bit
  997    
******
File DSK4:[JBROWN.XMODEM]XMODEM.FOR_ORIGINAL;1
  994   		ic = received(2)	! can't equiv since received(3)
  995   					! would wreck ic high byte
  996    
************
************
File DSK4:[JBROWN.XMODEM]XMODEM.FOR;4
 1003   
 1004   c                notnotc=iand( not(inotc),255 )  ! mask back to byte
 1005                   notnotc=iand( not(inotc),127 )  ! mask back to 7 bit
 1006                                            ! allows ASCII transfer even
 1007                                            ! if 8-bit impossible
 1008    
 1009   c  received(3) is low order byte of ic via equivalence statement
 1010   c                if( iand(ic,255).NE.notnotc ) then
 1011                   if( iand(ic,127).NE.notnotc ) then
 1012   c                        print *,' block check bad.'
******
File DSK4:[JBROWN.XMODEM]XMODEM.FOR_ORIGINAL;1
 1002                   notnotc=iand( not(inotc),255 )  ! mask back to byte
 1003    
 1004   c  received(3) is low order byte of ic via equivalence statement
 1005                   if( iand(ic,255).NE.notnotc ) then
 1006   c                        print *,' block check bad.'
************
************
File DSK4:[JBROWN.XMODEM]XMODEM.FOR;4
 1052   c  7-bit modification
 1053   c                         if( checksumbyte.NE.ck ) then
 1054   			 ick = ck
 1055   			 ick7 = iand( ick, 127)
 1056   			 ichecksumbyte = checksumbyte
 1057   			 icheck7sumbyte = iand( ichecksumbyte, 127 )
 1058                            if( icheck7sumbyte.NE.ick7 ) then
 1059                                   write(8,*) ' bad checksum'
******
File DSK4:[JBROWN.XMODEM]XMODEM.FOR_ORIGINAL;1
 1046                            if( checksumbyte.NE.ck ) then
 1047                                   write(8,*) ' bad checksum'
************
************
File DSK4:[JBROWN.XMODEM]XMODEM.FOR;4
 1066   c                testblock=iand(blocknumber,255)
 1067   c                testprev=iand( blocknumber-1 ,255)
 1068   c                if( iand(ic,255).EQ.testprev) then
 1069                   testblock=iand(blocknumber,127)
 1070                   testprev=iand( blocknumber-1 ,127)
 1071                   if( iand(ic,127).EQ.testprev) then
 1072   c                        print *, ' prev. block again, out of synch'
******
File DSK4:[JBROWN.XMODEM]XMODEM.FOR_ORIGINAL;1
 1054                   testblock=iand(blocknumber,255)
 1055                   testprev=iand( blocknumber-1 ,255)
 1056                   if( iand(ic,255).EQ.testprev) then
 1057   c                        print *, ' prev. block again, out of synch'
************
************
File DSK4:[JBROWN.XMODEM]XMODEM.FOR;4
 1076   c                elseif( iand(ic,255).NE.testblock ) then
 1077                   elseif( iand(ic,127).NE.testblock ) then
 1078   c                        print *, ' block number bad.'
******
File DSK4:[JBROWN.XMODEM]XMODEM.FOR_ORIGINAL;1
 1061                   elseif( iand(ic,255).NE.testblock ) then
 1062   c                        print *, ' block number bad.'
************

Number of difference sections found: 5
Number of difference records found: 27

DIFFERENCES /IGNORE=()/MERGED=1/OUTPUT=DSK4:[JBROWN.XMODEM]DIF.;1-
    DSK4:[JBROWN.XMODEM]XMODEM.FOR;4-
    DSK4:[JBROWN.XMODEM]XMODEM.FOR_ORIGINAL;1