В процедуру класса можно передавать параметры. Например, вот так:
CALL strstruct METHOD printchar pascal, '-' ,'>'
В самой процедурe параметры нужно писать вместе с типом:
strstr_printchar PROC PASCAL ARG @@a1:byte,@@a2:byte mov dl,@@a1 mov ah,02h int 21h mov dl,@@a2 mov ah,02h int 21h ret ENDP
Ну, и соответственно ими воспользоваться. Например, такой вызов:
CALL strstruct METHOD printchar pascal, '?' ,'?'
Ведет вот к такому результату: