Apple-2gs-SW/ORCA-C
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-C.git synced 2024-06-08 10:35:18 +00:00
Code Issues Projects Releases Wiki Activity

Move two functions out of the blank segment.

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