; COBOL II Firmware diagnostic (D441A). ; Parameter 1 = path to diagnostic tape. ; ; Configuration locations UNVERIFIED: ; ; Location Default Value Contents ; ------------- ------------- -------------------------------------- ; DB+0 135670 000000 External Switch Register setting ; DB+1 135671 000110 Internal Switch Register setting ; DB+2 135672 000000 Instruction number to check (00-??) echo echo echo -------------------------------------- echo D441A - COBOL-II A Firmware Diagnostic echo -------------------------------------- echo echo Loading the stand-alone loader. ; Cold load the I/O diagnostics tape. attach -r MS0 %130000-11017_Rev-2640_IO.tape boot MS0 ; Load the tape file containing the diagnostic. ; ; The I/O tape contains these files: ; ; DIAGNOSTIC FILE REV %FILE ; ------------------- ------ ----- ---- ; SLEUTH PD411A 01.05 (01) ; CART DISC-7905A PD419A 01.04 (02) ; MEMORY PATTERN PD421A 01.00 (03) ; MULTIPLEXOR CHAN PD422A 01.02 (04) ; DISC FILE-2888A PD423A 01.00 (05) ; CART DISC-7900A PD424A 01.00 (06) ; SYSTEM CLOCK II/III PD425A 01.00 (07) ; SYS CLK/FLI III-LC PD426A 00.00 (10) ; TERMINAL DATA PD427A 01.01 (11) ; FIXED HEAD DISC PD428A 01.00 (12) ; SELECTOR CHAN PD429A 01.01 (13) ; FLT.CORR.MEM SER-II PD430A 01.01 (14) ; FLT.CORR.MEM SER-III PD430B 00.00 (15) ; EXTEND INSTRUC SET PD431A 01.00 (16) ; HSI DIAG. PD432A 01.00 (17) ; MAGNETIC TAPE PD433A 01.04 (20) ; SSLC INTERFACE PD434A 01.03 (21) ; ASLC INTERFACE PD434B 01.04 (22) ; UI DIAG PD435A 01.01 (23) ; TERMINAL CONTROL PD438A 01.00 (24) ; CALCOMP PLOTTER PD439A 01.01 (25) ; COBOLII A F/W DIAG PD441A 00.00 (26) ; COBOLII B F/W DIAG PD442A 00.00 (27) ; STAND ALONE DISC SADUTIL 01.00 (30) deposit SWCH 26 ; Set the CLK into real-time mode. set CLK REALTIME ; Load and start the diagnostic. ; ; The diagnostic loads from tape and then waits for a . echo echo Loading the diagnostic. reply "\r" delay 2 seconds ; Respond to "COBOLIIA F/W DIAG. (D441A.00.00) " ; ; The "delay 1" is necessary to prevent the diagnostic from reporting ; END OF PASS 0 at this point. go until ") \r\n" delay 1 ; Set the Switch Register options: ; ; + bit 0 = select the external switch register ; bit 1 = stop program for reconfiguration ; bit 2 = not used ; bit 3 = not used ; bit 4 = not used ; bit 5 = not used ; bit 6 = not used ; bit 7 = direct messages to the line printer ; bit 8 = not used ; bit 9 = suppress non-error messages ; bit 10 = suppress error messages ; bit 11 = not used ; bit 12 = halt on error ; bit 13 = not used ; bit 14 = not used ; + bit 15 = halt at the end of each diagnostic pass deposit SWCH 100001 ; Run the diagnostic. echo echo Reconfiguring the switch register and executing the diagnostic. echo Expect halt 15 for successful completion. go ; End the of diagnostic. ; ; Verify HALT 15 for a successful pass. assert CIR=030375 ; Restore the hardware configuration. set CLK CALTIME