Apple-2-SW/WeeGUI
1
0
Fork 0
mirror of https://github.com/blondie7575/WeeGUI.git synced 2025-08-15 10:27:38 +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
Download Patch File Download Diff File Expand all files Collapse all files

25
painting.s
View File

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

BIN
weegui.dsk
View File

Binary file not shown.