Sharp CE-140P User Manual download pdf (Page 57)

;

~

:

.;

,

irici

,

b

;

:

~

~

• : :

:..

: ."

STEP

S T

Ich

Step

by

Die

BASIC

Durch

in

Der

Im

Routinen

1st

mit

den

Programm

Basic

Die

ML

Bei

Die

Die

geandert

Aber

"

fUr

und

I:RE"

WIE

18:DATA

878

199

48:DATA

'.

: ·

:

·

:r:

rii-Bo

m

ma

t

~

:

<:

i

~

b

-

fM

~~

~;

~

i

'

ci

r.

ri;

•

-:

".

~

.

.. ..

~

'

..

: '. :

..

c

:-

....

a_"

: :

...

: '

.....

. : ....

~

:

-

...

~

...

~

..

:

..

:

!

~:

......

::

..

:.:

BY

"

STEP

E P

B Y

_S ,T E P

ASS

E M B L E R

~.

habe

fUr

~eri

PC

1401

(

Modell

FAC

)

einen

in

BASIC

Ste~

Assembler

geschrieben.

erzeugten

ML

Programme

stehen

ab

Adresse

14341

in

den

Zeilen.

Um

die

dazwischetl

liegenden

Daten

der

BASIC

Uberspringen,

werden

automatisch

Sprungbefehle

in

da~

ML

eing~fijgt

•

einfaches

Andern

der

Zeile

305

kann

abe.r

auch

jeder

andeye

Frage

kommende

Speicherbereich

fUr

das

ML

Progr.

vorgesehen

werden.

Die

eingegebenen

Mnemonics

und

die

Daten

mUGen

ohne

Zwischenraum

eingegebe-n

we-rden,

z.B.

LIA02

oder

LIDP1122

•

ML

Befehl

wird

dann

libersetzt,

a/jointfilesconvert/338009/bgespeichert

und

ausgedruckt.

Speicher

ist

mit

dem

ASSEMBLER

noch

ausreichend

Platz,

um

BASIC

Test-

zum

testen

der

Programme

zu

schreiben.

das

ML

Progr.

fertig,

so

kann

das

ASSEMBLER

Progr.

ab

Zeile

10.

einem

BASIC

Programm

liberschrieben

werden,

das

die

ML

Routinen

in

ersten

neun

Zeilen

Aufruft.

Mit

Tricks

ist

es

auch

mijglich

das

ab

Zeile

10

zu

16schen,

und

mit

einer

MERGE

Routine

ein

neues

Programm

nachzuladen.

Routinen

konne-n

wie

BASIC

Ze-ilen

a/jointfilesconvert/338009/bgespeichert

werden.

LLIST

der

~rsten

9

Zeilen

kann

sich

aber

der

Drucker

aufhangen.

Alle-Eingaben

mussen

dezimal

erfolgen.Die

Ausgabe

ist

ebenfalls

dezimal.

Verwendung

de,,:

DATA

Zeilen

ermoglicht

das

ladet)

in

einem

Zug.

Zeilennummern

der

DATAs

sowie

der

Inhalt

dUrfen

aber

ke-inesfalls

werden

• .

Oder

man

entwirft

einen

neuen

Algorithmus

in

Zeile

314.

Leute

die

sich

an

ML

Programme

her

ann

machen

durften

Anderunge-n

Verbesserungen

ZEILE~

1

BIS

9

ZE-ILE

1

"ADB-,1828,-ADC

~-,lt96,-ADIA-,2116,

-ADI~~,2112,~AD"·,18

68,-ADtoi-,1912

11:DATA

-ADW",1814,"AHI

A-,2188,-A~ID-,2212,

-A~I"-,2996,-AH~A·,1

38:DATA

·CAL-,2224,·CAL

L·,3128,-CPIA·,2183,

·CPI"·,2899,·CP"A-,1

"DECA",1867,·DE

CB·,119S,·DECI·,186S

,-DECJ·,1193,·DECK·,

1873,-DECL-,1281

41:~ATA

-DECP-,1991,-DX

-,le8S,·DXL",1937,-D

Y-,1887,·DYS",1839

58:DATA

·EXAI",1218,-EX

A"-,1219,-EXI·,1911,

·EXBD",lg~7,-EXW·,18

89,-EXWD",182S

68:»ATA

-FILD-,1831,-FI

L"·r1838

9t:DATA

·IHA·,1876,-IHI

·,1284,-IHCA-,186',"

IHCB·,1194,·I~CI·,18

-64,

-

IHcr,

1192

91:DATA

"IHCK",1972,·IH

CL·, 128e,·IHCp·,

1888

,·IY·,1886,·IYS·,183

8,·IX·,1884

92:DATA

·IXL·,1836

188:DATA

·JP·,3121,"JPC·

,3127, "JPHC·,312S,·J

PHZ-,3124,-J~,3126

,·JRC"·,2859

181:DATA

·JPRC·,2858,·JR

"-,2e45'·JRNC"·,2943

,·JRHC~,2842,·JRHZ"

-,2841,·JRHzp·,2t41

des

Progr.

keine

Schwierigkeiten

berei

·

te:n.

18:i:DATA

·JRP·,284~,-JRZ

".,

28S7, -JRZp.,

28S6

128:DATA

-LEAYE-,1216,·L

DD·,1887,-L»"·,19S9,

-LDp·, le32,

·LDQ-,

183

'

3,

·LDR·,

1834

121fDATA

-LIA-,2992,·LIB

