File PRESF5.PA (PAL assembler source file)

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

/ INITIALIZE FIELD 5				29-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:
/
/
/12-JUN-91	(LHN)		FOR VERSION 4A
/	1)  REMOVE FROM SELFCK TASK
/
/
/27-AUG-91	(LHN)		FOR VERSION 4B
/	1)  ADDED MESSAGES TO GATEWY TO REQUEST
/	      CURRENT AND NEXT ROLL DATA.
/



	TASK=	PRESF5
	CUR=	PRES5FLD
	INIWT=	0
	VERS=	4



	FIELD PRES5FLD%10
	*PRES5LOC

/ / /%R INITIALIZE FIELD 5 FOR OPERATION / /%TW COME HERE WHEN FIRST STARTED BY THE OPERATOR / OR WHEN RESTARTED BY THE POWER FAIL ROUTINES. / / START, CAL SEND PWRF /TELL POWER FAIL TO RESTART US. PWRMSG PREST5, CLB TAD (PR5TBL-1) /PRESET THE WORKING LOCATION FROM DCA XR10 /THE FIELD 1 INITIAL VALUE TABLE. TAD (PR5TBL-PR5END-1) STL RAR DCA PRE5B TAD I XR10 DCA PRE5A TAD I XR10 DCA I PRE5A ISZ PRE5B JMP .-5 CLB /NOW TELL GATEWY TO REQUEST CAL / CURRENT ROLL AND NEXT ROLL SENDW / DATA FROM THE GATEWAY. GATEWY CRDMSG CAL SENDW GATEWY NRDMSG CAL SUSPND JMP PREST5 PRE5A, 0 PRE5B, 0
/ PWRMSG, ZBLOCK 3 /POWERFAIL MESSAGE PREST5-1 CRDMSG, ZBLOCK 3 /REQUEST CURRENT ROLL DATA 0 0 0 /STATUS RETURN "C "R 0 NRDMSG, ZBLOCK 3 /REQUEST NEXT ROLL DATA 0 0 0 /STATUS RETURN "N "R 0 / / /%RT TABLE OF INITIAL VALUES FOR PROGRAM START UP / / PR5TBL, GATWUP /GATEWAY UP FLAG, SAYS LINE DOWN. PR5END, 0 PAGE NOPUNCH /THE F5COMM FILE FOLLOWS XLIST 1 /TURN THE LISTING OFF !!



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