1 REM Test program to test Tasman Printer Interface 2 REM © M.Kinsey 2017 3 LET delay=8 4 REM address hex xx=7654 3210 5 LET PortA=59: REM 3B=0011 1011 6 LET PortB=63: REM 3F=0011 1111 7 LET PortC=123: REM 7B=0111 1011 8 LET Contl=127: REM 7F=0111 1111 10 CLS 20 PRINT "Tasman Printer Interface","hardware test" 30 GO SUB 2000: REM set-up 8255 chip 40 PRINT "Output running count on data","pins D0 to D7 and loop..." 50 FOR c=0 TO 255 60 PRINT AT 6,0;"count:";c;" "; 70 OUT PortC,c 80 PAUSE delay 85 LET I$=INKEY$: IF I$="n" OR I$="N" THEN LET c=256 90 NEXT c 100 PRINT ''"Strobe output test"''"ALSO outputs to BUSY pin so makesure any inp ut switch is open ordisconnected. Press S to start." 105 LET I$=INKEY$: IF I$<>"s" AND I$<>"S" THEN GO TO 105 110 GO SUB 2050: REM set-up 8255 chip 115 LET a=0: LET b=1 120 FOR c=0 TO 255 130 PRINT AT 14,0;"count:";c;" "; 140 PRINT AT 15,0;"Port A (Strobe):";a;" "; 150 PRINT AT 16,0;"Port B (Busy):";b;" "; 155 OUT PortC,c 160 OUT PortA,a 165 OUT PortB,b 170 LET a=NOT a: LET b=NOT b 180 PAUSE delay 185 LET I$=INKEY$: IF I$="n" OR I$="N" THEN LET c=256 190 NEXT c 200 CLS 210 PRINT "Input test of Busy pin" 220 PRINT "Disconnect any LED from Busy pinthen press S to start." 230 LET I$=INKEY$: IF I$<>"s" AND I$<>"S" THEN GO TO 230 240 GO SUB 2000: REM set-up 8255 chip 250 OUT PortA,0: OUT PortB,0: OUT PortC,0 260 PRINT AT 6,0;"Input =";IN PortB;" "; 270 LET I$=INKEY$: IF I$<>"n" AND I$<>"N" THEN GO TO 260 1997 PRINT '"End" 1998 PAUSE 0 1999 GO TO 9999 2000 REM Set-up 8255 2010 REM Port A output, B input, C output 2020 OUT Contl,130 : REM = 82 hex 2040 RETURN 2050 REM Set-up 8255 2060 REM Port A output, B output, C output 2070 OUT Contl,128 : REM = 80 hex 2080 RETURN 8888 SAVE "TasmanTst" 9999 REM End