1 Temat przez Cyprian Ostatnio edytowany przez Cyprian (2023-01-01 14:16:45)

  • Skąd: Warszawa
  • Zarejestrowany: 2002-03-09
  • Posty: 4,815

czy Mad assembler ma może taką funkcjonalność definiowania tablicy etykiet/adresów, którą mógłbym wykorzystać z REPTem?

Poniżej poglądowy kod:

.array Etykieta[Sprite0, Sprite4, Sprite8, SpriteC]

    .rept 4
        ?Sprite = #
        ldy    Etykieta[?Sprite]
        .rept 7
            ?PrzesunSpritey = #
            lda    Etykieta[?Sprite] + (?PrzesunSpritey * 8) + 8
            sta    Etykieta[?Sprite] + (?PrzesunSpritey * 8)
        .endr
        sty Etykieta[?Sprite] + 56
    .endr


Sprite0:    
    dta    $00,     $00,     $40,     $80,     $80,     $40,     $00,     $00
Sprite1:    
    dta    $00,     $00,     $40,     $80,     $80,     $40,     $00,     $00
Sprite2:    
    dta    $00,     $00,     $40,     $80,     $80,     $40,     $00,     $00
Sprite3:    
    dta    $00,     $00,     $40,     $80,     $80,     $40,     $00,     $00

---edycja----
zamieniłem 'x' na '?Sprite' w Etykieta[x]

Atari: V4sa TT030 Falcon030 MegaST MegaSTe 1040STe 520STm 800XL 65XE Jaguar Lynx I/II 7800 Portfolio / VME: ATW800/2 Mach64 Mach32 ET4000 CrazyDots PAMNet / SM146 SC1435 SM124 / Antonia2 ATSpeedC16 TF536 PAK68/3
Megafile30 Atari1050 DDDHDD XCA12 SF314 / AVGCART SUBCART SidecarTridge ACSI2STM FujiNet LynxMultiCard SkunkBoard CosmosEx SatanDisk UltraSatan USBFloppyDriveEmulator SDrive SIO2PC Eiffel
http://260ste.atari.org

2 Odpowiedź przez pajero Ostatnio edytowany przez pajero (2023-01-01 10:34:47)

  • pajero
  • pajero
  • Podkasetarz
  • Nieaktywny
  • Skąd: Swarzędz k/Poznania
  • Zarejestrowany: 2004-02-07
  • Posty: 3,098
    .rept 5,# 
    
name:1 = :1*2    
    
    .endr

co daje:

Source: REPT
     0000            NAME0 = 0*2    
     0002            NAME1 = 1*2    
     0004            NAME2 = 2*2    
     0006            NAME3 = 3*2    
     0008            NAME4 = 4*2

Tomek, co knoce?    Ewidentnie nie można .rept   dać wewnątrz .array

      org $700
  
    
.array Etykieta[4][7]

    .rept 4,#
    
        .rept 7,:1,#
           
        Etykieta[:1*:2] = (:2 * 8) + 8   ;= ERROR: Constant expression violates subrange bounds
        Etykieta[:1][:2] = (:2 * 8) + 8  ;= ERROR: Constant expression violates subrange bounds

        .endr
     .endr    
.enda
http://madteam.atari8.info

pajero's Strona

3 Odpowiedź przez tebe

  • tebe
  • tebe
  • Podkasetarz
  • Nieaktywny
  • Skąd: Poznań / Mosina
  • Zarejestrowany: 2002-04-06
  • Posty: 3,126

poprzez makro w którym będzie rept 7

*- TeBe/Madteam
3x Atari 130XE, SDX, CPU 65816, 2x VBXE, 2x IDE Plus rev. C

tebe's Strona

4 Odpowiedź przez pajero Ostatnio edytowany przez pajero (2023-01-01 12:18:58)

  • pajero
  • pajero
  • Podkasetarz
  • Nieaktywny
  • Skąd: Swarzędz k/Poznania
  • Zarejestrowany: 2004-02-07
  • Posty: 3,098

.macro w .array także kaput

      org $700
      
.macro wpisz
    
    .rept 7,:1,#
           
        .print :1,:2           
    .endr  
.endm    


    wpisz 1  ; OK

.array Etykieta[4][7]
       
        wpisz 1    ;=ERROR: Undeclared label WPISZ1 (BANK=0)
        
.enda
http://madteam.atari8.info

pajero's Strona

5 Odpowiedź przez Cyprian Ostatnio edytowany przez Cyprian (2023-01-01 14:24:51)

  • Skąd: Warszawa
  • Zarejestrowany: 2002-03-09
  • Posty: 4,815

dzięki za pomoc.

Na razie zrobiłem to używając IF/ELSEIF/ENDIF.

    .rept 4
        .if # = 0
            ?Sprite = Sprite0
        .elseif # = 1
            ?Sprite = Sprite4
        .elseif # = 2
            ?Sprite = Sprite8
        .elseif # = 3
            ?Sprite = SpriteC
        .endif

        .rept 8
            ?PrzesunSpriteX = #
            ldy ?Sprite + ?PrzesunSpriteX

            .rept 7
                ?PrzesunSpritey = #
                lda ?Sprite + ?PrzesunSpriteX + (?PrzesunSpritey * 8) + 8
                sta ?Sprite + ?PrzesunSpriteX + (?PrzesunSpritey * 8)
            .endr

            sty ?Sprite + ?PrzesunSpriteX + 56
        .endr

    .endr

Swoją drogą może jest szansa na dodanie do MAD Assemblera czegoś nowego?
Poniższe mogłoby robić to samo co IF/ELSEIF/ENDIF, jest krótsze i ładniejsze:

.array Etykieta[Sprite0, Sprite1, Sprite2, Sprite3]

    .rept 4
        lda    Etykieta[#]+8
        sta    Etykieta[#]
    .endr
Atari: V4sa TT030 Falcon030 MegaST MegaSTe 1040STe 520STm 800XL 65XE Jaguar Lynx I/II 7800 Portfolio / VME: ATW800/2 Mach64 Mach32 ET4000 CrazyDots PAMNet / SM146 SC1435 SM124 / Antonia2 ATSpeedC16 TF536 PAK68/3
Megafile30 Atari1050 DDDHDD XCA12 SF314 / AVGCART SUBCART SidecarTridge ACSI2STM FujiNet LynxMultiCard SkunkBoard CosmosEx SatanDisk UltraSatan USBFloppyDriveEmulator SDrive SIO2PC Eiffel
http://260ste.atari.org