Author Topic: Verseny ötlet (Read 43653 times)

endi · « **Reply #105 on:** 2018.May.01. 19:39:21 »

8 bit fonts-ra rákeresve vannak jó találatok amik megvalósíthatók 8x9 pixelen is:

https://www.dafont.com/04b-30.font
https://www.dafont.com/pixel-lcd7.font

geco · « **Reply #106 on:** 2018.May.01. 19:40:02 »

Találtam egy hibát az előző verziókban a scrollozásban, azt javítottam, és elkészült Endi változata is.
space: karakter kiválasztása
esc: karakterkészlet reset
enter: kilépés

Quote from: IstvanV on 2018.May.01. 17:56:15

Az 1K-snál ez a megoldás nem lenne jobb, de azon is lehetne még egy keveset javítani. Talán azzal is, ha a karakterkészleteket generáló rutinokat nem külön CALL utasítások hívnák, hanem ha egyébként is közvetlenül egymás után vannak, akkor a RET utasítások törlésével összefűzhetők. Így lehet, hogy még egy elférne.

Nagyon jó ötlet,sőt akár 2 kisebb is talán

Holnap meg is csinálom.

endi · « **Reply #107 on:** 2018.May.01. 19:51:24 »

na ez tök jó. pl egy kicsinyítés és egy körvonal tök jó eredményt ad

geco · « **Reply #108 on:** 2018.May.02. 08:22:05 »

Quote from: endi on 2018.May.01. 19:51:24

na ez tök jó. pl egy kicsinyítés és egy körvonal tök jó eredményt ad

Én fordított sorrendben próbáltam

IstvanV · « **Reply #109 on:** 2018.May.02. 14:09:31 »

Néhány további próbálkozás méretcsökkentésre:
[ Guests cannot view attachments ]
[ Guests cannot view attachments ]
[ Guests cannot view attachments ]

Code: Diff

@@ -10,8 +10,10 @@
 
         org     160h
 
 startpr ld      sp,0100h
+        ld      a,0ffh
+        out     (0b2h),a
         ld      hl,hiba
         ld      (0bff8h),hl
         xor     a
         ld      de,video
@@ -26,12 +28,17 @@
         ld      a,0ffh
         out     (0b3h),a
         call    vid
         out     (0b1h),a
-        call    memaddr
-        ld      l,h
-        ld      h,00h
-        add     hl,hl
+ ;      call    memaddr
+ ;      ld      l,h
+ ;      ld      h,00h
+ ;      add     hl,hl
+        and     03h
+        rra
+        ld      h, a
+        rra
+        ld      l, a
         ld      (chradd+1),hl
         ld      ix,chraddr
         call    fillcha
         ld      hl,(chradd+1)
@@ -69,9 +76,11 @@
         exx
 fillpt  xor     a
         call    wide44
         call    wide44
-        call    wide40
+ ;      call    wide40
+        ld      de,0b33h
+        call    filllpb
         exx
         add     hl,de
         exx
         djnz    fillpt
@@ -110,61 +119,63 @@
         pop     hl
         ld      bc,1bh*0480h
         ldir
         call    edgefnt
-        call    edgfnt2
-        call    fontmod
-        call    fntmod2
-        call    ibmchar
-        call    botemp1
-        call    botemp2
-        call    chrendi
-        call    chrthin
+ ;      call    edgfnt2
+ ;      call    fontmod
+ ;      call    fntmod2
+ ;      call    ibmchar
+ ;      call    botemp1
+ ;      call    botemp2
+ ;      call    chrendi
+ ;      call    chrthin
         call    chrhftn
         call    chrital
         call    chrita1
         call    chrita2
         call    chrvshp
         call    fntend1
-        call    fntend2
-        call    fntend3
-        call    fntend4
-        call    fntszp1
+ ;      call    fntend2
+ ;      call    fntend3
+ ;      call    fntend4
+ ;      call    fntszp1
         call    fntszp2
         call    fntszp3
         call    fntszp4
         xor     a
         ld      (actpos+1),a
         di
