home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / cpm / utils / a / arc20.arc / CLINE127.INC < prev   
Encoding:
Text File  |  1989-11-11  |  1.3 KB  |  25 lines
  1. (* CLINE127.INC  TR 300889 *)
  2.  
  3. (* NUR FUER TURBO-3.00!!! ABSOLUTE ADRESSIERUNG! CODE NICHT AENDERN!  *)
  4. (* Universelles Modul fuer Turbo-3.00. Muss unbedingt als erstes      *)
  5. (* Programmcode-Modul im Quelltext stehen! Am besten direkt hinter    *)
  6. (* "PROGRAM xyz;" einfuegen, dann kann nichts passieren.              *)
  7.  
  8. (* Folgende Prozedur verlaengert die nutzbare CP/M-Kommandozeile auf  *)
  9. (* volle 127 Zeichen. Wird dadurch aktiv, dass im fertigen COM-File   *)
  10. (* wie folgt gepatcht wird: 20E2: 31 00 01 wird zu 20E2: C3 FF 20.    *)
  11. (* Ohne Patchen steht die normale 32-Zeichen-Zeile zur Verfuegung.    *)
  12. (* Zur Beachtung: Datenbereich muss vollstaendig in einer Page sein!  *)
  13. (* Alles Mist, ich weiss, aber es geht wirklich nicht anders!         *)
  14. (* Tilmann Reh, 5900 Siegen, 30. August 1989.                         *)
  15.  
  16. procedure Change_Commandline_To_Internal_String;
  17. begin
  18.   inline($31/$00/$01/$21/*+37/$22/$9E/$1F/$3E/$7F/$32/$A1/$1F/$32/$A7/$1F/
  19.   $21/$54/$26/$22/$D7/$1F/$AF/$32/$D9/$1F/$21/$80/$00/$11/*+10/$01/$80/$00/
  20.   $ED/$B0/$C3/$E5/$20/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/
  21.   0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/
  22.   0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/
  23.   0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0/0);
  24.   end;
  25.