Mercurial > hg > Members > kono > nitros9-code

comparison level1/modules/rbf.asm @ 1694:e7b88498bb05

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Changes for the 03.02.04 release.
author boisy
date Tue, 03 Aug 2004 02:28:50 +0000
parents c0c47b363b5d
children d729f735c336
comparison
equal deleted inserted replaced
1693:b75cb7ca03a6 1694:e7b88498bb05
769 pshs x,a save PD.RGS ptr and caller's original B 769 pshs x,a save PD.RGS ptr and caller's original B
770 ldd #D$GSTA*256+SS.VarSect getstat function/SS.VarSect GetStat 770 ldd #D$GSTA*256+SS.VarSect getstat function/SS.VarSect GetStat
771 stb R$B,x put SS.VarSect into caller's B 771 stb R$B,x put SS.VarSect into caller's B
772 lbsr L0CED send it to driver 772 lbsr L0CED send it to driver
773 puls a,x get caller's original B and saved PD.RGS 773 puls a,x get caller's original B and saved PD.RGS
774 bcs L061C
775 sta R$B,x restore caller's original B 774 sta R$B,x restore caller's original B
776 **** 775 bcc ok@ branch if no error on GetStat
777 776 cmpb #E$UnkSvc Unknown Service call error?
778 ldd #256 777 lbne L0B10 if not, return with error
778 ****
779 ok@ ldd #256
779 stb PD.BUF+2,y 780 stb PD.BUF+2,y
780 os9 F$SRqMem 781 os9 F$SRqMem
781 bcs L061C 782 bcs L061C
782 stu PD.BUF,y 783 stu PD.BUF,y
783 ldx PD.RGS,y 784 ldx PD.RGS,y