.LIST .LIST .NLIST ME ; ; BEGIN - INITIALIZATION OF TELIMITRY ; BEGIN: CLR NSTAT CLR NPARM MOV #OFT,HUNM MOV #OFT,HUNM+2 MOV #OFT,ALLK MOV #OFTI,114 ;REC BIS #40,167770 ;ENABLE REC INTERRUPT ; MOV #TAIL,HEAD ;TAPE GUY MOV #170000,TAVL MOV #177777,LAVL2 ;QUEIO POINTERS MOV #177777,LAVL3 MOV #HEAD2,HEAD2 MOV #TAIL2,HEAD2+2 MOV #HEAD2,TAIL2+2 MOV #TAIL2,TAIL2 MOV #HEAD3,HEAD3 MOV #TAIL3,HEAD3+2 MOV #HEAD3,TAIL3+2 MOV #TAIL3,TAIL3 ; CLR BSTAT CLR BSTAT+2 CLR BSTAT+4 ; MOV #48.,R0 ;COUNTER MOV #DGK1,R1 23$: MOV #6,(R1)+ SOB R0,23$ ; MOV #2485.,LASTP ;INITIALIZE ; MOV #777,167760 ;INITIALIZE TODC ; MOV #SMBUF,R0 MOV #440.,R1 ;COUNTER 22$: CLR (R0)+ SOB R1,22$ ; MOV #J18V1,R0 MOV #77.,R1 ;COUNTER 21$: CLR (R0)+ SOB R1,21$ ; MOV #2133.,R1 MOV #BBODY,R0 77$: MOVB #40,(R0)+ SOB R1,77$ ; MOV #1344.,R1 MOV #G16,R0 1$: MOVB #40,(R0)+ SOB R1,1$ ; MOV #222.,R1 MOV #FP6BOD,R0 2$: MOVB #40,(R0)+ SOB R1,2$ ; MOV #1344.,R1 MOV #G1HR,R0 3$: MOVB #40,(R0)+ SOB R1,3$ ; MOV #222.,R1 MOV #FPHBOD,R0 4$: MOVB #40,(R0)+ SOB R1,4$ ; MOV #1344.,R1 MOV #G16E,R0 5$: MOVB #40,(R0)+ SOB R1,5$ ; MOV #222.,R1 MOV #FP6BE,R0 6$: MOVB #40,(R0)+ SOB R1,6$ ; MOV #BBODY,R0 ;INSERT NAMES MOV #NAMES,R1 MOV #27.,R2 32$: MOV #13.,R3 31$: MOVB (R1)+,(R0)+ SOB R3,31$ ADD #64.,R0 MOVB #15,(R0)+ MOVB #12,(R0)+ SOB R2,32$ MOV #6412,@#BBEND+1 ; ; MOV #G16,R0 MOV #NAMES,R1 MOV #24.,R2 33$: MOV #13.,R3 34$: MOVB (R1)+,(R0)+ SOB R3,34$ ADD #41.,R0 MOVB #15,(R0)+ MOVB #12,(R0)+ SOB R2,33$ ; MOV #FP6BOD,R0 MOV #3,R2 36$: MOV #13.,R3 35$: MOVB (R1)+,(R0)+ SOB R3,35$ ADD #59.,R0 MOVB #15,(R0)+ MOVB #12,(R0)+ SOB R2,36$ ; ; MOV #G16E,R0 MOV #NAMES,R1 MOV #24.,R2 13$: MOV #13.,R3 14$: MOVB (R1)+,(R0)+ SOB R3,14$ ADD #41.,R0 MOVB #15,(R0)+ MOVB #12,(R0)+ SOB R2,13$ ; MOV #FP6BE,R0 MOV #3,R2 16$: MOV #13.,R3 15$: MOVB (R1)+,(R0)+ SOB R3,15$ ADD #59.,R0 MOVB #15,(R0)+ MOVB #12,(R0)+ SOB R2,16$ ; ; MOV #G1HR,R0 MOV #NAMES,R1 MOV #24.,R2 43$: MOV #13.,R3 44$: MOVB (R1)+,(R0)+ SOB R3,44$ ADD #41.,R0 MOVB #15,(R0)+ MOVB #12,(R0)+ SOB R2,43$ ; MOV #FPHBOD,R0 MOV #3,R2 46$: MOV #13.,R3 45$: MOVB (R1)+,(R0)+ SOB R3,45$ ADD #59.,R0 MOVB #15,(R0)+ MOVB #12,(R0)+ SOB R2,46$ ; INSTAL$ RFCLK,1 INSTAL$ TIMCH,2 INSTAL$ ECOT3,10. INSTAL$ ECOT2,9. INSTAL$ TMON,14. INSTAL$ MMON,13. INSTAL$ TAUD,19. INSTAL$ MAUD,20. INSTAL$ CONES,21. INSTAL$ CALCH,22. INSTAL$ ITSUM,23. INSTAL$ TREVL,24. INSTAL$ TDO,25. INSTAL$ EXC2,5 INSTAL$ EXC3,6 ; MOV #0,167760 ;MIN,HR MOV 167764,X BIC #177400,X ;TO MIN 50$: CMPB 167764,X BEQ 50$ MOV #0,BSEC ; MOV #1,167760 ;SET TO DAY MOV 167764,IIN BIC #170000,IIN CALL BTOI MOV IOUT,BDAY ;SET DAY MOV #0,167760 ;READ TIME MOV 167764,X MOVB X+1,IIN CALL BTOI MOV IOUT,BHR MOVB X,IIN CALL BTOI MOV IOUT,BMIN QUEIO$C 3,#51$,#51$+9. ; MOV #100,RCSR2 MOV #100,RCSR3 ;ENABLE MONITOR MTPS #0 ;ENABLE INTERRUPTS JMP BASEL ; 51$: .BYTE 15,12 .ASCII *READY * .BYTE 15,12 ;