LOAD AMDOS.INT.PATCH

BLOAD AMDOS.INT.PATCH,A$1800

FILE NOT FOUND
    



!LOAD AMDOS.INIT.PATCH

BLOAD AMDOS.INIT.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 DRIVE  HEX 00
   9 FINAL  JSR $8A47
  10        JSR $889A
  11 OUT    LDX STACK
  12        TXS 
  13        RTS 
  14 ;
  15 START  LDX $1E41
  16        BMI MAST
  17        RTS 
  18 MAST   TSX 
  19        STX STACK
  20        JSR $E15
  21        LDA $AA68
  22        STA DRIVE
  23        LDA $AA6A
  24        STA SLOT
  25        LDA #$01
  26        STA $1E56
  27        JSR $E15
  28 ;
  29        JSR $8A69
  30        HEX 8D
  31 L1     ASC 'AmDOS 3.5 for UniDisk 3.5'
  32        HEX 8D
  33 LX     ASC 'Initializer for Entire 3.5 inch disk'
  34        HEX 8D
  35 L2     ASC 'Copyright (c) 1986 Gary B. Little'
  36        HEX 8D8D
  37 L3     ASC 'This copy is modified to work with BEX.'
  38        HEX 8D
  39 L4     ASC 'for a full-function version of AmDOS,'
  40        HEX 8D
  41 L5     ASC 'send $20 (USA) or $27 (Canada) to:'
  42        HEX 8D8D
  43 L6     ASC '   RMS SOFTWARE INC.'
  44        HEX 8D
  45 L7     ASC '   #210 - 131 Water Street'
  46        HEX 8D
  47 L8     ASC '   Vancouver, B.C. Canada V6B 4M3'
  48        HEX 8D
  49 L9     ASC '      Tel. (604) 681-3371'
  50        HEX 8D8D
  51 L10    ASC 'WARNING: BOTH 400k virtual disks are'
  52        HEX 8D
  53 L11    ASC 'initialized in one stroke.'
  54        HEX 8D
  55 L12    ASC 'Everything on the 3.5 inch disk will be'
  56        HEX 8D
  57        ASC 'wiped out.'
  58        HEX 8D
  59 L14    ASC 'Press the spacebar'
  60        HEX 8D00
  61        JSR $8299
  62        LDA SLOT
  63        ORA #$B0
  64        JMP $852B
  65 ;
  66 XX     HEX 00
  67 ;
  68        END 
!