pouët.net

Go to bottom

Timelord by Red Sector Inc. [web]

; Timelord 256b ;Baudsurfer/RSi olivier.poudade.free.fr xpsp3 intro QBparty 2016
b equ byte      ;Red Sector inc.     /\___      ____     _____/\ xz/dS!         
d equ dword     ;     +----------    \ __/_  ___)  (     \__   / ----------+    
w equ word      ;     |     _ _  _/¯¯¯(\  ¬\/    __/__/¯¯¯ |\  \   _ _     |    
  org 100h      ;     |    \\\\\ \  __/¯    \   __)  ¬\    |/   \ /////    |    
  mov al,13h    ;     |      ¯ ¯ /  \       /         /  /¯¯    / ¯ ¯      |    
  cmc           ;     +--------- ¯¯¯¯\_____/¯¯¯\_____/¯¯¯\_____/ ----------+    
  inc dx        ;   /\____     /\___     _____     ___       /\___     /\____   
  int 10h       ;  _)    /_    \   (     )   (   _/  (___    \   (_    \  __/_  
  mov dx,n      ;__\__ \/ ¬\/¯¯¯ __/__/¯¯  \_/__/     __/_/¯¯¯    ¬\/¯¯¯ (\  ¬\ 
  mov ax,251ch  ;\   /      \   __)  ¬\    /   ¬\     /  ¬\    /)   \  __/¯    \
  int 21h       ;/          /         /         /         /    ¯    /  \       /
  push w 0a000h ;¯¯¯¯\_____/¯¯¯\_____/¯¯¯\_____/¯¯¯\_____/¯¯¯\_____/¯¯¯¯\_____/ 
  pop es        ;@@@@@@@@@@@@@@@@@@@@@@@@@##################@#@@@@@@@@@@@@@@@@@@
  pusha         ;@@@@@@@@@@@@@@@@@@@@@#@@####+##+####+.;+#####@@@@@@@@@@@@@@@@@@
  mov ah,9      ;@@@@@@@@@@@@@@@@@@@@###############'+;'+#######@#@@@@@@@@@@@@@@
  mov dl,o-100h ;@@@@@@@@@@@@@@@@@@@##########++#+++##+++#++############@@@@@@@@
  int 21h       ;@@@@@@@@@@@@@@@#@#######@########+++#+'+#+#+###########@@@@@@@@
  mov di,4828h  ;@@@@@@@@@@@@@@####@###############+###+##;+++#####++####@@@@@@@
  mov cx,1800h  ;@@@@@@@@@@@###########@###########+########:;#+++#+######@@@@@@
a:es lodsb      ;@@@@@@@@@@#########+##@##########+########++++#+'++'#######@#@@
  stosw         ;@@@@@@#@@####@###################+##########+'+';########@#@@@@
  loop a	;@@@@@@@@#####@#############+############+####++++###+#+##@##@@@
  push cs       ;@@@@@@@############@##@#####+#+####+########+#++####+++######@@
  pop ds        ;@@@@@@######@######@########################+######+++#######@@
  popa          ;@@@@@@######@#############+####+######+############+++++#####@@
c:mul bx        ;@@@@@@#@###@@#@@###############+##+#############+####++++#####@
  inc ax        ;@@@@####@##@#############+#++##++####+###############++++#####@
  add ax,di     ;@@@@@####@#@#####+#############+##++##,#############++++++#####
  adc [si],bx   ;@@@@#@####@@####+###########+####+##+#+###########+#+#+++###++#
  div w [si+29h];@@@@#######+##+++++##########;####++#################++++#'++##
e:fmul d [si]   ;@@#@@#########+#++##+########+++##+++##############+#++'++#####
  fiadd w [si]  ;@######++############+#+#+##+++++#+'+++++#++++####+##+''++#####
  fistp w [bx]  ;#@@####++########+#'#++###+##++++++++''+++++++###++#+#++#+#+###
  sub ax,0a0h   ;@###@#++'###:#+#++++++#####++##+''+++++'''''''++++++++++##++###
  xchg ax,[bx]  ;@#@###+++######++''+++###+#+++++:+''++''''''''++''+++++###+++++
  xor cx,ax     ;#@@###+#########+''++####++++++'''';'''';;;;''''''''+'++#+++###
  fild w [bx]   ;#######+##++++#++'+'####+++++++'';';;''';:;;';:;''''''+'+++####
  fmul st0,st   ;####+##+##+++#+++''+#+###++++''';;;;;;';:.:';,:;;'''';'''++####
  xor bx,bp     ;##@#;+##+###++++++'+#+++++'+''';;;;::;;;.`,';:,:;'';:;''++#####
  xchg ax,dx    ;####+'######+'++#++++++++''+':';:;;,,:;:;,:';:,::'';;;'+'++++#+
  fxch st1      ;####'+######+''+++'+++++++''';;;:;:,,,;;';''';;::';;:;'+'+++##+
  jnz e         ;#@#++++#####+++++'+++++++;'';';';;:.,:''++''''';'';::;'+;+++:++
  faddp st1,st0 ;###++++######+'++;'+++++++';;;';;:;,,;'''':'';+''';;;;+''+++'++
  fsqrt         ;#@#+'+#######+'''+:'+++++';';;;;;:;:;'';;;;;'';;'++''''''''++++
  fdivr d [si]  ;###+''#######+':'++'+++++''';;':;;';';''';;;;;;;'+++';''+'++++#
  fild w [bx]   ;###+'+#######''+++++++++'''':;;:;:''';;;;;;;;;;'+'++++''''++++#
  fild w [bp]   ;####,+######+++++#++++';'''';;::,:'';;;;;:;;'';'''+'+++':;'++##
  fpatan        ;@##+#+####++++++##+'++'''''';;;:.'';;;;;:::;;';'''+''++'';''###
t equ 46ch      ;@#++##+++##+++++#++++'+'+';';;::;;;;:;:.,.,,:;;;'+'+'+++'''+###
  mov cx,[fs:t] ;##+''+##+##+++'+#+'++'';'''';::;;;;;:;,`,`.,:,:;;;'+++##;''+''#
  test ch,1     ;###''+#####+'+:+#++'';;''+';::;:::::,,.`.`.,,.::;;'++++++''+###
  jz f          ;'##+'+##+###+'++++'++;;';;;;;,::;:::,..``..,,;::;;'''++#++++#++
  test cl,40h   ;###++'+#++##+++++++'''';'';;:,,';:,,..`.....`.:;::;;''+++##+++#
  jz h          ;###+++#+##+++#'+++++''';'';;:;,;::,,..```.``...,;:;;'''+##+####
  test cl,cl    ;###+++#+#+++++'+++++'+:::;:::::;::..,`,``````.`.::;;'''+#+#+###
  jns g         ;###++++#++++'''++++';'':'';;;;;;:....`.`````````.::;''+++##+++#
  jmp j         ;##+++'++++++'';++++'+'''';';,;';,..`...`````   ``,:;'++++##+'+#
f:rol dh,1      ;###+''+++':++';'++++++''';;;::;;,.`.````````     `::;'++##++++#
  mul dh        ;###++''+#+:+++'++'++''+'';;';:,;:..` ``````      `.:;'++#++###+
  add al,cl     ;####+''+#+++++++''''+''';:::;;,,,..```````        `,:'++#++###+
  rcr al,2      ;#####+#####+++'+''+'++''';;;::::..``:``````       `.:''#+++++++
  shl al,1      ;###++######++''++'+++''''';;;:::,.`@@`             .,;+++++#++#
  mul dh        ;####+'+####++'';'''''+'';';;;:,,.. +@.             `.;'+'++##++
  rcr al,2      ;####+;'.+###++''''+++'+'';;;::::,`#@@@:            `.;;++++#++;
  add al,ch     ;#+##;+'';###+++:;'''++++;;;:::.,,,@@@@'            `.:'+++##++#
  shl al,1      ;#####++''#++''''''''''''';;;::,,.+@@@@+            ..;'++#++#++
  rcr al,2      ;###+#++;+##+++'',.:;';;;;;;;:,,..#@@@@+           `..:';+####'+
  shl al,1      ;#####++'++#+++''';,:''''''';;:,:,+@@@@# `         `..:;++#+#+#+
  mul dl        ;####+++''+#+++''';;;'''+'''';;;:.`@@@@@.`         ..,;'++#####+
  rcr al,2      ;#####+++'+###++''':;;:'''''''';:,`@@@@+;`  `      ..:;'++#+#++#
  shr al,1      ;######++;;###+++'';`:;;;;;;;;:::,.@@@@., `````` ``.,:;+++#+###+
  aam 3         ;'######++''+#+++'''::::,:;;;;;';:.#@@#:..````````.,,:''+#######
  jmp k         ;########+'';##++'':;::;;;';''+'';,;@++:;;,```````,:.,;++++#####
g:add ax,di     ;#####++'+++++++++'''';;:,,::'''';,.@++:;;:``````.;;:;'+++++####
  mul dl        ;##+#+++''++++'+++++''';;::``;''';:`@++:::.````..:;;;;+++++#####
  jmp i         ;+####+++++++++#++++''''';;;;:''';:.##+;:`````...;;'';'#+++#####
h:add ax,di     ;#######+';+++++#+++';;;;':::,::;:,.#:```.......;''''++#+#+#####
  mul ah        ;######'+','+':'+++++';';;::::,::,,:@:.,,,,,,,,:;+'''++#++######
  ror ax,5      ;#####++++++'+++++#++++'';;,;;;;::.+`..,,:::,,,''+'+''+###+#####
  mul ah        ;#######'+;+''''+++++++'';;:;;:;;:,#.`.,,..,..''+';+'+++##+#####
  xor al,dh     ;########++';'''++++++'';;''';;'';,.,:::::,:;'''''+++++#+#+##+##
i:and ax,bp     ;##########++'+;''''++''''''''''::;;;;;;;;;;;+'+:''+++++#++#####
  mov cl,al     ;######'###+++++'';;,;;::::;'';;'';;'';''':;+;''::+++++#######@#
  shr cl,6      ;++####'####;#++':;;;;::,,,:;;'++''''++'+''''++:;''+##+#+#######
  aam 11h       ;+######+##+##++'++'';,::::,:'+'''''+''+;;;+'++:'''#+#++++++###@
  shld ax,sp,cl ;+######++++#+++++++''';;:;;''::;;;':;',:;'''';;''';#+##+++'###@
  aam 0dh       ;####+###'+++#####+'+''';'';;;,;':;:;';;;'+'+'''''++####++''####
  jmp k         ;########++''+###++'''''++'''''';;''';'''++'+;+''+#######`''+###
j:mov cx,ax     ;#+#######++''+++#+++#++++++++';';''''++'+'++'++++#####+#++++###
  salc          ;#+++####+++++++#####+#+++###''+''+'++++++++''++++++#####+++####
  xchg ax,cx    ;#++#########+++:+'''++++++++++++++++++++'''+++++++#####++++####
  aam 78h       ;##+####+######++'';';''+'++#+++++####+#++;''+++'+++++++++++####
  mul dl        ;#######+#######+''+''+++++##++++##+#++#++;++++++######+++++#+##
  add al,ah     ;#####++'+######++++++#+###++#+#+###+##+:+'++++########++++#####
  sub al,ch     ;@####++''#######++++#######++++##+++##+'''++##'#######'''+##+##
k:jz l          ;####+++''#################+#++;++';;++'',+#########+##'';+#####
  mov al,37h    ;####''+++###################+''+';;.+;';'+#########+#+++`+#####
l:xor al,37h    ;#+####+###+'+++###########++;'++';''++'+++++++#####+##++;++####
  cmp di,1400h  ;@#######++';'+;##########+'';+++'''+++++#+#########+++++'+++###
  jc m          ;####@@###++#''+#++#####:++''+++;'+#+++'++##########+++##++#;###
  cmp b[es:di],7;#########+++++'++####+#+++++#++'+###++;############+++++;'#####
  jnz m         ;#@###@##+##++'++###+#++:',++++'++###+##############++##+;;+####
  mov al,7      ;####@#######++;#'##+#+#+++##+++++++##+##########+++++###+++####
m:stosb         ;#######@####+++++##+##+++#+++++##+,###++#########++#+###++#####
  jmp c         ;#############+########+#+##+#+#++++###############+############
n:mov dx,331h   ;####@##@#######++####'#+###+####+#################++########+##
  mov al,3fh    ;######@@##@###########++###+##############################+#+#@
  out dx,al     ;##########@#############################+#######'#+###########@
  dec dx        ;@@###+##@#######@############+#+#########++++########@#########
  mov al,0c0h   ;@@######@#################'##############+++;+##############@##
  out dx,al     ;@@#####+###############################+++#+''+'###############
  mov al,3ch    ;@@##@#############@########+###########+#+#+''++#############+#
  out dx,al     ;@@@#@#########################+#######+,+####+##+++##########+#
  mov al,90h    ;@#@#@#@#+#++######@###########+####+##++#####+#++#####++#######
  out dx,al     ;@@@#@#@####'+#################++#+++;#+++###+#++#+############@
  mov al,23h    ;@@@@@@@@###+#########@###########+''++:+######################@
  out dx,al     ;@@@@@@#@###+#####################+''++++############@#@@####@@#
  add al,[cs:bp];@@@@@@@@#@@##########++##++#.####'+;++#############@##@@##@#@@#
  and al,7fh    ;@@@@@@@@@@@#@####+####+#+'+####+##+++######@###@@@@@@####+@@@@#
  out dx,al     ;@@@@@@@@@@@@@####+####:##+++###@##########@@@@#@###@@#@@@@@@@@@
  iret          ;@@@@@@@@@@@@@@@#######+#######'#@####@#@@#@@@@#####@###@@@@@@@@
o db 0ah,54h,20h;@@@@@@@@@@@@@@@@@#########+####@###@@#@@@@@@@@@@@@@@@@@@#@@@@@@
  db 49h,20h,4dh;@@@@@@@@@@@@@@@@@@@@#+######@#@@@@#@#@@@#@@@@@@@@@@@@@@@@@@@@@@
  db 20h,45h,20h;@@@@@@@@@@@@@@@@@@@@@@@#@@@@@@@@@@@@@@@@#@@@@@@@@@@@@@@@@@@@@@@
  db 4ch,20h,4fh;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@#@@@@@@@@@@@@@@@@@@@@@@@@@
  db 20h,52h,20h; Greets: Onslaught Mandarine Flush Razor1911 Quartex Titan Riot
  db 44h,24h    ; Paranoimia Brewers Codex Phf Kuasoft Lineout Rebels Resistance
Go to top