[zxspectrum] Re: [zxspectrum] Re: [zxspectrum] Re: [zxspectrum] Re: [zxspectrum] [zxspectrum] Re: [zxspectrum] Re: [zxspectrum] Re: [zxspectrum] Re: [zxspectrum] PCTAPOD può essere utile?

  • From: Enrico Maria Giordano <e.m.giordano@xxxxxxxxxxxxxxx>
  • To: zxspectrum@xxxxxxxxxxxxx
  • Date: Sun, 25 Aug 2019 19:47:38 +0200

La routine è questa, qualcuno capisce perché si blocca alla fine del caricamento?

    ORG  40000

    LD   HL,BAS
    CALL EXE
    RET

BAS DEFB 239 ; LOAD
    DEFB "*"
    DEFB 176 ; VAL
    DEFB """
    DEFB "1"
    DEFB """
    DEFB ";"
    DEFB """
    DEFM "hands"
    DEFB """
    DEFB 170 ; SCREEN$
    DEFB 13

EXE PUSH HL
    CALL 5808
    LD   HL,(23641)
    LD   BC,130
    CALL 5717
    INC  HL
    EX   DE,HL
    POP  HL
    LD   BC,128
    LDIR
    SET  7,(IY+48)
    LD   (IY+0),255
    LD   (IY+10),1
    LD   HL,(23613)
    PUSH HL
    LD   HL,BSR
    PUSH HL
    LD   (23613),SP
    CALL 7050
    POP  HL
BSR POP  HL
    LD   (23613),HL
    CALL 5808
    LD   A,(23610)
    RET

EMG

http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg

Other related posts:

  1. Home
  2. zxspectrum
  3. Archive
  4. 08-2019