-        ld      a,0c3h
-        ld      hl,intrut
-        ld      (0038h),a
-        ld      (0039h),hl
+        ld      a, 09h
+        ld      i, a
+        im      2
         ei
         ld      ix,(lptadd+1)
 xxx     call    keys
 animval jr      xxx
 chraddx ld      hl,0b480h
 animate call    chrani1
         jr      xxx
 
-intrut  push    af
-        push    bc
-        push    hl
-        ld      a,30h
-        out     (0b4h),a
-        pop     hl
-        pop     bc
-        pop     af
-        ei
-        ret
+hiba1   di
+        im      1
+hiba    ld      sp,0100h        ;0124
+        ld      a,0ffh
+        out     (0b2h),a
+        ld      hl,hiba         ;0124h
+        ld      (0bff8h),hl
+        ld      c,40h
+        exos    0
+        ld      a,01h
+        out     (0b3h), a
+        ld      a,06h
+        jp      0c00dh
 
 keys    halt
         halt
-        ld      c,03h
+        ld      c,0
         call    extjoy          ;ext1
         ld      d,e
-        ld      c,08h
+        ld      c,5
         call    extjoy          ;ext2
         ld      a,e
         and     d
         ld      d,a
@@ -300,17 +311,16 @@
         ret
 
 aniaddr dw      chrani1,chrani2,chrani3,chrani4
 
-extjoy  ld      b,03h           ;fire up down
-        ld      e,0ffh
+extjoy  ld      e,3fh           ;fire up down
 extjoy1 ld      a,c
-        sub     b
+        inc     c
         out     (0b5h),a
         in      a,(0b6h)
         rra
         rl      e
-        djnz    extjoy1
+        jr      nc,extjoy1
         ret
 
 edgefnt ld      hl,(chradde+1)
         ld      de, tmpFont
@@ -347,9 +357,9 @@
         add     ix, de
         ld      a, l
         add     a, a
         jr      nz, .l1 
-        ret
+ ;      ret
 
 edgfnt2 xor     a
         ld      hl, tmpFont - 256
 .l0:    ld      (hl), a
@@ -384,9 +394,9 @@
         add     ix, de
         ld      a, l
         add     a, a
         jr      nz, .l1 
-        ret
+ ;      ret
 
 fontmod ld      hl,chrset+2*0480h
         ld      c, 4
         ld      de, 128
@@ -396,9 +406,9 @@
         inc     hl
         djnz    .l2
         dec     c
         jr      nz, .l1 
-        ret
+ ;      ret
 
 fntmod2 xor     a
         ld      hl, tmpFont - 256
 .l0:    ld      (hl), a
@@ -430,9 +440,9 @@
         djnz    .l2
         rlc     d
         dec     c
         jr      nz, .l1 
-        ret
+ ;      ret
 
 ibmchar ld      hl,chrset+4*0480h
         ld      de,0080h
         ld      c,04h
@@ -442,9 +452,9 @@
         inc     hl
         djnz    delch2
         dec     c
         jr      nz,delch1
-        ret
+ ;      ret
 
 botemp1 ld      hl,chrset+5*0480h
         ld      de,0080h
         add     hl,de
@@ -462,9 +472,9 @@
         inc     hl
         djnz    carry
         dec     c
         jr      nz,delcha
-        ret
+ ;      ret
 
 botemp2 ld      hl,chrset+6*0480h
         ld      c,09h
         ld      e,0ffh
@@ -480,9 +490,9 @@
         inc     hl
         djnz    carryb
         dec     c
         jr      nz,delchb
-        ret
+ ;      ret
 
 chrendi ld      hl,chrset+7*0480h
         ld      c,09h
         ld      e,0ffh
@@ -498,9 +508,9 @@
         inc     hl
         djnz    delch3
         dec     c
         jr      nz,delchc
