Author Topic: Neues BASIC/Z80 Rätsel  (Read 1605 times)

0 Members and 1 Guest are viewing this topic.

Offline oobdoo

  • CPC464
  • **
  • Posts: 30
  • Country: de
  • https://www.thingiverse.com/oobdoo/about
  • Liked: 20
  • Likes Given: 1
Neues BASIC/Z80 Rätsel
« on: 16:29, 11 February 15 »
Code: [Select]
10 out &bc00,7:out &bd00,32
20 print "hallo"
30 out &bc00,7:out &bd00,30

Funktioniert in BASIC. Mein Versuch das in Assembler nachzubilden scheitert.  :(

Code: [Select]
org  &4000

ld a,7
ld c,&bc
out (c),a

ld a,32
ld c,&bd
out (c),a

call &bd19
call &bd19

ld a,7
ld c,&bc
out (c),a

ld a,30
ld c,&bd
out (c),a

ret

Keine Bewegung am Bildschirm zu sehen. Getestet mit WinCPC.
« Last Edit: 16:35, 11 February 15 by oobdoo »

Offline oobdoo

  • CPC464
  • **
  • Posts: 30
  • Country: de
  • https://www.thingiverse.com/oobdoo/about
  • Liked: 20
  • Likes Given: 1
Re: Neues BASIC/Z80 Rätsel
« Reply #1 on: 16:43, 11 February 15 »
 :(

Hab mich vom out (c),a irritieren lassen und nur ein ld c,&xx gemacht. Muß aber ld bc,&xxxx sein.

 :)

Offline TFM

  • Visit the mysteries of the CPC at www.futureos.de
  • Supporter
  • 6128 Plus
  • *
  • Posts: 9.899
  • Country: aq
  • Space Chicken for FutureOS is free!
    • index.php?action=treasury
    • FutureOS - The revolution on CPC!
  • Liked: 1976
  • Likes Given: 4650
Re: Neues BASIC/Z80 Rätsel
« Reply #2 on: 19:40, 11 February 15 »

Ich korregiere mal... (nicht getestet)



Code: [Select]
10 out &bc00,7:out &bd00,32
20 print "hallo"
30 out &bc00,7:out &bd00,30

Funktioniert in BASIC. Mein Versuch das in Assembler nachzubilden scheitert.  :(

Code: [Select]
org  &4000

ld bc,&bc07
out (c),c

ld bc,&bd20
out (c),c

call &bd19
call &bd19

ld c,&bc07
out (c),c

ld bc,&bd1E
out (c),c

ret

Keine Bewegung am Bildschirm zu sehen. Getestet mit WinCPC.
TFM of FutureSoft
Also visit the CPC and Plus users favorite OS: FutureOS - The Revolution on CPC6128 and 6128Plus

Offline Prodatron

  • 6128 Plus
  • ******
  • Posts: 830
  • Country: de
  • Back on the Z80
    • index.php?action=treasury
    • SymbOS SYmbiosis Multitasking Based Operating System
  • Liked: 1059
  • Likes Given: 554
Re: Neues BASIC/Z80 Rätsel
« Reply #3 on: 20:52, 11 February 15 »
Ich korregiere mal... (nicht getestet)

Funktioniert bis auf den kleinen Flüchtigkeitsfehler mit
Code: [Select]
ld c,&bc07genau wie gewünscht.
Code: (WinApe) [Select]
org  #4000

ld bc,#bc07
out (c),c
ld bc,#bd20
out (c),c

call #bd19
call #bd19

ld bc,#bc07
out (c),c
ld bc,#bd1e
out (c),c

ret

GRAPHICAL Z80 MULTITASKING OPERATING SYSTEM