Trailing-Edge
-
PDP-10 Archives
-
tops10and20_integ_tools_v9_3-aug-86
-
tools/crc/browse/crbell.mac
There are no other files named crbell.mac in the archive.
TITLE crbell -rings terminal bell
search crcsym,monsym
entry crbell
crbell: ;caia
;push p,cexit.##
;
;call from fortran with
; CALL CRBELL(N)
;where n is the no of times to ring bell
;
move t3,@(cx) ;store count i.e. N
caig t3,0 ;check for n<=0
jrst noring ;and don't ring
loop: move t1,[.priou] ;send to tty
movei t2,7 ;7 is ascii for bell
bout% ;send bell
erjmp .+1 ;ignore full buffer error
sojg t3,loop ;test ofr end of loop
noring: popj p, ;return
end