10 ;=====================›15 ;--** SIO equates **--›20 ;=====================›25 DUNIT =   $0301›30 DCOMND =  $0302›35 DSTATS =  $0303›40 DBUFLO =  $0304›45 DBUFHI =  $0305›50 DTIMLO =  $0306›55 DBYTLO =  $0308›60 DBYTHI =  $0309›65 DAUX1 =   $030A›70 DAUX2 =   $030B›75 SIOV  =   $E459›80 RUNAD =   $02E0›85 INITAD =  $02E2›90 HAPPY =   1       ;FIRST HAPPY›95 ;=====================›0100 ;›0105     *=  $6000›0110 ;›0115     RTS         ;FOR SPARTA!›0120 ;›0125 START›0130     LDX #0      ;SET-UP DCB›0135     STX DSTATS›0140     STX DBYTHI›0145     STX DBUFHI›0150     STX DAUX2›0155 ;›0160     INX ›0165     STX DTIMLO›0170     STX DBYTLO›0175     STX DBUFLO›0180 ;›0185     LDA #$20›0190     STA DAUX1›0195 ;›0200     LDA #$48    ;SET HAPPY (H)›0205     STA DCOMND  ;FAST-WRITE!›0210 ;›0215 SEND›0220     LDA #HAPPY  ;FIRST HAPPY›0225     STA DUNIT   ;DRIVE (D1:)›0230     JSR SIOV›0235 ;›0240     BMI PAU     ;END ON ERROR!›0245 ;›0250     INC SEND+1  ;LOOP FOR NEXT›0255     BNE SEND    ;DRIVE (D2:)...›0260 ;›0265 PAU RTS         ;THE END!›0270 ;›0275     *=  INITAD  ;AUTO RUN ADDR›0280     .WORD START›0285     .END ›0290 ;===============================›0295 ;›0300 ;This file will set the HAPPY›0305 ;to FAST-WRITE (US-EMU) for use›0310 ;with SpartaDOS!  It sets all›0315 ;contiguous drives starting from›0320 ;D1: to fast-write!›0325 ;›0330 ;It should work for Rev.7›0335 ;and higher HAPPY drives!›0340 ;›0345 ;(I'm not sure if it will work›0350 ;with the older Rev.1 1050 ROM)›0355 ;›0360 ;Set it up as a *.COM file on›0365 ;your SpartaDOS disks and call›0370 ;it as part of the STARTUP.BAT›0375 ;file, or name it AUTORUN.SYS!›0380 ;›0385 ;It will work with any DOS, but›0390 ;it only sets the fast-buffered›0395 ;write, NOT the high-speed SIO!›0400 ;(See HAPPYX.ARC file for ULTRA-›0405 ;SPEED SIO with most other DOS!)›0410 ;›0415 ;You may assemble this with the›0420 ;MAC/65 by OSS - or the ATARI›0425 ;ASSEMBLER/EDITOR cartridge.›0430 ;›0435 ;NOTE: You must ENTER it to the›0440 ;editor (ENTER#D1:filename.ext)!›0445 ;›0450 ;If you are not using a HAPPY as›0455 ;drive-1 (D1:), set HAPPY to the›0460 ;drive number of the FIRST HAPPY›0465 ;drive in your system and re-›0470 ;assemble!›0475 ;›0480 ;This file saves you the trouble›0485 ;of booting the HAPPY disk and›0490 ;manually setting US-EMU mode,›0495 ;then re-booting with SpartaDOS!›0500 ;›0505 ;That's it, for now!›0510 ;›0515 ;Aloha, from the HAPPY Hacker!›0520 ;Tim Patrick, CIS #[73167,2611]›0525 ;›0530 ;ASM,,#D2:USHAPPY.OBJ›0535 ;LIST #D2:USHAPPY.ASM›ccccccccccccccccccccccccccccc