From df3f82ea32673ca415387a2a9b960dee6595427b Mon Sep 17 00:00:00 2001
From: Bobbi Webber-Manners <bobbi.manners@gmail.com>
Date: Sun, 15 Aug 2021 01:26:01 -0400
Subject: [PATCH] Added additional OSBYTE calls.

---
 applecorn.po    | Bin 819200 -> 819200 bytes
 auxmem.bytwrd.s |  32 +++++++++++++++++++++-----------
 auxmem.hostfs.s |  11 +++++++----
 3 files changed, 28 insertions(+), 15 deletions(-)

diff --git a/applecorn.po b/applecorn.po
index da4f7e188a1d4ec08620fac9bdd29198ac786d73..e71741b7caeb84be4774c982e83efb44d7b54527 100644
GIT binary patch
delta 2062
zcmZ8g4R8}x9^c)!Nk6c(6fB`dc!xy`g_PmAlMhiVR9Yu#y%v;nMpzxjLG+HnnNzGE
zS%Cy(*de9pqc=lbGBk8M)4Ij8o5FCW(pDC&O`G&1+s#L5LAddfEmp-Mjhm#U9pCQk
z{yzTu`@h|NkEU1C^lIKou1U|=;kno_hNb7v!U?RPaNBlckx~Ej-?zR{zFA*EuEghK
z7nZB;{j&LZ^$%n=8B?lLH87)P;Y@c4R=r*`>2B9NoG3F*0ml^RoC0H-y!;vAY3dyG
z#=??PeR-MDSX8=AUxAS<uE7{>yi4^K?PTUZwJ_s9Irm$`^!yzBpiO(&ro{!DmRR%x
zf;)(L=<Q*UlR%DPurP*nNE!x<5#=IvXwC@8O1K+Frt0>Lfb6)YX@?N9XkrJkXb#)f
zuM+r`&)e?oh{?i}t>nE-VWXE^J4^V-`@|Sws!!O>a40;IfC3!4eI4Ek!`9w`&i2m6
zzP8>*55vS$ob1(3H(S^1Y47Rd*o*M2(+MxZ`paEy?UNNPY>(H&#;ul^)!F6k>Y4Of
zr@dCyyA}TNdiw1#`18;YDjti#Yd_sUJ87Z>xk!>Ma9*A+zZ{G5wz{Xfv`t%WF{`Jm
z6V*XYF5>o(^M&hB190@eKWRP{4j&-CA(}13xm7tl!+zD?&31UY++KBlt(SNR8(_W4
z81!i~k&QPA7n+H3d`*Yva$JTtehLqd-HL>n#50pG_FV*acwj_{IX}W1k=rmF`Q?+{
z<hO$8B#vrO@ApLh=NZI8yxB!eRO07RbUk<sKQBDC0X(+}FA<J>09I@90(9{Z5a(xx
z7}Dj6D&PwJe->-ODj1EcCUXe6kCP7yyczr#$NwViJq%I+z8}4F6fDMHMKwo30se|0
z9tA7$v@7PvxdQV>F4O!3w+i`Ak$*;iJqG6L>Vl^+;%de(a7#D$E$fDj0WO85VIz9^
z7;t4j8pw^VS|HAK>zE8z1Ln%OTSAL-lqC2l+Q0xien1GsZg?a5@HpU9nr{UM@wCRk
z?qc|Lfa_=b)TE15ptS%~@<m+96A5LWNGchkM%gZ=C|ku;<vH;I1><nGU+qnmRXkI%
zNsm#;aRPjhl@(eR5<~7}b!IVlEr%5+!vVCu8f?^LnNM;d#GD~>5UN(+SBr#dP-%MA
ze1h|ttKkVBuYuQm^mgv`nF^5TXSlt8P}Xq!W-7V?dI|ThnTjCMZ*i3~6=IOy#hGR*
zFAdV=+`-v1rO$n6F-tDg9$|gz>`@_0F3=uNV2UNnv&1+~eD44kiZdz=?LDUM+xI^P
zxkOPv`tpqWr}{ny`gu*#%@FCnW5-ym$qI`le%9$G#MnulsX<Cr$3u-0(=1*3EJ1jQ
z`9jiB*wlcp4MMHNKMB`KwN@rf)K)PO0_IBmBV1aQ^@{4L4%{X24>f!tF$&SpEHR^m
zJ<JkZ6#AnS7iGo>Isy*_sL80ZsVLL^tc`!jS{ci_6VLjUm~N33lYfiL_Yy6zSc`b}
zI>})@Tg8!YEFw6}j-3t@H$$23JCsd6BRk}Ca-IB{d|tjN?+m#7t#XI_jqEnbo^GML
zS00dkvLpxPkUS*+DnH@Rli!sO#*ahtG5KkKaq@n1#G)J;wI_=qK3PoS%U)YxUB*Fv
z>9mz3I`|CH%C8aM<5NYFU$JY{N^;g)`%~!Dx|X*G&39Yg8Z?jBM$V2p6kenL3uW$F
zxK!Sgw|uvgg0ubhXx{D>OA(L2I(!>?ua?YPa#B7&UZqg*q}-&O7^lqRSDF;_U6!Qm
zsT4PA@C;Ju%UUw4Af>;OVx#sb#m=^46iZKC-oOZo;xP4-P*gIPY`(|Q<_TDc-aG{!
z&R)j)LrDtBt!Dk|BCCzW_T2{7Z%`N99EZ9&uATy0@P3q81J*wHlE41cDlLmy2{wm{
zEhHTUC(zCsV8thpQUhLm;Ojtr@w4h!mJYq>`F{hG>18&k=EA}t{64Clh8@AQ_MV=u
zo(n9-?PG&#pR$Vb&6~@OdW`#Uk{3N+RH{;IoNlQoDJ|I=v)M^rUR1bQj~Rod!Kc(?
z-+*V(Ik?Gh^dISc)4SYz)8q3LdVGDbE@;>j%ruO58!Cf_kAjAppkb5WVDzH}=g1Y>
pr-D0zBLU%W=STx#u>p&XwAeHjo7Q4Wve=R>wiJsk)nS`;?RUP#!vp{T

delta 1537
zcmZ8geM}Q)9KO5vT3S9_3ECol@J3Pjkb(>sbUMdJ1-1fND-%t&)x;5IoNn&RxhTi5
z)e$-ioqLOm&5a5A0-E9<o{mksL^HdO48*CuUVEKOHkWL2EXFw;cGm*h_<Jw8-}5}b
zJkRBQ-(#2}hAHx#rHg0ft<q%?zY@f(yc``x6qMFC)EH{?Wt%o^G*#%$bUvvgl5=JC
z;n+%@^G`a1jxx?f1=Q5ff26AO^3t5E71L^iV)4{i^Gwq_)BHHo+)-rb#hI%}iqO}T
zR@drHbu~4H+Iqd2pjlEu*p;yqXQgu5bB7XYT=O1A!>CECTY12(BssT|TDXzBc!3_w
z<Tmf6?ocTF3th?eL4`<iD_g1WDW`@yb;d>=FXWD^6r0p%ywrm|+>RE7f#k~9fQmA5
z6?bqSC{mJXXlOt1>F$bl+Ut!-;4<?UOPnLjc7?a=ZWs+8qUUfPD>zS*h1|{qKn=*Z
z(EDv5liY&3+CTyM66b3J`DDs~bqy}CuElq)&)@>&chOIxr`kbUdb@a(puW@m11m@H
z59~1P3}H3Pz)rNK9e6X6LRpc*xxTdFbi2lTlJIKoS2Mm;DFG&-r|qDdY~(`G7uktg
z4goB~JO^kcQ#wOURj@yVud~-=r=bq;O)e=d^HI`lA1!Ho3TdNHEt!3ZQk^eZBJgB%
zEM%!OuQ!+L3Dn;S_Gu@?oUkuEtis>2*JZH;6ICiWiq<*7TE&F*6D*<@Cs<9A=qo4K
z)4avniTze5wEH~@81yp@xG|o2;Aht3ZI3a<czZmPc7s`j--u^U^US;Wop@%FXSU)!
z@k~R2G2wl);;B=9l*!Wbm94B_{%};v(sPw<Q@w?yP1=jGerlIPI1odY6tuG)Xwip<
zK^FDwb#&o#`FsM0fqwP?e=AH6-|Hq=V$cE0c~8>O0kq&#kluWPPn2r`=Iw+0*L_o<
zpSOGXbPF+4aBBdPyk{LO=6f9W+f+}7eT;&cyk{v+>2O?@HCchL@SX)HJ-l6_P7d<+
zajN?^OW_C%Ml3jDze6!&urXwrwyK-4s(I+O_A#&gsMo!i*T2-G2yK-9FGf#JMG(=5
zn0GNE5zsyVk<c!52%UmcI3gSsdWG`PvEYC(D4Y?7gwYXhWKl3pXcTtD)=uF)VQH{R
zwc9#ollG5yt9)UP%9r4&do9(GgVT|8jLs;bJ<GR_J7|3HkKJk}@x-}Z0qgy9Zw9Or
zJ!8kldnJ!T-c_jtYJ_dsxlLy+@Nc0zlHIgigDxSkihLGD5Xe?H3#TVKBnxatg)X24
z=K~gWp@-IzG_tsWPJ@Z<3n>*=Stl`LeE^rBk6mDKMhY7YCrC8bvO)P4^o&J+hfFqT
zly5|8FFg<a<^q-E5Yl&nk~yWpK3AcVB^(qx&k{Z9bPK$RKIj4t@+L|?0yZc2hx)3X
zlPl*5coywC0-Bo*tSI}!B_jMiB0t75G3C;gD?eTNk|l6GE6O=_W>ZClsYXxWSEsSz
zMMJF&-;Tjbb9HU?hN!%M8k-EI6?$TYSR`i2Yx|A!fiD8ff-8atf8KR9_v)=t|7hu`
z{~Bx;jkRK`abm>yvS@r=H0~9R%Yw!gsO2+|ugnt5#LFS>h2wM+Wpe|Yo3^<XHn-B|
SPO!OEHn-a5PV99j-TWWhwv(p-

diff --git a/auxmem.bytwrd.s b/auxmem.bytwrd.s
index d73401f..fb7910c 100644
--- a/auxmem.bytwrd.s
+++ b/auxmem.bytwrd.s
@@ -28,14 +28,14 @@ BYTEHIGH     EQU   $7C                    ; First high OSBYTE
              DW    BYTE85                 ; OSBYTE 133 - MEMTOP for MODE
              DW    BYTE86                 ; OSBYTE 134 - POS, VPOS
              DW    BYTE87                 ; OSBYTE 135 - Character, MODE
-*           DW    BYTE88   ; OSBYTE 136 - *CODE
-*           DW    BYTE89   ; OSBYTE 137 - *MOTOR
-*           DW    BYTE8A   ; OSBYTE 138 - Buffer insert
-*           DW    BYTE8B   ; OSBYTE 139 - *OPT
-*           DW    BYTE8C   ; OSBYTE 140 - *TAPE
-*           DW    BYTE8D   ; OSBYTE 141 - *ROM
-*           DW    BYTE8E   ; OSBYTE 142 - Enter language
-*           DW    BYTE8F   ; OSBYTE 143 - Service call
+             DW    BYTE88                 ; OSBYTE 136 - *CODE
+             DW    BYTE89                 ; OSBYTE 137 - *MOTOR
+             DW    BYTE8A                 ; OSBYTE 138 - Buffer insert
+             DW    BYTE8B                 ; OSBYTE 139 - *OPT
+             DW    BYTE8C                 ; OSBYTE 140 - *TAPE
+             DW    BYTE8D                 ; OSBYTE 141 - *ROM
+             DW    BYTE8E                 ; OSBYTE 142 - Enter language
+             DW    BYTE8F                 ; OSBYTE 143 - Service call
 BYTWRDTOP
              DW    BYTEVAR                ; OSBYTE 166+ - Read/Write OSBYTE variable
 * Maximum high OSBYTE
@@ -206,7 +206,7 @@ WORD00       IF    MAXLEN-OSTEXT-2
              ELSE
              LDA   (OSCTRL),Y             ; Copy control block 
              STA   OSTEXT,Y               ; 0,1 => text
-             INY                          ;  2  = MAXLEN 
+             INY                          ;  2  = MAXLEN
              CPY   #$05                   ;  3  = MINCHAR
              BCC   WORD00                 ;  4  = MAXCHAR
              LDY   #$00                   ; Initial line length = zero
@@ -356,11 +356,22 @@ BYTE85       LDY   #$80                   ; $85 = top user mem for mode
              LDX   #$00
              RTS
 
+* BYTE86 and BYTE87 are in AUXMEM.VDU.S
+
+BYTE88       JMP   (USERV)                ; $88 = *CODE
+
+BYTE89       RTS                          ; $89 = *MOTOR
+
+BYTE8A       RTS                          ; $8A = insert val into buf
+
 BYTE8B       LDA   #$00                   ; $8B = *OPT
              JMP   (FSCV)                 ; Hand over to filing system
 
+BYTE8C       RTS                          ; $8C = *TAPE
+
+BYTE8D       RTS                          ; $8D = *ROM
+
 * OSBYTE $8E - Enter language ROM
-*
 BYTE8E       PHP                          ; Save CLC=RESET, SEC=Not RESET
              LDA   #$08
              STA   FAULT+0
@@ -375,7 +386,6 @@ BYTE8E       PHP                          ; Save CLC=RESET, SEC=Not RESET
 
 * OSBYTE $8F - Issue service call
 * X=service call, Y=parameter
-*
 BYTE8F       TXA
 SERVICE      LDX   #$0F
              BIT   $8006
diff --git a/auxmem.hostfs.s b/auxmem.hostfs.s
index 19dfa6f..f8456bc 100644
--- a/auxmem.hostfs.s
+++ b/auxmem.hostfs.s
@@ -304,8 +304,10 @@ OSFILEM2    ASC   ')'
 *            A=modified if implemented
 *            X,Y=any return values
 * 
-FSCHND      CMP   #$01
-            BEQ   CHKEOF              ; A=0  - Read EOF
+FSCHND      CMP   #$00
+            BEQ   FSOPT               ; A=0  - *OPT
+            CMP   #$01
+            BEQ   CHKEOF              ; A=1  - Read EOF
             CMP   #$02
             BEQ   FSCRUN              ; A=2  - */filename
             CMP   #$04
@@ -327,6 +329,9 @@ FSCREN
 OSFSCM      ASC   'OSFSC.'
             DB    $00
 
+* Performs OSFSC *OPT function
+FSOPT       RTS                       ; No FS options for now
+
 * Performs OSBYTE $7F EOF function
 * File ref number is in X
 CHKEOF      >>>   WRTMAIN
@@ -435,5 +440,3 @@ STARDIRRET
             >>>   ENTAUX
             RTS
 
-
-