File ENDROL.PA (PAL assembler source file)

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

/ RUNNING END OF ROLL SUMMARY		18-MAY-90


/
/EDIT HISTORY:
/
/20-NOV-78	(LHN)
/	1)  FIXED START OF ROLL SAMPLE LENGTH.
/
/26-APR-90	(LHN)
/	1)  DELETED CODE TO DO WITH RANDOM SAMPLING AND
/	    ADDED CODE FOR BOX SAMPLING
/











	TASK=	ENDROL
	CUR=	ENDRLFLD
	INIWT=	0
	VERS=	3








	FIELD ENDRLFLD%10
	*ENDRLLOC

/ / / END OF ROLL TIME / / START, CLB CAL SUSPND CLB TAD NEWRNF /WAS A NEW ROLL NUMBER ENTERED ? SNA CLA JMP F3E00 /NO, GO ON JMS F3EORM /MOVE THE NEW ROLL NUMBER -7 CRTX01 CRTX06 DCA NEWRNF /CLEAR THE NEW ROLL NUMBER FLAG CAL SEND CRT F3MSG1 F3E00, TAD NPUTPF /WAS A NEW PUT-UP ENTERED ? SNA JMP F3E01 /NO, GO ON CDF 10 DCA I (PUTUP1) CDF CUR DCA NPUTPF /CLEAR THE NEW PUT-UP FLAG CAL SEND CRT F3MSG2 TAD NSHEAR DCA SHEARC DCA NSHEAR /CLEAR OUR FLAG. JMS F3EORM /GO MOVE THE NEW PUT-UP -3 CRTX02 CRTX07
/ F3E01, TAD NSLITC /WAS A NEW SLIT WIDTH ENTERED ? SNA JMP F3E02 /NO, GO ON DCA SLITC /YES, UPDATE THE CURRENT SLIT WIDTH DCA NSLITC / AND CLEAR THE NEW SLIT WIDTH FLAG JMS F3EORM -2 CRTX04 CRTX09 CAL SEND CRT F3MSG3 F3E02, TAD NCHOPC /WAS A NEW CHOP LENGTH ENTERED ? SNA JMP F3E03 /NO, GO ON DCA CHOPC /UPDATE THE CURRENT ROLL CHOP CODE DCA NCHOPC /CLEAR THE NEW CHOP CODE FLAG JMS F3EORM /GO MOVE THE NEW CHOP LENGTH -4 CRTX05 CRTX10 CAL SEND CRT F3MSG4 F3E03, CLB TAD CHOPC /GET THE NUMBER OF SHEETS BETWEEN TAD (EORLEN-1) / CHANNEL 3 AND THE SPLICE TABLE DCA F3WKA / FOR THIS CHOP LENGTH TAD I F3WKA CIA CDF 20 DCA I (MEORLN) /SAVE IT FOR THE SAMPLE TASK CDF CUR TAD CHOPC /GET THE NUMBER OF SHEETS TO TAD (EORREJ-1) / REJECT AT THE START/END OF ROLL DCA F3WKA / FOR THIS CHOP LENGTH TAD I F3WKA CIA CDF 20 DCA I (MEORRJ) /SAVE IT FOR THE SAMPLE TASK CDF CUR TAD CHOPC /DO THE SAME FOR START/END ROLL TAD (EORSAM-1) / SAMPLES DCA F3WKA TAD I F3WKA CIA CDF 20 DCA I (MEORSM) CDF CUR
/ TAD CHOPC /NOW GET THE NUMBER OF SHEETS TO TAD (INRREJ-1) / REJECT AROUND IN-ROLL SPLICES DCA F3WKA TAD I F3WKA CIA CDF 20 DCA I (MINRRJ) CDF CUR TAD CHOPC /AND FOR IN-ROLL SPLICE SAMPLES TAD (INRSAM-1) DCA F3WKA TAD I F3WKA CIA CDF 20 DCA I (MINRSM) CDF CUR TAD NSAMCD /WAS A NEW SAMPLE CODE ENTERED ? SNA JMP F3E06 /NO, GO ON CDF 20 DCA I (PATCON) CDF CUR DCA NSAMCD /RESET NEW SAMPLE CODE FLAG JMP F3E05 / F3WKA, 0 PAGE
/ F3E05, JMS F3EORM -4 CRTX03 CRTX08 CAL SEND CRT F3MSG5 / / / CREATE THE PARTIAL BOX MESSAGE / / F3E06, F3E07, JMS F3EORM /MOVE THE SHEET COUNTER -3 CRTD06+1 CRTM11 TAD (-400) /SET UP PARTIAL BOX MESSAGE DCA PARBMG /COUNTER. CDF 10 TAD I (PROFLG) /GET THE ACTIVE PRODUCT TRAY WORD CDF CUR TAD (TRAYTL-1) /AND CONVERT IT TO A LETTER DCA F3EA TAD I F3EA DCA CRTM11+11 /AND PUT IT IN THE MESSAGE CAL SEND CRTMSG F3MSG6 CDF 10 CLB ISZ I (SWPREJ) /SET THE REJECT AND PRODUCT TRAYS ISZ I (SWPPRO) / TO SWAP CDF CUR TAD I (CRTX06+6) /LEAVE THE NEW CUT NUMBER DCA CURCUT /AROUND FOR SAMPLE CLB TAD (F3MTBL) DCA F3EA F3E07A, TAD I F3EA ISZ F3EA SNA JMP F3E08 DCA F3MS7A CAL SENDW CRT F3MSG7 JMP F3E07A
/ F3E08, TAD (CRTCTR) /RELEASE THE CRT COUNTER TASK, IT CAL / HELD OFF IN "TALLEY". UNBARG USERWT+RUNWT JMP START / / / F3MTBL, CRTX06 CRTX07 CRTX08 CRTX09 CRTX10 0 TRAYTL, 2002 /PRODUCT B 2001 /PRODUCT A 4040 /DUMMY 2003 /PRODUCT C / / / / / F3EORM, 0 CLB TAD I F3EORM ISZ F3EORM DCA F3EA TAD I F3EORM ISZ F3EORM DCA F3EB TAD I F3EORM ISZ F3EORM DCA F3EC TAD I F3EB ISZ F3EB DCA I F3EC ISZ F3EC ISZ F3EA JMP .-5 CLB JMP I F3EORM /RETURN
/ F3EA, 0 F3EB, 0 F3EC, 0 F3MSG1, ZBLOCK 3 CRTC06 F3MSG2, ZBLOCK 3 CRTC07 F3MSG3, ZBLOCK 3 CRTC09 F3MSG4, ZBLOCK 3 CRTC10 F3MSG5, ZBLOCK 3 CRTC08 F3MSG6, ZBLOCK 3 MOPM11 F3MSG7, ZBLOCK 3 F3MS7A, 0 PAGE
/ / / TABLES OF CHOP RELATED DATA FOR SAMPLING / / / / / NUMBER OF CHOPS TO WAIT BEFORE STARTING THE / END OF ROLL SAMPLES, AFTER WE SEE THE UNWIND / SWITCHOVER. THIS NUMBER = (THE NUMBER OF CHOPS / FROM THE SPLICE TABLE TO THE CHOPPER) - (THE / NUMBER OF END OF ROLL SAMPLES) - (THE NUMBER OF / END OF ROLL REJECTS) / / EORLEN, 55 /178 MM CHOP LENGTH 50 /198 41 /238 / 34 /296 33 /298 26 /354 25 /398 / 23 /430 / / / NUMBER OF REJECTS FOR START/END ROLL SAMPLING / / EORREJ, 42 /178 MM CHOP LENGTH 37 /198 32 /238 / 24 /296 24 /298 21 /354 17 /398 / 16 /430 / / / NUMBER OF SAMPLES FOR START/END ROLL SAMPLING / / EORSAM, 5 /178 MM CHOP LENGTH 5 /198 4 /238 / 3 /296 3 /298 3 /354 2 /398 / 2 /430 / / / NUMBER OF REJECTS FOR IN-ROLL SPLICE SAMPLING / / INRREJ, 11 /178 MM CHOP LENGTH 10 /198 6 /238 / 5 /296 5 /298 4 /354 4 /398 / 4 /430 / / / NUMBER OF SAMPLES FOR IN-ROLL SPLICE SAMPLING / / INRSAM, 5 /178 MM CHOP LENGTH 5 /198 4 /238 / 3 /296 3 /298 3 /354 2 /398 / 2 /430 PAGE NOPUNCH XLIST 1



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