.title TSX+ Initialization for servers ; DECUS C Calling Format ; ; jsr r5,csv$ ;save r2,r3, and r4 ; ;r5 is parameter base ; ;c$pmtr(r5) is first argument ; ;c$pmtr+2(r5) is second argument ; ;... ; ;return args in r0 ; ... ; user code ; ... ; ; jmp cret$ ;restore r2-r5 and return ; rts pc ;does the same (cret$ follows csv$) ; ; csv$ and cret$ need be used only if arguments are used ; .include "os.mac" .mcall .serr .psect c$code inisrv:: .if ne ts$sys ;tsx-plus specific mov #loklow,r0 ;.loklow emt 375 .endc .serr ;all errors are soft rts pc .psect c$data .if ne ts$sys ;tsx-plus specific loklow: .byte 7,140 ;.loklow .endc .end