-        ret
+ ;      ret
 
 chrthin ld      hl,chrset+8*0480h
         ld      c,09h
 delchd1 ld      b,80h
@@ -619,9 +629,9 @@
         add     hl,de
         exx
         dec     c
         jr      nz,fnte11
-        ret
+ ;      ret
 
 fntend2 ld      hl,chrset+15*0480h+8*80h
         exx
         ld      c,80h
@@ -653,9 +663,9 @@
         add     hl,de
         exx
         dec     c
         jr      nz,fnte21
-        ret
+ ;      ret
 
 fntend3 ld      hl,chrset+16*0480h+8*80h
         exx
         ld      c,80h
@@ -682,9 +692,9 @@
         add     hl,de
         exx
         dec     c
         jr      nz,fnte31
-        ret
+ ;      ret
 
 fntend4 ld      hl,chrset+17*0480h+8*80h
         exx
         ld      c,80h
@@ -714,9 +724,9 @@
         add     hl,de
         exx
         dec     c
         jr      nz,fnte41
-        ret
+ ;      ret
 
 fntszp1 ld      hl,chrset+18*0480h+1
         ld      de,0007h
         ld      bc,8010h
@@ -857,32 +867,18 @@
 mask2   db      3fh
 
         defs    low -$
 chraddr defs    numchr*4*3
-hiba1   ld      a,0f5h
-        ld      hl,1837h
-        ld      (0038h),a
-        ld      (0039h),hl
-hiba    ld      sp,0100h        ;0124
-        ld      a,0ffh
-        out     (0b2h),a
-        ld      hl,hiba         ;0124h
-        ld      (0bff8h),hl
-        ld      c,40h
-        exos    0
-        ld      a,01h
-        out     (0b3h), a
-        ld      a,06h
-        jp      0c00dh
+
             ;   00  01  02  03  04  05  06  07  08  09  0a  0b  0c  0d  0e  0f
             ;   00  02  04  06  08  0a  0c  0e  10  12  14  16  18  1a  1c  1e
 mask    db      00h,02h,04h,02h,08h,0ah,04h,1eh,20h,22h,24h,22h,28h,2ah,28h,3eh
             ;   20  22  24  26  28  2a  2c  2e  30  32  34  36  38  3a  3c  3e
         db      40h,42h,44h,42h,48h,4ah,44h,5eh,60h,42h,44h,62h,58h,4ah,7ch,7eh
 
 
-wide40  ld      de,0b33h
-        jr      filllpb
+;wide40 ld      de,0b33h
+;       jr      filllpb
 wide44  ld      de,0935h
 filllpb ld      (hl),d
         inc     l
         ld      (hl),e
@@ -903,18 +899,22 @@
         add     a,2ch
         ret
 
 fillcha ld      b,numchr
-fillch1 ld      (ix+0),l
-        ld      (ix+1),h
-        ld      (ix+2),l
-        ld      (ix+3),h
-        ld      (ix+4),l
-        ld      (ix+5),h
         ld      de,0009h
+fillch1 ld      (ix),l
+        inc     ix
+        ld      (ix),h
+        inc     ix
+        ld      (ix),l
+        inc     ix
+        ld      (ix),h
+        inc     ix
+        ld      (ix),l
+        inc     ix
+        ld      (ix),h
+        inc     ix
         add     hl,de
-        ld      de,0006h
-        add     ix,de
         djnz    fillch1
         ret
 
 colors  db      20h,04h,24h,0a4h,34h,0b4h,26h,0a6h,36h,0f6h,0feh,0f7h,0ffh,0ffh
@@ -948,15 +948,28 @@
         ld      a,c                            ;a contains the page
 ;        jp      z,hiba
         ret
 
-memaddr ld      hl,0000h
-        rra
-        rr      h
-        rra
-        rr      h
-        ret
+;memaddr ld      hl,0000h
+;       rra
+;       rr      h
+;       rra
+;       rr      h
+;       ret
 
 video   db      6,"VIDEO:"
