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

set up options struct and pass to interpreter correctly

Browse Source
This commit is contained in:
4am 2018-03-26 20:12:35 -04:00
parent 4d3508a65f
commit 2b7dd9ff2b
2 changed files with 15 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/launch.a
View File

@ -50,9 +50,9 @@ LaunchInterpreter
!word kForce40
jsr okvs_as_boolean
beq +
lda #$D9
lda #$CE
!byte $2C
+ lda #$CE
+ lda #$D9
sta $0300 ; 40/80 columns
jsr okvs_get
@ -60,9 +60,9 @@ LaunchInterpreter
!word kForceUpper
jsr okvs_as_boolean
beq +
lda #1
lda #0
!byte $2C
+ lda #0
+ lda #1
sta $0301 ; case
lda #$FF
@ -73,9 +73,9 @@ LaunchInterpreter
!word kScriptToFile
jsr okvs_as_boolean
beq +
lda #0
lda #1
!byte $2C
+ lda #1
+ lda #0
sta $0303 ; script-to-file
jsr okvs_get
@ -83,9 +83,9 @@ LaunchInterpreter
!word kAutoScript
jsr okvs_as_boolean
beq +
lda #0
lda #1
!byte $2C
+ lda #1
+ lda #0
sta $0304 ; auto-script
lda #1

12
src/onbeyond/onbeyond.system.s
View File

@ -77,17 +77,19 @@ quit jsr $bf00
;get volume name
inc c5_parms+3
inc c5_parms+3
lda #$81
sta c5_parms+2
jsr $bf00
!byte $c5
!word c5_parms
ldx $301
ldx $381
inx
txa
and #$0f
sta $300
sta $380
lda #$2f
sta $301
sta $381
;use that for intepreter location
@ -132,7 +134,7 @@ c5_parms
c6_parms
!byte 1
!word $300
!word $380
c4_parms
!byte $0a