IDENT DS1,DSM PERIPH BASE MIXED SST RDS *COMMENT DS1 - 6612/DD60 DISPLAY ALIGNMENT TEST. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. TITLE DS1 - 6612/DD60 DISPLAY ALIGNMENT TEST. SPACE 4 *** DS1 - 6612/DD60 DISPLAY ALIGNMENT TEST. * E. W. HOBBS. 69/01/23. SPACE 4 ** COMMON DECKS. *CALL COMDMAC *CALL COMPMAC *CALL COMSCPS SPACE 4 **** DIRECT LOCATION ASSIGNMENTS. NC EQU 15 NUMBER OF CP-S (FOR *COMDSYS*) XC EQU 16 X - COORDINATE YC EQU 17 Y - COORDINATE * *** NOTE *** KX, KY, KB MUST BE KEPT IN SEQUENCE KX EQU 26 KEYBOARD BUFFER X-COORDINATE KY EQU 27 KEYBOARD BUFFER Y-COORDINATE KB EQU 30 - 34 KEYBOARD BUFFER (5 LOC) KI EQU 35 KEYBOARD INDEX PA EQU 36 PROGRAM ADDRESS PI EQU 37 PROGRAM INDEX TS EQU 40 TUBE SWITCH TB1 EQU 41 TUBE 1 SELECTION TB2 EQU 42 TUBE 2 SELECTION PM EQU 43 TEST SELECTION MNEMONIC SZ EQU 44 SIZE CODE TB EQU 45 TUBE SELECTION CR EQU 46 CHARACTER SELECTION SIZ EQU 47 SIZE SELECTION EQ EQU 60 EST ORDINAL AF EQU 61 *ALL TESTS* FLAG ** ASSEMBLY CONSTANTS. NAME MICRO 1,, DS1 CH EQU CHDS DISPLAY CHANNEL DSCT EQU 0 DISPLAY CYCLE (MS.) **** DSM TITLE DS1 - MAIN ROUTINE ORG PPFW ** DSM - MAIN PROGRAM. DSM RJM PRS PRESET DSM1 RJM KBI INPUT FROM KEYBOARD RJM 0,PA DISPLAY LDD TS TOGGLE TUBE SWITCH LMN 1 STD TS RJM 0,PA RJM PSS PAUSE FOR SYSTEM UJN DSM1 LOOP KBI TITLE KEYBOARD INPUT ROUTINES. ** COMMON DECKS. *CALL COMPCHI KBI SPACE 4,10 ** KBI - KEYBOARD INPUT AND INTERPRETATION. * * USES KB, KI, T1. * * CALLS ATR, DRP, EEB, HDC, HOL, TTC. KBI SUBR ENTRY/EXIT LDD CP ADN STSW CRD CM LDD CM+2 LPN 1 ZJN KBI0.0 IF NO ROLLOUT FLAG LJM DRP DROP DISPLAY KBI0.0 BSS 0 FNC 7020,CH SELECT KEYBOARD INPUT ACN CH IAN CH DCN CH ZJN KBI0.1 IF NO INPUT LMC 0 KBIA EQU *-1 ZJN KBIX IF SAME INPUT LMM KBIA STORE NEW INPUT KBI0.1 STM KBIA ZJN KBIX RETURN IF NO INPUT STD T1 SAVE INPUT LMN 1R* NJN KBI1 IF NOT +*+ RJM HDC HOLD DISPLAY CHANNEL UJN KBIX RETURN KBI1 LMN 1R$&1R* NJN KBI2 IF NOT *LEFT BLANK* RJM EEB ERASE ENTRY BUFFER LJM KBIX RETURN KBI2 LMN 1R &1R$ NJN KBI3 IF NOT *RIGHT BLANK* LJM DRP DROP DISPLAY KBI3 LMN 1R.&1R NJN KBI4 IF NOT *.* RJM DDS DROP DISPLAY RJM RDS REQUEST DISPLAY RJM MDC MODIFY CHANNEL INSTRUCTIONS UJN KBI6 RETURN KBI4 LMN 60&1R. NJN KBI5 IF NOT *CR* RJM TTC TOGGLE BETWEEN TEST AND CONTROL UJN KBI6 RETURN KBI5 LMN 61&60 NJN KBI7 IF NOT *BACKSPACE* LDD KI ZJN KBI6 RETURN IF FIRST ENTRY SOD KI DECREMENT KEYBOARD INDEX LDN 0 CLEAR PREVIOUS ENTRY STM KB,KI KBI6 LJM KBIX RETURN KBI7 LMN 62&61 NJN KBI8 IF NOT *SPACE* RJM ATR ADVANCE TEST ROUTINE UJN KBI6 RETURN KBI8 LDD KI CHECK BUFFER INDEX LMN 4 ZJN KBI6 RETURN IF BUFFER FULL LDD T1 STORE CHARACTER STM KB,KI AOD KI ADVANCE INDEX UJN KBI6 RETURN EEB SPACE 4 ** EEB - ERASE ENTRY BUFFER. * * USES KB, KI. EEB SUBR ENTRY/EXIT EEB1 LDN 0 CLEAR ENTRY STM KB,KI SOD KI DECREMENT INDEX PJN EEB1 LOOP LDN 0 STD KB STD KI RESET INDEX TO 0 UJN EEBX RETURN CTL TITLE CONTROL ROUTINES ** CTL - CONTROL ROUTINE. * * USES T3, T4, T5. * * CALLS C6D, EEB. CTL SUBR ENTRY/EXIT RJM DSS DISPLAY SYSTEM STATUS FNC 7000,CH SELECT LEFT SCREEN, 64 CHARACTERS/LINE ACN CH LDC CTLAL DISPLAY LEFT SCREEN INSTRUCTIONS OAM CTLA,CH DCN CH LDN 10 DELAY SBN 1 NJN *-1 FNC 7001,CH SELECT LEFT SCREEN, 32 CHARACTERS/LINE ACN CH LDN CTLBL DISPLAY LEFT SCREEN HEADERS OAM CTLB,CH DCN CH LDN 10 DELAY SBN 1 NJN *-1 FNC 7100,CH SELECT RIGHT SCREEN, 64 CHARACTERS/LINE ACN CH LDN CTLCL DISPLAY RIGHT SCREEN HEADER OAM CTLC,CH DCN CH LDN 10 DELAY SBN 1 NJN *-1 FNC 7101,CH SELECT RIGHT SCREEN, 32 CHARACTERS/LINE ACN CH LDN CTLDL DISPLAY RIGHT SCREEN INSTRUCTIONS OAM CTLD,CH DCN CH LDN 10 DELAY SBN 1 NJN *-1 FNC 7102,CH SELECT RIGHT SCREEN, 16 CHARACTERS/LINE ACN CH LDN 6 DISPLAY KEYBOARD BUFFER OAM KX,CH DCN CH LJM CTLX RETURN CTLA BSS 0 DATA 6000 DATA 7660 DATA H*TEST - SELECT FROM LIBRARY LIST.* DATA 6000 DATA 7640 DATA H*TUBE - L = LEFT* DATA 6070 DATA 7630 DATA H*R = RIGHT* DATA 6070 DATA 7620 DATA H*B = BOTH* DATA 6000 DATA 7600 DATA H*CHAR - CHARACTER DESIRED FOR DISPLAY* DATA 6000 DATA 7560 DATA H*SIZE - S = 64 CHARACTERS/LINE* DATA 6070 DATA 7544 DATA H*M = 32 CHARACTERS/LINE* DATA 6070 DATA 7530 DATA H*L = 16 CHARACTERS/LINE* DATA 6000 DATA 7410 DATA H*A = FULL ALPHABET. SELECT TUBE, SIZE.* DATA 6000 DATA 7374 DATA H*C = FULL SCREEN, ONE CHARACTER. SELECT TUBE, SIZE.* DATA 6000 DATA 7360 DATA H*D = 32 X 32 DOT RASTER. SELECT TUBE.* DATA 6000 DATA 7344 DATA H*I = 15 CHARACTERS EACH SIZE. SELECT TUBE.* DATA 6000 DATA 7330 DATA H*L = DISPLAY ALL TESTS. SELECT TUBE, CHAR, SIZE.* DATA 6000 DATA 7314 DATA H*S = SINGLE CHARACTER, CENTERED. SELECT TUBE, CHAR, * DATA H*SIZE.* DATA 6000 DATA 7300 DATA H*X = CROSSED DIAGONAL LINES. SELECT TUBE.* DATA 6000 DATA 7264 DATA H*Z = DOT/CHAR CENTERING COMPARISON. SELECT TUBE, SIZE* DATA 6000 DATA 7154 DATA H*CR - TOGGLE BETWEEN CONTROL AND TEST.* DATA 6000 DATA 7140 DATA H*BKSP - CORRECT TYPING ERROR.* DATA 6000 DATA 7124 DATA H*LEFT BLANK - ERASE ALL TYPED ENTRIES.* DATA 6000 DATA 7110 DATA H*RIGHT BLANK - DROP PROGRAM.* DATA 6000 DATA 7060 DATA H+* - HOLD DISPLAY CHANNEL.+ DATA 6000 DATA 7044 DATA H*. - DROP DISPLAY AND WAIT FOR REASSIGNMENT.* DATA 6000 DATA 7030 DATA H*SPACE BAR - L TEST, STEP TO NEXT TEST.* DATA 6140 DATA 7014 DATA H*ALL OTHERS, TOGGLE BETWEEN CONTROL AND TEST.* CTLAL EQU *-CTLA CTLB BSS 0 DATA 6100 DATA 7720 DATA H*TEST CODE DEFINITIONS* DATA 6200 DATA 7450 DATA H*LIBRARY DEFINITIONS* DATA 6240 DATA 7204 DATA H*CONTROL* CTLBL EQU *-CTLB CTLC BSS 0 DATA 6220 DATA 7400 DATA H*TEST TUBE CHAR SIZE* CTLCL EQU *-CTLC CTLD BSS 0 DATA 6100 DATA 7600 DATA H*DISPLAY ALIGNMENT ROUTINES* DATA 6100 DATA 7200 DATA H*SELECT FROM LIBRARY LIST* DATA 6120 DATA 7100 DATA H*(A,C,D,I,L,S,X, OR Z)* CTLDL EQU *-CTLD TRA TITLE TEST ROUTINES ** TRA - TEST ROUTINE *A*. * FULL ALPHABET. * * CALLS FCN, TCR. TRA SUBR ENTRY/EXIT RJM TCR SELECT TUBE, CHARACTER, SIZE RJM FCN FUNCTION CONSOLE ACN CH LDD SZ NJN TRA1 IF NOT *SMALL* LDN TRAAL OAM TRAA,CH UJN TRA3 TRA1 SBN 1 NJN TRA2 IF NOT *MEDIUM* LDN TRABL OAM TRAB,CH UJN TRA3 TRA2 LDN TRACL OAM TRAC,CH TRA3 BSS 0 DCN CH UJN TRAX RETURN TRAA BSS 0 DATA 6000 DATA 7400 DATA H$ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789+-*/()=,.$ TRAAL EQU *-TRAA TRAB BSS 0 DATA 6000 DATA 7420 DATA H$ABCDEFGHIJKLMNOPQRSTUVWXYZ$ DATA 6000 DATA 7360 DATA H$A0123456789+-*/()=,.A$ TRABL EQU *-TRAB TRAC BSS 0 DATA 6000 DATA 7500 DATA H$ABCDEFGHIJKLMNO$ DATA 6000 DATA 7400 DATA H$PQRSTUVWXYZ01234$ DATA 6000 DATA 7300 DATA H$A56789+-*/()=,.A$ TRACL EQU *-TRAC TRC SPACE 4 ** TRC - TEST ROUTINE *C*. * FULL SCREEN, ONE CHARACTER. * * USES SZ, T4 - T7. * * CALLS FCN, TCR. TRC SUBR ENTRY/EXIT RJM TCR SELECT TUBE, CHARACTER, SIZE. LDD CR LPN 77 STD CR SHN 6 RAD CR RJM FCN FUNCTION CONSOLE ACN CH LDM TRCA,SZ SET LINE ADVANCE STD T6 LDC 6000 SET X-COORDINATE STD T5 LDC 7000 SET INITIAL Y-COORDINATE STD T4 TRC1 LDM TRCB,SZ SET BYTES/LINE STD T7 LDN 2 OUTPUT COORDINATES OAM T4,CH TRC2 LDD CR DISPLAY 2 CHARACTERS OAN CH SOD T7 DECREMENT BYTE COUNT NJN TRC2 LOOP TO END OF LINE LDD T6 ADVANCE Y-COORDINATE RAD T4 LDD T4 NJN TRC1 LOOP TO TOP OF SCREEN DCN CH LJM TRCX RETURN TRCA BSS 0 DATA 10 DATA 20 TRCB BSS 0 DATA 40 DATA 20 DATA 10 TRD SPACE 4 ** TRD - TEST ROUTINE *D*. * 32 X 32 DOT RASTER. * * USES T4, T5. * * CALLS FCN, TCR. TRD SUBR ENTRY/EXIT RJM TCR SELECT TUBE RJM FCN FUNCTION CONSOLE LDD TS CHECK TUBE SWITCH ZJN TRD1 IF NOT TUBE 1 LDD TB1 SET TUBE 1 UJN TRD2 TRD1 LDD TB2 SET TUBE 2 TRD2 ADC 7010 FUNCTION DOT MODE FAN CH LDC 7000 SET Y - COORDINATE STD T4 ACN CH TRD3 LDC 6000 SET X-COORDINATE STD T5 TRD4 LDN 2 OUTPUT COORDINATES OAM T4,CH LDN 20 ADVANCE X-COORDINATE RAD T5 LMC 7000 NJN TRD4 LOOP TO END OF LINE LDN 20 ADVANCE Y-COORDINATE RAD T4 LDD T4 NJN TRD3 IF NOT BOTTOM OF SCREEN DCN CH LJM TRDX RETURN TRI SPACE 4 ** TRI - TEST ROUTINE *I*. * 15 CHARACTERS EACH SIZE. * * USES SZ. * * CALLS FCN, TCR. TRI SUBR ENTRY/EXIT RJM TCR SELECT TUBE LDC 7200 INITIALIZE Y-COORDINATE STM TRIA+1 LDN 0 SET *SMALL* SIZE STD SZ TRI1 RJM FCN FUNCTION CONSOLE ACN CH LDN TRIAL DISPLAY LINE OAM TRIA,CH DCN CH LDC 200 ADVANCE Y-COORDINATE RAM TRIA+1 AOD SZ ADVANCE SIZE LMN 3 NJN TRI1 IF NOT FINISHED UJN TRIX RETURN TRIA BSS 0 DATA 6000 DATA 7200 DATA H*INTENSITY ADJUST* TRIAL EQU *-TRIA TRS SPACE 4 ** TRS - TEST ROUTINE *S*. * SINGLE CHARACTER, CENTERED. * * CALLS FCN, TCR. TRS SUBR ENTRY/EXIT RJM TCR SELECT TUBE, CHARACTER, SIZE RJM FCN FUNCTION CONSOLE LDD CR NJN TRS1 LDN 1R* TRS1 SHN 6 STM TRSA+2 LDN TRSAL DISPLAY CHARACTER ACN CH OAM TRSA,CH DCN CH UJN TRSX RETURN TRSA BSS 0 DATA 6400 DATA 7400 DATA 1L* TRSAL EQU *-TRSA TRX SPACE 4 ** TRX - TEST ROUTINE *X*. * CROSSED DIAGONAL LINES. * * USES T4, T5. * * CALLS FCN, TCR. TRX SUBR ENTRY/EXIT RJM TCR SELECT TUBE RJM FCN FUNCTION CONSOLE LDD TS CHECK TUBE SWITCH ZJN TRX1 IF NOT TUBE 1 LDD TB1 SET TUBE 1 UJN TRX2 TRX1 LDD TB2 SET TUBE 2 TRX2 ADC 7010 FUNCTION DOT MODE FAN CH LDC 7000 BOTTOM LEFT TO TOP RIGHT STD T5 LDC 6000 STD T4 ACN CH TRX3 LDN 2 OUTPUT COORDINATES OAM T4,CH AOD T4 AOD T5 LDD T5 NJN TRX3 LOOP LCN 0 TOP LEFT TO BOTTOM RIGHT STD T5 LDC 6000 STD T4 TRX4 LDN 2 OUTPUT COORDINATES OAM T4,CH AOD T4 SOD T5 LMC 6777 NJN TRX4 LOOP DCN CH LJM TRXX RETURN TRZ SPACE 4 ** TRZ - TEST ROUTINE *Z*. * DOT/CHARACTER MODE POSITIONING COMPARISON. * * USES T4 - T7. * * CALLS FCN, TCR. TRZ SUBR ENTRY/EXIT RJM TCR SELECT TUBE RJM FCN FUNCTION CONSOLE LDD TS CHECK TUBE SWITCH ZJN TRZ1 IF NOT TUBE 1 LDD TB1 SET TUBE 1 UJN TRZ2 TRZ1 LDD TB2 SET TUBE 2 TRZ2 ADC 7000 SET CHARACTER MODE FUNCTION STM TRZA ADN 7010-7000 SELECT DOT MODE FAN CH ACN CH * DISPLAY CROSS. LDC 6540 SET HORIZONTAL LINE X-COORDINATES STD T4 LDC 6240 STD T6 LDC 7400 SET Y-COORDINATE STD T5 TRZ3 LDN 2 DISPLAY DOT OAM T4,CH SOD T4 DECREMENT X-COORDINATE LMD T6 NJN TRZ3 LOOP TO END OF LINE LDC 7240 SET VERTICAL LINE Y-COORDINATES STD T6 LDC 7540 STD T5 LDC 6400 SET X-COORDINATE STD T4 TRZ4 LDN 2 DISPLAY DOT OAM T4,CH SOD T5 DECREMENT Y-COORDINATE LMD T6 NJN TRZ4 LOOP TO END OF LINE DCN CH * DISPLAY *X* AND *O*. LDC 7000 SELECT CHARACTER MODE TRZA EQU *-1 ADN 2 16 CHARACTERS/LINE FAN CH ACN CH LDN TRZBL OAM TRZB,CH DCN CH * DISPLAY EXPLANATION. LDM TRZA SELECT CHARACTER MODE, 64 CHAR./LINE FAN CH LDC TRZCL ACN CH OAM TRZC,CH DCN CH LJM TRZX RETURN TRZB BSS 0 DATA 7400 DATA 6400 DATA 2RO DATA 7360 DATA 6360 DATA 2RX TRZBL EQU *-TRZB TRZC BSS 0 DATA 7700 DATA 6000 DATA H*IF O IS CENTERED ON CROSS, CHARACTERS ARE CENTERED* DATA 7640 DATA 6000 DATA H*ON COORDINATES.* DATA 7140 DATA 6000 DATA H*IF X IS CENTERED ON CROSS, CHARACTERS HAVE LOWER* DATA 7100 DATA 6000 DATA H*LEFT CORNERS ON COORDINATES.* TRZCL EQU *-TRZC DSS TITLE DISPLAY SUBROUTINES ** DSS - DISPLAY SYSTEM STATUS. * * CALLS SYS. DSS SUBR ENTRY/EXIT LDC 6000 SET X - COORDINATE STD XC RJM SYS DCN CH+40 UJN DSSX RETURN FCN SPACE 4 ** FCN - FUNCTION CONSOLE FOR TUBE AND SIZE. * * USES TS. FCN SUBR ENTRY/EXIT LDD TS CHECK TUBE SWITCH ZJN FCN1 IF NOT TUBE 1 LDD TB1 SET TUBE 1 UJN FCN2 FCN1 LDD TB2 SET TUBE 2 FCN2 ADD SZ FORM FUNCTION CODE ADC 7000 FAN CH SELECT TUBE AND SIZE UJN FCNX RETURN TCR SPACE 4 ** TCR - SELECT TUBE, CHARACTER, SIZE. * * USES CR, SIZ, SZ, TB, TB1, TB2, TS. TCR SUBR ENTRY/EXIT * SELECT TUBE. LDN 0 PRESET TUBE 1 = TUBE 2 = *LEFT* STD TB1 STD TB2 LDD TB CHECK TUBE SELECTION SBN 1RB NJN TCR1 IF NOT *B* LDD HN SET *BOTH* UJN TCR2 TCR1 SBN 1RR-1RB NJN TCR3 IF NOT *R* (ASSUME *L*) LDD HN SET *RIGHT* STD TB2 TCR2 STD TB1 * SELECT SIZE. TCR3 LDN 2 PRESET *LARGE* STD SZ LDD SIZ CHECK SELECTION ZJN TCR6 IF NO SELECTION SBN 1RM NJN TCR4 IF NOT *M* LDN 1 SET *MEDIUM* UJN TCR5 TCR4 SBN 1RS-1RM NJN TCR6 IF NOT *S* LDN 0 SET *SMALL* TCR5 STD SZ * SELECT CHARACTER. TCR6 LDD CR LPN 77 STD CR ZJN TCR7 IF NO SELECTION SBN 1R$ ZJN TCR7 IF *$* SBN 1R -1R$ ZJN TCR7 IF *BLANK* SBN 1R.-1R +1 MJN TCR8 IF LEGAL DISPLAY CODE TCR7 LDN 1RA SET *A* STD CR TCR8 LJM TCRX RETURN MDC SPACE 4 ** MDC - MODIFY CHANNEL INSTRUCTIONS. * * USES T1, T2, T3. MDC SUBR ENTRY/EXIT LDM /COMDDSP/DDSB CHECK ASSIGNED CHANNEL STD T3 CHTE * LMN CH ZJN MDCX IF CHANNELS MODIFIED LDC TCHS MODIFY CHANNELS STD T1 MDC1 LDI T1 ZJN MDC2 IF CHANNEL TABLE MODIFICATION COMPLETE STD T2 LDI T2 SCN 77 ADD T3 STI T2 AOD T1 ADVANCE ADDRESS UJN MDC1 LOOP TO END OF TABLE MDC2 LDC MDCA SET 1ST ADDRESS FOR BLIND MODIFICATION STD T1 MDC3 AOD T1 ADVANCE ADDRESS LMC MDCB ZJN MDCX RETURN IF COMPLETE LDI T1 CHECK WORD LPC 7077 LMC 7000+CH NJN MDC3 IF NOT 7XCH LDI T1 MODIFY INSTRUCTION SCN 77 ADD T3 STI T1 UJN MDC3 LOOP TCHS SPACE 4 ** TCHS - TABLE OF CHANNEL INSTRUCTIONS. TCHS CHTB RSTC RESTORE CHANNEL INSTRUCTIONS COMMON SPACE 4,10 ** COMMON DECKS. MDCA BSS 0 FIRST ADDRESS FOR BLIND CHANNEL MOD *CALL COMDSYS *CALL COMDDSP MDCB BSS 0 LIMIT ADDRESS FOR BLIND CHANNEL MOD ATR TITLE UTILITY SUBROUTINES ** ATR - ADVANCE TEST ROUTINE. * * USES PI, PA. * * CALLS TTC. ATR SUBR ENTRY/EXIT LDD KB CHECK KEYBOARD ZJN ATR1 IF NO ENTRY RJM STR SELECT TEST ROUTINE UJN ATRX RETURN ATR1 LDD AF NJN ATR2 IF *ALL TESTS* LDD PA TOGGLE ADDRESS LMC CTL LMM TTRA,PI STD PA UJN ATRX RETURN ATR2 AOD PI ADVANCE TEST ATR3 LDM TTRA,PI NJN ATR4 IF NOT END OF TABLE STD PI RESET PROGRAM INDEX UJN ATR3 ATR4 STD PA UJN ATRX RETURN DRP SPACE 4 ** DRP - DROP DISPLAY. * * ENTRY VIA *LJM*. * * CALLS DDS, FTN, PPR. DRP RJM DDS DROP DISPLAY DPP MONITOR DPPM DROP PP LJM PPR EXIT TO PP RESIDENT STR SPACE 4 ** STR - SELECT TEST ROUTINE. * * USES CR, SZ, TB, T1. * * CALLS EEB. STR SUBR ENTRY/EXIT LDN 0 STD T1 PRESET INDEX STD AF CLEAR *ALL TESTS* FLAG LDD KB CHECK TEST SELECTION LMN 1RL NJN STR1 IF NOT *L* LDN 1 SET *ALL TESTS* FLAG STD AF UJN STR3 STR1 LDM TTRM,T1 NJN STR2 IF NOT END OF TABLE STD PI LDC CTL SELECT CONTROL PROGRAM STD PA RJM EEB ERASE ENTRY BUFFER LDM TTRM,PI SET FIRST TEST MNEMONIC IN *PM* STD PM UJN STRX RETURN STR2 LMD KB ZJN STR3 IF TEST FOUND AOD T1 ADVANCE INDEX UJN STR1 LOOP STR3 LDM TTRA,T1 SET PROGRAM ADDRESS STD PA LDD T1 SET PROGRAM INDEX STD PI LDD KB SET PROGRAM MNEMONIC STD PM LDD KB+1 SET TUBE STD TB LDD KB+2 SET CHARACTER STD CR LDD KB+3 SET SIZE STD SIZ RJM EEB ERASE ENTRY BUFFER LJM STRX RETURN * TTRM - TABLE OF TEST MNEMONICS. TTRM BSS 0 DATA 1RA DATA 1RC DATA 1RD DATA 1RI DATA 1RS DATA 1RX DATA 1RZ DATA 0 * TTRA - TABLE OF TEST ADDRESSES. TTRA BSS 0 CON TRA CON TRC CON TRD CON TRI CON TRS CON TRX CON TRZ DATA 0 TTC SPACE 4 ** TTC - TOGGLE TEST AND CONTROL. * * USES PA, PI. * * CALLS STR. TTC SUBR ENTRY/EXIT LDD KB CHECK KEYBOARD ZJN TTC1 IF NO ENTRY RJM STR SELECT TEST ROUTINE UJN TTCX RETURN TTC1 LDD PA TOGGLE ADDRESS LMC CTL LMM TTRA,PI STD PA UJN TTCX RETURN SPACE 4,10 DIS HERE *COMDSYS* *DISPLA* EXPANSION PRS TITLE PRESET PROGRAM ** PRS - PRESET PROGRAM. * * EXIT (NC) = NUMBER OF CP-S. PRS SUBR ENTRY/EXIT CATD CHECK ACCESS TO DISPLAY CONSOLE LDD CM NJN CAT1 IF ENGINEERING MODE NOT ENABLED PRS1 PAUSE LDD FL ZJN PRS3 IF FL = 0 LDD CM+1 ZJN PRS2 IF ERROR FLAG NOT SET LJM DPP DROP PP PRS2 STD CM+2 SET CM REQUEST MONITOR RSTM REQUEST 0 FL UJN PRS1 PRS3 RJM RDS REQUEST DISPLAY RJM MDC MODIFY CHANNEL INSTRUCTIONS STD TS PRESET TUBE SWITCH STD KI SET KEYBOARD INDEX STD AF CLEAR *ALL TESTS* FLAG STD PI SET PROGRAM INDEX CRD KB CLEAR KEYBOARD BUFFER LDN 1RA SET PROGRAM MNEMONIC *A* STD PM LDC CTL PRESET PROGRAM ADDRESS = *CONTROL* STD PA LDD HN PRESET *RIGHT* TUBE STD TB1 STD TB2 LDN 1RB STD TB LDN 2 PRESET *LARGE* SIZE STD SZ LDN 1RL STD SIZ LDN 1RA PRESET CHARACTER = *A* STD CR LDC 6200 SET KEYBOARD BUFFER DISPLAY COORDINATES STD KX LDC 7340 STD KY LDN NCPL SAVE NUMBER OF CP-S CRD CM AOD CM+1 STD NC LJM PRSX RETURN SPACE 4 ** COMMON DECKS. *CALL COMPCUA SPACE 4 END