123456789101112131415161718192021222324252627282930313233343536 |
- .sect .text; .sect .rom; .sect .data; .sect .bss
- .sect .text
- .define .rol
- ! #bytes in ax
- .rol:
- pop dx ! return address
- cmp ax,2
- jne 1f
- pop ax
- pop cx
- rol ax,cl
- push ax
- jmp dx
- 1:
- cmp ax,4
- jne 9f
- pop cx
- jcxz 2f
- pop ax
- pop bx
- 3:
- sal ax,1
- rcl bx,1
- adc ax,0
- loop 3b
- push bx
- push ax
- 2:
- jmp dx
- 9:
- .extern EODDZ
- .extern .trp
- mov ax,EODDZ
- push dx
- jmp .trp
|