File RMPLOT.12

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



CLEAR=JMS I 43
SET=JMS I 44
REFRSH=JMS I 45

RF=2
CL=40
TG=100
RW=20
TR=1000
MUX=4
WE=10
FQ=200
CS=400
DI=1
FE=2000

*40
RAMLIC,	0
RABIC,	0
ERRMPT,	0
SRCLR
SRSET


*1000


RAMSTR,	LINE
	TDC		/OLD OR NEW(O OR N)
	4317
	4314
	4304
	4240
	4317
	4322
	4240
	4316
	4305
	327
	LINE

	RTCHAR
	CHECK
	317
	JMP RAMALT

	MOSTGO





/EINLESEN VON SETBACK M UND N (ZEILEN U. SPALTEN)
/EINLESEN VON DELAY (LOW A. HIGH)
/EINLESEN VOM BITMUSTER UND AUSDRUCK

RAMNEU,	TAD RAMTRN
	CIA
	IAC
	DCA RAMTRN
	TAD RAMTRM
	CIA
	IAC
	DCA RAMTRM

RAMBIT,	LINE		/BITMUSTER:
	TDC
	4302
	4311
	4324
	4315
	4325
	4323
	4324
	4305
	322
	LINE

RAMIN,	CLA		/EINLESEN DES BITMUSTERS
	TAD RABIP
	DCA RABIC
	TAD RAMMN4
	DCA RAMCTN
	TAD RAMMN4
	DCA RAMCTM

RAMRED,	RCHAR
	TAD RMN260
	DCA I RABIC
	TAD I RABIC
	TAD RN260
	TCHAR
	ISZ RABIC
	ISZ RAMCTN
	JMP RAMRED

	LINE
	TAD RAMMN4
	DCA RAMCTN
	ISZ RAMCTM
	JMP RAMRED

	LINE
	LINE
	JMP RAMALT


PAGE








/INITALISIERUNG UND UEBERSCHRIFT

RAMALT,	TLS
	CLA IAC
	DCA RAMFLG
	TAD RABIP
	DCA RABIC
	TAD RAMN16
	DCA RAMCTR
	TAD RAMLIP
	DCA RAMLIC
	DCA I RAMLIC
	ISZ RAMLIC
	ISZ RAMCTR
	JMP .-3

	CLA
	DCA RAMFEC
	DCA RAMFEC+1
	DCA RAMSTA
	DCA ERRMPT
	IAC
	DCA SPALTE
	DCA SPALTE+1
	CDF 20
	TAD NM256
	DCA I ERRMPT
	ISZ ERRMPT
	JMP .-3
	CDF 0


	LINE		/UEBERSCHRIFT
	TDC
	4322
	4301
	4315
	4240
	4316
	4322
	4272
	240

	RTCHAR		/WRITE COMMENT
	CHECK
	212		/END OF COMMENT
	SKP
	JMP .-4

	LINE
	JMS SURE

	RCHAR
	CHECK
	331
	JMP RAMAIN
	JMP RAMSTR


RMN260,	-260
RN260,	260
RAMN16,	-20
RAMCTR,	0
SPALTE,	0;0
NM256,	256


