6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2024-10-18 22:24:28 +00:00
Code Issues Projects Releases Wiki Activity

Shrink a few bytes to fit

Browse Source
This commit is contained in:
David Schmenk 2018-03-15 07:59:16 -07:00
parent 3d84a2192c
commit c07bc8172c
2 changed files with 11 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/vmsrc/apple/plvm03.s
View File

@ -634,12 +634,9 @@ LW LDA ESTKL,X
LDA (ESTKH-1,X)
STA ESTKL,X
INC ESTKH-1,X
BEQ +
LDA (ESTKH-1,X)
STA ESTKH,X
JMP NEXTOP
+ INC ESTKH,X
LDA (ESTKH-1,X)
BNE +
INC ESTKH,X
+ LDA (ESTKH-1,X)
STA ESTKH,X
JMP NEXTOP
;*
@ -771,12 +768,9 @@ SW LDA ESTKL,X
STA (ESTKH-1,X)
LDA ESTKH+1,X
INC ESTKH-1,X
BEQ +
STA (ESTKH-1,X)
INX
JMP DROP
+ INC ESTKH,X
STA (ESTKH-1,X)
BNE +
INC ESTKH,X
+ STA (ESTKH-1,X)
;*
;* DROP TOS, TOS-1
;*

8
src/vmsrc/apple/soscmd.pla
View File

@ -938,12 +938,14 @@ def init_cons()#0
dev_control(devcons, $02, @nlmode)
end
def cout(ch)#0
byte nc
nc = 1
if ch == $0D
ch = $0A0D
write(refcons, @ch, 2)
else
write(refcons, @ch, 1)
nc = 2
fin
write(refcons, @ch, nc)
end
def crout()#0
cout($0D)