File CRTTXT.PA (PAL assembler source file)

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

/ CRT TEXT STORAGE FILE			1-SEP-91
/
/
/
/	 CCCC  RRRR   TTTTT  TTTTT  X   X  TTTTT
/	C      R   R    T      T    X   X    T
/	C      R   R    T      T     X X     T
/	C      RRRR     T      T      X      T
/	C      R R      T      T     X X     T
/	C      R  R     T      T    X   X    T
/	 CCCC  R   R    T      T    X   X    T
/
/
/

/
/EDIT HISTORY:
/
/12-APR-90	(LHN)
/	1) MODIFIED TEXT HEADERS FOR VT220
/
/19-JUN-90	(LHN)
/	1) ADDED SAMPLE TRAY MESSAGES
/
/3-JUL-90	(LHN)
/	1) ADDED SELF CHECK ERROR MESSAGE
/
/30-AUG-90	(LHN)
/	1)  ADDED MESSAGES FOR MISSING MOTION AND CHOP
/	     PULSES AND EOR SUMMARY REQUESTED
/
/02-APR-91	(LHN)
/	1)  ADDED MESSAGES FOR STATE OF THE STACKER 
/	      CLUTCH
/
/
/02-JUL-91	(LHN)		FOR VERSION 4A
/	1)  TEXT CHANGES FOR V4.
/
/7-AUG-91	(LHN)
/	1)  CHANGED THE TEXT FOR MOPM14 (CRTM14).
/
/
/22-AUG-91	(LHN)		FRO VERSION 4B
/	1)  ADDED GATEWAY COMMUNICATION FAILURE MESSAGE
/	      AS CRTM24 (MOPM24).
/	2)  RESET THE SYSTEM STARTUP DATA FOR 298 CHOP.
/	3)  CHANGED "!" TO "![" TO ENCODE KEYPAD MODE.
/	4)  ADDED CRTM25 (MOPM25) BUILD PRESET TABLE.
/	5)  ADDED VERSION TO SCREEN DISPLAY.
/	      

	FIELD CRTXFLD%10
	*CRTXTLOC

