Apple-2-SW/WeeGUI
1
0
Fork 0
mirror of https://github.com/blondie7575/WeeGUI.git synced 2024-12-13 15:30:04 +00:00
Code Issues Projects Releases Wiki Activity

refactor WGDesktop

Browse Source
This commit is contained in:
4am 2018-03-01 19:59:52 -05:00
parent ce5eaaed95
commit fa635751a6
2 changed files with 16 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
painting.s
View File

@ -46,7 +46,6 @@ WGClearScreen_charLoop:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; WGDesktop
; Paints the desktop pattern (assumes 80 cols)
; Side effects: Clobbers BASL,BASH
;
WGDesktop:
@ -56,22 +55,28 @@ WGDesktop:
WGDesktop_lineLoop:
lda TEXTLINES_L,x ; Compute video memory address of line
sta BASL
sta WGDesktop_charLoop+1
sta WGDesktop_charLoop2+1
lda TEXTLINES_H,x
sta BASH
sta WGDesktop_charLoop+2
sta WGDesktop_charLoop2+2
ldy #39
WGDesktop_charLoop:
lda #'W'
sta (BASL),y
SETSWITCH PAGE2ON
lda #'V'
sta (BASL),y
SETSWITCH PAGE2OFF
WGDesktop_charLoop:
sta $FFFF,y ; Self-modifying code!
dey
bpl WGDesktop_charLoop
SETSWITCH PAGE2ON
ldy #39
lda #'V'
WGDesktop_charLoop2:
sta $FFFF,y ; Self-modifying code!
dey
bpl WGDesktop_charLoop2
SETSWITCH PAGE2OFF
dex
bpl WGDesktop_lineLoop

BIN
weegui.dsk
View File

Binary file not shown.