home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / p / systrak.lbr / PUTSYS.AZM / PUTSYS.ASM
Encoding:
Assembly Source File  |  1993-10-25  |  1.6 KB  |  77 lines
  1. ;--------------------------------------------------------------------
  2. ; 
  3. ; PUTSYS - write system tracks from memory at 3380H
  4. ;
  5. ; based on getsys/putsys in D.R. manuals, configured for the
  6. ; Digital Research Computers of Texas (Ferguson) Big-Board 
  7. ;      Brian Kantor, 1983
  8. ;--------------------------------------------------------------------
  9. ; Boot loader    image starts at 3380H
  10. ; CCP        image starts at 3400H
  11. ; BDOS        image starts at 3C00H
  12. ; BIOS        image starts at 4000H
  13. ; (end of system track image is end of bios at 4FFFH
  14. ;-------------------------------------------------------------------
  15.  
  16. msize    equ    60            ; size of cp/m in kbytes
  17.  
  18. bias    equ    (msize-20)*1024
  19. ccp    equ    3400h+bias
  20. bdos    equ    ccp+800h
  21. bios    equ    ccp+1600h
  22.  
  23.     org    100h
  24.  
  25. putsys:
  26.     mvi    c,1            ;select the b disk
  27.     call    bios+27            ;select
  28.     lxi    h,3380h            ;convenient place
  29.     mvi    b,0            ;start on track 0
  30. wr$trk:
  31.     mvi    c,1            ;sector 1
  32. wr$sec:
  33.     call    write$sec        ;put a sector
  34.     lxi    d,128            ;sector length
  35.     dad    d            ;put pointer at end of sector
  36.     inr    c            ;bump count
  37.     mov    a,c            ;check if we got 26 yet
  38.     cpi    27            ;26 on a track
  39.     jnz    wr$sec
  40.  
  41. ; at end of track, put next one
  42.  
  43.     inr    b            ;bump track count
  44.     mov    a,b            ;check count
  45.     cpi    2            ;done 0 and 1 yet?
  46.     jnz    wr$trk            ;no, do another
  47.  
  48. ; done, so boot system
  49.  
  50.     jmp    0
  51.  
  52. ; subroutine to write a sector (use the bios)
  53.  
  54. write$sec:
  55.     push    h
  56.     push    b
  57.     mov    b,h            ; set dma address
  58.     mov    c,l
  59.     call    bios+36            ;setdma
  60.     pop    b
  61.  
  62.     push    b
  63.     mov    c,b            ; set track number
  64.     mvi    b,0
  65.     call    bios+30
  66.     pop    b
  67.  
  68.     push    b
  69.     mvi    b,0
  70.     call    bios+33            ; set sector number
  71.     call    bios+42            ; sector write
  72.     pop    b
  73.     pop    h
  74.     ret
  75.  
  76.     end    putsys
  77.