scene.org File Archive

File download

<root>­/­parties­/­2002­/­0a000h­/­64b/nvr-l4m3.zip

File size:
3 318 bytes (3.24K)
File date:
2002-02-05 23:04:27
Download count:
all-time: 1 416

Screenshot (by Demozoo)

Screenshot

Preview

  • 0a000h.nfo 547B
  • NVR-L4M3.EXE 64B
  • RELEASE.NFO 3.17K

file_id.diz

; Ich war mal wieder betrunken. Naja, und dann war ich auf dem Klo, und da 
; ist mir dieser Code aus dem Klo entgegengeflossen. Dann habe ich das mit
; einer Glasscherbe auf meinen Bauch eingeritzt, und hab ihn dann ab-
; geschrieben. Und jetzt tut datt !
;					verschdl (ich)
;					^neVer 
;
;					powered by eXit BBS !
;					& kosmos (newsserver @verschdl.de)
;
; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;  l4bels are        this is                    this is additional docu
;   here           the code                       (if u like more than codE)

		   NoP                           ; 1Niti4liZati0N
                   XoR  cX,Cx                    ; W N33d @leaSt CL @ 0
                   MOv  aH,0X8                   ; M0Vin Spe^2D / BaR

BiGB4Ck:                                         ; kiCKin d4 MAiN l00p
                   aDD  Bl,Ah                    ; A)) SPe^2D GNRL. offSEt
                   jNZ  SKiPonE                  ; S\x/iTch moViN dIr
                   NeG  aH                       ; \x/H3n 0 ReaCHeD
		   aDD  Bl,aH
         SKiPonE:  

	           moV  dX,0X3Da                 ; ReG AT(
         bCkSkiP1: iN   Al,dX                    ; iS staTUs REgiSTeR
                   test aL,0x8                   ; MaSK vReTRace (1|0)
                   jZ   bCkSkiP1                 ; + WAit4iT

                   MoV  CL,bl                    ; thiZ loadZ bAR offSET
                   iNc  cX                       ; 0 'd Be nEAR deATh
         bkSkiPII: CAlL gREEt2MAT                ; caLL liNE WaiTEr
                   loop bkSkiPII                 ; tiLL offSEt h4S pasSeD

                   MOv  CL,0X7f                  ; ld BAr h3igHt
                   CLi                           ; KILL THESE BASTARDS!

    Cbck4U:
                   cAlL  gREEt2MAT               ; aS u ALReaDY kNOW

                   XoR   AL,al                   ; SElECt ColoR 0
                   MOV   dL,0XC8                 ; (eQUALs coloR seleCT @3d8)
                   OUt   dX,Al                   ; 0x3oo iS AlreADy iN dH

                   iNC   dX                      ; swITCh2col0r WRiTe
                   oUT   dX,Al                   ; NOBODY NEEDS RED!
                   moV   Al,cL                   ; sET GB tO oFFseT
                   OuT   dX,Al                   ; 4 gR33n
                   OUt   dX,Al                   ; + blUE
                   lOOP  Cbck4U                  ; looP 4 h3iGht

                   jMP   BiGB4Ck                 ; nXtScr33n4eTERniTy

                                                 ; l0vlY sUB 4 hBAcKTRacE
                                                 ; GREETS FLY OUT TO MAT/OZONE
    gREEt2MAT:                                   ; BECAUSE NEVER DOES NEVER
						 ; GET THE SPELING RIGHT.
						 ;  -SORRY MAT-
                   MOv   Dl,0XdA                 ; ATcREg, uKnoW d4 0x3 thiNg
          smlBcK:  iN    Al,dX 
                   TesT  AL,0X1                  ; W4iT 4 inDisPLAy 
                   jNe   smlBcK
          IIsmlBk: iN    al,DX
                   tESt  al,0x01                 ; W4iT 4 inDisPLAy ST0P
                   jE    IIsmlBk
                   ReTN                          ; EverYTHinG d0nE