_ u ÙS."D:DOS25DOC.BAS› L."P:›55FROM DAN WESS SNACC LIBRARIAN PH# (702)458-2035›&& DOS.25 MOD FOR 256 K XL & 800+› ( B86< LDX #0 !( B88< CMP #7 !DRIVE # 7› ( < BCS $BD3 ›!( 105C< LDA #$64!$64=100› ( 105E< CPY #7 DRIVE #7›( < BCS $1076;( 12DE< JSR $12ED;LOAD Y FROM ADR.$21= GET DRIVE #›9( 12ED< LDY $219LOAD Y FROM ADR.$21= GET DRIVE #›(#( < CPY #8#SEE IF DRIVE #8›2#( < BCC *+4#IF NOT JMP TAY›<( < ADC #5F( < TAYP6( < LDA $185B,Y6GET BANK # FRON TABLE IN 185B›Z%( < JMP $1846%DO BANK SWITCH›_( < RTS. RETURN ?›d( 148D< CMP #6n( 14C4< LDA #$70x( < JSR $1846‚LL(D 183A< .BYTE MEM.SAV ERR ,$9B REM ADD QUOTATION MARKSŒ%( 1846< STA $44%STORE BANK #›–II(A < LDA $D301 REM. GET DEFAULT # FROM XL.=$FDªII(A < LDA $DO :REM $DO=0 FIRST TIME-- FOR 800+´--(% < AND #$83 < AND #$00 FOR 800+-----¾-( < ORA $44-ORA WITH # IN $44=BANK #›ÈA1() < STA $D301 XL MOD< STA $D701 800+-----ACHANGE BANK #›ÍII(A < STA $DO :REM. STORE NEW BANK # IN ADDR. 208 800+Ò( < RTSÜ**(" --------- FOR XL MOD ------------Ý<$( 185B< .BYTE $20,$24,$28,$2C<USE 01 TO 0C FOR 800+›Þ ( < .BYTE $40,$44,$48,$4Cß7!( < .BYTE $60,$64,$68,$6C 7TABLE OF BANKS = 12›æ**(" --------- FOR 800+ MOD.----------çNN(F 185B< .BYTE $01,$02,$03,$04 :REM USE 01 TO 0C FOR 800+ è ( < .BYTE $05,$06,$07,$08éPP(H < .BYTE $09,$0A,$0B,$0C :REM TABLE OF BANKS = 12 FOR 800+ð**("----------------------------------õ( 70A< .BYTE $C3ú( 77F< CPX #7DRIVE #7›#( < BCC $78A #78A OR 7BA ?›@--(%------------END OF MOD.--------------JOO(G PRESS RETURN THEN X RET.THEN TYPE DOS,FROM DOS H TO WRITE THE NEW DOS.^--(%------------- BANK ADDRESSING -------ê--(%GET NEW BANK # FOR XL FROM 185B.TABLEï**(" BIT. 7 SELF TEST AND ROM TO RAM.ó--(%BIT#7654.3210 6 AND 5 SELECT 64K BNKô,,($$20=0100.0000 4 GENERATE XE SIGNAL.þ--(%$24=0010.0100 3 AND 2 SELECT 16K BNK**("$28=0010.1000 1 BASIC 0=ON 1=OFF--(%$2C=0010.1100 0 ROM TO 1=RAM ENABLE.( $40=0100.0000&( $44=0100.01000( $48=0100.1000:( $4C=0100.1100D( $60=0110.0000N( $64=0110.0100X( $68=0110.1000b( $6C=0110.1100²(¼33(+----------------- BUGS -------------- Æ**(" 1 YOU MUST FORMAT D# 7 TO USE IT.ÐYY(Q 2 DUP DISK WILL NOT WORK FROM D7 OR D8,WORKS FINE D1 TO D2. Ú00((----------END OF BUGS I HOPE---------- ä22(*------------ DOS CHANGES ------------- î;;(3 1 DOS. WILL LOAD ANY OBJ FILE CALLED R*.COMø;;(3 2 DOS. WILL LOAD ANY OBJ FILE CALLED A*.AR1BB(: 2 DOS. WILL  ÎÏÔ ÌÏÁÄ  ANY OBJ FILE CALLED AUTORUN.SYS >00((----------END OF FILE DAN WESS. ------ €D:DOS25DOC.BAS