Apple-2-SW/apple2_softswitch
1
0
Fork 0
mirror of https://github.com/Michaelangel007/apple2_softswitch.git synced 2025-01-22 17:31:33 +00:00
Code Issues Projects Releases Wiki Activity

Only show RAM or AUX in col RW if both are off, or both on

Browse Source
This commit is contained in:
Michaelangel007 2017-11-09 18:29:35 -08:00
parent f918f6e3fd
commit 086e8a9b91
2 changed files with 17 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
softswitch.bas
View File

@ -1,12 +1,12 @@
0 TEXT:PRINT CHR$(21):HOME:GOTO 80
1 IF AZ THEN U=AUX:V=SPC:W=SPC:REM ALT ZP
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 IF RR OR RW THEN U=SPC:REM AUX MEM
4 V=RAM:IF RR THEN V=AUX
5 W=RAM:IF RW THEN W=AUX
6 RETURN
7 IF S8 AND P2 THEN U=AUX:R=AUX:W=AUX
8 GOSUB 2:RETURN
3 Z=2*RR + RW:V=SPC:W=SPC:REM AUX MEM
4 IF Z=0 THEN U=RAM:V=SPC:W=SPC
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
8 RETURN
9 VTAB Y:HTAB 40:PRINT MID$(C$,Z,1):RETURN
10 L$="":R$="":Z$=T$(I):U=H(I):V=LEN(Z$):M$=MID$(Z$,U,1):IF S(10) THEN R$=T$(I+D):GOTO 40:REM HOTKEY
20 IF U-1 > 0 THEN L$=LEFT$ (Z$,U-1)
@ -64,15 +64,15 @@
580 IF Z=7 THEN U=SPC:V=RU1:W=ROM
590 GOSUB 2
600 REM *** LOWER 48K
610 Y= 7:U=RAM:V=SPC:W=SPC:GOSUB 3:GOSUB 2:REM $BFFF
620 Y= 9:U=RAM:V=SPC:W=SPC:GOSUB 3:GOSUB 2:REM $4000
630 Y=11:U=RAM:V=SPC:W=SPC:GOSUB 3:GOSUB 7:REM $2000
640 Y=13:U=RAM:V=SPC:W=SPC:GOSUB 3:GOSUB 2:REM $0C00
650 Y=15:U=RAM:V=SPC:W=SPC:GOSUB 3:GOSUB 2:REM $0800
660 Y=17:U=RAM:V=SPC:W=SPC:GOSUB 3:GOSUB 7:REM $0400
670 Y=19:U=RAM:V=SPC:W=SPC:GOSUB 3:GOSUB 2:REM $0200
680 Y=21:U=RAM:V=RAM:W=RAM:GOSUB 1:REM $0000
690 VTAB 1
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
680 Y=21:U=RAM:IF AZ THEN U=AUX:REM $0000
690 V=SPC:W=SPC:GOSUB 2: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

BIN
softswitch.po
View File

Binary file not shown.