Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-11-20 03:35:24 +00:00
Code Issues Projects Releases Wiki Activity

sa: enable 80 column mode on ed

Browse Source
This commit is contained in:
Vince Weaver 2018-06-05 09:48:06 -04:00
parent 137d387d3f
commit bde01744c8
4 changed files with 74 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
still_alive/sa_ed.s
View File

@ -8,13 +8,35 @@ still_alive_ed:
sta FRAME_COUNT
;===========================
; clear both screens
;===========================
; lda FORTYCOL
; bne only_forty_ed
;switch_to_80_ed:
; Initialize 80 column firmware
; jsr $C300 ; same as PR#3
; sta SET80COL ; 80store C001
; makes pageflip switch between
; regular/aux memory
;only_forty_ed:
; Clear text page0
; jsr HOME
;============================
; Draw Lineart around edges
;============================
jsr setup_edges
; jsr setup_edges
jsr HOME
; jsr HOME
;==============================
; Setup lyrics

18
still_alive/sa_mb.s
View File

@ -81,31 +81,31 @@ mockingboard_found:
; clear both screens
;===========================
lda FORTYCOL
bne only_forty
; lda FORTYCOL
; bne only_forty
switch_to_80:
;switch_to_80:
; Initialize 80 column firmware
jsr $C300 ; same as PR#3
sta SET80COL ; 80store C001
; jsr $C300 ; same as PR#3
; sta SET80COL ; 80store C001
; makes pageflip switch between
; regular/aux memory
only_forty:
;only_forty:
; Clear text page0
jsr HOME
; jsr HOME
;============================
; Draw Lineart around edges
;============================
jsr setup_edges
; jsr setup_edges
jsr HOME
; jsr HOME
;==============================
; Setup lyrics

31
still_alive/still_alive.s
View File

@ -18,8 +18,39 @@ still_alive:
lda #>(lyrics)
sta LYRICSH
;===========================
; setup text screens
;===========================
lda FORTYCOL
bne only_forty
switch_to_80:
; Initialize 80 column firmware
jsr $C300 ; same as PR#3
sta SET80COL ; 80store C001
; makes pageflip switch between
; regular/aux memory
only_forty:
; Clear text page0
jsr HOME
;============================
; Draw Lineart around edges
;============================
jsr setup_edges
jsr HOME
;=====================================
; See if Mockingboard or Electric Duet
;=====================================
lda USEMB
beq no_mockingboard

18
still_alive/title.bas
View File

@ -17,12 +17,14 @@
85 PRINT " PLEASE SELECT:"
90 PRINT " 1. 80 COLUMN + MOCKINGBOARD"
92 PRINT " 2. 40 COLUMN + MOCKINGBOARD"
94 PRINT " 3. 40 COLUMN + SPEAKER"
95 PRINT " ----> ";
94 PRINT " 3. 80 COLUMN + SPEAKER"
96 PRINT " 4. 40 COLUMN + SPEAKER"
98 PRINT " ----> ";
100 INPUT A
105 IF A<1 OR A>3 THEN PRINT CHR$(7): GOTO 95
110 ON A GOTO 120,130,140
120 POKE 768,0:POKE 769,1:GOTO 150
130 POKE 768,1:POKE 769,1:GOTO 150
140 POKE 768,1:POKE 769,0
150 PRINT CHR$(4);"BRUN STILL_ALIVE"
105 IF A<1 OR A>4 THEN PRINT CHR$(7): GOTO 95
110 ON A GOTO 120,130,140,150
120 POKE 768,0:POKE 769,1:GOTO 160
130 POKE 768,1:POKE 769,1:GOTO 160
140 POKE 768,0:POKE 769,0:GOTO 160
150 POKE 768,1:POKE 769,0
160 PRINT CHR$(4);"BRUN STILL_ALIVE"