; 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