fixed PI channels, implemented clock

code/main.s

@@ -3,6 +3,9 @@ AC1==1
 AC2==2
 PDP==17
 
+CPA==0
+PRS==4
+
 PTP==100
 
 EXTERNAL PUTC,PUTS
@@ -13,8 +16,13 @@ ENTRY:	JRST	START
 PDL:	BLOCK	100
 SP:	XWD	-100,PDL-1
 
-START:
-	MOVE	PDP,SP
+START:	MOVE	PDP,SP
+
+	CONO	CPA,2001
+	CONO	PRS,2300
+	JRST	.
+
+;	UUO1	123
 
 	MOVSI	AC2,440700
 	HRRI	AC2,MSG
@@ -27,8 +35,7 @@ START:
 
 	HALT
 
-PTPUT:
-	CONSZ	PTP,20
+PTPUT:	CONSZ	PTP,20
 	 JRST	.-1
 	DATAO	PTP,AC1
 	POPJ	PDP,
@@ -36,4 +43,36 @@ PTPUT:
 MSG:	ASCIZ /Hello, world!
 yo! > /
 
+; UUO HANDLER
+UUO:	0
+	MOVSI	AC2,440700
+	HRRI	AC2,UUOMSG
+	PUSHJ	PDP,PUTS
+	JRSTF	@UUO
+UUOMSG:	ASCIZ /(UUO)/
+
+CLK:	^D60
+
+; CHANNEL 1 HANDLER
+CH1:	0
+	SOSLE	CLK
+	 JRST	CH1X
+	MOVEI	AC2,^D60
+	MOVEM	AC2,CLK
+	MOVSI	AC2,440700
+	HRRI	AC2,CH1MSG
+	PUSHJ	PDP,PUTS
+CH1X:	CONO	CPA,1001
+	JEN	@CH1
+CH1MSG:	ASCIZ /*TICK*/
+
+; UUO AND PI VECTORS
+LOC 40
+LOC40:	0
+	JSR	UUO
+	JSR	CH1
+	HALT	1
+
+RELOC
+
 END ENTRY