Trailing-Edge
-
PDP-10 Archives
-
decuslib20-10
-
decus/20-185/macrolib.mar
There are no other files named macrolib.mar in the archive.
.macro check_rms code=r0,severity=#level5,ermsg=emsg0 ?continue
blbs r0,continue
pushr #^m<r1,r2,r3,r4,r5,r6,r7,r8,r9>
movb severity,r6
moval ermsg,r7
bsbw error
popr #^m<r1,r2,r3,r4,r5,r6,r7,r8,r9>
continue:
.endm check_rms
.macro check_match code=r0,severity=#level5,ermsg=emsg0 ?continue
blbc r0,continue
pushr #^m<r1,r2,r3,r4,r5,r6,r7,r8,r9>
movb severity,r6
moval ermsg,r7
bsbw error
popr #^m<r1,r2,r3,r4,r5,r6,r7,r8,r9>
continue:
.endm check_match
.macro check_status code=r0,severity=#level5,ermsg=emsg0 ?continue
beql continue
pushr #^m<r1,r2,r3,r4,r5,r6,r7,r8,r9>
movb severity,r6
moval ermsg,r7
bsbw error
popr #^m<r1,r2,r3,r4,r5,r6,r7,r8,r9>
continue:
.endm check_status
.macro check_status1 code=r0,severity=#level5,ermsg=emsg0 ?continue
bneq continue
pushr #^m<r1,r2,r3,r4,r5,r6,r7,r8,r9>
movb severity,r6
moval ermsg,r7
bsbw error
popr #^m<r1,r2,r3,r4,r5,r6,r7,r8,r9>
continue:
.endm check_status1