; Erase gap test 10.
;
; Test 10: Check straddle record leaving 10 bytes extra.
;
; Operations:
;   - write   32 byte record "AA"
;   - write 4700 byte record "BB"
;   - write   94 byte record "CC"
;   - write   32 byte record "DD"
;   - rewind
;   - forward space record
;   - write gap
;
; The gap overwrites records "BB" and "CC".  Record "CC" straddles the nominal
; gap end, leaving ten extra bytes.  A nominal 4800-byte gap is written, and
; record "CC" is shortened to the smallest legal record of two data bytes.
; Record "DD" is untouched.
;
; Correct tape:
;   Processing tape file 1
;   Obj 1, position 0, erase gap, length = 4800 (0x12C0)
;   Obj 2, position 4800, record 1, length = 32 (0x20)
;   Obj 3, position 4840, erase gap, length = 4800 (0x12C0)
;   Obj 4, position 9640, record 2, length = 2 (0x2)
;   Obj 5, position 9650, record 3, length = 32 (0x20)
;   End of physical tape


attach -n msc0 gap-test-10.tape


go until '@' ; reply '10 SEL0\r'

go until '@' ; reply '20 SD AA 16\r'
go until '@' ; reply '25 WR\r'

go until '@' ; reply '30 SD BB 2350\r'
go until '@' ; reply '35 WR\r'

go until '@' ; reply '40 SD CC 47\r'
go until '@' ; reply '45 WR\r'

go until '@' ; reply '50 SD DD 16\r'
go until '@' ; reply '55 WR\r'

go until '@' ; reply '60 REW\r'
go until '@' ; reply '61 GOSB 3000\r'

go until '@' ; reply '70 FSR\r'
go until '@' ; reply '71 GOSB 2000\r'

go until '@' ; reply '80 GAP\r'

go until '@' ; reply '1000 STOP\r'

go until '@' ; reply '2000 SFC 2000\r'
go until '@' ; reply '2010 RTN\r'

go until '@' ; reply '3000 SFC 3000\r'
go until '@' ; reply '3010 SC 3010 100100\r'
go until '@' ; reply '3020 RTN\r'

go until '@' ; reply 'GO\r'

go until '@' ; reply 'BYE\r'

go


detach msc0

! mtdump gap-test-10.tape > gap-test-10.log