Apple-2-SW/pitch-dark
1
0
Fork 0
mirror of https://github.com/a2-4am/pitch-dark.git synced 2025-01-22 13:31:55 +00:00
Code Issues Projects Releases Wiki Activity

load strings from datafile works

Browse Source
This commit is contained in:
4am 2018-02-05 16:29:29 -05:00
parent c67660ec4e
commit d3b96a7e1b
2 changed files with 39 additions and 54 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
src/config.a
View File

@ -159,14 +159,6 @@ parseloop
lda #$FF
sta bFoundCR
bra .next
+ cmp #$5E ; '^' -> closed-apple mousetext
bne +
lda #$40
sta ($00)
+ cmp #$26 ; '&' -> open-apple mousetext
bne +
lda #$41
sta ($00)
+ cmp #$5B ; '[' is section name start delimiter
beq .startsectionname
cmp #$5D ; ']' is section name end delimiter
@ -174,6 +166,24 @@ parseloop
bit bInSectionName
bmi .parsesectionname
bvs .next
tax
beq .nohighbit
+ cmp #$5E ; '^' -> closed-apple mousetext
bne +
lda #$40
sta ($00)
bra .nohighbit
+ cmp #$26 ; '&' -> open-apple mousetext
bne .highbit
lda #$41
sta ($00)
bra .nohighbit
.highbit
ora #$80
sta ($00)
.nohighbit
bit bFoundCR
bpl .next
stz bFoundCR

67
src/pitchdark.a
View File

@ -75,53 +75,36 @@ Init
sta PARAM1
jsr WeeGUI
lda addrInfo
sta $00
lda addrInfo+1
sta $01
stz .line+1
infoloop
ldx #WGSetCursor
stz PARAM0
stz PARAM1
jsr WeeGUI
ldx #WGPrint
lda #<string_info1
sta PARAM0
lda #>string_info1
sta PARAM1
jsr WeeGUI
ldx #WGSetCursor
stz PARAM0
lda #1
.line lda #$FD ; set at runtime
sta PARAM1
jsr WeeGUI
ldx #WGPrint
lda #<string_info2
lda $00
sta PARAM0
lda #>string_info2
sta PARAM1
jsr WeeGUI
ldx #WGSetCursor
stz PARAM0
lda #3
sta PARAM1
jsr WeeGUI
ldx #WGPrint
lda #<string_info3
sta PARAM0
lda #>string_info3
sta PARAM1
jsr WeeGUI
ldx #WGSetCursor
stz PARAM0
lda #5
sta PARAM1
jsr WeeGUI
ldx #WGPrint
lda #<string_info4
sta PARAM0
lda #>string_info4
lda $01
sta PARAM1
bit MAGICRTS ; set overflow bit
jsr WeeGUI
bit #%00000000
- lda ($00)
bne +
bit MAGICRTS
+ inc $00
bne +
inc $01
+ bvc -
inc .line+1
lda .line+1
cmp #$06
bne infoloop
bit $c010
- lda $c000
@ -258,14 +241,6 @@ view_info
!byte 7 ; visible height
!byte 20 ; width
!byte 7 ; height
string_info1
!text " ZORK I: THE GREAT ",0
string_info2
!text " UNDERGROUND EMPIRE ",0
string_info3
!text "1980 Fantasy",0
string_info4
!text "Difficulty: ",64,64,64,65,65,0
view_blurb
!byte 12 ; view ID