/ / /%RT CRT TEXT STORAGE / / 6061 6061 CRTH00, TEXT "![1;1H![J" 6061 6070 CRTH01, TEXT "DATUM " 6061 6362 CRTH02, TEXT "SCHICHT " 6061 6561 CRTH03, TEXT "M-FUEHR. "
/ 6062 6061 CRTH04, TEXT "- - - - - - - - - - - - - - - - - - - - &" *.-1 TEXT "- - - - - - - - - - - - - - V&" *.-1 MSTVER 0
/ 6063 6360 CRTH05, TEXT "LAUFENDE ROLLE" 6063 6471 CRTH06, TEXT "NACHSTE ROLLE" 6064 6070 CRTH07, TEXT "ROLLEN NR. . . . . . ."
/ 6065 6070 CRTH08, TEXT "PACKART. . . . . . . ." 6066 6070 CRTH09, TEXT "PROBEN CODE. . . . . ." 6067 6070 CRTH10, TEXT "BREITE - HUB . . . . ."
/ 6070 6061 CRTH11, TEXT "- - - - - - - - - - - - - - - - - - - - &" *.-1 TEXT "- - - - - - - - - - - - - - - -" 6071 6067 CRTH12, TEXT "ROLLEN INFORMATION"
/ 6071 6464 CRTH13, TEXT "BEDIENUNGS INFORMATION" 6071 6367 CRTH14, TEXT "$\![D![B$\![D![B$\![D![B$\![D![B" *.-1 TEXT "$\![D![B$\![D![B$\![D![B$\![D![B" *.-1 TEXT "$\![D![B$\![D![B$\![D![B$\"
/ 6161 6061 CRTH15, TEXT "HUEBE . . . . . ." 6162 6061 CRTH16, TEXT "REJECTS . . . . ." 6163 6061 CRTH17, TEXT "PROBEN . . . . . ." 6164 6061 CRTH18, TEXT "METER . . . . . ."
/ 6165 6061 CRTH19, TEXT "BOX NR. . . . . ." 6166 6061 CRTH20, TEXT "BLATT . . . . . ." 6167 6061 CRTH21, TEXT "SCHICHTROL. . . ."
/ 6260 6061 CRTH22, TEXT "MASCHINEN TEST, P X TRAY, " *.-1 CTH22A, TEXT " X BLATT" 6260 6061 CRTH23, TEXT "![K" 6171 6061 CRTH24, TEXT "KLEBESTELLE ENTDECKT" 6171 6061 CRTH25, TEXT "'''"
/ 6261 6061 CRTH26, TEXT "PLANLAGE PROBE, P X TRAY, " *.-1 CTH26A, TEXT " X BLATT" 6261 6061 CRTH27, TEXT "![K"
/ / / PRODUCT DATA / / 6064 6561 CRTX01, TEXT " " /NEXT ROLL NUMBER 6065 6561 CRTX02, TEXT " " /NEXT ROLL PUT-UP 6066 6561 CRTX03, TEXT " " /NEXT ROLL SAMPLE CODE 6067 6561 CRTX04, TEXT "& -" /NEXT ROLL SLIT WIDTH 6067 6567 CRTX05, TEXT " " /NEXT ROLL CHOP LENGTH 6064 6362 CRTX06, TEXT "&012-345-678-9" /CURRENT ROLL NUMBER
/ 6065 6362 CRTX07, TEXT "0125 " /CURRENT ROLL PUT-UP 6066 6362 CRTX08, TEXT "01" /CURRENT ROLL SAMPLE CODE 6067 6362 CRTX09, TEXT "&XXX -" /CURRENT ROLL SLIT WIDTH 6067 6370 CRTX10, TEXT "&298" /CURRENT ROLL CHOP CODE 6061 6164 CRTX11, TEXT "01-SEP-1991 " /DATE 6061 6460 CRTX12, TEXT "XX" /SHIFT CODE 6061 6660 CRTX13, TEXT "XX" /OPERATOR CODE
/ / / CLEAR PRODUCT INFORMATION AREAS / / 6064 6362 CRTC01, TEXT "![0$M''" /CLEAR CURRENT ROLL NUMBER 6065 6362 CRTC02, TEXT "![0$M'" /CLEAR CURRENT NEXT ROLL PUTUP 6066 6362 CRTC03, TEXT "![0$M'" /CLEAR CURRENT ROLL SAMPLE CODE 6067 6362 CRTC04, TEXT "![0$M " /CLEAR CURRENT ROLL SLIT WIDTH 6067 6370 CRTC05, TEXT "![0$M " /CLEAR CURRENT ROLL CHOP LENGTH 6064 6561 CRTC06, TEXT "![0$M''" /CLEAR NEXT ROLL NUMBER 6065 6561 CRTC07, TEXT "![0$M'" /CLEAR NEXT ROLL PUTUP
/ 6066 6561 CRTC08, TEXT "![0$M'" /CLEAR NEXT ROLL SAMPLE CODE 6067 6561 CRTC09, TEXT "![0$M " /CLEAR NEXT ROLL SLIT WIDTH 6067 6567 CRTC10, TEXT "![0$M " /CLEAR NEXT ROLL CHOP LENGTH 6061 6164 CRTC11, TEXT "![0$M''" /DATE 6061 6460 CRTC12, TEXT "![0$M " /SHIFT CODE 6061 6660 CRTC13, TEXT "![0$M " /OPERATOR CODE
/ 6262 6061 CRTI01, TEXT "![1;7$M&" /FOR VTDINP TO DISPLAY INPUT DATA *.-1 CRTI1A, TEXT "**********&&&![0$M"
/ / / PRODUCT COUNTERS / / 6161 6171 CRTD01, TEXT " 0" /CRT CHOP COUNTER 6162 6263 CRTD02, TEXT " 0" /CRT REJECTS COUNTER 6163 6263 CRTD03, TEXT " 0" /CRT SAMPLES COUNTER 6164 6171 CRTD04, TEXT " 0" /CRT METERS COUNTER 6165 6263 CRTD05, TEXT " 1" /CRT BOX NUMBER COUNTER
/ 6166 6263 CRTD06, TEXT " 0" /CRT SHEETS COUNTER 6167 6267 CRTD07, TEXT " 0" /CRT SHIFT ROLL COUNTER 6060 /THIS COUNTER IS NOT 6060 / DISPLAYED ON THE CRT.. CRTD08, TEXT " 0" /SPLICE SAMPLE COUNTER
/ / / CRT OPERATOR MESSAGE FORMAT & NOTES / / / BELOW IS THE TEXT FOR THE OPERATOR MESSAGES THAT / ARE DISPLAYED ON THE OPERATOR CRT (CRTM..). EACH / MESSAGE IS PREFIXED BY 3 CONTROL WORDS WHICH ARE / DESCRIBED BELOW. / / / THE MESSAGE TEXT CAN BE UP TO 35 CHARACTERS LONG / AND MUST BE TERMINATED BY THE 3 CHARACTER ESCAPE / SEQUENCE ![K WHICH CLEARS THE REST OF THE LINE. / / THE THREE CONTROL WORDS THAT PREFIX THE MESSAGE / ARE: / / 1) STOP MESSAGE CONTROL WORD / 2) CURSOR LINE NUMBER / 3) CURSOR COLUMN POSITION / / THE STOP MESSAGE CONTROL WORD IS ZERO IF THE / MESSAGE IS NOT TO BE PRINTED ON THE SAMPLE TALLEY / WHEN THE MACHINE STOPS. ZERO IS USED FOR / INFORMATION MESSAGES SUCH AS "SYSTEM IN TEST". / FOR MESSAGES THAT CAN BE PRINTED ON THE SAMPLE / TALLEY AS THE REASON THE MACHINE STOPPED (THEY / WERE PASSED VIA 'INLOCK') THIS WORD IS THE ASCII / DECIMAL LENGTH OF THE CHARACTERS IN THE TEXT, NOT / COUNTING THE "![K". FOR EXAMPLE IF THE TEXT IS 15 / CHARACTERS LONG, THIS WORD WOULD BE 6165. / / THE CURSOR LINE NUMBER IS FILLED IN BY 'CRTMSG' / WHEN THE MESSAGE IS PUT IN THE DISPLAY QUEUE. A / DUMMY VALUE OF 0 (6060 IN DECIMAL ASCII) IS USED / TO INITIALIZE THIS DATA WORD. / / THE CURSOR COLUMN POSITION IS THE COLUMN WHERE / THE FIRST CHARACTER OF THE MESSAGE WILL APPEAR. / THIS VALUE IS THE SAME FOR ALL MESSAGES AND IS / CURRENTLY SET TO COLUMN 45 (6465 IN ASCII / DECIMAL). / / / TO ADD A NEW MESSAGE, THE TEXT IS ENTERED BELOW. / THE MESSAGE CODE IS DEFINED IN MSTPAR (SEE / MOPM..) AND THE MESSAGE IS ADDED TO THE TABLE IN / 'CRTMSG'. /
/ / / CRT OPERATOR MESSAGES / / 0 /MESSAGE LENGTH (ASCII / DECIMAL), OR ZERO IF NOT / USED FOR STOP MESSAGE 6060 /WILL BE CURSOR LINE # 6465 /CURSOR COLUMN POSITION CRTM00, TEXT " ![K" /MESSAGE TEXT 0 6060 6465 CRTM01, TEXT "SUPE IM TEST![K" 0 6060 6465 CRTM02, TEXT "DATENEINGABE FEHLER![K"
/ 0 6060 6465 CRTM03, TEXT "DRUCKER PAPIER GEHT ZU ENDE![K" 6260 6060 6465 CRTM04, TEXT "AUSTRAGKASTEN HERAUS![K" 0 6060 6465 CRTM05, TEXT "EMULSION FEHLT![K"
/ 6261 6060 6465 CRTM06, TEXT "FILM IM AUSTRAGKASTEN![K" 0 6060 6465 CRTM07, TEXT "STACKER ENTLEEREN![K" 6267 6060 6465 CRTM08, TEXT "GIB DATEN NAECHST.ROLLE EIN![K"
/ 6263 6060 6465 CRTM09, TEXT "GESCHWINDIGKEIT ZU HOCH![K" 6270 6060 6465 CRTM10, TEXT "DEC SCHREIBT NICHT![K" 0 6060 6465 CRTM11, TEXT " X X X BLATT IM XX TRAY![K"
/ 0 6060 6465 CRTM12, TEXT "PROBENKASTEN ENTLADEN![K" 6171 6060 6465 CRTM13, TEXT "PROBENKASTEN HERAUS![K" 6263 6060 6465 CRTM14, TEXT "SICK INSPEKTIONS FEHLER![K"
/ 6260 6060 6465 CRTM15, TEXT "FORMATLAENGEN FEHLER![K" 6171 6060 6465 CRTM16, TEXT "SCHNITTSIGNAL FEHLT![K" 6365 6060 6465 CRTM17, TEXT "BEDIEN. FEHLER ABRECHNUNG GEDRUECKT![K"
/ 6260 6060 6465 CRTM18, TEXT "STACKER TEST BEENDET![K" 6161 6060 6465 CRTM19, TEXT "NORMAL HALT![K" 6067 6060 6465 CRTM20, TEXT "NOTHALT![K"
/ 6267 6060 6465 CRTM21, TEXT "ENDKLEBESTELLE IM INSPEKTOR![K" 6162 6060 6465 CRTM22, TEXT "KUPPLUNG AUS![K" 6162 6060 6465 CRTM23, TEXT "KUPPLUNG EIN![K"
/ 6267 6060 6465 CRTM24, TEXT "GATEWAY COMMUNIATION FEHLER![K" 6266 6060 6465 CRTM25, TEXT "BUILD - PRESET TABLE ERROR![K" 6061 6060 6465 CRTM26, TEXT " ![K" /TEMPLATE FOR FUTURE USE
/ / / MESSAGES TO CONTROL VT220 FEATURES / / 6161 6161 CRTV01, TEXT "![?25$L!>" /TURN THE CURSOR OFF AND / SET KEYPAD NUMERIC MODE. 6161 6161 CRTV02, TEXT "![?25$H![1;1H![J!=" /CLEAR THE SRCEEN, / TURN THE CURSOR ON / AND RESET THE KEYPAD / TO APPLICATION MODE. / / / END OF CRT TEXT / / PAGE



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