BlueBear icon

"Bathroom Acid on Tiles" source code - my first 256byte prod

BlueBear | PRO | 05/14/16 07:58:57 PM UTC | 0 ⭐ | 11422 👁️ | Never ⏰ | []
6502 ACME Cross Assembler |

0 B

|

None

|

0 👍

/

0 👎

;   Bathroom Acid on Tiles
;   by Citrus
;   Aberration Creations
;   QBParty 256byte intro category
;   2016
 
;   Greetings to:
;   Conspiracy, Mercury, Rebels
;   Fresh!Mindworkz, Umlaut Design
;   Digital Dynamite, Logicoma
;   Outracks, Satori, Decree
 
;   How to run it:
;   You need to download NASM and DOSBox
;   You can get it run with the commands below:
;   nasm asmfilename.asm -o outfile.com
;   dosbox outfile.com
 
    org 100h
    mov ax, 13h
    int 10h
 
    %define rectx raw + 0
    %define recty raw + 2
    %define rectw raw + 4
    %define recth raw + 6
    %define color raw + 8
    %define frame raw + 10
 
    xor ax, ax
    mov [frame], ax
    mov [color], ax
 
runforevermotherfucker:
 
    push 08000h
    pop es
 
    mov di, [frame]
    mov cx, 200
    effecty:
        push cx             
        mov dx, cx      
        add dx, [frame]
        mov cx, 320         
        effectx:
            mov ax, dx
            xor ax, cx
            stosb
        loop effectx
        pop cx
    loop effecty
 
    xor di, di
 
    mov si, data
    mov cx, 8
    
    shadowforloop:
        mov word [color], 16h
        xor ax, ax
        lodsb
        add ax, 45
        mov word [rectx],   ax
        xor ax, ax
        lodsb
        add ax, 5
        mov word [recty],   ax
        xor ax, ax
        lodsb
        mov word [rectw],   ax
        lodsb
        mov word [recth],   ax
        push cx
        call drawRectangle
        pop cx
    loop shadowforloop
 
    mov si, data
    mov cx, 8
    logoforloop:
        mov word [color], 0eh
        xor ax, ax
        lodsb
        add ax, 35
        mov word [rectx],   ax
        xor ax, ax
        lodsb
        mov word [recty],   ax
        lodsb
        mov word [rectw],   ax
        lodsb
        mov word [recth],   ax
        push cx
        call drawRectangle
        pop cx
    loop logoforloop
 
    push ds
    push es
    pop ds
    push 0a000h
    pop es
    xor si, si
    xor di, di
    ;xor cx, cx
    mov cx, 320*200
    rep movsb
    
    pop ds
    inc word [frame]
 
    ; escape on exit
    in al, 60h
    cmp al, 1
    jnz runforevermotherfucker
    ret
    
data:
    db 73,17,73,10,73,17,25,76,73,73,50,20,130,17,18,100,173,17,25,100,173,100,75,17,208,43,40,20,230,63,18,40
    db "CitrusBrCr"
 
drawRectangle:
    mov bx, [recty]
    imul bx, 320
 
    mov cx, [recth]
    yloop:
        push cx
        mov di, bx
        add di, [rectx]
        
        mov ax, [recth]
        sub ax, cx
        add ax, [recty]
        shr ax, 1
        sub di, ax
 
        mov al, [color]
 
        mov cx, [rectw]
        rep stosb
 
        pop cx
        add bx, 320
    loop yloop
    ret
 
raw:

Comments

  •  icon
    01/01/70 12:00:00 AM UTC
    Plain Text |

    0 B

    |

    👍

    /

    👎

    
        
  •  icon
    01/01/70 12:00:00 AM UTC
    Plain Text |

    0 B

    |

    👍

    /

    👎

    
        
  •  icon
    01/01/70 12:00:00 AM UTC
    Plain Text |

    0 B

    |

    👍

    /

    👎

    
        
  •  icon
    01/01/70 12:00:00 AM UTC
    Plain Text |

    0 B

    |

    👍

    /

    👎

    
        
  •  icon
    01/01/70 12:00:00 AM UTC
    Plain Text |

    0 B

    |

    👍

    /

    👎

    
        
  •  icon
    01/01/70 12:00:00 AM UTC
    Plain Text |

    0 B

    |

    👍

    /

    👎

    
        
  •  icon
    01/01/70 12:00:00 AM UTC
    Plain Text |

    0 B

    |

    👍

    /

    👎

    
        
  •  icon
    01/01/70 12:00:00 AM UTC
    Plain Text |

    0 B

    |

    👍

    /

    👎

    
        
  •  icon
    01/01/70 12:00:00 AM UTC
    Plain Text |

    0 B

    |

    👍

    /

    👎

    
        
  •  icon
    01/01/70 12:00:00 AM UTC
    Plain Text |

    0 B

    |

    👍

    /

    👎

    
        
  • Suikzau icon
    03/31/26 10:10:51 PM UTC
    text |

    0 B

    |

    0 👍

    /

    0 👎

    Best t33n active cpx link daily updates!
     Copy and paste the link in a new browser tab and then hit enter!
     https://crazyporn.@xxx/members/157354/?asgtbndr=1&play=true&spon=adworld&zone=400
     Remove the @ 
  • Zyubi icon
    04/05/26 02:28:52 AM UTC
    text |

    0 B

    |

    0 👍

    /

    0 👎

    Best t33n active cpx link daily updates!
     Copy and paste the link in a new browser tab and then hit enter!
     https://crazyporn.xxx/members/157354/?asgtbndr=1&play=true&spon=adworld&zone=400
  •  icon
    01/01/70 12:00:00 AM UTC
    Plain Text |

    0 B

    |

    👍

    /

    👎