Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2025-08-15 08:27:29 +00:00
Code Issues Projects Releases Wiki Activity

Reformatting code.

Browse Source
This commit is contained in:
Bobbi Webber-Manners
2022-12-26 22:29:29 -05:00
parent d2f2475212
commit 1a2d98bec4
2 changed files with 62 additions and 67 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

129
auxmem.shr.s
View File

@@ -341,73 +341,68 @@ SHRNEXTROW LDA VDUADDR+0 ; Add 160 to VDUADDR
* Copy text line A+1 to line A * Copy text line A+1 to line A
* Note: Code for this courtesy Kent Dickey * Note: Code for this courtesy Kent Dickey
* TODO: This is only for 640 mode at present * TODO: This is only for 640 mode at present
SHRSCR1LINE SHRSCR1LINE PHY
; acc=line to scroll (0-24) PHX
; nead to calc acc * $500. Could use a table, but this is about as fast STA VDUADDR+1
phy STZ VDUADDR
phx PHP
sta VDUADDR+1 SEI
stz VDUADDR CLC
php XCE
sei PHB
clc REP #$31 ; M,X 16 bit, carry clear
xce MX %00 ; Tell Merlin
phb LDA VDUADDR
rep #$31 ; M,X 16 bit, carry clear ASL
MX %00 ; Tell Merlin ASL
lda VDUADDR ADC VDUADDR
asl STA VDUADDR ; VDUADDR = line * $500
asl LDA TXTWINLFT
adc VDUADDR ASL
sta VDUADDR ;; VDUADDR = line * $500 AND #$00ff
lda TXTWINLFT ADC VDUADDR
asl STA VDUADDR ; VDUADDR = Minimum position
and #$00ff SEP #$21 ; M 8 bit, X 16 bit, carry set
adc VDUADDR MX %10 ; Tell Merlin
sta VDUADDR ; VDUADDR = Minimum position LDA TXTWINRGT
sep #$21 ; M 8 bit, X 16 bit, carry set SBC TXTWINLFT
MX %10 ; Tell Merlin REP #$31 ; M,X 16 bit, carry clear
lda TXTWINRGT MX %00 ; Tell Merlin
sbc TXTWINLFT ASL
rep #$31 ; M,X 16 bit, carry clear AND #$00ff
MX %00 ; Tell Merlin ADC VDUADDR
asl TAX
and #$00ff PEA #$e1e1
adc VDUADDR PLB
tax PLB
pea #$e1e1 :LOOP1 LDA $2500,x ; 2 bytes, row 0
plb STA $2000,x
plb LDA $25a0,x ; row 1
:loop1 STA $20a0,x
lda $2500,x ;; 2 bytes, row 0 LDA $2640,x ; row 2
sta $2000,x STA $2140,x
lda $25a0,x ; row 1 LDA $26e0,x ; row 3
sta $20a0,x STA $21e0,x
lda $2640,x ; row 2 LDA $2780,x ; row 4
sta $2140,x STA $2280,x
lda $26e0,x ; row 3 LDA $2820,x ; row 5
sta $21e0,x STA $2320,x
lda $2780,x ; row 4 LDA $28c0,x ; row 6
sta $2280,x STA $23c0,x
lda $2820,x ; row 5 LDA $2960,x ; row 7
sta $2320,x STa $2460,x
lda $28c0,x ; row 6 DEX
sta $23c0,x DEX
lda $2960,x ; row 7 BMI :DONE
sta $2460,x CPX VDUADDR
dex BCS :LOOP1
dex :DONE PLB
bmi :done SEC
cpx VDUADDR XCE
bcs :loop1 PLP
:done PLX
plb PLY
sec RTS
xce
plp
plx
ply
rts
* Reverse scroll one line * Reverse scroll one line