›; (c) 1995 by Kevin Atkinson››DSKINV = $E453››DDEVIC = $0300›DUNIT  = $0301›DCOMND = $0302›DSTATS = $0303›DBUFLO = $0304›DBUFHI = $0305›DAUX1  = $030A›DAUX2  = $030B›› ORG $4000››          PLA›          LDA #'W'        ;WRITE›          STA DCOMND›          LDA #9›          STA DUNIT›          LDA #$80›          STA DSTATS›          PLA›          STA DBUFHI›          PLA›          STA DBUFLO›          JSR DSKINV     ;Run It››;         JSR $E477››          RTS›› END $4000