Google
 

Trailing-Edge - PDP-10 Archives - BB-FI82B-DD_1989 - 35,1414/test.mac
There are 8 other files named test.mac in the archive. Click here to see a list.
00100		TITLE TEST
00200		SEARCH UUOSYM
00300	SUBTTL DEFINITIONS
00400	
00500	WHOTST==0	;LAST EDITED BY BOB
00600	VERTST==1
00700	PATTST==0	;PATCH LEVEL
00800	MODTST==1	;EDIT LEVEL
00900		INTERN	.JBVER
01000		.JBVER==137
01100		LOC	.JBVER
01200		BYTE	(3)WHOTST (9)VERTST (6)PATTST (18)MODTST
01300		RELOC
01400		P=17
01500		T1=1
01600	START: OUTSTR [ASCIZ/
01700	ANSWER YES OR NO>>>>>>		  /]
01800		MOVE P,[POINT 7,BUF]
01900		PUSHJ P,LOOP
02000		JRST NO
02100	YES:	INCHRW T1
02102		CAIN T1,177
02122		JRST FIX
02200		CAIE T1,12
02500		JRST YES
02600	
02700		OUTSTR [ASCIZ/
02800	% YES
02900	/]
03000		JRST END
03100	NO:	INCHRW T1
03200		CAIN T1,177
03300		JRST FIX
03400		CAIE T1,12
03500		JRST NO
03600	
03700		OUTSTR [ASCIZ/
03800	# NO/]
03900		EXIT
04000	LOOP:	INCHRW T1
04100		CAIN T1,15
04200	;	CAIN T1,12
04300		JRST FIX
04400		CAIN T1,177
04500		JRST FIX
04600		CAIN T1,"N"
04700		POPJ P,
04800		CAIE T1,"Y"
04900		JRST LOOP
05000		AOS (P)
05100		POPJ P,
05200		EXIT
05300	FIX:	OUTSTR [ASCIZ/
05400			/]
05500		JRST START
05600	END:	EXIT
05700	BUF: BLOCK 100
05800		END START