File PLOT6.SB (8k SABR macro assembler source file)

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

/PLOT6.SB, PAGE 1 OF 5.		(9/16/71 - C.M.MOORE, RICE U., HOUSTON)
/
/PDP-12 SCOPE DISPLAY PACKAGE 6.
/
/CONTAINS ENTRY POINTS DSP10,DSP11.
/SEE LISTING OF FILE 'XPLAIN.PL' FOR AN EXPLANATION OF HOW TO
/USE THESE ROUTINES.
/
	LAP /THESE 2 ROUTINES OCCUPY EXACTLY 2 CORE PAGES.
/
ABSYM TEM2  10 /AUTO-INDEX REGISTER
OPDEF ANDI 0400
OPDEF TADI 1400
OPDEF DCAI 3400
OPDEF JMPI 5400
/
/ENTRYP SAVES LOCATION 1, FETCHES LX & LY, SETS UP FOR FULL OR
/HALF SIZED CHARACTER DISPLAY ON CHANNEL 2.
MODE,
ENTRYP,	0
	DCA CDFDSP
	6141 /LINC
	2001 /ADD 1
	0002 /PDP
	DCA SAVE1
	JMS GETARG /GET LX
	CLL CML
	SPA /CHECK FOR CHARACTER SIZE
	CMA IAC CLL
	TAD P4001 /SET UP FOR CHANNEL 2.
	6141 /LINC
P4001,	4001 /STC 1
	1020 /LDA I
	0200
	0452 /LZE
	0011 /CLR
	0004 /ESF (SET UP CHAR SIZE)
	0002 /PDP
	CLA CLL CML RTL /SET AC=2
	TAD CDFDSP
	DCA CDFCIF /SET UP FOR QUICK RETURN
	JMS GETARG /GET LY
	DCA Y
	JMS GETARG /GET 3RD ARG
	JMPI ENTRYP
/
/ADDRES LOADS NEXT ARG ADDRESS POINTED TO BY DSP10
ADDRES,	0
CDFDSP,	0 /CHANGE TO DF OF CALLING PROGRAM
	TADI DSP10#
	INC DSP10#
	DCA TEM
	TAD TEM
	DCA ALUP9
	TADI DSP10#
	INC DSP10#
TEM,	0 /CHANGE TO DF OF ARG
	DCA TEM
	JMPI ADDRES
/

/PLOT6.SB, PAGE 2 OF 5. / /GETARG FETCHES NEXT ARG POINTED TO BY DSP10 PT1, GETARG, 0 JMS ADDRES TADI TEM JMPI GETARG / /DSCHAR DISPLAYS PATTERN POINTED TO BY TEM2. DSCHAR, 0 TADI TEM2 DCA PAT TAD Y 6141 /LINC P60, 1760 /DSC I PAT, 0000 /DISPLAY PATTERN 0002 /PDP CLA JMPI DSCHAR / P77P, PATTRN, P77 / /CHPLOT DISPLAYS THE CHARACTER IN BITS 6-11 OF THE AC. CHPLOT, 0 AND I P77P /EXPLICIT INDIRECT TO FORCE CHANGE TO CURRENT DF CLL RAL TAD PATTRN DCA TEM2 JMS DSCHAR /DISPLAY 1ST HALF OF CHARACTER JMS DSCHAR /DISPLAY 2ND HALF 6141 /LINC 0221 /XSK I 1 0221 /XSK I 1 0002 /PDP JMPI CHPLOT /
/PLOT6.SB, PAGE 3 OF 5. / /SUBROUTINE DSP10(LX,LY,MODE,N) ENTRY DSP10 Y, DSP10, BLOCK 2 P7, CLA CLL IAC RTL CMA /SET AC=-5 DCA DSP11# TAD DSP10 JMS ENTRYP /GET LX,LY,MODE DCA MODE JMS GETARG /GET N DCA PT1 /CHECK IF NUMBER WILL BE DISPLAYED SIGNED OR UNSIGNED TAD MODE SZA CLA JMP ENDLUP TAD PT1 SPA CMA IAC CML DCA PT1 SNL JMP ENDLUP /DISPLAY MINUS SIGN CLA CMA CLL RTL /SET AC=-3 JMP DSP /OCTAL # DISPLAY LOOP OCLUP, TAD PT1 RTL RAL DCA PT1 TAD PT1 RAL AND P7 DSP, TAD P60 JMS CHPLOT /DISPLAY CHARACTER ENDLUP, ISZ DSP11# JMP OCLUP /EXIT SECTION JBACK, TAD SAVE1 6141 /LINC 4001 /STC 1 0002 /PDP CDFCIF, HLT /CHANGE TO DF&IF OF CALLING PROG. JMPI DSP10# /QUICK RETURN /
/PLOT6.SB, PAGE 4 OF 5. / /SUBROUTINE DSP11(LX,LY,LENTH,STRNG) ENTRY DSP11 SAVE1, DSP11, BLOCK 2 TAD DSP11# DCA DSP10# TAD DSP11 JMS ENTRYP /GET LX,LY,LENTH CIA DCA DSP11# JMS ADDRES /LOAD ADDRESS OF STRNG INTO TEM /CHARACTER DISPLAY LOOP. ALUP9, 0 /CHANGE TO DF OF ARG TADI TEM /GET NEXT PAIR OF CHARS IN STRNG INC TEM DCA PT1 TAD PT1 RTR RTR RTR JMS CHPLOT /DISPLAY 1ST CHAR OF PAIR TAD PT1 JMS CHPLOT /DISPLAY 2ND CHAR ISZ DSP11# JMP ALUP9 AADISP, JMP JBACK P77, 77 /MUST BE LAST LOC ON PAGE /END OF 1ST CORE PAGE /
/PLOT6.SB, PAGE 5 OF 5. CHRPAT, 5146;3645 /@ DISPLAY PATTERNS FOR 6-BIT STRIPPED ASCII CHARS. 4477;7744 /A 5177;2651 /B 4136;2241 /C 4177;3641 /D 4577;4145 /E 4477;4044 /F 4136;2645 /G 1077;7710 /H 7741;0041 /I 4142;4076 /J 1077;4324 /K 0177;0301 /L 3077;7730 /M 3077;7706 /N 4177;7741 /O 4477;3044 /P 4276;0376 /Q 4477;3146 /R 5121;4651 /S 4040;4077 /T 0177;7701 /U 0176;7402 /V 0677;7701 /W 1463;6314 /X 0770;7007 /Y 4543;6151 /Z 4177;0000 /[ (SHIFT K) 3040;0106 /\ (SHIFT L) 0000;7741 /] (SHIFT M) 3710;1037 /^ 3410;1052 /_ 0000;0000 / (SPACE) 7500;0000 /! 0070;0070 /" 7624;0024 /# 4731;4275 /$ 1446;6130 /% 5166;0526 /& 7000;0000 /' 3600;0041 /( 4100;0036 /) 2050;0050 /* 0404;0437 /+ 0500;0006 /, 0404;0404 /- 0001;0000 /. 0601;4030 // 4536;3651 /0 2101;0177 /1 4523;2151 /2 4122;2651 /3 2414;0477 /4 5172;0651 /5 1506;4225 /6 4443;6050 /7 5126;2651 /8 5122;3651 /9 2200;0000; 4601;0000; 2410;0042; 1212;1212; 4200;1024 /:;<=> AAEND9, 4020;2055 /? END



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