+
+        block   0a0ah - $, 0ah
+
+intrut  push    af
+ ;      push    bc
+ ;      push    hl
+        ld      a,30h
+        out     (0b4h),a
+ ;      pop     hl
+ ;      pop     bc
+        pop     af
+        ei
+        ret
 vege
 
 fillen  equ $-startpr

Szerk.: a VID rutinon is lehet egyszerűsíteni:
[ Guests cannot view attachments ]

endi · « **Reply #110 on:** 2018.May.02. 14:37:03 »

Quote from: geco on 2018.May.02. 08:22:05

Én fordított sorrendben próbáltam

amúgy ha az elején nem resetelné a karaktereket akkor más karakterkészletekre is rá lehetne nyomni ezeket az effekteket

szipucsu · « **Reply #111 on:** 2018.May.02. 19:03:54 »

Quote from: endi on 2018.May.02. 14:37:03

amúgy ha az elején nem resetelné a karaktereket akkor más karakterkészletekre is rá lehetne nyomni ezeket az effekteket

Például karakteres képernyőn futó Hamika vagy Pacman megváltoztatná a karakterkészletét, amikor bónusz powerupot vesz fel. Ezt a karakteres átírós effektet egész jól lehetne használni ilyen játékokban! (Már ha egyáltalán említésre méltó ez a "kétszínű" karakteres képernyő.) Bár ott nem kell feltétlen az összes karakterre alkalmazni, és lehetnek teljesen egyedi átmeneti karakterek is.
Vagy szöveges kalandjátékban megváltozhatna a karakterkészlet olykor, pl. ha kevés az energia, valami nagy esemény történik, stb. Laci úgyis rengeteg kalandjátékot készített EP-re, lehetne azokban is ilyet csinálni. Nem tudom, ilyen nem jutott-e még eszébe senkinek, de akár zavaró is lehet, ha pl. a kastélyban másmilyenek a karakterek, mint a tónál.

geco · « **Reply #112 on:** 2018.May.02. 21:06:19 »

Maradtam a régi kicsomagoló rutinnál. és a régi csomagolási paramétereknél, mert a csomagolt fájlok kisebbek voltak 2-5 bájttal a régi csomagolási paraméterekkel, és az 1KB-s verzió 1023 bájt lett, és ha jól láttam az új rutin két bájttal lett kisebb, mint a régi, így több dolgot nem sikerült volna belezsúfolni az 1Kb-s verzióba, amit alaposan átalakítottam javaslataidat is felhasználva

(most látom, hogy nem az összeset), így 12 helyett 17 karakterkészlet fért bele

A karaktermódosító verziót is módosítottam, már nem reseteli a karakterkészletet az elején.

IstvanV · « **Reply #113 on:** 2018.May.02. 22:29:42 »

Kisebb probléma lehet még, hogy eredeti EXOS ROM esetén a program indításakor engedélyezett a megszakítás, ezért lefagyhat DI és LD SP nélkül. Ezt az EXOS 0 hibája okozza (C=10h vagy 20h használatakor), amit Zozosoft javított a 2.32 verzióban, de az emulátor csomagjában a régebbi változatok is tartalmazzák a javítást. Azonban DI utasítással is pontosan 1024 byte a CHRSET1K.COM.

Bár ezzel a csomagolással még sikerült 1021-re faragni (gyakorlatilag véletlenszerű, hogy melyik lesz néhány byte-tal kisebb):
[ Guests cannot view attachments ]

geco · « **Reply #114 on:** 2018.May.03. 08:45:19 »

Quote from: IstvanV on 2018.May.02. 22:29:42

Kisebb probléma lehet még, hogy eredeti EXOS ROM esetén a program indításakor engedélyezett a megszakítás, ezért lefagyhat DI és LD SP nélkül. Ezt az EXOS 0 hibája okozza (C=10h vagy 20h használatakor), amit Zozosoft javított a 2.32 verzióban, de az emulátor csomagjában a régebbi változatok is tartalmazzák a javítást. Azonban DI utasítással is pontosan 1024 byte a CHRSET1K.COM. Bár ezzel a csomagolással még sikerült 1021-re faragni (gyakorlatilag véletlenszerű, hogy melyik lesz néhány byte-tal kisebb):

