þþ×è A™ERROR ROUTINE AND CLEANUPAòX;üX; ERROR ROUTINESX;'…ERROR7;; RETRIEVE ERROR NUMBER FROMP…ERPTR;; JSR AREA$7. P…ERPTR8%>B Q@…ERPTR7L X; AND FALL THROUGH TO RETURNVX;°$†RETURN$†ENTSTK;; GET ENTRY STACKÎB;;AND RESTOREØ $†CURFCBÝP…ICSTA9;;PUT IN FCBâ?ì Q†SVDBYT;;GET SAVED DATA BYTEö:X; %…ERRIOQ†DCBSTA;;GET I/O ERROR CODE G†RETURNX;(†FGREAT$†CURFCB2 ‡FRESBUF;;FREE SECTOR BUFFER<…GREATQ>;;SET ALL OKF H†RETURNdX;