Procedura dekoduj⇧ca wiersz z lbuff na posta⇨ strawn⇧ dla handlerw. To¢ znaczy traktuje ona parametr z lbuff wskazywany bufoff jako nazw❎ pliku.¢ W wyniku daje nazw❎ urz⇧dzenia (gdy nie by o podane jest to nazwa domy③lna z¢ CURDEV), nazw❎ ③cierzki i pliku w confnam o d ugo③ci w trails. Dla urz⇧dze¢ nie znanych (o numerach 6 i 7 z device) nazw⇧ jest X. BUFOFF ustawiony jest¢ na nast❎pny parametr przy czym przecinek nie jest rozpoznawany jako separator¢ parametrw. Nie istnienie parametru sygnalizowane jest poprzez bit Z=1 w F.¢¢ org $B9F8 CRUNCH parameter to file name.¢¢ device equ $761¢ path equ $7A0¢ bufoff equ $A62¢ tralis equ $A72¢ confnam equ $A79¢ lbuff equ $A97¢ cionbuf equ $B17¢¢ jmisc equ $709¢¢ _CRUNCH ldy bufoff Na pocz⇧tku procedura pobiera wska♪nik do parametru.¢¢ eB9FE lda lbuff,y Nast❎pnie szuka tego parametru pomijaj⇧c spacj❎.¢ cmp #' '¢ bne eBA08¢ iny¢ bne eB9FE¢¢ eBA08 ldx #$00¢ eBA0A lda lbuff,y Teraz procedura przepisuje parametr do pomocniczego¢ sta cionbuf,x bufora.¢ cmp #$9B¢ beq eBA1E Znakiem koca parametru moəe by⇨ EOL lub spacja.¢ cmp #' '¢ beq eBA1E¢ iny¢ inx¢ cpx #$40¢ bne eBA0A¢¢ eBA1E sty bufoff Na kocu tego etapu procedura ustawia nowy BUFOFF.¢ lda #$02 Teraz wywo ywana jest funkcja systemu kopiuj⇧ca¢ jsr jmisc parametr do zmiennych DEVICE i PATH.¢¢ lda device Nast❎pnie procedura ustala numer urz⇧dzenia¢ pha¢ and #$0F¢ ora #$30¢ sta confnam+1¢ lda #':'¢ sta confnam+2 i dwukropek w confnam.¢ pla¢ lsr @ Teraz okre③la literow⇧ nazw❎ urz⇧dzenia wed ug jego¢ lsr @ numeru.¢ lsr @¢ lsr @¢ tax¢ lda ciodevn,x¢ sta confnam¢¢ ldx #$03¢ eBA44 lda path-3,x Nast❎pnie procedura przepisuje nazw❎ ③cieəki i pliku¢ beq eBA4F do confnam.¢ sta confnam,x¢ inx¢ bne eBA44¢¢ eBA4F lda #$9B Na koniec ustala znak EOL,¢ sta confnam,x¢ stx trails d ugo③⇨ nazwy w trails i bit Z w F.¢ cpx #$03¢ rts¢¢ ciodevn dta c'DDDEPRXX' Tablica nazw urz⇧dze.¢¢ end of doc.¢
