ld e,0\r
ld c,'I'-'A'\r
call seldsk\r
- jp z,boot1\r
+ jp z,boot1 ;no ram disk\r
\r
call getdpb ;de = dpb of first ram disk\r
\r
ld a,e ;reselection bit\r
rrca\r
jp c,getdph ;skip, if disk already active\r
- in a,(15) ;querry, if disk exists\r
ld hl,0\r
+ in a,(15) ;querry, if disk exists\r
or a\r
- jp z,getdph\r
- xor a\r
- ret\r
+ ret z\r
getdph:\r
ld hl,drvtbl\r
ld b,0\r