File PRESF3.PA (PAL assembler source file)

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

/ PRESET FIELD 3				10-MAY-90
/
/
/EDIT HISTORY:
/
/26-APR-90	(LHN)
/	1)  DELETED VARIABLES FOR RANDOM SAMPLING
/
/



	TASK=	PRESF3
	CUR=	PREF3FLD
	INIWT=	0
	VERS=	3




	FIELD PREF3FLD%10
	*PREF3LOC

/ / /%R INITIALIZE FIELD 3 AT START UP / / START, CLB TAD (PR3TBL) DCA XR17 TAD (PR3TBL-PR3END-1) STL RAR DCA PREF3B TAD I XR17 DCA PREF3A TAD I XR17 DCA I PREF3A ISZ PREF3B JMP .-5 CLB CAL SUSPND JMP START PREF3A, 0 PREF3B, 0
/ / /%RX TABLE OF INITIAL VALUES FOR PROGRAM START UP / / PR3TBL, IQAVL /IMAGE MARKING AVAILABLE QUEUE IMQUE-1 IQNEXT /IMAGE READY QUEUE IMQUE-1 NPUTPF /NEW ROLL PUT-UP ENTERED FLAG 0 NEWRNF /NEW ROLL NUMBER ENTERED FLAG 0 NSAMCD /NEW ROLL SAMPLING CODE 0 NSHEAR /NEW ROLL SHEAR CUT DIGIT 0 NCHOPC /NEW ROLL CHOP CODE 0 CHOPC /CURRENT CHOP LENGTH 6 NSLITC /NEXT ROLL SLIT WIDTH 0 SLITC /CURRENT ROLL SLIT WIDTH 0 SRCUTN /SISTER ROLL CUT NUMBER 0 SISRLF /SISTER ROLL FLAG 0 SHEARC /CURRENT SHEAR CUT NUMBER 0 CURCUT /THE CURRENT CUT NUMBER 0 SHFTRL /CURRENT SHIFT ROLL NUMBER 0 MCKDSP /MACHINE CHECK MESSAGE 0 MCKMCT /MACHINE CHECK DISPLAY COUNTER 0 SPLMCT /SPLICE MESSAGE DISPLAY COUNTER 0 PARBMG /PARTIAL BOX DISPLAY COUNTER 0
/ / / STILL MORE INITIAL VALUES / / INCRTC /INCREMENT THE CHOP DISPLAY COUNTER 0 INCRTR /INCREMENT THE REJECT DISPLAY 0 /COUNTER INCRTS /INCREMENT THE SAMPLE DISPLAY 0 /COUNTER INCRTM /INCREMENT THE METER DISPALY COUNTER 0 INCRTB /INCREMENT THE BOX DISPLAY COUNTER 0 INCRST /INCREMENT THE SHEETS DISPLAY 0 INCRSR /INCREMENT THE SHIFT ROLL DISPLAY 0 INCRMC /INCREMENT THE MACHINE CHECK MESSAGE PR3END, 0 PAGE NOPUNCH XLIST



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