diff --git a/Tools/ApolloFloppy/1.2/Tools/ApolloFloppy b/Tools/ApolloFloppy/1.2/Tools/ApolloFloppy new file mode 100644 index 0000000..b0ee8e6 --- /dev/null +++ b/Tools/ApolloFloppy/1.2/Tools/ApolloFloppy @@ -0,0 +1,48 @@ +;ApolloBoot ApolloFloppy +;9-3-2023 + +If NOT $ABHOSTSERIES EQ "V4-SA" + RequestChoice >NIL: "ApolloFloppy" "*nApolloFloppy is only supported on V4 Stand Alone*n" "Understood" + Quit +Endif + +RequestChoice >ENV:DISKS "ApolloFloppy" "*nSelect Number of Disks*n" "1|2|Cancel" + +If NOT $DISKS EQ "0" + + RequestChoice >ENV:CHOICE "ApolloFloppy" "*nSelect Display Mode*n" "PAL|NTSC" + ApolloControl >NIL: DM=$CHOICE + + RequestChoice >ENV:CHOICE "ApolloFloppy" "*nSelect Zoom Mode*n" "320x200|320x240|320x256|NoZoom" + ApolloControl >NIL: ZO=$CHOICE + + RequestChoice >ENV:CHOICE "ApolloFloppy" "*nSelect Scanlines*n" "ON|OFF" + ApolloControl >NIL: SC=$CHOICE + + If $DISKS EQ "1" + RequestFile >ENV:FLOPPY SD0: PATTERN=#? NOICONS + If NOT WARN + C:ApolloFloppy unit 0 eject + C:ApolloFloppy unit 0 $FLOPPY + Reboot >NIL: + Endif + Endif + + If $DISKS EQ "2" + RequestFile >ENV:FLOPPYA SD0: PATTERN=#? + If NOT WARN + PathPart DIR=$FLOPPYA >ENV:FLOPPYDIR + RequestFile >ENV:FLOPPYB $FLOPPYDIR PATTERN=#? FILE="" + If NOT WARN + C:ApolloFloppy unit 0 eject + C:ApolloFloppy unit 0 $FLOPPYA + ApolloControl TU=0 + C:ApolloFloppy unit 1 eject + C:ApolloFloppy unit 1 $FLOPPYB + Reboot >NIL: + Endif + Endif + Endif + +Endif + diff --git a/Tools/ApolloFloppy/1.2/Tools/ApolloFloppy.info b/Tools/ApolloFloppy/1.2/Tools/ApolloFloppy.info new file mode 100644 index 0000000..1b43ba3 Binary files /dev/null and b/Tools/ApolloFloppy/1.2/Tools/ApolloFloppy.info differ