Rocksolid Light

Welcome to novaBBS (click a section below)

mail  files  register  nodelist  faq  login

Time sharing: The use of many people by the computer.


programming / comp.lang.asm.x86 / Re: Small Tetris

Subject: Re: Small Tetris
From: Kerr-Mudd, John
Newsgroups: comp.lang.asm.x86
Organization: Dis
Date: Sun, 12 Dec 2021 21:52 UTC
References: 1 2 3
Path: i2pn2.org!i2pn.org!eternal-september.org!reader02.eternal-september.org!.POSTED!not-for-mail
From: adm...@nospicedham.127.0.0.1 (Kerr-Mudd, John)
Newsgroups: comp.lang.asm.x86
Subject: Re: Small Tetris
Date: Sun, 12 Dec 2021 21:52:31 +0000
Organization: Dis
Lines: 160
Approved: fbkotler@myfairpoint.net - comp.lang.asm.x86 moderation team.
Message-ID: <20211212215231.2b97e5112947d773dcce70db@127.0.0.1>
References: <20211121135031.93ec8b03d30970ef0c90c976@127.0.0.1>
<20211204140842.304b5e3512e1e8ef81960a3c@127.0.0.1>
<2773b6d5-60b5-4445-971b-3a2e44b10f72n@googlegroups.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=US-ASCII
Content-Transfer-Encoding: 7bit
Injection-Info: reader02.eternal-september.org; posting-host="1534dcd3aa1937e830c0dba75c786dfd";
logging-data="8010"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX1/ro6xnFN5Gon8gG68opg3zNVZq2TsiaKw="
Cancel-Lock: sha1:KZHtLJgUG4oPUG0Ue9gxday4J1A=
View all headers
On Sun, 12 Dec 2021 11:58:23 -0800 (PST)
Jim Leonard <mobygamer@nospicedham.gmail.com> wrote:

On Saturday, December 4, 2021 at 8:20:06 AM UTC-6, Kerr-Mudd, John wrote:
On Sun, 21 Nov 2021 13:50:31 +0000
"Kerr-Mudd, John" <ad...@nospicedham.127.0.0.1> wrote:


I've been looking at small tetris games; doable in <256 bytes; I'm at
241 (219 with a different look), I'll look at adding "drop" and
maybe scoring.

It would be more interesting, and less mangled, for you to post the .asm source instead of a binary hex dump.


Where's the fun in that?
OK you can have a 'u' debug dump for a bit of clarity.
I've improved it slightly; I have 7 spare bytes now, so this doesn't match the previous hexdump.
Note the cunning use of /movsb/ to move through the lines; often copying in place!
also that /bright/=blockchar (8)


