sta&8f
          ldy#0
          sty&100
          sty&101
1%        iny
          lda (&8e),y
          sta&101,y
          bne 1%
          jmp&100
.baddrive jsr errormsg
          defb 'Bad Drive',0
.diskerr  pha
          jsr displ