diff --git a/softswitch.bas b/softswitch.bas index fcbeef1..ca60117 100644 --- a/softswitch.bas +++ b/softswitch.bas @@ -1,4 +1,4 @@ -0 TEXT:PRINT CHR$(21):HOME:PRINT "v4":GOTO 80 +0 TEXT:PRINT CHR$(21):HOME:PRINT "v5":GOTO 80 1 IF S8 AND P2=0 THEN U=RAM:V=SPC:W=SPC 2 IF S8 AND P2=1 THEN U=AUX:V=SPC:W=SPC 3 VTAB Y:HTAB 7:? B$(U);:HTAB 18:? B$(V);:HTAB 29:? B$(W);:RETURN:REM COLS RW/R/W @@ -16,11 +16,11 @@ 60 IF I<>5 AND I<>10 THEN PRINT " "; 70 RETURN 80 SPC=1:AUX=5:RAM=8:ROM=9:RU1=10:RV2=11:RLC=12 -90 COL=5:D=COL*2:N=COL*3:M=21:DIM K(D),T$(D*2),H(D),S(D),B$(13),A$(M),U(M) +90 COL=5:D=COL*2:N=COL*3:M=21:B=13:DIM K(D),T$(D*2),H(D),S(D),B$(B+1),A$(M),U(M) 100 REM *** STATUS LINE 110 FOR I=1 TO D:READ KEY$,T$(I),H(I):K(I)=ASC(KEY$):NEXT:FOR I=1 TO D:READ T$(I+D):NEXT 120 REM *** BANKS -130 FOR I=0 TO 12:READ B$(I):NEXT +130 FOR I=0 TO B:READ B$(I):NEXT 140 REM *** MEMORY 150 VTAB 1:HTAB 7: ? "____RW____ ___READ___ __WRITE___" 160 FOR I=1 TO M:READ A$(I),U(I):T=U(I)+1 @@ -50,7 +50,7 @@ 400 Y=2:Z=HR*4 + HW*2 + B1:X=INT(Z/2):REM *** $E000 410 IF X=0 THEN U=SPC:V=ROM:W=RLC 420 IF X=1 THEN U=ROM:V=SPC:W=SPC -430 IF X=2 THEN U=RLC:V=SPC:W=SPC +430 IF X=2 THEN U=RLC:V=SPC:W=SPC:IF AZ THEN U=U+1 440 IF X=3 THEN U=SPC:V=RLC:W=ROM 450 GOSUB 3 500 Y=4:REM *** $D000 @@ -58,8 +58,8 @@ 520 IF Z=1 THEN U=SPC:V=ROM:W=RU1 530 IF Z=2 THEN U=ROM:V=SPC:W=SPC 540 IF Z=3 THEN U=ROM:V=SPC:W=SPC -550 IF Z=4 THEN U=RV2:V=SPC:W=SPC -560 IF Z=5 THEN U=RU1:V=SPC:W=SPC +550 IF Z=4 THEN U=RV2:V=SPC:W=SPC:IF AZ THEN U=U-4 +560 IF Z=5 THEN U=RU1:V=SPC:W=SPC:IF AZ THEN U=U-4 570 IF Z=6 THEN U=SPC:V=RV2:W=ROM 580 IF Z=7 THEN U=SPC:V=RU1:W=ROM 590 GOSUB 3 @@ -88,19 +88,20 @@ 830 DATA "C054","C002 ","C008 ","C080 ","C088" 840 DATA "C050","C004 ","C000 ","C081 "," " 850 REM *** BANK -860 DATA " *" -870 DATA " " -880 DATA "__________" -890 DATA " " -900 DATA "__________" -910 DATA " AUX " -920 DATA " AUX B1 " -930 DATA " AUX B2 " -940 DATA " RAM " -950 DATA " ROM " -960 DATA " RAM B1 " -970 DATA " RAM B2 " -980 DATA " RAM L/C " +860 DATA " *" :REM B$(0) +870 DATA " ":REM B$(1) SPC +880 DATA "__________":REM B$(2) +890 DATA " ":REM B$(3) +900 DATA "__________":REM B$(4) +910 DATA " AUX ":REM B$(5) +920 DATA " AUX B1 ":REM B$(6) +930 DATA " AUX B2 ":REM B$(7) +940 DATA " RAM ":REM B$(8) RAM +950 DATA " ROM ":REM B$(9) ROM +960 DATA " RAM B1 ":REM B$(10 RU1 +970 DATA " RAM B2 ":REM B$(11 RV2 +980 DATA " RAM L/C ":REM B$(12) RLC +990 DATA " AUX L/C ":REM B$(13) 1000 REM *** LINES = ADDRESS,UNDERLINE 1010 REM 0=| | 1=|__| 1020 REM 2=: : 3=:__: