pouët.net

Adok information 1104 glöps

• general:
• level: user
• personal:
• first name: Claus
• last name: V.
• portals:
• slengpung: pictures
• demozoo: profile
• cdcs:
• cdc #1: imphobia #12 by Imphobia
• cdc #2: Cream #4 by Obnoxious
• cdc #3: Project 2501 by ADDiCT [web]
• cdc #4: Lifeforce by Andromeda Software Development [web]

• 1k MS-Dos hugi intro: wanted writers by EP
• LOL, after taking a look at the source code I understand what Sparcus meant...
  
  Hehe, maybe this could be a task for the next Hugi Size Coding Compo :)
  
  Or let's make it the colloborative way, that would be more fun. Here's my first proposal:
  
  
  Code:; First attempt at optimizing this (half an hour) by Adok/Hugi ; Untested, no idea if it will run - I'll leave debugging to you, after all we're a cooperative, right? Code SEGMENT ASSUME CS:Code, DS:Code ORG 100H Start: MOV AX,13H INT 10H ;CL stores the color MOV CL,9 CALL FillBG ;CX is loop counter; CL is the current color; set CX it to 65535 XOR CX,CX DEC CX loop1: MOV X,10D MOV Y,50D MOV DL,56D ; DL stores cnt (assuming that DX is never used anywhere else) MOV DI,OFFSET CharSet MOV SI,OFFSET Text1 CALL PutString LOOP loop1 ;CX is loop counter; CL is the current color; set CX it to 65535 ;XOR CX,CX - not necessary as CX is already 0 DEC CX loop2: MOV X,10D MOV Y,170D MOV DI,OFFSET CharSet MOV SI,OFFSET Text2 CALL PutString LOOP loop2 XOR AX,AX INT 16H MOV AX,03H INT 10H MOV AH,4CH INT 21H ; ; Functions ; PutPixel PROC ; Draw Pixel PUSHA PUSH 0A000H POP ES MOV AX,320D MUL Y ADD AX,X MOV DI,AX MOV AX,CX ; CL stores the color STOSB POPA RET PutPixel ENDP FillBG PROC ; Fill Background Colour MOV X,319 MOV Y,199 FillLP: OR X,X JE NxtFill CALL PutPixel DEC X JMP FillLP NxtFill: MOV X,319 OR Y,Y JE EndFill DEC Y JMP FillLP EndFill: RET FillBG ENDP PutChar PROC ; Display Character PUSH DI CMP AL,41H JL EndTxtLP CMP AL,5BH JG EndTxtLP MOV BX,X MOV AX,Y PUSH AX ; replacing MOV TMP,AX LODSB ; same as MOV AL,[DI] TxtLP: CMP AL,13 JE TxtLPnxt CMP AL,'$' JE EndTxtLP DEC AL ; instead of CMP AL,1 JNE Prnxt CALL PutPixel Prnxt: INC X INC DI LODSB ; same as MOV AL,[DI] JMP TxtLP TxtLPnxt: MOV X,BX INC Y INC DI LODSB ; same as MOV AL,[DI] JMP TxtLP EndTxtLP: POP AX ; replacing MOV AX,TMP POP DI MOV Y,AX RET PutChar ENDP PutString PROC ; Display String MOV AL,[SI] SUB AL,41H MUL DL ADD DI,AX MOV AL,[SI] StrLP: CMP AL,'$' JE EndStrLP CALL PutChar INC X INC SI MOV AL,[SI] MOV DI,OFFSET CharSet SUB AL,41H MUL DL ADD DI,AX MOV AL,[SI] JMP StrLP EndStrLP: RET PutString ENDP ;Variables X DW 0 Y DW 0 CharSet DB 0,0,1,1,0,0,0,13 ; 'A' DB 0,1,1,1,1,0,0,13 DB 1,1,0,0,1,1,0,13 DB 1,1,0,0,1,1,0,13 DB 1,1,1,1,1,1,0,13 DB 1,1,0,0,1,1,0,13 DB 1,1,0,0,1,1,0,'$' DB 1,1,1,1,1,1,0,13 ; 'B' DB 0,1,1,0,0,1,1,13 DB 0,1,1,0,0,1,1,13 DB 0,1,1,1,1,1,0,13 DB 0,1,1,0,0,1,1,13 DB 0,1,1,0,0,1,1,13 DB 1,1,1,1,1,1,0,'$' DB 0,0,1,1,1,1,0,13 ; 'C' DB 0,1,1,0,0,1,1,13 DB 1,1,0,0,0,0,0,13 DB 1,1,0,0,0,0,0,13 DB 1,1,0,0,0,0,0,13 DB 0,1,1,0,0,1,1,13 DB 0,0,1,1,1,1,0,'$' DB 1,1,1,1,1,0,0,13 ; 'D' DB 0,1,1,0,1,1,0,13 DB 0,1,1,0,0,1,1,13 DB 0,1,1,0,0,1,1,13 DB 0,1,1,0,0,1,1,13 DB 0,1,1,0,1,1,0,13 DB 1,1,1,1,1,0,0,'$' DB 1,1,1,1,1,1,1,13 ; 'E' DB 0,1,1,0,0,0,1,13 DB 0,1,1,0,1,0,0,13 DB 0,1,1,1,1,0,0,13 DB 0,1,1,0,1,0,0,13 DB 0,1,1,0,0,0,1,13 DB 1,1,1,1,1,1,1,'$' DB 1,1,1,1,1,1,1,13 ; 'F' DB 0,1,1,0,0,0,1,13 DB 0,1,1,0,1,0,0,13 DB 0,1,1,1,1,0,0,13 DB 0,1,1,0,1,0,0,13 DB 0,1,1,0,0,0,0,13 DB 1,1,1,1,0,0,0,'$' DB 0,0,1,1,1,1,0,13 ; 'G' DB 0,1,1,0,0,1,1,13 DB 1,1,0,0,0,0,0,13 DB 1,1,0,0,0,0,0,13 DB 1,1,0,0,1,1,1,13 DB 0,1,1,0,0,1,1,13 DB 0,0,1,1,1,1,1,'$' DB 1,1,0,0,1,1,0,13 ; 'H' DB 1,1,0,0,1,1,0,13 DB 1,1,0,0,1,1,0,13 DB 1,1,1,1,1,1,0,13 DB 1,1,0,0,1,1,0,13 DB 1,1,0,0,1,1,0,13 DB 1,1,0,0,1,1,0,'$' DB 0,1,1,1,1,0,0,13 ; 'I' DB 0,0,1,1,0,0,0,13 DB 0,0,1,1,0,0,0,13 DB 0,0,1,1,0,0,0,13 DB 0,0,1,1,0,0,0,13 DB 0,0,1,1,0,0,0,13 DB 0,1,1,1,1,0,0,'$' DB 0,0,0,1,1,1,1,13 ; 'J' DB 0,0,0,0,1,1,0,13 DB 0,0,0,0,1,1,0,13 DB 0,0,0,0,1,1,0,13 DB 1,1,0,0,1,1,0,13 DB 1,1,0,0,1,1,0,13 DB 0,1,1,1,1,0,0,'$' DB 1,1,1,0,0,1,1,13 ; 'K' DB 0,1,1,0,0,1,1,13 DB 0,1,1,0,1,1,0,13 DB 0,1,1,1,1,0,0,13 DB 0,1,1,0,1,1,0,13 DB 0,1,1,0,0,1,1,13 DB 1,1,1,0,0,1,1,'$' DB 1,1,1,1,0,0,0,13 ; 'L' DB 0,1,1,0,0,0,0,13 DB 0,1,1,0,0,0,0,13 DB 0,1,1,0,0,0,0,13 DB 0,1,1,0,0,0,1,13 DB 0,1,1,0,0,1,1,13 DB 1,1,1,1,1,1,1,'$' DB 1,1,0,0,0,1,1,13 ; 'M' DB 1,1,1,0,1,1,1,13 DB 1,1,1,1,1,1,1,13 DB 1,1,1,1,1,1,1,13 DB 1,1,0,1,0,1,1,13 DB 1,1,0,0,0,1,1,13 DB 1,1,0,0,0,1,1,'$' DB 1,1,0,0,0,1,1,13 ; 'N' DB 1,1,1,0,0,1,1,13 DB 1,1,1,1,0,1,1,13 DB 1,1,0,1,1,1,1,13 DB 1,1,0,0,1,1,1,13 DB 1,1,0,0,0,1,1,13 DB 1,1,0,0,0,1,1,'$' DB 0,0,1,1,1,0,0,13 ; 'O' DB 0,1,1,0,1,1,0,13 DB 1,1,0,0,0,1,1,13 DB 1,1,0,0,0,1,1,13 DB 1,1,0,0,0,1,1,13 DB 0,1,1,0,1,1,0,13 DB 0,0,1,1,1,0,0,'$' DB 1,1,1,1,1,1,0,13 ; 'P' DB 0,1,1,0,0,1,1,13 DB 0,1,1,0,0,1,1,13 DB 0,1,1,1,1,1,0,13 DB 0,1,1,0,0,0,0,13 DB 0,1,1,0,0,0,0,13 DB 1,1,1,1,0,0,0,'$' DB 0,1,1,1,1,0,0,13 ; 'Q' DB 1,1,0,0,1,1,0,13 DB 1,1,0,0,1,1,0,13 DB 1,1,0,0,1,1,0,13 DB 1,1,0,1,1,1,0,13 DB 0,1,1,1,1,0,0,13 DB 0,0,0,0,1,1,0,'$' DB 1,1,1,1,1,1,0,13 ; 'R' DB 0,1,1,0,0,1,1,13 DB 0,1,1,0,0,1,1,13 DB 0,1,1,1,1,1,0,13 DB 0,1,1,0,1,1,0,13 DB 0,1,1,0,0,1,1,13 DB 1,1,1,0,0,1,1,'$' DB 0,1,1,1,1,0,0,13 ; 'S' DB 1,1,0,0,1,1,0,13 DB 1,1,1,0,0,0,0,13 DB 0,1,1,1,0,0,0,13 DB 0,0,0,1,1,1,0,13 DB 1,1,0,0,1,1,0,13 DB 0,1,1,1,1,0,0,'$' DB 1,1,1,1,1,1,0,13 ; 'T' DB 1,0,1,1,0,1,0,13 DB 0,0,1,1,0,0,0,13 DB 0,0,1,1,0,0,0,13 DB 0,0,1,1,0,0,0,13 DB 0,0,1,1,0,0,0,13 DB 0,1,1,1,1,0,0,'$' DB 1,1,0,0,1,1,0,13 ; 'U' DB 1,1,0,0,1,1,0,13 DB 1,1,0,0,1,1,0,13 DB 1,1,0,0,1,1,0,13 DB 1,1,0,0,1,1,0,13 DB 1,1,0,0,1,1,0,13 DB 0,1,1,1,1,0,0,'$' DB 1,1,0,0,1,1,0,13 ; 'V' DB 1,1,0,0,1,1,0,13 DB 1,1,0,0,1,1,0,13 DB 1,1,0,0,1,1,0,13 DB 1,1,0,0,1,1,0,13 DB 0,1,1,1,1,0,0,13 DB 0,0,1,1,0,0,0,'$' DB 1,1,0,0,0,1,1,13 ; 'W' DB 1,1,0,0,0,1,1,13 DB 1,1,0,0,0,1,1,13 DB 1,1,0,1,0,1,1,13 DB 1,1,1,1,1,1,1,13 DB 1,1,1,0,1,1,1,13 DB 1,1,0,0,0,1,1,'$' DB 1,1,0,0,0,1,1,13 ; 'X' DB 1,1,0,0,0,1,1,13 DB 0,1,1,0,1,1,0,13 DB 0,0,1,1,1,0,0,13 DB 0,0,1,1,1,0,0,13 DB 0,1,1,0,1,1,0,13 DB 1,1,0,0,0,1,1,'$' DB 1,1,0,0,1,1,0,13 ; 'Y' DB 1,1,0,0,1,1,0,13 DB 1,1,0,0,1,1,0,13 DB 0,1,1,1,1,0,0,13 DB 0,0,1,1,0,0,0,13 DB 0,0,1,1,0,0,0,13 DB 0,1,1,1,1,0,0,'$' DB 1,1,1,1,1,1,1,13 ; 'Z' DB 1,1,0,0,0,1,1,13 DB 1,0,0,0,1,1,0,13 DB 0,0,0,1,1,0,0,13 DB 0,0,1,1,0,0,1,13 DB 0,1,1,0,0,1,1,13 DB 1,1,1,1,1,1,1,'$' DB 0,0,0,0,0,0,0,13 ; Space DB 0,0,0,0,0,0,0,13 DB 0,0,0,0,0,0,0,13 DB 0,0,0,0,0,0,0,13 DB 0,0,0,0,0,0,0,13 DB 0,0,0,0,0,0,0,13 DB 0,0,0,0,0,0,0,'$' DB 0,0,0,1,1,0,0,13 ; @ DB 0,0,1,0,0,1,0,13 DB 0,0,1,0,1,0,1,13 DB 0,0,1,0,1,0,1,13 DB 0,0,1,0,0,1,0,13 DB 0,0,0,1,0,0,1,13 DB 0,0,0,0,1,1,0,'$' DB 0,0,0,0,0,0,0,13 ; . DB 0,0,0,0,0,0,0,13 DB 0,0,0,0,0,0,0,13 DB 0,0,0,0,0,0,0,13 DB 0,0,0,0,0,0,0,13 DB 0,0,0,1,1,0,0,13 DB 0,0,0,1,1,0,0,'$' Text1 DB 'PLEASE[WRITE[ARTICLES[FOR[HUGI','$' Text2 DB 'CDVOLKO[AT[GMX[DOT[NET','$' Code ENDS END Start
• isokadded on the 2006-07-04 03:11:14
• 1k MS-Dos hugi intro: wanted writers by EP
• What makes you think so, Sparcus?
  
  It's an easy prod, true. If something is easy, it means you don't need to have a high IQ to make it. But it doesn't mean your IQ must be low.
• isokadded on the 2006-07-03 22:12:53
• 1k MS-Dos hugi intro: wanted writers by EP
• Thanks, MadenMann. Now morons are also gonna get it.
  
  
  
  
  
  
  
  
• isokadded on the 2006-07-03 21:18:24
• 1k MS-Dos hugi intro: wanted writers by EP
• 1K sucks
  
  (I'm a Mensa member after all...)
• isokadded on the 2006-07-03 21:14:34
• 1k MS-Dos hugi intro: wanted writers by EP
• Almost there.
  
  I'll leave it to you as an intelligence test whether you manage to find out what I wanted to say. ;)
• isokadded on the 2006-07-03 20:55:14
• 1k MS-Dos hugi intro: wanted writers by EP
• Not exactly what I wanted. Maybe this will work out...
  
  Code:
• isokadded on the 2006-07-03 20:54:04
• 1k MS-Dos hugi intro: wanted writers by EP
• Let's see if this will work out.
  
  
  
  
  
  
  
  
  
  
• isokadded on the 2006-07-03 20:48:27
• 1k MS-Dos hugi intro: wanted writers by EP
• Havoc has a sense of art!!
• isokadded on the 2006-07-03 20:43:51
• 1k MS-Dos hugi intro: wanted writers by EP
• Better than Second Reality ;)
• isokadded on the 2006-07-03 19:48:27
• 1k MS-Dos hugi intro: wanted writers by EP
• 
• isokadded on the 2006-07-03 19:45:06