پاسخ : روش کار با پرینتر
من هنوز سر کار هستم. عصر یک نگاهی میکنم.
من هنوز سر کار هستم. عصر یک نگاهی میکنم.
' Strobe : PORTD.1
o_char var byte
i var byte
TRISB = 0
TRISD = 0
top:
PORTB = $ff
PORTD = $ff
o_char="N"
gosub out_char
gosub ret
for i=0 to 16
LOOKUP i,["A99,15,0,1,1,1,N,"],o_char
gosub out_char
next i
o_char=34
gosub out_char
for i=0 to 14
LOOKUP i,["==is is font ++"],o_char
gosub out_char
next i
o_char=34
gosub out_char
gosub ret
o_char="P"
gosub out_char
o_char="1"
gosub out_char
gosub ret
pause 2000
goto top
ret: ' print a return and line feed
o_char=13
gosub out_char
o_char=10
gosub out_char
return
out_char: ' print charcter in o_char
PORTD=$3 'strobe high
PORTB = o_char
pauseus 10
PORTD=$01
pauseus 10
PORTD=$03
return
دیدگاه