;  assumes ax=0 ,ss=ds on entry, also that int 10 puts spaces (0x20) to screen area
->u 100 l100
162E:0100 40             inc          ax
162E:0101 CD 10          int          10
162E:0103 68 00 B8       push         B800
162E:0106 07             pop          es
162E:0107 06             push         es
162E:0108 1F             pop          ds
162E:0109 E4 40          in           al,40
162E:010B 83 E0 07       and          ax,0007
162E:010E BB 08 08       mov          bx,0808
162E:0111 08 C7          or           bh,al
162E:0113 95             xchg         ax,bp
162E:0114 8B AE F1 01    mov          bp,[bp+01F1]
162E:0118 81 E5 F0 0F    and          bp,0FF0
162E:011C 41             inc          cx
162E:011D BF C0 FF       mov          di,FFC0
162E:0120 E3 04          jcxzw        0126
162E:0122 E2 05          loopw        0129
162E:0124 B1 0A          mov          cl,0A
162E:0126 83 C7 50       add          di,0050
162E:0129 60             pushaw      
162E:012A BF 80 07       mov          di,0780
162E:012D B1 0C          mov          cl,0C
162E:012F B8 DB 08       mov          ax,08DB
162E:0132 F3 AB          repz stosw  
162E:0134 BE 32 07       mov          si,0732
162E:0137 8A 16 1E 00    mov          dl,[001E]
162E:013B 83 EF 68       sub          di,0068
162E:013E B1 0A          mov          cl,0A
162E:0140 B6 08          mov          dh,08
162E:0142 AB             stosw       
162E:0143 A4             movsb       
162E:0144 22 34          and          dh,[si]
162E:0146 A4             movsb       
162E:0147 E2 FA          loopw        0143
162E:0149 AB             stosw       
162E:014A 74 04          jz           0150
162E:014C 83 C7 50       add          di,0050
162E:014F 42             inc          dx
162E:0150 83 EE 64       sub          si,0064
162E:0153 73 E6          jnb          013B
162E:0155 BF 1C 00       mov          di,001C
162E:0158 92             xchg         ax,dx
162E:0159 3C 3A          cmp          al,3A
162E:015B 72 07          jb           0164
162E:015D 2C 0A          sub          al,0A
162E:015F FE 05          inc          byte [di]
162E:0161 80 0D 30       or           byte [di],30
162E:0164 AF             scasw       
162E:0165 0C 30          or           al,30
162E:0167 AA             stosb       
162E:0168 61             popaw       
162E:0169 B4 01          mov          ah,01
162E:016B CD 16          int          16
162E:016D 74 09          jz           0178
162E:016F 98             cbw         
162E:0170 CD 16          int          16
162E:0172 88 E0          mov          al,ah
162E:0174 3C 01          cmp          al,01
162E:0176 74 57          jz           01CF
162E:0178 57             push         di
162E:0179 3C 4D          cmp          al,4D
162E:017B 75 01          jnz          017E
162E:017D AF             scasw       
162E:017E 3C 4B          cmp          al,4B
162E:0180 75 02          jnz          0184
162E:0182 4F             dec          di
162E:0183 4F             dec          di
162E:0184 55             push         bp
162E:0185 3C 48          cmp          al,48
162E:0187 74 4C          jz           01D5
162E:0189 3C 50          cmp          al,50
162E:018B 75 02          jnz          018F
162E:018D 31 C9          xor          cx,cx
162E:018F 99             cwd         
162E:0190 89 D8          mov          ax,bx
162E:0192 E8 1E 00       call         01B3
162E:0195 75 53          jnz          01EA
162E:0197 5A             pop          dx
162E:0198 5A             pop          dx
162E:0199 BA DA 03       mov          dx,03DA
162E:019C E8 14 00       call         01B3
162E:019F 74 03          jz           01A4
162E:01A1 E9 65 FF       jmp          0109
162E:01A4 51             push         cx
162E:01A5 B1 06          mov          cl,06
162E:01A7 EC             in           al,dx
162E:01A8 A8 08          test         al,08
162E:01AA 74 FB          jz           01A7
162E:01AC E2 F9          loopw        01A7
162E:01AE 91             xchg         ax,cx
162E:01AF 59             pop          cx
162E:01B0 68 20 01       push         0120
162E:01B3 60             pushaw      
162E:01B4 B1 10          mov          cl,10
162E:01B6 F6 C1 03       test         cl,03
162E:01B9 75 03          jnz          01BE
162E:01BB 83 C7 48       add          di,0048
162E:01BE D1 C5          rol          bp,1
162E:01C0 73 10          jnb          01D2
162E:01C2 08 D2          or           dl,dl
162E:01C4 74 0A          jz           01D0
162E:01C6 AB             stosw       
162E:01C7 0A 75 4E       or           dh,[di+4E]
162E:01CA E2 EA          loopw        01B6
162E:01CC 84 C6          test         dh,al
162E:01CE 61             popaw       
162E:01CF C3             ret         
162E:01D0 0A 35          or           dh,[di]
162E:01D2 AF             scasw       
162E:01D3 EB F5          jmp          01CA
162E:01D5 51             push         cx
162E:01D6 B1 10          mov          cl,10
162E:01D8 B8 11 11       mov          ax,1111
162E:01DB C1 C5 04       rol          bp,04
162E:01DE D1 D0          rcl          ax,1
162E:01E0 73 02          jnb          01E4
162E:01E2 D1 CD          ror          bp,1
162E:01E4 E2 F5          loopw        01DB
162E:01E6 95             xchg         ax,bp
162E:01E7 59             pop          cx
162E:01E8 EB A5          jmp          018F
162E:01EA 5D             pop          bp
162E:01EB 5F             pop          di
162E:01EC 83 FF C0       cmp          di,FFC0
162E:01EF 75 A8          jnz          0199
162E:01F1 C3             ret         
162E:01F2 66 36 16       ss:push         ss
162E:01F5 27             daa         
162E:01F6 47             inc          di
162E:01F7 F7 F0          div          ax

Those last 8 bytes (yes, including the ret!) encode the tetris shape data

--
Bah, and indeed Humbug.



SubjectRepliesAuthor
o Small Tetris

By: Kerr-Mudd, John on Sun, 21 Nov 2021

8Kerr-Mudd, John
rocksolid light 0.7.2
clearneti2ptor