Upload
This commit is contained in:
commit
43352ff262
1291 changed files with 220976 additions and 0 deletions
27
TECHNO/ROT.ASM
Normal file
27
TECHNO/ROT.ASM
Normal 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
|
||||
|
||||
Loading…
Reference in a new issue