From e4314958fc23511e745e388247d03d7489b8d140 Mon Sep 17 00:00:00 2001 From: Bobbi Webber-Manners Date: Fri, 23 Sep 2022 21:36:49 -0400 Subject: [PATCH] Added *FAST and *SLOW commands. --- applecorn.po | Bin 819200 -> 819200 bytes auxmem.oscli.s | 24 +++++++++++++++++++++++- 2 files changed, 23 insertions(+), 1 deletion(-) diff --git a/applecorn.po b/applecorn.po index 4e3b1dbeb63d2b8ec78574e193b257ab62298985..aee429c8fa12d2447030fc5359b68c9f90f29363 100644 GIT binary patch delta 2099 zcmZuye@q+K9ltvpV_rjMMt)G(($|P3KrlGbMp>1lF<@$k0~1U-w_~koQi-lj$R8t1 z&@`Wxm}CSjDs8(g0p#2U;?PW-Rp7L16Dw7z4Iw=eT4fAUmMHjKWAki7GDzX}Y%*1< zcHj4X_j%v|&T*F1uXSx|euCoxPD@9uWKD;8eH#Ot+lGOktK`j*pWt zD=;TxR$@+Zcgq3)o?^%zl5r7tWhVGF`NIS8LDU|W73ZHc(;GffzPlua<8}~2w zzgbWL($z8N7IS++%$aF!FN`^}%RrlE z!V3|58^sg06`rxJI#S?U(bFq<4!0bhqzR_KXF=cEyM*=f6^u#&WlTRx>RlL7g&HRN zv2?lB!sj~1VJD*f5|VMiLOj+UbDtdmB_!Fxj$Q_rvvN?jqwq)Um%6#MUI;j{EdQ)Z#lm zVjG1{i93_fIP6vUwvB8X<-86hoJL$nLW^xJ1zT9k13n@r*y|pk!COEcFh*I2{WS-x zP7nKa=HCzd4OQjFRxHs~X)ASY!+zSREt6gkn6$6xq`E+vj@H%cT7*DlMVX=ItPm(& zdzG7+MZdAS_S~}nz(GSTqYLPDbhR`omS|0eQf4+#p?j5i7|@mKjm%P@_SI?~qx`z; zU}ZIP^lPiB+GwPi<3XKSSIYDS%eAIjCK5E!#-A}OL8;PcViW|^1pU~{bp1_{D zG^@AbX{y@sl~3F8(D$-S9w_o=SYW;A+JzI2C%Ql5Rr@)*=IikaNE-aA5ksRpZn=MLNUA{!A~XEgZST91Nd+!UxO3u z8=nD-bq$N~&;#^V^D@5=)=v2d)YR9xDcHF=2(zbMI=ypKFgIDqa^f)z;sNgQ{vJqN zG7q~lf+NCmcvDc2g*OKq@DR_6iRl@oAcHRjdnC;+W(WhEg|$-_V#;*#=&$Neya?kF z&F=Mr7n0P$2B>D6y+BQ7uzg|PpdPreosw!u>&_FWp} zlh@e$BjAn9?T+wFGLrKeM;KRX9NZqn|1^Qwv`Uc09v=np`!(UNcj9*j=ds%f%DYFJX>f4 z)$2T{RlgrUx!;3hf4T*#$RXBv3zXs4bJZX_eSPSdjJIC(COyos;7jH_zD?NCTcDe| z5Mk%4!5-@=M-&?i4@KARBbte(>S}6?H7`P1Tw>#V%-g3`0ojtuW z)iqT+HFK{q`u~Vt6zIk%F6Z7&i~1|AFXfgmF<@lx~mE!EyRVga#WT^p7I+ u?l9fV?i7GJ{mm#74Mg(tbX8@>@={}&E-&wWl6sr${YDO3qM$eWjQzixw=r@6 delta 2036 zcmZuyVQ>@26}~&klDw%~fk|*+fFy?uN4_U*p69Ji6RQcBn7B56~v5Jw3Q9c?lz%b@J3RbAC4lGAZ1bj>nqjM2ZMV5dg;1bg^6mQg@3pbaj z-`V8gJpXBNI_!3q^Cm5BOC8shRGaKh?rX_vce=JYIYm;B%p8vMRDe1$Q?+4-V!9^k z;GTF?#HW?mdc1&O<6Y9tH{%r#F~bFAR0IW+$(T9x57-bVu_t?RV#Z2FeM!>IS$mV# zHjfox4cR-d=hlqK+=`!=@f3D1R)V!r@wO+R!jn>L4ZcGZO6<2d9ovA7#GV-O&jn`4 z){DSHOz@n*h{b{y-V||0&{*@IG_}BMGCFGoYt73fPD7^nGUPmCUlyK_@FKWO^5HxJ zd6XsIiJ^D0eYiIRXVtyEd3T{j3JJtpi-cC$z#5Z9>iD7QTFl&WBldJio2ZVKd7x7Y zZ6p~bP~9}s%`n{>hN#f1Ht+~Nj=F7N{gPpcq!ynkcpKDlRV5^agyH}P4#sZv%k3lM??8!TtuYcu~KE7x1%i4_R>DK*Ab!9Ig5cz>04(c*J;< z{cD`PEY`sDD!ibEuIK-b6C{@7yWlYT)n~xdGLI$rv+MZhug(cup=%;W;r;!`4awuh zNmxD^vRH$Lq)9I>4H9`_k_e$|S=9=(O6V5}g?Av|t379{!h>e0xMJtkCxB|6C!8#hC529d&?pqiC83mR9 z!zD3L+w#a*NPbs-k5GuvrPTiu^JNYGPWKpo952R`@{jR!`hq+ne?jQn<=X)n6c!xaW@RrzzW3;y;Q$FR;z-gIRS9>d^6uR38%*;v|ZDGMGeWxr|z~^Q3G7Bo{ zPGlGbKYf@Eq^I;)D}X?nlw5L%yRcB2$A}vRn-^B5yI;zeeLmv%GvtHt6#9G=Jj0kW zXrKwKMLRBnvIlpi2Rf^C0jh%uEcHy$JQaEnE=0e(2+Z^#id+Q0rgx*NOQ4e(%%BZ+ z;3({pRw}X1}THyfYrBZ6IMrav|7TqZGko%&OTns4tIq0GH zp^h)WmX_xO3h@>`sm$Lj>@KCm(%fusegaZ9r9s(DXm7kV^-AiYv@5;*s&le@^4>)E zgll5zs!jPmVsDD9O(BJuT_&-6q&z0A3$t%yHjD|beo (LPTR)=>params -* DUMP + ASC 'FAST' + DB $80 + DW FAST-1 ; FAST -> (LPTR)=>params + ASC 'SLOW' + DB $80 + DW SLOW-1 ; SLOW -> (LPTR)=>params * BUILD * terminator DB $FF @@ -748,6 +753,23 @@ EXEC JSR LPTRtoXY ASC 'Not found' BRK +* +* Handle *FAST command +* Turn Apple II accelerators on +FAST LDA #$80 ; Apple IIgs + TSB $C036 + STA GSSPEED + STA $C05C ; Ultrawarp fast + RTS + +* +* Handle *SLOW command +* Turn Apple II accelerators off +SLOW LDA #$80 ; Apple IIgs + TRB $C036 + STZ GSSPEED + STA $C05D ; Ultrawarp slow + RTS