title '80-zeichen'
;
code segment para 'code'
     assume cs:code, ds:code
     org 0100h
start:
     mov dx,03d8h
     mov ax,2dh
     out dx,ax
;
     mov dx,03d4h
     mov ax,00
     out dx,ax
     mov dx,03d5h
     mov ax,71h
     out dx,ax
     mov dx,03d4h
     mov ax,01 
     out dx,ax
     mov dx,03d5h
     mov ax,50h
     out dx,ax
     mov dx,03d4h
     mov ax,02
     out dx,ax
     mov dx,03d5h
     mov ax,5ah
     out dx,ax
     mov dx,03d4h
     mov ax,03
     out dx,ax
     mov dx,03d5h
     mov ax,0ah
     out dx,ax
     mov dx,03d4h
     mov ax,04
     out dx,ax
     mov dx,03d5h
     mov ax,1fh
     out dx,ax
     mov dx,03d4h
     mov ax,05
     out dx,ax
     mov dx,03d5h
     mov ax,06h
     out dx,ax
     mov dx,03d4h
     mov ax,06
     out dx,ax
     mov dx,03d5h
     mov ax,19h
     out dx,ax
     mov dx,03d4h
     mov ax,07
     out dx,ax
     mov dx,03d5h
     mov ax,1ch
     out dx,ax
     mov dx,03d4h
     mov ax,08
     out dx,ax
     mov dx,03d5h
     mov ax,02h
     out dx,ax
     mov dx,03d4h
     mov ax,09
     out dx,ax
     mov dx,03d5h
     mov ax,07h
     out dx,ax
     mov dx,03d4h
     mov ax,10
     out dx,ax
     mov dx,03d5h
     mov ax,06h
     out dx,ax
     mov dx,03d4h
     mov ax,11
     out dx,ax
     mov dx,03d5h
     mov ax,07h
     out dx,ax
     mov dx,03d4h
     mov ax,12
     out dx,ax
     mov dx,03d5h
     mov ax,00h
     out dx,ax
     mov dx,03d4h
     mov ax,13
     out dx,ax
     mov dx,03d5h
     mov ax,00h
     out dx,ax
;
     mov ah,0
     int 21h
code ends
     end start

