File ASS.

Directory of image this file is from
This file as a plain text file

	/*CASE 2=ASSEMBLER CASE*/

	BUF$PTR$OLD=.BUFFER;
	BUF$PTR$NEW=.BUFFER;
	TEXT$LENGTH=LENGTH(TEXT$ASM$0)-1;
	BUF$PTR$NEW=LOAD$BUFFER(.TEXT$ASM$0,TEXT$LENGTH,BUF$PTR$OLD);
	CALL PRINT$CONS(.TEXT$ASM$1);
	TEXT$LENGTH=READ$CONS(.TEXT$BUF,12);
	BUF$PTR$NEW=LOAD$BUFFER(.TEXT$BUF(0),TEXT$LENGTH,BUF$PTR$NEW);
	TEXT$LENGTH=LENGTH(TEXT$ASM$2)-1;


	ASM$SWITCH=0;
	DO WHILE ASM$SWITCH <>4;
	   DO CASE ASM$SWITCH;
	      DO;		/*CASE 0*/
	         CALL PRINT$CONS(.TEXT$ASM$2);
	         ASM$SWITCH=READ$CONS$CHECK(1);
	      END;
	      DO;		/*CASE=1=YES*/
	         ASM$SWITCH=4;
	      END;
	      DO;		/*CASE=2=NO*/
	         TEXT$LENGTH=LENGTH(TEXT$BUF$3)-1;
	         BUF$PTR$NEW=LOAD$BUFFER(.TEXT$BUF$3,TEXT$LENGTH,BUF$PTR$NEW);
	         CALL PRINT$CONS(TEXT$ASM$4);
	         TEXT$LENGTH=READ$CONS(.TEXT$BUF,12);
	         BUF$PTR$NEW=LOAD$BUFFER(.TEXT$BUF,TEXT$LENGTH,BUF$PTR$NEW);
	         ASM$SWITCH=4;
	      END;
	   END;			/*DO CASE=ASM$SWITCH*/
	END;			/*DO WHILE ASM$SWITCH<>4*/
	CALL PRINT$CONS(.TEXT$ASM$5);	/*DEFAULTS?*/
	ASM$SWITCH=0;
	DO WHILE ASM$SWITCH<>4;
	   DO CASE ASM$SWITCH;
	      DO;		/*CASE 0*/
	         CALL PRINT$CONS(.TEXT$ASM$5);
	         ASM$SWITCH=READ$CONS$CHECK;
	      END;
	      DO;		/*CASE=1=YES*/
	         ASM$SWITCH=4;
	      END;
	      DO;		/*CASE=2=NO*/
	         CALL PRINT$CONS(.TEXT$ASM$6);	/*XREF*/
	         CHAR=CI;
	         IF CHAR='Y' THEN DO;
					TEXT$LENGTH=LENGTH(TEXT$ASM$26)-1;
					BUF$PTR$NEW=LOAD$BUFFER(.TEXT$ASM$26,TEXT$LENGTH,BUF$PTR$NEW);
				 END;
	         CALL PRINT$CONS(.TEXT$ASM$7);	/*DEBUG*/
	         CHAR=CI;
	         IF CHAR='Y' THEN DO;
					TEXT$LENGTH=LENGTH(TEXT$ASM$27)-1;
					BUF$PTR$NEW=LOAD$BUFFER(.TEXT$ASM$27,TEXT$LENGTH,BUF$PTR$NEW);
				 END;
	         CALL PRINT$CONS(TEXT$ASM$8);	/*SYMBOLS*/
	         CHAR=CI;
	         IF CHAR='N' THEN DO;
					TEXT$LENGTH=LENGTH(TEXT$ASM$28)-1;
					BUF$PTR$NEW=LOAD$BUFFER(.TEXT$ASM$28,TEXT$LENGTH,BUF$PTR$NEW);
				 END;
	         CALL PRINT$CONS(.TEXT$ASM$9);	/*PRINTFILE*/
	         CHAR=CI;
	         IF CHAR='N' THEN DO;
					CALL PRINT$CONS(.TEXT$ASM$91);	/*PRINT$FILE$NAME*/
					TEXT$LENGTH=READ$CONS(.TEXT$BUF(0),12);
					BUF$PTR$NEW=LOAD$BUFFER(.TEXT$BUF(0),TEXT$LENGTH,BUF$PTR$NEW);
					CALL PRINT$CONS(.TEXT$ASM$10);	/*LIST*/
					CHAR=CI;
					IF CHAR='N' THEN DO;
