home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / UTILITY / SYSTEM / BOOTSLOW.ZIP / SOURCE.ZIP / BOOTSEC.ASM < prev    next >
Encoding:
Assembly Source File  |  1991-08-06  |  1.7 KB  |  79 lines
  1. ;
  2. ;; SlowDown for self-booting software
  3. ;;
  4. ;; BOOTSLOW
  5. ;;
  6. ;; Copyright 1991 Alexander R. Pruss
  7. ;;
  8. ;; May be freely distributed, modified and used provided that no copyright
  9. ;; messages are removed, and this sentence together with the next two are
  10. ;; always included in unmodified form.  If you like this program a lot, you are
  11. ;; invited to show your appreciation by making a tax-deductible donation to
  12. ;; the Pro-Life or Anti-Abortion movement, but are under no obligation, moral
  13. ;; or otherwise to do so (especially if you disagree with the goals of this
  14. ;; movement.)  There is no warranty; use at own risk.
  15. ;
  16.     include macros.inc
  17. c segment
  18.     assume CS:c,DS:c
  19.     mov ax,07c0h
  20.     cli
  21.     mov ss,ax
  22.     mov sp,0400h
  23.     sti
  24.     mov ds,ax
  25.     push ax
  26.     mov ax,offset continue
  27.     push ax
  28.     retf
  29.  
  30. continue:
  31.     Puts copyright
  32. tryagain:
  33.     Puts drive_q
  34. g:
  35.     Getch
  36.     or al,TOLOWER
  37.     cmp al,'a'
  38.     jb g
  39.     cmp al,'z'
  40.     ja g
  41.     sub al,'a'
  42.     mov dl,al
  43.     Clear ax
  44.     mov es,ax
  45.     Clear dh
  46.     push dx
  47.     Clear bx
  48.     mov ax,0302h
  49.     mov cx,0002h
  50.     int 13h
  51.     jc diskerror
  52.     Puts done
  53. stop: jmp stop
  54.  
  55. diskerror:
  56.     Puts i13error
  57.     jmp tryagain
  58.  
  59. _puts proc near
  60. top:
  61.     Stat cx
  62.     jz exit
  63.     lodsb
  64.     mov ah,TTYWrite
  65.     mov bx,0007h
  66.     int 10h
  67.     loop top
  68. exit:
  69.     ret
  70. _puts endp
  71.  
  72. String copyright, <'Interrupt table recorder.', CR,LF, '(C) Copyright 1991 Alexander Pruss', CR,LF>
  73. String drive_q, <'Choose physical floppy drive to save to: (A,B,etc.)', CR,LF>
  74. String i13error, <'Low level disk error.',CR,LF,'Try again, or reboot with Ctrl-Alt-Del.', CR,LF>
  75. String done, <'Saved!', CR,LF, 'Remove this disk and reboot with Ctrl-Alt-Del.', CR,LF>
  76.  
  77. c ends
  78. end
  79.