IMD 1.16: 31/08/2008 23:55:28 f07003 nm4 host, 4/10s interface diagnostic source/jcl diskette 84-93070-03 a0    @0|)v1uo)  " }jA cMIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIOS4 MCC790808181043A3790810002847 790810002847F07003 VOL   IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIM@jjggg@ o G`k򞽢_C# b# }B u[ ]e JRiCp@=<; G9P@ G=y;<": 06OS:: SYS :B⃮ ކIIڣ5; 㜀@+kUƀy@NyC! # ' D+'!ă B # i { 9:7X@AKN1 # ܞ}KΞeE 790808181043790808181043810107115937e@ 790808181043790808181043810107115651eD790808181043790808181043790808181043e790808181043790808181043790808181043790808181043790808181043790808181043e7908091219070079080912191200810107115704deLw7908081818335079080818183650810107115709de a7908081833095079080818334350810107115849  eN7908081821280079080818213075810107115720d eO7908081822332579080818223650810107115726d eQ"B7908081822477579080818225775810107115738d es97908081823095079080818231575810107115747d ez7908081825210079080818252475810107115753de 7908081829347579080818293950810107115801de 7908081831025079080818315600810107115808e `7908081831080079080818315750810107115831e"7908081832150079080818334850810107115838e7908081821102579080818211325810107115715de\(7908081915567579080819163700810107115855e >d7908081916020079080819163850810107115922e^Z7908081917317579080819182425810107115928 e|]7908081918047579080819182025810107115936e8201061435590082010614360275820106143733        4. HOSTSLVSRCEHLPSLVUTLOBJ HLPHOST BIN SLAVE JCL SLAVE MAC HOST ASM SLAVE ASM SLVUTL OBJDEBUGS OBJHOST OBJHOST LSTHOST MAPHOST JCLSLAVE OBJSLAVE LSTSLAVE MAPSLAVE BINHOST JCL  / ** HOSTSLVSRCE.HLP ** / NAKED MINI-4 HOST, 4/10S INTERFACE DIAGNOSTIC / SOURCE/JCL DISKETTE / / HOST.ASM - HOST PROGRAM SOURCE FILE / / SLAVE.ASM - SLAVE PROGRAM SOURCE FILE / / HOST.OBJ - HOST PROGRAM OBJECT FILE / / SLAVE.OBJ - SLAVE PROGRAM OBJECT FILE / / SLVUTL.OBJ - SLAVE UTILITY ROUTINE OBJECT FILE (A0) / / SLVUTLOBJ.HLP - SLAVE UTILITY OBJECT HELP FILE / / DEBUGS.OBJ - NAKED MINI-4 DEBUG OBJECT FILE (C0) / / HOST.BIN - HOST PROGRAM LINKED BINARY FILE / (HOST.OBJ + SLVUTL.OBJ + DEBUGS.OBJ) / / SLAVE.BIN - SLAVE PROGRAM LINKED BINARY FILE / (SLAVE.OBJ + SLVUTL.OBJ) / / SLAVE.MAC - SLAVE PROGRAM MACRO FILE / / HOST.JCL - HOST ASSEMBLY AND LINK JCL FILE / / SLAVE.JCL - SLAVE ASSEMBLY AND LINK JCL FILE / / **NOTE - ALL JCL ASSUMES THIS IS F0. ALL JCL ASSUMES / MACRO AND LINK ON UNIT DM0. / / **NOTE - THIS DIAGNOSTIC REQUIRES D0 OR LATER /  MACRO FOR ASSEMBLY. / FILE (C0) / / HOST.BIN - HOST PROGRAM LINKED BINARY FILE / (HOST.OBJ + SLVUTL.OBJ + D/ ** SLVUTLOBJ.HLP ** / SLAVE UTILITY ROUTINE (SLVUTL) / OBJECT FILE / / SLVUTL CONTAINS COMMANDS WHICH ENABLE THE / USER TO TALK TO A 4/10S SLAVE COMPUTER. / CAPABILITIES INCLUDE ABILITY TO: / -INSPECT/MODIFY 4/10S MEMORY/REGISTERS / -CONTROL 4/10S (START, STOP, SINGLE STEP) / -LOAD 4/10S PRIVATE MEMORY / / / SLVUTL.OBJ - SLVUTL OBJECT FOR LINKING / 790808181043790808181043790808181043AS X1=UF AS UF=DF AS XX=DM1 MACRO HOST(L=) AS LO=DF.HOST.MAP LINK HOST(AB=0,NH)+SLVUTL(UL)+DEBUGS(EX=SLVUTL) AS LO=LP AS UF=X1 / / ENTER C FOR LISTING / PAUSE CO LP=DF.HOST.LST(FL) CO LP=DF.HOST.MAP(FL) JO 790808181043790808181043790808181043  AS X1=UF AS UF=DF AS XX=DM1 MACRO SLAVE(D=SLAVE,L=) AS LO=DF.SLAVE.MAP LINK SLAVE(AB=0,NH)+SLVUTL(UL) AS LO=LP AS UF=X1 / / ENTER C FOR LISTING / PAUSE CO LP=DF.SLAVE.LST(FL) CO LP=DF.SLAVE.MAP(FL) JO 790808181043790808181043790808181043 TITL NM4 HOST, 4/10S INTERFACE DIAG. - SLAVE PROGRAM (93070-11A0) TITL MACROS * * DSPLY: VALUE * XMACRO DSPLY: C:: SET 1%SETCNT;C:: COPY PCOUNT,Y CHECK FOR ALL SECTIONS CBIT SETCNT,Y IFF SETCNT=15 SELP Y,4 COPY Y,PCOUNT ENDC EXCH Y,A CSK A,=C:: NOP HLT SOME OF TEST NOT DONE EXCH Y,A SETCNT SET SETCNT+1 IFT SETCNT=16 INIT: ENDC ENDM * * XMACRO INIT: C:: SET 0 SETCNT SET 0 COPY =0,Y CLEAR SELP Y,4 DISPLAY AND COPY Y,PCOUNT PCOUNT ENDM * SAVE END NT,Y CHECK FOR ALL SECTIONS CBIT SETCNT,Y IFF SETCNT=15 SELP Y,4 COPY Y,PCOUNT ENDC EXCH Y,A CSK A,=C:: NOP HLT SOME OF TEST NOT DONE EXCH Y,A SETCNT SET SETCNT+1 IFT SETCNT=16 INIT: ENDC ENDM * * XMA TITL NM4 HOST, 4/10S INTERFACE DIAG. - HOST PROGRAM (93070-10A0) XMACRO QUART: COPY QATSEC,A JST TIMER WORD #1 JMP $ SPACE 2 ENDM XMACRO OSCDR: ADD =:10,A  COPY A,*SCIR PUT OSCDR IN SLAVE INSTRUCTION REGISTER JST SEND READ #1 REGISTER COPY *SCDR,Q CSK Q,=#2 COMPARE #1REG TO #2 NOP HLT #1REG DOES NOT COMPARE  SPACE 2 ENDM TITL EXTR DEBUG4 ABS :02 FLAGA RES 1,0 FLAGB RES 1,0 ATEMP  RES 1,0 QTEMP RES 1,0 XTEMP RES 1,0 SIXTIC WORD :FFFA QATSEC WORD :FFE2 HAFSEC WORD :FFC4 TWOSEC WORD :FF24 STATSV WORD :0140 SCIR WORD :0100 SLAVE CONTROL INSTRUCTION REGISTER POINTER SCDR WORD :0101 SLAVE CONTROL DATA REGISTER POINTER SCMAR WORD :0102 SLAVE MEMORY ADDRESS REGISTER POINTER SELVAL WORD :00F0 MASK TO SELECT CORRECT 4/10S DV0304 WORD :0304 DV0306 WORD :0306 DV0310 WORD :0310 DBGPNT WORD DEBUG4  SPACE 2 * * CHOSEN HOST INTERRUPT VECTOR LOCATION * ABS :24 JST *$+1 HIACT1 WORD UNEXHI  TITL MISCELANEOUS ROUTINES * * CONSOLE INTERRUPT SERVICE ROUTINE * ABS :40 CISERV EQU $ ENT COPY DV0304,A COPY A,*SCIR PUT STOP IN SLAVE INSTRUCTION REGISTER COPY =1,X COPY SELVAL,Q XNX Q SET FOR CORRECT SLAVE SELP X,:02 STOP THE SLAVE SPACE 2  XNX Q SET FOR CORRECT SLAVE SST :02 TEST FOR SLAVE STOPPED JMP $+2   JMP $-3 COPY DV0310,A COPY A,*SCIR PUT OSCDR PREG IN SLAVE INSTRUCTION REG XNX Q  SET FOR CORRECT SLAVE SELP X,:02 PUT PREG (SLAVE) IN SCDR COPY ATEMP,A RESTORE AREG COPY QTEMP,Q RESTORE QREG COPY XTEMP,X RESTORE XREG HLT JMP *DBGPNT  TITL * * UNEXPECTED HOST INTERRUPT SERVICE ROUTINE * UNEXHI EQU $ ENT COPY A,ATEMP SAVE AREG COPY Q,QTEMP SAVE QREG COPY X,XTEMP SAVE XREG JST CISERV SPACE 2 * *  RTC ACTION SERVICE ROUTINE * TIMOUT EQU $ ENT COPY A,ATEMP SAVE AREG COPY Q,QTEMP SAVE QREG COPY X,XTEMP SAVE XREG JST CISERV TITL * * START ROUTINE * STARTR  EQU $ ENT COPY A,ATEMP SAVE AREG COPY Q,QTEMP SAVE QREG COPY X,XTEMP  SAVE XREG COPY =1,X COPY SELVAL,Q COPY DV0306,A COPY A,*SCIR XNX Q  SELECT CORRECT SLAVE SELP X,:02 START SLAVE PROCESSOR SPACE 2 XNX Q SST :02 JMP $+2 JMP $-3 COPY ATEMP,A RESTORE AREG COPY QTEMP,Q RESTORE QREG COPY XTEMP,X RESTORE XREG JMP *STARTR TITL * * SEND ROUTINE * SEND EQU  $ ENT COPY X,XTEMP SAVE XREG COPY Q,QTEMP SAVE QREG COPY SELVAL,Q  COPY =1,X XNX Q SELECT CORRECT SLAVE SELP X,:02 TURN ON SLAVE SCS BIT XNX Q SELECT CORRECT SLAVE SST :02 JMP $+2 JMP $-3 WAIT FOR SLAVE TO RESET BIT COPY QTEMP,Q RESTORE QREG COPY XTEMP,X RESTORE XREG JMP *SEND TITL INTERRUPT VECTORS ABS :80 * * POWER-UP VECTOR * HLT SPACE 2 ABS :8C * *  POWER FAIL TRAP VECTOR * RES 2,0 HLT RES 2,0 SPACE 2 * * REAL TIME CLOCK INTERRUPT CELLS * RTCNTR WORD :FF24 TWO SECOND COUNT JST *$+1 RTCACT WORD TIMOUT SPACE 2 * *  CONSOLE INTERRUPT VECTOR * JST *$+1 CONACT WORD CISERV TITL TIMER ROUTINE * * TIMER ROUTINE * ABS :B0 TIMER EQU $ ENT COPY A,RTCNTR PUT TIME IN RTC COUNTER COPY *TIMER,A GET ADDRESS OF TIME OUT ROUTINE COPY A,RTCACT PUT ADDRESS IN RTC INTERRUPT IMS TIMER  INCREMENT RETURN POINTER SBIT 5,S ENABLE RTC SBIT 8,S ENABLE INTERRUPTS JMP *TIMER SPACE 2 * * SLAVE CONTROL SERVICE LOCATIONS * ABS :100 RES 1,0 SLAVE CONTROL INSTRUCTION REGISTER RES 1,0 SLAVE CONTROL DATA REGISTER RES 1,0 SLAVE CONTROL MEMORY ADDRESS REGISTER JMP *0 SLAVE STARTING INSTRUCTION TITL MAIN PROGRAM * * START INSTRUCTION *   ABS :110 BEGIN COPY STATSV,A COPY A,S ENABLE INTERRUPTS COPY =0,A COPY A,FLAGA CLEAR FLAG 'A' COPY TWOSEC,A JST TIMER SET TIMER TO TWO SECONDS WORD TIM001  TIME OUT ADDRESS JST STARTR START SLAVE PROCESSOR JMP H00000 SPACE 2 TIM001 ENT  TIME OUT ROUTINE HLT SLAVE DID NOT RESET SCS BIT SPACE 2 H00000 COPY TWOSEC,A JST TIMER RESET TIMER TO TWO SECONDS WORD TIM002 TIME OUT ADDRESS COPY FLAGA,A JEQ A,$-1 WAIT FOR SLAVE TO SET FLAG 'A' JMP H00010 SPACE 2 TIM002 ENT  TIME OUT ROUTINE HLT SLAVE DID NOT START SPACE 2 H00010 RBIT 5,S STOP THE TIMER TITL * * STOP INSTRUCTION * COPY =0,A COPY A,FLAGA RESET FLAG 'A' COPY  SIXTIC,A JST TIMER SIX TICK TIMER (1/20 SECOND) WORD $+3 TIME OUT ADDRESS JST STARTR JMP $ WAIT SPACE 2 ENT COPY HAFSEC,A JST TIMER  SET TIMER FOR HALF SECOND WORD TIM003 TIME OUT ADDRESS COPY =:0304,A STOP INSTRUCTION  COPY A,*SCIR JST SEND STOP SLAVE PROCESSOR JMP $ WAIT FOR TIME OUT SPACE 2 TIM003 ENT TIME OUT ROUTINE COPY FLAGA,A JEQ A,H00100 CHECK FLAG 'A' (RESET IF HALTED) HLT SLAVE DID NOT STOP SPACE 2 H00100 COPY =1,A COPY A,FLAGA SET FLAG 'A' JST STARTR ADVANCE SLAVE TO NEXT TEST JMP H00200 LPOOL TITL * *  OUTPUT FROM REGISTER TO SLAVE CONSOLE DATA REGISTER (OSCDR) * H00200 COPY =:0300,A COPY A,*SCIR PUT OSCDR IN SLAVE INSTRUCTION REGISTER COPY =:FFFF,Q COPY Q,*SCDR MESS UP SLAVE DATA REGISTER JST  SEND SLAVE AREG TO SCDR (SHOULD BE = 0) CSK A,*SCIR NOP HLT SLAVE INSTRUCTION REGISTER MODIFIED SPACE 2 COPY *SCDR,Q JEQ Q,H00210 HLT OSCDR FAILED (SHOULD BE =0) SPACE 2 H00210 JST STARTR GET SLAVE TO NEXT TEST COPY A,*SCIR PUT OSCDR IN SLAVE INSTRUCTION REGISTER JST SEND READ SLAVE AREG COPY *SCDR,Q CSK Q,=:FFFF  COMPARE AREG TO :FFFF NOP HLT AREG DOES NOT COMPARE TITL OSCDR: P,:013E  OSCDR: X,:5555 OSCDR: S,:0140 TITL OSCDR: Q,:AAAA OSCDR: X,:9999 OSCDR: Y,:6666 TITL OSCDR: K,:FFFF JMP H00300 LPOOL TITL * * INPUT TO REGISTER FROM SLAVE CONSOLE DATA REGISTER (ISCDR) * H00300 JST STARTR START SLAVE FOR NEXT TEST COPY =0,A IJNE A,$  DELAY -- WAIT FOR SLAVE COPY =:0301,A COPY A,*SCIR PUT ISCDR IN SLAVE INSTRUCTION REGISTER   COPY =:5555,Q COPY Q,*SCDR JST SEND PUT :5555 INTO SLAVE AREG SPACE 2 COPY  =:0341,A COPY A,*SCIR PUT ISCDR IN SLAVE INSTRUCTION REGISTER SHIFT Q,LO,1 COPY Q,*SCDR  JST SEND PUT :AAAA INTO SLAVE QREG CSK A,*SCIR NOP HLT SCIR HAS BEEN MODIFIED BY ISCDR SPACE 2 COPY =:02F0,A TITL OSCDR: A,:5555 ADD =:30,A  OSCDR: Q,:AAAA TITL * * OUTPUT FROM MEMORY TO SLAVE CONSOLE DATA REGISTER (OMSCDR) * H00400 EQU $  COPY =0,A COPY A,FLAGA RESET FLAG 'A' JST STARTR START SLAVE FOR NEXT TEST COPY FLAGA,A JEQ A,$-1 WAIT FOR SLAVE TO SET FLAG 'A' SPACE 2 COPY =0,Q COPY Q,*SCDR CLEAR SLAVE DATA REGISTER COPY =:302,A COPY A,*SCIR PUT OMSCDR IN SLAVE INSTRUCTION REGISTER JST SEND GET CONTENTS OF CELL01 IN SLAVE PROGRAM, COPY *SCDR,Q PUT THEM INTO THE SLAVE DATA REGISTER, CSK Q,=:AAAA AND CHECK FOR CORRECT VALUE NOP HLT OMSCDR INSTRUCTION FAILED SPACE 2 CSK A,*SCIR NOP HLT SCIR MODIFIED BY OMSCDR INSTRUCTION SPACE 2 COPY =0,Q COPY Q,FLAGA NOTIFY SLAVE TO CONTINUE COPY FLAGA,Q  JEQ Q,$-1 WAIT FOR SLAVE TO FINISH TITL COPY FLAGB,Q JEQ Q,H00410 TEST FOR ERROR HLT SLAVE MEMORY ADDRESS REGISTER MODIFIED SPACE 2 H00410 COPY =0,Q COPY Q,FLAGA NOTIFY SLAVE TO CONTINUE COPY FLAGA,Q JEQ Q,$-1 WAIT FOR SLAVE TO FINISH SPACE 2 JMP H00500 LPOOL TITL * * INPUT TO MEMORY FROM SLAVE CONSOLE DATA REGISTER (IMSCDR) * H00500 EQU $ COPY =0,Y COPY Y,FLAGA RESET FLAG 'A' COPY *SCMAR,X SAVE CURRENT SLAVE MEMORY ADDRESS REGISTER COPY =:AAAA,Q COPY Q,*SCDR PUT :AAAA INTO SLAVE DATA REGISTER COPY  =:0303,A COPY A,*SCIR PUT IMSCDR IN SLAVE INSTRUCTION REGISTER JST SEND CSK A,*SCIR  NOP HLT SCIR MODIFIED BY IMSCDR SPACE 2 CSK Q,*SCDR NOP HLT SCDR MODIFIED BY IMSCDR SPACE 2 COPY X,Q CSK Q,*SCMAR NOP HLT SCMAR MODIFIED BY IMSCDR TITL COPY =:302,A COPY A,*SCIR PUT OMSCDR IN SLAVE INSTRUCTION REGISTER COPY X,*SCMAR RESTORE SLAVE MEMORY ADDRESS REGISTER COPY =:5555,Q COPY Q,*SCDR JST SEND GET MEMORY LOCATION WHICH WAS STORED SPACE 2 COPY *SCDR,Q  CSK Q,=:AAAA COMPARE SCDR TO :AAAA NOP HLT IMSCDR FAILED TITL * * SINGLE STEP (SSTEP) INSTRUCTION * H00600 EQU $ COPY =:0300,A COPY A,*SCIR PUT OSCDR IN SLAVE INSTR UCTION REGISTER JST SEND SPACE 2 COPY *SCDR,Q GET EXPECTED PREG COPY =:0305,A  COPY A,*SCIR PUT SSTEP IN SLAVE INSTRUCTION REGISTER JST SEND EXECUTE SINGLE PROGRAM STEP  SPACE 2 CSK A,*SCIR NOP HLT SCIR MODIFIED BY SSTEP INSTRUCTION SPACE 2 CSK Q,*SCDR NOP HLT SCDR MODIFIED BY SSTEP INSTRUCTION SPACE 2  COPY =:0310,A COPY A,*SCIR JST SEND GET SLAVE PREG SPACE 2 COPY *SCDR,X  CSK Q,X NOP HLT PREG DID NOT MATCH, SSTEP FAILED TITL JST STARTR GET SLAVE TO NEXT TEST COPY =1,Y COPY Y,FLAGA SET FLAG 'A' JMP H01000  LPOOL TITL PART 2 - INTERRUPT COMMUNICATION * * CONSOLE INTERRUPT - CREG BIT 1 * H01000 EQU $ COPY =0,Y COPY Y,FLAGB RESET FLAG 'B' COPY FLAGA,Y JNE Y,$-1 WAIT FOR SLAVE  SPACE 2 COPY =1,A COPY SELVAL,Q XNX Q SELECT CORRECT SLAVE SELP A,:01 INTERRUPT SLAVE COPY FLAGA,Y JEQ Y,$-1 SPACE 2 COPY FLAGB,Y JEQ Y,H01010 CHECK FOR ERROR CONDITION HLT SLAVE DID NOT INTERRUPT SPACE 2 XNX Q  SELECT CORRECT SLAVE SST :01 JMP H01010 HLT SLAVE CONSOLE INTERRUPT BIT SET TITL H01010 EQU $ COPY =0,Y COPY Y,FLAGA RESET FLAG 'A' COPY Y,FLAGB RESET FLAG 'B' TITL * * HOST INTERRUPT - CREG BIT 7 * H02000 EQU $ COPY =H02020,X COPY X,HIACT1 SET INTERRUPT VECTOR COPY HAFSEC,A JST TIMER SET HALF SECOND TIMER WORD H02010 TIME OUT ADDRESS JMP $ WAIT SPACE 2 H02010 ENT HLT  HOST DID NOT GET INTERRUPT SPACE 2 H02020 ENT RBIT 5,S XNX Q SELECT CORRECT SLAVE SST :07 JMP $+2 HLT HOST INTERRUPT BIT NOT RESET SPACE 2 COPY =UNEXHI,X COPY X,HIACT1 RESTORE HOST INTERRUPT ADDRESS TITL * * CREG TEST * H03000 EQU $ QUART: H03010 H03010 ENT COPY *SCDR,Y SAVE SLAVE PREG COPY =:0310,A COPY A,*SCIR PUT OSCDR IN SLAVE INSTRUCTION REGISTER COPY =1,X XNX Q SELECT CORRECT SLAVE  SELP X,:01 SET CONSOLE INTERRUPT QUART: H03020 H03020 ENT SHOULD NOT HAVE SERVICED  XNX Q SELECT CORRECT SLAVE SST :01 JMP $+2 JMP H03030 HLT  CONSOLE INTERRUPT BIT WAS RESET JMP H03090 EXIT TEST TITL H03030 COPY =1,X XNX Q SELP X,:00 SET PROGRAMMED RESET QUART: H03040 H03040 ENT XNX Q SELE CT CORRECT SLAVE SST :01 JMP $+2 JMP H03050 HLT CONSOLE INTERRUPT BIT SHOULD BE SET JMP H03090 EXIT TEST SPACE 2 H03050 COPY =0,X XNX Q SELECT CORRECT SLAVE SELP X,:00 RESET PROGRAMMED RESET JST SEND READ SLAVE PREG COPY *SCDR,Q CSK Q,=:8103 NOP HLT SLAVE PREG SHOULD BE :8203 SPACE 2  COPY =:330,A OSCDR SREG COPY A,*SCIR JST SEND READ SLAVE SREG COPY *SCDR,Q CSK Q,=:40 NOP HLT SLAVE SREG SHOULD BE :40 TITL COPY =1,X  COPY SELVAL,Q XNX Q SELECT CORRECT SLAVE SELP X,:03 SET CREG CLEAR BIT  QUART: H03060 H03060 ENT XNX Q SST :00 JMP $+2 HLT PROGRAMMED RESET BIT NOT RESET SPACE 2 XNX Q SST :01 JMP $+2 HLT CONSOLE INTERRUPT BIT NOT RESET SPACE 2 XNX Q SST :03 JMP $+2 HLT  CREG CLEAR BIT NOT RESET SPACE 2 XNX Q SST :07 JMP $+2 HLT  HOST INTERRUPT BIT NOT RESET TITL H03090 EQU $ COPY Y,*SCDR RESTORE SLAVE PREG COPY =:0311,A COPY A,*SCIR JST SEND RESTORE SLAVE PREG (S03010) SPACE 2 JST STARTR FINISH SLAVE DIAINOSTIC QUART: BEGIN-1 LPOOL RES $;:FF-$&:FF,0 REL $  RES 1,0 END ET SPACE 2 XNX Q SST :07 JMP $+2 HLT  HOST INTERRUPT BIT NOT RESET TITL H03090 EQU $ COPY Y,*SCDR RESTORE SLAVE PREG COPY =:0311,A COPY A,*SCIR JST SEND RESTORE SLAVE PREG (S03010) SPACE 2 JST STARTR FINISH SLAVE DIAINOSTIC QUART: BEGIN-1 LPOOL RES $;:FF-$&:FF,0 REL $  TITL NM4 HOST, 4/10S INTERFACE DIAG. - SLAVE PROGRAM (93070-11A0) TITL INTERRUPT VECTORS * CONSTANTS AND FREQUENTLY USED VARIABLES * ABS :00 RESTRT WORD BEGIN * FLAGA WORD :8002 FLAGB WORD :8003 * SCIR WORD :8100 SCDR  WORD :8101 SCMAR WORD :8102 RTCNTR WORD :8019 * TWOSEC WORD :FF38 HAFSEC WORD :FDA8 CONSTANT (HALF SECOND) QATSEC WORD :FED4 * ATEMP RES 1,0 PCOUNT RES 1,0 STATSV WORD :0140 HIACT1 WORD :0025 HIACT2 WORD :0111 * * UNIMPLEMENTED INSTRUCTION TRAP (:84) * ABS :84 NOP P+1 NOP INSTRUCTION THAT TRAPPED HLT PROGRAM CONTROL HLT * * UNINSTALLED MEMORY TRAP (:88) * NOP UNDEFINED NOP UNDEFINED HLT PROGRAM CONTROL HLT * * POWER FAIL TRAP (:8C) * NOP P+1 NOP INSTRUCTION JST *$+1 PDNLOC WORD PFHALT * * RTC INCREMENT (:91) *   NOP RTCINC WORD :FDA8 INCREMENT LOCATION * * RTC ACTION (:92) * JST *$+1 RTCACT WORD RTSERV * *  CONSOLE INTERRUPT (:94) * JST *$+1 CONACT WORD UNEXCI * * CHARACTER / NUMERIC TRAP (:98) ABS :98 NOP P (EFFECTIVE) NOP INSTRUCTION HLT PROGRAM CONTROL HLT *  STACK EXCEPTION TRAP (:9C) NOP P (EFFECTIVE) NOP INSTRUCTION HLT  PROGRAM CONTROL HLT * SYSTEM,USER AND A/E TRAPS (NOT USED) RES 12,:E0D * * INTERRUPT SERVICE ROUTINES * ABS :40 * POWER FAIL SERVICE ROUTINE * PFHALT EQU $ ENT COPY :8C,A PUT PREG INTO MAILBOX COPY A,*SCDR HLT * * RTC ACTION SERVICE ROUTINE * RTSERV EQU $ ENT COPY A,ATEMP SAVE AREG COPY TWOSEC,A COPY A,*RTCNTR RESTORE HOST TIMER COPY HAFSEC,A COPY A,RTCINC RESTORE OWN TIMER COPY ATEMP,A RESTORE OWN AREG SBIT 5,S ENABLE RTC JMP *RTSERV RETURN * *  UNEXPECTED CONSOLE INTERRUPT * UNEXCI EQU $ ENT COPY =:FFFF,Q SELP Q,4 HLT LPOOL * *  TIMER ROUTINE * TIMER EQU $ ENT RBIT 5,S COPY A,RTCINC COPY *TIMER,A IMS TIMER COPY A,RTCACT COPY =0,A SELP A,:F1 SBIT 8,S SBIT 5,S JMP *TIMER *  TITL SLAVE MAIN PROGRAM ABS :FF HLT USED FOR SYNCHRONIZATION WHEN LOOPING BEGIN EQU  $ INIT: * * START INSTRUCTION * COPY STATSV,A SIN 1 COPY A,S SET STATUS SPACE 2 DSPLY: :0001 SPACE 2 COPY =1,A COPY A,*FLAGA SET FLAG FOR HOST JMP BEGIN  ORG $-1 HLT WAIT FOR HOST TO CATCH UP TITL * * STOP INSTRUCTION * S00100 EQU $  COPY QATSEC,A JST TIMER SET TIMER FOR A QUATER SECOND WORD TIM001 S00110 COPY *FLAGA,A JEQ  A,$-1 WAIT FOR STOP INSTRUCTION JMP S00120 OK SPACE 2 TIM001 ENT TIME OUT ROUTINE  COPY =1,A COPY A,*FLAGA SET FLAG RBIT 5,S STOP CLOCK HLT STOP INSTRUCTION FAILED JMP *TIM001 SPACE 2 S00120 RBIT 5,S STOP CLOCK COPY =0,A COPY =:5555,X COPY =:AAAA,Q COPY =:9999,Y COPY Y,L TITL DSPLY: :0002 SPACE 2 HLT WAIT FOR HOST TITL * * OSCDR INSTRUCTION * S00200 EQU $ COPY STATSV,A SIN 1 COPY A,S  COPY =:FFFF,A COPY A,K SPACE 2 DSPLY: :0003 SPACE 2 COPY =:6666,Y HLT  WAIT FOR HOST JMP S00300 *NOP ME FOR LOOP* COPY =0,A JMP S00200 LPOOL TITL * * ISCDR INSTRUCTION * S00300 EQU $ COPY =0,A COPY =:FFFF,Q * * LOOP PATCH * HLT  JMP S00300 * ORG $-2 NOP NOP * DSPLY: :0004 SPACE 2 HLT WAIT FO R HOST TITL * * OMSCDR INSTRUCTION * JMP S00400 CELL01 WORD :AAAA CELL02 WORD :5555 S00400 EQU $  COPY =CELL01,A COPY A,*SCMAR SET MEMORY ADDRESS COPY =1,Q COPY Q,*FLAGA NOTIFY HOST COPY *FLAGA,Q JNE Q,$-1 WAIT FOR HOST COPY *SCMAR,X CSK A,X COMPARE ACTUAL W/EXPECTED  NOP COPY =1,Q Q=1 MEANS FAILURE COPY Q,*FLAGB COPY =1,Q COPY Q,*FLAGA NOTIFY HOST OF COMPLETION TITL DSPLY: :0005 SPACE 2 COPY *FLAGA,Q JNE Q,$-1 WAIT FOR HOST  JMP S00500 *NOP ME FOR LOOP* COPY =:AAAA,A COPY A,CELL01 COPY =:5555,A COPY A,CELL02 JMP S00400 * TITL * IMSCDR INSTRUCTION * S00500 EQU $ COPY =CELL02,A COPY A,*SCMAR  SET MEMORY ADDRESS COPY =1,Q COPY Q,*FLAGA NOTIFY HOST SPACE 2 DSPLY: :0006 TITL * *  SSTEP INSTRUCTION * S00600 EQU $ COPY =S00610,A HLT JMP $+2 INSTRUCTION EXECUTED BY SSTEP HLT SHOULD NEVER SEE S00610 NOP P REGISTER SHOULD POINT HERE AFTER SSTEP NOP SPACE 2 DSPLY: :0007 SPACE 2 COPY *FLAGA,Q JEQ Q,$-1 WAIT JMP S01000 LPOOL TITL PART 2 - INTERRUPT COMMUNICATION * * SLAVE INTERRUPT - CREG BIT 1 * S01000 EQU $ COPY =:50,A TURN ON XA AND SI BITS SIN 1 COPY A,S SET STATUS COPY =S01020,A COPY A,CONACT SET INTERRUPT LABEL COPY HAFSEC,A JST TIMER HALF-SECOND TIMER WORD S01010 SPACE 2 DSPLY: :0008 SPACE 2 COPY =0,Q COPY Q,*FLAGA NOTIFY HOST JMP $ WAIT TITL S01010 ENT TIME OUT ROUTINE RBIT 5,S STOP CLOCK COPY =1,X COPY X,*FLAGB SET FLAGB (ERROR) JMP S01030 SPACE 2 S01020 ENT INTERRUPT ROUTINE RBIT 5,S STOP CLOCK S01030 SELP  Q,:FF RESET HI BIT SPACE 2 DSPLY: :0009 SPACE 2 COPY =1,A COPY A,*FLAGA NOTIFY HOST TITL * * HOST INTERRUPT - CREG BIT 7 * S02000 EQU $ COPY =0,A SELP A,:F9 TURN OF INTERRUPT SBIT 8,S EIN COPY =UNEXCI,A COPY A,CONACT SET NEW INT LABEL COPY HIACT1,A SELP A,:FF INTERRUPT HOST SPACE 2 DSPLY: :000A SPACE 2 JMP S03000 LPOOL TITL * * CREG TEST * S03000 EQU $ COPY =S03010,A COPY A,*SCDR DESIRED PREG SENT TO HOST SPACE 2  DSPLY: :000B TITL HLT SPACE 2 S03010 EQU $ COPY STATSV,A SIN 1 COPY A,S RESET STATUS SPACE 2 DSPLY: :000C SPACE 2 JMP BEGIN-1 * LPOOL RES $;:FF-$&:FF,0 REL $ RES 1,0 END LY: :000A SPACE 2 JMP S03000 LPOOL TITL * * CREG TEST * S03000 EQU $ COPY =S03010,A COPY A,*SCDR DESIRED PREG SENT TO HOST SPACE 2  JSLVUTL O0SEGMENTBLANK oige SLVUTL(A0)  6  y() %'X+x %' 9 ^ > S * E*JSMIXZQ  ׊  +Z/<8G  |@ )%'߼@+ރvonop  ({9y  A :@1nrn  @{Ǻֺ ׺̺ S Z H K  36 0U , QM⑼@L7 -⋼@2D/dcp  )C $C $x瞁 ɓ5 6 ῕&jm ւ̇Ӿw ST/\Up tx m6 kj a`! @ Ơ Ÿ C C |–rAPX SQLYK (и+ޞy ¾ή.1bVd> 6 b__ȾϞYSHU/W ͇ˇ·>H"= DB6> 54~ .Ă+B*/ +=@\  x   x ! -zx ,,|V , |Q,  ()⥾ @    I% 'ޏލo@ F@ ]\ ,Z( _{   (o O D  I 1ކo^e-./  |zy@w@+kނzp eÜ@ F +kw‹ӌ }ӄ ̀΀  96" s "I6=I 6"q 0z  }.)6xyox   x ! -zx ,,|V , |Q,  ()⥾ @    I% 'ޏލo@ F@ ]\ ,Z( _{   (o O D  I 1ކo^e-./  |zy@w@+kނzp eÜ@ F +kw‹ӌ }ӄ JDEBUG4 O0SEGMENTBLANK oUKG:Z G:Y G:X KG:W G:V G:U KG:T G:S G:R KG:Q G:P G:O KG:N G:M G:L KG:K G:J G:I KG:H G:G G:F KG:E G:D G:C KG:B  G:A G:9 KG:8 G:7 G:6 KG:5 G:4 G:3 KG:2 G:1 G:0 ig  ~̞ #1T V <?n 'j_< BS{|}T> UXW T ( :ӂF - :ӂ" )  U  ȦpP0 @0 B ` h } cD «⫂ pP0/o D E B U G 4  C 0 ӟi 7} t#t"t!t ttttttttttttttttttt t t t t ttttttttt  ӂzӾ P AC Q@ X= Y:ԽѾ K3 L0 S- D* C'ԟK =ӟ{  } ӟ|" ǽ *ٽ҆ N A Gҽ؆WV9  R Ƥ D V Wƚ›LB LCLFLLLSLJLI LGLRLZߝ Ǟ6  )}҆{҆u   łt P Lłj T P Bم P ӂ\  W H TŅ Ğ|QEI , , `솂՟  _% ` J BK e䞁ւ iޠ @ޞ ޜ `@E ;RA@E N@Aޏǎ Qފ ,_?  o| xa D `랤QY kV*S ` Ѐ[Ѐ āV@AĄ܃ B `ǁ D임*F] O. `Ģ,**$ "r "Bƽ ۽ֽˁC凑ā  / XŃ ѽ i ]с䆫@ڃ۽ BǢ ,ž[ + - * X /KJƎ ^[{ xނ Z ,ş| ֽ L Ձ Pم  с䇏ȆŃ۽{ ўq!!  k Gާ}ަy ޠ}y E _  . Ӄ E _  . ޾ރfN  ,Žֆs@FC kqLL (w{u  _ޘJQB[y L S TўON   Jsˆzx\ | IƎ> ,ŽƇ , ƂpIưk , ,Htr  Hm -ņց - ņCB\\ÂF -tт5ڃ3Ԟx  ’@"Fz@ Ό F ō lR# 䆠.bƝޙޖ JQ!’ފ ދJQĽ %ӂԞu  U B * ӂGo h  fe "cIaM K  Y&V&RR `Q KL$kK N =ӂDD GӂA   :Ӟ ӟL  ǟ{ y9 u    : w ® 0C C  96C C "0 `j  •墒C "C t C I6  W  + 3   A ^p H x  QA p  o   h    a   Z    S   L   E   >  UU> @ff.  r ( N #    b 0   [   >I  M   IQ>QA  IQ>Ai 3    @  h        @+ i p^iq C q>qE C   i% "    WC  )T%0  P )C $;  C  )C $I  C  )C $.  ' M@ ) C $g C   C  C  C   $0yiQU $ COPY Y,*SCDR RESTORE SLAVE PREG COPY =:0311,A COPY A,*SCIR JST SEND RESTORE SLAVE PREG (S03010) SPACE 2 JST STARTR FINISH SLAVE DIAINOSTIC QUART: BEGIN-1 LPOOL RES $;:FF-$&:FF,0 REL $ IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII  IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII! IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII" IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII# IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII25 0477 COPY X,HIACT1 RESTORE HOST INTERRUPT ADDRESS 1PAGE 0027 MACRO (D0) NM4 HOST, 4/10S INTERFACE DIAG. - HOST PROGRAM (93070-10A0) 1979/08/08 18:31:47.50 PART 2 - INTERRUPT COMMUNICATION 0479 *  0480 * CREG TEST 0481 * 0000022C 0482 H03000 EQU $ 022C 8008 0008 0483 COPY QATSEC,A 022D BFD4 0282 0483+ JST TIMER 022E 0230 0483+ WORD H03010 022F 9E7F 022F $  0483+ JMP $ 0230 0E0D 0484 H03010 ENT 0231 E10D 000D 0485 COPY *SCDR,Y SAVE SLAVE PREG 0232 8250 0203 0486 COPY =:0310,A 0233 850C 000C 0487 COPY A,*SCIR PUT OSCDR IN SLAVE INSTRUCTION REGISTER 0234 2901 0488 COPY =1,X 0235 430A 0489 XNX Q SELECT CORRECT SLAVE 0236 2401 0490 SELP X,:01 SET CONSOLE INTERRUPT 0237 8008 0008 0491  COPY QATSEC,A 0238 BFC9 0282 0491+ JST TIMER 0239 023B 0491+ WORD H03020 023A 9E7F 023A 0491+ JMP $ 023B 0E0D 0492 H03020 ENT SHOULD NOT HAVE SERVICED 023C 430A  0493 XNX Q SELECT CORRECT SLAVE 023D 0601 0494 SST :01 023E 9E81 0240 0495 JMP $+2 023F 9E82 0242 0496 JMP H03030 0240 0E0D 0497 HLT CONSOLE INTERRUPT BIT WAS RESET 0241 9EB6 0278 0498 JMP H03090 EXIT TEST 1PAGE 0028 MACRO (D0) NM4 HOST, 4/10S INTERFACE DIAG. - HOST PROGRAM (93070-10A0) 1979/08/08 18:31:49.25 PART 2 - INTERRUPT COMMUNICATION 0242 2901 0500 H03030 COPY =1,X 0243 430A 0501 XNX Q 0244 2400 0502 SELP X,:00 SET PROGRAMMED RESET 0245 8008 0008 0503 COPY QATSEC,A 0246 BFBB 0282 0503+ JST TIMER 0247 0249  0503+ WORD H03040 0248 9E7F 0248 0503+ JMP $ 0249 0E0D 0504 H03040 ENT 024A 430A 0505 XNX Q SELECT CORRECT SLAVE 024B 0601 0506 SST :01 024C 9E81 024E 0507 JMP $+2 024D 9E82 0250 0508 JMP H03050 024E 0E0D 0509 HLT  CONSOLE INTERRUPT BIT SHOULD BE SET 024F 9EA8 0278 0510 JMP H03090 EXIT TEST 0250 2900 0512 H03050 COPY =0,X 0251 430A 0513 XNX Q SELECT CORRECT SLAVE 0252 2400 0514  SELP X,:00 RESET PROGRAMMED RESET 0253 BF2E 0202 0515 JST SEND READ SLAVE PREG 0254 C10D 000D 0516 COPY *SCDR,Q 0255 FAAD 0283 0517 CSK Q,=:8103 0256 0000 0518 NOP 0257 0E0D 0519 HLT SLAVE PREG SHOULD BE :8203 0258 82AB 0284 0521 COPY  =:330,A OSCDR SREG 0259 850C 000C 0522 COPY A,*SCIR 025A BF27 0202 0523 JST SEND  READ SLAVE SREG 025B C10D 000D 0524 COPY *SCDR,Q 025C 4D40 0525 CSK Q,=:40 025D 0000  0526 NOP 025E 0E0D 0527 HLT SLAVE SREG SHOULD BE :40 1PAGE 0029 MACRO (D0) NM4 HOST, 4/10S INTERFACE DIAG. - HOST PROGRAM (93070-10A0) 1979/08/08 18:31:52.00 PART 2 - INTERRUPT COMMUNICATION 025F 2901 0529 COPY =1,X 0260 C00F 000F 0530 COPY SELVAL,Q 0261 430A 0531 XNX  Q SELECT CORRECT SLAVE 0262 2403 0532 SELP X,:03 SET CREG CLEAR BIT 0263 8008 0008 0% 533 COPY QATSEC,A 0264 BF9D 0282 0533+ JST TIMER 0265 0267 0533+ WORD H03060 0266 9E7F 0266 0533+ JMP $ 0267 0E0D 0534 H03060 ENT 0268 430A 0535 XNX Q 0269 0600 0536 SST :00 026A 9E81 026C 0537 JMP $+2 026B 0E0D 0538 HLT  PROGRAMMED RESET BIT NOT RESET 026C 430A 0540 XNX Q 026D 0601 0541 SST  :01 026E 9E81 0270 0542 JMP $+2 026F 0E0D 0543 HLT CONSOLE INTERRUPT BIT NOT RESET 0270 430A 0545 XNX Q 0271 0603 0546 SST :03 0272 9E81 0274 0547  JMP $+2 0273 0E0D 0548 HLT CREG CLEAR BIT NOT RESET 0274 430A 0550  XNX Q 0275 0607 0551 SST :07 0276 9E81 0278 0552 JMP $+2 0277 0E0D 0553 HLT HOST INTERRUPT BIT NOT RESET 1PAGE 0030 MACRO (D0) NM4 HOST, 4/10S INTERFACE DIAG. - HOST PROGRAM (93070-10A0) 1979/08/08 18:31:54.25 PART 2 - INTERRUPT COMMUNICATION 00000278 0555 H03090 EQU $ 0278 E50D 000D 0556 COPY Y,*SCDR RESTORE SLAVE PREG 0279 828B 0285 0557 COPY =:0311,A 027A 850C 000C 0558 COPY A,*SCIR 027B BF06 0202 0559 JST SEND RESTORE SLAVE PREG (S03010)  027C BF07 0204 0561 JST STARTR FINISH SLAVE DIAINOSTIC 027D 8008 0008 0562 COPY QATSEC,A 027E BF83 0282 0562+ JST TIMER 027F 010F 0562+ WORD BEGIN-1 0280 9E7F 0280 0562+  JMP $ 0005 0563 LPOOL 0281 0224 H02020 0282 00B0 TIMER 0283 8103 0284 0330 0285 0311 0286 0000 0564 RES $;:FF-$&:FF,0 02FF 0001 0565 REL $ 02FF 0000 0566 RES 1,0 0567 END 0000 ERRORS (0000) 0000 WARNINGS (0000) OST, 4/10S INTERFACE DIAG. - HOST PROGRAM (93070-10A0) 1979/08/08 18:31:54.25 PART 2 - INTERRUPT COMMUNICATION 00000278 0555 H03090 EQU $ 021PAGE 1 79/08/08 18:32:23 LINK (A4) SO FILE = HOST BIN SI FILE = HOST OBJ SA FILE(S) = SLVUTL OBJ(UL) DEBUGS OBJ STATUS  = ABSOLUTE WITHIN MEMORY LIMITS NO UNRESOLVED SECONDARIES LOAD OFFSET = 0000 TRANSFER ADDRESS = 0300 MAIN MEMORY LIMITS = 0000-FFFF (REL AREA 1) BLANK (0000-0D54R - RAM) 0300....SLVUTL 0600....DEBUG4 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  MISSING = G:4 G:E G:V G:Q G:L G:6  G:G G:X G:1 G:B G:S G:N G:8  G:I G:Z G:3 G:D G:U G:P G:K &  G:5 G:F G:W G:0 G:A G:R G:M  G:7 G:H G:Y G:2 G:C G:T  G:O G:9 G:J AS X1=UF AS UF=DF AS XX=DM1 MACRO HOST(L=) AS LO=DF.HOST.MAP LINK HOST(AB=0,NH)+SLVUTL(UL)+DEBUGS(UL,EX=SLVUTL) AS LO=LP AS UF=X1 / / ENTER C FOR LISTING / PAUSE CO LP=DF.HOST.LST(FL) CO LP=DF.HOST.MAP(FL) JO 790808181043790808181043790808181043IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII' IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII( IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII) IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII* IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIO0SEGMENTBLANK o U $@$%T@>  )C $C | C $  g b ) C $C |n )C $C |r  $Y@ _}_{Ux] 0    !>  W + 3  A ^pÅ H x  QA p o   h   a   Z   S    L   E   >  UU>@ff.  r ( N #    b 0   [  >I  M  IQ>QA IQ>Ai3   @  h       @+ ip^iq C q>qE C  i% "   WC  )T%0 P )C $; C  )C $I C  )C $.  ' M@ )C $g C  C  C  C  $0yne SLVUTL(A0) ̿ 6 y()%'X+x %' 9^ > S * E*JSMIXZQ ׊ +Z/<8G |@)%'߼@+ރvonop ({9y  A :ʼ@1nrn @{Ǻֺ׺̺'S Z H K  36 0оU ,ӾQM⑼@L7 -⋼@2D/dcp )C $C $x瞁ɓ5d 6῕&jm ւ̇ӾwST/\Uptx m6kja`! @ Ơ ŸC C |–rAPXSQLYK/(и+ޞyƿ ¾ή.1bVd> 6b__ȾϞYSHU/WS͇ˇ·>H"=DB6> 54~.Ă+B*/+=@\ x   x !-zx ,,|V. , |Q, ()⥾@    I%'ޏލo@ F@ ]\ ,Z(& _{  (o O D  I 1ކo^e-./ |zy@w@+k+ ނzpEeÜ@ F+kw‹ӌ }ӄ ̃΃ 96"s "I6=I6"q 0z  }.)6xyo. ~̞ #1TV <?n'j_<BS{|}T>UXW T ( :ӂF - :ӂ" )  U ȦpP0 @0B ` h }cD «⫂pP0/o D E B U G 4 C 0 ӟi 7} ӂzӾ P AC Q@ X= Y:ԽѾ K3 L0 S- D* C'ԟK =ӟ{ } ӟ|" ǽ *ٽ҆ N A Gҽ؆WV9 R Ƥ D V Wƚ›LBLCLFLLLSLJLILGLRLZߝ Ǟ6 )}҆{҆u łt P Lłj T P Bم P ӂ\ W H TŅ Ğ|QEI , , `솂՟ _ٟ% ` J BKe䞁ւ iޠ @ޞޜ `@E ;RA@EN@Aޏǎ Qފ ,_?I o| xa D `랤QYkV*S` Ѐ[Ѐ āV@AĄ܃ B `ǁ D임*F]O. `Ģ,**$ "r "Bƽу۽ֽˁC凑ā / XŃ ѽ۞i ]с䆫@ڃ۽ցBǢ ,ž[ + - * X /KJƎ^[{ xނZ ,ş| ֽL Ձ Pم ޽с䇏ȆŃ۽{ ўq ! ! kキGާ}ަyޠ}y E _  .Ӄ E _  .޾ރfN ,Žֆs@FC kqLL (w{u _ޘJQB[y L S TўON  Jsˆzx\| IƎ> ,ŽƇ ,ƂpIưk , ,Htr Hm -ņց -ņCB\\ÂF -tт5ڃ3Ԟx ’@"Fz@ Ό F ō lR#䆠.bƝޙޖJQ!’ފދJQĽ %ӂԞu U B * ӂGo h fe "cIaM K Y&V&RR `QKL$kK N =ӂDD GӂA   :Ӟ ӟL ǟ{ y9u    :w ® 0C C 96C C "0  `j •墒C "C tC I6 W  zW ¡P` `d h  h 0p `. d h  h m QUUff H |I `>d h  h  UUIQ+ II `Nd h   hQQcNbbI  `^d h ? h   `nd h   hQ>VW P0 ! `~d h   hI W) WD `d h h    M  `d h  h  `d h h 0 `d h h i 1,0 END LY: :000A SPACE 2 JMP S03000 LPOOL TITL * * CREG TEST * S03000 EQU $ COPY =S03010,A COPY A,*SCDR DESIRED PREG SENT TO HOST SPACE 2 1PAGE 1 79/08/08 19:17:40 LINK (A4) SO FILE = SLAVE BIN SI FILE = SLAVE OBJ SA FILE(S) = SLVUTL OBJ(UL) STATUS = ABSOLUTE  WITHIN MEMORY LIMITS NO UNRESOLVED SECONDARIES LOAD OFFSET = 0000 TRANSFER ADDRESS = 0200 MAIN MEMORY LIMITS = 0000-FFFF (REL AREA 1) BLANK (0000-04FFR - RAM) 0200....SLVUTL 6  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * NO ERRORS OR WARNINGS ]7908081918047579080819182025IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII7 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII8 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII9 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII: IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIO0SEGMENTBLANK o 8@%    @DM      @ ʅ  ǀ Uw HD  W|{ Uu id 0 `d h  h n: > W zW ¡P` `d h  h 0p `.d h  h mQUUff H |I@ `>d h  h UUIQ+II `Nd h  hQQcNbbI `^d h ? h  j `nd h  hQ>VW P0! `~d h  hI W) WD `d h h   M  `d h h `d h h 0 `d h h ne SLVUTL(A0)  ̿ 6 y()%'X+x %' 9^ > S * E*JSMIXZQ ׊ +Z/<8G |@)%'߼@+ރvonop ({9y  A :ʼ@1nrn @{Ǻֺ׺̺'S Z H K  36 0оU ,ӾQM⑼@L7 -⋼@2D/dcp )C $C $x瞁ɓ5d 6῕&jm ւ̇ӾwST/\Uptx m6kja`! @ Ơ ŸC C |–rAPXSQLYK/(и+ޞyƿ ¾ή.1bVd> 6b__ȾϞYSHU/WS͇ˇ·>H"=DB6> 54~.Ă+B*/+=@\ x  x !-zx ,,|V. , |Q, ()⥾@    I; %'ޏލo@ F@ ]\ ,Z(& _{  (o O D  I 1ކo^e-./ |zy@w@+kނzpEeÜ@ F+kw‹ӌ }ӄ ̂΂ 96"s "I6=I6"q 0z  }.)6xyoQM⑼@L7 -⋼@2D/dcp )C $C $x瞁ɓ5d 6῕&jm ւ̇ӾwST/\Uptx m6kja`! @ Ơ ŸC C |–rAPXSQLYK/(и+ޞyƿ ¾ή.1bVd> 6b_/ ** HOSTSLVSRCE.HLP ** / NAKED MINI-4 HOST, 4/10S INTERFACE DIAGNOSTIC / SOURCE/JCL DISKETTE / / HOST.ASM - HOST PROGRAM SOURCE FILE / / SLAVE.ASM - SLAVE PROGRAM SOURCE FILE / / HOST.OBJ - HOST PROGRAM OBJECT FILE / / SLAVE.OBJ - SLAVE PROGRAM OBJECT FILE / / SLVUTL.OBJ - SLAVE UTILITY ROUTINE OBJECT FILE (A0) / / SLVUTLOBJ.HLP - SLAVE UTILITY OBJECT HELP FILE / / DEBUGS.OBJ - NAKED MINI-4 DEBUG OBJECT FILE (C0) / / HOST.BIN - HOST PROGRAM LINKED BINARY FILE / (HOST.OBJ + SLVUTL.OBJ + DEBUGS.OBJ) / / SLAVE.BIN - SLAVE PROGRAM LINKED BINARY FILE / (SLAVE.OBJ + SLVUTL.OBJ) / / SLAVE.MAC - SLAVE PROGRAM MACRO FILE / / HOST.JCL - HOST ASSEMBLY AND LINK JCL FILE / / SLAVE.JCL - SLAVE ASSEMBLY AND LINK JCL FILE / / **NOTE - ALL JCL ASSUMES THIS IS F0. ALL JCL ASSUMES / MACRO AND LINK ON THE SF UNIT. / / **NOTE - THIS DIAGNOSTIC REQUIRES D0 OR LATER / MACRO FOR ASSEMBLY. / LE (C0) / / HOST.BIN - HOST PROGRAM LINKED BINARY FILE / (HOST.OBJ + SLVUTL.OBJ + DOVicEdDano U׾ ~̞ #1TV <?n'j_<BS{|}T>UXW T ( :ӂF - :ӂ" )  U ȦpP0 @0B ` h }cD «⫂pP0/o D E B U G 4 C 0 ӟi 7} ӂzӾ P AC Q@ X= Y:ԽѾ K3 L0 S- D* C'ԟK =ӟ{ } ӟ|" ǽ *ٽ҆ N A Gҽ؆WV9 R Ƥ D V Wƚ›LBLCLFLLLSLJLILGLRLZߝ Ǟ6 )}҆{҆u łt P Lłj T P Bم P ӂ\ W H TŅ Ğ|QEI , , `솂՟ _ٟ% ` J BKe䞁 iޠ @ޞޜ `@E ;RA@EN@Aޏǎ Qފ ,_? o| xa D `랤QYkV*S` Ѐ[Ѐ āV@AĄ܃ B `ǁ D임*F]O. `Ģ,**$ "r "Bƽ۽ֽˁC凑ā / XŃ ѽ۞i ]с䆫@ڃ۽ցBǢ ,ž[ + - * X /KJƎ^[{ xނZ ,ş| ֽL Ձ Pم ޽с䇏ȆŃ۽{ ўq!! kキGާ}ަyޠ}y E _  .Ӄ E _  .޾ރfN ,Žֆs@FC k< qLL (w{u _ޘJQB[y L S TўON  Jsˆzx\| IƎ> ,ŽƇ ,ƂpIưk , ,Htr Hm -ņց -ņCB\\ÂF -tт5ڃ3Ԟx ’@"Fz@ Ό F ō lR#䆠.bƝޙޖJQ!’ފދJQĽ %ӂԞu U B *  ӂGo h fe "cIaM K Y&V&RR `QKL$kK N =ӂDD GӂA   :Ӟ ӟL ǟ{ y9u    :w ® 0C C 96C C "0 `j •墒C "C tC I6  )C $C | C $  g b ) C $C |n )C $C |r  $Y@ _}_{Uxv 0    !>  W + 3  A ^pÅ H x  QA p o   h   a   Z   S   L   E   >  UU>@ff.  r ( N #    b 0   [  >I  M  IQ>QA IQ>Ai3   @  h      @+ ip^iq C q>qE C  i% "   WC  )T%0 P )C $; C  )C $I C  )C $.  ' M@ )C $g C  C  C  C  $0ymF1EBE5E3--E3E1 IƱ ² ¨N ‚çަ| } Kz = g# hƿcQHUbQÎaA¶snQBzx } @ydK@_Fs? V;8HgKeI 3Q IIZ@ZI A=; 7 6 31w BK . IJQs %ӂ" ԟx $@$%TJDBG4:CNTDBG4:LP DEBUG4 O0SEGMENTBLANK DEBUG: o MG:Z G:Y G:X MG:W G:V G:U MG:T G:S G:R MG:Q G:P G:O MG:N G:M G:L MG:K G:J G:I MG:H G:G G:F MG:E  G:D G:C MG:B G:A G:9 MG:8 G:7 G:6 MG:5 G:4 G:3 MG:2 G:1 G:0 im MACRO (F100) ig  ~֞8O] &Ea3x _|l* | } ~gҡ# A ` Q T ( :ӂ< - :ӂ" )  m*** DEBUGS.OBJ - REV E8m00 ***  pP0 @0B բ` h  } c= ¢‚ pP0/o  X)C $ `)C ")P C ")C " `m D E B U G 4 E 8 0 0 ӟe  }u#u"u!u uuuuuuuuuuuuuuuuuuu u u u u uuuuuuuuu  ӂzӾ P AC Q@ X= Y:ԽѾ K3 L0 S- D* C'ԟK =ӟ{  } ӟ| @)C " )PC ")C " `r"  *ٽ҆ Y Q  A Gҽ؆ R Ƥ D V W ƚ›LBLCLFLLLS LJLILGLRLZߝ Ǟ< !} {҆u łt P L łj T P BŁ P ӂY T H TŅ Ğ| QEF , , ` ՟ _ٞ0 6} ` J B YK QJ f䞁ւ cޡ @ ޟޝ `@E ; RA@EN@Aޏǎ Qފ ,^:F & o*| x ` D `랞oY* Qd Ѐ_Ѐ āZ@AĄ܃T B ` ǁ D임*L_U3 ` Ģ1*/) 'r "Bƽу۽ֽ C凑ā / X Ń ѽ۞i Ğ] с䆫@ڃ۽ցBǢ ,ž[ + - * X /KJƎ^ [{ xނZ  ,ş| ֽL  P ޽с ۽۽޺{  ўq kɆȂ Gާ}ަyޠ }y E ~  .  E ~  .ޣ ރfN  ,Žֆs@FC  kqLL (w{u  ^|JQBZy L S TўNM   Isľˆ_]] | IƎ> ,ŽƇ , ƂpIưk , ,Htr H m -ņց - ('\\ÂF - tтڃԞx ’ @"Fz@ Ό F ō l# .bƝޙޖJ Q!’ފދ JQĽ %ӂԞu  U B * ӂGo h f e "cIaM K Y &V&RR `QK L$kK N =ӂDD G ӂA   :Ӟ ӟL  ӟ{ y9 u    :ӂw  @0ƵQ¾ˢ̂ C C 96C C " z a ࢜0 `a ´C  /6 C C 6 C  C 6C h  Q¾{”C "C C  I6 @C $e)"C "C ! 6 )#C "C ! 6C @S ` e @0/LALLLS LZ‰LTLPLBg پ x s 0@žTg z Q@/@  6=". 1@ ` i Iyyy x R  G , ; + - * / X _1]\IW`  RRR -@A@KJ@ JH +O -M * / X?  `YҾ B ` R-҆, , +& N  I +KL v `p `rPA QXYKLSDC Z A 9 0 n C F =  t ,Ɲ ,ƙ ˽•䆒ޏJQ ` Tѝ Žp@ ʽт TB۝ľ@L@|LO LmLo׾  `LpJ RbC ߞݞ [ }  ޟ} @ƹw r·Q†BL Lreޣޤsg3  P@™b@ `@   ` @P `l ނ} .ry  qvt y j 6 fdv  s`z fZYy a[ľ⟄ Cӝ  IOH0zr(E `  <;C TK@ԝĽ M Ӄ/ԝ  6I6;6D6 666""d  "96=96"q  "I6=I6" qp 0||  y0 `{ 6}  `  L o , ,Ūߦ `Aņ V IP΃͆˃  QJ @  } }IPNÂA KK ՂF  IƱ ²  ¨N ‚çަ|   } KzW  # hƿcQH UbQÎaA¶snQBz x } @ydK @_Fs?  V;8HgKeI 3Q IIZ@ZI A= ; 7 6 31w  BK . IJQs  %ӂ" ԟx L o , ,Ūߦ `Aņ V IP΃͆˃  QJ @  } }IPNÂA KK ՂF  IƱ ²  ¨N ‚çަ| O0SEGMENTBLANK o U $@$%T@>  )C $C | C $  g b ) C $C |n )C $C |r  $Y@ _}_{Ux] 0    !>  W + 3  A ^pÅ H x  QA p o   h   a   Z   S    L   E   >  UU>@ff.  r ( N #    b 0   [  >I  M  IQ>QA IQ>Ai3   @  h       @+ ip^iq C q>qE C  i% "   WC  )T%0 P )C $; C  )C $I C  )C $.  ' M@ )C $g C  C  C  C  $0yne SLVUTL(A0) ̿ 6 y()%'X+x %' 9^ > S * E*JSMIXZQ ׊ +Z/<8G?  |@)%'߼@+ރvonop ({9y  A :ʼ@1nrn @{Ǻֺ׺̺'S Z H K  36 0оU ,ӾQM⑼@L7 -⋼@2D/dcp )C $C $x瞁ɓ5d 6῕&jm ւ̇ӾwST/\Uptx m6kja`! @ Ơ ŸC C |–rAPXSQLYK/(и+ޞyƿ ¾ή.1bVd> 6b__ȾϞYSHU/WS͇ˇ·>H"=DB6> 54~.Ă+B*/+=@\ x   x !-zx ,,|V. , |Q, ()⥾@    I%'ޏލo@ F@ ]\ ,Z(& _{  (o O D  I 1ކo^e-./ |zy@w@+kނzpEeÜ@ F+kw‹ӌ }ӄ ̃΃ 96"s "I6=I6"q 0z  }.)6xyo. ~̞ #1TV <?n'j_<BS{|}T>UXW T ( :ӂF - :ӂ" )  U ȦpP0 @0B ` h }cD «⫂pP0/o D E B U G 4 C 0 ӟi 7} ӂzӾ P AC Q@ X= Y:ԽѾ K3 L0 S- D* C'ԟK =ӟ{ } ӟ|" ǽ *ٽ҆ N A Gҽ؆WV9 R Ƥ D V Wƚ›LBLCLFLLLSLJLILGLRLZߝ Ǟ6 )}҆{҆u łt P Lłj T P Bم P ӂ\ W H TŅ Ğ|QEI , , `솂՟ _ٟ% ` J BKe䞁ւ iޠ @ޞޜ `@E ;RA@EN@Aޏǎ Qފ ,_?I o| xa D `랤QYkV*S` Ѐ[Ѐ āV@AĄ܃ B `ǁ D임*F]O. `Ģ,**$ "r "Bƽу۽ֽˁC凑ā / XŃ ѽ۞i ]с䆫@ڃ۽ցBǢ ,ž[ + - * X /KJƎ^[{ xނZ ,ş| ֽL Ձ Pم ޽с䇏ȆŃ۽{ ўq ! ! kキGާ}ަyޠ}y E _  .Ӄ E _  .޾ރfN ,Žֆs@FC kqLL (w{u _ޘJQB[y L S TўON  Jsˆzx\| IƎ> ,ŽƇ ,ƂpIưk , ,Htr Hm -ņց -ņCB\\ÂF -tт5ڃ3Ԟx ’@"Fz@ Ό F ō lR#䆠.bƝޙޖJQ!’ފދJQĽ %ӂԞu U B * ӂGo h fe "cIaM K Y&V&RR `QKL$kK N =ӂDD GӂA   :Ӟ ӟL ǟ{ y9u    :w ® 0C C 96C C "0 @  `j •墒C "C tC I6 UXW T ( :ӂF - :ӂ" )  U  ȦpP0 @0 B ` h } cD «⫂ pP0/o D E B U G 4  C 0 ӟi 7} t#t"t!t ttttttttttttttA ttttt t t t t ttttttttt  ӂzӾ P AC Q@ X= Y:ԽѾ K3 L0 S- D* C'ԟK =ӟ{  } ӟ|" ǽ *ٽ҆ N A Gҽ؆WV9  R Ƥ D V Wƚ›LB LCLFLLLSLJLI LGLRLZߝ Ǟ6  )}҆{҆u   łt P Lłj T P Bم P ӂ\  W H TŅ Ğ|QEI , , `솂՟ _% ` J BK e䞁ւ iޠ @ޞ ޜ `@E ;RA@E N@Aޏǎ Qފ ,_?  o| xa D `랤QY kV*S ` Ѐ[Ѐ āV@AĄ܃ B `ǁ D임*F] O. `Ģ,**$ "r "Bƽ ۽ֽˁC凑ā  / XŃ ѽ i ]с䆫@ڃ۽ BǢ ,ž[ + - * X /KJƎ ^[{ xނ Z ,ş| ֽ L Ձ Pم  с䇏ȆŃ۽{ ўq!!  k Gާ}ަy ޠ}y E _  . Ӄ E _  . ޾ރfN  ,Žֆs@FC kqLL (w{u  _ޘJQB[y L S TўON   Jsˆzx\ | IƎ> ,ŽƇ , ƂpIưk , ,Htr  Hm -ņց - ņCB\\ÂF -tт5ڃ3Ԟx  ’@"Fz@ Ό F ō lR# 䆠.bƝޙޖ JQ!’ފ ދJQĽ %ӂԞu  U B * ӂGo h  fe "cIaM K  Y&V&RR `Q KL$kK N =ӂDD GӂA   :Ӟ ӟL  ǟ{ y9 u    : w ® 0C C  96C C "0 `j  •墒C "C t C I6