diff --git a/pics/screenshot_addr.png b/pics/screenshot_addr.png index cd8a5ef..74c998a 100644 Binary files a/pics/screenshot_addr.png and b/pics/screenshot_addr.png differ diff --git a/pics/screenshot_desr.png b/pics/screenshot_desr.png index 1f715d4..5e96e38 100644 Binary files a/pics/screenshot_desr.png and b/pics/screenshot_desr.png differ diff --git a/softswitch.bas b/softswitch.bas index 3a7a7ee..fcbeef1 100644 --- a/softswitch.bas +++ b/softswitch.bas @@ -1,8 +1,8 @@ -0 TEXT:PRINT CHR$(21):HOME:GOTO 80:REM VER MP.3 -1 IF S8 AND P2 THEN U=AUX:V=SPC:W=SPC -2 VTAB Y:HTAB 7:? B$(U);:HTAB 18:? B$(V);:HTAB 29:? B$(W);:RETURN:REM COLS RW/R/W -3 Z=2*RR + RW:V=SPC:W=SPC:REM AUX MEM -4 IF Z=0 THEN U=RAM:V=SPC:W=SPC +0 TEXT:PRINT CHR$(21):HOME:PRINT "v4":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 +4 Z=2*RR + RW:V=SPC:W=SPC:IF Z=0 THEN U=RAM:V=SPC:W=SPC:REM AUX MEM 5 IF Z=1 THEN U=SPC:V=RAM:W=AUX 6 IF Z=2 THEN U=SPC:V=AUX:W=RAM 7 IF Z=3 THEN U=AUX:V=SPC:W=SPC @@ -52,7 +52,7 @@ 420 IF X=1 THEN U=ROM:V=SPC:W=SPC 430 IF X=2 THEN U=RLC:V=SPC:W=SPC 440 IF X=3 THEN U=SPC:V=RLC:W=ROM -450 GOSUB 2 +450 GOSUB 3 500 Y=4:REM *** $D000 510 IF Z=0 THEN U=SPC:V=ROM:W=RV2 520 IF Z=1 THEN U=SPC:V=ROM:W=RU1 @@ -62,17 +62,17 @@ 560 IF Z=5 THEN U=RU1:V=SPC:W=SPC 570 IF Z=6 THEN U=SPC:V=RV2:W=ROM 580 IF Z=7 THEN U=SPC:V=RU1:W=ROM -590 GOSUB 2 +590 GOSUB 3 600 REM *** LOWER 48K -610 Y= 7:U=RAM:GOSUB 3:GOSUB 2:REM $BFFF -620 Y= 9:U=RAM:GOSUB 3:GOSUB 2:REM $4000 -630 Y=11:U=RAM:GOSUB 3:GOSUB 1:REM $2000 -640 Y=13:U=RAM:GOSUB 3:GOSUB 2:REM $0C00 -650 Y=15:U=RAM:GOSUB 3:GOSUB 2:REM $0800 -660 Y=17:U=RAM:GOSUB 3:GOSUB 1:REM $0400 -670 Y=19:U=RAM:GOSUB 3:GOSUB 2:REM $0200 +610 Y= 7:U=RAM:GOSUB 4:GOSUB 3:REM $BFFF +620 Y= 9:U=RAM:GOSUB 4:GOSUB 3:REM $4000 +630 Y=11:U=RAM:GOSUB 4:GOSUB 1:REM $2000 +640 Y=13:U=RAM:GOSUB 4:GOSUB 3:REM $0C00 +650 Y=15:U=RAM:GOSUB 4:GOSUB 3:REM $0800 +660 Y=17:U=RAM:GOSUB 4:GOSUB 1:REM $0400 +670 Y=19:U=RAM:GOSUB 4:GOSUB 3:REM $0200 680 Y=21:U=RAM:IF AZ THEN U=AUX:REM $0000 -690 V=SPC:W=SPC:GOSUB 2:VTAB 1 +690 V=SPC:W=SPC:GOSUB 3:VTAB 1 700 K=PEEK(49152):IF K<128 THEN 700 710 K=K-128:POKE 49168,0:IF K = 27 THEN VTAB 1:END 720 CMD=0:FOR I=1 TO D:IF K = K(I) THEN CMD=I:I=D:GOTO 740 @@ -110,19 +110,19 @@ 1060 DATA "$D000",1 1070 DATA " ",3 1080 DATA "$BFFF",0 -1090 DATA " ",1 -1100 DATA "$5FFF",0 +1090 DATA "$6000",1 +1100 DATA " ",0 1110 DATA "$4000",1 -1120 DATA "$3FFF",0 +1120 DATA " ",0 1130 DATA "$2000",1 1140 DATA " ",0 1150 DATA "$0C00",1 -1160 DATA "$0BFF",0 +1160 DATA " ",0 1170 DATA "$0800",1 -1180 DATA "$07FF",0 +1180 DATA " ",0 1190 DATA "$0400",1 1200 DATA " ",0 1210 DATA "$0200",1 -1220 DATA "$01FF",0 +1220 DATA " ",0 1230 DATA "$0000",1 diff --git a/softswitch.po b/softswitch.po index 85939a2..880b583 100644 Binary files a/softswitch.po and b/softswitch.po differ