; Erase gap test 02.
;
; Test 02: Check that short records, tape marks, and EOM are handled.
;
; Operations:
;   - write 5000 byte record 177777
;   - write   20 byte record "AA"
;   - rewind
;   - write   20 byte record "BB"
;   - write  500 byte record "CC"
;   - write tape mark
;   - write 1000 byte record "DD"
;   - rewind
;   - forward space record
;   - write gap
;
; The first write fills the tape area with EOM (0xFFFFFFFF) markers.
; The gap consumes record "CC, the tape mark, and record "DD" and
; then reads an EOM marker that is part of the first record data.
; Record "AA" is not seen because it resides after the EOM marker(s).
;
; Correct tape:
;   Processing tape file 1
;   Obj 1, position 0, erase gap, length = 4800 (0x12C0)
;   Obj 2, position 4800, record 1, length = 20 (0x14)
;   Obj 3, position 4828, erase gap, length = 4800 (0x12C0)
;   End of physical tape


attach -n msc0 gap-test-02.tape


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

go until '@' ; reply '20 WORD 177777 2500\r'
go until '@' ; reply '25 WR\r'

go until '@' ; reply '30 SD AA 10\r'
go until '@' ; reply '35 WR\r'

go until '@' ; reply '40 REW\r'
go until '@' ; reply '41 GOSB 3000\r'

go until '@' ; reply '50 SD BB 10\r'
go until '@' ; reply '55 WR\r'

go until '@' ; reply '60 SD CC 250\r'
go until '@' ; reply '65 WR\r'

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

go until '@' ; reply '80 SD DD 500\r'
go until '@' ; reply '85 WR\r'

go until '@' ; reply '90 REW\r'
go until '@' ; reply '91 GOSB 3000\r'

go until '@' ; reply '100 FSR\r'
go until '@' ; reply '101 GOSB 2000\r'

go until '@' ; reply '110 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-02.tape > gap-test-02.log