Apple-2gs-SW
/
ORCA-C
mirror of https://github.com/byteworksinc/ORCA-C.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Move two functions out of the blank segment. 

This makes slightly more room for variables.
This commit is contained in:
Stephen Heumann 2021-09-15 19:24:55 -05:00
parent 851d7d0787
commit 3c3697535e
1 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
Scanner.asm
View File

@ -112,16 +112,16 @@ lb2 inc disp next character
*
****************************************************************
*
KeyPress start
KeyPress start scanner
KeyPressGS kpRec
lda kpAvailable
lda >kpAvailable
beq rts
ReadKeyGS rkRec
lda rkKey
lda >rkKey
cmp #'.'
bne lb1
lda rkModifiers
lda >rkModifiers
and #$0100
beq lb1
ph2 #4
@ -639,7 +639,7 @@ db5 rts
*
****************************************************************
*
SetDateTime private
SetDateTime private scanner
pha get the date/time
pha
@ -649,13 +649,13 @@ SetDateTime private
lda 1,S set the minutes
xba
jsr convert
sta time+5
sta >time+5
pla set the seconds
jsr convert
sta time+8
sta >time+8
lda 1,S set the hour
jsr convert
sta time+2
sta >time+2
pla set the year
xba
and #$00FF
@ -668,10 +668,10 @@ yearloop sec
yeardone clc
adc #100
jsr convert
sta date+11
sta >date+11
tya
jsr convert
sta date+9
sta >date+9
lda 1,S set the day
inc A
jsr convert
@ -680,17 +680,17 @@ yeardone clc
bne dateOK
lda #' '
dateOK long M
sta date+6
sta >date+6
pla set the month
xba
and #$00FF
asl A
asl A
tax
lda month,X
sta date+2
lda month+1,X
sta date+3
lda >month,X
sta >date+2
lda >month+1,X
sta >date+3
pla
lla timeStr,time set the addresses
lla dateStr,date