Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2024-06-26 21:29:29 +00:00
Code Issues Projects Releases Wiki Activity

Renamed routine (naming convention)

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2023-01-16 19:02:52 -05:00
parent f51d4c2689
commit 1acfcb8a42
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

7
mainmem.shr.s
View File

@ -605,7 +605,7 @@ SHRVDU127 >>> ENTMAIN
INY INY
STAL [A3L],Y STAL [A3L],Y
DEY DEY
JSR NEXTROW ; Advance A3L/H to next pixel row JSR SHRNXTROWM ; Advance A3L/H to next pixel row
INX INX
CPX #$08 ; Erased all 8 rows? CPX #$08 ; Erased all 8 rows?
BNE :L1 BNE :L1
@ -626,7 +626,7 @@ SHRVDU127 >>> ENTMAIN
DEY DEY
DEY DEY
DEY DEY
JSR NEXTROW ; Advance A3L/H to next pixel row JSR SHRNXTROWM ; Advance A3L/H to next pixel row
INX INX
CPX #$08 ; Erased all 8 rows? CPX #$08 ; Erased all 8 rows?
BNE :L2 BNE :L2
@ -635,7 +635,7 @@ SHRVDU127 >>> ENTMAIN
>>> XF2AUX,VDUXXRET >>> XF2AUX,VDUXXRET
* Advance A3L/H to next pixel row on screen * Advance A3L/H to next pixel row on screen
NEXTROW LDA A3L ; Advance A3L/H to next row SHRNXTROWM LDA A3L ; Advance A3L/H to next row
CLC CLC
ADC #160 ADC #160
STA A3L STA A3L
@ -644,6 +644,7 @@ NEXTROW LDA A3L ; Advance A3L/H to next row
STA A3H STA A3H
RTS RTS
* Plot actions: PLOT k,x,y * Plot actions: PLOT k,x,y
* k is in SHRVDUQ+4 * k is in SHRVDUQ+4
* x is in SHRVDUQ+5,SHRVDUQ+6 * x is in SHRVDUQ+5,SHRVDUQ+6