LOAD AMDOS.PATCH

BLOAD AMDOS.PATCH,A$1800


!L
   1        ORG $8000
   2        OBJ $800
   3        NLS 
   4 ;
   5        JMP START
   6 STACK  HEX 00
   7 SLOT   HEX 00
   8 FINAL  LDX STACK
   9        TXS 
  10        RTS 
  11 ;
  12 START  LDX $1E41
  13        BMI MAST
  14        RTS 
  15 MAST   LDX #$07
  16 LK     LDA $1E60,X
  17        CMP #$17
  18        BEQ FIND
  19        DEX 
  20        BPL LK
  21        RTS 
  22 FIND   STX SLOT
  23        TSX 
  24        STX STACK
  25 ;
  26        JSR $8273
  27        HEX 8D
  28 L1     ASC 'AmDOS 3.5 for UniDisk 3.5'
  29        HEX 8D
  30 L2     ASC 'Copyright (c) 1986 Gary B. Little'
  31        HEX 8D8D00
  32        JMP $5555
  33 ;
  34 XX     HEX 00
  35 ;
  36        END 
!