›; (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 #'R'        ;WRITE›          STA DCOMND›          LDA #9›          STA DUNIT›          LDA #$80›          STA DSTATS›          PLA›          PLA›          STA DAUX1›          LDA #0›          STA DAUX2›          PLA›          STA DBUFHI›          PLA›          STA DBUFLO›          JSR DSKINV     ;Run It›          RTS›› end $4000›