Áhá, ezt nem tudtam, azért is vettem ki a DI-t mert alapból tiltott megszakítással indult a program, az 1024 meg pont jó

, gyanúsan lehetne még pár bájtot nyerni átrendezéssel, és call-ok megszűntetésével, nem tudom lehetne-e egy újabb karakterkészletet nyerni.

endi · « **Reply #115 on:** 2018.May.03. 15:30:41 »

asszem ilyen lapos még nem volt

geco · « **Reply #116 on:** 2018.May.03. 15:46:51 »

Quote from: endi on 2018.May.03. 15:30:41

asszem ilyen lapos még nem volt

Jól néz ki, nem volt még ilyen, ha jól látom ,csak összenyomod a karaktereket felülről 1 pixelsorral, és alulról 1 pixelsorral.

IstvanV · « **Reply #117 on:** 2018.May.03. 15:49:40 »

Quote from: geco on 2018.May.03. 08:45:19

Áhá, ezt nem tudtam, azért is vettem ki a DI-t mert alapból tiltott megszakítással indult a program, az 1024 meg pont jó , gyanúsan lehetne még pár bájtot nyerni átrendezéssel, és call-ok megszűntetésével, nem tudom lehetne-e egy újabb karakterkészletet nyerni.

Így 1001 byre, de nem biztos, hogy nem rontottam el valamit:

Code: Diff

@@ -8,18 +8,39 @@
 chraddr equ     0800h
 chrset  equ     4000h
 tmpFont equ     3000h
 
+        macro   filllpb
+        ld      (hl),e
+        inc     l
+        ld      (hl),d
+        inc     l
+        ld      (hl),a
+        inc     l
+        ld      (hl),0c0h
+        inc     l
+        exx
+        push    hl
+        exx
+        pop     de
+        ld      (hl),e
+        inc     l
+        ld      (hl),d
+        ld      de,000bh
+        add     hl,de
+        add     a,2ch
+        endm
+
         org     160h
 
 startpr ld      sp,0100h
         ld      hl,hiba
         ld      (0bff8h),hl
-        xor     a
         ld      de,video
-        exos    1
         xor     a
+        exos    1
         ld      b,4
+        xor     a
         exos    11                         ;clear font
         xor     a
         exos    3
         ld      a,0ch
@@ -97,12 +118,12 @@
         rr      h
         rra
         ld      l,a
         ld      (chradde+1),hl
-        exx
-        ld      bc,0935h
-        ld      hl,0b33h
-        exx
+ ;      exx
+ ;      ld      bc,0935h
+ ;      ld      hl,0b33h
+ ;      exx
 lptadd  ld      hl,0000h
         ld      de,0012h
         add     hl,de
         ld      b,09h
@@ -110,14 +131,14 @@
 chradd  ld      hl,0000h
         ld      de,0009h
         exx
 fillpt  xor     a
-        ld      de,0935h
-        call    filllpb
-        ld      de,0935h
-        call    filllpb
-        ld      de,0b33h
-        call    filllpb
+        ld      de,3509h
+        filllpb
+        ld      de,3509h
+        filllpb
+        ld      de,330bh
+        filllpb
         exx
         add     hl,de
         exx
         djnz    fillpt
@@ -156,17 +177,17 @@
         pop     hl
         ld      bc,animchr*0480h
         ldir
 
-edgefnt ld      hl,(chradde+1)
-        ld      de, tmpFont
+edgefnt xor     a
+        ld      de, tmpFont - 256
+.l0:    ld      (de), a
+        inc     e
+        jr      nz, .l0
+        inc     d
+        ld      hl,(chradde+1)
         ld      bc, 128 * 9
         ldir
