combine MLI read calls to save 2 more bytes

2018-01-07 21:29:00 -05:00 · 2018-01-07 21:29:00 -05:00 · 9f27d9db12
parent 1865094712
commit 9f27d9db12
1 changed files with 6 additions and 7 deletions
--- a/src/a2fc.system.a
+++ b/src/a2fc.system.a
@ -54,9 +54,7 @@ Open
         !byte kMLIOpen
         !word mliParamForOpen
         bcs   Quit
-         lda   #kMLIRead
-         ldy   #kMLIReadCount
-         jsr   CallMLI
+         jsr   Read
         bcs   Close
 ;DHGRCopy
         ldx   #$20
@ -74,10 +72,7 @@ Open
         inc   .copyb+2
         dex
         bne   .writeToAux
-;Read
-         lda   #kMLIRead
-         ldy   #kMLIReadCount
-         jsr   CallMLI
+         jsr   Read
 Close
         php
         lda   #kMLIClose
@ -98,6 +93,10 @@ Close
 Quit
         lda   #kMLIQuit
         ldy   #kMLIQuitCount
+         bne   CallMLI               ; always branches
+Read
+         lda   #kMLIRead
+         ldy   #kMLIReadCount
 CallMLI
         sta   mlicmd
         sty   mliparam