Software > Coding

Was hindert den Turboasm, eine INL für ds GFA-basic zu erstellen.

<< < (6/7) > >>

guest3744:
Alle 5 Werte werden nacheinander ausgegeben.
Der komplette Data-Kopf ab Malloc wurde vom Turboasm erzeugt, wusste gar nicht das der es kann.
Ist gut zum weitergeben gedacht.

Danke.
Gruss


--- Code: ---CLS
inl%=MALLOC(84)
FOR i%=0 TO 83
  READ b%
  POKE inl%+i%,b%
NEXT i%
DATA &20,&2F,&00,&04,&E5,&40,&41,&FA,&00,&34,&22,&48,&D2,&C0,&91,&D1
DATA &4E,&D0,&4E,&75,&20,&3C,&00,&00,&00,&64,&4E,&75,&20,&3C,&00,&00
DATA &00,&C8,&4E,&75,&20,&3C,&00,&00,&01,&2C,&4E,&75,&20,&3C,&00,&00
DATA &01,&90,&4E,&75,&20,&3C,&00,&00,&01,&F4,&4E,&75,&00,&00,&00,&01
DATA &00,&00,&00,&28,&00,&00,&00,&20,&00,&00,&00,&18,&00,&00,&00,&10
DATA &00,&00,&00,&08
'
FOR z%=1 TO 5
  par1%=z%
  wert1%=@eins(par1%)
  PRINT wert1%
  PAUSE 50
NEXT z%
END
'
FUNCTION eins(p1%)
  $F%
  RETURN C:inl%(L:p1%)
ENDFUNC
'

--- Ende Code ---

guest3744:
Hallo, welcher Texteil  ist bitte unten mit für den Aufruf entscheidend?
Ist es das Wort : tabelle?

Danke.
Gruss

laufkopf:

--- Zitat von: peter hold am Mo 21.09.2015, 23:27:21 ---Hallo, welcher Texteil  ist bitte unten mit für den Aufruf entscheidend?
Ist es das Wort : tabelle?

Danke.
Gruss

--- Ende Zitat ---

siehe #20

guest3744:
Danke.
Jetzt hat es gefunkt.

Gruss

laufkopf:

--- Zitat von: laufkopf am Mo 21.09.2015, 20:43:37 ---So funktioniert es

--- Zitat ---         move.l   4(SP),D0
         asl.w   #2,D0
         lea      tabelle(PC),A0
         move.l   a0,a1
         add      d0,a1
         sub.l  (A1),A0
         jmp     (A0)
         rts

eins:
         move.l   #100,d0
         rts
zwei:
         rts
drei:
         rts
vier:
         rts
fuenf:
         rts

tabelle:   DC.L 1
         DC.L tabelle-eins
         DC.L tabelle-zwei
         DC.L tabelle-drei
         DC.L tabelle-vier
         DC.L tabelle-fuenf
         
--- Ende Zitat ---

--- Ende Zitat ---

Geht auch etwas einfacher..

--- Code: --- move.l 4(SP),D0
add.l d0,d0
add.l d0,d0
jsr tabelle(pc,d0)
rts

tabelle: bra.w dummy
bra.w eins
bra.w zwei
bra.w drei
bra.w vier
bra.w fuenf

dummy: rts

eins: move.l #100,d0
rts

zwei: move.l #200,d0
rts

drei: move.l #300,d0
rts

vier: move.l #400,d0
rts

fuenf: move.l #500,d0
rts
--- Ende Code ---

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete