Genç Haritacı’nın Günlüğü

Bu bölümde Casio Fx-850P ve Casio Fx-880P hesap makinelerinin genelde bilinmeyen özellikleri anlatılmıştır

4.4.SİLİNEMEYEN SATIRLAR

Program satır numaraları 1 ila 65535 arasında değişir. Satır numarası 0 olan satırlar özel
satırlar olup bunlar üzerinde değişiklik yapılamaz; satır yok edilemez.

Bir satırın satır numarasını 0 yapmak için şu işlem yapılır:

TRON EXE TR moduna geçilir

RUN EXE İlgili satır RUN … ile çalıştırılır

EXE Tekrar EXE tuşuna basılır

A ¬ PEEK1776+256*PEEK1777-2 Satır numarasının kayıtlı olduğu bellekler bulunur.

POKE {A},0 A belleğine 0 kaydedilir.

POKE {A+1},0 A’dan sonra gelen belleğe 0 kaydedilir.

5.PROGRAMLAR
5.1.PROGRAMLARI KURTARMA PROGRAMI

1. Makine üzerindeki ALL RESET butonuna basılması halinde makinedeki bütün programlar silinir. Ancak bu silinme gerçek anlamda bir silinme değildir.

2. Bu silinme, programların başlangıç ve bitiş adreslerinin Program Kontrol Sahasından (PKS) silinmesidir. PKS’na eski adreslerin yerleştirilmesi halinde programlar eski haline dönecektir.

3. Aşağıdaki program bu işlevi yerine getirmektedir. Ancak bu programın silinme olayı olmadan önce makinenin P0 programı içinde bir yere yazılması gerekir.

4. Programın doğru yazıldığından emin olunmalıdır.

5. Gerekiyorsa satır numaraları değiştirilmelidir.

6. Ancak satır numaralarının değiştirilmesi durumunda 120 numaralı satırdaki GOTO (150 + P/2.6) deki 150 ye tekabül eden yeni satır numarası girilmelidir.

7. Bu program, bilgisayardan CASIO ya yapılacak program aktarımı işleminde de kullanılabilir.

8. P0 programının ilk satırında en az 12 byte uzunluğunda işe yaramayan bir satır bulunmalıdır. (Örneğin aşağıdaki programda 1 numaralı satır gibi)

9. İşe yaramayan ilk satırın bellekte kapladığı gerçek uzunluk PEEK2944+FRE2 ile öğrenilmelidir.

10. FRE2’ nin değeri her zaman bilinmelidir.

11. Bütün programların silinmesi durumunda bu program şöyle çalıştırılır:

MODE 1 [BASIC durumuna geçilir.]

Shift 0 [P0 aktifleştirilir.]

CLEAR {programlar silinmeden önceki fre2 değeri}

POKE (2944+FRE2),{işe yaramayan ilk satırın bellekte kapladığı uzunluk}

RUN 100 [Satır numaraları değiştirildi ise 100’ün karşılığı satır]

1 ‘Ali ATAMAN Tapu-Kadastro Bol.Mud 0442-2331329 Erzurum

100 P=0:K=0:T=0:A=2944+FRE2:E=256*(PEEK1716+256*PEEK1717)-1:L=E-14:F=L:D=A:$=”Satir”

110 POKE L,A MOD 256:POKE L+1,A¥256:PRINT TAB(0);”P 0 :”;

120 IF PEEK A-P THEN GOTO(150+P/2.6)

130 L=L-15:K=K+1:A=A+1:B=A MOD256:C=A¥256

140 POKE L+18,B:POKE L+19,C:PRINT “OK!”;:T=0:D=A:IF K<11 THEN POKE L,B:POKE L+1,C:IF K<10 THEN PRINT TAB(0);”P”;K;”:”; ELSE PRINT TAB(0);”MEMO:”; ELSE 170

150 M=PEEKA+SGNPEEKA:IF K=10 THEN P=26:M=1:A=A-1:$=”Karakt”

160 A=A+M:T=T+1:PRINT CSR5;T;$;CSR16;A-D;”byte “;:GOTO 120

170 POKE1703,PEEK(F-150):POKE1704,PEEK(F-149):POKE1706,PEEK(F-147):POKE1707,PEEK(F-146)

180 K=2945+FRE2:$=CHR$(0)+CHR$(0)+ CHR$(32)+CHR$(2)+”Ali ATAM”:FOR I=K TO K+11:POKE I, ASC ( MID$(I-K+1,1):NEXT:END

Kaynak:http://www.geocities.com/aliataman2/