20 lines
524 B
ArmAsm
20 lines
524 B
ArmAsm
|
|
select_device:
|
|
|
|
// Take last device number, make sure it's a drive - 8 or above. Above 30,
|
|
// although illegal for IEC we also consider a drive, as they exists
|
|
// drivers assigning these numbers to CBM-DOS capable devices - like some
|
|
// IEEE-488 carts.
|
|
//
|
|
// If current device is not a drive, set device to 8 (first drive number)
|
|
// Device number is left in X, for SETFLS Kernal routine
|
|
|
|
// Note: if tape support is introduced here, make sure DOS wedge won't get broken
|
|
|
|
ldx FA
|
|
cpx #$08
|
|
bcs !+
|
|
ldx #$08
|
|
!:
|
|
rts
|