Apple-2-SW/4live
1
0
Fork 0
mirror of https://github.com/a2-4am/4live.git synced 2024-12-21 11:29:20 +00:00
Code Issues Projects Releases Wiki Activity

add title screen, auto-disappears on first keypress

Browse Source
This commit is contained in:
4am 2016-10-31 11:11:32 -04:00
parent 3bdedd887e
commit 39775ba385
3 changed files with 86 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
notes/title.txt Normal file
View File

@ -0,0 +1,26 @@
0 1 2
0123456789ABCDEF0123456789ABCDEF01234567
00
1
2
3
4
5
6
7
8
9 4LIVE by 4am & san inc
A Revision 01 / Serial number 161031
B
C
D https://github.com/a2-4am/4live
E
F
10
1
2
3
4
5
6
7***********************************4LIVE

0
notes.txt → notes/v1.txt
View File

85
src/4live.a
View File

@ -49,7 +49,7 @@
HOTKEY = $80 ; CTRL-@
IMPORTKEY = $89 ; CTRL-I
SAVEKEY = $93 ; CTRL-S
CLEARKEY = $8E ; CTRL-N
;constants
LTARROW = $88
@ -154,7 +154,10 @@ Install
;open source file and read it if available
jsr OpenReadFile
lda SaveCH
bcs +
lda #0
sta gClearOnFirstKeypress
+ lda SaveCH
sta MyCH
lda SaveCV
sta MyCV
@ -372,67 +375,72 @@ SwapCoords
bpl -
jmp BASCALC
_doneEditorMode
rts
;print anything that isn't a special key
;wrap around screen position when we hit edges
EditorMode
ldy CH
lda (BASL), y
jsr KEYIN
cmp #HOTKEY
beq _doneEditorMode
beq HandleKeyExit
cmp #ESC
beq _doneEditorMode
beq HandleKeyExit
ldx #1
stx gIsDirty
cmp #IMPORTKEY
beq ImportScreen
beq HandleKeyImportScreen
cmp #CLEARKEY
beq HandleKeyClearScreen
cmp #LTARROW
beq LineLeft
beq HandleKeyLineLeft
cmp #UPARROW
beq LineUp
beq HandleKeyLineUp
cmp #RTARROW
beq LineRight
beq HandleKeyLineRight
OutChar
;print anything that isn't a special key
;wrap around screen position when we hit edges
pha
lda gClearOnFirstKeypress
beq +
jsr ClearScreen
lda #0
sta gClearOnFirstKeypress
+ pla
jsr COUT
lda CV
eor #(HEIGHT - 1) ;zero on match
bne EditorMode
SetRow
sta CV
SetRow1
lda CV
jsr BASCALC
bcc EditorMode ;always
LineLeft
HandleKeyExit
rts
HandleKeyLineLeft
dec CH
bpl SetRow1
lda #(WIDTH - 1)
SetColumn
sta CH
bpl SetRow1 ;always
LineUp
HandleKeyLineUp
dec CV
bpl SetRow1
lda #(HEIGHT - 2)
bne SetRow ;always
LineRight
HandleKeyLineRight
inc CH
lda CH
eor #WIDTH ;zero on match
bne SetRow1
beq SetColumn ;always
ImportScreen
HandleKeyImportScreen
lda #<(EditBuffer + WIDTH)
sta OPSRCL
lda #>(EditBuffer + WIDTH)
@ -456,7 +464,26 @@ ImportScreen
inc OPSRCH
+ dex
bpl --
bmi EditorMode
jmp EditorMode
HandleKeyClearScreen
jsr ClearScreen
jmp EditorMode
ClearScreen ; does not clear status line
ldx #(HEIGHT - 2)
-- lda TextCalcLo, x
sta _c+1
lda TextCalcHi, x
sta _c+2
ldy #(WIDTH - 1)
lda #$A0
_c sta $FFFF, y ; self-modified, above
dey
bpl _c
dex
bpl --
rts
OpenReadFile
lda LCBANK2
@ -587,6 +614,8 @@ LINE
!byte 0
gIsDirty
!byte 0
gClearOnFirstKeypress
!byte 1
TextCalcHi
!byte $04, $04, $05, $05, $06, $06, $07, $07
@ -605,13 +634,19 @@ SaveCV
!byte 0 ;loaded from file if exists
EditBuffer ;lines are stored sequentially, not like text page in memory
!fill WIDTH * (HEIGHT - 1), $A0
!fill WIDTH * 8, $A0
!scrxor $80, " 4LIVE by 4am & san inc "
!fill WIDTH, $A0
!scrxor $80, " Revision 01 / Serial number 161031 "
!fill WIDTH * 2, $A0
!scrxor $80, " https://github.com/a2-4am/4live "
!fill WIDTH * 9, $A0
LoadSaveEnd
StatusLine ;must be exactly WIDTH bytes
;status line
!fill (WIDTH - 8), $20
!scrxor $80, "4LIVE V1"
!fill (WIDTH - 5), $20
!scrxor $80, "4LIVE"
LineBuffer ;used during scrolling
!fill WIDTH, 0