MMDRV.MAC;4/AU:72.=MMDRV.MAC;3/-BF \ -2,2 .IDENT /03.04/ -24,24 ; VERSION 03.04 -117 ; ; JC002 -- CORRECT BUG IN RETRY PROCEDURE ; ; JC003 -- RETURN CORRECT STATUS FOR REWIND OFFLINE ; ; MRJ003 -- PREVENT CRASH ON ILLEGAL OPCODE ; % -358,359,/;MRJ003/ CMP R2,#ENDFCN ;END OF TABLE? BNE 20$ ;IF NE NO. MOV #IE.IFC&377,R0 ;SET ILLEGAL FUNCTION STATUS JMP 300$ ;EXIT VIA COMMON CODE -729,,/;JC003/ CMPB (R2),#FC.RWU+C1.RDY-C1.IE-C1.GO ;REWIND OFFLINE? BEQ 310$ ;YES MOL SHOULD BE SET SKIP IT -755,755,/;JC003/ BIT #70,(R2) ;REWIND OR REWIND OFFLINE? -809,809,/;JC002/ BNE 395$ ;YES - GO TEST NEF -811,,/;JC002/ 395$: BIT #ER.NEF,(R1) ;NON-EXECUTABLE FUNCTION? BNE REWND ;YES - FATAL /