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

Save a few bytes in the startup code.

This commit is contained in:
Stephen Heumann 2023-03-28 21:38:55 -05:00
parent a4ba2403fe
commit 3c1f357b0c
1 changed files with 7 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
cc.asm
View File

@ -244,8 +244,6 @@ lb6 long M
phy phy
sec sec
adc 1,S adc 1,S
ply
pha
pha pha
pea 0 pea 0
pha pha
@ -265,20 +263,19 @@ lb7 pl4 argv get the pointer to the area
lda [argv] lda [argv]
sta targv sta targv
stx targv+2 stx targv+2
clc get a pointer to the command line string ; clc (already clear)
adc start adc start get a pointer to the command line string
bcc lb8 bcc lb8
inx inx
lb8 sta argv lb8 sta argv
stx argv+2 stx argv+2
short M move the command line string short M move the command line string
ldy #0 ldy #-1
lb9 lda [cLine],Y lb9 iny
lda [cLine],Y
sta [argv],Y sta [argv],Y
beq lb10 bne lb9
iny long M
bra lb9
lb10 long M
move4 argv,cLine save the pointer move4 argv,cLine save the pointer
move4 targv,argv set up the pointer to argv move4 targv,argv set up the pointer to argv