This commit is contained in:
Frater 2017-09-24 01:45:36 +02:00
commit 43352ff262
1291 changed files with 220976 additions and 0 deletions

27
TECHNO/ROT.ASM Normal file
View file

@ -0,0 +1,27 @@
code SEGMENT para public 'CODE'
ASSUME cs:code
start call rol
mov ax,4c00h
int 21h
waitb PROC NEAR
mov dx,3dah
@@1: in al,dx
test al,8
jnz @@1
@@2: in al,dx
test al,8
jnz @@2
ret
waitb ENDP
rol PROC NEAR
call waitb
ret
rol ENDP
code ENDS
END start