A large commit.

[pdp8.git] / sw / src / omni_usb / test.pa

diff --git a/sw/src/omni_usb/test.pa b/sw/src/omni_usb/test.pa
new file mode 100644 (file)
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
+
+$