File PRESF3.PA (PAL assembler source file)

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

/ PRESET FIELD 3			22-AUG-91
/
/
/
/	PPPP   RRRR   EEEEE   SSSS  FFFFF  55555
/	P   P  R   R  E      S      F      5
/	P   P  R   R  E      S      F      5555
/	PPPP   RRRR   EEEE    SSS   FFFF       5
/	P      R R    E          S  F          5
/	P      R  R   E          S  F      5   5
/	P      R   R  EEEEE  SSSS   F       555
/
/
/

/
/EDIT HISTORY:
/
/26-APR-90	(LHN)
/	1)  DELETED VARIABLES FOR RANDOM SAMPLING
/
/
/26-JUN-91	(LHN)		FOR VERSION 4A
/	1)  DELETED USE OF SISRLF VARIABLE
/	2)  DELETED SHEARC VARIABLE
/	3)  DELETED NSHEAR AND CURCUT VARIABLE
/	4)  ADDED CRLDSP VARIABLE
/
/
/22-AUG-91	(LHN)		FOR VERSION 4B
/	1)  DELETED SRCUTN
/	2)  ADDDED RCHOP AND RSHIFT FOR ROLLDT
/



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



	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 NCHOPC /NEW ROLL CHOP CODE 0 CHOPC /CURRENT CHOP LENGTH 6 NSLITC /NEXT ROLL SLIT WIDTH 0 SLITC /CURRENT ROLL SLIT WIDTH 0 SHFTRL /CURRENT SHIFT ROLL NUMBER 1 MCKDSP /MACHINE CHECK MESSAGE FLAG 0 MCKMCT /MACHINE CHECK DISPLAY TIMER 0 CRLDSP /CURL SAMPLE MESSAGE FLAG 0 CRLMCT /CURL SAMPLE DISPLAY TIMER 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 0 RCHOP /ACTIVE CHOP CODE FOR ROLLDT 0 RSHIFT /ACTIVE SHIFT CODE FOR ROLLDT 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