X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=sw%2Fsrc%2Fomni_usb%2Ftest.pa;fp=sw%2Fsrc%2Fomni_usb%2Ftest.pa;h=d7c45a779e99aa2301bb3d20b06b6ee5a88ca387;hb=81e70d488b71bf995c459ca3a02c025993460ffa;hp=0000000000000000000000000000000000000000;hpb=07ec0278333ed187ac242dedcff13c56cf1b0b91;p=pdp8.git

diff --git a/sw/src/omni_usb/test.pa b/sw/src/omni_usb/test.pa
new file mode 100644
index 0000000..d7c45a7
--- /dev/null
+++ b/sw/src/omni_usb/test.pa
@@ -0,0 +1,77 @@
+
+
+	KTURBO=6407
+	TTURBO=6417
+	KSF2=6401
+*0
+INT,	0
+	KSF2
+	HLT 	/ NO KEYBOARD INTERRUPT!
+INT2,
+	CLA CLL
+	KTURBO 
+	JMP INTEX / NO DATA AVAILABLE, EXIT INTERRUPT
+	TTURBO
+	JMP .-1
+	CMA
+	TTURBO
+	JMP .-1
+	JMP INT2
+
+INTEX,	ION
+	TAD K3333
+	JMP I INT
+
+K3333,  3333
+
+XSTART,	START
+		
+*200
+	
+START,	
+	CLA CLL
+	6110
+	6120
+	6140
+	6270
+	6270
+	6270
+	6470
+	6470
+	6470
+	6441
+	6442
+	6444
+	HLT	
+	CAF	
+L1,	KSF2	/ READ EVERYTHING THAT COULD BE READ
+	JMP S2
+	KTURBO
+	HLT
+	JMP L1	
+
+S2,	CLA CLL
+	ION
+	TAD K2222
+	JMP .
+
+K2222,	2222	
+
+
+*7700   JMP I XSTART
+
+*400		/ SEND OUT SWITCH REGISTER AND HALT
+KEY,	LAS
+	TTURBO
+	JMP .-1
+	HLT
+	JMP KEY
+	
+*500
+DISP,	CLA CLL
+D2,	KSF2
+	JMP .-1
+	6406
+	JMP D2
+
+$