;
					   TEXT$LENGTH=LENGTH(TEXT$ASM$210);
					   BUF$PTR$NEW=LOAD$BUFFER(.TEXT$ASM$210,TEXT$ENGTH,BUF$PTR$NEW);
					   		END;
				 END;
	         CALL PRINT$CONS(.TEXT$ASM$11);	/*TITLE*/
	         CHAR=CI;
	         IF CHAR='Y' THEN DO;
					CALL PRINT$CONS8.TEXT$ASM$12);	/*WHICH TITLE*/
	     				TEXT$LENGTH=LENGTH(.TEXT$ASM$2111)-1;
					BUF$PTR$NEW-LOAD$BUFFER(.TEXT$ASM$2111,TEXT$LENGTH,BUF$PTR$NEW);

TEXT$LENGTH=READ$CONS(.TEXT$BUF(0),6); BUF$PTR$NEW=LOAD$BUFFER(.TEXT$ASM$21,12)-1; TEXT$LENGTH=LENGTH(TEXT$ASM$2112,TEXT$LENGTH,BUF$PTR$NEW); END; CALL PRINT$CONS(.TEXT$ASM$13); /*PAGELENGTH-66?*/ CHAR=CI; IF CHAR='N' THEN DO; PAGE=200; DO WHILE (PAGE>132 AND PAGE<66); CALL PRINT$CONS(.TEXT$ASM$14); /*PAGELENGTH-XX*/ TEXT$BUF(0),TEXTBUF(1),TEXT$BUF(2)=0; TEXT$LENGTH=READ$CONS(.TEXT$BUF(0),3); IF TEXT$LENGTH=1 THEN PAGE=TEXT$BUF(0); IF TEXT$LENGTH=2 THEN PAGE=TEXT$BUF(1)+10*TEXT$BUF(0); IF TEXT$LENGTH=3 THEN PAGE=TEXT$BUF(2)+10*TEXT$BUF(1)+100*TEXT$BUF(0); END; /*PAGELENGTH*/ BUF$PTR$NEW=LOAD$BUFFER(.TEXT$ASM$2131,LENGTH(TEXT$ASM$2131),BUF$PTR$NEW); /*XX*/ BUF$PTR$NEW=LOAD$BUFFER(.TEXT$BUF(0),TEXT$LENGTH,BUF$PTR$NEW); /*)*/ BUF$PTR$NEW=LOAD$BUFFER(.TEXT$ASM$2132,LENGTH(TEXT$ASM$2132),BUF$PTR$NEW); END; CALL PRINT$CONS(.TEXT$ASM$15); /*PAGEWIDTH*/ CHAR=CI; IF CHAR='N' THEN DO; WIDTH=255; DO WHILE (WIDTH>132)AND (WIDTH<30); CALL PRINT$CONS(.TEXT.ASM$16); /*PAGEWIDTH*/ TEXT$BUF(0),TEXT$BUF(1),TEXT$BUF(2)=0; TEXT$LENGTH=READ$CONS(.TEXT$BUF(0),3); TEXT$LENGTH=1 THEN PAGE=TEXT4BUF(0); TEXT$LENGTH=2 THEN PAGE=TEXT$BUF(1)+10*TEXT$BUF(0); IF TEXT$LENGTH=3 THEN PAGE=TEXT$BUF(2)+10*TEXT4BUF(1)+100*TEXT$BUF(0); END; /*PAGEWIDTH*/ BUF$PTR$NEW=LOAD$BUFFER(.TEXT$ASM$2151,(LENGTH(TEXT$ASM$2150)-1),BUF$PTR$NEW); BUF$PTR$NEW=LOAD$BUFFER(.TEXT$BUF(0),TEXT$LENGTH,BUF$PTR$NEW); BUF$PTR$NEW=LOAD$BUFFER(.TEXT$ASM$2151,(LENGTH(TEXT$ASM$2152)-1),BUF$PTR$NEW); END; /*END IF NEW*/ END; /*DCASE 2*/ END; /*DO CASE ASM$SWITCH*/ END; /*DO WHILE ASM$SWITCH*/ /*ENDE ASSEMBLER-CASE*/



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search