Labels:text | screenshot | display | software | number | font | parallel OCR: EDBG, The E Debugger! @ 1994 Wouter Source View Regist IF ReadSecs 1.0 (c) 22.01. 1995 Rafal Wiosna D0=$0000002C D1=$0000002C To jest bardzo prosty program demonstrujący uzycie D2=$0 12A8B 18 D3=$0000009F trackdisk. device -- ReadSecs czyta sektory i zapisuje je do pliku. Można to zrobić inaczej (szczególnie nie D4=$00000019 należałoby zabierać pamięci na cały czytany obszar D5=$0048C949 D6=$012A8B 18 1010101 D7=$0000000D 0101010 1010101 przykład! (wystarczy jedna ścieżka = 11 sektorów), ale to tylko 0101010 Acha, wszelkie teksty są po angielsku, ale nie znaczy to, AO=$0 127659C ze nie jestem jego autorem! !! H1=$01276564 H2=$0 1299A2A I jeszcze coś -- wersja 3.x E oferuje nowy sposób A3=$0000009F A4=$0 12AB220 wprowadzania komentarzy, jak to widać w załączonym A5=$0 12AB000 tym przydługim tekście wprowadzającym ... A6=$0 100F9AC A7=$0 12AAFDC MODULE 'exec/to', 'exec/ports', 'devices/trackdisk', 'dos/dos' PC=$01298EA4 ST=$0000 ENUM OK, ERRNOMEM, ERRDEVOPN, ERRTDREAD, ERRNODISK, ERRNOPORT, ERRNOREQ, ERRBADA ENUM ARGUNIT, ARGSTART, ARGEND, ARGFILE RAISE ERRNOMEM IF New()=NIL CONST MOTOR_OFF=0, MOTOR_ON=1 DEF trdiorequest :PTR TO iostd, myport, myargs: PTR TO LONG, rdargs, fh PROC main() HANDLE DEF trmem WriteF ('\e[ imReadSeos\e[Om 1.0 (c) 1995 Rafal Wiosna. \n') startup@ trmem : = readsectors (Long(myargs [HRGSTART]), Long(myargs [HRGEND])) savemem(trmem, << Long(myargs [ARGEND])-Long(myargs[ARGSTART])+1)*TD_SECTOR>, myar WriteF('Image written to file \s\n', myargs [ARGFILE]) EXCEPT DO Tempo cleanup() IF exception SELECT exception CASE ERRNOMEM; WriteF ('Cannot allocate needed memory') CASE ERRDEVOPN; WriteF ('Cannot open trackdisk. device unit 0') CASE ERRTDREAD WriteF ('failed'\nDoIO() returned error ') tderrorhandle(exceptioninfo)
(.png)
