Jul -- Innocent Town: IT'S SEXYFINE TIME!!!

Joe
Common spammer
🍬
Level: 111

Posts: 2039/3392
EXP: 14490032
For next: 378328

Since: 08-02-07

From: Pororoca

Since last post: 4 days
Last activity: 5 hours

Posted on 05-05-11 10:01:56 PM

Link | Quote

Originally posted by Zero One
Fully commented too.

This is what "fully commented" should look like. (Yes, I realize large sections are missing. That page is horribly out-of-date. Also, it's been three months since I last worked on that.

)

____________________

Sanqui
2060

💛🤍💜🖤🦉
Level: 87

Posts: 826/2066
EXP: 6305484
For next: 87290

Since: 12-20-09

Pronouns: any ✨
From: Czechia | Estonia

Since last post: 6 days
Last activity: 1 day

Posted on 05-08-11 05:32:49 PM

Link | Quote

Look, a lil' floating box!


                                        ; de is C3A0 here

RO2A:45AE E5               push hl      ; Save the old values in stack

RO2A:45AF D5               push de      

RO2A:45B0 0E 08            ld   c,08    ; Write 8 in c

RO2A:45B2 3E 00            ld   a,00    ; Write 0 in a

RO2A:45B4 12               ld   (de),a  ; Write a in where de points

RO2A:45B5 13               inc  de      ; 

RO2A:45B6 0D               dec  c       ; 

RO2A:45B7 20 FB            jr   nz,45B4 ; if c != 0: Jump back to 45B4

                                        ; This effectively zeroes C3A0-C3A8

RO2A:45B9 D1               pop  de      ; Load the old value of de from stack

RO2A:45BA 0E 09            ld   c,09    ; Write 9 in c

RO2A:45BC 0D               dec  c       ; 

RO2A:45BD 28 12            jr   z,45D1  ; If c is zero, jump to 45D1.

RO2A:45BF 2A               ldi  a,(hl)  ; load and increment what's in hl into a

RO2A:45C0 FE E0            cp   a,E0    ; If a is NOT e0, jump to 45BC.  Remember, e0 is

RO2A:45C2 20 F8            jr   nz,45BC ; the "end string" character.

RO2A:45C4 CB 39            slr c        ; multiply c by 2

RO2A:45C6 79               ld   a,c     ; Write c in a

RO2A:45C7 B7               or   a       ; 

RO2A:45C8 28 07            jr   z,45D1  ; If a is 0, jump to 45D1

                                        ; ^ this is the "center text" routine, though I don't

                                        ; understand it much.

RO2A:45CA 3E 00            ld   a,00    ; load 0 in a

RO2A:45CC 12               ld   (de),a  ; Write a in where de points.  

RO2A:45CD 13               inc  de      ;

RO2A:45CE 0D               dec  c       ;

RO2A:45CF 20 FB            jr   nz,45CC ; If c is not zero, jump back to 45CC

                                        ; Why do this?  This just zeroes it again

RO2A:45D1 E1               pop  hl      ; Load old hl from stack

RO2A:45D2 0E 08            ld   c,08    ; Write 8 in c

RO2A:45D4 2A               ldi  a,(hl)  ; Load what's in (hl) to a, increment

RO2A:45D5 12               ld   (de),a  ; write what's in a to (de)

RO2A:45D6 0D               dec  c       ;

RO2A:45D7 C8               ret  z       ; return from subroutine if c is zero

RO2A:45D8 13               inc  de      ; 

RO2A:45D9 FE E0            cp   a,E0    ; 

RO2A:45DB 20 F7            jr   nz,45D4 ;jump to 45D4 if a != e0

RO2A:45DD 3E 00            ld   a,00    ;

RO2A:45DF 12               ld   (de),a  ; 

RO2A:45E0 13               inc  de      ;

RO2A:45E1 0D               dec  c       ;

RO2A:45E2 20 FB            jr   nz,45DF ; zeroing again

RO2A:45E4 C9               ret          ; return from subroutine

Overly commented, I know, but it's the first ASM I read..

It's a routine that centers text in Telefang and writes it in memory. derp derp

____________________

devin

Yoshi
i'm mima irl
Level: 112

Posts: 2042/3519
EXP: 14919884
For next: 418321

Since: 04-29-08

Pronouns: any
From: FL

Since last post: 298 days
Last activity: 2 days

Posted on 05-09-11 02:57:28 PM

Link | Quote

Hey have a stupid decompression routine. I took out the comments because I can.



--        lda     #$08

        sta     $44

 stz     $42

 lda     $0000, y

    sta     $43

 iny

-        asl     $43

 bcs     +

   lda     $42

 bra     ++              

+   lda     $0000, y

    sta     $42

 iny

++       sta     $7F2000,x

   inx

 inx

 dec     $44

 bne     -

   dec     $46

 bne     --

Figure out what game it's from and win a sexy prize

____________________

Photo by Luc Viatour

Register - Login
Views: 99414191	Main - Memberlist - Active users - Calendar - Wiki - IRC Chat - Online users Ranks - Rules/FAQ - Stats - Latest Posts - Color Chart - Smilies	04-25-22 12:40:02 AM

Query execution time:	0.106760 seconds
Script execution time:	0.010307 seconds
Total render time:	0.117067 seconds