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 / ENTERPRS / CPM / UTILS / A / ARC20.ARC / ARCMACS.ARC / CLINE127.MAC < prev    next >
Text File  |  1989-10-17  |  587b  |  24 lines
  1. ; 127-Char Commandline-Patch fuer Turbo-3.0
  2. ; 300889 Tilmann Reh
  3.     .z80
  4.  
  5. patch:    ld    sp,100h        ; vorlaeufiger Stack wie Original
  6.     ld    hl,pstr
  7.     ld    (1F9Eh),hl    ; Param-Zeiger auf Puffer setzen
  8.     ld    a,7Fh
  9.     ld    (1FA1h),a
  10.     ld    (1FA7h),a    ; Begrenzung auf 31 Zeichen --> 127
  11.     ld    hl,2654h
  12.     ld    (1FD7h),hl
  13.     xor    a
  14.     ld    (1FD9h),a    ; Patch weil nicht mehr Zero-Page
  15.     ld    hl,80h
  16.     ld    de,pstr
  17.     ld    bc,128
  18.     ldir            ; gesamten Parameterstring kopieren
  19.     jp    20E5h        ; weiter in Turbo-Initialisierung
  20. pstr:    defs    128        ; 128 Zeichen Puffer im Code-Bereich
  21.                 ; muss innerhalb einer Page liegen!
  22.  
  23.     end
  24.