; BOOT.MAC - 3/9/86 CP/M booter for Xerox ; Load track 0, sectors 2-26 and track 1, sectors 1-26 .z80 true equ 0ffffh false equ not true maclib BIOSCPM.INC ; CP/M addresses maclib BIOSXRX.INC ; Xerox prom entries maclib BIOSDSKE.INC ; Disk equates aseg org 100h .phase bootorg ld sp,80h rd: ld a,(sector) ld c,a ld hl,(addr) call xread ld hl,(addr) ld bc,128 add hl,bc ld (addr),hl ld hl,nsects dec (hl) jp z,bios ld a,(sector) inc a ld (sector),a sub spt+1 jr nz,rd inc a ld (sector),a ld a,(track) inc a ld (track),a ld c,a call xsettrk jr rd nsects: db 51 ; 7 sector bios sector: db cpmsec addr: dw ccp track: db 0 end