Digital PDFs
Documents
Guest
Register
Log In
AH-8662E-MC
January 1980
82 pages
Original
4.0MB
view
download
OCR Version
3.6MB
view
download
Document:
CZDRGE0 DR11K DR11K DIGITAL I-O JAN 1980 bw
Order Number:
AH-8662E-MC
Revision:
000
Pages:
82
Original Filename:
CZDRGE0__DR11K__DR11K_DIGITAL_I-O__AH-8662E-MC__JAN_1980_bw.pdf
OCR Text
DR11K DiGITALI/O CZDRGEO AH-8662E-MC JAN 1980 FICHE1T OF1 MADETNTUSA copyriGHT 75-80 =OEORB0 DR11-k LOGIC TEST MAINDEC-11-CIDRG-E (ZDRGE .P11Y 31-AUG-79 11:23 MACY11 306(1063) 31-AUG-79 8 ! 13:05 PAGE i SEQ 0001 .REMY IDENTIFICATION PRODUCT CODE: AL-B660E-MC PRODUCT NAME: CIDRGEQ DR1IK DATE: AUG. MAINTAINER: DIAGNOSTIC DIGITAL 1/0 197y GROUP THE INFORMATION IN THIS DOCUMENT IS SURJECT TO CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COMM]TMENT BY DIGITAL EQUJPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. THE SOFTWARE DESCRIBED IN THIS DOCUMENT LICENSE AND MAY ONLY BE USED OR COPIED TERMS OF SUCH LICENSE. DIGITAL EQUIPMENT THE NOT FURNISHED UNDER (C) ITS 1975, SCFTWARE ON EQUIPMEN A WwITH THE CORPORATION ASSUMES NO RESPONSIBILITY USE OR RELIABILITY OF SUPPLIED BY DIGITAL. COPYRIGHYT 1S IN ACCORDANCE THAT 1979 BY DIGITAL EQUIPMENT FOR IS CORPORATON, lon11-x LOGIC TEST MAINDEC-11-CZDRG-E MACY11 306(1063) 31-AUG-79 13:05 PAGE 2 | CZDRGE .P1Y 31-AUG-79 € 11:23 TABLE OF CONTENTS N LOADING PROCEDURE STARTING PROCEDURE CONTROL SWITCH SETTINGS STARTING ADDRESSES — EQUPMENT REQUIREMENTS w ABSTRA(T 288 1. WV OPERATING PROCEDURE O ERRORS ~N RESTRICTIONS WO MISCELANEOUS WV OOVOOVOOVO .2 PROGRAM DESCRIPTION NO VSN — o — .2 EXECUTION TIMES DEVICE ADDRESSES LOGIC TEST (ONTROL LINE LOOP COULTER FUNCTION LOOP LOGIC TEST WITH COULTER JUMPER'S LOGIC TEST WITH K321 LOC-BOX JUMPER'S H321 FUNCTION LOOP XLOY ADJUSTMENT LOOP LiSTING SEQ 0002 — OR11-k LOGIC TESTM MAINDEC-11-(ZDRG-E CIORGE .P1Y 31=nu0=-79 11:23 1. MACY11 306(1063) 31-AUG=79 0D 1 13:05 PAGE 3 SEQ 0003 ABSTRA(CT THIS PROGRAM OUTPUT S CONTROL A THIS PROGRAM AL SC CONNECTINN'S THE RTM_"UNES ( .GIC OPT, 'N. ' SERVE PROGRAM ALSO THE OF THE DRI1=-K DIGITAL TWO ROUTINES TO VERI#> LOC-BOX AND ADJUSTMEN" SAME #4°° CNLINE SUPPLY'S INPUT PT]ION FUNCTIONS CAN BE INCLUDES HE H321 "PDLD #3 ANL PDLL THE TE<' AL A FUNCTION TEST AS OF TESTED. PROPER THE xL01'S, THE PROGRAMS, SOFIWARE ROUTINE TO CONNECTION'S TO DIGITAL DATA INSTRUMENT'S LIKE COULTER MODEL ''S’" COUNTER (REf 9.3). VERIFY PROPER THE DUE TO THE FLEXIBILITY OF THE OPTION, THE OPERATOR WiLL BE REQUIRED TO SUPPLY OPTION CHARACTERSTICS. THE PROGRAM WILL HANDLE ALL CONFIGURATIONS OF INPUT INTERRUPT SWITCHES AND INPUT DATA LATCHING JUMPERS. FOR SYSTEMS wiTH CONSECUTIVE MULTIPLE DR11=k'S, THESE CONFIGERATIONS MuST BE THE SAME. THE FOLLOWING JUMPERS MUST BE INSERTED TO EXECUTE THE LOGIC TEST: W21A, W22A AND W23A. THIS PROGRAM WILL TEST BUS ADDRESS AND VECTOR FOR NORMAL FACTORY WITH A VALUE OF 0. AFTER INITIAL LOADING OF EQUIPMENT PDP=11 . \V_) STARTING AT THE IN LOCATIONS ''SBASE'' AND "'SVE(T1'', CONFIG., THE DRI1-x'S ALL PRUGRAM, QUESTIONS THE LOGIC SHOULD BE TEST MUST BE ANSWERED RUN. REQUIREMENTS FAMILY DR11-x OPTION BCOBR-1 SEQUENTIAL COMPUTER WITH INSTALLED ONE FOOT OUTPUT CONSOLE 1/0 TERMINAL AND B8k OF TO INPUT WRAPAROUND CABLE LOADING PROCEDURE THE PROCEDURE FOR LOADING BINARY TAPES SHOULD BE FOLLOWED. MEMORY DRIV-k LOGIC TEST MAINDEC=-11-CZDRG-E CIORGE .P11Y 31-AUG-79 11:23 MACY11 30G(1063) 4, STARTING PROCEDURE [ CONTROL SWITCH SETTINGS 1F THE DIAGNOSTIC 1f THE REGISTER THE USER 31-AUG-79 (LOGIC 1 13:05 E PAGE & SEQ 0004 TEST) IS RUN ON A CPU WITHOUT A SWIT(H THEN A SOFTWARE SWITCH REGISTER IS USED WMICHM ALLOWS THE SAME SWITCH OPTIONS AS THE HARDWARE SWIT(M REGISTER. HARDWARE SWITCH REGISTER DOES NOT AND 1T CONTAINS ALL REGISTER (LOC. 176) ONES (177777) I< uSED. THEN EXIST THE OR IF SOF TWARE ONE DOES SWIT(H CONTROL: THIS PROGRAM ALSQ SUPPORTS THE DYNAMI( LOADING OF THE SOF TWARE REGISTER (LOC. 176) FROM TME 7TTv. THMIS CAN BE ACCOMPLISHED BY DOING THE FOLLOWING: 1) 2) 3) TYPE Loc. CONTROL 176 AT 6 <*G>; THIS WILL THE SOFTWARE AFTEP THE OF THE A) SWR=XXXXXX NEW= SWITCH REGISTER.) ‘'NEW='' FOLLOWING AT HAS BEEN TYPED THEN THE THE TC ENTER DATA INTO (XXXXXX IS THE OCTAL CONTENTS OPERATOR (AN DO ONE TTv: TYPE A NUMBER TO BE LOADED INTO LOC. 176 FOLLOWED BY A <(P>, (ONLY NUMBERS BETWEEN 0-7 WiLL BE ACCEPTED AND ONLY 6 NUMBERS WiLL BE ALLOWED) If A <CR> IS THE REGISTER 8) TTY SELECTED POINTS WITHIN THE PROGRAM, THF MACHINE WILL THEN TYPE: OF ALLOW THE SWTC(M FIRST CONTENTS WILL 1F A CONTROL U <*U> BACK TO STEP 2. KEY DEPRESSED NOT BE THE SOFTWARE SWIT(H CHANGED. 1S DEPRESSED THEN THE PROGRAM wWwlLL SEND YOU Y WILL BE USED SWw oW Sw Sw Sw SWw SWw Sw 15 14 13 12 11 16 09 08 AS THE = 1 = 1 =1 -1 = ¢ 1 =1 1 SOFTWARE DISPLAY 100000 040000 020000 010000 004000 002000 001000 000400. REGISTER. HALT ON ERROR LOOP ON CURRENT SUB-TEST INHIBIT ERROR TYPOUTS LOOP ON CURRENTLY SELECTED DR!1=x INHIBIT SUB=-TEST INTERATIONS NO OUTPUT T0 INPUT WRAPAROUND (ABLE LOOP ON ERROR LOOP ON TEST IN SWR <7:0> - TEST MAINDEC=11-CZDRG-E 31-AUG=79 11:23 IS IS 1S 1S 1S IS £ 13:05 PAGE § THE THE THE THE THE THE STARTING ADDRESS Of THE LOGIC TEST. TM RESTART ADDRESS OF TME LNGIC TEST. STARTING ADDRESS OFf THE CONTROL LINE LOOP. STARTING ADDRESS Of THE COULTER INTERFACE LOOP STARTING ADDRESS Of THE LOGIC TEST WITH “'COULTER JUMPER'' (ON 15. STARTING ADDRESS OFf THE LOGIC TEST WITH ""LOC ROX JUMPER'' (ONF!G. THE H321 "'LOC-BOX'* FUNCTION LOOP IS THE STARTING ADDRESS OFf THE LO1 ADJUSTMENT LOOF 230 IS THS STARTING ADDRESS OF 234 5. 31-AUG-79 SEC 0005 200 204 210 214 220 224 . 30G(1063) STARTING ADDRESSES OPERATING PROCEDURE THE FOLLOWING JUMPERS MUST BE INSTALLED TO EXECUTE THE LOGIC TEST: W21A, W22A AND WZ23A 1F THE CUSTOMER HAS SELECTED THE ''B'' SECTION OF THESE JUMPERS 1T MUST BE RETURNED TO THE ‘'FACTORY'' POSITION BEFORE RUNNING THE LOGIC TEST. ++ WORST CASE WILL ONLY BE CHANGING THREE JLMPERS. THE OPERATOR MUST INSERT THE CORRECT INFORMATION IN THE SWITCH REGISTER WHEN REQUESTED BY THE PROGRAM OR AN ERROR WILL OCCUR. WITH THE INPUT INTERRUPT SWITCHES AND DATA LATCHING JUMPERS IN THE FACTORY POSITICN, ALL >WITCH REGISTER BITS SHOULD BE ONCE STARTED THE TEST WILL RUN IN IT'S NORMAL MANNER WITHOUT OPERATOR INTERVENIION OR SWITCH SELECTION. s NOTE: OPERATOR MyuST INSERT INFORMATION WHEN REQUESTED PROGRAM. THE MACHINE WILL TYPE: NEW = AFTER NEW = THE INFORMATION IS INSERTED. REFER TO SECTION 4.1 2) wwe 6. TH]S PROGRAM USES THE DIAGNOSTIC °'SYSMAC' ERROR REPORTING AND TYPEOUT. REFER TO THE FOR TYPE AND BYTE BYTE WORD WORD 7. e+ RESET. BY . ERRORS DESCRIPTION OF $TSINM: $SITEMB: $tRRPC: $FASS: PACKAGE FOR ''ERROR POINTER TABLE" ERRORS. (LOC. (LOC. 1102) 1 14) (LOC. (LOC. CURRENT TEST NUMBER ITEM #N ERROR TABLE ERRORING P.C. CURRENT PASS COUNT 11 16) N 76) INDEX RESTRICTIONS IF SEQUENTJAL DR11-x'S, SAME THE INTERRUPT FOLLOWING ALL DR'1-x'S MUST BE SWITCHES AND DATA PATH JUMPER JUMPERS MUST W21A, W22A AND W23A THE OPERATOR MUST SUPPLY AND DATA PATH JUMPER AND INFORMATION TO THE [, ' MACY11 - 6.2 . '?R11-K LOGIC {DRGE .P11 BE [N THE IN THt (ONF jGERATION. ''FACTORY'' POSITION: THE CORRECT INTERRUPT SWIT(H CONFIGURATION SWITCHES INITALIZATION QUESTIONS OR AN ERROR WILL FOR MULTIPLE GROUPS OF CONSECUTIVE DR11-x'S: THIS DIAGNOSTIC MUST BF RUN FOR EACH GROUP. AFTER INITIAL LOADING OF THE PROGRAM, THE LOGIC MuST BE OCCUR. RUN F]RS? DR11-k LOGIC TEST MAINDEC-11-CZDRG-E CZDRGE.PI 31-AUG-79 11:23 MACY11 30G(1063) ’ 31-AUG-79 MISCELANEOUS 8.1 EXECUTION TIME THE LOGIC THE THE CONTROL COULTER THE XLOY TEST WILL TAKE APPROXIMATELY ON A PDP11/05 TYPE AND WILL TYPE THE H321 DEVICE 1 13:05 PAGE 6 SEQ 0006 8. 8.2 ¢ 60 SECONDS 'END PASS NNNN.'. FOR COMPLETION LINE LOOP WILL NEVER EXIT. INTERFACE LOOP WiLi NEVER EXIT, LOC-BOX FUNCTION LOOP WILL NEVER EXIT, ADJUSTMENT LOOP wiLL NEVER EXIT, ADDRESS PROGRAM LOCATIONS U$BASE' (LOC. 12664) CONTAINS THE DR11-k BASE DEVICE ADDRESS <767770> CSVECTY' (LOC. 1240) THE LOW 9 B.TS (ONTAIN THE DR11-x BASE INTERRUPT VECTOR <300> USVECTT' (LOC. 1240) THE HIGH 3 BITS CONTAIN THE DR11-x BR LEVEL #4 <200> *NOTE: IF THESE LOCATIONS ARE CHANGED, THE JPERATOR MUST START THE TEST AGAIN AT LOC. 200. THE PROGRAM WILL USE THE BASE ADDRESS AND VECTOR AND UPDATE THr ACTUAL PROGRAM VALUES. MACY11 31-AUG-79 11:23 306(1063) 9. PROCRAM DESCRIPTION 9.1 LOGIC TEST 31-AUG=79 THE LOGIC THE LOGIC TEST REGISTERS. ALL PROGRAM (HECKS “ReSET'' WILL WORK CONTROL THIS SCOPE TEST THAT LOOP PAGE 7 SEQ 0007 TEST MUST BE RUN FIRST AFTER INITIAL PROGRAM LOADING AN BE DIAGNOSED. DR11-K CAN INTERRUPT AND THAT <SA 210> LOOP PROVIDES LOOP FOR THE CORRECTLY. THE CHECKING W21, COULTER FUNCTION LOOP OPERATOR WITH .22 AND W23 A IN THE ‘B’ POSITION. <SA 214> THE COULTER INTERFACE LOOP PROVIDES THE OPERATOR WITH SOFTWARE INTERFACE WITH THE COULTER HARDWARE. "'$BASE'' (LOC. THE THE 1244) CONTAINS THE DR11K BUS ADDRESS. OPERATOR IS INSTRUCTED TO RUN A SAMPLE ON THE COULTER, PROGRAM wiLL WAIT FOR AN ,NTERRUPT FROM THE DR11K. UPON AN INTERRUPT, THE PROGRAM DELAYS 70 MSEC. (LOC. FOR THE PROPER DELAY ON A DIFFERENT TO SETTLE. THE 70 MSEC. DELAY REQUIRE THE OPERATOR TO MODIFY 1370) 11/05 11740 TO ALLOW THE DATA LIMES IS A FACTOR OF CPU TYPE THE VALUE OF ‘'CPU"’ AND MAY CPU TYPE: 240 620 THE COULTER INPUT DATA IS STORED IN A MEMORY BUFFER. THE HIGHER FOUR BITS ARE THE TEST NUMBERS WITH (RO BEING THE RUN TERMINATOR. UPON COMPLETION OF A RUN (SAMPLE), THE PROGRAM Wil. TYPE THE RESULTS IN THE FOLLOWING FORMAT AND THEN RESTART THE RUN SEQUENCE. THE TYPED RESULTS CAN BE COMPARED TO THE COULTER TYPOUT TO VERIFY A SUCCESSFUL RUN. UN=XXX'' WHERE N = TEST NUMBER AND XXX = TEST RESULTS 0 0 1 1 la) 1 1 "W : (ODE n THE RESULTS ARE BINARY (ODED DECIMAL. WHICH ARE ERRORS AND SHOULD NOT APPEAR —_D = OO G.3 LINE ) 9.2 1 13:05 IS A TEST OF THME CONTROL AND INPUT/QUTPUT JUMPERS AND SWITCHES COMBINATIONS EXCEPT: W2TA, W22A ANC W23A THE H <SA 200 AND 204> il CZORGE .P11Y MAINDEC-11-CZDRG-E e LOGIC TEST —_ DRI1-x THERE ARE BIT COMBINATIONS ON THE COULTER QUTPULT, DR11-k MAINDEC-11-CIDRG-E LOGIC 1 £S T CIDRGE .P11Y 3 1- AUG-79 11:23 9.4 LOGIC MACY11 30G(1063) 31-AUG-79 TEST WITH COULTER JUMPER I 1 13:05 CONFIG. PAGE 8 <SA 220> RUN THE LOGIC TEST WITH THE (CULTER INTERFACE JUMPERS AND WITH AN INTERRUPT LEVEL OF 5. CDULTER DEFAULT JUMPER/SWITCH VALUES USED IN THIS MODE: NON-LATCHING INPUT INTERRUPTING BITS 177777 INPUT BI1TS 170000 POSITIVE INPUT BITS TRANSITION INPUT BITS 9.5 LOGIC RUN TEST WITH LOC-BOX JUMPER CONFIG. THE LOG!C AND WITH AN H321 000000 170000 TEST WITH INTERRUPT THE LOC-BOX LEVEL OF <SA 224> INTERFACE 5. LOC-BOX DEFAULT JUMPER/SWITCH VALUES USED NON-LATHING INTERRUPTING INPUT INPUT BITS BITS POSITIVE INPUT BITS TRANSITION INPUT BITS 000000 107777 000000 000000 JUMPERS IN THIS MODE: SEQ 0008 OR11-k LOGIC TEST MAINDEC-11-CZDRG-E CIDRGE .P1 31-AUG-79 11:23 9.6 H321 MACY11 30G(1063) J 1 13:05 PAGE 9 sea 0009 LOC-BOX FUNCTION LOOP THIS LOOP ENABLES OF 31-AUG-79 THE H321 <SA 230> THE OPERATOR LOC-BOX LAMP'S, THIS LOOP SERVES THE SAME TO VER'FY PROPER OPERAT]ON SWITCHES AND THE WIRE CONNECT]ION. FUNCTION AS (4E ‘'PDL DIAG #3 -- PDLD3" THE OPERATOR SELECTS THE LOC-BOX'S, VIA DR11K BUS ADDRESS, AND THEN DEPRESSES EACH SWITCH., THE PRUGRAM WILL COMPLEMENT THE LAMP ABOVE THE SWITCH. THE OPERATOR SHOULD DEPRESS THE SWITCHES SLOWLY TO VERIFY THAT ONLY DEPRESSING A SWITCH WILL CAUSE THE IF THE LAMP TO CHANGE THE LATER THE THE XLO1 RELEASING THE SWITCH DOE€ PROGRAM MAY CCCASIONLY MISS A SWITCH CLOC BUS ADDRESSES OF THE DR1'r'S ARF * OPERATOR MAY CHANGE LOCA IUN> ' _ov, (LOC. 9. 7 AND THAT 1402, 1404, ADJUSTMENT 1406) LOOP ~ ., v, 167760 AND LOCZ, LOC3 <SA 23> LISTING ATTACHED. THE SAME DR11K'S BUS ADDRESS st O APPROACHING AN END — Ot REGION 10. et et 2 CENTER s s a O APPROCHING AN END LOOP USES 167750. TO RUN "N OTHER DR11K"'S. THIS LOOP ENABLES THE OPERATOR TO VERIFY OR ADJUST POT'S. THIS LOOP SERVES THE SAME FUNCTION AS '‘PDL == PDLD&'" THE H321 LAMP'S OPERATE AS SHOWN BELOW. PDL=11 INSTALLATION MANUAL FOR ADJUSTMENT DETAILS. THIS NCT, IS DETECTED THE DR11-K JUMPER CONFIG'~ 4" .ON SHOULD BE QUESTIONED® AS 9.6 THE XLO1/CCSSA/CCS55¢C DIAGNOSTIC #4 REFER Ty THE DRI1-x LOGIC TEST CZORGE.P11 MAINDEC-11-CZDRG-E 31-AUG-79 11:23 390 1) (1) MACY11 306(1063) JTITLE DR11-K :*COPYRIGHT (C) 31-AUG-79 LOGIC TEST 1979 :*DIGITAL EQUIPMENT CORP. ( K 1 13:05 PAGE 10 SEa 0010 MAINDEC=-11-CZDRG-E :*MAYNARD, MASS. 01754 bR (M ; *PROGRAM BY R. (1) Rk SHOOP [eTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC ;*PACKAGE (MAINDEC-11-DZQAC-(3), JAN 19, 1977, SYSMAC M 391 392 393 39% (1) (1) (1) ( (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (m (1) () () (1) (1) (1) (1) () (1) (1) (1) (1) (1) () (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) 167770 100300 001100 .SBTTL ABASE=167770 AVECT1=100300 BASIC DEFINITIONS ;*INITIAL ADDRESS OF STACK= 1100 .EQUIV EMT,ERROR .EQUIV 10T,SCOPE THE STACK POINTER see 1100 vee ;:BASIC DEFINITION OF ;:BASIC DEFINITION OF ERROR CALL SCOPE CALL 177774 177772 177570 177570 ;*M1°CELLANEOUS DEF INITIONS HT1 ::CODE FOR HORIZONTAL TAB Lf= 12 ::CODE FOR LINE FEED (R= 15 ::CODE FOR CARRIAGE RETURN CRLF= 200 ::CODE FOR CARRIAGE RETURN-LINE FEED PS= 177776 : iPROCESSOR STATUS WORD .EQUlV PS,PSW STKLMT= 177774 ::STACK LIMIT REGISTER PIRQ= 177772 : ;PROGRAM INTERRUPT REQUEST REGISTER DSWR= 177570 : iHARDWARE SWITCH REGISTER DDISP= 177570 : HARDWARE DISPLAY REGISTER 000000 000001 000002 000003 : *GENERAL PURPOSE REGISTER DEFINITIONS RO= %0 : ;GENERAL REGISTER R1= 11 : $GENERAL REGISTER R2= %2 : :GENERAL REGISTER R3= %3 : ;GENERAL REGISTER 000005 000006 000007 000006 000007 PS= R6= R7= SP= PC= 000000 000040 000100 000140 000200 000240 ;*PRIORITY LEVEL DEFINITIONS PRO= 0 ;;PRIORITY PR1= 40 :PRIORITY PR2= 100 :iPRIORITY PR3= 140 :PRIORITY PRG= 200 :PRIORITY PRS= 240 :PRIORITY 100000 ;e 'SWITCH REGISTER' SWITCM DEFINITIONS SW15= 100000 000011 000012 000015 000200 177776 000004 000300 000340 R4 = PR6= PR7- %4 %5 %6 %7 %6 X7 300 340 : :GENERAL REGISTER : :GENERAL REGISTER : :GENERAL REGISTER : :GENERAL REGISTER ::STACK POINTER : :PROGRAM COUNTER LEVEL LEVEL LEVEL LEVEL LEVEL LEVEL 0 1 2 3 4 5 :PRIORITY LEVEL 6 :PRIORITY LEVEL 7 000004 ERRVEC= 4 B L I e G e o e Gmend) Pt Pl - - - - - - - - - ] ) el Q) Gt Qe e Gt ] i) et G ] G (et O —=MNIWSH VOO O ) ol Gt Gt [oodecRooooRooRoeReoRoeRoo ool - OOOOO0OO0O0O0O O =2 I NI N0 OO B Pt Gramt P =t — —t =t — — Dot — — Dot P — N0 " OCOOOOOOOO —~—r— 0 — O=—= NN N NOOVO — NS wn —t = Bt Bt Bt ot Bt Dt bt P 001000 000400 000200 000100 000040 000020 000010 000004 000002° 000001 Pt G 000002 000001 fne) Pn 000010 000004 ) 040000 020000 010000 004000 002000 P CD 0D 0O TG0 00 00 GO CO O 000020 e 040000 020000 010030 004000 002000 001000 000400 000200 000100 000040 100000 —t 31-AUG-79 11:23 MAINDEC-11-CZDRG-E MODODODODOODTDDDDDEDD DT LOGIC TEST St G CIORGE .P1Y s AAA'\AAAAAAAA'\AAAAAAAAAAAAAAAAAAAAI\AAI\I\AAAI\’\Afi.'\flfi’\’\’\/\flfifl —~~ e e e e ed e e e et et e e D d d e e e d e e e e e il e D i D i D d e ed D e el i D e D e e il el e ol el e oD D o e o — N N Nt N Nt Nt Nt N N N Nt Nl Nl N N N Nkt Nl o Nt Nt il N8 N Nl N Nl N it P P N N N i P B i P " i P "t " ¥ i ot NwF P e ~— DR11-K MACY11 306(1063) BASIC DEFINITIONS 31-AUG 31-AUG-79 BIT DEFINITIONS 100000 40000 20000 10000 4000 2000 1000 400 L1 13:05 PAGE 10~ 10-1 3:05 PAGE 40000 20000 SW09,Sw9 SW08,Sw8 SWC7,Sw7 SW06,5wé SWO05,Sw5 , SWé SW04 SW03,Sw3 SW02,Swe SW01,sw! SW00, Swo (BIT00 10 BIT15) 200 100 40 20 10 ; *BAS]C ''CPL"" TRAP VECTOR ADDRESSES ;. TIME OUT AND OTHER ERRORS SEQ 001 DR11-K LOGIC TEST MAINDEC-11-CZDRG-E CZDRGE.P11 31-AUG-79 11:23 (1 (1) (1) (1) () () (1) (1) (1) (1) (1) 000010 000014 000014 000014 000020 000024 000030 000034 000060 000064 000240 MACY11 306(1063) 31-AUG-79 BASIC DEFINITIONS RESVEC= 10 TBITVEC=14 TRTVEC= BPTVEC= 10TVEC= PWRVEC= 14 14 20 24 EMTVEC= 30 TRAPVEC=34 TKVEC= 60 TPVEC= 64 PIRQVEC=240 ¢ n 13:05 PAGE 10-2 ; ;RESERVED AND ST BIT SEQ 0012 ILLEGAL INSTRUCTIONS ::TRACE TRAP : :BREAKPOINT TRAP (BPT) ::INPUT/OUTPUT TRAP (10T) ::POWER FAIL ::EMULATOR TRAP S UTRAP" TRAP (EMT) »*SCOPE++ s+ERRQOR#* ;:TTY KEYBOARD VECTOR S:TTY PRINTER VECTOR : :PROGRAM INTERRUPT REQUEST VECTOR DR\\-K LOGIC TEST MAINDEC-11-CZDRG-E 3i-AUG-79 11:23 CIORGE P11 000174 000176 000174 000000 000000 000200 000204 000210 000214 000220 000224 000230 000¢ 34 000137 000137 000137 000137 000137 000137 000137 000137 e N o N s N 000046 ~r v QD N 000052 000240 000046 011324 000052 000000 000240 001000 USE P 15 MALT ON ERROR e 12 LOOP ON CURRENTLY SELECTED DR11-K i 10 OUTPUT TO INPUT WRAPAROUND CABLE NOT CONNECTED ‘e 8 LOOP ON TEST IN SWR<7:0> LOOP ON TEST INHIBIT ERROR TYPEOUTS 14 13 INHIBIT ITERATIONS 1 LOOP ON ERROR 9 TRAP CATCHER ;*ALL UNUSED LOCATIONS FROM & = 776 CONTAIN A "' 42, HALT" ;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS ;*LOCATION O CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS =174 : :SOFTWARE DISPLAY REGISTER DISPREG: .WORD O ;;SOF TWARE SWITCH REGISTER .WORD O SWREG: STARTING ADDRESS(ES) .SBTTL S#BEGIN ;;JUMP TO STARTING ADDRESS OF PROGRAM JMP JMP a#BEGINI :JUMP TO THE RESTART ADDRESS TO THE CONTROL LINES LOOP ;JUMP IMEXTTST JMP TO THE COULTER FUNCTION LOOP ;JUMP a#COULTR JMP TO SA WITH THE COULTER JUMPER CONFIG. ;JUMP COuLTy JMP ;JUMP T0 SA WITH THE LOC-BOX JUMPER CONF]G. H322J JMP ;JUMP TO SA OF LOC-BOX FUNCTION LOOP LOCBOX JMP ;JUMP TO SA OF XLO1 ADJUSTMENT LOOP XLOTAD JMP ACT11 HOOKS LSBTTL NN X23222222222223222222 2222222222222 :HOOKS REQUIRED BY ACT11 $SVPC=. "WORD TZ8SVPC .SBTTL 222202222 2a .1)SET LOC.46 TO ADDRESS Or SENDAD IN .SEOP 0 "21000 ' - 2)SET LOC.52 TO ZERO " 1"RESTORE PC APT PARAMETER BLOCK 2 Rl 22222222 2R RiR 2322222222222 2X22232222222222 e "SET LOCATIONS 24 AND &4 AS REQUIRED FOR APT e MN N fOOZA 000044 2322222222222 3222222X222 X222 2222222202222 Rt .$X=. .=24 R 200 b4 SAPTHDR ¥| S Rlll) };SAVE CURRENT LOCATION ;;SET POWER FAIL TO POINT TO START OF PROGRAM :;FOR APT START UP ;;POINT TO APT INDIRECT ADDRESS PNIR. ;;POINT TO APT HEADER BLOCK ;sRESET LOCATION COUNTER R R R R L A S A LSRR AR LA N :SETUP AFT PARAMETER BLOCK AS DEFINED IN THE APT-PDPI1 DIAGNOSTIC JINTERFACE N b ————— 001000 000024 000200 000044 001000 001000 l Rl :SAVE PC iEgng NS S N SEQ 0013 .=0 000000 et S PAGE 10-3 SWITCH _SRTTL e el 13:05 “e S ] P OPERATIONAL SWITCH SETTINGS i I e la kel ol e e P B 2l e Ral WY o Y o Rre e e R el 2 » VS SR o~~~ - et O\ b —es _SBTTL OPERATIONAL SWITCH SETTINGS P P () —~ 306(1063) 1K OOO0OO0OOO0VO e e s il e 8 "t o o v o WAAA’\’\AAI‘HA““’&AAB/\A’\AA’\’- il i o el e D L) et i el et b b ol e b —a o et D N e e e e e e e e e 396 31-AUG-79 N MACY11 —— SPEC. DR11-x LOGIC TEST MAINDEC-11-CZDRG-E CIDRGE.P1Y 31-AUG-79 11:23 (1) (1) (1) (1) (1) (1) (1) (1) 001000 001000 001002 001004 001006 001010 001012 000000 001170 000030 000010 000030 00003° MACY11 306(1063) 31-AUG-79 APT PARAMETER BLOCK $SAPTHD: $HIBTS: SMBADR: $TSTM: $PASTM: SUNITM: .WORD .WORD _WORD _WORD _WORD LWORD O S$MAIL B ¢ 13:05 PAGE 10-4 SEQ 0014 :.TW0 HIGH BITS OF ;;ADDRESS OF 18 BIT MAJLBOX ADDR. APT MAILBOX (BITS 0-15) 30 ::RUN TIM OF LONGEST TEST 10 ;:RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 30 ..ADD]TIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT SETEND-SMAIL/2 ;;LENGTMH MAILBOX-ETABLE (WORDS) DR11-K LOGIC TEST MAINDEC-11-CIDRG-E MACY11 306(1063; 31-AUG=79 C 1%:05 PAGE 10-5 CIDRGE P 31-AUG-79 11:23 COMMON TAGS SeEa 0015 t?? LSBTTL (2) ;;t'tt"'t""""t"""'tt'"""t"t.""t"t"'."'t.'.'tt"t (N ;*TH]S TABLE CONTAINS VARIOUS CNMMON STORAGE LOCATIONS :}; ) (V) (v (V) (1) (1) (1) (1) (1) (1) (1) (1) (V) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) COMMON TAGS :*USED IN THE PROGRAM. 001100 01100 $SCMTAG: .=1100 001100 001102 001103 001104 001106 001110 001112 001114 00V11S 001116 001120 001122 001124 001126 001130 001132 001134 001135 001136 001140 001142 001144 000000 000 000 000000 000000 000000 000000 000 001 000000 000000 000000 000000 000000 000000 000000 000 000 000000 177570 177570 177560 .WORLD $TSTNM: .BYTE $SERFLG: .BYTE $ICNT: .WORD $SLPADR: .WORD $LPERR: .WORD $ERTTL: .WORD SITEMB: .BYTE SERMAX: .BYTE $SERRPC: .WwORD $SGLCACR: .WORD $BDADR: .WORD $GDDAT: .WORD $BDDAT: .WORD .WORD .WORD $SAUTOB: .BYTE $INTAG: .BYTE LMWORD SWR: .WORD DISPLAY: .WORD $1KS: 177560 (1) (1) (1) (1) (1) (1) (1) (1) 001150 001152 001154 001155 001156 001157 001160 001162 177564 177566 000 002 012 000 000000 000000 $TPS: 177564 $T1PB: 177566 $NULL: .BYTE $FILLS: .BYTE $FILLC: .BYTE $TPFLG: .BYTE $TIMES: O $ESCAPE: 0 O 2 12 0 (1) (1) 001165 001166 015 000012 SCRLF: SLF: <% 12> (1) (1) (2) 001146 001164 177562 07?7 (2) (g) $QUES: ;s CONTAINS THE TEST NUMBER ;. CONTAINS ERROR FLAG ;. CONTAINS SUBTEST ]TERATION COUNT s CONTAINS SCOPE LOOP ADDRESS ;s CONTAINS SCOPE RETURN FOR ERRORS ;;CONTAINS TOTAL ERRORS DETECTED ;s CONTAINS ITEM CONTROL BYTE ;s CONTAINS MAX. ERRORS PER TEST ;s CONTAINS PC OF LAST ERROR INSTRUCTION ;. CONTAINS ADDRESS OF 'GOOD' DATA ;. CONTAINS ADDRESS OF °BAD' DATA ;;CONTAINS 'GOOD' DATA ;;CONTAINS 'BAD' DATA ;s RESERVED-=-NOT TO BE USED s AUTOMATIC MODE S INTERRUPT MODE ; sADDRESS OF SWITCH REGISTER ;. ADDRESS OF DISPLAY REGISTER ;:TTY KBD STATUS ;sTTY KBD BUFFER ;:TTY PRINTER STATUS REG. ADDRESS ;.T77Y PRINTER BUFFER REG. ADDRESS ;s CONTAINS NULL CMARACTER FOR FILLS ;s CONTAINS # OF FILLER CHARACTERS REQUIRED s INSERT FILL CHARS. AFTER A "'LINE FEED" ;o 'TERMINAL AVAILABLE'' FLAG ‘811<07>=0 YES) s MAX. NUMBER OF ITERAT]IONS ;. SCAPE ON ERROR ADDRESS 177562 _ASCII L.ASCII LASCIZ INDICATOR IMDICATOR 77/ ;s QUESTION MARK ;s CARRIAGE RETURN s:LINE FEED "."tt'lttt't""ttt"l""'t't'ttt-"tltt"lt't'ttttt"tt'l'.".t LSBTTL APT PAILBOX-ETABLE .EVEN SMAIL: $MSGTY: SFATAL: $TESTN: $PASS: $DEV(T: $UNIT: $MSGAD: $MSGLG: .WORD .WORD .WORD .WORD .WORD .WORD ;;".'t't't""'ttt'l"'ttt"""'t-t'tttttt""ltt't"'t'ttl'llt (2) (2) (2) (2) (2) (2) (2) (2) (2) (2) (2) $TK3: ;:START OF COMMON TAGS O O v 0 0 0 0 0 1 O 0 0 0 0 0 O 0 0 O DSWR DD.SP 001i70 001170 001172 001174 001176 001200 001202 001204 001206 000000 000000 000000 000000 000000 000000 000000 000000 .WORD .WORD AMSGTY AFATAL ATESTN APASS ADEVCY AUNIT ;o APT MATLBOX ; ;MESSAGE TYPE (ODE ;:FATAL ERROR NUMBER ;;TEST NUMBER ;s PASS COUNY ;.DEVICE COUNT ;2. 1/0 UNIT NUMBER AMSGAD ; ;MESSAGE AMSGLG ; ;MESSAGE ADDKESS LENGTH DRIV-k LOG 1C TEST MAINDEC-11-CZDRG-E CZDRGE P11 31-AUG-79 11:23 (2) (2) (2) (2) (2) (¢) (2) 001210 001210 0Ci12N 001212 001214 001216 000 000 000000 000000 000000 (2) (2) (2) 2) (2) (2) (2) (2) (25 (2) (2) (2) (2) (2) (2) (2) (2) (2) (2) (2) (2) (2) (2) (2) (2) (2) (2) (2) (2) MACY11 30G(1063) 31-AUG-79 APT MAILBOX-ETABLE SETABLE: SENV: .BYTE SENVM: _BYTE $SWREG: .WORD SUSWR: _WORD $CPUOP: .WORD * AENV AENVM ASWREG AUSWR ACPUOP e 001220 001221 000 000 001222 000000 001'°2¢ Co 225 cui1226 001230 001231 001232 001234 001235 001236 001240 001242 001264 001246 000 00C 000000 000 000 000000 000 000 000000 100300 000000 167770 000000 001250 001252 000000 X X e X SMAMST: $MIYP1: e ;* X * $MADR!: e SMAMS?2: SMTYP2: SMADR2: $MAMS3: SMTYP3: SMADR3: SMAMSGL: SPTYPL: SMADRG: SVECT1: SVECT2: $BASE: $DEVM: $(DW1: SETEND: MEX]T _BYTE .BYTE .WORD _BYTE .BYTE .WORD _BYTE _BYTE _WORD .BYTE .BYTE _WORD .WwORD .WORD .WCRD _WORD .WORD b ¢ 13:05 PAGE 10-6 SEQ 0016 ::APT ENVIRONMENT TABLE : ;ENVIRONMENT BYTE ;;ENVIRONMENT MOOE BITS ;;APT SWITCHM REGISTER ;:USER SWITCMES ;:CPU TYPE,OPTIONS BITS 15-11=CPU TYPE 11/04=01,11/05=02.11/20=03,11/40 0&,'*745-05 AMAMS! AMTYPY 11/70=06,PDQ=07,0=10 BIT 10=REAL TIME CLOCK BIT 9=FLOATING POINT PROCESSOR BIT B=z=MEMORY MANAGEMENT ::MIGH ADDRESS,.M.S. BYTE ::MEM, TYPE,BLK# MEM.TYPE BYTE -(MIGH BYTE) 900 NSEC CORE=001 300 NSEC BIPOLAR=00? 500 NSEC MOS=(03 AMADRI ;:MIGM ADDRESS,BLKA1 ACDW' ;:CONTROLLER DESCRIPTION WORDS' MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOw OF AMAMS2 ;:HIGH ACDRESS.M.S. BYTE AMTYP2 :.MEM.TYPE,BLKN?2 AMADR2 ;;MEM.LAST ADDRESS,BLKN? AMAMS3 :;HIGH ADDRESS.M.S.BYTE AMTYP3 :MEM.TYPE,BLKA3 AMADR3 ;;MEM.LAST ADDRESS,.BLK#3 AMAMSL ::HIGH ADDRESS,M.S.BYTE AMTYP4 ;;MEM.TYPE,BLKANG AMADRG ; ;MEM_LAST ADDRESS,.BLKAL AVECT1 ;,INTERRUPT VECTOR#1,BUS PRIOR]TY#! AVECT2 ;:INTERRUPT VECTOR#2BUS PRIORITY#? ABASE :;BASE ADDRESS OF EQUIPMENT UNDER TES? ADEVM ;:DEVICE MAP "‘TYPE'' AROVE DR11-« CIDRGE .P %?Gl( ;EST MAINDEC-11-C2DRG-E AUG-79 11:23 MACYI1 30G(1063) 31-aUG-79 ERROR POINTER TABLE E 2 13:05 PAGE 10-7 SEQ 0017 :}; .SBTTL (1) (1) (1) :*THIS TABLE CUNTAINS THE INFORMATION FOR EACH ERROR THAT (AN OCCUR. ;*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN ;*LOCATION SITEMB. TMIS NUMBER INDICATES WHICM ITEM IN THE TABLE IS PERTINENT. (1) ;*NCTET: t}; X DT ;:POINTS TO THE DATA ;e 626 425 26 427 628 429 430 431 432 433 43¢ 435 436 ¢37 <38 «39 440 46 642 465 Lh& 4S5 001252 014251 014671 015162 015224 001262 001264 001266 001270 014302 014741 015162 015224 001272 001274 001276 001300 014132 015007 015162 015224 001302 001306 001306 0°’3%3 015055 015176 001310 015224 001312 001314 001316 014415 015055 015176 001322 001326 001326 001330 DH ::POINTS TO THE DATA MEADER DF ;;POINTS TO THE DATA FORMAT $ERRTB: 003252 001254 00129 001260 001320 THE ONLY PERTINENT DATA ;:POINTS TO THE ERROR MESSAGE (}) (1) IS O £m . (N SITEMB JITEM JLEmM :1TEM 3§ 014450 015055 015176 015224 1 1 DM 011 LFO ;STATUS REGISTER IN ERROR ;ERRPC DRADD STATUS EXPFCTED ;SERRPC DRADD SBNDAT $GDDAT 2 EM2 DM DT 0f0 :INPUT 6 EMe DH& DIg DeO JITEM b) EMS D hé D14 REGISTER IN ERROR ;ERRPC DRADD ,SERRPC DRADD Em3 DH3 DT DFO JITEM 015224 ;OUTPUT ;ERRPC ;SERRP(C REGISTER IN ERROR DRADD OUTPUT EXPECTED DRADD $BDDAT $GDDAT ;INPUT FAILED ;ERRPC DRADD ;SERRPC DRADD . INPUT SXPECTED $BDDAT $GDDAT ;OUTPUT FAILED ;ERRPC DRADD :SERRPC DRADD TO TO INTERRUPT INTERRUPT DfFC C1TEM 1S (SERRPC). EACH JTEM IN THE TABLE CONTAINS & POINTERS EXPLAINED AS FOLLOWS: X (\H) 423 IF ;*NOTE2: (1) () (1) 610 611 412 413 616 6415 616 617 618 419 420 453 ERROR POINTER TABLE 6 EMe DH& D14 0FO SUNEXPECTED INTERRUPT :ERRPC DRADD ;SERRPC DRADD ODR1V1-k LOGIC TEST HAINDE( =11-CIDRG-E (ZDRGE .P11 31-AUG-79 11:23 449 650 651 652 653 654 655 656 457 458 659 460 001332 001334 001336 001340 014475 015055 015176 015224 001342 001346 001346 001350 01453 015102 015206 015224 001352 00135 001356 001360 014614 015102 015206 01522¢ 001362 001364 001366 001370 167770 000300 000200 000240 001372 001374 46 662 463 464 425 466 467 468 469 4«70 N 472 4;3 “i4 6475 47? o 478 79 480 481 482 483 484 485 <86 487 488 <89 6490 491 692 493 496 495 496 497 498 499 500 MACY11 306(1063) 31-AUG=79 ERRCR POINTER TABLE F 2 13:05 PAGE 11 SEQ 0018 JITem 7 Em7 DH& DT4 DFO ;OPERATOR INTERVENTION ERROR ;ERRPC DRADD :SERRPC DRADD JITEM 10 EM10 DH10 D110 DFO ; INTERRUPT INPUT BIT FAILED TO SET [NPUT READY :ERRP{ DRADD STATUS EXPECTED INPUT B]T ;SERRPC DRADD $BDDAT SGDDAT BRLEV3 CITEM 1Y Emi DH10 D110 DFO BASEBA: BASE]vV: BASEBR: :NON=-INTERRUPTING INPUT BIT SET INPUT READY .ERRPC DRADD STATUS EXPECTED INPUT BIT .SERRPC DRADD $SBDDAT $(DDAT BRLEV3 167770 300 200 : STARTING BASE BUS ADDRESS :STARTING BASE INTERRUPT ADDRESS ' (Py: 240 000000 000000 NMBEXT: NBEXT: 0 0 001376 001400 167770 000300 DRADD: DRIvV: 167770 300 ;CURRENT sCURRENT 001402 0014064 001406 001610 001412 001414 0016416 001420 001422 001424 001426 001430 001432 001434 001436 001440 001442 001444 001446 001450 001452 167770 167760 167750 167770 167772 “67774 167775 000000 000000 000300 000302 00030« 000306 000200 000000 000000 000000 000000 000000 000000 000000 LOC: LoC2: LOC3: GRSTAT: GRDAI: GRDIO: GRBHIO: NOTLCH: INTBIT: GRIVA: GRIVSA: GRIVB: GRIVSB: DIOBRL: BRLEV1: BRLEVZ: BRLEV3: O0DDJMP: MINSIN: TRANST: JUMPER: 167770 167760 167750 167770 167772 167774 167775 O O 300 302 304 306 200 0 0 0 O O 0 0 .LOC BOX .LOC BOX ;LOC BOX ;DR STATUS s INPUT REG. .OUTPUT REG. :OUTPUT PEG MIGH :1 MS. CPU DELAY FACTOR 240 FOR : 620 FOR ;ADDITIONAL DR-11-K ;1 1 DR11-K DR11=K 11/05 11/40 STARTING ADDRESS STARTING INTERRUPT VECTOR #1 ADDR #2 ADDR #3 ADDR BYTE RUNNING H322 JUMPER (ONFIG ;2 1F COULTER JUMPER (ONF1G DRIk MAINDEC-11-CZDRG-E LOGIC 1 EST CIDRGE.P 1" 3 1- AUG=79 11:23 MR AR R D D e mad NNNNNNNNNNNN D i b el D) et - et e O 001744 001750 301756 001760 ARAS BEGIN: 001452 00002 NN ONO O NNONES NN MO — O NNNNUOW AR AR R A R X A X R R X A R K X R X DIGITAL I-0 LOGIC TEST R R R R R PAGE R R R R N 12 R R R SEa 0019 X F R X R X R RN KX ] 001452 CouLTy: (LR RO :CLEAR RO gkR ;g:gER INDICATE NORMAL ?0: ;S.JUHPER ;INDICATE COULTER JUMPER (ONF1G RBEG ;8.JUHPEP ;INDICATE LCC BOX JUMPER (ONFIG RBEG f-1,R0 ;LOAD RO FACTORY BUILD L 000001 001452 H322J: BR ?Ox L 177777 BEGINT: BR MOV CSBTTL INITIALIZE RBEG: MOV (LR (Mp BNE 016300 000340 011272 001160 001162 000001 001642 001650 COMMON TAGS .SCMTAG) FSCMTAG,RG (R6)+ #SWR,R6 .=6 ; ;DONE? , AREA :.FIRST LOCATION 10 BE ¢ s CLEAR MEMORY LOCATION .:LOOP BACK NO THE IF #STACK,SP MOV MOV MOV MOV MOV MOV MOV MOV #S$SCOPE ,@#I0TVEC ;10T VECTOR FOR SCOPE ROUTINE #340,3N10TVEC+2 ;;LEVEL 7 #SERROR,SFEMTVEC ;.EMT VECTOR FOR ERROR ROUTINE #3460 ,9MENTVEC+2 ;:LEVEL 7 #STRAP,SFTRAPVEC ;:TRAP VECTOR FOR TRAP (ALLS #340,3#TRAPVEC+2;LEVEL 7 #SPWURDN,3#PURVEC ;;POWER FAJLURE VECTOR #3640 ,9#PWRVEC+2 ;;LEVEL 7 CLR CLR Mov8 Mov MOV STIMES SESCAPE #1,SERMAX #.,SLPADR #.,SLPERR MOv S#ERRVEC,-(SP) Mov MOV #DSWR, SWR #DDISP,DISPLAY SENDCTY,SEOPCT ;s SETUP STACK CLEARED Mov MOV POINTER ;sSETUP END-OF -PROGRAM (OUNTER ;o INITIALIZE NUMBER OF JTERATIONS ::CLEAR THE ESCAPE ON ERROR ADDRESS ::ALLOW ONE ERROR PER TEST ;o INITIALIZE THE LOOP ADDRESS FOR SCOPE .. SETUP THE ERROR LOOP ADDRESS ::S1ZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT ;;EQUAL TO A "'=1'", SETUP FOR A SOFTWARE SWITCH REGISTER. MOv 001142 177226 001724 000176 000174 000004 THE ;o INITIALIZE A FEW VECTORS 015244 000340 015524 000340 020254 000340 000004 001716 177570 RESET ;:CLEAR THE COMMCN TAGS 001100 -2 NI NI NI N ONNNNYN e L A LV P o NNNNNO 001714 001716 001722 001724 001732 001740 ¢ 13:05 :'"'""""""""""""""'"""""""""" 001100 001656 001662 001670 001676 001704 001712 6 31-AUG-79 ERROR POINTER TABLE 001140 OO0O0OO0OO 001536 001544 001552 001560 001566 001574 001602 001610 001616 001624 001630 001634 001642 001650 012706 LSS LS AN ALY [, 1,V 1,81 NT,N1,VY N7, ¥ NNNOONNNSNNNN~N (A IV LV RV RV 10 NV VTV v VY] 001516 001522 001524 001530 001532 005000 005037 000414 012737 005000 000407 012737 005000 000402 012700 000005 OO—=00V0O0O00O OOOO 001454 001456 001462 001464 001472 001474 001476 001504 001506 001510 001514 OO0O0O0OO0O0 - 306(1063) 2 OO—=0O —OWwWO N—fownn NENO LMO ML NN NN PNIPNORNUIN ke balak ool WA I N N e R T i = PRIV RIRNINS NI PNININURINININY = N b b N b b R b ed b e R a Y o b b . b . W s e i et - sl e iy fakaXal ol VALV et NI\ b o D e o e d LV V. FG TV IV IV 1V, IV YV d -— (V] 508 509 510 MACY11 001140 001142 001176 000200 001211 001212 001140 ;;SAVE IS ERROR VECTOR N64S QNERRVEC ;;SET UP ERROR VECTOR (MP BNE ’-1,35WR 66% BR 65% s+ TRY TO REFERENCE HARDWARE SWR : :BRANCH ]F NO TIMEOUT TRAP OCCURRED ::AND THE HARDWARE SWR IS NOT -1 ; ;BRANCH IF NO TIMEOUT 6463 : MOV 65$: MoV #SWREG, SWR :sPOINT 1O SOFTWARE SWR 66%: MGV (SP)+ ,@#ERRVEC ;;RESTORE ERROR VECTOR (LR BIT18 $PASS #APTSIZE ,SENVM ¢ s CLEAR PASS (OUNT ;. TEST USER SIZE UNDER APT Mov #SSWREG, SWR ::NO,USE RT] MOv 8EQ #65%, (SP) ;:SETUP FOR A HARDWARE SWICH REGISTER ;;AND A HARDWARE DISPLAY REGISTER #OISPREG,D]ISPLAY 67% ;;SET UP FOR TRAP RETURN s s YES,USE NON-APT Sw]T(nH APT SWIT(H REGISTER LOGIC CIDRGE P11 O N M QO NV st s ANNANN OOV e e N =2 O O o st Do \N s e OO e e e s s e 2\ NN s AR 4 MAINDEC-11-CZDRG-E 31-AUG=79 11:23 001766 001766 001774 002002 002010 002016 002024 002032 002036 002040 002042 002046 002050 002052 002054 002056 002060 002066 002070 002074 002102 002104 001401 000000 002106 000754 002110 002112 002116 002124 002132 002134 002140 002142 002144 002146 002152 002152 002156 005303 010337 012737 002234 002234 002240 002272 002272 002276 002300 002302 002306 002354 002354 002362 002364 002370 002376 QOO0 OO—-OOO Al 4 Y2l Yol VA IV AV IV TV ] ) A M AN NN N N AN N PO no NOWVE NN -2O0Vo~ o (2) 523 524 525 TEST QOO =t s s f s [V LV IV 1,81 NIV 1 SV IV ] NONNNSNNNN - O O NN NN NN NN NN NN~ DR11-K 001244 001240 160000 001241 177437 002052 001362 001362 001364 001364 001366 001366 000004 MACY N INITIAL 11t 67%: 013463 100000 81C Mov MOV 5¢: 001372 002572 000340 0063102 104401 002160 104401 000414 013746 104403 000002 4%: CLR 1587 SuB INC BR CMP 1581 BNE BIT BNE 1%: 000004 000006 000042 RBEG1: 1871 2%: .165%: 64%: 00224¢ ;.67 66%: 001372 001420 177777 001446 <ASC1Z TYPE .ASCIZ 001452 001422 ;GET PRIORITY STEST IF EXISTENT ;EXIST, UPDATE TEST ADDRESS ;UPDATE # OF DR11'S (SP)+,(SP)+ :POP STACK b3 3 :BR ;LOAD BUS ERROR ;LOAD STARTING ADDRESS :CLEAR COUNT R3 ;TEST 1F ;TEST IF INMIBIT TYPEOUT :BR IF YES ;TELL OPERATOR BASE DR11X STEST HALT ON ERROR :BR IF NO HALT ;CHECK THE ;TRY AGAIN * ;ADJUST R3 ;SAVE THE NUMBER OF #VECTRP,a#ERRVEC ;RESET #340,3MERRVE(C+?2 ang? ;TEST BUS IF 4% RO ;BR IFf ;TEST RO 10TEST ;JUMP 2% ,65% 64% ;BR ;s IF FLR ADDITIONAL UNDER A MONITOR SET TYPE ASCIZ STRING ::GET OVER THE ASCIZ INPUT OQUTPUT LOGIC ;:TYPE ASCIZ STRING ::GET OVER THE ASCIZ <15><12>/MAINDEC=11-CZDRG-E/<15><12> - TYPE ASCIZ STRING #1,JUMPER 1% NOTLCH ¥-1,INTBIT MINSIN DR11-x ERROR 2 .69% 68% “1GET OVER THE ASCIZ /(8) ADDITIONAL DR11-K'S CONNECTED/<15><12> MOV EXIST ADDRESS CLEARED IF <15>¢<12><15><12>/DR11-K DIGITAL ,67% 66% PROGRAM DEVICE .WORD (MP BNE (LR DOESN'T ;FIRST DR11-K DOES NOT EXIST NMBEXT,-(SP) BR LASC1Z > FIRST DOES EXIST Mov TYPE .69% 000001 TYPE TYPOS 002310 SVECT1+1,BASEBR #177437 ,BASEBR 718, aNERRVEC BASEBA,R2 R3 (R2) #10,R2 52 R3 R3,NMBEXT 8EQ JMP 1/7-1 SeQ 0020 #160000,BASE1V DEC MOv RESET 181 PAGE ;GET APT DEFINED ADDRESS ;GET VECTOR 2% MOV MOV 2 13:05 $BASE ,BASEBA $SVECT1 BASEIV BR TYPE, H COMMON TAGS BIT 8tQ BNE A Y 31-AUG-79 #SW13,aSuR 43 BUSTRP ¥SW15,aSWR 5% HALT 012737 000005 005737 001002 005700 001402 000137 000426 177052 177036 MOV MOV 81C 1%: 020000 THE MOovB 2%: 000010 30G¢( 1063) STEST IF LOC-BOX CONFIG. :BR IF NOT :LOAD LOC-BOX JURMPER (ONFIG TEST/ OR11-k LOGIC TEST CZORGE .P1Y 568 569 S70 §71 §72 MAINDEC-11-CZDRG-E 31-AUG-79 11:23 0026402 002406 002612 002420 002t¢2 005037 000137 022737 001015 012737 573 0026430 012737 §74 575 576 577 578 002636 002442 002450 002454 002460 579 580 002462 002464 582 583 002472 0026474 585 586 ggg 581 584 587 005037 012737 000137 004537 013554 CLR 177777 001420 BNE MOV 001450 CLR MOV MINSIN #170000, TRANST 003102 003016 3% ;RUN THE LOGIC TEST WITH COULTER JUMPERS “TALK TO THE ANIMALS RS, TALK :ABOUT NON LATCH INPUT BITS ;TALK TO THE ANIMAL AGAIN 003016 RS, TALK 002502 002504 001446 004537 003016 MINSIN JSR RS, TALK ;AGAIN=-ABOUT THE MINUS INPUT BITS *HO=HUM 002512 001450 002510 013752 014044 SWPOSB SWIRAB TRANST ggg 002544 000137 001454 600 28} 002550 002554 006137 103362 001124 603 002556 004537 003016 605 002564 001442 000137 003102 609 610 002572 002576 021627 103402 0010060 612 002602 000776 621 (1) (1) I0TEST RS, TALK ;ABOUT THE INTERRUPTING BITS “ISN'T THIS BOARING 001450 617 618 619 620 S8R IF NOT “LOAD COULTER JUMPER CONFIG. INTBIT JSR 002500 002562 002566 002700 002604 002610 002612 002614 002616 002622 002630 002636 002640 002644 014142 ] 012637 162737 032777 001050 104401 0006417 18 DNETERMINE THAT THE OPERATOR DID NOT MAKE A LOGICAL SWITCH ERROR :LOAD TEST BIT #B1712,8GDDAT ;TEST IF NEG INPUT BIT $LDODAT ,MINSIN ;BR IF NOT 11% ;TEST IF TRANS. INPUT $GDDAT, TRANST ‘BR IF NOT 1% ;LOGICAL OPERATOR ERROR 7 JMP BEGIN ROL BCC $GDDAT 108 :MOVE LEFT *BR UNTIL DONE JSR RS, TALK ;ASK THE OPERATOR SWDPOB JMP 10TEST INTERRYPT TO UNEXPECTED VECTOR VECTRP:.CMP BLO 708 : 1%: 000200 718: 003014 000006 020000 :AGAIN-ABOUT THE TRANSITION BITS LSBTTL MOV 817 8EQ 817 BEQ ERROR BRLEV3 000000 021627 101002 000000 000776 10%: 003014 2$: 176302 002646 2:658: HALT BR (SP), #1000 1% 708 SINPUT BIT CANNOT BE NEG. AND TRANS. AT THE SAME ; ;ABOUT PROGRAM OPTI1UONS ;TEST IF IN PROGRAM CODE :BR IF NOT ‘FATAL BUS TRAP IN PROGRAM AREA :TEST IF IN SACRED VECTOR AREA :BR IF NOT SFATAL VECTOR TRAP CMP BHI HALT BR (SP),#200 8 TYPE B8R LASCIZ ;. TYPE ASCIZ STRING ,65% ::GET OVER THE ASCIZ 643 <15><12>/DR11k INTERRUPTED 10 LOC. / MOV SUB BIT BNE SEQ 0021 ;RUN THE LOGIC TEST WlTH LOC-BOX JUMPERS JTEST IF COULTER C(ONFIG. 001422 004537 001124 613 614 615 616 SWNLB SWINTB 0011264 001446 611 JMP JSR 7170000, INTBIT PAGE 12-2 003016 013652 010000 001124 608 MOV 170000 001422 012737 033737 001407 033737 001403 104007 285 TRANST IOTEST #2,JUMPER 38 #-1,NOTLCH 001446 170000 2 13:05 001452 1%: JMP (mp 1 003102 000002 002514 002522 002530 002532 002540 002542 606 INITIALIZE THE COMMON TACS 001450 590 591 592 583 594 595 506 597 31-AUG-79 NOTLCH JSR 0026470 001420 004537 MA(Y11 30G(1063) 718 (SP)+,72% 0,728 #SW13,aSuR 3% :GET ADDR .HE TRAP OCCURRED TO *MAKE REAL ADDRESS STEST 1F TYPE ERROR INHIBIT :BR IF INHIBIT . DR11-x LOGIC TEST CZDRGE P11 (1) 622 623 624 (1) (1) 1) 625 626 627 628 629 630 631 632 633 634 635 636 637 638 639 640 641 642 643 644 645 646 647 648 649 650 651 652 653 654 655 656 657 658 659 660 661 662 663 664 002704 002704 002710 002712 002716 002760 002760 002766 002774 002776 003000 003002 003010 003014 MAINDEC-11-CZDRG-E 31-AUG=-79 11:23 013746 104402 104401 000420 042737 032777 001401 000000 022626 013737 000137 000000 : 648 003014 002720 679 000007 100000 003014 003126 003014 176144 001400 66%: 3% MOV TYPOC TYPE BR LASCIZ BIC 81T BEQ 4%: 72%: HALT Cmp MOV JMP 0 S PAGE OT MAKE 72%,-(SP) ,67% 663 / AND WILL THAT 8, 72% (SP)+,(SP)+ SWiTCH ERROR sLOAD VALUE TO BE TYPED SEa 0022 ;. TYPE ASCIZ STRING ..GET OVER THE ASCIZ NOW USE FSW15,aSwR 6% :DR11K 12-3 A LOGICAL VECTOR/<15><12> ;MASK OFF ;TEST IF LOWER 3 BITS HALT ;BR IF NOT ON ERROR INTERRUPTED TO WRONG VECTOR-PROG WILL NOW USE THAT VECTOR 72% ,DR1vV RBEGZ sCLEAN THE STACK ;LOAD NEW VECTOR ADDRESS ;TEST THE DR11K AT THE NEW VECTOR :OPERATOR QUESTIONS AND ANSWER ROUTINE 003016 003022 003026 003030 003032 003040 003042 003046 003050 003054 003056 003060 003062 003064 003072 00307¢ 0146227 000000 017777 000205 001420 003076 003100 104006 000002 003102 000005 013737 012537 012537 104401 01355¢4 023727 001006 104401 104412 012677 000403 003030 003074 001140 TALK: 000176 10%: 017763 176064 104401 % 176050 000602 MOV MoV TYPE SWNLB cMpP BNE TYPE RDOCT MOV BR TYPE DEPCNT HALT 2$: MOV 118: NOTLCH RTS (RS)+,10% (R5)+,11% SWR,#SWREG 1% ,SMSWR (SP)+ ,aSWR 23 aSWR,a11% RS 001362 001364 001372 001376 001400 001374 000240 000242 004700 667 668 669 670 671 672 673 001076 RBEG?: 5¢: RESET MOV MOV MoV RESE?T MOV MOV MOV MOV CMP CMP BNE JOTSTY: 003166 001376 IOTEST: ERROR RII 001410 SETADD: RESET JSR BR MOV sGET ASCI] POINTER ;GET POINTER TO DATA FROM OPERATOR ;TELL OPERATOR TO LOAD SWITCHES ;TEST IF SWITCH REG. EXISTS ;BR IF NO ;TYPE "'SWR ="' ;READ OCTAL :SAVE THE SWITCHES ;TELL ;WAIT OPERATOR TO DEPRESS FOR OPERATOR ;LOAD SWITCH VvALUE JEXIT :POINTER JUNEXPECTED INTERRUPY UNEXPT: 665 666 J MACY11 306(1063) 31-AUG-T79 DETERMINE THAT THE OPERATOR O 6 TO DATA TO BE :gN§¥PECTED JEX CONT LOADED INTERRUPT DURING A SUB-TEST BASEBA,DRADD BASEIV,DRIV NMBEXT ,NBEXT ;LOAD INITIAL STARTING ADDRESS ;LOAD INITIAL STARTING VECTOR ;RELOAD # AVAILABLE #240,.R1 ;LOAD R1 R2,(R1)+ #4700, (R1)+ (R2)¢,(R2)¢ g%,lSCHTAG-Z sSAVE THE ADDRESS ;TEST FOR PC,SETADD :SET UP BUS ADDRESS AND VECTOR DRADD,GRSTAT :LOAD 1ST ADDRESS #2462 ,R2 10T1S1 ;LOAD ''JSR ;BUMP R? C.ROTM LAST sBR UNTIL DONE (1) (1) (1) 693 (3) (3) (2) 694 695 696 697 698 (3) (3) (2) 699 700 701 702 703 704 003276 003304 003312 003314 003322 003326 003334 31-AUG=-79 11:23 013737 M NN N N N N N NNNNNNNNNA L L 003174 003202 003210 003216 003224 003232 003240 003246 003254 003262 003270 MAINDEC-11-CZDRG-E L LI TSI IV ¢ NNNNNN NSNS 674 675 676 677 678 619 680 681 682 683 684 685 686 687 688 689 690 691 692 TEST QOO0 O0O0OO0O0O OO s Or = N — O DR11-x LOGIC CZORGE P 013737 001376 000002 001376 000004 001376 000005 001400 001400 000002 001400 000004 001400 000006 001366 001444 001446 001450 003076 000340 003076 000340 003342 003350 003356 003364 K DRADD,GRDA] #2,GRDA] DRADD,GRDIO #4,G6RDIO DRADN,GRBHIO sLOAD &TH ADDRESS MOV MOV ORIV,GRIVA DRIV,GRIVSA ;LOAD DRIV,GRIVB #4,GRIVB DRIV,GRIVSB #6,GRIVSB PC ;LOAD 2ND VECTOR ADD 10TTS1: BASEBR,DIOBRL (LR BIS BIS MOV N R 003374 003400 003404 005077 176010 176006 176004 BRI e SeTEST 2 I 003410 003412 003420 003426 003434 003442 003444 000004 012/37 012777 01773/ 023737 001401 104003 001124 175766 001126 001126 TST2: ;LOAD BR LEVEL sRESET #340,3GRIVSB I R R R R R R A I QUTPUT I VECTOR I I I TEST FOR NO BUS ERRORS R SCOPE CLR CLR CLR R VECTOR #UNEXPT ,aGRIVB MOV Iy TST1: FJRST ;SET MINUS INPUT BITS sSET TRANSITION [NPUT BITS JRESET INPUT VECTOR #340,3GR]IVSA J*TEST 1 003372 3RD ADDRESS 0DDJMP MINSIN,ODDJMP TRANST,00DJMP #UNEXPT ,aGR]VA MOV MOV R ;LOAD #2,GRIVSA MOv 001444 001444 176054 176050 176044 176040 SEQ 0023 :LOAD 2ND ADDRESS #5,6RBHI0 MOV ADD MOv ADD RTS 001432 001432 SWITCH ERROR MOV ADD MOV ADD MOV ADD 001434 2 MACY11 30G(1063) 31-AUG-79 13:05 PAGE 12-4 OETERMINE THAT THE OPERATOR DID NOT MAKE A LOGICAL Y SCOPE MOV MOv MOV CMP BEQ ERROR R A I mMmMmImmmm S6RSTAT @GRDA1 aGRDIO R I R e e R I I I TEST THAT OUTPUT REG. CAN HOLD #-1 R #-1,8GDDAT #-1,3GRD10 aGRD10,$BDDAT $GDDAT ,$BDDAT 1ST3 3 R I I I I :LOAD EXPECTED ;ALL ONES TO REGISTER ¢READ OQUTPUT REG. .:BR IF . COMPARE EQUAL ;REG WILL NOT HOLD ONES s DR11-x CZORGE P 706 (3) (3) (2) 13 'TEST 2 13:05 PAGE 13 TEST THAT RESET CLEARS OUTPUT REG. 306(1063) 31-AUG-79 AR 3 TEST L SEQ 0024 s THAT RESET R RS RRY ] CLEARS OUTPUT REG. t'"""""""""""'""t""‘""'.'l"l.'..t."t"".". 003446 003450 003456 003462 003470 003472 003500 003502 000004 012737 005037 012777 000005 017737 001401 000040 001124 001160 177777 175724 175716 001126 1513 SCOPE MOV CLR MOv RESET MOV BEQ 104003 .:D0 40 ITERATIONS #60,8TIMES $GDDAT #-1,aGRDIO aGRD10,3BDDAT 1ST4 ERROR 3 ;SET DATA TO ALL ONES ;.BR .READ OUTPUT REG. EQUAL ]F ;REG FAILED TO CLEAR M 't."'l""""""""t""""'"li"l..l."'tt"""'t""'t STEST v 000004 012737 012777 017737 023737 —NN 003504 003506 003514 003522 003530 003536 003540 - OrNN rnorIN Ll e RV 1V, } : I A OoO—=00 O~ V00 NO N MACY11 MAAAAAAASAR e IS SNNNSNNA A A NN ) d e o i P\ ) AN P o b e ek N =2 (1) 707 HAlNDE( =11-CIDRG-E 31-AUG-79 11:23 LOGIC TEST 001601 104003 001124 175672 001126 001126 4 TEST SRS 15T4: SCOPE MOV MOov R THAT RdRll il OUTPUT aGRD10,3BDDAT BEQ ERROR 1STS 3 N R S CAN HOLD #52525 22X #52525,9GDDAT Mov AN TR AN REG. Rl #52525,3GRD10 CMP JeTEST a $GDDAT,$BDDAT R N N N TEST R SRR RN N R ;LOAD EXPECTED VALUE ;READ OUTPUT REC. . COMPARE :.BR IF EQUAL ;DATA NOT=52525 N N N P R N N N R RN R RN AN RN RN RN AN AR AN RN THAT QUTPUT RLG. NN CAN HOLD #125252 . tttlt'ttt't"tt"Qttt't'tttttt'tttttttt"tttt'tltttltt't'tttttl 003542 003544 003552 003560 003566 003574 003576 000004 012737 012777 017737 023737 001401 001124 175634 001126 001126 1S15: SCOPE MoV MoV MOV CMP BEQ ERROR 104003 #125252,8GDDAT #125252,3GRD10 9GRD10,$BDDAT $GDDAT,$BDDAT 1516 3 ;L OAD EXPECTED VALUE ;.BR :READ OUTPUT REG. ; COMPARE EQUAL :DATA NOT=125252 IF . tltttkttt't"'t"t'ttttt!I"t'ttttt!tittttttt'tt'tltti'tltl!tt' SeTEST BE 739 003600 003602 003610 003616 003622 003630 003636 003644 003646 003650 003654 000004 012737 012737 005037 013777 017737 023737 001401 104003 005237 001362 000004 003622 001124 001124 175560 001124 001124 6 TEST THAT OUTPUT 2222022 R R TSTé 2$: SCOPE MOV #6,9TIMES MOV CMP aGRD10,$BDDAY $GDDAT,$BDDAT MOV CLR MOV BEQ 1%: ERROR INC BNE #2%,3LPERR $GDDAT $GDDAT ,aGRD]O 1% 3 $GDDAT 2% REG. CAN HOLD A 2R R ;.00 & R R R R X X R R COUNT R R R R R PATTERN 2R R R A2 AR ] I1TERATIONS ;LOAD SCOPE ERROR RETURN ;CLEAR PATTERN ;LOAD THE OUTPUT REG. ;READ THE ; COMPARE REG. ;:BR IF EQUAL ;OUTPUT REG.FAILED TO HOLD COUNT PATTERN ;UPDATE THE :TRY AGAIN PATTERN DR11-K LOGIC TEST MAINDEC-11-CZDRG-E MACY11 306(1063) 31-AUG-79n 1%:05 PAGE 14 CIDRGE .P1 31-AUG=79 11:23 17 761 (}) MR A R A R JeTEST 7 (3) A (2) 7642 ;:2 003656 003660 003666 000004 012737 012737 7645 746 7647 003674 003700 003706 005077 053777 017737 7648 749 ;2? 003714 003722 003724 752 753 003726 003732 754 023737 001401 104003 006337 001360 003674 000001 001110 001124 175514 001124 175502 001124 175506 001126 001126 001124 A A 000004 012737 012737 758 759 760 761 762 763 ;gg 003752 003760 003766 003774 004C0C 004006 004010 766 ;6; 6 004012 004016 769 003752 001110 000001 001124 012777 0463777 017737 005137 023737 001401 104003 177777 001124 175422 001126 001124 175434 175426 001126 006337 001355 001124 3) 006020 006022 004030 004036 004042 00640646 004052 004056 006062 004066 004072 006076 0064104 000004 012737 013777 005177 005177 005177 005177 005177 005177 005177 005177 017737 023737 778 004114 104003 004112 001401 125252 001124 175352 175346 175342 175336 175332 175326 175322 175316 175312 001124 001124 175356 001126 001126 I XXX R R R R Y X Y Y X e e R R R R R R X X2 2222y CLR BIS MOV cmMp BEQ ERROR eGRD10 $GDDAT,8GRDIO aGRD10,$BDDAT $GDDAT,$BDDAT 2% 3 ;CLEAR OUTPUT ;SET THAT 817 ;sREAD OUTPUT REG. ASL BNE $GDDAT 1% JSHIFT EXPECTED DATA sBR UNTIL DONE R R R J*TEST 10 TST10: SCOPE MOV sTEST RESULTS ;sBR |F EQUAL ? R R R N R R R R R 2R R FLOAT A O ACROSS THE OUTPUT REGISTER X R N N #18,SLPERR R Y R R R R R R R R R R ;LOAD SCOPE ERROR RETURN #B170,8GDDAT ;LOAD EXPECTED VALUE 1%: MOV B1C MOV (oM CcMp BEQ ERROR #-1,aGRDIO $GDDAT,aGRDIO0 aGRDI0,$BDDAT $BDDAT $GDDAT,$BDDAT 2% 3 sLOAD QUTPUT TO A ONE ;CLEAR A BIT :READ OQUTPUT REG. ;COMPLEMENT 171 ;EQUAL ? ;BR 1F EQUAL 2%: ASL BNE $GDDAT 1% JSHIFT LEFT ;JBRANCH UNTIL DONE R X e N TST11: 5. OPE MOV MOV (oM (oM COM COM COM oM COM (OM MOV Cmp #125252,8GDDAY $GODAT ,aGRDI0 aGRD10 SGRD10 aGRD10 8GRD]O SGRDI1O 8G6RDIO0 8GRD1O sGRDI1O dGRD10,$BDDAT $SGDDAT ,$BDDAT ERROR 3 BEQ TEST R R SJeTEST e e 18112 R FOR SLOW OUTPUT R Y R R R Ry MOV R (2) 770 771 776 (1) (1) (1) (1) (1) (1) (1) 775 776 A 1%: A R R (3 A e 22X ;LOAD SCOPE ERROR RETURN ;LOAD EXPECTED VALUE 001126 : Al I A R R Y Y R R Y R R X X R R X X R R R R R AR R FLOAT A 1 ACROSS THE OUTPUT REGISTER 718 ,SLPERR #B170,8GODAT A 0037346 003736 003746 R SEQ 0025 SCOPE MOV MOV R (3 (2) 755 ;g? R ACROSS THE OUTPUT REGISTER 1817: 2%: (3) 777 FLOAT A 1 Y R R R R R R R AR R GATES WITH #1257°52 ::BR IF e R R R R RN R R R R RS SRRk L sLOAD EXPECTED VALUE sLOAD OUTPUT s COMPLEMENT OUTPUT REG. ;COMPLEMENT QUTPUT REG. ;COMPLEMENT OUTPUT REG. ;COMPLEMENT QUTPUT REG. ;s COMPLEMENT QUTPUT REG. sCOMPLEMENT OQUTPUT REG. s COMPLEMENT OUTPUT REG. s COMPLEMENT OQUTPUT REG. sRF D OUTPUT REG. ;7 >T REGISTER CURRECT L) - DR11-K LOGIC TEST MAINDEC-11-CZDRG-E CIDRGE .P11 31-AUG~79 11:23 N2 MACYT1 306(1063) 31-AUG-79 13:05 PAGE 15 112 TEST FOR SLOW OUTPUT GATES WITH #52525 X 222X X2 TRTEST 12 R 2 X RS2 XXX AR R AR Sea 0026 AR 2R RRRARERRA) TEST FOR SLOW OUTPUT GATES WITH #52525 1ST12: ND AN NI RNJ N A =2 N N =PI NI NN L SNN Pl eV JoP JoP Jaol 8 gV, ] 001401 SCOPE MOV MOv COM com COM com com COM com COM A - NN 00 P Y L P = =] oO- R R O SINNNNNNNYNOW =S\ N AN AIVNANVANAN N 0046116 004120 006126 004134 004140 006144 004150 004154 004160 004164 004170 004174 004202 004210 004212 — i it o il i i G Y O NNNNNNNNWNWO NNNSNNNNNNS ';'""""""""""""""""'.".."".l'.."."""'t"" 001126 001126 MOv CMP BEQ ERROR 104003 #52525,9GDDAT $GDDAT,3GRD10 8GRD10 aGRD10 aGRD10 aGRD10 aGRD10 aGRDIO 8GRDI0 aGRD10 SGRD10,$BDDAT $GDDAT,$BDDAT ;ST13 ;LOAD EXPECTED VALUE sLOAD OUTPUT REG. ; COMPLEMENT OUTPUT REG. s COMPLEMENT OUTPUT REG. ; COMPLEMENT OUTPUT REG. s COMPLEMENT OUTPUT REG. s COMPLEMENT OUTPUT REG. s COMPLEMENT OUTPUT REG. :COMPLEMENT OUTPUT REG. ;COMPLEMENT OUTPUT REG. sREAD OUTPUT REG. sTEST PATTERN ;:BR IF EQUAL sOUTPUT REGISTER IN ERROR Rld 22 Rl 2R RR RRRX22222 332Z2X 22X 2222222202222 BEX2222X2222 TCTEST 13 TEST THAT OUTPUT CAN HOLD LOW BYTE COUNT PATTERN 004300 NN NNO ~ A — NNNNNNNES W j=l=] NN ~n o SNNNNNNNO 004246 004254 004262 004270 004272 004274 W S=N O 004214 004216 004224 004232 004240 O=—-2000—-00000 ';t"t.""'t'tt"t"""tt'""t"".l"tl.t"l'lt'llt'.i'l't'tl TST13: 000400 004246 052400 001124 001124 175134 001124 2$: 001124 1%: SCOPE MOV MOV Mov MOV MOVB MCv CMpP BEQ ERROR INCB BNE #400,8TIMES #2$ ,SLPERR #52400,$GDDAT $GDDAT,aGRD10 $GDDAT,aGRDIO aGRD10,$BDDAT $GDDAT,$BDDAT 1% 3 $GDDAT 2% ::D0 400 ITERATIONS ;LOAD SCOPE ERROR RETURN ;LOAD EXPECTED LATA ;LOAD OUTPUT REG. ;LOAD THE OUTPUT ;READ OUTPUT REG. ;BRANCH IF EQUAL ;ERROR, OUTPUT REG. ;UPDATE PATTERN IN ERROR ';.".tl'."""'f""""'i""'"'tt"tti't"""'t'!l"'ill"' TRTEST 14 TEST THAT QUTPUT CAN HOLD HIGH BYTE COUNT PATTERN O=0 =000 004302 004304 004312 004320 004326 004334 004342 004350 004356 004360 004362 004366 =-0O00000 ';'.tl"."'l"t"l"""""'I"""'It'l"'lt'tt't't"tttlIt'lt 000400 004334 000252 001124 001125 175046 001124 001125 001160 001110 001124 175060 17505¢4 001126 001126 1ST14: 2s: 1%: SCOPE MOV MOV MOV MOV MOVB MoV CMP BEQ ERROR INCB BNE ::D0 400 ITERATIONS :LOAD SCOPE ERROR RETURN #252,8GDDAT ;LOAD EXPECTED $GDDAT,8GRD10 ;LOAD OUTPUT REG. $GDDAT+1,9GRBHIO :LOAD THE HIGH BYTE SGRD10,$BDDAT ;READ OUTPUT REG. N600,8TIMES #2% ,SLPERR $GDDAT,$BDDAT 1% 3 $GDDAT+1 2% ;BRANCH [f EQUAL ;ERPROR, OUTPUT REG. IN ERROR - DR11-K MAINDEC-11-CZDRG-E LOGIC TESY CIDRGE P 31-AUG=79 11:23 AR A 306(1063) TEST AR AR A SYTEST 15 A 004370 004372 004376 004404 004412 004420 004426 0044346 004436 1§115: 000004 005077 —t et NNSNNN 2 821 822 823 824 825 (3) (3) (2) 826 827 828 829 830 83 832 833 634 (3) A —-O0O0000O QO e et S =2 NN QO NN~N~N~ OO WNNWN~N 1 1 i 1 OOWOONO v - 00 00 00 00 00 o~ ~ 815 (3) 3 2 MACY11 115 A 175006 001124 1764770 001126 001126 A A 31-AUG-79 OUTPUT A A A A R SCOPE CLR MOV MOV mov A A A 8 3 13:05 DATA ACCEPT A R AR A R A A R A R R BI7 BNE ERROR R R I A 16 SEQ 0027 X X A R A A R TEST OUTPUT DATA ACCEPT FLAG AL X A X R R SGRD10 #-1,3GRDAI #BIT15,8G0DAT #BIT15,8GRSTAT @GRSTAT,$BDDAT $GDDAT,$BDDAT 18116 Mov PAGE FLAG 1 R A R R R R Y R R R R X X X X X X R X X R X X X XX XN X ] XXX XXXXX) ;LOAD EXPECTED ;JSET BIT 15 JREAD STATUS ;sBR IF SET ;ERROR, BIT 15 FAILED TO SET ';t"'""'"""'""""""""""l"".""""'."'."""' TeTEST 16 TEST OUTPUT INTERRUPT ENABLE ';tlt".""""I'"""""""""'"..'t"".""""""t'!" 004440 004442 004446 004454 004462 004470 004476 004500 000004 005077 012737 012777 017737 033737 001001 176742 040000 040000 174722 001124 15116: 001124 176726 001126 001126 SCOPE CLR MOV Mov MOV AGRSTAT #B1T14,8GDDAT #BIT14.QGRSTAT aGRSTAT ,$BDDAT BNE Ts117 BIT 104001 $SGDDAT,$BDDAT ERROR 1 sCLEAR STATUS JLOAD EXPECTED ;LOAD BIT 14 JREAD STATUS ;:BR IF SET . JERROR BIT 14 FAILED TO SET ::""t"t"t""""""""'t'."""tl"'"'l""'t""'l'."' J*TEST 17 R 004502 004504 004512 004520 004526 004534 004536 000004 012737 012777 017737 023737 001401 104001 000200 000200 176664 001124 001124 A AR 1$T17: 174670 001126 001126 AAS AR SCOPE Mov MoV Rd TEST INPUT DATA READY FLAG sl dRdsl sl dGRSTAT ,$BDDAT BEQ 15720 ERROR X #B1T7,8GDDAT ¥B117,3GRSTAT Mov CMP R $GDDAT ,$BODAT 1 E R IR RN R RN EEEEEE BN N sLOAD EXPECTED ;SET BIT 7 ;READ ::BR IF RESULT ; COMPARE EQUAL ;ERROR, BIT 7 FAILED 10 SET :;""..""""'""'t'.'"""""l"lt'.'.'tltt'""""t"tt' ;*TEST 20 TEST INPUT INTERRUPT ENABLE ':"""""'""'""l""'""".""t""'."lt"""t"'."" 004540 004542 004546 004554 004562 004570 004576 004600 000004 005077 012737 012777 017737 023737 001401 104001 1764642 000100 000100 174622 001124 15120: 001124 174626 001126 001126 SCOPE (LR MOV MOV MOV (Mp BEQ ERROR SGRSTAT #BIT6,3GDDAT #B1T6,3GRSTAT GRSTAT,SBDDAT $GDDAT,$BODAT 15121 1 ;CLEAR STATUS sLOAD EXPECTED JSET BIT 6 ¢READ RESULT . :BR 1F . COMPARS EQUAL ;ERROR, BIT 6 FAILED 10 SET DRY* -x LOGIC TEST CZDRoE PN MAINDEC-11-CZDRG-E 31-AUG=-79 11:23 852 (3) (O MACY11 121 30G(1063) 31-AUG=-79 13:05 PAGE 17 TEST THAT RESET CLEARS THE DIGITAL STATUS REGISTER AR A A 004602 004604 004612 004616 004622 004630 004632 004640 06642 000004 012737 005077 005037 012777 000005 017737 001401 000040 176572 00112¢ 001160 A 1Si21: A A A R A AR AR AR A A A A SeTEST 21 M A SCOPE MOv CLR CLR A R A A R R A A R A A A X A R A R A X R R X R R R R R R X R A A R R A R A #40,STIMES SGRSTAT $GDDAT A R X R R R X R X R X XXX XX} R R R R R N R X R R XXX ;:00 40 ITERATIONS ;CLEAR STATUS .LOAD EXPECTED 174560 :gg£1 #BITI15!BIT14!BIT7!BIT6,8GRSTAT 176552 001126 mov SGRSTAT ,$BDDAY BEQ ERROR R TEST THAT RESEY CLEARS ThE DIGITAL STATUS REGISTER 140300 104001 R SEQ 0028 18122 1 ::BR IF ;READ RESULT EQUAL ;ERROR, RESET FAILED TO CLEAR DIGITAL ;STATUS REGISTER ;;"'t.t""'""""""'""""""'""""".'."""'.""' J*TEST 22 TEST EXTERNAL TRANSFERS = CABLE MUST BE CONNECTED °;""..""""""l"""""""".'..".""."'.""""."' 004644 004646 004654 004656 004664 004670 004670 004674 004702 004706 004714 004722 004730 004736 004740 000004 0327/7 001405 112737 000137 005077 012777 005037 012777 017737 043737 023737 001401 002000 1764264 000036 007200 001102 174520 177777 001124 000V00 1764472 001444 001124 1S122: s 176510 SCOPE BIT 8tQ move JMP #BIT10,9SWR 1% #36,8TSTNM DRT21 STEST SWITCH BIT +BRANCH 1F DOWN ;LOAD NEW TEST NUMBER ;BYPASS SOME TEST USING THE EXTERNAL CAB' L CLR aGRO10 sCLEAR OUTPUT MOV Mov BIC #0,86RD10 SGRDA1,$BDDAT 0DDJMP ,$BDDAT ;LOAD THE JREAD THE s MASK MOov CLR 1764500 001126 001126 001126 CMpP BEQ ERROR 104002 AR AR RS SeTEST 23 M 004742 004744 004750 004756 004764 004772 005000 005006 005014 005022 00502¢ 000004 005077 012777 012737 063737 013777 017737 043737 023737 001401 104002 A 001124 001124 001124 001126 001126 001126 174434 174614 $GDDAT ,$BODAT 15123 ¢ RRARRRSAREAsARd AR 15123: 174644 177777 1727777 001444 001124 176406 001444 A #-1,3GRDA] $SGDDATM TEST R REGISTER :CLEAR [NPUT ;CLEAR EXPECTED ::BR IF RS OUTPUT INPUT . COMPARE EQUAL ;ERROR, INPUT DID NOT EQUAL THE OUTPUT REG. R R SRR ERERXRERAN INPUT WITH #-1 ARl Rl Rl R X R R XX RXEXRR SCOPE CLR MOV MoV sGRDIC #-1,36RDAI #-1,3GDDAT JCLEAR QUTPUT RTMGISTLR ;CLEAR ]NPUT sLOAD EXPECTED Moy $GDDAT,8GRDIO0 ;LOAD THE QUTPUT BIC mov 8IC (mp BEQ ERRCR ODDJMP ,$GDDAT 0DDJMP,$BDDAT $GDDAT,$BDDAT 15124 R MASK aGRDA] ,$BDDAT 2 ] JREAD ;:BR IF INPUT :MASK ; COMPARE EQUAL ;ERROR, INPUT DID NOT EQUAL THE OQuTPUT I DR11-x LOGIC CIORGE P11 897 (3) (3) (2) 898 TEST MAINDEC-11-C2DRG-E 31-AUG=79 11:23 MACY11 124 3 D 306(1063) 13:05 51-AUG-79 TEST INPUT WITH #52525 PAGE 18 SEQ 0029 ';"""'"'""'"""""""""""""'."""'l""""t"t ;*TEST 24 TEST INPUT WITH #52505 ';""'."""""""""'""""""".'.""l'.'."""""" 005026 005030 005034 005042 005050 005056 005064 005072 005100 005106 00511y 000004 005077 012777 012737 063737 013777 017737 043737 023737 00140 15124: 176350 001124 MmOov MOV 17433C MOV MoV 001124 001124 SCOPE CLR BIC 001126 001126 001126 8IC cmp BEQ ERROR 106002 A AL A AR AR A TOTEST 25 AR aGRO10 #-1,GRDA] JCLEAR QUTPUT REGISTER ;CLEAR INPUT JLOAD EXPECTED #52525,8GDDAT ODDJMP . $GDDAT $GDDAT.3GRDI0 AGRDAI . $BDDAT ODDJMP . SRDDAT $GDODAT,$BDDAT JMASK :LCAD THE QUTPUT JREAD s MASK ; COMPARE 55125 AR AR TEST INPUT ;:BR IF EQUAL JERROR, AR R A X INPUT AR A R R WITH X R R R A R R R X R X X R X R INPUT F R R R R DID NOT X R R R R X R EQUAL XX OUTPUT R} #125252 ';'"""""'.""'.""""""""'.'.""'."."'.'.""".t' 919 005112 005114 005i20 005126 005134 005142 005150 005156 005164 005172 005174 000004 005077 012777 012737 063737 013777 017737 043737 023737 001401 106002 174276 177777 125252 001444 001124 174236 001464 001124 *5712%: SCOPE CLR 1746264 MOV Mov 176244 Mov mov 00112¢ 001124 001126 001126 001126 BIC BIC (mp BEQ ERROR SGRD1O #-1,36RDAI #125252,9GDDAT sCLEAR QUTPUT REGISTER ;CLEAR [NPUT JLOAD EXPECTED 00DJMP,$GDDAT JMASK ;LOAD THE QutPUuT $GDDAT ,8GRDIO SGRDA] ,$BDDAT 0DDJMP,$BDDAT $GODAY ,$BDDAT 55126 JREAD ;:BR IF INPUT JMASK ; COMPARE EQUAL JERROR, INPUT DID NOT £QUAL QuTPUT DR11-x P%?Gl( TEST CZDRGE MAINDEC-11-CZDRG-E 31-AUG-79 11:23 92‘ 005176 005200 005206 005212 005214 005222 005230 005232 005240 005242 005250 005256 005264 005272 005300 000004 012737 005737 001461 012737 033737 001447 033737 001043 013777 012777 043777 017737 023737 001401 935 005302 938 939 9640 941 942 943 944 945 005304 005312 005314 005322 005330 005336 005344 005346 033737 001016 012777 053777 017737 023737 001601 106002 005350 005356 006137 103322 ggg 94? 9% 948 949 THME NEG. E 3 13:05 PAGE 19 AND TRANSITION LATCHMING INPUT DATA BITS SE0 0030 TEST THE NEG. AND TRANSITION LATCHING INPUT DATA BITS .';t't'""""""""""t"'t"'""l'tt""."'t'tt"""'t"' 000001 001444 001160 010000 001444 00112¢ 001124 007420 00112¢ 001126 177777 001124 174122 001124 174144 17613 176130 001126 001126 15126: 1%: SCOPE mov 153 8ra MOy BIT BEQ BIT BNE MOV Mov BIC MOV (MP BEQ 104002 0014646 177777 001126 174056 001124 174070 1764064 001126 001126 001124 3%: 2% $GDDAT,aGRDIO #-1,38GRDAI $GDDAT,@8GRDIO 3GRDA1,$BDDAT SGDDAT,$BDDAT i ;:00 1 ITERATION :TEST 1F ANY 0DD JUMPERS ;:BR IF NONE ;LOAD TEST BIT ;TEST 1F ODD JUMPER @I ;BR JF NOT JTEST IF LAT(HING INPUT BIT ;BR ]F NOT ;LOAD OUTPUT :CLEAR INPUT ;CLEAR OUTPUT BIT ¢ JREAD INPUT REG : COMPARE :BR IF EQUAL ;ERROR, NEG. INPUT OR NEG. Bi7 BNE L (o] BIS MOV (MP BEQ ERRQOR $SGODAT ,MINSIN 2% #-1,8GRDA! $GDDAT,aGRDIO aGRDA] ,$BDDAT $GDDAT,$BDDAT 2% 2 :TEST JF NEG. INPUT BIT :BR IF :CLEAR INPUT ;LOAD OuTPUT JREAD INPUT : COMPARE :BR IF EQUAL ;ERROR, POSITIVE INPUT TRANSITION ROL BCC $GDDAT 1% :CHANGE DATA PATTERN ;BR IF MORE DATA ERROR 001124 2, 8TINMES ODDJMP 15127 #BIT12,9GDDAT 0DDJMP ,8GDDAT 2% NOTLCH,3GDDAT 2% ., | 929 930 931 932 933 93& 31-AUG-79 e » 9¢2 923 926 925 926 927 928 TEST ;eTEST 26 (3) (2) 126 30G(1063) ;:l"tt"'"'"t"""'"""""0"""""'t"""""""""' (y) (]) MACY11 INPUT BIT FAILED TO SET ;LOGIC FAILED TO SET INPUT TRANSITION INPUT REGISTER REGISTER BT DR11-k LOGIC (ZDRGE .P IR 1 ES HAINDE( =11-CIDRG-¢ 3 1-AUG=79 11:23 951 wo OWO WO — — — = MM\ NN (Y AV B VIV VTV IV ] 005434 005442 005450 005456 005464 005466 O NNNNNNN NNN Ow AN~ —~d S NONN—-Y~N NS OO OO 005366 005374 005402 005406 005414 005422 005424 005432 NO 005356 005360 OOOOOo OO0 JTEST - N~ H~ NN N 952 953 954 955 956 957 958 959 960 961 962 963 964 965 966 967 958 969 970 97 972 973 974 975 976 977 978 979 980 981 982 983 984 127 306(1063) FLOAT A 1 31-AUG-79 f 3 13:0¢ PAGE 20 ACROSS NON-LATCHING INPUT BITS SEQ 0031 . """"""""""'"""""'"""""."""""'l"'""' [=d=) OO0 s o & et (3) (3) (2) MACYi1 27 FLOAT A 1 ACROSS NON-LATCHING 005406 001110 000001 001420 001442 001440 001124 00112¢ 001420 is127: SCOPE #2%,3LPERR ;LOAD ERROR SCOPE RETURN 001440 001442 MoV MoV #B170,BRLEV? NOTLCH,BRLEVY 001124 001444 MOV ;LOAD EXPECTED JGET NON-LAT(HM ; COMPLEMENT ;LOAD GOOD (om BIT BNE 001124 173764 001442 001124 173752 001126 001126 001126 BRLEVS BRLEVZ,$GDDAT ?2DDAT.ODDJHP BIT ?2DDAI,NOTL(fi MOV Moy $GDDAT,aGRDIO SGRDA] ,SBDDAT 8tQ BIC (MP BEQ ERROR 104002 043777 017737 043737 005037 033737 001401 001124 173710 001442 00112¢ 001440 173716 001126 001126 3% BIC mov 8IC (LR 81" 8tQ ERROR 001126 106002 ;TEST J.BR AND 1F TEST $GDDAT,aGRD10 @GRDA] ,$BODAT ;READ INPUT JMASK TO LAT(CH BITS ; COMPARE EQUAL ;INPUT REGISTER [N ERROR JWAS CORRECT LATCH/NON-LAT(M SUPPLIED ? THE 006337 001324 001640 1%: ASL BNE BRLEV? 2t INPUT DOES NOT LAT(H BT ;READ INPUT $GDDAT ;s JUMPER ;CLEAR QUTPUT BRLEVS,$BDDAT BRLEVZ2,$BDDAT JDD ;LOAD QuTPUT BRLEV3,$BODAT $GDDAT,$BDDAT 35 IF ;BYPASS IF ODD JUMPER ;TEST FOR NON-LAT(H :BR IF LATCHING ;MASK TO LATCH BI15S TEST FOR BIT ;CLEAR EXPECTED ;:BR IF CLEARED sINPUT BIT LATCHED IN ERROR ;WAS 005530 005534 BITS MOv JSUB-TEST CLEAR THE OUTPUT BIT 005470 005476 005504 005512 005516 005524 005526 INPUT M .'""""""""""""."""'""""""""'I"""""t CORRECT : CHANGE LATCH/NON=LAT(H PATTERN sBR UNTIL DONE SUPPL!ED ° DR11=K HAINDE( LOGIC T ES =11-CIDRG-E CIORGE .P 1R 6-79 11:23 3 1- 986 -IEST 005536 005540 005546 005554 005560 OO 987 968 989 990 991 992 993 994 995 130 306(1063) FLOAT A 1 31-AUG-T79 6 3 13:05 PAGE 2! ACROSS LATCHING INPUT BITS SeQ 0032 "l"""""'"""'"""""""".."""""""""""t' 005566 005574 005576 005604 WO W (3) (3) (2) MACY11 005606 005614 005620 005626 005634 005636 104002 005640 005646 005652 053777 006337 001345 30 FLOAT A 1 ACROSS LATCHING INPUT BITS """"""'.""""'""""""""""'."."l"'l't""'t 005566 000001 173634 177777 001124 00112¢ 001124 173574 173566 001124 00112¢ 001124 001110 001124 TSTSO: SCOPE MOv MOV (LR 173624 #2%,SLPERR aGRDIO mov #-1,3GRDA] BIT ?2DDA1.NOYL(n BIT ?2DDAT.ODDJHP 173600 MOv 001126 001126 MoV $GDDAT,GRDIO aGRD IO SGRDAL,$BDDAT $GODAT,$BDDAT ;3 001420 2%: 001444 173544 BNE BNE CLR CMp BEQ ERROR 1%: BIS ASL BNE ;LOAD ERROR SCOPE RETURN :LOAD EXPECTED VALUE ;CLEAR OQUTPUT REG ;CLEAR INPUT #B1T0,8GDDAT ;TEST FOR NON-LATCHING sBR IF NON-LAT(H ;TEST JF ODD JUMPER ;BYPASS [F ODD JUMPER sLOAD OUTPUT ;CLEAR QUTPUT REGISTER ;:BR ¥ $GDDAT ,3GRDA] $GDDAT sREAD INPUT . COMPARE EQUAL sINPUT REG. REGISTER FAILED TO LAT(H DATA ;CLEAR INPUT BIT s CHANGE '3) PATTERN ;BR UNTIL DONt M "'.""""""""""."""'"'.'..'l"""t"'t.lt'""ttt SeTEST 31 FLOAT A O ACROSS LATCHING INPUT BITS b i e e el D ) ) el o ol i —r el — oo [elelelalelolelelelelalolele] NN NN = bt et et D b et 2 02 O Hwero —= OV NS WN=0O0 M '.'.."""'"""""'.'.""".""'.'.l"l".".'.'l..'.'". 1025 1026 1027 1028 1029 1030 1031 1032 005654 005656 005664 005672 005676 012737 012737 005077 012777 005704 000001 173516 177777 001110 001442 005704 005712 005714 005722 033737 001032 033737 001026 001442 001420 00112¢ 001444 005724 005732 005740 005746 005754 012737 043737 043737 013777 005077 005760 005766 005774 005776 017737 023737 001401 006000 006006 006012 053777 006337 001334 000004 177777 001420 001442 001124 173434 173626 001124 1S131: #2%,8 PERR #BIT0,BRLEV3 aGRDIO0 #-1,8GRDA] ;LOAD ERROR SCOPE RET.LRN LOAD EXPECTED ;CLEAR QUTPUT REGISTER sCLEAR NPT Bl BNE BIT ?:LEVS.NOTL(H ;TEST FOR LATCHING :BR IF NOT ;TUST IF ODD JUMPER MOV #-1,9GDDAT NOTLCH,SGDDAT (LR 173506 MOV 2$. BNE 001124 00112¢4 001124 173440 BIC BIC MOv (LR 001126 001126 MoV (MpP BtQ ERROR 104002 001442 001442 SCOPE MOV MOv 173404 1%: BIS ASL BNE ?EDDAY.ODDJHP ;BYPASS IF ODD ;LOAD BRLEV3,$GDDAT ;MAKE BRLEV3 SGRDA] ,$BDDAT $G0DAT , SBUDAT ;i ; COMPARE EQUAL $GDDAT ,aGRDIO aGRDIO BRLEV3,8GRDA] BRLEV3 2% JUMP:R BI? ;LOAD OUTPUT ;CLEAR QUTPUT REGISTER ;sREAD INPUT ;.BRIF sINPUT REGISTER FAILED TO LAT(® DA'A sCLEAR INPUT BIT ; CHANGE PATTERN sBR UNTIL DONE DR11-K LOGIC .P IR CIORGE 3 S1 HAINDE( =11-CIDRG-E 1- AUG =79 11:23 1034 (3) 32 H 3 13:05 PAGE 22 FOR SLOW INPUT GATES WITH #125252 SEQ 0035 TEST FOR SLOW INPUT GATES WiTH #125252 NN b b s\ NN N et OO — NNOOON el e NN N LM AN NN NNNN [ IV 1V ] (v v — CLR #-1,3GRDAI MOv RO,8GRDI0 SGRD IO aGRDA] ,R? R1,3GRDA; RO RO,8GRD10 aGRDIO R dGRDA] R1,3GRDA] RO RO,aGRDIO 8GPDI0 8GRDA] ,R1 R1,8GRDAI RO RO,aGRDIO sGRD]O R 8GRDA] (LR MOV BIS (oM CLR Mov BIS (oM 3240 3232 MOV CLR MOV BIS e d Mov VAV AV ) NNNN MOov NNNN COM CLR MOV 8IS (L LV_ LV LV ] (oM CLR MOV 8IS &H [ — NN NN — COM MOV oo s oonrn (V. AV IV IV} et ) (VL LAV ] —adh 140 #125252,9GDDAT NOTLCH,SGDDAT ODDJMP ,$GDDAT $GODAT RO 8GRD10 MOov NNNN — il MOv NNNN il BIC 81C BIS COM NNNN — el — — 173334 MOv MoV — el i — 001124 001124 001124 SCOPE Mov (LR Mov [ e R ~NOO — 006274 006276 006302 006306 006312 005100 010077 005977 017701 050177 005100 010077 005077 017701 050177 il 010077 005077 017701 050177 005100 010077 005077 017701 050177 005100 010077 005077 017701 050177 005100 010077 005077 017701 050177 005100 010077 005077 017701 050177 005100 010077 005077 017701 050177 005100 010077 005077 017701 050177 ol 006056 006062 006066 006072 006076 006100 006104 006110 006114 006120 006122 006126 006132 006136 006142 006144 006150 006154 006160 006164 006166 006172 006176 006202 006206 006210 006214 006220 006224 006230 006232 006236 006242 006246 006252 006254 006260 006264 006270 NNNN 012737 043737 043737 013700 005077 012777 — 006016 006024 006032 006040 006044 006050 is132: NNNN 000304 — el 006014 il ~~ vv\r\—vvvvvvvvvvvvvvvVV\IvvvvvvvvvvvvaVvvvvv ~— d e ) ~o~~~ I e I e R N et I R b N = N e e i bt et PN\ =2 e i N b A N N i 2 et b et ) i A e et et e P\ e e e b et et - B P\ G b b s iy d ~no 1041 1042 1049 TEST 31-AUG-79 M '"!""""'.""'"""'"'"'""""'.""l"".'.""."" NNNN 1035 1036 1037 1038 1039 1040 30G(1063) ::"""""'""""""'"'"'""".""""""."'."..'"'. J*TEST — (3) (2) MACYT1 132 (LR Mov BIS COM MOV (LR MOV R1,8GRDA] RO RO,8GRD10 aGRD10 8GRDA] ,R1 R1,3GRDAI RO RO,8GRD10 aGRDI0 R 8GRDAI R1,3GRDA} RO RO,8GRDIO SGRD !0 R SGRDA] R1,8GRDA] RO RO,aGRDIO aGRD 10 R SORDAL JLOAD EXPECTED ; CONVERT s MASK JLOAD PATTERN ;CLEAR QUTPUT REGISTER ;CLEAR INPUT ;LOAD OUTPUT JCLEAR QUTPUT REGISTER ;READ [NPUT ;CLEAR INPUT ;LOAD QUTPUT sCLEAR OUTPUT REGISTER ;READ INPUT s CLEAR INPUT sLOAD OUTPUT ;CLEAR OUTPUT REGISTER ;READ INPUT ;CLEAR [NPUT ;LOAD OUTPUT . CLEAR QUTPUT REGISTER SREAD INPUT :CLEAR INPUT ;LOAD OuTPULTY ;CLEAR QUTPUT REGISTER sREAD INPUT ;CLEAR INPUT sLOAD OUTPUT s CLEAR OUTPUT REGISTER ;READ INPUT sCLEAR INPUT sLOAD QUTPUT ;CLEAR OUTPUT REGISTER ;READ INPUT sCLEAR INPUT sLOAD OUTPUT sCLEAR OUTPUT REGISTER SREAD INPUT CLR R1,3GRDAI RO RO,8GRD1O aGRD10 :LOAD OUTPUT sCLEAR QUTPUT REGISTER BIS R1,8GRDAI CLEAR BIS COm Mov MOV R SGORDAI :CLEAR INPUT JREAD INPUT [NPUT r OR11-x LOGIC NN AN b AN 2O s b d o — QOOQOOO Ao et \) = et s b N\ =® v e CZDRGE P ¥ Nat Nt Nt Nt N N N Nl Nt Nttt N sl N Nt N Nt N Nt N — N~ ~ O~ D ed e b ) a P\) P ed e e e e P\t b b N\ =D o Rkttt taetakalateatateakatealeate e kala el e -~ 1055 1056 1057 1058 1059 (3) (3) (2) 1060 1061 1062 1063 1064 1065 1066 1067 TEST MAINDEC-11-CIDRG-E 31-AUG-79 11:23 MACY11 132 006316 Com MOV (LR 006320 006324 006330 006336 006340 006342 006346 006352 006356 006362 005100 006364 006370 006372 006374 006376 006404 010137 000240 000240 000240 023737 001401 006406 13 306(1063) 31-AUG-79 13:05 PAGE 22-1 TEST FOR SLOW INPUT GATES WITH #125252 MOV R1,3GRDA] RO RO,AGRDIO 3GRDIO BIS Com R1,3GRDA] RO 001124 MOV NOP NOP NOP (MP 001126 BEQ ERROR 106002 :LOAD QUTPUT :CLEAR QUTPUT SGRDA] R BIS COM MOV CLR MOV 001126 RO RO,3GRD1O aGRDIO :READ INPUT :CLEAR :READ INPUT :CLEAR R1,$BDDAT 15133 2 REGISTER INPUT :LOAD OUTPUT :CLEAR QUTPUT 3GRDAI R SGDDAT,$BDDAT SEQ 0034 REGISTER INPUT :LOAD READ ;:BR IF : COMPARE EQUAL ;INPUT GATF SLOW ;;."'..""""""""""'""""".t"."."""'."'t'.l't' eTEST 33 TEST FOR SLOW INPUT GATES WITH #52525 ;;"'.."'.""""""""""""".".."."'."..l'll"'.'l.' 006410 000004 000412 006420 006426 006434 006440 006444 012737 043737 043737 013700 005077 012777 006452 006456 006462 006466 010077 005077 017701 050177 005100 010077 005077 017701 050177 005100 010077 005077 017703 050177 005100 010077 005077 017701 050177 005100 006472 006474 006500 006504 006510 006514 006516 006522 006526 006532 006536 006540 006544 006550 006554 006560 006562 006566 006572 006576 010077 005077 017701 050177 15133: 052525 001444 001420 001124 172750 177777 001124 001124 001124 172740 oo? 172654 172650 172644 172636 172632 172625 172622 172614 172610 scoPe MOV BIC BIC Mov (LR MOV #52525,8GDDAT 0DDJMP ,$GDDAT NOTLCH,S$GDDAT $GDDAT,RO aGRDIO #-1,3GRDA] ;CLEAR QUTPUT REGISTER ;CLEAR INPUT MOV CLR MOV BIS RO,aGRDIO aGRD10 aGRDAI ,R1 R1,3GRDAI ;LOAD QUTPUT sCLEAR OUTPUT ;READ INPUT ;CLEAR INPUT COM MoV CLR MOV BIS COM MOV CLR RO RO,aGRDIO aGRD10 aGRDA] ,R1 R1,3GRDAI RO RO,aGRDIO aGRDIO0 Mov (LR MOV BIS (oM MOV (LR MOV RO,aGRDIO aGRDIO0 aGRDA] R R1,3GRDAI RO RO,aGRDIu aGRD10 dGRDA] R MCV B1S (OM BIS adGRDA] ,R1 R1,3GRDAI RO R1,3dGRDA! JSETUP EXPCCTED :MASK ODD s CONVERT JUMPER BiTS REGISTER sLOAD OuTPUT sCLEAR OUTPUT REGISTER :READ INPUT :CLEAR [NSUT ;LOAD OuTPUT sCLEAR OUTPUT REGISTER ;READ INPUT ;CLEAR INPUT :LOAD OUTPUT ;CLEAR OUTPUT REGISTER ;READ INPUT ;CLEAR INPUT :LOAD OUTPUT ;CLEAR OUTPUT REGISTER .READ . CLEAR INPUT [NPUT LOGIC TEST MAINDEC-11-CZDRG-E ?¢§Y11 306(1063) 31-AUG-79 J 1%:05 PAGE 22-2 31-AUG-79 11:23 1081 1082 006752 006756 006760 006764 006766 006770 006772 007000 007002 010137 000240 000240 000240 023737 001401 104002 COM (LR MOV BIS COom ~ ~ Nw ol ol el N~~~ LSO 66 RO (W LV LV 1V, ] ) N~ MOV (LR MOV &4 [pS 1oV 1, N1, N (U AV LV LV, ] BIS (oM MOV CLR MOV BIS (om oA (VALY AV, ] o QO — o N ~no d TEST MOV NNNSN — b b b — 005100 010077 005077 017701 050177 005100 010077 005077 017701 050177 005100 010077 005077 017701 059177 005100 010077 005077 017701 050177 005100 010077 005077 017701 050177 005100 010077 005077 017701 050177 005100 NNNN o it " o " o N o N o N M Nl N N N Nt N Nt N Nt Mt N Nt N N e ) b b et V] ~ TNt [« — b b — [elela) O~~~ OO0 1077 006602 006604 006610 006614 006620 006624 006626 006632 006636 006642 006646 006650 006654 006660 006664 006670 006672 006676 006702 006706 006712 006714 006720 006724 006730 006734 006736 006742 006746 - MOV CLR MGV B1S (OM MOV 2474 N D s P St N nar \) P e P\ =P OO A, s oo~ PN TN PN NPT P b b e PNt et s s ) = — e i [\) D ol P D e e, DR11-K CLDRGE PN CLR MOV BI1S (OM 172652 172646 172440 172434 MOV CLR MOV BIS (oM 001126 001124 MoV NOP 001126 NOP NOP (MP BtQ ERROR FOR SLOW INPUT GATES WITH #5252 5 RO RO,aGRDIO aGRDI0 aGRDA] R R1,3GRDAI RO RO,aGRDIO aGRD]O aGkDA] ,R1 R1,3GRDA] RO RC,aGRDIO aGRDIO adGRDA[ ,R1 R1,3GRDAI RO RO,aGRDIO aGRO10 aGRDA] ,R1 R1,3GRDAI RO RO,aGRDIO aGRD IO aGRDA] R R1,3GRDAI RO Sea 0035 :LOAD OUTPUT sCLEAR QUTPUT REGISTER ;READ INPUT ;CLEAR INPUT ;LOAD OuTPUT . CLEAR OUTPUT REGISTER ;READ INPUT . CLEAR INPUT ;LOAD OUTPUT ;CLEAR OUTPUT REGISTER ;READ INPUT :CLEAR INPUT :LOAD QUTPUT ;CLEAR OUTPUT REGISTER ;READ INPUT ;CLEAR INPUT ;LOAD QUTPUT :CLEAR OUTPUT REGISTER ;READ INPUT :CLEAR INPUT RO,aGRDIO aGRD]O aGRDA] ,R1 R1,3GRDA] RO ;LOAD OQUTPUT :CLEAR OUTPUT REGISTER ;READ INPUT :CLEAR INPUT P1,$BDDAT ;LOAD VALUEt READ $SGDDAT,$BDDAT TST34 EQUAL 2 . COMPARE DR11-K LOGIC TEST MAINDEC-11-CZDRG-E CZORGE .P1N 31-AUG-79 11:23 1084 e SeTEST 34 (3) AR s C070064 007006 007014 007020 007026 007034 007040 007042 007050 007056 007060 0000064 012737 005077 012777 012777 005037 000005 017737 043737 001401 104002 000040 172374 177777 177777 001124 001160 172344 001444 001126 001126 15734: IR ;*TEST (3) }}83 4 N P R 007130 000004 012737 005077 012777 022727 017737 023737 001401 000200 172312 000000 000000 172272 001124 001124 35 e TST35: e R kR 104001 R R N N A A AN e TEST (2) 1108 1109 1110 1111 1112 1113 1114 1115 1116 007132 00713& 007142 007146 007154 C07162 007166 0071764 007176 000004 012737 005077 012777 022727 017700 017737 100401 104001 100000 172242 000000 000000 172224 172216 001124 172240 000000 001126 R J*TEST 36 1S136: SCOPE MOV CLR MOV CMP MOV MOV BMI ERROR N R N R R R R R R R Y X X N R R F R R X X AR T N R R R R R R X R R S Y R R R R S R XX RS ;:BR IF A AR R R JREAD INPUT REG. sMASK 0DD JUMPERS ALL BITS CLEARED JINPUT REG. FAILED TO CLEAR UPON RESET R A NN AN AR NN R AR AN P RN AR R AR R R R X RN N NN INPUT DATA READY FLAG SETS R R R R S R R R R R R R RN N sLOAD EXPECTED ::BR IF ;OUTPUT O ;DELAY JREAD RESULTS ; COMPARE EQUAL ;INPUT DATA READY FLAG FAILED 10 SET INPUT BUFFER 1S READ THE OUTPUT FLAG IS SET N TEST R X R ;.00 40 ITERATIONS sCLEAR CUTPUT REGISTER ;sCLEAR INPUT ;LOAD QUTPUT sLOAD EXPECTED 1 R (3) R #8177 ,9GDDAT dGRSTAT #0,3GRD10 20,40 d0RSTAT ,$BDLAT $GODAT,$BDDAT 15136 1107 (3) X THAY WHEN QUTPUTTING THE A ;TEST THAT WHEN THE N R 2 }}85 R R aG0RDA] ,$BCDAT 0DDJMP,$BDDAT 187135 ERROR 6 R #60,8TIMES aGRD10 #-1,3GRDAI #-1,3GRD10 $GDDAT SCOPE MOV CLR MOV CMp MOV CMP 8EQ 172310 000000 001126 001126 R SEQ 0036 TEST THAT RESET CLEARS INPUT REGISTER BITS ERROR (3) 007062 007064 007072 007076 007104 007112 007120 007126 R R SCOPE MOV CLR MOV mMov CLR RESET MOV BIC BEQ 172364 172360 1095 (2) 1096 1097 1098 1099 1100 1101 1102 K 3 306(1063) 31-AUG-79 13:05 PAGE 23 TEST THAT RESET CLEARS INPUT REGISTER BITS A (3) (2) (1) 1085 1086 1087 1088 1089 1090 1091 1092 }832 MACY11 134 N R P AN PN A AN THAT WHEN THE AN N R A P A #BIT15,9GDDAT dGRSTAT #0,3GRDIO #0,#0 aGRDA] ,RO SGRSTAT ,$BDDAT 15137 1 N R R AR AN AN NN R RN SR NN INPUT BUFFER P AN R AN RN R AR RN TN 1S READ THE OUTPUT AN R AN AN RN RN AR AT RN FLAG IS SET ;sLOAD EXPECTED ::BR ]F JREAD INPUT sREAD RESULTS SET s INPUT DATA READY FLAG FAJLED TO SET INST. DR11-K LOGIC TEST CIZORGE P b d i D e e d D D el e sl e D e e sl it S el e — _._._.—.-d.—.._a._a—a—a_o—l_a—n—a_a_a—a_._a_a_g_a,\,.Ad_a—i_.—i..a—a—l—._a—n_a—fi-a—l_.—l—a-—l_oflfiflh -~ [o o SV IV IV IV IV IV IV IV IV U P B 2R 2l ol o P ol ol o o V. T Y IOV IO LU OO TP IO UV I 0] ST VY, V1, O NINVPRONININ = = ) (VTR o — A d OOV NOWVES WOV NCOWVE NN 2O O0V - PB~JO NS W=V~ NN =2 OO~ o 1118 MAINDEC-11-CZDRG-E 31-AUG-79 11:23 007200 MACYT1 136 306(1063> TEST 31-AUG-79 THAT WHEN THE L 3 13:05 PAGE 24 INPUT BUFFER IS READ THE OQUTPUT FLAG IS SET DRTZ21: ::'.""""""""."""'"'"'.'."""'"'.."'.""""."' ;*TEST 37 MR 007200 007202 007210 007212 007216 007222 007230 007236 007244 007252 007260 007264 007266 007270 007272 007274 007300 007302 007304 007306 007310 000004 012737 000040 172172 177776 007302 000340 007306 000340 000000 172126 001160 AR RS 1§137: d SCOPE MoV MOV MoV MOV MOV MOV 2%: #60,8TIMES X2 A0RSTAT PSW #19 ,3GRIVA #340,3GRIVSA #2%,3GRIVB S??OR 6 R RN R SR R R R R R R R R RN R INPUT VECTOR ;SET UP INTERRUPT QUTPUT VECTOK ;OUTPUT :INPUT ;CLEAR STATUS 15140 6 R ;SET UP INTERRUPT aGRSTAT S¥?0R R ;:00 40 JTERATIONS aGRDAI RO BR 1%: R #340,aGRIVSB #0,aGRDI0 MOV NOP NOP NOP NOP CLR 172110 TEST FOR UNEXPECTED INTERRUPT ARl RESET CLR CLR 172174 172170 172164 172160 172134 000002 AR HH JERROR, DIGITAL INPUT INTERRUPTED JERROR, DIGITAL OUTPUT INTERRUPTED :;tttt't""tt'ttttt'ttt"tttltttttt't!'ttltltttt'ttttt!'ttttt'tt J*TEST 40 007312 007314 007320 007326 007334 007342 007350 007356 007362 007364 007366 007370 000004 005077 012777 012777 012777 012777 052777 005037 000240 000240 104004 000415 172070 007372 000340 007414 000340 000040 177776 AARARRAAA AR TST40: SCOPE CLR Mov dGRSTAT 18 AGRIVA 172076 172072 172066 172062 172032 012777 022626 005037 000240 000240 000404 022626 104006 005037 172024 1%: 177776 2%: 177776 R s Rttt R CLR NOP NOP ERROR PSW sLOWER PSW #BITS,3GRSTAT 4 1ST41 TEST THAT 22N ¢CLEAR STATUS :LOAD RETURN VECTOR : :LOAD OUTPUT VECTOR ;SUB-TEST, 007414 R #340,aGRIVSA #2%,3GRIVB #340,9GR1VSB BR 1F RRARAdlR MOV MOV MoV BIS ; 007372 007400 007402 007406 007410 007412 007414 007416 007420 TEST THAT THE INPUT CAN INTR. USING THE MAINT. BIT MRS JMAINT, INT C ;ERROR, INPUT .:BR TO NEXT TEST FAILED TO IF PSW 1S LOWERED AGAIN NO INTERRUPT WiLL OCCUR INTERRUPT OCCURS 'INT DONE C' FAILED TO CLEAR INT C FLOP MOV (MP CLR NOP NOP BR CMP ERROR (LR INTERRUPT #2%,aGRIVA (SP)+,(SP)+ PSW TST41 (SP)+,(SP)+ 6 PSW :LOAD INPUT VECTOR :POP THE STACK =4 ;LOWER PRIOR. ;s <NEXT TEST> :POP THE STACK ;UNEXPECTED INTERRUPT SEQ 0037 DR11-K LOGIC TEST MAINDEC-11-L1DRG-E CZDRGE P11 31-AUG-79 11:23 MACY11 161 e N QOONNNNNNNNN~NO OO NI (@] NOWVES W= OOV NO VNS UWN 2O NS — VD — — =O VAW NO NN = OV NO WV A A A A A TST41: 171756 007510 000340 007552 000340 000100 000040 177776 SCOPE CLR MOV 005037 007612 007620 007626 007632 007634 007636 007640 007642 007650 007652 007656 007660 007662 007664 007666 007670 171620 012777 022626 005037 000240 005037 IF 177776 000240 000404 022626 104006 . 1$: 2%: 177776 R R R R R R R R R R R R 2222222 CLEARS INT. ENABLE VIA MAINT. BIT AR I I I sCLEAR STATUS +LOAD RETURN VECTOR #2% ,3GRIVB *LOAD OUTPUT VECTOR :ERROR, INPUT FAILED TO INTERRUPT sLOAD INPUT VECTOR CLR CLR MOV 8IT BEQ ERROR PSW $GDDAT SGRSTAT ,$BODAT #B1T6,8BDDAT 15742 1 ERROR CLR 6 PSW : #BI1T6,3GRSTAT :LOAD INPUT INTR. ENABLE (SP)+,(SP)+ 15742 (SP)+,(SP)+ NN R R N T POP THE STACK =4 ::BR IF :LOWER PRIUR, ;CLEAR EXPECTED +READ STATUS ;,TEST BIT 6 CLEARED . INPUT INTR. FAILED TO CLEAR ;s <KNEXT TEST> .POP THE STACK SUNEXPECTED R R R A AT R R AR NN R RN NN R INTERRUPT R TR NN TR AR N NS TEST THAT THE OUTPUT CAN INTR. USING THE MAINT. BIT N R SCOPE CLR MOV MOv MOV MOv (LR NOP NOP ERROR 171560 S R 9GRSTAT #1$ QGRIVA N N N N N A N 1T DOES, MOv CMP CLR NOP NOP BR CMP ERROR (LR R R R R A N dGRSTAT #2$,3GRIVA #340,3GRIVSA #1$,3GRIVB #340,3GR1VSB #BIT13,3AGRSTAT N AN NN AN NN R RN AR RN AN NR O ;CLEAR STATUS :LOAD INPUT VECTOR " ;LOAD OUTPUT ¢MAINT. R E RN o~ VECTOR INTERRUPT PSW ;LOWER PSW 5 :OUTPUT FAILED TO INTERRUPT BR TST43 ;SUB-TEST, TEST THAT IF 007664 R R & #2$ ,3GRIVA N 104005 R ERROR Mov BIS 000415 R JMAINT. INT C ;LOWER PSW NN 007664 000340 007642 000340 020000 177776 R #BITS,9GRSTAT PSW B8R CMP TST42: N BIS CLR 2%: e R 000004 005077 012777 012777 012777 012777 052777 005037 000240 000240 R #340,3GRIVSB S*TEST &2 007562 007564 007570 007576 007604 R MOV CMpP 177776 R BIT #340,3GRIVSA NOP NOP 177776 001124 171654 000100 X ENABLE VIA MAINT. MOV MOV 1$: I Y MOV 007552 2 TEST THAT THE INPUT INTR. A 007426 007426 007432 007440 007446 007454 007462 007470 007476 007502 007504 007506 007510 007516 007520 007524 007530 007536 007544 007546 007550 007552 007554 007556 M3 31-AUG=79 13:05 PAGE 25 THE INPUT INTR. CLEARS INT. A SrTEST @ g h pm, pm, ~ OOV s e e e e d o e i e o e e D e d e D wacd e el D ) D i el D D ) D el e el el el el =l il el e — —O00 OCOO0OOOO VWOV OO OO OOOOOON NN oo PORNINIPONININVNI PO NI N =t b b b e e b e = o b by s —.-J—‘—‘—.—.d—l—.—.—.—-.-‘—‘_.—.-‘ — d o s e d tD cd cd D and d 1163 306(1063) TEST THAT .:BR TO NEXT TEST PSW IS LOWERED AGAIN, NO INTERRUPT WILL OCCUR 'INT DONE D HIGH' #2%,3GRIVB (SP)+,(SP)+ PSW TST43 (SP)+,(SP)+ 6 PSW FAILED TO CLEAR 'INT D' FLOP sLOAD OUTPUT VECTOR :POP THE STACK =4 : s o <KNEXT TEST> ;POP THE STA(K ;UNEXPECTED INTERRUPT SEQ 0038 DR11-K CZDRGE P11 1212 51-AUG=79 11:23 MACY11 143 N 3 306(1063) 31-AUG=79 13:05 PAGE 26 TEST FOR INTR. FROM DRA INPUT . I E X222 L d X2 2222222222222 222222222 s*TEST 43 ~ NN NO VS WOV e ®NOWVNSUWN SO0V Ve — — b e e o b d D D o e i i i e e i e e i el i el e N N AANNNRNNPODNDNNNRNAI NI NN NN NN NN NN NN o~ o~ o~ AN et et L N AN N AN N AN N PN NI NI N NI PO NI NI NI ) = b ot e e ed et N N [V] MAINDEC-11-CZDRG-E LOGIC TEST X2 007674 007676 007700 007702 007710 007712 007714 007720 007726 007734 007742 007750 007756 007764 007770 000004 000240 000240 0327/7 001401 000463 005077 012777 012777 012777 012777 012777 012777 017700 005037 000240 000240 000240 042777 000240 1S743: 002000 171470 010020 000340 0100716 000340 000100 000000 171422 177776 000100 171476 171472 171466 171462 171432 171430 177776 171356 003076 000340 003076 000340 1%: 171400 3%: 2%: 171364 171360 171354 171350 XA 6% TEST FOR INTR. RRRR2dRRRRRRRRdRdd ] FROM DRA INPUT X XSRS R RddRiRRRRR AR Al SCOPE NOP NOP Bl 171230 104004 000404 104006 022626 005037 005077 012777 012777 012777 012777 X222 SEa 0039 BEQ B8R CLR MOV MOV MOV MOv Mov Mov MOV CLR NOP NOP NOP BIC NOP ERROR BR ERROR CMP CLR CLR MOV MOV MOV Mov #BIT10,3SWR 1% 187144 SGRSTAT #2%,aGRIVA STEST SWITCH s ;IN CASE OF #3460, 3GRIVSA INTERRUPT #3% aGRIVB #340,3GRIVSB ;ENABLE INPUT INTR. s OUTPUT : INPUT ;LOWER PSW ;LET INTERRUPT OCCUR #B176,3GRSTAT #0,3GRD10 aGRDAI,RO PSW #B1T6,aGRSTAT 4 43 6 (SP)+,(SP)+ PSW AGRSTAT #UNEXPT ,8GRIVA #340,8GRIVSA #UNEXPT ,aGRIVB #340,3GRIVSB HE ;ERROR, INPUT FAILED TO INTERRUPT ;UNEXPECTED OUTPUT INTERRUPT ;CLEAR STATUS SRESET INPUT VECTOR JRESET QUTPUT VECTOR EST MAINDEC-11-CZDRG-E 1-AUG=79 11:23 - OR11-K %?Gl( CIORGE.P 12‘.1 JtTEST &6 (3) 010062 010064 010072 000004 032777 001067 002000 171046 1245 1246 12647 010074 010102 010110 012737 012737 005037 010110 000001 001126 001110 001462 000200 001124 1250 1251 1252 1253 1254 010122 010130 010132 010136 010144 033737 001445 005077 001442 001422 012777 005077 1256 1257 1258 1259 1260 010156 010166 010172 043777 053777 005077 001442 0014642 171212 010176 010202 171206 010204 105777 100401 104010 010206 010214 010222 010226 010232 010240 010242 043777 053777 005037 005077 117737 100001 104001 001642 001442 001124 171156 171152 010244 010250 006337 001317 001442 1261 1262 1263 1264 }%65 66 1267 1268 1269 1270 1271 1272 12;3 1274 1275 1276 B 4 31-AUG=79 13:05 PAGE 27 INTERRUPT INPUT BITS SET INPUT READY FLAG SEQ 0040 010114 010150 012737 053777 TEST THAT INTERRUPT INPUT BITS SET INPUT READY FLAG ::""""'"""""""""""""'"""""""""""""' (2) 1242 }%:2 1255 306(1063) TEST THAT .';""""""'""""""""""""""'""""""""'Q"t (3) }%28 MACY11 144 171256 177777 171240 001442 TSTe4: 1$: 171246 SCOPE 817 BNE #B1T10,wouR TST45 MOv MOV CLR #1S, SLPERR #B8170,BRLEV3 $BDDAT Bl BEQ Cer BRLEV3, INTBIT 33 SGRD10 #-1,3GRDA] SGRSTAT MOv MOV CLR 171236 171230 171222 BRLEV3,aGRD10 1STB BM] SGRSTAT 2% B1C 8IS (LR CLR MOvB BPL ERROR BRLEV3,aGRD10 BRLEV3,9GRDA] $GDDAT dGRSTAT IGRSTAT,$BDDAT 3% 1 ASL BNE BRLEV3 1% ERROR 171200 171170 2%: 001126 3% ;LOAD ERROR SCOPE RETURN ;LOAD INTERRUPT BIT :CLEAR BAD DATA #B1T7,3GODAT BIS BIC 8IS CLR ;TEST CABLE SWIT(CH ::BYPASS IF NO 1/0 CABLE ;LOAD GOOD DATA STEST IF THIS BIT WILL ::NO TRY NEXT BIT sCLEAR QUTPUT REGISTER sCLEAR INPUT sCLEAR STATUS ;LOAD OUTPUT BRLEV3,aGRD10 BRLEV3,3GRD10 SGRSTAT 10 INTERRUPT :CLEAR OuTPUT sLOAD OUTPUT ;CLEAR FLAG FROM DATA READY :SHOULD REMAIN SET VIA DIRECT SET SIDE ;1F INTERRUPT INPUT SWITCH IS ON ;.BR ;:BR IF IF ;JEST SET READY BIT : INPUT INTERRUPT BIT FAILED TO SET ;2?7 DID OPERATOR GIVE CORRECT ; INPUT INTERRUPT BITS ?? ;CLEAR OUTPUT ;CLEAR INPUT ;CLEAR EXPECTED ;CLEAR STATUS ;READ STATUS CLEARED ;INPUT READY FAILED TO CLEAR ; CHANGE BIT :BR IF NOT DONE [*"T READY DR11 X LOGIC TEST CIZDRGE .P1Y MAINDEC-11-CZDRG-E 31-AUG-79 11:23 1278 31-AUG-79 ¢ 4 13:05 PAGE 28 TEST THAT NON-INTERRUPT INPUT BITS DO NOT SET INPUT READY FLAG J*TEST 45 (3) TEST THAT NON-INTERRUPT INPUT BITS DO NOT SET INPUT READY FLAG SCOPE Bl11 #BIT10,85WR JTEST CABLE SWIT(CH MOv MOv MOov #18,SLPERR #B170,BRLEV3 #200,$80DAT ;LOAD ERROR SCOPE RETURN ;LOAD NON-INTERRUPT BIT sLOAD BAD DATA Bl BNE CLR MOV (LR BIS BlC BIS (LR BRLEV3,INTBIT 3% aGRDIO ¥-1,3GRDA] dGRSTAT BRLEV3,3GRDIO BRLEV3,aGRC10 BRLEV3,3GRD10 SGRSTAT STEST IF THIS BIT WILL INTERRUPT ;. YES SKIP AND TRY NEXT BT ;CLEAR OUTPUT REGISTER s CLEAR INPUT 1578 BPL ERROR SGRSTAT 3% 1 ASL BNE BRLEV3 13 .':'t"""""""""""""""""""."""'"""""'."' (¢) 1279 010252 010256 000004 032777 002C00 170656 1282 1283 1284 010264 010272 010300 012737 012737 012737 010300 000001 000200 001110 001642 001126 1287 1288 1289 1290 1291 1292 1293 12964 1295 1296 1297 1298 1299 1300 1301 1302 1303 1304 1305 010312 010320 010322 010326 010334 010340 010346 010356 010362 033737 001026 005077 012777 005077 053777 043777 053777 005077 001442 001422 171066 177777 171056 010366 010372 010376 105777 100001 104011 171016 010376 010402 006337 001336 001442 }%gz 165 306(1063) ;;l'"'"""""'""""""""""'..."'.'."'.""".""" (3) }%g? MACY11 010262 010306 001050 005037 001124 171050 001442 001642 001442 171022 1ST45: BNE 1%: 171046 171040 171032 3% (LR 1ST46 :;BYPASS IF NO 1/0 CABLE $GDDAT :CLEAR GOOD DATA ;.BR IF ;CLEAR STATUS sLOAD OUTPUT sCLEAR QUTPUT sSET OUTPUT ;sCLEAR FLAG FROM DATA READY :SHOULD REMAIN SET VvIA DIRECY SET SIDE . TEST READY BIT CLEAR ; INPUT NON-INTERRUPT BIT SET INPUT READY 21? DID OPERATOR GIVE CORRECT ; INPUT INTERRUPT BITS ?? ; CHANGE BIT :BR If NOT DONE SEQ@ 0041 — DR11-Kk LOGIC TEST MAINDEC=-11-CZDRG-E CZDRGE .P1Y 31-AUG-79 11:23 ‘307 (3) 1321 1322 1323 1324 1325 1326 1327 1328 1329 1330 (1) (1) (1) (1) 1331 }ggi 0 & 31-AUG=79 13:05 PAGE 29 INTR. FROM DRA OUTPUT SEQ 0042 SeTEST 46 010604 010606 0106410 010612 010620 010622 010426 010630 010436 010466 010452 010456 010464 010472 010476 010502 010504 010506 010510 010516 010520 010522 010526 010526 010526 010534 010542 010550 010556 010562 000006 000240 000240 032777 001401 000461 005077 012777 012777 013777 005077 012777 012777 017700 TST46: 002000 170760 010524 000340 001426 170750 060000 000000 170714 005037 000240 000240 000240 042777 000240 104005 000401 022626 040000 012777 012777 012777 012777 005037 003076 000340 003076 000340 177776 005077 TEST FOR INTR. FROM DRA QUTPUT .';t""."""t"""'""'""""""..'.""""."'."'.."'0 170520 170772 170766 170752 1%: 170724 170722 177776 170672 28 170670 170664 170660 170654 38 170622 SCOPE NOP NOP 8I7 BEQ BR CLR MOV MOV MOV CLR MOV MOV MOV #B1110,a5WR 1% 1ST47 AGRSTAT #2% ,3GR]vB #340,3GRIVSB GRIVSA,SGRIVA AGRIVSA #BIT14,aGRSTAT #0,aGRD]0 SGRDAT,RD STEST SWITCH o :: :IN" CASE OF INTERRUPT ;ENABLE OUTPUT INTR. :0UTPUT : INPUT :LOWER PSW SLET INTERRUPT OCCUR CLR NOP NOP NOP BIC NOP ERROR BR #BI114,3GRSTAT S 38 ;ERROR, OUTPUT MOV MOV MOV MOV CLR WUNEXPT ,3GRIVA #340,aGRIVSA WUNEXP~ ,3GR1VB #340,3GRIVSB PSW ;RESET cmp CLR 133‘ PSW FAILED TO INTERRUPT (SP)e,(SP)e INPUT ;RESET QUTPUT AGRSTAT VECTOR VECTOR :CLEAR STATUS '-."l""tl't"""""""'0"""'t'..tl'.."'l.'."...'..l.'.'. (3) TeTEST (3) 47 PRE-INTERRUPT SETUP ."-'..'.""t't't"!"""""""t'"""'lt.'.'t""".'.'l".'. (2) (1) 010566 010570 0000064 012737 1336 1337 1338 1339 1340 13«1 1342 1363 13¢e 010600 010606 010610 010612 010620 010622 010526 010632 0106640 042737 001001 104007 022737 001001 104007 013737 162737 013737 1335 306(1063) TEST FOR .';"""l"t"""'"""""""""""""""""'.'t'.""" (S) (2) 1308 1309 1310 1311 1312 1313 1314 1315 1316 1317 1318 1319 1320 MACY'1 Teb 010576 000005 1$747: 000001 001160 177437 001434 000340 001434 1%: 001434 000040 001436 001436 001436 001440 2%: SCOPE MOV #1,8TIMES BIC BNE ERROR CMP BNE ERROR MOV SUB MoV #177437.,0108BRL 1% 7 #340,D108RL 28 7 DI0BRL ,BRLEV! #40 ,BRLEV] D10BRL ,BRLEV? RESET ;:D0O 1 ITERATION ;BR LEVEL INDICATED FOR DIGITAL 1/0 WAS*0 ;BR LEVEL INDICATED FOR DIGITAL 1/0 WAS 7 DRIV-K LOGIC CZORGE .PT1 TEST MAINDEC=11-CZDRG-E 31-AUG-79 11:23 15‘6 010646 010650 010654 010662 010670 010674 010676 000004 005077 012777 013737 005737 001403 012737 1356 1385 1356 1357 1358 1359 1360 1361 (1) (1) (1) (1) 1362 010712 010714 010716 010720 010722 010724 010726 010730 010730 010736 010744 010752 010760 000240 000240 000240 000240 104004 000401 022626 010706 052777 012777 012777 012777 012777 005037 170534 010726 001436 001452 000200 000040 1$7150: 170542 177776 177776 170476 003076 000340 003076 000340 177776 170465 FOR INTR. & E 13:05 FROM DRA TEST FOR INTR. SCOPE CLR MoV MOV 187 BEQ MoV AGRSTAT #1%9,3G6RIVA BRLEV1,PSW JUMPER 28 #200,PSW NOP NOP NOP NOP ERROR BR CHp (8 3% (SP)+,(SP)+ BIS MOV 170462 170456 170452 PAGE 30 INPUT ON LEVEL INDICATED =1 vIA MAINT. [NT SEQ 0043 FROM DRA INPUT ON LEVEL INDICATED =1 ;CLEAR ENABLES :SET UP VECTORS CHANGE PSW TEST IF FACTORY MODE ‘BR IF YES ;LOAD BR LEVEL #5-1 ]F #8115,3GRSTAT SUNEXPT ,8GRIVA #340,3GRIVSA SUNEXPT ,@GRIVB #360,3GRIVSB PSW 51 TEST LOC-BOX OR COULTER MODE JERROR, NO INTERRUPT TO NEXT TEST JRESET INPUT FROM DIGITAL soTEST 010764 010766 010772 011000 011006 011012 011014 011022 011030 011032 011034 00000¢ 005077 012777 013737 005737 001403 012737 052777 000240 000240 000240 011036 011044 011050 011052 011054 011056 011060 011062 012777 005037 000240 000240 000240 000403 022626 005037 1386 1385 1386 011070 011072 011074 000401 022626 011066 011074 011102 011110 011116 011124 104006 012777 012777 012777 012777 005037 170416 011060 001440 001452 170424 17777¢ 177776 170360 011072 177776 170360 177776 000340 003076 000340 177776 INPUT JRESET QUTPUT VECTOR :LOWER PSW FOR NO INTR. FROM DRA INPUT ON LEVEL INDICATED VIA MAINT. INT 1587151: 000240 000040 003076 170 VECTOR .';'l""'.'""""""."""'""'t'....'.l.""'l.'."l"""t (2) 1366 1365 1366 1367 1368 1369 1370 1371 1372 1373 1374 1375 1376 1377 1378 1379 1380 1381 1382 [NT SGENERATE INPLT MAINT. [NTERRUPT ;:BR MOV Mov MOV CLR vIA MAINT. ;.'"""""""""""'."t"""'"."lt'.'l't"'."'.'."'l't (S) (1) (1) (1) 1387 28%: 18 38 (3) (1) 31-AUG-79 ;:."""""""""".""""""""""""".""'.tt"'t" (2) 1347 1348 1349 1350 1351 1352 1383 TEST ;*TEST S0 (S) 1365 150 30G(1063) ::"".""""'0""""""""."""""'t""tt"""t"'ttt (3) 1353 MACY11 SCOPE CLR AGRSTAT :CLEAR ENABLES MOV #18,3GRIVA :SET UP VECTORS MoV BRLEVZ,PSW ;s CHANGE PSW 191 JUMPER JYEST IF FACTORY MODE BEQ I3 9 ;BR IF YES MOV #2469 ,PSW JLOAD BR LEVEL #5 [F LOC-BOX OR COULTER MODE 4$%: BIS #BLITS,QGRSTAT CGENERATE INPUT MAINT. INTERRUPT NOP NOP NOP JSUB=-TEST, NOW LOWER THE PSW AND ALLOW THE INTERRUPTY MOV #2%,3GRIVA CRESET VECTOR CLR PSW ‘LOWER PSW NOP NOP NOP BR 3 -ERROR 1%: {MpP (SP)¢,(SP) CLR PSW 38 170322 170316 17031¢ 170306 2% 5 ERROR 6 BR q,]4 58 (SP)e,(5P)¢ MOV SUNEXPT,3GR]IVA MOV MOV MOV (LR #360,a6R1VSA SUNEXPT ,3GR1VB #340,3G6R1v B PSW JUNEXPECTED ¥ ;POP THE INTERRUPT <IS BR LEVEL STA(K :RESET INPUT VECTOR :RESET OUTPUT VECTOR PLUG CORRECT> N -4 EST MAIND EC=-11-CZDRG-E 1- AUG-7 91 1:23 F 4 306(1063) 31-AUG-79 13:05 TEST FOR NO INTR. FROM DRA ?2%111 Al Al A A A 3 NS osrororo b8 il wal ol el ad ol 000004 012737 005737 001415 032777 001024 062737 005337 000413 013737 013737 013737 000137 012700 OV~ [=). N, ¥ — RONr & NI i i il i D il il el ol ol el ol il el il ) el el ol el il il il el PIPININININ) b cad b s e b b et et i CO0O0O0O0O0OONOOOOOO L L LS R — 8000008 0M~ SOTEST 52 162737 000137 000001 00137¢ 001160 010000 167764 000010 001376 001400 001362 001364 001372 011236 001376 21400 001374 000010 001374 1727777 A A A A R A R A R X X A A X R X N R R R X R R R A INDICATED X R R R R R R R R VIA MAINT. A DETERMINE If MORE DR11-k'S ARE TQO BE TESTED 1%: 003126 SCOPE MCv #1,STINES 187 BEQ BIT BNE SUB ADD DEC BR NBEXT % SW12,a5WR BYPASH #10,DRADD #10,DR1v NBEXT BYPAS] MOv Mov ;.00 1 ITERATION STEST IF ANY :BR ]F NONE STEST BIT12 OF SwR SINMIBIT TESTING NEXT CR11-xk :UPDATE DEVICE ADDRESS ‘ BASEBA,DRADD ;UPDATE DEVICE VECTCR sANOTHER ONE ? :BR |F ANOTHER ;RELOAD ADDRESS NMBEXT NBEXT ;RELOAD NUMBER BASEIV,DRIv MOV JMpP ;RELOAD $EOP MOv JMP . DONE #-1,R0 KBEG2 END OF ;TEST VECTOR } ANOTHER UNIT PASS ROUTINE ;;'t"'t""""'t"'tt"""""t."tt'.tt'tt""t't""t'.' tt't ;*INCREMENT THE PASS NUMBER ($PASS) ;*INDICATE END-OF-PROGRAM AFTER ' PASSES THRU THE s*TYPE "END PASS #XXXXY'' (WHERE ;*1F THERES A MONITOR GO 10 IV \nu~vuau~nnvhonp—-asg OrLrNOOOEANOEIsOONDODEI~2ND 8: »reo rO8r00O0 IV TV IV IV TV IV IV IV IV IVAV IV T N1, V1 V1 V], V] V1,81, ¥1 V1, V],¥]1 V7, ¥ O NN~~~ GO VNN S ol il D il ) e ) D il et i D -l ) ) il e D ) D —d ) ) ) il ) ) D el e il ) el il il )l el il D il ) el D ) el —ld - i el Jv1F — . BYPASS: .SBYTL OO0 OO0OVOOOOOO0OOOOOOODOODOOOD \-vvv\'vv\.r\.'v\avvvvvvvvvvvvvvvvvvvvv I 1$152: BYPAS1: b b s s ) e N e I el el e Re e b et e Relale R e W e R e b B e e kal aa B e e e A NI\ e i b ettt ettt st .t A 30-1 ON LEVEL ';""""""""""'""""""'.'"."""'ll"""'."l".' ) I A PAGE INPUT 0C0004 005037 005037 005237 042737 005327 000001 003022 012737 000001 011264 THERE 001102 001160 001176 100000 001176 $SEOPCT: SENDCT: 1046401 013700 001405 000005 004710 000240 000240 000240 000137 01122e [S A DECIMAL NUMBER) JUMP TO BYPAS! $ENP: SCOPE CLR (LR INC BIC DEC .WORD BGT MOv .WORD $e0PCY TYPE 013746 106405 104401 ISN'T XXXXX PROGRAM $TSINM $TIMES $PASS #100000,9PASS (PC)e 1 JolERO THE TEST NUMBER ;. JERO THE NUMBER OF ITERAT]ONS JoINCREMENT THE PASS NUMBER ;:DON'T ALLOW A NEG. NUMBER ;.L00P? (PC)e,@(P( e 1 ;. RES ORE $SDOAGN ;o YES . SENDMG ;s VYPE MOV $PASS,=-(SP) TYPE LSENULL TYPDS COUNTER "'END PASS #°° ;SAVE SPASS FOR TYPEOQUT ..G0 TYPE=-=-DECIMAL ;. TYPE A NULL ASCI! CHARACTER $GET42: MOV BEQ el RO $DOAGN ;:C7T MONITOR ADDRESS ; ;BRANCH 1F NO MON]ITOR $ENDAD: JUSR PC,(RO) 260 TO MON]TOR NOP : JMP .wORD 8(P()e BYPAS] $DOAGN: SRYNAD: RESET NOP NOP s CLEAR THE ;s SAVE ROOM ::FOR Y YR AR ;. RETURN WORLD Wl TMTM S1N ; SEQ 0044 DRIT=k LOG I EST HAINDE( =11-CIDRG-E CIDRGE .PYY 31-AUG-79 11:23 (Y (1) (1) (1) uzt]x; 011340 011343 011350 01135 377 015 050060 000043 1344 062612 051501 000 062116 02G123 (2) MACY11 30G(1063) 31-AUG-79 END OF PASS ROUTINE SENULL: SENDMG: .BYTE .ASCIZ .SBYTL CONVERT BINARY :*THIS ROUTINE (H TO DECIMAL 1S USED TO CHANGE (}) e () (1) (1) (1) (1) (1) (") (1) (1) (1) ie 011360 011360 011362 011364 011366 011370 011372 011376 011402 011404 0116406 011414 011416 011622 011426 011430 011434 011436 011440 011442 011446 011446 011450 011452 011454 011456 011460 011662 011470 010046 010146 010246 010346 010546 012746 016605 100004 005405 112766 005000 012703 1127¢3 005002 016001 160105 002402 005202 000774 001002 105716 100407 106316 103003 116663 052702 011474 011500 011502 011504 011510 011512 011514 011516 052702 110223 005720 020027 002746 003002 010502 000764 (13 011524 116663 011520 011522 $TYPDS: 105726 100008 MOV NUM, = (SP) MOV . [0]Y] RO,=(SP) R1,=-(SP) R2,=(SP) R3,=(SP) RS,=(SP) #20200,-(SP) TYPDS MOV Moy L [o] 020200 000020 000055 MoV MoV BPL 00901 011574 000040 18 2% 011564 3%: 060105 005702 (1) (1) (1) (1) (') (1) (1) (1) (1) (1) SEQ 0045 TYPE ROUTINE A 16- B1T BINARY NUMBER [T. T0O A 5-DIGI” DEPENDING ON WMETHER THE ;'NUHBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED ;*BEFORE THE FIRSY DIGIT OF ;YREPLACED WwlTH SPACES. ;eCALL: (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) AND (ASCII) NUMBER AND TYPE (N () (1) (3) (3) (3) (3) (3) (1) 30-2 =1 _-1,0 :oNULL CHARACTER STRING <16>ci2>/END PASS 0/ ;*SIGNEL DECIMAL () (1) PAGE . 't"""""'""t""'l"l"""t't.""""'t"'l'tttt't""' () (1N & 13:05 6 6% 5%: 00000y 000060 177777 000040 6%: 7% : 000010 8%: 177777 1’71776 NEG MOVB (LR THP NUMBER. 2C(SP),RS 1% RS #'-,1(5P) RO LEADING ZEROS WILL ALWAYS BE ;;PUT THE BINARY NUMBER ON THE STACK ,.G0 10 TME ROUTINE ;;PUSH RO ON STACK ;sPUSH RY ON STA(K ;;PUSH R2 ON STACK ;;PUSH RY ON STACK . ;;PUSH RS ON STA(K ;:SET BLANK SWITCH AND SIGN ;:GET THE INPUT NUMBER ::BR .F INPUT :;MAKE THE csMAYE THE ;;LERO THE S POS. BINARY NUMBER POS. ASCI] NUMBER NEG. CONSTANTS INDEx MoV MOvB (LR MOV #$0BLK R} #' ,(R3) R2 $DTBL(RO) R ::SETUP THE QUTPUT POINTER ;:SET THE FIRST CHARACTER 10 A BLANK ;s CLEAR THE B(D NUMBER ;:GET THE CONSTANT SuB 8L7 INC BR R1,RS 4% R2 b§3 ;.FORM THIS BCD DIGIT ;.BR 1F DONE ;. INCREASE THE BCD DIGIT R1,RS ::ADD BACK THE (ONSTANT ST R c.CnECK BCD DIGIT=0 ADD JF BY ! BNE 1518 8M] ASLB B(( MOVB 5 (SP) 7% (SP) 6% 1(SP),=1(R3) ::FALL THROUGH IF O ;sSTILL DOING LEADING 0°S? J:BR IF YES :JRSD? ;:BR IF NO ;sVYES==3ET THE SIGN BIS movs 181 Cmp BL!? 867 mov B8R £ ,R2 R2,(R3) (RO) RD,810 2% .} RS ,R2 6% MOVB -1(SP),=2(RY) JsMAKE JT A SPACE 1F NOT ALREADY A DIGIT ;;PUT THIS CHARACTER IN THE OUTPUT BUFFER o JUST INCREMENTING JsCHECK THE TABLE INDEX ;.60 DO THE NEXT DIG,7T ;:60 TO EXIT ;:GEY THE LSD 2,60 CHANGE TO ASCII cWAS THE LSD THE FIRST NON=7ER J:BR IF NO BIS 1518 BPL 2°'0,R2 (SP)e 9% ;;MAKE THE BCD DIGIT ASCII DiYES==SET THE SIGN FIR TYPING [Dl\l-( LOGIC 1 EST MAINDEC-11-CZDRG-E MACY!! 30G(1063) |(lDlGE.P\ 1 | (011532 \ (3) (3) (3) (3) (3) ' (1) (1) (1) (1) (1) (1) (V) (1) ‘(6; 01153¢ 011536 011540 011542 011544 1610 1611 1412 (1) 1613 1614 1615 1416 1617 1«18 1419 1620 1421 }4%% 105013 9% 012603 012602 012601 012600 1044C1 016656 01261¢ 000002 023420 001750 000144 000012 000004 011574 000002 017604 012706 001100 011610 011614 011622 011922 011626 011634 011642 011650 011654 CONVERT BiNAR' 012605 011546 011552 011560 011562 011564 011566 011570 011572 01157¢ & 1408 1409 31-AUG=-79 11:23 003166 040000 005077 012777 017737 013777 005077 167566 125252 167552 011706 167540 012777 017737 013777 005337 001347 000743 011706 011710 000000 000000 011712 011720 011726 011734 011742 011750 011752 011754 011760 0'1762 012737 012737 012737 012737 012737 000207 022626 104401 000000 000137 mov MoV mov MOV 052525 1675264 011706 011710 011710 167532 & 1426 }ass 425 1427 16428 1629 16430 1631 1432 1433 1634 1635 1436 1437 013463 001454 000034 000036 000024 000026 000004 (SP)+,R3 (SP)+,R?2 (SP)+, R (SP)+,RO LSBYTL mOv MISC. EXTERNAL #STACK,SP CLR MmOV MOv MOV (LR MOV MOV MoV DEC . BNE BR EXTIMP: EXTCNT: 020254 000340 016300 0003¢0 011752 (R3) (SP)+ RS EXTTIST: JSR MoV PAGE 30-3 {0 DECIMAL AND TYPE ROUTINE & 2%: 1%: & 13:05 $OBLK: 167560 011706 167542 011706 167514 H TYPE Moy MoV RT] 10000. 1000. 100. 10. .BLKW 000C2« $OTBL: 004737 012737 011662 011670 011676 011702 011704 (LRB MoV 31-AuG-79 ,$DBLK 2SP),6(5P) (SP)e, (5P} SEQ 0048 ::SET THE TERMINATOR ;sPOP STACK ;.POP ;.POP ;:POP ;:;POP STACK STACK STAZK STACK INTO RS INTO INTO INTO INTC R3 R? R RO ;;NOW TYPE THE NUMBER :sADJUST THE STACK ;;RET_RN TO USER LOGIC TEST PC,SETADD #BITI4,EXTONT JSET UP ADDRESS ;LOAD COUNT SGRDIO #125252,8GRD10 OGRDA] ,EXTTMP EXTTMP,3GRDA] dGRD1O sCLEAR JUTPUT REGISTER :LOAD OUTPUT ;READ INPUT ;CLEAR INPUT ;CLEAR QUTPUT REGISTER #52525,8GRD]0 SGRDAL ,EXTTMP EXTTMP,QGRDA] EXTCNT 1K 2% AND VECTOR ;LOAD OUTPUT :READ INPUT sCLEAR INPYT JFINISHED COuNT . ;LOOP 0 0 ;SUBROUTINE TO LOAD TRAP AND POWER FAIL SETTRP: MQV #STRAP,@#TRAPVE( MOV #3L0,9# TRAPVE(+? MOV #SPWRDON ,@#PWRVE C MOv #3460 ,37PWRVE(*? L Jo}"] 8,306 RTS PC 1% (mp (SP)+,(SP)e TYPE LBUSTRP HALT JMP BEGIN VECTORS JLOAD TRAP VECTOR ;LOAD POWER FAIL VECTOR JSET UP FOR UNEXPECTED JEXlY TRAP LOGIC h b d O — Fo ——h i e o d e D &H o [« i no 1%: 4% e D e D e e d e 011706 20%: 6% : 3s: o 177777 e o (W WA = O o~ OO oOoO NS o 167310 007777 LSBTTL i e e 020336 012737 012702 012737 000404 006000 006000 006000 006000 010001 042701 052701 110142 005337 001363 000337 1046401 000207 000055 013553 000004 013546 CLR PS Mov 011706 10%: 177760 000060 011706 013546 013544 17%: & 13:05 X3 MOV #70.,EXTTHP MOV DEC BNE DEC BNE SEQ 0047 CPU,RO RO 3% EXTIMP 6% .LOAD #BUFFER,R3 COULTER TEST MOV #6,EXTTMP ROR ROR ROR ROR MOV RO RO RO RO RO,R TYPE, RTS 1 MmMSE., STACK JLOAD # OF DELSE WEIGHT JDELAY 1 MSEC DELAYS ;240 FOR 11/05 JFINISHED ALL MSEC. DELAY ;BR IF NOT ;SAVE RESULTS JSAVE IN BUFFER ;CLEAR INPUT JGET RESULTS ;CONVERT AND TYPE JFINISHED ? ;BR 1F YES sCONT. TYPING UNTIL DONE #55,MSGRUS+? #MSPNT1,R? BNE SWAB ;POP FOR OPERATOR -(R3),R0O MOv MOV 12% #177760,R1 #60,R1 R1,-(R?2) EXTTHP 108 MSGRUS+?2 MSGRUS PC VE(TORS ;TELL OPERATOR TO ''RUN SAMPLE"’ ;LOAD POINTER FOR RESULTS ;ENABLE INTERRUPT ;LOWER PSW s MASK PC.,408 MOvB DEC TRAP AND POWER FAIL ;SETUP BUS ADDRESS AND VECTOR ;CLEAR INPUT STATUR REG sLOAD INPUT VECTOR #7777 ,R0 X3 JSR BIC BIS ;LOAD 8GRDAI,R0 RO, (R1)+ #-1,3GRDA! R1,R3 BR TEST (SP)+, (SP)+ MOV MOV 31 :WAIT BR CMp PAGE #B]1T16,8GRSTAT 1% BEQ BR 5% ;SUBKOUTINE FOR THE 40%: I INTERFACE #BUFFER,R’ (mMp 000771 COULTER MOV BIC BNE 5¢: 31-AUG-79 TEST MOV #STACK,SP JSR PC,SETTIRP JSR PC,SETADD CLR aGRSTAT MOV #2098 ,8GR]IVA MOV #340,8GRIVSA TYPE ,RUNMSG MOV MOV MOV 167300 012140 o d e i i e i il e N1 VT VT §] S£FOrPrMNOSOSTNOOCTNNONCO 1483 1484 1485 1486 1487 7610 74 011706 NN =2 = OC ONNNOCOOOWVE S 1473 1474 1475 1476 1477 1478 1479 1480 1481 16482 COULTR: 167350 000106 001370 b 1467 1468 1469 1470 1671 1472 MACYIT 30G(1063) COULTER INTERFACE WALT PORIPININI NI D) et b b et e b b b s b 1466 31-AUG-79 11:23 022 el o 1465 MAINDEC-11-CZDRG-E 001100 il 1464 OO N[pV 1 S 1447 1448 1449 1450 1451 1452 16453 1454 1455 1456 1457 1458 1459 1460 1461 1462 1463 OOOOOOCOOOOOO OOO0O0O0O0OOOOOOOOOOOO0O 1446 NORONNONINONNNNONNDNDNONNDND 16439 1440 1441 1462 16443 1444 1445 OCOOOO0O0O0OO0OOOOOOOOO00 — il ) el el ) ol el wld il D il el = =l — CIDRGE P TEST oo DRY1-k ;BR IF NOT LAST :COPY R1 SAMPLE JFIX ASCI1 MESSAGE JLOAD DEST. POINTER ;LOAD COUNT ;LOAD R s MASK ;MAKE DIGIT ;SAVE DIGIT JFINISHED ? ;BR IF NOT JADJUST MESSAGE JEx]T :620 FOR ? 11/40 OR11-K LOGIC TEST MAINDEC-11-CIDRG-E CZDRGE .P1Y 31=-AUG=79 11:23 1489 1490 16491 1492 16493 1696 1495 1496 16497 1498 1499 1500 }gg; 012226 012232 012236 012242 0122646 012252 012256 012260 012264 012266 012272 012276 012706 004737 104401 004537 001602 000412 004537 001404 000405 004537 001406 000400 1503 1506 1505 1506 1507 1508 1509 1510 1511 1512 1513 1514 012300 012304 012306 012312 012314 012320 012322 012326 012330 01233¢ 012336 012342 005737 001403 004537 001402 005737 001403 004537 001404 005737 001403 004537 001406 }g}g 012344 000755 1517 1518 1519 1520 1521 1522 1523 1524 1525 1526 1527 1528 1529 1530 1531 1532 1533 1536 1539 1536 1537 1538 1539 012346 012352 012356 012362 012356 012372 012374 012400 012402 0126404 012406 012412 012420 012422 012430 (126432 (¢ 2440 012442 012446 012450 012452 012454 012456 013537 012537 005077 104401 013746 106402 104401 104411 000240 000240 013637 042737 001413 022737 001406 022737 001350 005277 005725 000205 000000 000000 000000 & J MACY11 30G¢1063) 31-AUG-79 13:05 LOC-BOX LAMP AND SWITCH LOOP 32 SEQ 0048 LSBTTL LOC=-BOX LAMP AND SWITCH LOOP LOCBOX: MOV #STACK,SP JSR PC,SETTRP TYPE ,LOCHDR :TELL OPERATOR WHAT JSR RS, INADR JGET THE ADDRESSES LoC1,LeC1y B8R LOCA :BR ]F DONE JSR RS, INADR JGET NEXT ADDRESS L0C2,L0C2yY B8R LOCA :BR 1F DONE JSR RS, INADR JGET NEXYT ADDRESS LOC3,L0C3Y BR LOCA 001100 011712 013304 012346 012532 012346 012534 012346 012536 012532 LOCA: 012460 012534 1%: 012460 012536 2%: 012460 3%: 012452 012456 000074 013345 012452 INADR: 1%: 013410 012454 177640 01¢456 000116 012454 000131 012454 000010 PAGE 2%: 3% 10%: 11%: 12%: 197 BEQ JSR LOCY 187 8taQ JSR Lor? 1S7 BEQ JSR LOC3 BR MQV MOV (LR TYPE, MOV TYPOC TYPE, ROLIN NOP NOP MoV BIC BEQ CMP BEQ cmMp BNE INC 1S RTS 0 0 0 THIS IS LOCtyY 1% RS, LOUPY STEST 1F SELECTED ;BR [F NOT sTEST FOR SWITCMES AND LOAD LAMPS LoC2y 2% RS,LOUP? STEST 1F SELECTED :BR IF NOT ;LOAD NEXT SZ7Y LOC3Y b33 RS,LOUPY JTEST ;LOAD NEXT LOCA ;LOOP BACK 8(R5)+, 0% (R5)+,12% a12% INADRH 108,-(SP) ;GET BUS ADDRESS ;GET INDICATOR :CLEAR FLAG ;ASK FOR INPUT ;TYPE CURRENT ADDRESS INDADR :ADD YES NO ;READ CHAR. AND E(HO a(SP)+,11% #177640,11% I #'N1TS 2% #'Y,11% 1% 912% (RS)¢ ;GET THE ANSWER ;MASK OFF B1TS :BR IF (R :TEST IF NO ;BR JF NO ;TEST IF YES :BR IF OQOTHMER ;SET YES FLAG RS CEX]T IF SELECTED SET o w Y wwOvww oww O 012526 012526 000002 005737 001431 004537 000 000097 001402 004537 001 000070 001402 004537 002 000700 001402 004537 003 007000 001402 004537 1%: BNE RTS MOV ADD MOV ADD MOV MoV BIC BIC ADD MOV RTS 40%: 641%: OO N —=O s o oo 013066 003 013066 006 013066 on 013006 1% RS 40%,R?2 #?2,R? R2,R3 #2,R3 (R2),RO (R3),R1 R1,RO (R2),(R3) RO, (R3) 33 SEQ 0049 JBR IF YES JEXIT sMASK OFF BITS :LOAD OQUTPUT BITS #-1,(R2) s CLEAR INPUT JEXIT RS 0 0 9 O XLOTAD: LSBTTL MOV JSR TYPE :YES/NO ANSWER TO LOC BOX #1 XLO1 ADJUSTMENT ROUTINE #STACK,SP PC,SETTIRP . XLOHDR JSR RS, INADR LOCY,LOCTY BR XL010 JSR R5,INADR LOC2,L0C2Y BR xL010 JSR RS, INADR (O ) 013066 000 PAGE 0 LOC3Y: [V B NN N O VNN b — OO0 OO0 — ed ekt O NOPNON — VNN~ — Ltocly: Loc2y: 012532 4 13:05 :SUBROUTINE TO LOAD THE LAMPS FROM THE LOC BOX SWITCHES LOUPY: MOV 3(R5)+,40 ;GET ARG. 177777 000000 000000 000000 000000 000000 012706 004737 104401 004537 001402 000412 004537 001404 000405 004537 001406 000400 K MACY11 306(1063) 31-AUG-79 LOC-BOX LAMP AND SWITCH LOOP 000002 — oOHrNOO SO0 SNOONOSO ~N =~ NN bt et s WWWNWIAN AN RN NN NN i ol ol il D il il il el il el OO0O0OOCOOOOOOOO 013537 001001 000205 013702 062702 010203 062703 011200 011301 040100 041213 060013 012712 000205 OO N =D ~D 0o NO NS e e OV omcd b o rdd il nd cnd wd cocd i b -~ oo RV s — (U N R Y A P ——l W P W R — P W N — W LV SV RV LV LV RV 1V IV 1V ] AN 1566 1567 — el el e wnd i e D el i ) D ol ol D ) b e —t A A A AV UYLV, IV, TV TV N L - [o Yo N e XV IV IV TV TV 1 (W IV IV ] (V. Pv N=OOVR NN N 1561 1542 1543 1544 15645 1546 1547 MAINDEC-11-CIDRG-E 31-AUG-79 11:23 OCOO0O0O CIZDRGE LOGIC TEST [=lelelelalelelelelalolalelalelolalaleoelolelolololelalolalole) ODR11-K ;TELL OPERATOR ;GET BUS ADDRESS L0C3,L0C3Y XL010: B8R XL010 7137 BEQ JSR %BYTE LOCTY 153 RS, XLOADY 0.0 Lo JSR KS,XLOADJ .BYTE 70 Lo JSR .BYTE 700 Lo JSR .BYTE 7000 Lo JSR , RS,XLOADJ s RS,XLOADJ 1 RS, X.OADJ JTEST IF SELECTED ;BR IF NOT SELECTED :NOW CONVERT THE DATA AND DISPLAY ;LOAD CH¥ AND SHIFT COUNT :LOAD DATA MASK IN LAMPS :NOW CONVERT IN LAMPS :DR11K BUS ADDRESS ;NOW CONVERT THE DATA AND DISPLAY IN LAMPS :LOAD CH# AND SHIFT COUNT sLOAD DATA MASK :DR11K BUS ADDRESS :NOW CONVERT THE DATA AND DISPLAY IN LAMPS ;LOAD CHA¥ AND SHIFT COUNT ;LOAD DATA MASK ;DR11K BUS ADDRESS :NOW CONVERT THE DATA AND DISPLAY IN LAMPS ;LOAD CH# AND SHIFT COUNT :LOAD DATA MASK :DR11K BUS ADDRESS THE DATA AND DISPLAY e e O O OO e v e L & I R et e N S v (P PR Y o R et N e B N [an RO ISV PRY o T I — sl - e RFY o, P SN OO0 = et - GIC 1 EST 2674 2676 2700 2702 2706 2710 2714 2716 2720 2722 2726 2730 2732 2734 2740 2742 2744 27646 2752 275¢ 2756 2760 2764 2766 2770 2772 2776 3000 3004 3006 3010 3012 3016 3020 3022 3024 3030 3032 3034 3036 3042 3044 3046 3050 3054 3056 3060 3062 MAINDEC-11-CZDRG-E 31-AUG-79 11:23 004 070000 001402 005737 001431 004537 005 000007 001404 004537 006 000070 001404 004537 007 000700 001404 004537 010 007000 001404 004537 on 070000 001404 005737 001431 004537 012 000007 001406 004537 013 000070 001406 004537 014 000700 001406 004537 015 007000 001406 004537 016 070000 001406 000137 MACY11 1% 013066 000 013066 003 013066 006 013066 on 013066 014 012536 .BYTE 70000 Lo 187 8tQ JSR .BYTE 7 Loc?e JSR .BYTE 70 LOC? JSR .BYTE 700 LOC?2 JSR .BYTE 7000 LOC?2 JSR .BYTL 70000 2%: 013066 000 013066 003 013066 006 013066 o 013066 014 012612 31-AUG-79 XLO1 ADJUSTMENT ROUTINE 014 012534 306(1063) 3%: LOC? 187 BEQ JSR .BYTE 7 LOC3 JSR .BYTE 70 LOC3 JSR .BYTE 700 LOC3 JSR .BYTE 7000 LOC3 JSR .BYTE 70000 LOC3 JMP 6,14 LOC2Y 2% RS, XLOADJ 5.0 RS, XLOADJ 6,3 RS, XLOADJ 7.6 RS,XLOADJ 10,11 RS, XLOADJ 11,14 LOC3Y 3% RS, XLOADJ 12,0 RS,XLOADJ 13,3 RS, XLOADY 14,6 RS,XLOADJ 15.1 RS, XLOADJ 16,14 XL010 L & 13:05 PAGE 33-1 SEQ 0050 ;LOAD CH# AND SHIFT COUNT :LOAD DATA MASK ;DR11K BUS ADDRESS ;TEST IF SELECTED ;BR IF NOT JNOW CONVERT THE DATA AND JLOAD CHA AND SHIFT COUNT ;LOAD DATA MASK ;DR11K BUS ADDRESS sNOW CONVERT THE DATA AND JLOAD CHA AND SHIFT COUNT ;LOAD DATA MASK ;DR11K BUS ADDRESS JNOW CONVERT THE DATA AND ;LOAD CH¥ AND SHIFT COUNT ;LOAD DATA MASK ;DR11K BUS ADDRESS JNOW CONVERT THE DATA AND ;LOAD CH# AND SHIFT COUNT ;LOAD DATA MASK ;:DR11K BUS ADDRESS sNOW CONVERT THE DATA AND sLOAD CHA AND SHIFT ;LOAD DATA MASK COUNT ;DR11K BUS ADDRESS JTEST IF SELECTED ;BR IF NOT ;NOW CONVERT THE DATA AND sLOAD CHA¥ AND SHIFT COUNT :LOAD DATA MASK ;DR11K BUS ADDRESS :NOW CONVERT THE DATA AND LOAD CH# AND SHIFT COUNT ;LOAD DATA MASK ;DR11K BUS ADDRESS JNOW CONVERT THE DATA AND ;LOAD CHA AND SHIFT COUNT ;LOAD DATA MASK ;DR11K BUS ADDRESS ;NOW CONVERT THE DATA AND ;LUAD CHA AND SHIFT COUNT :LOAD DATA MASK ;DR11K BUS ADDRESS sNOW CONVERT THE DATA AND ;LOAD CH¥ AND SHIFT COUNT ;LOAD DATA MASK ;DR11K BUS ADDRESS DISPLAY IN LAMPS DISPLAY IN LAMPS DISPLAY [N LAMPS DISPLAY [N LAMPS DISPLAY IN LAMPS DISPLAY IN LAMPS DISPLAY IN LAMPS DISPLAY IN LAMPS DISPLAY IN LAMPS DISPLAY IN LAMPS DR11-K LOGIC TEST MAINDE(-] 1-CZORG-E CZDRGE.P11 31-AUG-79 11:23 1607 1608 1609 1610 1611 1612 1613 1616 1615 1616 1617 1618 1619 1620 1621 1622 1623 1626 1625 1626 1627 1628 1629 1630 013066 013072 013100 013106 013110 013114 013116 013122 013124 013132 013136 013140 013146 013150 013152 013156 013160 013164 013166 013172 013174 013200 013202 132577 052777 112537 012537 013537 001464 105277 005001 062737 105777 100375 017700 162700 100432 162700 100425 162700 1004620 162700 100407 162700 100406 162700 1631 1632 1633 1634 1635 1636 1637 1638 1639 1640 16641 1662 1643 1664 1645 16646 }62g 013206 013210 013212 013216 013222 013224 013226 013232 013236 013242 013244 013246 043250 013252 013260 0132664 013266 100405 000412 012701 062701 005201 000404 012701 062701 013700 006301 005300 100375 006201 043777 050177 005001 000205 1649 1650 1651 013270 013272 013274 000000 000000 000000 6 000206 020000 013270 013274 013272 000176 MACY11 XLO1 013272 LI ADJUSTMENT ROUTINE BIS 1%: 000136 000004 00001¢ 000060 MOvB MOV MOV BEQ INCB CLR ADD 1S18 BPL Mov SuB BMI] suB BMI] SuB BMI SuB 8M] SuB 001530 000060 BMI suB 000014 70%: BMI BR MoV ADD INC BR MOV ADD MOV ASL DEC BPL ASR BIC BIS CLR RTS 40%: 41%: 62%: 0 0 0 000006 000002 2%: 3%: 4%: 000002 000004 013270 5%: 6%: 7$: 10%: 013276 000006 31-AUG-79 13:05 PAGE 34 SEQ 0051 :ANALOG CONVERSION AND LOC BOX DRIVER XLOADJ: MOVB (R5)¢+ ,9ADCS] 000154 0000064 000140 306(1063) 000012 #B1115,3ADCS (R5)+,40% (R5)+,42% a(R5)+,418 70% aADCS R1 84,618 aADCS 1% adADBR,RO 86 RO 7$ #14,R0 6% #60,RO 5% #1530,R0 2% #60,R0 33 ¥14,R0 49 7$ ¥4 ,R1 ¥2,R1 R1 7$ N2 ,R1 ¥4 ,R1 40%,R0 R1 RO 109 k1 42%,341% R1,9641% R1 RS :BR ;LOAD CHANNEL # ;SET UNIPOLAR ;GET SHIFT COUNT ;GET DATA MASK ;GET DR11K BUS ADDRESS IF NONE ;CONVERT THE DATA ;GET LAMP ADDRESS ;WAIT FOR DONE ;READ THE DATA ;TEST IF AT UPPER END :BR IF YES ;TEST IF NEAR UPPER END ;BR IF YES ;TEST IF GETTING NEAR UPPER END ;BR IF YES :TEST IF GETTING NEAR LOWER END :BR IF YES ;TEST IF NEAR LOWER END ;BR IF YES ;TEST IF AT LOWER END ;BR IF YES ;BR IF AT STOP ;LOAD # :BR AND LOAD LAMP'S ;LOAD # ;LOAD SHIFT COUNT :SHUFFEL THE DATA :BR 1F NOT DONE ;RE ADJUST ;CLEAR OLD DATA IN _AMPS :LOAD THE LAMPS JEXIT - 1653 04 005015 02 170402 1659 1660 1661 1662 1663 1664 3426 3434 3442 3450 3456 o ~) o 053523 040440 046501 050117 S 052412 041517 042523 041055 0 ~ ——t w— b o o o ~ o — » o 026503 020130 044103 046040 047368 030461 H o 042104 037040 051117 (=] o o o s on oSO =) [ —O~NO> o NN LA L LN U LN &H e Ll 2V IV ] 1658 005015 170400 170401 170402 LOCHDR: .ASCIZ <15><12>/L0C-BOX SWITCH AND LAMP LOOP/<15><12> INADRH: .ASCIZ <15><12>/USE LOC-BOX <DR11K AT BUS ADDR. / 047040 .ASCIZ / > 046130 030460 XLOHDR: .ASCIZ <15><12>/XL01 POT ADJUSTMENT LOOP/<15><12> 051525 BUSTRP: .ASCIZ <15><12>/BUS TIME-OUT ON SELECTED DR11K/ 051012 047125 RUNMSG: .ASCIZ <15><12><12>/RUN SAMPLE/<15><12> 047055 047116 MSGRUS: .ASCII <15><12>/=NNNN/ MSPNT1: .BYTE .EVEN O SWNLB: .ASCIZ /SET SWITCH REGISTER BITS EQUAL TO THE NON-LATCHING INPUT BIT1S/ SWINTB: .ASCIZ /SET SWITCH REGISTER BITS EQUAL TO THE INTERRUPTING INPUT BITS/ 046511 020124 046105 020104 000113 026505 047117 061505 051104 532 3 540 3 544 3 3 553 051640 006505 046501 000012 005015 ADCS: ADCST: ADBR: INDADR: 052040 052517 051440 062524 030461 005015 041012 046120 000 1665 1666 1667 053523 1668 2 0 6 052040 020105 PAGE 35 000040 020131 037440 3470 3476 3504 3512 3520 §524 13:05 040440 040440 046524 047514 000 015 31-AUG-79 XLO1 ADJUSTMENT ROUTINE & 051104 052101 052117 051525 020124 005015 3463 MACY11 306(1063) N 036040 020113 051525 027122 020040 050040 065104 047105 050117 — s D i e 1657 047514 2 1 6 g A L U &» N A 1656 170400 170401 WWMW&WWWWV‘ 1655 276 300 N "1654 MAINDEC-11-CZDRG-E 31-AUG=79 11:23 (N N CIDRGE.P N DR11-K D il d D ) d D il i D i D wd d d il D i el i D D il i il e oD D Sl e GIC Y EST 2 020 047 Y ORN?/ SEQ 0052 026465 8 B § 13:05 PAGE 35-1 SEOQ 0053 .ASCIZ /SET SWTIRAB: .ASCIZ /SET SWITCH REGISTEK BITS 15-12 EQUAL TO TRANSITION INPUT BITS/ SWDPOB: .ASCIZ /SET SJITCH REGISTER BITS 15-12 EQUAL YO POSITIVE INPUT BITS/ 053523 044103 1 7 051040 042524 064124 1 042105 ~N W ~N 020124 052111 SWITCH REGISTER WITH THE DESIRED PROGRAM OPTIONS/ DEPCNT: .ASCIZ <15><12>/DEPRESS CONT./<15><12> 251 256 123 020123 LASCIZ /STATUS REGISTER 020116 051105 052524 064507 044440 EM1: 6272 040524 042522 05 047522 }; 20 020124 EM2: LASCIZ /INPUT REGISTER 05 05 044440 EM3: .ASCIZ /OUTPUT REGISTER IN ERROR/ EMS: CASCIZ /INPUT INTERRUPT/ AN NN 02 . IN ERROR/ IN ERROR/ — 051107 —— 2 0 6 042040 —_——~n—ruoo — o W N - — - ~ oN o oo o ~» N w — ~N —— o N NN 050105 041440 005015 V) 051523 027124 -— 042522 047117 w 234 2642 0 NS PO NSNS — N &S =Y OSSN 1676 062523 50 OO0OO0O OO0 (P o AV IRV P SV IV o) 1675 42 o ~ 1674 052111 4 1673 04°040 l‘bbl‘-bb:bbbbbb N PONIN) = st s 1672 052125 N ~nN = OO N W ~ N sro0oonnsO — 1671 el e el D A e SWPO5B: FAILED TO LY 2P J VIV, F SV V] w (=352 a8 0 0 0 0 o CO—2ON NN =2 TM 2 O N- L=4 ' o w o N W o " o MACY11 306(1063) 31-AUG=79 XLOT ADJUSTMENT ROUTINE SN OO 0 0 8 v ~ W =) ~n 020124 064103 o o o ~n & H —— 050125 044440 041040 ~N Po e e i \ SN 1670 P o o~ o~ [=] o N =o s~ o o P 030440 W~ jol=] o 000 b 1669 EST MAINDEC-11-CZDRG-E 1-AUG=-79 11:23 2l L LY,(VIV AV TV IV T 0 N —4 DR11-K L CZDRGE .P1 DR11-x L06IC TEST MAINDEC-11-CIDRG-E CZDRGE PN 31-AUG-79 11:23 1681 1682 1683 1684 1685 1686 014666 043501 01467 0146676 014704 016712 014720 014726 014734 014741 020040 042104 052516 052123 020040 052103 000 052125 0640506 052040 0425264 000124 054105 0421 0511 N=OONOOLNN =22 MNNOOO N NS VNS OWVO O NINNINOO W O NIN - NN =N SO b P\ = PNINININY =2 N = —d d e o o 1680 il o e e o 1679 OOOCO0COO0OOOOO 1678 0521%0 SO 0146412 016415 016422 014430 016436 b 1677 105 105 020040 042104 052516 052520 054105 042105 105 020040 062104 052516 050124 054105 062105 105 020040 062040 052011 004515 020124 042520 000 051122 062040 052011 004515 052125 062520 000 051122 062040 MACY11 306(1063) 31-AUG-79 XLO1 ADJUSTMENT ROUTINE C 5 13:05 PAGE 35-2 SEQ 0054 EMS: <ASCIZ /OUTPUT FAILED TO INTERRUPT/ EM6: .ASCIZ /UNEXPECTED EM7: .ASCIZ /OPERATOR INTERVENTION ERROR/ EMI10: LASCIZ /INTERRUPT 047111 050125 052520 020124 Ce71N 062522 046106 EMIT: <ASCIZ /NON=INTERRUPT INPUT BIT SET 041520 060522 052123 020040 051525 062520 000 041520 DH1: ASCIZ /ERRPC DRADD 1STNUM STATUS DHZ: .ASCIZ /ERRPC DRADD TSTNUM INPUT EXPECTED/ DH3: ASCIZ /ERRPC DRADD TSTNUM OQUTPUT EXPECTED/ DM : ASCIZ /ERRP( DRADD TSTNUM/ 060522 047111 047105 042440 000 051105 044440 041040 044501 047524 044440 051040 063040 INTZRRUPT/ INPUT BIT FAILED TO SET INPUT INPUT READY FLAG/ READY FLAG/ ENXNPECTED/ DRI1V-x LOGIC TEST MAINDEC-11-CZDRG-E CIDRGE .P1Y 31-AUG-79 11:23 1687 1688 1689 MACY11 XLOT 30G6(1063) 31-AUG-79 D AD.USTMENT ROUTINE 9 13:05 PAGE 35-3 015070 015076 062106 052516 052011 000115 015110 015116 0151264 015132 015140 0151646 015154 020040 0045064 046525 0525264 050130 044660 061040 051104 051524 0516411 020123 041505 050116 0521 020103 062101 047126 040524 062640 020126 052125 000 DH10: .ASCIZ 001376 015242 DT1: LEVEN $ERRPC,DRADD, TSTNUM,SBDDAT ,$GDDAT, 0 015102 051105 050122 SeQ 0059 052123 /ERRPC DRADD TSTNUM STATUS EXPECT 015162 015162 001116 1690 015176 001116 001376 0152¢2 DT4: $ERRP( ,DRADD,TSTNUM, O 1691 015206 001116 001376 0011264 015242 001442 DT10: SERRP(,DRADD,TSTNUM,$BDDAT,$GDDAT,BRLEVS,0 GOCO00 CO00000 000000 000000 DFO: 0.0,0,0,0,0.0 TSTNUM: 0 1692 1693 015170 015204 015214 015222 015226 015252 015240 015242 001126 000000 001126 000000 000000 000000 000000 00000C 001124 000000 INPLT BT/ e DR11-x LOGIC TEST MAINDEC-11-(C2DRG-E CIDRGE .P1 51-AUG-79 11:23 1695 1696 vvvvvvvvvvvvvvvvwvvvvvvvvvv\' - P P s PN\D — g g g ad s et e P e o PN P 13:09 ROUTINE PAGE 36 SEQ 0056 SCOPE HANDLER ROUTINE ;*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WiLL INCREMENT :*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG.(DISPLAYC7:0>) ;*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> :*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: A AER! ;rSWl = ;'SU09=1 s i S S D el i e ) s el el e o S p) E """ LOOP ON TEST INHIBIT ITERATIONS LOOP ON ERROR ;*SW08=1 ;vCALL . ? 015244 015244 015246 01525¢ 015256 el e I 31-AUG-79 M """"""""""'""""""""""".""l"""" ey LV A Ll LV LV A AV IV IV IV V]L AV Ve N~ [« X- XV, VIS BN — NO oo [« 1 V1o POl VP X VP ¥ ¥ VT, AN e e VA 04 L W D e b e W e R Tl e — e N e D o e N o el ) ) N R N e D i N N N ) i N i N et e ADJUSTMENT 104407 032777 001114 040000 163664 032777 001404 127737 001465 105737 412 SCOPE 1%: (KSWR 817 BNE JNANBNSTART 000416 013746 012737 005737 012637 000463 022626 012637 000423 LOOP ON TEST IN SWR<7:0> ;:SCOPE=10T $SCOPE: $XT1STR: 000004 015304 177060 000004 5% : 000004 000400 163610 163616 001103 001000 163560 001110 001106 001103 001160 004000 00110« 001160 000001 015522 001102 001160 SWis=1 ;. 1F RUNNING ON THE ''XOR'' TESTER (MHANGE (SP)+ ,@MERRVEC ;,RESTORE THME ERROR VECTOR #BI1108,85WR ;.LOOF ON S» (mMp BEQ T1STB BEQ 3tQ 7%: MoV 4%: (LRB $SVLAD: IF [ Jo}" BIT 1%: JLYES TESTERANANSN ;:;TIME OUT ON XOR? ;;RESTORE THE ERROR VECTOR ;.60 TO THE NEXT TEST B8R B8R RIT BNE 1S7T 001104 6% XOR anr 77060 (SP)¢+ Q#ERRVEC $SVLAD BHl 001104 THE TS1 mov BR (MPB 001176 FOR QNERRVEC,~(SP) BIT 1 $OVER CODE Mov CLR 163526 ;.TEST FOR CHANGE IN SOFT-SWR ;:LO0P ON PRESENT TEST? #BIT14,35WR ;s THIS ;,SAVE 8EQ (MPB 2%: 001115 BR BR OS: . MNMRNEND OF 001102 001103 OF MmOV 000004 N i i 30G6(1063) LSBTTL N N i D N e e e e e ) e N e e XLOY N o el ed — N R MACY1Y! BEQ INC (wp BGE MOy MCcv INCB #58 ,@NERRVEC (SP)+,(SP)e 7% CODE FOR THE 2% SSWR,STSTNM $OVER INSTRUCTION 10 A "'NOP'' (NOP=240) THE CONTENTS OF THE ERROR VECTOR ::SET FOR TIMEOUT ;. CLEAR THE STACK AFTER A ;:;LO00P ON THE PRESENT XOR TESTERASNN® IF TEST TEST? SWR<7:0> YES SERFLG ' sHAS AN ERROR GCCURRED: SERMAY ,SERF (G JoMAX, 3% 3% #81709,3S5wWR 43 ::BR IF NO ERRORS FOR ::BR IF NO ;:BR IF SERFLG ;:lERO THE 1% #BIT1Y QSWR 1% $PASS 1% $1CNT STIMES,SIONT $OVER 21, ,81(NT SMXCNT,STIMES $1STNM TEST CCCURRED? NO 2 SET $TIMES THIS ;;LOOP ON ERROR? SLPERR,SLPADR SOVER QuT f, TEST? ::BR IF NO ;:ON THE RIGMHT ;:8R TIME LOOP ADDRESS TO LAST ERROR FLAG ;s CLEAR THE NUMBER OF SCOPE ITERATIONS 10 MAKE JESCAPE TO THE NEXT TeST ;o INNIBIT TTERATIONS? ;.BR IF ::IF YES FIRST PASS OF PROGRAM ; INHIBIT ITERAT]ONS ..INCREHENT ITERATION COUNI ;o CHECK THE NUMBER OF [TERATICNS MADE s;BR 1f MORE I1TERATION REQUIRED soREINITIALIZE THE JTERAT!ON COUNTER ssSET NUMBER OF ;s COUNT [TERATIONS 10 DO TEST NUMBERS DR11-x LOGIC TEST CIDRGE P11 (1) (1) (1) (1) (1) (1) (1) (1) (1) 16?7 015456 015464 015470 015474 015500 015506 015514 015520 015522 AINDEC-11-CZDRG-E 31-AUG=79 11:23 113737 011637 011637 005037 112737 013777 013716 000002 003720 001102 001106 001110 001162 000001 001102 0C1106 001115 163426 (2) (1) (1) (1) 015524 C15524 015526 015534 015540 015542 113737 105237 001775 013777 (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) 015636 015637 015640 015642 015646 015650 015652 015654 015662 01564 000 000 000777 005777 100002 000000 104407 032777 001402 013716 015632 015670 015674 015676 015702 015702 $SERROR: 104407 005237 C11637 162737 117737 032777 001004 004737 104401 (10 o3 13:05 [ [0]']:] STSTNM, STESTN mOv (SP),SLPADR MOov (SP) ,SLPERR (LR $SESCAPE move #1,3ERMAX MmOV STSTNP.,@DISPLAY mov SLPADR, (SP) RTI 200C. ERRUR MANDLER ROUTINE ;eSw13=1 ;*SW09=1 ;*CALL e ERROR 015550 015554 015560 015566 015574 015602 015604 015610 015614 015614 015622 0156264 (1) (1) (1) (1) F PAGE 36-1 SEQ 0057 ;;SET TEST NUMBER [N APT MA]LBOX :.SAVE SCOPE LOOP ADDRESS ::SAVE ERROR LOOP ADDRESS ;. CLEAR THE ESCAPE FROM ERROR ADDRESS J:ONLY ALLOW ONE’1) ERROR ON NEXT TEST ;:DISPLAY TEST NUMBER ;. FUDGE RETURN ADDRESS ;sFIXES PS JiMAX. NUMBER OF JTERATIONS ;*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, ;*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THME ERROR CALL ;*AND GO TO SERRTYYP ON ERROR ;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: ;*SW15= HALY ON ERROR (1) (1) (1) (1) v1) (1) (1) (1) (1) (1) (1) (1) (1) 31-Aun=79 ":.'"'Q""""""""""".""'Ol""'t'l".l"""""""' (1) ap (1) n o (1) (1) SOVER: SMXCNY: LSBTTL (1) 30G(1063) SCOPE MANDLER ROUTINE 001174 (2) (1) (1) BB (1) (1) MACYIT 122737 001007 113737 004737 005737 001402 013716 022737 001102 001103 001102 001112 001116 000002 163324 020000 015242 7% : 163372 001116 001116 163336 015716 001165 000001 001210 001114 (015636 020024 001000 001110 3%: 001162 % 001162 " 011324 000042 ; ;ERRCOR=EMT CKSWR MovB INCB 8tQ MOV AND N-ERROR ;:TEST FOR ]TEM NUMBER (MANGE IN S50FT-SWR STSTNM, TSTNUM SERFLG ’% STSTNM, SDISPLAY ;.SET THE ERROR FLAG ;;DON'T LET THE FLAG GO TO 2ERD ;;DISPLAY TEST NUMBER AND ERROR FLAG ;s INC THE (SP) ,$ERRP( #2,8ERRPC OSERRPC,SITEMB #BIT13,35uR ;.GET ADDRES” INC MOV SuUB MOvB Bl BNE JSR TYPE 20% PC,SERRTYP LOCRLF ::SKIP TYPEQUTS ;.00 YO0 USER ERROR c(MPB BNE mMovB SAPTENV,SENV 2% SITEMB, 2% ;RUNNING IN APT MODF J:NO,.SKIP APT ERROR REPORTY J.SET ITEM NUMBER AS ERROR BYTE .BYTE BR TS7 8PL HALT (KSR BIY 3€a nov 0 0 22% aSwR 3% #81709,35WwR 4% SLPERR, (SP) $SESCAPE 5% $ESCAPE, (SP) . s CHECK FOR AN ESCAPE ADDRESS ;:BR IF NONE ;. FUDGE RETURN ADDRESS FOR ESCAPE (np #SENDAD , 9042 JoACT=11 JSR 22%: s 1632% N TYPEOQUTS SERTTL ERRCR OF COUNT ERROR INSTRUCTION ;;STRIP AND SAVE THE ERROR ;:SKIP TYPEOUT IF SET ]TEM CODE ROUTINE 20%: 21s: 163272 INMIBIT FRROR LOOP ON ERROR : 181 BEQ 12[0)" PC,S3ATYS s sREPORT FATAL ERROR TQ APT NUMBSR ; :APT ERROR LOOP ;sHALT ON ERROR 5:SKIP IF CONTINUE J.MALT ON ERROR. 2o VTEST FOR CHANGE IN SOFT-SWR ;.LO0OP ON ERROR SWIT(CH SET? ::BR |F NO ;.FUDGE RETURN FOR LOOPING AUTO=-ACCEPY? DR11-x LOGIC TEST (ZDRGE.PI (V) (1) (1) (1) 015710 015712 015714 015716 MAINDEC=-11-CIDRG-E 31-AUG-79 11:23 MACY'1 31-AUG=79 ERROR MANDLER ROUTINE 001001 000000 000002 305(1063) BNE 6% HALY RTM1 6% 6 3 13:05 PAGE ;BRANCH JIVYES ;s RETURN 36-2 [F NO SEQ 3058 — DR11-K L0 GIC - CZDRGE P MAINDEC-11-CIDRG-E 31-AUG-79 11:23 MACYTT 30G('063) 31-AUG-79 H ERROR HANDLER ROUTINE S 13:05 PAGE 37 SEQ 0059 1699 1700 RE .SBTTL R ERROR MESSAGE A TYPEOLUT R ROUTINE Y R R R R R A A I ;*THIS ROUTINE USES THE "ITEM CONTROL BYTE'' (SITEMB) ;*ERROR 1S TO BE REPORTED. ,T NNNNNN MNININY — — oSO O -~ " w 010046 005000 153700 001004 013746 001165 TYPE MOv (LR B1SB BNE 00111¢ MOV 1%: on b ~ o AN ASL ADD MoV 8taQ 10464601 000000 104401 012037 001404 106601 000000 104401 011000 001004 012600 104401 000207 001165 016006 001165 001165 Y b ¥ 4%: 5%: 68: 016046 016046 020040 016052 000 1% $CRRP(C,~-.SP, FROM THE "'ERROR TABLE' “"LINE FEED" INFORMATION CONCERNING THE ERROR. 6% RO RO RO RO #SERRTP RO (RO)+,28 3% (RO)+,(% TYPE TYPE .WORD J:"'CARRIAGE ;:SAVE RO ;.PICKUP ..1F RETURN'' € THE ITEM INDEX 1TEM NUMBER 1S 7ERO, ;. TYPE THE PC OfF THE ERROR ;. SAVE SERRPC FOR TYPEOU! ;.60 TYPE=-=OCTAL ASCII(ALL DIGITS) ;:GET QuT ;. ADJUST THE INDIX SO THAT 1T WiLL H WORK FOR THE "'ERROR MESSAGE'’ ;s "ERROR MESSAGE'' POINTER GOES MERE 5% JiSKIP TYPEOQUT RETURN'' & ""LINE [F O ;:TYPE THE "‘DATA MEADER" ;s 'DATA HEADER'' POINTER GOES WERE ;i 'CARRJAGE RETURN'' § "'LINE FEED"" RETURN'' & ''LINE rEEVL"" TYPE RIS JOCRLF PC . 'CARRIAGE :;RETURN L [0]Y] 8(R0O)¢+,=(5P) ;sSAVE @(RO)e FOR TYPEOQUT 167 (RD) TYPE B8R JASCIZ2 .EVEN 63 ;PICKUP ''DATA TABLE'' POINTER ;.00 TYPE THE DATA ;:RESTORE RO ::G0 TYPE-=OCTAL ;:BR 1F ;o 1S THERE NO .8% s TYPE o/ 2. TW0(2) 14 3 FEED" ;.PICKUP ‘'DATA HEADER'' POINTER (RO),RO 4 3 (SP)+,R0O TABLE S SKIP TYPEOUT IF NO POINTER ;o TYPE ::""CARRIAGE JOCRLF ERROR ;;FORM TABLE POINTER ;:PICKUP "'ERROR MESSAGE'' POINTER JOCRLE 0 THE MoV BNE MOV JusT ; ;ERROR ADDRESS MOV BEQ 8%: RO afS|TEMR RO 0 1YPOC 104401 LSCRLF RO.,=-(SP) .WORD TYPE 106402 000771 TYPE BEQ ’Y: 013046 005710 001770 TYPO( BR DEC ASL ASL SV o -4 AV ] ) i 766 770 772 000426 005300 006300 006300 006300 062700 012037 001404 THEN OBTAINS, Y TO DETERMINE WHICH SERRTYP: 00111 OO - N ik d = N ) ol il il et i 754 760 ol et 1046401 196402 i (S QN AV JV SV IV RV LV IV IV IV IV IV ) - o - il il s el (W IV ]V} [V IV V) OCOOOO0O :*AND REPORTS THE APPROPRIATL (elelololblolalelolatloYeYoYe) T TEST ;.LO0P ASCII(ALL ANOTHER NUMBER® TWO(2) SPA(ES SPACES DIGITS) ($ERRTB), RMAINDEC-11-CZDRG-E ODRI1=x LOGIC TEST CIDRGE .P1 31=-AUG=79 11:23 1702 1{?? (2) MACYI1 30G(1063) LSBTTL BINARY T0O OCTAL ERROR MESSAGE 31-AUG-79 I TYPEOQU' ROUTINE 5 *3:05 (ASCI1) PAGE 38 S€0 0060 AND TYPE .'.'l"""'lt"""""""""""'t"t""'l"""'l""t'l"" (H) ;*TH]S ROUTINE iS USED TO CMANGE A 16-B]T BINARY NUMBER TO A 6-DIGIT Q) ;*OCTAL (ASCI1) NUMBER AND e MmOV NUM, = (SP) ; ;NUMBER TO BE TYPED (1) e BYTE N ;:N=1 T0 6 FOR NUMBER OF DIGITS TO TYPE 90 :}; e . (1) (1) ;*STYPON===-ENTER MERE ;*$TYPOS OR $TYPOC TYPE IT. t}; ;-%vaos---enrea MERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS 1O TvpPE () c*CALL: v ;e 3} ie 8 D) (1) (}) ;*CALL: I e (1) s (1) ;*(CALL: (}) (}) (1) (1) (1) (1) (1) 016052 016056 016064 016070 016126 010546 (1) 016122 (1) 016126 016132 016134 0161640 016146 016150 016154« 016156 005404 062704 110437 1137064 016605 005003 006105 (1) (1) (1) (1) 016162 016164 016166 016170 006105 006105 006105 010503 (1) (1) (1) (1) 016174 016200 016202 016206 105337 100016 042703 001002 (1) (1) 016160 #5,80CNT R3,-(SP) J:SET THE ::SAVE R3 MOV RS,=(SP) ;s SAVE RS NEG ADD MOVB MOVB MOV CLR ROL RG 25 ,R4 R4, SOMODE $OFILL,RG 12(SP) ,RS R3 RS 016172 016210 006103 005704 T1YPOC B8R $TYPON MOV8 #6.,30MODE 1 MOVB [0} 016277 MOvVB 000006 016276 016275 000012 1%: 000404 2%: 016276 177770 16 BIT NUMBER MOVB MoV 010446 113706 A J:SET $STYPON: 016277 OF #1,80FILL 016274 112737 010346 000006 TYPEQUT ;:PICKUP THE MODE ;;LOAD ZERO FILL SWIT(H ;;NUMBER OF DIGITS TO TYPE ::ADJUST RETURN ADDRESS 000005 112737 FOR : :NUMBER 10 BE TYPFD ;:CALL FOR TYPEQUT 8(SP) ,=(SP) i(SP),80f JLL (SP)+,90MODE+1 #2,(SP) $TYPUC: 016112 016120 (1) NUM, = (SP) SAME PARAMETERS AS THE MCv MOVB MOVB ADD 016275 016104 T() TYPE OUT WITH THE $1YPOS: 000001 000406 ;:1=TYPE LEADING ZEROS ;:0=SUPPRESS LEADING ZEROS ::NUMBER TO BE 112737 016074 016275 Sim=1 OR 0 NUM, - (SP) 000000 000001 016277 000002 (1) (1) (1) (1) (1) (1) (1) (1) (1) M mov 017646 116637 112637 062716 016076 (1) MOV TYPON ;s CALL FOR TYPEQUTY X oe (15 (1) BYTE ;9STYPOC-==ENTER HERE (1) () TYPOS 318 BR RG4,=(SP) $OMODE + 1, R« b§ ) ROL ROL ROL MOV RS RS RS RS,R3 DECB 8PL BIC BNE $OMODE 7% #177770,R3 43 ROL 157 TYPED ::CALL FOR TYPEQUT THE ZERO FILL SWITCH ;:SET FOR SIX(6) DIGITS JTERATJON COUNT ;s SAVE R4 ::GET THE NUMBER OF DIGITS IO TYPE ;:SUBTRACT IT FOR MAX. ALLOWED :;SAVE 1T FOR USE :;GET THE 2ERO FILL SWITCH ;sPICKUP THE INPUT NUMBER ;s CLEAR THE OUTPUT WORD ;;ROTATE MSB INTO ''C"’ ;:60 DO MSR ;:FORM THi. 91611 R3 ::GET LSB OF THIS DIGIT R& ; : SUPPRESS ;s TYPE THIS DIGIT? ::BR ' NO ;:GET RID OF JUNK ::TEST FOR O THiS 02 LAST DRI1-x LOGIC T EST MAINDEC-11-CZDRG-E CIORGE .P11 31-AUG-79 11:23 (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) 016212 016216 016216 016222 016226 016232 016236 016242 016244 016246 016250 01625 016256 016256 016260 016266 016270 016272 016273 016274 016275 016276 001403 005204 052703 052703 110337 106401 105337 003347 002402 005204 000744 012605 012604 012603 016666 012616 000002 000 000 000 000 000000 MACYI1 BINARY (3 000060 000040 016272 016272 01627¢ 5%: 7$: ¢$: 000002 00000¢ gs: $OCNT: $0FILL: $OMODE: J 5 306(1063) 31-AUG-79 13:05 TO OCTAL (ASCI1) AND TYPE BtQ INC BI1S 8IS MovB TYPE DECB BG7 BL! INC BR MOv Mov MoV MOv MOV RTI BYTE .BYTE BYTE .BYTE .WwORD 5% R4 #0,R2 " R3 R3,8% . 8% $OCNT 2% 6% Re 2% (SP)+ RS (SP)+ R4 (SP)+ ,R3 2(SP),&(SP) (SP)e, (SP) 0 O O 0 O PAGE 38-1 SEQ 0061 ;.BR IF YES ;;DON'T SUPPRESS ANYMORE 0°S . ;MAKE THIS DIGIT ASCII :MAKE ASCII IF NOT ALREADY ;:SAVE FOR TYPING ;.60 TYPE THIS DIGIT ;. COUNT BY 1 ..BR |F MORE 10 DQ ::BR IF DONE ° ;s INSURE LAST LIGIT ISN'T A BLANK ;.00 DO THE LAST DIGIT ::RESTORE RS ; RESTORE R4 ;;RESTORE R3 ;:SET THE STACK FOR RETURNING : ;RETURN ;;STORAGE FOR ASCII DIGIT ;. TERMINATCR FOR TYPE ROUTINE ;:0CTAL DIGIT COUNTER . 'ERO FILL SWITCH . :NUMBER OF DIGITS TO TYPE DR11-x LOGIC TEST CIZDRGE . P11 MAINDEC-11-CZDRG-E 31-AUG-79 11:23 MACY11 306(1063) 31-AUG-79 K 95 13:05 BINARY TO OCTAL (ASCII) AND TYPE PAGE 39 SEQ 0062 1705 1{?? 2) (1) (1) (1) (3) (3) (3) (3) (3) (3) (3) (1) (1) (1) t}; .SBTTL Q16300 016306 016314 016316 016320 016322 016324 016326 016330 016334 016340 016346 016350 012737 012737 010046 010146 010246 010346 010446 010546 017746 010637 012737 000000 000776 016444 000340 000026 '000026 y 162604 016450 016352 1) (1) (1) (1) (1) (1) (3) (3) (3) (3) (3) (3) (3) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) 1707 1708 I R R R R A I I .POWER DOWN ROUTINE SPWRDN: MOV #SILLUP,@#PWRVEC ;,SET FOR FAST UP MOV #340,30PWRVEC+2 ;;PRIO:?7 MOV RO,-(SP) ;;PUSH RO ON STACK MOV R1,-(SP) ;;PUSH R1 ON STACK R MOV MOV MOV MOV MOV MOV MOV HALT BR 00002« (2) POWER DOWN AND UP ROUTINES R2.,=-(SP) R3,=-(SP) R4 ,-(SP) RS,=(SP) :sPUSH ;sPUSH ;:PUSH ;sPUSH .~2 ; sHANG UP R2 R3 R& RS ON ON ON ON I r STACK STACK STA(K STA(CK aSWR,-(SP) ;sPUSH aSWR ON STACK SP,8SAVRA ;s SAVE SP #SPWRUP ,3#PWRVEC ;;SET UP VECTOR :"""""'."'"""'."""""""'.'.'."..""'..'.'l""." 016352 016360 016364 016370 016374 016376 016402 016404 016406 016410 016412 016414 016416 016424 016432 016434 016436 016440 016442 016444 016446 016450 016452 0166460 016466 016474 016502 016510 016516 012737 013706 005037 005237 001775 012677 012605 012604 012603 012602 012601 012600 012737 012737 104401 016452 012716 003102 000002 000000 000776 000000 005015 051101 0460440 040440 051105 052514 000 016520 016444 016450 016450 016450 000024 162536 016300 000340 ;POWER UP ROUTINE $PWRUP: MOV #SILLUP ,9#PWRVEC ;;SET FOR FAST DOWN MOV $SAVRG,SP ;:GET SP CLR $SAVR6 ;:WAIT LOOP FOR THE TTY 1%: INC $SAVR6 ;sWALIT FOR THE INC BNE 1% ::0F WORD MOV (SP)+,aSWR ;. POP STACK INTO @aSWR MOV (SP)+,RS5 :;POP STACK INTO RS 000024 000026 $PWRMG: $PWRAD: $ILLUP: 042522 044524 052106 050040 043040 042522 052123 043516 051105 053517 044501 005015 $SAVR6: PWRMSG: MOV (SP)+ R4 MOV MOV MOV MOV MOV MOV TYPE .WORD MOV .WORD RTI HALT BR O .ASCIZ (SP)+ ,R3 ;;POP STACK INTO R3 (SP)+,R2 ;.POP STACK INTO R2 (SP)+ ,R1 ;;POP STACK INTO R1 (SP}+ RO ;:POP STACK INTO RO #SPWRON,I#PWRVEC ;;SET UP THE POWER DOWN VECTOR #340,3#PWRVEC+2 ;;PRIO:7 ;.REPORY THE POWER FAILURE PWRMSG ;sPOWER FAIL MESSAGE POINTER (PC)+,(SP) :RESTART AT IOTEST I0TEST ;RESTART ADDRESS .EVEN =2 ;.POP STACK INTO R4 ;. THE POWER UP SEQUENCE WAS STARTED ;. BEFORE THE POWER DOWN WAS COMPLETE ; PUT THE SP HERE <15><12>/RESTARTING AFTER A POWER FAILURE/<15><12> DR11-K LOGIC TEST CZDRGE .P11Y MAINDEC-11-CIDRG-E 31-AUG=79 11:23 1710 1{}} MACY11 306(1063) 5 13:05 PAGE 40 * sl X R R R X R R R R R R :*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST (1) :*THE (1) (1) ROUTINE WILL :*NOTE1: ;*NOTEZ2: :}; SEQ 0063 TYPE ROUTINE AR AR SRR SRRl 1) L POWER DOWN AND UP ROUTINES .SBTTL (2) 31-AUG-79 INSERT A NUMBER OF NULL R N R R S R SRR R R} TERMINATE WITH A 0 BYTE. CHARACTERS AFTER A LINE FEED. SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER (HARACTER. $FILLS CONTAINS THE NUMBER OF FILLER CMARACTERS REQUIPED. ;*NOTE3: $FILLC CONTAINS THE CHARACTER TO FILL AFTER. M 1) s*CALL: (1) :*1) USING A TRAP :}; :'OR TYPE INSTRUCTION +MESADR :sMESADR IS FIRST ADDRESS OF AN ASCIZ STRING $TPFLG 1% ;:1S THERE A TERMINAL? ;;BR IF YES ;oHALT HERE 1F NO TERMINAL ;;LEAVE M 1) (1) (1) (1) (1) (1) (1) (1) (1. (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (N (1) (1) (1) 016520 016524 016526 016530 016532 016534 0165640 016546 016550 016556 016560 016564 016570 016572 016600 016602 016604 016606 016610 016612 105737 100002 000000 000430 010046 017600 122737 001011 132737 001405 010037 004737 000000 132737 001003 112046 001005 005726 012600 062716 016616 016620 016626 016626 016632 016634 016636 016640 016642 016646 016650 016654 016660 016662 000002 122716 001430 122716 001006 005726 104401 001165 105037 000755 004737 123726 001350 013746 016666 016672 016676 105366 002770 004737 001157 o Y TYPE MESADR $TYPE: TSTB 8PL HALT BR 1%: 000002 000001 001210 000100 001211 016570 020014 000040 001211 61%: 62%: 2$: 000002 60%: 3%: 000011 6% 000200 016776 016732 001156 5%: 6%: 001154 000001 016732 7%: Mov 3% RO,-(SP) MOv CMPB BNE B11B BEQ MOV JSR .WORD BlTH BNE MOvB BNE TST MOV ADD RTI CMPB BEQ (MPB BNE 187 TYPE $CRLF CLRB B8R JSR (MPB BNE MOV SCHARCNT 2% PC,S$TYPEC SFILLC, (SP)+ 2% $NULL, - (SP) DECB BLT JSR 1(SP) 6% PC,STYPEC 82(SP) ,RO FAPTENV,SENV 62% #APTSPOOL ,$ENVM 62% RO,61% PC,8ATY3 0 #APTCSUP,SENVM 60% (RO)+,=(SP) 4% (SP) ¢+ (SP)+ RO #2,(SP) #HT, (SP) 8$ WCRLF, (SP) 5% (SP)+ ;:SAVE RO ::GET ADDRESS OF ASCIZ STRING : sRUNNING IN APT MOGE ::NO,GO CHECK FOR APT CONSOLE ; ;SPOOL MESSAGE TO APT ;:NO,GO CHECK FOR CONSOLE : s SETUP MESSAGE ADDRESS FOR APT ;. SPOOL MESSAGE TO APT : MESSAGE ADDRESS ;;APT CONSOLE SUPPRESSED ;s YES,SKIP TYPE OUT :sPUSH CHARACTER TG BE TYPED ONTO STACK ::BR IF IT ISN'T THE TERMINATOR ::1F TERMINATOR POP T OFF THE STACK : ;RESTORE RO : sADJUST RETURN P( : sRETURN : ;BRANCH IF <HT> : ;BRANCH [F NOT <CRLF> . ;:POP <CR><LF> EQUIV ;s TYPE A CR AND LF :sCLEAR CHARACTER COUNT ;:GET NEXT CHARACTER ::60 TYPE THIS CHARACTER ;oIS IT TIME FOR FILLER CHARS.? ;o 1F NO GO GET NEXT CHAR. :;GET # OF FILLER CHARS. NEEDED :AND THE NULL CHAR, ::DOES A NULL NEED TO BE TYPED? ::BR IF NO--GO POP THE NuULL OFF OF ::60 TYPE A NULL STACK la¥alaRalFoalatalalalaleatalalealelalalatatal e Pou D ad md e i e d D i s D ol il i D i el i D i il el el N Nt NP N sl Nt Nl Na P sl P s it ikl Nt N N i N P o it ¥ P EST MAINDEC-11-CZDRG-E 1-AUG=79 11:23 N — DR11-K CIDRGE. 105337 000770 MACY11 30G(1063) 31-AUG-79 M 1% :05 TYPE ROUTINE 016776 DECB BR SCHARCNT 7% PAGE 40-1 SEQ 0064 .. ;00 NOT COUNT AS A COUNT ;. LOOP ;HORJZONTAL TAB PROCESSOR 000040 016732 000007 016776 162212 00000¢ 000015 162204 000002 016776 000012 000207 000002 8%: 9% : MOVB JSR 8118 BNE TS7 BR $TYPEC: TSTB BPL MOvVB CMPB BNE (LRB BR 1%. (MPB BEQ INCB $CHARCNT : .WORD $TYPEX: RTS # ,(SP) PC,STYPEC #7,8CHARCNT 9% (SP)+ 2% a%TPS $TYPEC 2(SP),at1PB #CR,2(SP) 19 $CHARCNT STYPEX NLF,2(LP) $TYPEX (PC)+ 0 PC :;REPLACE TAB WITH SPACE ;:TYPE A SPACE ; :BRANCH IF NOT AT .. TAB STOP :;POP SPACE OFF STACK ;sGET NEXT CHARACTER ::WAIT UNTIL PRINTER IS READY ;:LOAD CHAR TO BE TYPED INTO DATA REG. :+1S CHARACTER A CARRIAGE RETURN? ; sBRANCH IF NO ::g;?;-CLEAR CHARACTER COUNT . 1S CHARACTER A LINE FEED? : :BRANCH IF YES :;COUNT THE CHARACTER ;s CHARACTER COUNT STORAGE DR1V-K LOGIC TEST CZDRGE .P11 MAINDEC-11-CZDRG-E 31-AUG-79 11:23 1{}; MACY11 30G(1063) 31-AUG-79 N 5 13:05 READ AN OCTAL NUMBER FROM THE TTY .SBTTL PAGE 41 READ AN OCTAL NUMBER FROM THE TTY (2) :;'tt"t"""""'t"t"""t"""'tttlttt't'tttt't't'tttttt'tt (N <*CHANGE (N c*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND (1) ;vCALL: (N e i (N o m (1) (1) (3) (3) (3) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (3) (3) (3) (1) (1) 17}& 017002 017006 017012 017014 017016 017020 017022 017026 017026 017030 011646 016666 010046 010146 000002 010246 104411 012600 2%: 112046 001412 006301 006102 006301 006102 006301 006102 042716 062601 000764 005726 010166 010237 017100 017102 000002 000000 012602 012601 012600 177770 3% 0C0012 017102 RDOCT RETURN HERE $SRDOCT: MOV MOV MOV MOV 18: 005001 005002 017032 01703& 017036 017040 017042 017044 017046 017050 017054 017056 017060 017062 017066 017072 017074 017076 0000064 1T TO BINARY. <:H1GH ORDER BITS ARE IN $HIOCT (SP),=(SP) 4(SP),2(SP) RO, =(SP) R1,=(SP) . :PROVIDE SPACE FOR THE . INPUT NUMBER S:PUSH RO ON STACK ::PUSH R1 ON STACK CLR CLR (SP)+,RO R1 R2 ::CLEAR DATA WORD BEQ ASL ROL ASL ROL ASL ROL BIC ADD BR 181 MOV MOV 3s R1 R2 RY R2 R1 R2 #4C7.(SP) (SP)+,RI 28 (SP)+ R1,12(SP) R2,$H10CT MOV ROLIN MOV MOvVB MOV MOV MOV R2.-(SP) (RO)+,=-(SP) (SP)+,R2 (SP)+,R1 (SP)+,R0 RT1 $HIOCT: .WORD 0 JSBTTL TTY INPUT ROUTINE (1) ::READ AN OCTAL NUMBER ..LOW ORDER BITS ARE ON TOP OF THE STACK ::PUSH R2 ON STACK :READ AN ASCIZ LINE ::GET ADDRESS OF 1ST CHARACTER ::P1CKUP THIS CHARACTER ;i 1F ZERO GET OUT 2 ik ;8 ::STRIP THE ASCII JUNK S:ADD IN THIS DIGIT ::LOOP S:CLEAN TERMINATOR FROM STACK ::SAVE THE RESULT ::POP STACK INTO R? ::POP STACK INTO R1 ::POP STACK INTO RO : :RETURN ::HIGH ORDER BITS GO HERE (2) . t'tlttttt"tt't't"tttttt'ttt'ti't'ltttt'ttt"'ttttltt'ttttt'tt (}) ENABL (n (1) (1) (1) (1) (1) “eSOF TWARE SWITCH REGISTER CHANGE ROUTINE. ;*ROUTINE 1S ENTERED FROM THE TRAP HANDLER, AND WILL . ttlttt't't'tt""Qt'tt't'l"t'tt'ttttttt'ttlltttttt!lttt'tlt'tt 22; (1) (1) (1) LSB 017104 017112 017114 017120 017122 022737 001074 105777 100071 117746 000176 162024 162020 (1) 017126 042716 177600 (1) 017132 022726 000007 (1) 017136 001062 001140 “wSERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL : *WHEN OPERATING IN TTY FLAG MODE. ;1S THE SOFT-SWR SELECTED? #SWREG, SWR $CKSWR: CMP L BRANCH IF NO 15 BNE . ;s CHAR THERE? 8%7kKs 1518 ::1F NO, DON'T WAIT AROUND 15¢ BPL ::SAVE THE CHAR a$TKB,-(SP MOVB BIC (MP BNE §AC177, (SP, 15¢ a7, (SP)* S STRIP-OFF THE ASCI! “INO, RETURN TO USER ;1S 1T A CONTROL G? SEQ 0065 — o e [2) 1] Po) 176 000001 - $GTSWR: 017774 100375 117746 042716 19%: 161742 7%: 161736 177600 31-AUG-79 8 6 13:05 PAGE 41-1 (mpPB Bta $AUTOB, #1 15% ::ARE WE RUNNING IN AUTO-MODE? ; ;BRANCH IF YES TYPE TYPE MOV TYPOC TYPE CLR SONTLG :;ECHO THE CONTROL-G (*G) ;s TYPE CURRENT CONTENTS ;:SAVE SWREG FOR TYPEOUT ::60 TYPE--0CTAL ASCII(ALL DIGITS) CLR 1STB BPL . SMSWR SWREG,=(SP) .SMNEV -(SP) =(5P) a%7ks 4 :.PROMPT FOR NEW SWR ;s CLEAR COUNTER :: THE NEW SWR ;s CHAR THERE? ;. 1F NOT TRY AGAIN MOvB a$7KB, 7 0eC ?, ::P1CK UP (HAR cmp (SP),#25 108 ;218 1T A CONTROL=-U? : :BRANCH IF NOY ;. YES, ECHO CONTROL-U (*U) ; : IGNORE PREVIOUS INPUT ;sLET'S TRY IT AGAIN BIC JiMAKE IT 7-BIT ASCII kel N ek o OCOO0OO 021627 001005 000025 062706 000757 000006 20%: elelelalelalelelolelelelelelolololalolololololelatole) 021627 001022 005766 001403 016677 062706 000015 10%: ~ w ~N » wnld el il e ) D e e el ) b D S D ) D 360 001003 012777 000002 004737 021627 002420 021627 003015 042726 005766 001403 006316 006316 006316 005266 056616 000707 104401 000720 017751 000004 000006 001165 001135 000001 000100 161640 016732 000060 BNE TYPE ADD "6 ,SP cMp BNE 18T 16% 4&(SP) BR BEQ —y 161662 w 000002 — i 104401 123727 9%: P o b —t e wnd 104401 ) mad el — N N e atatealealatalalatatalalalalatatatalalel e teYe lal el W Wiayy kel oW W W UG=79 11:23 MACY11 30G(1063) TTY INPUT ROUTINE il e e i D e i D D — -~~~ ks NNNN -t NN o el ~~d -t O © —_r oo OO0O0O0O0OOOOO 017756 017763 000176 e D 001134 Y N—A.—._.._..--n-—a_._.—o__n_o_a—._a_a—a_....—._._n_o-a_n.a-‘—.-l—fl_a_._-o._. — e o ol el Al el e i D e d P\ P\ vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv\,vvvvvvyv MAINDEC-11-CZDRG-E OO et atal el el el eXaloY 8 e DR11-K CIDRGE. 168 MOV ADD TYPE (MpPB8 BNE MOV RTI JSR CMP BLY 000067 CMP BGT 000060 000002 B1C 181 BEQ ASL 000002 177776 17%: 001164 18%: .DSABL JSCNTLY 19% (SP), M5 118 2(SP) ,3SwR #6,5°P +SCRLF SINTAG, M 158 #100,3%7kS PC,STYPEC (SP),#60 18% (SP) ,#67 18% #60,(SP)+ ASL ASL INC B1S LSB -Z(SP) (SP) 7% ,SQUES 20% 01S 1T A <CR>? ; ;BRANCH IF NO JoYES, IS IT THE FIRST CMAR? s ;BRANCH IF YES ::SAVE NEW SWR ;s CLEAR UP STACK ;sECHO <CR> AND <LF> ;:RE~ENABLE TTY XKBD INTERRUPTS? ; ;BRANCH IF NOT ;sRE-ENABLE TTY KBD INTERRUPTS ; sRETURN :;ECHO CHAR ::CHAR < 0? ; ;BRANCH IF ::CHAR > 7 YES s sBRANCH IF YES :STRIP=0OFF ASCII ;. 1S THIS THE FIRST (HAR s sBRANCH IF YES ;iNO, SHIFT PRESENT MM CHAR OVER TO MAKE N ROOM FOR NEW ONE. ;KEEP COUNT OF CHAR ::SET IN NEW CHAR ;:GET THE NEXT ONE ;s TYPE 7<CRO<SLF> s SIMULATE CONTROL-U .'"""'.""""""l"""".l.l""'.!.""""""."l'l'.'l't SEQG 0066 DR11-K LOGIC TEST MAINDEC=11-CIDRG-E CIORGE .P11 31-AUG-79 11:23 z}; o o (N . (1) (1) (1) (1) (1) (1) (1) (1) 017366 017370 017376 017402 01726404 017412 017420 0176426 011646 016666 105777 100375 117766 042766 026627 001013 (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) 017434 017436 017442 017446 017452 017456 017456 017464 0176466 017474 100375 117746 042716 022627 001366 000750 026627 002407 026627 003003 (2) 017430 017476 017504 105777 042766 000002 000004 161542 000002 161536 177600 000004 000004 000004 000023 161510 (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) €1 (1 (1 (1 (H (MY (1 (ny M SRDCHR: 1%: 2%: 161504 177600 000021 0000064 000140 000004 000175 000040 00C004 3%: (s 31-AUG-79 017506 017510 017512 017516 017522 0175264 017526 017530 017534 017536 017540 017542 017550 o0 O 01 0N 0 01 o0 N 010346 0C5046 012703 022703 101456 104410 112613 122713 01022 005716 001007 112737 104401 12716 05303 20327 03434 11337 04401 00746 0 SRDLIN: 017742 1%: 01775° 2%: 000177 000134 017740 177777 017742 108 : 017740 6%: 017740 017740 5¢ - 6 13:05 ROCHR MOV MOV 1STB BPL mMovB BIC CMP BNE 1578 8PL MOVB RIC MP BNE BR cmp BLT cmp 8G1 BIC RT1 PAGE &1-2 SEQ 0067 ;s INPUT A SINGLE CHARACTER FROM THE TTv RETURN HERE ;s CHARACTER IS ON THE STACK ;;WITH PARITY BIT STRIPPED OFF (SP),=(SP) 4(SP),2(SP) asTxs 1% 9%71KB,&4(SP) #AC<177>,4(SP) 4(SP),#23 38 FISTES 2% 83TkB,-(SP) #4C177,(SP) (SP)+, 821 2% 1% L(SP), M40 A3 4(SP) ., M75 X3 #40,4(SP) ;*THIS ROUTINE WILL ;rCALL: . ;e e ¢ ILL INPUT A SINGLE CHARACTER FROM THE TTy ;;t" 1 22222222 XXX (1) (1) (1) (1) (1) (1) INPUT ROUTINE .=CALL: (1) (1) (1) TTY 306(1063) :-Z:IS ROUTINE (1) (1) MACY11 A R INPUT :;PUSH DOWN THE P( ;:SAVE THE PS ;:WAIT FOR ;A CHARACTER :;READ THE TTv ;;GET RID OF JUNK I1F ANY ;1S 1T A CONTROL-S? ; :BRANCH IF NO ::WAIT FOR A CHARACTER ;;LOOP UNTIL ITS THERE ::GET CHARACTER ;MAKE IT 7-BIT ASCII ::1S 1T A CONTROL-Q? ;:1F NOT DISCARD T ;s YES, RESUME ;3 1S 17 UPPER CASE? :;BRANCH IF YES ;1S 1T A SPECIAL CHAR? ;:BRANCH IF YES ::MAKE IT UPPER CASE ::60 BACK TO USER E R R R R R E R E R R N R R R R R R R R A R R R R R R R R R X R R X R R XXX A STRING FROM THE TTY ROLIN RETURN HERE ::INPUT A STRING FROM THE TTY : ;ADDRESS OF FIRST CHARACTER WILL BE ON THE ;; TERMINATOR WILL BE A BYTE OF ALL 0°S MOV CLR MOV ;:SAVE R3 ;;CLEAR THE RUBOUT KEY ;;GET ADDRESS CMP BLOS ROCHR MOVB CMPB BNE ST BNE MOVB TYPE MOV DEC (mP BLO MOVB TYPE BR 1S1 R3,=(SP) -(SP) #STTYIN,R3 #STTYIN7 RS XY (SP)+, (R3) #177,(R3) 5% {SP) 6% #'\,9% ,9% #-1,(SP) R3 RI,IBTTYIN X1 (R3),9% ,9% 2% (SP) ;;BUFFER FULL? ::BR IF YES ::60, READ ONE CHARACTER FROM THE ::GET CHARACTER ::1S 1T A RUBOUT ;:BR IF NO ;:1S THIS THE FIRST RUBQUT? ;:BR IF NO ::TYPE A BACK SLASH TTy ::SET THE RUBOUT KEY ; :BACKUP BY ONE ;:STACK EMPTY? ;:BR IF VES ;;SETUP TO TYPEQUT THE DELETED (MAR. ;:60 TYPE ::G0 READ ANOTHER (MAR, ;:RUBOUT KEY SET? STA(K OR11-r LCGIC TEST MAINDEC-11-LIDRG-E CIDRGE P11 31-AUG=-79 11:23 (1Y (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1 (1) (1) (1) (1) (1) I;}; 017606 017606 017614 017620 017622 017626 017630 017634 017636 017642 017644 017646 017652 017656 017660 017664 017666 017672 017676 017702 017704 017710 017714 017716 017720 017722 017730 017736 017740 017741 017742 017, 017756 017763 017770 017774 020002 001406 112737 104401 005016 122713 001003 104401 000726 122713 001013 105013 104401 104401 000717 104401 000712 111337 104401 122723 001305 000134 017740 BEQ MOvVB TYPE 017740 000025 7%: 017751 000022 8%: 001165 017742 000012 000 051127 $TTYIN: SCNTLU: SCNTLG: SMSWR: B8R TYPE BR MOov8 TYPE (mpPB BNE CLRB TYPE 1ST MoV Moy L[0]"] MOV RT1] .BYTE .BYTE .BLKB .ASCIZ .ASCIZ _ASCIZ 020127 SMNEW: .ASCIZ 6% 017740 017740 000015 3% 177777 001166 0C0525 (005015 051412 000040 042516 020075 000 000004 017742 CLR (mPB BNE 1YPE B8R (mPe BNE (LRB TYPt TYPE 001164 105063 104401 005726 012603 011646 016666 012766 000002 000 000 000007 136 043536 C15 036440 020040 020006 MACY11 30G(1063) TTY INPUT ROUTINE 000002 000004 9% : LEVEN 31-AUG-79 D 6 13:05 PAGE &1-3 SEQ 0068 14 £'\,9% .99 ;.BR IF NO ;. TYPE A BACK (SP) #25,(RY) 8% LSCNTLUY 1% #22,(RY) 33 (RS ::;CLEAR THE RUBOUT KEY ;o 1S CHARACTER A CTRL U? ;;BR IF NO ;. TYPE A (ONTROL "V’ ;.00 START OVER ::1S CHARACTER A '"TMR'" ; ;BRANCH 1F NO s CLEAR THE CMARACTER s:TYPE A ''CR B LT ;. TYPE THE INPUT STRING ;.60 PICKUP ANOTHER CHACTER JoTYPE A ! ;s CLEAR THE BUFFER AND LOOP ;;ECHO THE CHARACTER LOCRLF LOTTYIN 2% LSCUES 1% (R3),9% .99 #15,(R3)» 2% TR LSLF (SP) (SP)+ ,R3 (SP),=(SP) L(SP) ,2(SP) #STTYIN,L(SP) 0 0 ? /74U/<15><12> /*G/<15><12> <15><12>/SWR / NEw 7/ SLASH ;. CHECK FOR RETURN ;;LOOP IF NOT RETURN ;;CLEAR RETURN (THE 15) ;.TYPE A LINE FEED s CLEAN RUBQUT KEY FROM THE STACK J;RESTORE R3 ;. ADJUST THE STACK AND PUT ADDRESS OF H FIRST ASCII CHARACTER ON I7 - / ; ;RETURN .. STORAGE FOR ASC]] (HAR, ;s TERMINATOR ;sRESERVE 7 BYTES FOR “Ty ;. CONTROL ‘U .. CONTROL "'G" THE 10 TYPE INPUT . DRY1-x LOGIC CZORGE PN TEST MAINDEC-11-(ZDRG-E 31-AUG-79 11:23 I e e i e I e i 020006 020014 020022 020024 020032 020032 020034 020036 020042 020044 020052 020054 020062 020064 020070 020076 020102 020104 020110 020112 020114 020120 020122 020126 020134 020136 020144 020152 020156 020162 020164 020164 020170 020172 020176 020200 020204 020206 020214 020222 020226 020232 - 020236 020242 020244 020246 020250 020251 020252 (VITVIIV TVY N VYL YOV oY —-NO N NN~ LSBTTL L) o P -t ) b o T R A dl T s et md et h d YA S et b el el b b e B b —b ol b b P b D e d e NN N N N N N N N N N N M N N N N S M M N N e e e N e M N i D e e e M s e e W I b o e e I I I b b e e W S > d s b — e e s e e Ao S, o~~~ 1717 1718 RACY1Y 306(1063) TTY INPUT ROUTINE 020252 020250 $SATY1: $ATYS: 000001 020252 SATYSL: $ATY(: 020250 001211 000004 000002 001170 000C0¢ 000000 105737 001416 005737 UM413 005737 001375 017637 062766 005237 105037 105037 105037 012601 1% mov ADD 1s1 MOV 1518 BNE suB ASR MOV MOV 001170 020162 000004 3% 4% 5%: 10%: €01210 001170 11%: 001172 BR LJo}"] ADD MoV JSR .WORD 1818 BEQ ST BEQ 1S7 BNE MOV ADD 0000C« 12%: INC (LRB CLRB (LRB SMFLG: $LFLG: $FFLG: 000001 MOv MmOV 1818 gl118 BEQ 2% 020252 00001¢ 000002 001170 020252 020251 020250 MOVB B8NE 001204 177776 016520 mMOVB mOv8 8R BNE 001204 000004 000002 ¢ 13:05 PAGE 42 SEQ 0069 COMMUNICATIONS ROUVINE 8EQ (mpPB8 00120 000100 001206 000004 t ';"""""""'""""'""'"""'I"""""""".'""C." 000001 000001 000001 APT 31-AUG=79 MoV Mov RTS .BYTE .BYTE .BYTE APTS12E=200 APTENV=001 #1,85FLG ::70 REPORT FATAL ERROR 0, 8MFLG ;.70 TYPE A MESSAGE #1,8FFLG ;.70 ONLY RO,=(SP) ;sPUSH RO ON STACK SMELG 5% ;:SHOULD TYPE A MESSAGE? ;:1F NOT: BR b1 ;:1F NOT: $SATY( R1,=-(SP) SAPTEN, ,SENY #APTSPOOL ,$ENVP b3 ) 84(SP) ,R0O #2.64(5P) SMSGTYPE 1% RO,S$MSGAD ;:PUSH R1 REPORT ERROR ON STACK ; ;OPERATING UNDER ; ;SHOULD FATAL BR SPOOL APT? MESSAGES® ;:1F NOT: BR ;:GET MESSAGE ADDR, ::BUMP RETURN ADDR. ;.SEE IF DONE W/ LAST XMISSION? ;o 1F NOT: WALT ;. PUT ADDR IN MAILBOX 520)0 JiF'ND END OF $MSLAD, RO RO RO,SMSGLGT ;.SUB START OF MESSAGE ;:GET MESSAGE LNGTH [N WORDS ;:.snse YPE ;s TELL APT TO TAKE MSG. ;:PUT LENGTH MESSAGE IN MA]LBOX 84(SP) ,48 :sPUT MSG ADDR 177776 ,-(SP) St,sTVPE ;:PUSH 177776 ON STACK ;sCALL TYPE MACRO $FFLG 12% SENV 12% $MSGTYPE 11% 86 (SP) ,SFATAL #2,4(SP) SMSGTYPE $FFLG $LFLG SMFLG (SP)+ R1 (SP)+ RO = ;;SHOULD REPORT FATAL ERROR? .. 1F NOT: PR s RUNNING UN.ER APT? ;. 1F NOT: BR sFINISHED LAST MESSAGE? ;:1F NOT: WALTY ::GEY ERROR # ;:BUMP RETURN ADDR. ;. TELL APT 10 TAKE ERROR sCLEAR FATAL FLAG ;s CLEAR LOG FLAG ;:CLEAR MESSAGE FLAG ;:POP STACK INTQ R ;:POP STACK INTO RO 0 0 0 ;sMESSG. FLAG ;.L0G FLAG ;i FATAL FLAG #2,4(SP) PC IN JUSR LINKAGE ;.8BUMP RETURN ADDRESS ;s RETURN DR11-k CIDRGE .P %?GIC TEST NN~ A~U AAAAAAA’\AAAAA"\A’Nfi’""A"AAAI‘/\A"\"\AA’\/\/‘/\A’\AAAANAfl N AN =\ o L AN AN AN AN AN AN N NN NNt b e b e et s 1) 1) MAINDEC-11-CZDRG-E 31-ALG=-79 11:23 000:00 000040 1 }? MA(CYT 306(10?%) 31-ALG-79 F 6 13:05 APT COMMUNICATIO0NS ROUTINE PAGE 2-! SEQ 0070 APTSPOOL=100 APT(SUP=040 .SBTTL TRAP DECODER 2) ;;'tt""'t""""' 1) 1) 1B ;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP'' ;NSTRUCTION :*AND USE ]T TO INDEX THROUGM THE TRAP TABLE FOR THE STARTING ADDRESS ;*0F THE DZSIRED ROUTINE. THEN USING THE ADDRESS OBTAINED T wiLL }) ) 020256 020256 020262 0202¢. 02026¢ 020270 020274 010046 016600 005740 111000 006300 016000 000200 $STRAP: 000002 R R R R R R R E E R E R E E R R NN L N R R R R R R N RS XK | ROUTINE. MOV MOV 181 MOv8 ASL . Jo}" RTS 020310 XA A2 A A A s RO,-(SP) 2(5P) RO -(R0) (RO),RO ;;SAVE RO ;:GET TRAP ADDRESS ;;BA{KUP BY 2 ;:GET RIGHT BYTE OF RO $TRPAD (R()) RO RO ::POSITION FOR INDEXING ::INDEX TO TABLE ;G0 TO ROUTINE TRAP 020276 020300 02N306 011646 016666 000002 000004 000002 ;oTHIS IS USt $TRAP2: MOV MOV RT] .SBTTL TRAP TABLE O HANDLE THE (SP),=(Sk) 4(SP),2(SP) ''GETPRI'' MA(RO ,:MOVE THE P( DOWN ;:MOVE THE PSW DOWN ;:RESTORE THE PSW . e W i e M s S e 1) 1) 1) 1) 1) 1) 1) :*GO TO THAT A A2 A ;*THIS THE CONTAINS THE STARTING "'TRAP'" INSTRUCTION. ADDRESSES OF THE ROUTINES CALLED N o J*BY TABLE : 1 1 O 1 N =2 O " o " o N e e e e N W N N N ; 020310 020276 020312 020316 020316 020320 020322 016520 016076 016052 016112 011360 020326 017154 020326 020330 020332 017104 01736% 017506 020336 888000 020334 $TRPAD: .WORD STYPE $TYPOC $TYPOS STYPON $TYPDS 017002 0 ROUTINE BUFFER: .END STRAP2 JsCALL=TYPE ::CALL=TYPOC ;;CALL=TYPOS ::CALL=TYPON ;.CALL=TYPDS TRAP+1(104401) TRAP+2(104402) TRAP+3(104403) TRAP+4(104404) TRAP+5(104405) TTY TYPEOUT ROUTINE TYPE OCTAL NUMBER (wlTH LEADING ZERQS) TYPE OCTAL NUMBER (NO LEADING 2ERDS) TYPE OCTAL NUMBER (AS PER LAST CALL) TYPE DECIMAL NUMBER (WwiTM SIGON) $GTSWR ::CALL=GTSWR TRAP+6(106606) GET $SCKSWR SRDCHR SRDLIN $RDOCT ;:CALL=CKSWR ;;CALL=RDCHR ;;CALL=RDLIN TRAP+7(1064407) TEST FOR CHANGE IN SOF T-SWR TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE TRAP+11('04411) TTY TYPEIN STRING ROUTINE TRAP+12(104412) READ AN OCTAL NUMBER FROM TTv 0 ::CALL=RDOCT ;10 WCRD BUFFER FOR SOFT-SWR SETTING THE COULTER INTERFACE TES! DRI~k LOGIC (IDRGE .P1Y ABASE = 167770 ACDWY = 000000 ACDWZ = 000000 ACPUOP= 000000 ADBR 013302 ADCS ADCSY ADDWO = ADDWY = ADDW10= ADDM11= ADDW12= ADDW13= ADDMW14= ADDW15= ADDW2 = ADDWY = ADDW4 = 013276 013300 000000 000000 000000 000000 000000 000000 000000 000000 000000 000000 000000 ADDW6 = ADDW? = ADDWS = ADDW9 = ADEVCT= 000000 000000 000000 000000 000000 ADDWS = 000000 ADEVR = AENV = AENVM = AFATAL= AMADR1= 000000 000000 000000 000000 000000 TEST MAINDEC-11-CIDRG-E 31-AUG=79 11:2% 1924 409 1619 1609« 1608 409 409 BASEBA 001362 o 4«09 AUSWR = 000000 AVECT2= 000000 165328 409 409 409 409 4«09 000000 000000 000000 000040 000001 APTS12= 000200 APTSPO= 000100 ASWREG= 000000 100300 167 409 409 409 409 409 409 609 409 409 409 4«09 175 1697 522 171 4«09 AVECT1= 16544 409 409 4«09 09 ATESTN= 000000 AUNIT = 000000 16554 1614 409 409 409 409 409 409 409 AMSGAD= AMSGLG= AMSGTY= AMTYP1= APTYP2= AMTYP3= AMTYP4L= APASS = APRIOR= APTCSU= APTENV= S€a 00N 409 409 409 409 409 409 409 «09 4«09 409 000000 000000 000G00 000000 000000 000000 ¢ 409 «09 AMADR?= 000000 AMADRS= 000000 AMADR4= 000000 AMAMS 1= 000000 AMARS?2= 000000 AMAMS3= 000000 ARAMSSG= 000000 6 MACY11 306(1063) 31-AUG=79 13.05 PAGE &3 CROSS REFERENCE TABLE == USER SYMBOLS 1718» 17N 1718# 1718# 4«09 4«09 . . : 1938 409 L6178 523 4«09 17184 529 . 658 1398 8118 = 8119 = BPTVEC= BRLEVY BRLEV? BRLEVS BUFFER BUSTRP BYPASS BYPASY! (KSWR = COULTJ (OULTR PU (R = CRLF = DDISP = DEPCNT DFO DMl 000400 001000 000014 001436 001440 001442 020336 013463 011140 011226 1046407 001464 011766 001370 000015 000200 177570 (14227 015224 014671 OKH10 015102 DM OLTA 015007 N15055 Onl DIOBRL DISPLA DISPRE 0167461 001434 0011«2 000174 4938 4948 4954 1255 1447 540 13904 3984 o |y 1010 1242 1279 1319 8595 855 1318 1108 1325 1696 1370 1169 1096 1180 1248 1230 14468 982+ 965 13440 97% 1021 1292 1030 1293 «99 465 16928 924 1609 1170 605 1256 1467 1435 171" 1711 4«09 16728 21 1683# 463 16848 16854 6«37 o5 988 11464 3942 3948 3944 (Y4 4928 <098 95¢ 818 1337 1697 615 13 457 419 425 756 828 819 1393 1696 4«02 <01 K708 1399 1215 1342 954« 5148 SEQ 0072 16437 870 LLY 835 SYMBOLS ~ = 000040 PAGE 43-T 845 836 1697 1343 957 955 1257 17218 1349 977 956+ 1267 140290 1409 1268 1275 433 6«59 (Y% 651 1339 1697 16868 134¢ 1344 1266 1283 3 — = 000100 = 000200 13:05 688 659 1697 591 -- USER 527 525 598 1696 1696 1193 TABLE o6 O 8176 8177 8175 3944 3944 3940 394 1948 1944 3948 39448 3944 3044 3944 3948 3048 3948 3948 3944 3948 3944 3944 39448 3948 3944 3944 3048 3944 3948 3944 CROSS REFERENCE 31-AUG=79 [V AV V) [V AV TV " = 000020 = 000040 = 000100 = 000200 = 000400 = 001000 = 000002 = 002000 = 004000 = 010000 = 020000 = 040000 = 100000 = 000004 = 000010 = 000020 398 199 MACY1T 30G(1063) [._J. Vv 81103 = 000010 81104 81105 81706 81107 81708 81109 BITl 81110 B1111 81112 BI1T13 B1114 81115 8112 8113 R114 46998 L6848 WO — £~ 0 001366 001364 001454 001510 000001 000001 000002 000004 NSNS BASEBR BASEIV BEGIN BEAINT 8110 = 81100 = 81701 = 81102 = IS0 —rorg DRI11=K LOGIC TEST MAINDEC-11-C2DRG-E CIDRGE .P1Y 31-AUG-79 11:23 16604 17198 164408 16546 688 522¢ 522 522 W27 16874 443 1336¢ 1696 653 1031 1294 12406¢ 1304 12%0 1691 DRADD LRIV DR121 DSWR = o1 0110 D14 eEPTVEC= em gEm10 001376 0014600 007200 177570 015162 015206 015176 000030 014625 01453 EMY Eme Em3 Emg EMS Emo En? ERRVEC= EXTCNT EXTIMP EXTIST 014614 014302 014332 014363 014415 014450 014475 000004 011740 011706 011604 GRBHIO GRDA] 001416 001412 GNS = eteeee 001414 GRDI1O GRIVA 001424 GRIVB 001430 GRIVSA 001426 GRIVSB 00143¢ GRSTAT 001410 GTSWR = MY H322J 104406 = 000011 001476 INADR INADRH INDADR INTBIT JOTEST 101811 10T1S1 10TvEC= 012346 013345 013410 001422 003102 003156 003314 000020 TEST MAINDEC=-11-CZDRG-E 31-AUG-79 11:23 4758 G768 873 3944 614 458 632 3948 612 656 462 4“8 424 4«30 436 L4642 MACY1T 306(1063) 31-AyG-79 l 13:05 PAGE 43-2 (ROSS REFERENCE 658+ 630 673 659 674 680 464 522 426 16918 16894 1118# 409 620 638 522¢ 444 TABLE 676 681 652 '690#8 1411 1414 400 1420+ 1415 14094 54Q¢ 550« 16419 14248 678+ 562 807« 695 621 1049 16415 N.T¥] 734 794+ 914 1049+ 1267+« <884 1348+ 490 1361 4«89# 1361+ 491 1386+ 4820 853 1170« 1291 17194 394 403 1493 1520 1523 “87# 556 6708 672 3940 1394 685 1398 1395« 1690 1691 899e 1012¢ 1268« 903 1025 911 1030¢ 1320 915 1041 1614 7240 1022+ 1255 898+ 725 785¢ 902+ 1023 12560 733e 786 910e 1040 1257 16748 16754 16768 16778 16784 16794 398 4854 “834 930 678 683 SEQ 0072 16738 450 3948 == USER SYMBOLS 16808 16814 522 557 674 932 1066+ 1418 676« 745 795¢ 929+ 1065+ 1289+ 680+ 1361« 683« 1386+ 681+ 1386+ 685+ 673 855 1179 1295¢ H o~ "DRV1=-x LOGIC (2ZDRGE PN m”m 1 1 7 149 6 16578 16584 566 569 688« 522+ 942 1086 1459 817+ 964 1090 1661 1473 886 14830 890 999 1225 1004+ 1253¢ 710 771e 877 997+ 1126+ 1413 11750 716¢ 774e 998+ 1224+ G160 1189« 1617 1219¢ 12380 13160 1330+ 1124 1191 1201 1221 12380 1314 1330e 692+ 1123 1190« 1220+ 1258 1316 1317 1330 69c 1125 1192. 1222+ 1238 13150 1330e 1361 820 1150+ 836 11390 Heae 845¢ 1Te0s 696+ 747 806+ 941 1085+« 1293 1122+ 1375« 692+ 819« 700+ 758¢ 808 963+ 1087+ 1294 1140 1385+ 1097« 1193 1313 1100 1218¢ 1318 1517# 1568 582 606 1250 6574 1237 1347« 885+ 1132¢ 1254+ 1353, 717 775 889¢ 1011 1252¢ 1258 1364 1290« r82¢ 1261 1370e 11640 1270s 14430 1271 1548 177774 014142 013652 013554 013750 00140 SWREG 000176 (014044 SWIRAB = 000001 SwO0 4094 1310 3984 587 3944 N—O 2O =0 O S Ss =200 0 & x WTM= el il ) il — — \CA RV AU LU RV LV LV SV ] 1587 1588 1589 1590 1594 1595 1596 1597 1601 1602 1603 1604 690 938 627 888 955 891 960 901 904 — 1161« 1362+ Ly — [3 1367 992 1014 913 1020 916 1037 922 1063 925 11964« 1382« 1203 1387« 1209+ 1226+ 1236+ 644 649 870 1215 1262 1279 1706+ L R 14284 3942 39448 604 581 578 584 n = il el ) — el — b Dl il ) 1446 671 1350 ~ 0o STKLMY= SWOPOB SWINTB SWUNLB SWPOSB SWR 013524 003166 011712 001100 570 1503# 1442 1566 1440 1490 1565 619 1706+ 1714 16714 16684 16694 522¢ 1392 16704 — O S~ — RUNMSG SETADD SETTRP STACK = 1714 1524 643 3944 563 SEQ 007¢ =n 003126 RDCHR = 104410 RDLIN = 104411 RDOCT = 104412 RESVEC= 000010 3948 513 551# 631 1501 517+ 1 L R RBEG2 016452 000024 001514 002132 514 — PO oo~ —lb 0 » L3R 3 2 PWRMSG PWRVEC= RBEG RBEG1 1321 1706 O = 000340 = 177776 = 177776 J 6 MACY11 306(1063) 31-AUG-79 13:05 PAGE 43-3 CROSS REFERENCE TABLE -- USER SYMBOLS 1091 s PR7 ) PSW 3944 394 3944 394L4 3944 3944 3944 3944 3944 394 3944 39448 e 177772 000240 Q000N 000040 000100 000140 000200 000240 000300 VW= PIRQ = PIRQVE= PRO = PR1 = PR2 = PR3 = PR& = PRS = PR6 = NNNO 001372 00'420 001444 1495 604 1692 6«79 1494 4808 16497 “810 1500 1505 497 1471 1472 4734 4728 4LBoN 49648 958 — b NMBEXT NOTLCH ODDJMP 3944 — 001446 013544 013553 001374 4994 — MINSIN MSGRUS MSPNT1 NBEXT 001452 000012 012300 012226 013304 001402 012532 001404 012534 001406 012536 012460 wHo O L NO JUMPER Lf = LOCA LOCBOX LOCHDR LOCY LOCYY L0C2 Loc2y LOC3 LOC3Y LOUPI [SalValV IV I RV TV e ¥ W TV} O—=ODOVO0 N OO — — O = O N NN S O O00—ry DRI11-k LOGIC TEST MAINDEC-11-CZDRG-E (ZORGE .P11 31-AUG-79 11:23 640 DRI1-K LOGIC TEST MAINDEC-11-CZDRG-E CZDRGE .P1Y 31-AUG-T9 11:¢3 Sw00 sw0l sw02 sWw03 sWwo4 SW05 sw06 sw0? SWi8 SWw09 swl sWw10 sSWwil SW12 swi3 SWit SWiS sw2 sw3 = = = = = = = = = = = = 000001 000002 000004 000010 000020 000040 000100 000200 000400 001000 000002 002000 004000 010000 020000 040000 100000 000004 000010 3944 3944 394 394 3940 SWS = sw6 = sWw? = SWw8 = SW9 = TALK TBITVE= TKVEC = TPVEC = 000040 000100 000200 000400 001000 003016 000014 000060 000064 3940 3944 3944 3944 394 577 394 3944 3940 = 000020 TRANST TRAPVE= TRTVEC= TSTNUM 1STH 1ST10 TST11 TST12 1ST13 TST14 TST1S 1ST16 TST17 1ST2 18720 15121 TST22 15123 15726 TS125 18126 15127 113 TST30 1ST31 15132 15733 001450 000034 000014 015242 003372 003734 004020 006116 004214 0064302 004370 004440 004502 003410 004540 004602 Q04644 004742 005026 005112 005176 005356 003446 005536 005654 006014 006410 6 SEQ 0075 3944 3044 3944 3944 3944 3944 3964 3944 3944 3944 3944 3944 = = = = = = = SWws K MACY11 306(1063) 31-AUG-79 13:05 PAGE 43-4 CROSS REFERENCE TABLE =- USER SYMBOLS 3944 3940 1392 538 619 541 626 580 533 586 603 6364 568 522 575+ 1428+ 588 1429+ 594 691 1691 169408 1697+ 3944 498# 3944 3944 1689 6934 7544 7694 777 788 8034 8154 822 831 6984 839 848 858 881 893 906 918 923 703 9864 10084 10344 1056 1690 7804 7914 8254 8344 8424 8524 8694 8844 8974 9094 9214 9514 7064 ‘059 . \ $CDw! $CHARC $CKSWR $CMTAG $CM3 = $CNTLG SCNTLU $CPUOP SCRLF LR R 3 0o O~ —a — — 1589 1590 1593 1576 15840 1605 702 775¢ 838 915 999+ 1179« 710 776 B4br 916+ 1000 1180 1700 LRAR 1594 1595 1596 1597 1600 1601 1602 725+ 796+ 726 734 735 7479 7.8 760+ 829 903« 974 1100¢ 1446 ~ & — — 666 vt 1706 N 642 1703 — 638 ~ & —O ~NwVSnOr — OO0 O~y — — —rnoO FNV ], ] ~N Vo 1588 16084 erenee 020032 020006 020014 020024 001134 001244 001122 001126 001250 016776 017104 001100 000000 017756 017751 001216 001165 1697 1714 » SATYS SATY4L $AUTOB $BASE $BDADR $BDDAT 1386 » SATYC $SATY1 1361 878+ » SASTAT= 001000 1330 - XL010 $APTHD 1238 1700 — 013426 012540 012612 624 1697 VOO0 NN S0 — 00— NWNNNO N XLOHDR XLOTAD N —_— 558 1520 1700 TYPOC = 104402 TYPON = 104404 TYPOS = 104403 003076 002572 013066 N~ LR R R R B NIND = — O N— el i i d el i Wg NN O NN 727 104405 1064401 UNEXPT VECTRP XLOADJ SEQ 0076 8 — TYPDS = TYPE = 010764 011130 003600 003656 L 6 MACY11 306(1063) 31-AUG-79 13:05 PAGE 43-5 CROSS REFERENCE TABLE -- USER SYMBOLS O = = TST151 18152 1576 1817 010404 010566 003542 010646 — 1S746 1S1¢7 TSTY TST150 003504 007312 007424 007562 007674 010062 010252 — 1814 18140 15141 1ST42 1S143 TST44 TST4S 007004 007062 007132 007200 NN NN NPV PNOND b ed ettt e s o0 OO 5~ =2 2005 — O 005 (N— — OO oo 1513¢ 1S135 15136 1S137 NN DR11-x LOGIC TEST MAINDEC-11-CZDRG-E CZDRGE .P11 31-AUG-79 11:23 1051 1284 879+ 942+ 1055 1689 808+ 880 943 1076+ 1691 809 890+ 964¢ 1080 820+ 891 965 1090+ 821 892 96¢ 1C91» — [o -Jo ] ~N -~ — 1697+ 1696+ 1690 1691 1696+ 1697 592 988+ 1036 1108+ 594 743¢ 787 827+ 900+ 933 992 1037« 1178+ 1714 1697« 1700 600+ 746 793 830 901 938 994 1038+ 1248+ 699+ 748 794 835 902 941 997 1039 1269+ 838 905 943 1000 1055 1285+ 844 912+ 948« 1004 1061+ 1689 847 913 957+ 1005+ 1062« 1691 755¢ 792+ 804+ 952+ 987+« 09 405 409# 408 409 17184 409 409 4094 409# 733 776 812+ 888+ 927 973 738+ 782 821 892 931 1022 1096+ 14054 1714604 702 752+ 795 707+ 756+ 797 715+« 759 800+ 718 762 805+ 854+ 914 958 1016 723+ 766+ 806 726 770 807 732« 144 809 887+ 925 966 876+ 917 960 1063« 1019+ 1064 880 924 963 1020+ 1080 1021+ 1088+ 100G+ 1265+ 1282 1696 17184+ 4094 409 1697 4094 409# «09# 4094 «08 —_0 390 4084 17134+ 4094 17064 409# 409# 4094 &09# 522 L 001222 001226 001232 001236 001170 522+ 4094 609# 522 409 4«09 1697 NN $MADR1 $SMADR?2 $MADR3 SMADR4 SMAIL 14054 14054 609# 409# 1401 —O $HIOCT $ICNT $ILLUP $INTAG $I1TEMB SLF SLFLG SLPADR SLPERR 01000 017102 001104 016444 001135 001114 001166 020251 001106 001110 SHIBTS SEQ 0077 1697 522 — $GET42 011314 $GTSWR 017154 $SHD = 000000 16064 4094 409# 16054 14064 406 L. MACY11 306(1063) 31-AUG-79 13:05 PAGE 43-6 CROSS REFERENCE TABLE -- USER SYMBOLS ~NO WSO~ S OUVONNNONNC NS VWA W= =S NNV OO0 WNS ST OO~ 2 NI NI NI N NN PN AN NN A AN O YNJ =2 N = st s NNV = et NV N N =A NI OOOC—=OD=OO =t (O P b s s s (== $OBLK $DEVCY SOEVM $DOAGN $OTBL SENDAD SENDCT $ENDMG SENULL SENV SENVM $EOP $EOPCY SERFLG SERMAX $ERROR SERRPC $ERRTB SERRTY SERTTL SESCAP SETABL SETEND SFATAL $FFLG SFILLC $FILLS $GDADR $GDDAT (=i=d=l=l=lsloleT] OCOO0O0O0OO0O0O0OOO0O DR11-k LOGIC TEST MAINDEC-11-CZDRG-E CIZDRGE.PI 31-AUG-79 11:23 742 1696 1697 171N DR11-K LOGIC TEST SMAMS1 SMANS? $MAMS3 SMAMSL SMBADR SMFLG SMNEW $MSGAD $MSGLG $MSGTY SMSWR SMTYP1 SMTYP2 SMTYP3 001220 001226 001230 001234 001002 020250 017774 001204 001206 001170 017753 001221 001225 001231 609 409 64094 L09 408% 17184+ 17144 L09% 409% 4094 642 L09# 409 409 SMXCNT SNULL 015522 001154 16964 4097 CIDRGE.P1Y SMIYP4 31-AUG-79 11:23 001235 SNWT1ST= 000001 016274 $OCNT $OMODE SOVER 016276 015506 SPASTM SPWRAD 001006 016440 $PASS 001176 $PWRON SPWRMG $PWRUP $QUES SROCHR SRDDEC= SROLIN $RDOCT $RDSZ = SRINAD SR2A = $SAVRE= $SAVR6 $SCOPE 016300 016434 016352 001164 017366 sveree | 017506 017002 000007 011336 sreenr | terxvee | 016450 015244 $SETUP= 000137 $STUP = 177777 $SVLAD 015452 $SVPC = 000240 $SWR = 165400 $SWREG 001212 $SWRMK= 000000 STESTN 001174 MAINDEC-11-CZDRG-E MACYV1 30G6(1063) 31-AUG-79 N 6 13:05 PAGE 43-7 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0078 1718« 1718 1718¢ 17140 409 6934 8254 10594 136464 17034« 17034« 16964 409 4£08# 17064 522 17064 17064 409¢ 17140 1719 17144 17134 17144 14054 1719 1719 17064 522 4a7H La7n 16964 4064 3834 769 921 1212 4094 396 4094 $TIMES 001160 1489# $1xB $1KS 001146 001144 “09F 4098 696+ 171 6984 834n 10844 13634 7064 842N 10954 1389 1148 8524 11074 7224 8694 1118¢ 730# 8844 11388 522 1405+ 1696 1430 17064 1697 1719 171 1714 522 1405 1696 1697 1714 390 396 409 522 693 7610 8974 11634 1544 909# 11874 7694 921a 12124 7804 9514 12614 698 706 714 722 791# 9864 12788 8034 17084 13078 8154 1034# 13348 1719 1719 16964 } 730 780 951 1241 791 986 1278 803 1008 1307 815 1034 1334 825 1059 13646 834 1084 1363 842 1095 1389 852 1107 1405 869 1118 1696 884 1138 1697 522+ 706+ 730+ 791+ 803+ 852 921* 1084¢ 1118+ 1334+ 522 1696 1696+ 1714 714y 761 754 897 1163 1706 909 1187 1389 1405 ol el $1PB $STPFLG 020340 .SASTA= reRERYY = 001000 X — vl #1PS 8 H000O VOO NN — b b ek NNSN 7 MACY11 30G(1063) 31-AUG-79 13:05 PAGE 43-8 CROSS REFERENCE TABLE -- USER SYMBOLS 693 703 788 869¢ 777 8524 9864 1133 1243 10342 1149 1280 SEQ 0079 7064 791# 881 7224 8254 1056 1158 13074 727 831 9094 1092 11874 13634 1095# 1198 13894 1405 14062 7304 76414 8344 839 16834 1696 918 1102 1206 17194 1405+ — STRAP $TRAP? $IRP = $STRPAD $TSTAH $STSTNM $TTYIN 017742 $TYPBN= L2224244 $TYPDS 011360 STYPE 016520 $TYPEC 016752 $STYPEX 017000 $TYPOC 016076 $TYPON 016112 $TYPOS 016052 SUNIT 001202 SUNITM 001010 SUSWR 001214 SVECTI 001240 $VECT? 001262 $XTSTR 015256 $$GET4= 000000 $OFILL 016275 $4L0CAT= steERY s mmm W = 000053 ol e $IN SN NN = O 00 N N = o s NP OO 00— — — — 00— 00 OO DRI1-X LOGIC TEST MAINDEC-11-CZDRG-E CIDRGE.P1Y 31-AUG-79 11:23 1696+ 1697 1719 524 526 1697 L4064 17004 4074 1706 4£08# 17G8# 5584 6218 LOGIC TEST $SCMRE SSCMTM $SESCA SONEWT $$SET $SSETM P $$5k 1601 1602 1603 875 874 1416 692 886 885 899 898 911 910 1012 998 1041 101 1066 1023 1086 1040 1253 1049 1290 1065 1074 1085 1252 1289 1238 1330 1361 1386 596 840 654 849 704 859 72C 894 728 907 1148 1358 737 919 1160 1383 750 935 1174 764 945 778 968 1185 789 799 1002 1208 741 1103 1299 1115 698 706 869 1163 1713 1713 oo 1093 1273 1327 1136 1341 1182 1197 — 1600 nNO VRV ] V] £~ 1597 roro 1596 118 1706 698 706 869 1138 1163 711 719 1212 909 1241 921 1278 754 951 1307 769 986 1334 780 1008 1346 825 1095 730 909 1241 761 921 1278 754 951 1307 769 986 1334 780 1008 1346 1095 777 1027 788 1056 822 1081 ny — o 693 842 1138 1706 897 O oo ~NANO N PO — 693 842 1118 1406 1406 noOo ~ — O N no~no 394n 722 730 8¢5 1095 1406 1107 1696 698 852 1138 1700 1163 1187 1212 1241 1278 754 951 1307 769 986 1334 5224 3944 703 7 719 727 777 788 822 831 693 562 706 869 621 714 884 893 1158 1328 1163 1703 1187 1706 1307 1718 730 909 761 921 780 1008 1346 791 1034 1363 1059 1389 1084 1095 839 848 858 881 893 906 869 884 — 834 ~NPrLO0~N 1118 698 852 1138 1714 4094 409 1107 17194 714 730 909 1261 1713 825 3944 394LN 3944 394 394 3944 3944 3944 3944 834 706 1262 QO O oMo O 409 1251 — 408 1243 — 1206 - 394 394LN 394 803 1059 1389 394 17194 1198 — 1181 1359 967 — 923 — 3944 3944 906 b D) NG 17194 NN Eadn LASE £~ 00 — — SWRSU TRMTRP TYPBIN TYPDEC TYPNAM TYPNUM TYPOCS TYPOCY TYPTXT 3944 1595 —_—~N SLASH SPACE STARS 1107 1594 — SETPRI SETTRA SETUP Sk1P 3944 3944 I04LN 3944 834 1593 nNO~N WO W wN—0O SCOPE 1107 1590 00 OO ~y &~ & POP PLSH REPORT 3944 3944 3874 3944 3944 834 1589 ~N S s MULT NEWTST 1082 1263 1588 N—00~ NN QD — ESCAPE GETPR] GETSWR 3944 3944 3944 832 1587 et CLRVCY COMMEN ENDCOM ERROR SEQ 0080 1586 — CLERIN CLEROT 15784 1604 8664 8624 1412 501# 7 ~~— 00~ — — 0000 — ADJXL 31-AUG-79 11:23 C MACY11 306(1063) 31-AUG-79 13:05 PAGE 44 CROSS REFERENCE TABLE == MACRO NAMES — CZDRGE P MA NDEC-11-CIDRG-E — 00~ Qo OO — DR11-K 754 769 1334 1719 791 1034 1363 624 722 897 803 815 825 DR11-x LOGIC .P 1R CIDRGE .EQUAT .HEADE .SETUP .SWRHI .SWRLO LBALTY .SAPTB .SAPTH SAPTY .SCATC 918 1243 3854 385# 3864 878 3964 388#4 3884 3188# L88# 3854 .SEOP .SERRO .SERRT 3854 385# 3874 LSCATA .SPARM .SPOWE .SRDOC .SREAD .$SAVE .$SCOP .S$SPAC .$5W00 .STRAP .$TYPD .STYPE .STYPD . ABS. ¢ EST MAINDEC-11-CZDRG-E 3 =AUG-7911:23 385# 3864 1864 3874 3864 3864 3864 3864 3864 31864 3874 385# b1 AY 020340 ERRORS DETECTED: 923 1056 1312 1280 394 CORE USED: 25K 1092 390 447 396 606 609n 408 1718 398 409 1405 1697 1700 1706 1713 1714 1696 1719 1406 3864 1703 171 000 (ON 0 CIZDRGE ,C2DRGE/CRF =CZDRGE RUN-TIME. 26 13 RUN-TIME RATIO: 1081 7 0 MACY11 30G(1763) 3.-AUG-79 13:05 PAGE &&= CROSS REFFRENCE TABLE == MACRO NAMES 1 SECONDS 76/42=1.7 (49 PAGES) RW REL GBL 1102 1114 1133 1149 1158 SEQ 0081 1181 1183 1198 1206 1217
Home
Privacy and Data
Site structure and layout ©2025 Majenko Technologies