mirror of
https://github.com/Michaelangel007/apple2_softswitch.git
synced 2024-12-11 17:51:01 +00:00
v5: Fix Aux LC display
This commit is contained in:
parent
91b4ed477b
commit
2f6728614c
@ -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=:__:
|
||||
|
Loading…
Reference in New Issue
Block a user