home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol236 / reboot.mac < prev    next >
Encoding:
Text File  |  1986-02-13  |  561 b   |  33 lines
  1. ; routine to reboot cpm by jumping to dj cold boot routine
  2. ; ok for banked cpm3
  3.  
  4.       .z80
  5. reboot:
  6.         ld de,msg
  7.         ld c,9
  8.         call 5
  9. st:     ld c,0bh
  10.         call 5
  11.         and a
  12.         jr z,st
  13.         ld bc,l3-l2
  14.         ld de,l2
  15.         ld hl,l1
  16.         ldir
  17.         jp l2
  18.  
  19. msg:    10,13,'load system disk <ret>$'
  20.  
  21. l1:
  22.         .phase 0f000h
  23. l2:
  24.         xor a
  25.         out (0feh),a            ; switch to bank 0
  26.         inc a
  27.         out (40h),a             ; switch on disk controller
  28.         jp 0e000h
  29. l3:
  30.         .dephase
  31.  
  32.         end reboot
  33.