Cp/m forthen

2 posts in thread

• Sven Östberg <5246> · Text 93 · w6 · inlagg

  1985-04-07 14:16

  Ärende: Cp/m forthen

  som ligger i fortharean, har, som den itresserade nog sett ett kommando 'SAVE' som gör savesystem. Nu finns ju ett liknande kommando i operativsystemet och då kan man ju lika gärna använda det. (SAVE tar c:a 170 byte i anspråk, och SÅ ofta används det ju inte). Inlägget här beskriver hur man kan gå tillväga. I slutet av filen finns ordet >BDOS, ändra raden DW SAVE-7 till DW TRIAD-8 ( länkfältsadressen till föregående ord) Radera alla rader som omfattar ordet SAVE, från DB 84H DB 'SAV' ... ... till raden JMP NEXT alldeles ovan början av ordet >BDOS. Gå sedan till början av programkoden. Där finns sekvensen SHLD INITDP ORIG NOP JMP CLD Sätt in följande två rader så att det blir SHLD INITDP LXI H,CLD SHLD FSTRT+1 ORIG NOP Sedan kan textfilen sparas och assembleras. När man vill göra savesystem gör man så här. I Forth gör man först 'Protect dictionary' på vanligt sätt. Sedan berknar man antalet block (N) som ska sparas med hjälp av sekvensen HERE 0 256 U/ . Sätt in CP/M-skivan i driven och gör 'BYE' När CPM-promten visar sig skriv A> SAVE N SYSTEM.COM SYSTEM.COM blir då alltså den nya uppstartfilen. (Hoppas någon har nytta av det här).
  • Sven Östberg <5246> · Text 94 · w6 · kommentar

    1985-04-07 20:30

    Ärende: Cp/m forthen

    När man gjort ändringen i förra inlägget, ser man genast att initeringsrutinen som används vid uppstart (FSTART) bara används en gång (vid uppstart av original- kärnan). Vid uppstart av en andragenerations-kärna (som sparats med SAVE) används alltså inte denna rutin. Genom att lägga rutinen (FSTART - ORIG) efter forthkärnan, sparas den inte vid SAVE och man minskar kärnans omfång med ytterligare 80 byte. (Tips för den som vill tricksa).