Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

 INS 38/17	;13C1
		LDB	T1,[POINT 3,P3,17]	;GET MIN LENGTH OF ARG LIST
		HLRZ	T2,P4		;AND LENGTH USER SUPPLIED
		CAIGE	T2,(T1)		;DID HE GIVE US ENOUGH?
		 JRST	TOPX3		;NOPE
 INS 11/130	;13C2
	;FIELD WHICH CONTAINS THE MINIMUM NUMBER OF ARGS WHICH A USER MUST
	;SUPPLY FOR A PARTICULAR FUNCTION.  THIS FIELD ONLY NEEDS TO BE FILLED
	;IN IF THE ARG COUNT IS GREATER THAN 2.  IF THE FUNCTION TAKES A VERY
	;LONG ARG LIST (LIKE TOPRBS) THEN IT SHOULD DO ITS OWN CHECKING
		TOP.CT==7B17
 REP 20/130	;13C3
		EXP	TOP.RP+TOP.WP+TOPOUC		;5 - OUTPUT CHAR
		EXP	TOP.RP+TOP.WP+TOP.NF+TOPOIC	;6 - OUTPUT IMAGE CHAR
		EXP	TOP.RP+TOP.WP+TOPOUS		;7 - OUTPUT STRING
 WIT
		EXP	<3B17>+TOP.RP+TOP.WP+TOPOUC	;5 - OUTPUT CHAR
		EXP	<3B17>+TOP.RP+TOP.WP+TOP.NF+TOPOIC	;6 - OUTPUT IMAGE CHAR
		EXP	<3B17>+TOP.RP+TOP.WP+TOPOUS	;7 - OUTPUT STRING
 REP 26/130	;13C4
		EXP	TOP.WP+TOPDSC			;13 - DATASET CALL
		EXP	TOP.WP+TOPDSF			;14 - DATASET OFF
		EXP	TOP.RP+TOP.WP+TOPRES		;15 - RESCAN
		EXP	TOP.WP+TOPELE			;16 - SET TYPE ELEMENT
		EXP	TOP.WP+TOPABR			;17 - ENABLE AUTO BAUD DETECT
		EXP	TOP.RP+TOP.WP+TOPISC		;20 - INPUT CHAR.
		EXP	TOP.RP+TOP.WP+IFN FTMIC,<TOP.MC>+TOPMTY	;21 - MICTYP
	IFN FTMIC,<
		EXP	TOP.RP+TOP.WP+TOP.MC+TOPMGT	;22 - MICGET
		EXP	TOP.RP+TOP.WP+TOP.MC+TOP.MR+TOPMST;23 - MICSET
		EXP	TOP.RP+TOP.WP+TOP.MC+TOPMCL	;24 - MICCLR
 WIT
		EXP	<4B17>+TOP.WP+TOPDSC		;13 - DATASET CALL
		EXP	TOP.WP+TOPDSF			;14 - DATASET OFF
		EXP	TOP.RP+TOP.WP+TOPRES		;15 - RESCAN
		EXP	<3B17>+TOP.WP+TOPELE		;16 - SET TYPE ELEMENT
		EXP	TOP.WP+TOPABR			;17 - ENABLE AUTO BAUD DETECT
		EXP	TOP.RP+TOP.WP+TOPISC		;20 - INPUT CHAR.
		EXP	<3B17>+TOP.RP+TOP.WP+IFN FTMIC,<TOP.MC>+TOPMTY	;21 - MICTYP
	IFN FTMIC,<
		EXP	<3B17>+TOP.RP+TOP.WP+TOP.MC+TOPMGT	;22 - MICGET
		EXP	<3B17>+TOP.RP+TOP.WP+TOP.MC+TOP.MR+TOPMST;23 - MICSET
		EXP	<3B17>+TOP.RP+TOP.WP+TOP.MC+TOPMCL	;24 - MICCLR
 REP 43/130	;13C5
		EXP	TOP.RP+TOP.WP+IFN FTMIC,<TOP.MC>+TOPMDP	;25 - MICDPY
	IFN FTMIC,<
		EXP	TOP.RP+TOP.WP+TOP.MC+TOPMRS	;26 - MICDSP
	IFN FTMLOG,<
		EXP	TOP.MC+TOP.RP+TOP.WP+TOPMLG	;27 - MICLOG
 WIT
		EXP	<3B17>+TOP.RP+TOP.WP+IFN FTMIC,<TOP.MC>+TOPMDP	;25 - MICDPY
	IFN FTMIC,<
		EXP	<3B17>+TOP.RP+TOP.WP+TOP.MC+TOPMRS	;26 - MICDSP
	IFN FTMLOG,<
		EXP	<3B17>+TOP.MC+TOP.RP+TOP.WP+TOPMLG	;27 - MICLOG
 REP 60/130	;13C6
		EXP	TOP.NF+TOPISO			;33 - IMAGE STRING OUTPUT
 WIT
		EXP	<3B17>+TOP.NF+TOPISO		;33 - IMAGE STRING OUTPUT
 SUM 52276