File PRESF4.PA (PAL assembler source file)

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

/ INITIALIZE FIELD 4				25-APR-90
/
/
/EDIT HISTORY:
/
/20-APR-90	(LHN)
/	1)  ADDED CRT TEXT CALL TO TURN OFF VT CURSOR
/25-APR-90	(LHN)
/	1)  DELETED PRESET OF VARIABLES FOR "RANNUM"





	TASK=	PRESF4
	CUR=	PRES4FLD
	INIWT=	0
	VERS=	1

	TASK2=	SCREEN
	CUR2=	CUR
	INIWT2=	RUNWT
	VERS2=	3





	FIELD PRES4FLD%10
	*PRES4LOC

/ / /%R INITIALIZE FIELD 4 AT START UP / / START, CAL /TELL POWER FAIL SEND PWRF PWRFMG CLB AGAIN, CLB TAD (PR4TBL-1) DCA XR10 TAD (PR4TBL-PR4END-1) STL RAR DCA PRES4B TAD I XR10 DCA PRES4A TAD I XR10 DCA I PRES4A ISZ PRES4B JMP .-5 TAD (SCREEN) CAL RUN CAL SUSPND JMP AGAIN PRES4A, 0 PRES4B, 0 PWRFMG, ZBLOCK 3 AGAIN-1
/ / /%R REFRESH THE CRT SCREEN / / START2, CLB TAD (CRTREF) DCA CRTRFA /SET POINTER TO TEXT STRING CRTRF1, TAD I CRTRFA /FETCH NEXT POINTER ISZ CRTRFA SNA /IS IT THE TERMINATOR? JMP CRTRF2 /YES, EXIT DCA CRTRFB /NO, STORE FOR OUTPUT CAL SENDW /SEND THIS MESSAGE TO CRT CRT CRTRTB JMP CRTRF1 /TRY NEXT TEXT POINTER CRTRF2, CLB DCA CRTRFB CAL SENDW CRTMSG CRTRTB CLB CAL SUSPND JMP START2 /GO AGAIN CRTRFA, 0 /TEXT STRING POINTER CRTRTB, ZBLOCK 3 /MESSAGE FOR SCREEN UPDATE CRTRFB, 0 /TEXT MESSAGE POINTER
/ / / CRT MESSAGE LIST FOR REFRESH / / CRTREF, CRTH00 CRTH00 CRTH01 CRTH02 CRTH03 CRTH04 CRTH05 CRTH06 CRTH07 CRTX06 CRTH08 CRTX07 CRTH09 CRTX08 CRTH10 CRTX09 CRTX10 CRTH11 CRTH12 CRTH13 CRTH14 CRTH15 CRTD01 CRTH16 CRTD02 CRTH17 CRTD03 CRTH18 CRTD04 CRTH19 CRTD05 CRTH20 CRTD06 CRTH21 CRTD07 CRTV01 0 /MESSAGE TEXT STRING END
/ / /%RX TABLE OF INITIAL VALUES FOR PROGRAM START UP / / PR4TBL, .+1 /NOTHING TO DO - FOR NOW PR4END, 0 PAGE NOPUNCH /THE CRTTXT 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