þþ…È2…DINITQ> ;;TimeoutÉ2 P†DSKTIMÊ2Q>€;;Sektorl{nge 128 ByteË2 P†DSCTLNÌ2Q>Í2P†DSCTLNÎ2:Ï2…DSKIFQ>1;;Disk InterfaceÐ2P†DDEVIC;;Ger{tekennungÑ2 Q†DSKTIMÒ2 $†DCOMNDÓ2(> !;;Formatieren ?Ô2F†PUTDTO;;Ja ->Õ2Q>;;Nein, Timeout 7sÖ2$†PUTDTOP†DTIMLO;;PUT Disk TimeOut×2$>@;;SIO: LesenØ2 Q†DCOMNDÙ2R> P;;Put (Ohne Verify) ?Ú2F†PUTDTA;;Ja ->Û2R> W;;Write (Mit Verify) ?Ü2H…CKSTC;;Nein ->Ý2†PUTDTA$>€;;SIO: SchreibenÞ2 …CKSTCR> S;;Status Kommando ?ß2H†PUTCNT;;Nein ->à2!Q>4†DVSTAT;;Statuspuffer $02EAá2 P†DBUFLOâ2 Q>5†DVSTATã2 P†DBUFHIä2!%>;;Statuspufferl{nge 4 Byteå2Q>æ2F†CKSTC1;;Unbedingtç2&†PUTCNT%†DSCTLN;;Sektorl{nge im RAMè2Q†DSCTLNé2!†CKSTC1&†DSTATS;;Datenrichtungê2'†DBYTLO;;Pufferl{ngeë2 P†DBYTHIì2 „SIOV;;Serielle Ein-/Ausgabeí2I†GOODST;;ok ->î2:;;Fehler & Endeï2†GOODSTQ†DCOMNDð2%R> S;;War es das Status-Kommando ?ñ2H…PUTBC;;Nein ->ò2% †PUTADR;;Pufferadresse in Seite 0ó2%>ô2!Q@†BUFADR7;;Timeout der Floppyõ2 P†DSKTIMö2…PUTBCQ†DCOMND÷2R> !;;Formatieren ?ø2H†ENDDIF;;Nein ->ù2% †PUTADR;;Pufferadresse in Seite 0ú2%>þû2 …TWICE3ü23ý2,…RDBADQ@†BUFADR7;;LO-Byte Bad Sektor Dataþ2R>ÿÿ2H…TWICE;;<>$FF ->333&Q@†BUFADR7;;HI-Byte Bad Sektor Data333R>ÿ3H…RDBAD;;<>$FF ->31313+'†DBYTLO;;Zeiger auf fehlerhaften Sektor3Q>;;in den DCB 3 P†DBYTHI 3†ENDDIF%†DSTATS 3: 3!†PUTADRQ†DBUFLO;;($15)=($0304) 3 P†BUFADR3 Q†DBUFHI3P†BUFADR3:3 A†LoaderA