Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/erparm.mac
There are no other files named erparm.mac in the archive.
SUBTTL *ERPARM* ERROR HANDLER PARAMETERS, V76A, JUNE 14, 1976
;*ERROR CALL MACRO
DEFINE ERROR (X,F,D)<
JSR X,%ERCAL ;GO TO ERROR HANDLER
JRST .+4 ;RETURN, SKIP OVER LITERALS
;ERROR HANDLER LITERALS
XLIST
XWD T,[ASCIZ/F/]
XWD C,A
[ASCIZ/D/]
LIST >
;*TEST ITERATION AND ERROR LOOP MACRO'S
DEFINE TLOOP (S,R)<
SKIPGE SCOPE#
JRST S ;SCOPE LOOP
SOSLE REPT#
JRST R ;REPEAT LOOP >
DEFINE ERLOOP (S)<
SKIPGE SCOPE#
JRST S-5 ;SCOPE LOOP >
DEFINE ERLOP1 (S)<
SKIPGE SCOPE#
JRST S ;SCOPE LOOP >
DEFINE REPTLP (R)<
SOSLE REPT#
JRST R ;REPEAT LOOP >
DEFINE ERLOP2 (S)<
MOVEM 0,%SVAC0#
SWITCH ;READ SWITCHES
TLNN 0,LOOPER ;LOOP ON ERROR ?
SETZM SCOPE# ;NO, CLEAR LOOP CONTROL
MOVE 0,%SVAC0
SKIPGE SCOPE
JRST S ;SCOPE LOOP >