Apple-2-SW
/
apple2_softswitch
mirror of https://github.com/Michaelangel007/apple2_softswitch.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

v4; show version, fix 80STORE HGR1/TEXT1

This commit is contained in:
Michaelangel007 2017-11-09 19:37:43 -08:00
parent 086e8a9b91
commit b56cc354ec
4 changed files with 21 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
pics/screenshot_addr.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 10 KiB

After

Width:  |  Height:  |  Size: 9.9 KiB

BIN
pics/screenshot_desr.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 10 KiB

After

Width:  |  Height:  |  Size: 9.9 KiB

42
softswitch.bas
View File

@ -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

BIN
softswitch.po
View File

Binary file not shown.