-        ld      hl, tmpFont - 128
-        ld      de, tmpFont - 127
-        ld      c, 127
-        ld      (hl), b
-        ldir
         ld      hl,chrset+0*0480h
         ld      ix,tmpFont
 .l1:    ld      b, 9
 .l2:    ld      c, (ix)
@@ -193,15 +214,15 @@
         ld      a, l
         add     a, a
         jr      nz, .l1 
 
-edgfnt2 xor     a
-        ld      hl, tmpFont - 256
-.l0:    ld      (hl), a
-        inc     l
+edgfnt2 ; xor     a
+        ld      de, tmpFont - 256
+.l0:    ld      (de), a
+        inc     e
         jr      nz, .l0
+        inc     d
         ld      hl,(chradde+1)
-        ld      de, tmpFont
         ld      bc, 128 * 9
         ldir
         ld      hl,chrset+1*0480h
         ld      ix, tmpFont - 128
@@ -229,15 +250,15 @@
         ld      a, l
         add     a, a
         jr      nz, .l1 
 
-fntmod2 xor     a
-        ld      hl, tmpFont - 256
-.l0:    ld      (hl), a
-        inc     l
+fntmod2 ; xor     a
+        ld      de, tmpFont - 256
+.l0:    ld      (de), a
+        inc     e
         jr      nz, .l0
+        inc     d
         ld      hl,(chradde+1)
-        ld      de, tmpFont
         ld      bc, 128 * 9
         ldir
         ld      hl,chrset+2*0480h
         ld      ix, tmpFont
@@ -893,45 +914,23 @@
 mask    db      00h,02h,04h,02h,08h,0ah,04h,1eh,20h,22h,24h,22h,28h,2ah,28h,3eh
             ;   20  22  24  26  28  2a  2c  2e  30  32  34  36  38  3a  3c  3e
         db      40h,42h,44h,42h,48h,4ah,44h,5eh,60h,42h,44h,62h,58h,4ah,7ch,7eh
 
-filllpb ld      (hl),d
-        inc     l
-        ld      (hl),e
-        inc     l
-        ld      (hl),a
-        inc     l
-        ld      (hl),0c0h
-        inc     l
-        exx
-        push    hl
-        exx
-        pop     de
-        ld      (hl),e
-        inc     l
-        ld      (hl),d
-        ld      de,000bh
-        add     hl,de
-        add     a,2ch
-        ret
-
 vid     ld      hl,vege
-        ld      (hl),0
-ker     exos    24
+        xor     a
+ker     ld      (hl),a
+        inc     hl
+        exos    24
         jp      nz,hiba
-namivan ld      a,c
+        ld      a,c
         cp      0fch
-        jr      nc,nemker
-        inc     hl
-        ld      (hl),c
-        jr      ker
-nemker  push    bc
-vissza  ld      c,(hl)
+        jr      c,ker
+        push    af
+vissza  dec     hl
+        ld      c,(hl)
         exos    25
-        dec     hl
         jr      z,vissza
-        pop     bc
-        ld      a,c                            ;a contains the page
+        pop     af                             ;a contains the page
         ret
 
 colors  db      20h,04h,24h,0a4h,34h,0b4h,26h,0a6h,36h,0f6h,0feh,0f7h,0ffh,0ffh

A VID egyszerűsítése, az EDGEFNT és hasonló rutinok átalakítása és a FILLLPB makró változata csökkentették a méretet, illetve egy helyen töröltem a BC' és HL' beállítását olyan értékekre, amikre később nincs hivatkozás. Néhány kisebb módosítás még a tömöríthetőséget próbálja javítani, de ezeknek nincs különösebb jelentőségük.

geco · « **Reply #118 on:** 2018.May.03. 16:01:32 »

Majd meglesem, lehet csak holnap, és a normál verzióba akkor beteszem az új karakterkészletet is, de ha rövidre sikerül átírnom, akkor lehet megpróbálom az 1k-sba is.

