home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / PACKET / RLI120.ARK / BOOT.MAC < prev    next >
Text File  |  1986-08-12  |  768b  |  48 lines
  1. ; BOOT.MAC - 3/9/86 CP/M booter for Xerox
  2.  
  3. ; Load track 0, sectors 2-26 and track 1, sectors 1-26
  4.  
  5.     .z80
  6.  
  7. true    equ    0ffffh
  8. false    equ    not true
  9.  
  10.     maclib    BIOSCPM.INC        ; CP/M addresses
  11.     maclib    BIOSXRX.INC        ; Xerox prom entries
  12.     maclib    BIOSDSKE.INC        ; Disk equates
  13.  
  14.     aseg
  15.     org    100h
  16.     .phase    bootorg
  17.     ld    sp,80h
  18. rd:    ld    a,(sector)
  19.     ld    c,a
  20.     ld    hl,(addr)
  21.     call    xread
  22.     ld    hl,(addr)
  23.     ld    bc,128
  24.     add    hl,bc
  25.     ld    (addr),hl
  26.     ld    hl,nsects
  27.     dec    (hl)
  28.     jp    z,bios
  29.     ld    a,(sector)
  30.     inc    a
  31.     ld    (sector),a
  32.     sub    spt+1
  33.     jr    nz,rd
  34.     inc    a
  35.     ld    (sector),a
  36.     ld    a,(track)
  37.     inc    a
  38.     ld    (track),a
  39.     ld    c,a
  40.     call    xsettrk
  41.     jr    rd
  42.  
  43. nsects:    db    51    ; 7 sector bios
  44. sector:    db    cpmsec
  45. addr:    dw    ccp
  46. track:    db    0
  47.     end
  48.