PAGE /INITALISIERUNG DER STEUERSIGNALE RAMAIN, CLA TAD RAMMN4 DCA RAMCTN TAD RAMMN4 DCA RAMCTM TAD RAMLIP DCA RAMLIC TAD RAMN16 DCA LPCNT TAD RABIP DCA RABIC /INITIALISIERUNG DES CLOCK ENABLE REGISTERS CLA CMA CLZE CLA TAD BUFFER CIA CLAB CLA TAD ENABLE /ENABLE REAL TIME CLOCK CLOE SET CS FQ CL RW WE MUX RF CLEAR CL TG FQ FE TR SET CL JMS RAMCOR /ADRESSEN BERECHNEN RAMSTA, 0 /ZWISCHENSPEICHER EINSCHREIBEN RAMZSP, CLEAR TR CLA TAD I RAMLIC /ADRESSEN EINSCHREIBEN 6516 CMA 6515 CLA NOP CLEAR DI TAD I RABIC 6505 ISZ RAMLIC ISZ RABIC NOP CLEAR CS CLEAR WE SET CS SET WE SET TR ISZ LPCNT JMP RAMZSP /HARDWARE TEST 6504 SMA /ZWISCHENSPEICER VOLL MOSTGO CLA NOP /EINSCHREIBEN IN DAS 4KRAM CLEAR CL RW MUX CLEAR CS SET CL SET TG NOP 6504 SMA /16 BIT INS 4KRAM EINGELESEN? JMP .-2 NOP /AUSLESEN AUS DEM 4KRAM CLEAR TG CL SET RW CL SET FQ CLEAR FQ SET FE JMP I .+1 NEXTPA LPCNT, 0 ENABLE, 5600 BUFFER, 3720 PAGE /FEHLERERKENNUNG: VERGLEICH ZWISCHEN EINGELESENEM UND /AUSGELESENEM BITMUSTER NEXTPA, SET TG RAMFIN, 6504 /F EINLESEN AND M2000 SNA CLA JMP RAMOKY /KEIN FEHLER 6514 CMA JMS GETZS ROW COLUMN CLA CLL TAD COLUMN RTL RTL RTL TAD ROW DCA ERRMPT ISZ RAMFEC SKP ISZ RAMFEC+1 TAD NUM253 CDF 20 DCA I ERRMPT CDF 0 6504 SPA CLA JMP TSTEND SET FQ CLEAR FQ JMP RAMFIN RAMOKY, NOP 6504 SMA CLA JMP RAMFIN JMP TSTEND NUM253, 253 ROW, 0 COLUMN, 0 PAGE /4KRAM GETESTET TSTEND, SET FQ CLEAR FQ CLEAR FE CLA TAD RAMSTA IAC NOP SZA CLA JMP RAMAIN JMP I .+1 FEHLIS PAGE /AUSDRUCK DER FEHLER UND FEHLERHAFTEN ADRESSEN FEHLIS, LINE TDC /FEHLERANZAHL 4306 4305 4310 4314 4305 4322 4301 4316 4332 4301 4310 4314 240 CIF 10 JMS DEZOUT /AUSDRUCK DEZIMAL FEHLERANZAHL RAMFEC STELE4 LINE JMS FELPLO JMP RAMSTR M2000, 2000 RAMFEC, 0;0 STELE4, 7 /STELLENANZAHL FEHLERANZAHL PAGE
PAGE /SUBROUTINE ZUR BERECHNUNG DER ADRESSEN /1.ARG: STAND DER LETZTEN BERECHNETEN ADRESSE RAMCOR, 0 CAM TAD I RAMCOR DCA RAMOLD TAD RAMFLG SZA CLA /FALL1: WENN AC=/0;DANN 1.DURCHGANG JMP RAMIAC NOP TAD RAMOLD AND RM77 TAD RAMN77 /FALL2:WENN AC=0;DANN 63 ZEILEN SNA CLA JMP RAMNEW NOP TAD RAMOLD BSW TAD RAMMN3 /ALTES M-4 BEIBEHALTEN BSW TAD RAMTRN /VERSCHIEBUNG VON N JMP RAMIAC RAMNEW, NOP TAD RAMOLD BSW TAD RAMTRM /VERSCHIEBUNG VON M BSW AND RM7700 /N=0 RAMIAC, NOP MQL TAD RAMLIP DCA RAMLIC RAMHGN, MQA RAMHG, NOP DCA I RAMLIC TAD I RAMLIC IAC ISZ RAMLIC ISZ RAMCTN JMP RAMHG NOP CLA TAD RAMMN4 DCA RAMCTN DCA RAMFLG MQA BSW IAC BSW MQL ISZ RAMCTM JMP RAMHGN NOP CLA TAD RAMMN4 DCA RAMCTM CMA TAD RAMLIC DCA RAMLIC NOP TAD I RAMLIC DCA I RAMCOR ISZ RAMCOR TAD RAMLIP DCA RAMLIC JMP I RAMCOR RAMOLD, 0 RAMFLG, 0 RM77, 77 RAMN77, -77 RAMMN3, -3 RAMMN4, -4 RAMTRN, 0 RAMTRM, 0 RM7700, 7700 RAMLIP, RAMLIS RAMLIS, ZBLOCK 20 RAMCTN, 0 RAMCTM, 0 RABIP, RABILI RABILI, ZBLOCK 20 FELZAL, 0 PAGE /SUBROUTINE REFRESH /SUBROUTINE LOESCHEN D. CONTROLSIGNALS SRCLR, 0 CLA TAD I SRCLR 6506 ISZ SRCLR CLA NOP JMP I SRCLR /SUBROUTINE SETZEN D. CONTROLSIGNALS SRSET, 0 CLA TAD I SRSET 6505 ISZ SRSET CLA NOP JMP I SRSET SURE, 0 /ARE YOU SURE TDC 4301 4322 4305 4240 4331 4317 4325 4240 4323 4325 4322 305 JMP I SURE PAGE
/AUSDRUCKROUTINE FUER 4096 BIT /64 SPALTEN X 64 ZEILEN /GESAMTES FELD 2 /KEINE FEHLER AUSDRUCK: ".", FEHLER AUSDRUCK: "+" FELPLO, 0 CLA DCA SETFOR LINE JMS SPACE8 TDC /COLUMN 4303 4317 4314 4325 4315 316 LINE JMS SPACE8 TDC 261 JMS SPACE8 TDC 4261 260 JMS SPACE8 TDC 4262 260 JMS SPACE8 TDC 4263 260 JMS SPACE8 TDC 4264 260 JMS SPACE8 TDC 4265 260 JMS SPACE8 TDC 4266 260 LINE JMS SPACE8 TDC 336 TAD MNUM6 DCA ARRCTR ARROW, JMS PRTARR CLA TAD MNUM1 DCA SETFOR ISZ ARRCTR JMP ARROW LINE TDC 4322 4317 4327 240 CLA DCA ERRMPT ROWNEW, TAD MNUM64 DCA CTR64 LINE CIF 10 JMS DEZOUT SPALTE STELLE TDC 4240 240 ROWAG, CDF 20 TAD I ERRMPT CDF 0 DCA PRTDOT TDC PRTDOT, 0 MOSTSR ISZ ERRMPT SKP JMP END ISZ CTR64 JMP ROWAG ISZ SPALTE JMP ROWNEW END, JMP I FELPLO SPACE8, 0 MOSTSR CLA TAD MNUM8 TAD SETFOR DCA SPCCTR TDC 240 ISZ SPCCTR JMP .-3 JMP I SPACE8 PRTARR, 0 JMS SPACE8 TDC 336 JMP I PRTARR MNUM8, -10 MNUM6, -6 SPCCTR, 0 ARRCTR, 0 SETFOR, 0 MNUM1, -1 STELLE, 7 MNUM64, -100 CTR64, 0 PAGE /GET NUMBER IN AC /JMS GETZS /ZEILENADRESS /SPALTENADRESS GETZS, 0 DCA GETTEM TAD I GETZS DCA GETP1 ISZ GETZS TAD I GETZS DCA GETP2 ISZ GETZS SWAB TAD GETTEM LSR 6 DCA I GETP1 ACL BSW DCA I GETP2 JMP I GETZS GETTEM, 0 GETP1, 0 GETP2, 0 FIELD 1 *1000 ENTF=JMS I 7 DEZOUT, 0 SWAB CLA RDF TAD CHFIED DCA EXIT1 IAC DCA 56 DCA 55 TAD I DEZOUT DCA DEZP1 ISZ DEZOUT TAD I DEZOUT DCA DEZTEM TAD I DEZTEM DCA 57 ISZ DEZOUT DCA 60 CAM DAD DEZP1, 0 CDF 10 SWP DST 45 CLA TAD (27 DCA 44 ENTF FNOR FOUT FEXT EXIT1, 0 JMP I DEZOUT DEZTEM, 0 CHFIED, CDF CIF 0



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