",2ee3,"LIDL-,t817,-

LIDp·,3816,-LII·,288

g,·LIr,2eel

122:DATA

-Llp·,2818,·LI9

¥,2e19,·LOOp-,2e47,~

1,.P-,1128

123:DATA

-"YB·,1819,·"YB

D·,1826,·"YD,,·,1983,

""Y"D·,1885,·"YW·,18

88

138:DATA

""YB",1818,-"'YB

D-,1826,-"YD"-,1983,

~"Y~D-,1885,""Y~",le

eg,-I'IVW!)·,le24

148::ilATA

¥t.;C,o-·,!206,-NO

?W·,1077

lS8:DATA

-OR!A",2191,-OR

ID·,2213,·ORIM-,2997

,·OR"A-,1871,"OUTA-,

1893;·OUTB·,1221

151:DATA

-OUTF-,1895,-OU

Te-,1223

16Q:DATA

·POP·,

1891"

-PUS

W,1852

188:.DATA

"RC·, 1289, ·RTH-

,1855

198:DATA

"SBB-,1921,·SIC

"-,1197,·SBIA·,2117,

"SBI~·,2113,·SB"·,18

69,

-SBH-,

1!H3

191&DATA

·SBW·,191S,·SC-

,1289, "SL·, 1998,

-SLW

",1829,·SR·,1218,·SR

1i-r1828

192:DATA

"STD-,1882,·STP

-,1048,"STQ-,1849,-S

iR, 185e,

"SWP--,

l89S

288:uATA

·TEST·,2187,·TS

lA-

,218211

"TSID·

,2214

,-TSI"",2898

Joachim

Busse

Altlander

StraGe

15

2800

Br

emen

66

238:uATA

·WALT-,2~7S

258:RE"

(C)

1985

JOACHi"

BUSSE

lIREI'IEH

398:»1" "$(8).9:USIHG

-,

UtU-

395:5=14341

318:IHPUT

-"HE".:-;"f(8)

:L=l

311:iF

ASe

"IDS

(~S(O),L

,i)}64

THEh

LET

L=L+

l:GOTO

311

3!.2H.=l-1

313:~~YAL

-

RIGHT$

(/'IS(O),

~EH

"SX8)-L),F~

IHT

(M/256),E=H-F*256

314:~$=LEFTS

(~S(9),L):

RESTORE

«ASe

(LEFTS

(/'IS,

1»-6~).18)

328:READ

As,D:IF

AS("$

THEN

328

345:11=

IHT

(D/lee9),C=D-

~.1988

358:FOR

1=1

TO

~+2:IF

'

?EE~

(5+1)=13

THEN

?OKE-

S,44;:+4:S=s+r+

5

351:MEXT

I

357:iF

AS~-LP-

THEN

PO~E

S,

C+E:

S=S+1:

GOTO

388

.359:

IF

AS=-CAL

-

THEN

POKE

S,e+F,E:saS+2:

GOTO

3a8

3651POKE

S,C:SzS+l

378:IF

»=2

THEN

POKE

S,

E:S-S+l:IF

B=3

THEN

POKE

S,F:S=S+l

38iH

(j$=STRS

(F*256+EH

IF

~=1

THEN

LET

GS=_·

398:~PRiHT

STRs

(S-B);Af

;Gs

40e:

IF

S>l.S98e

Ti-iEH

BEE?

l:P~IHT

9NCCH

·;1595

6-5;-

BVTS·

418:1F 5(15956

T~EN

GOTO

318

~eft

16

~eite

57

#

. -

:..,..,..,-

-

~~

-.

• ,

.-

-I

'

~

~

'!'

• _

.;1"..-1

..

,,,,,,;.,.

. -

",#w

-

",,;

..

.

.",_

.

_-,..,.....,.-

...

ersten

neun

Zeilen

zu

Programm

.

'a:

~

f.

;r

1111.

z.t::

~:

·;:

IIt:

I\

"

~~'),::~

()~

f~

~

t

f;

\:t\;{~,

~~oli'l

IIII

~1~'J

~L:I!V

<

~

'!\

'li~

':

C

r-i

-.

:.

(;11

I

~

~--!

'~igr

·

\

~7'jJik"

i'

/~

t!J'111

-

~.

•

a

~~

":.·

..

!

~~\

.'

;

.

t

·

h";:G'1:

.

i~:~~r/·~f~'tl

~

~{

I.

III

lil

l • .

,.

El

r:11

r':l'~l':~:

...

'L:Jl

~r,~:::

i;

.!

11111

~}:

~;:!

El

d!l

.

la

1~

.........

",h

.....

~

~EJ

',8

~r:r

~8

J~!l!J

'

~8~\~0

.

(~)'

~~r:B

'0

\

,!,

.

~EJ

JIG

El

:

~Gr

:

[3

Er

-0

:

'8

·.

0;

~B

:'(~l

[~l.

=13

:I~r

;

0j

-

J~

)7;1

«

(3

',;

t:J I

L.J;

_

:;

I.J::.

I/IU

r;.r.;J

C~

1S':3-a

IIf)"'OC

CLt<I

C

r.:S

~

.... tll::I:

013

.cue

00

CL.

<I

!!!!!!!!!!!!!~~J~)

J~J..

J~

Cl.,

UW#

,

.:.

'l~

_

SHARP

-

-

-

Comp

·

uter

~

....

..:.

~

.

1 2 ... 52 53 54 55 56 57 58 59 60

Comments to this Manuals

No comments