Apple-2-SW/pitch-dark
1
0
Fork 0
mirror of https://github.com/a2-4am/pitch-dark.git synced 2024-06-20 02:29:29 +00:00
Code Issues Projects Releases Wiki Activity

.

Browse Source
This commit is contained in:
4am 2018-03-27 17:27:13 -04:00
parent 78dcea8dcf
commit 54bcaf0cc5
1 changed files with 17 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
src/ui.main.a
View File

@ -65,9 +65,9 @@ CreateViews
sta PARAM1 sta PARAM1
jsr WeeGUI jsr WeeGUI
ldx #WGViewSetAction ldx #WGViewSetAction
lda #<.paintInfoView lda #<paintInfoView
sta PARAM0 sta PARAM0
lda #>.paintInfoView lda #>paintInfoView
sta PARAM1 sta PARAM1
jsr WeeGUI jsr WeeGUI
@ -78,9 +78,9 @@ CreateViews
sta PARAM1 sta PARAM1
jsr WeeGUI jsr WeeGUI
ldx #WGViewSetAction ldx #WGViewSetAction
lda #<.paintDescriptionView lda #<paintDescriptionView
sta PARAM0 sta PARAM0
lda #>.paintDescriptionView lda #>paintDescriptionView
sta PARAM1 sta PARAM1
jmp WeeGUI jmp WeeGUI
@ -97,9 +97,9 @@ PaintAllViews
ldx #WGViewPaintAll ; repaint all views that can be painted automatically ldx #WGViewPaintAll ; repaint all views that can be painted automatically
jsr WeeGUI jsr WeeGUI
jsr PaintTitleView jsr PaintTitleView
jsr .paintHRView jsr paintHRView
jsr .paintInfoView jsr paintInfoView
jmp .paintDescriptionView jmp paintDescriptionView
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
; RepaintSomeViews ; RepaintSomeViews
@ -111,14 +111,14 @@ PaintAllViews
; out: all registers and flags clobbered ; out: all registers and flags clobbered
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
RepaintSomeViews RepaintSomeViews
jsr .paintInfoView jsr paintInfoView
jsr .resetDescriptionViewScrolling jsr resetDescriptionViewScrolling
jmp .paintDescriptionView jmp paintDescriptionView
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
; internal functions ; internal functions
.paintHRView paintHRView
ldx #WGSelectView ldx #WGSelectView
lda #ID_HR lda #ID_HR
jsr WeeGUI jsr WeeGUI
@ -134,14 +134,14 @@ RepaintSomeViews
ldx #WGFillRect ldx #WGFillRect
jmp WeeGUI jmp WeeGUI
.paintDescriptionView paintDescriptionView
ldx #WGSelectView ldx #WGSelectView
lda #ID_DESCRIPTION lda #ID_DESCRIPTION
jsr WeeGUI jsr WeeGUI
lda addrDescription lda addrDescription
ldy addrDescription+1 ldy addrDescription+1
ldx #78 ldx #78
jsr .multiPrint jsr multiPrint
lda .vtab+1 lda .vtab+1
cmp #10 cmp #10
bcs + bcs +
@ -149,16 +149,15 @@ RepaintSomeViews
+ ldx #WGSetContentHeight + ldx #WGSetContentHeight
jmp WeeGUI jmp WeeGUI
.paintInfoView paintInfoView
ldx #WGSelectView ldx #WGSelectView
lda #ID_INFO lda #ID_INFO
jsr WeeGUI jsr WeeGUI
lda addrInfo lda addrInfo
ldy addrInfo+1 ldy addrInfo+1
ldx #65 ldx #65
; note: execution falls through here ; execution falls through here
multiPrint
.multiPrint
sta $00 sta $00
sty $01 sty $01
stx .printLineLength+1 stx .printLineLength+1
@ -192,7 +191,7 @@ RepaintSomeViews
.printDone .printDone
rts rts
.resetDescriptionViewScrolling resetDescriptionViewScrolling
ldx #WGSelectView ldx #WGSelectView
lda #ID_DESCRIPTION lda #ID_DESCRIPTION
jsr WeeGUI jsr WeeGUI