IstvanV · « **Reply #119 on:** 2018.May.03. 19:55:08 »

992 byte (szerk.: ezzel 989) a memadd1 remélhetőleg helyesen működő optimalizálásával, a program elejét a HIBA rutinhoz hasonlóbbra módosítva, a HIBA áthelyezésével, és még egy kisebb változtatással:

Code: Diff

@@ -32,8 +32,10 @@
 
         org     160h
 
 startpr ld      sp,0100h
+        ld      a,0ffh
+        out     (0b2h),a
         ld      hl,hiba
         ld      (0bff8h),hl
         ld      de,video
         xor     a
@@ -49,16 +51,13 @@
         out     (0b3h),a
         call    vid
         out     (0b1h),a
 
-memadd1 ld      hl,0000h
+memadd1 and     03h
         rra
-        rr      h
+        ld      h, a
         rra
-        rr      h
-        ld      l,h
-        ld      h,00h
-        add     hl,hl
+        ld      l, a
         ld      (chradd+1),hl
         ld      ix,chraddr
 ;        call    fillcha
         ld      de,0009h
@@ -123,11 +122,12 @@
  ;      ld      bc,0935h
  ;      ld      hl,0b33h
  ;      exx
 lptadd  ld      hl,0000h
-        ld      de,0012h
+        ld      de,0009h
         add     hl,de
-        ld      b,09h
+        add     hl,de
+        ld      b,e
         exx
 chradd  ld      hl,0000h
         ld      de,0009h
         exx
@@ -722,9 +722,24 @@
         ld      h,a
         ld      de,(chradde+1)
         ld      bc,0480h
         ldir
-        jp      hiba1
+
+hiba1   ;ld      a,0f5h
+        ;ld      hl,1837h
+        ;ld      (0038h),a
+        ;ld      (0039h),hl
+hiba    ld      sp,0100h        ;0124
+        ld      a,0ffh
+        out     (0b2h),a
+        ld      hl,hiba         ;0124h
+        ld      (0bff8h),hl
+        ld      c,40h
+        exos    0
+        ld      a,01h
+        out     (0b3h), a
+        ld      a,06h
+        jp      0c00dh
 
 down
 up      
 actpos  ld      a,00h
@@ -893,23 +908,9 @@
 ;        ret
 ;
 ;mask2   db      3fh
         defs    low -$
-hiba1   ;ld      a,0f5h
-        ;ld      hl,1837h
-        ;ld      (0038h),a
-        ;ld      (0039h),hl
-hiba    ld      sp,0100h        ;0124
-        ld      a,0ffh
-        out     (0b2h),a
-        ld      hl,hiba         ;0124h
-        ld      (0bff8h),hl
-        ld      c,40h
-        exos    0
-        ld      a,01h
-        out     (0b3h), a
-        ld      a,06h
-        jp      0c00dh
+
             ;   00  01  02  03  04  05  06  07  08  09  0a  0b  0c  0d  0e  0f
             ;   00  02  04  06  08  0a  0c  0e  10  12  14  16  18  1a  1c  1e
 mask    db      00h,02h,04h,02h,08h,0ah,04h,1eh,20h,22h,24h,22h,28h,2ah,28h,3eh
             ;   20  22  24  26  28  2a  2c  2e  30  32  34  36  38  3a  3c  3e

Author Topic: Verseny ötlet (Read 43653 times)

endi

Re: Verseny ötlet

geco

Re: Verseny ötlet

endi

Re: Verseny ötlet

geco

Re: Verseny ötlet

IstvanV

Re: Verseny ötlet

endi

Re: Verseny ötlet

szipucsu

Re: Verseny ötlet

geco

Re: Verseny ötlet

IstvanV

Re: Verseny ötlet

geco

Re: Verseny ötlet

endi

Re: Verseny ötlet

geco

Re: Verseny ötlet

IstvanV

Re: Verseny ötlet

geco

Re: Verseny ötlet

IstvanV

Re: Verseny ötlet